9
3

killing_fire_beetles.lua 2.2 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758
  1. --[[
  2. Script Name : Quests/QeynosHarbor/killing_fire_beetles.lua
  3. Script Author : Dorbin
  4. Script Date : 2022.05.10 01:05:59
  5. Script Purpose :
  6. Zone : QeynosHarbor
  7. Quest Giver: Carpenter Paddock
  8. Preceded by: None
  9. Followed by:
  10. --]]
  11. function Init(Quest)
  12. AddQuestStepKill(Quest, 1, "I must kill klicnik mites.", 20, 100, "I need to kill fire beetles out in Antonica and gather twenty carcasses.", 160, 120067, 121225, 121444, 120372, 121350, 120211, 120367,121369, 120373, 120253, 120371, 121443)
  13. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  14. UpdateQuestZone(Quest,"Antonica")
  15. end
  16. function Accepted(Quest, QuestGiver, Player)
  17. -- Add dialog here for when the quest is accepted
  18. end
  19. function Declined(Quest, QuestGiver, Player)
  20. -- Add dialog here for when the quest is declined
  21. end
  22. function Deleted(Quest, QuestGiver, Player)
  23. -- Remove any quest specific items here when the quest is deleted
  24. end
  25. function Step1Complete(Quest, QuestGiver, Player)
  26. UpdateQuestStepDescription(Quest, 1, "I've killed the klicnik mites.")
  27. UpdateQuestTaskGroupDescription(Quest, 1, "I've gathered the twenty fire beetle carcasses.")
  28. UpdateQuestZone(Quest,"Qeynos Harbor")
  29. AddQuestStepChat(Quest, 2, "I must return to Carpenter Paddock.", 1, "I need to bring these twenty carcasses to Carpenter Paddock in Qeynos Harbor.", 160, 2210153)
  30. AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
  31. end
  32. function QuestComplete(Quest, QuestGiver, Player)
  33. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  34. UpdateQuestStepDescription(Quest, 2, "I've returned to Carpenter Paddock.")
  35. UpdateQuestTaskGroupDescription(Quest, 2, "I've given the beetle carcasses to Carpenter Paddock.")
  36. UpdateQuestDescription(Quest, "I've killed many fire beetles and gathered twenty carcasses. Paddock was very pleased, and the reward was well worth my time and effort.")
  37. GiveQuestReward(Quest, Player)
  38. end
  39. function Reload(Quest, QuestGiver, Player, Step)
  40. if Step == 1 then
  41. Step1Complete(Quest, QuestGiver, Player)
  42. elseif Step == 2 then
  43. QuestComplete(Quest, QuestGiver, Player)
  44. end
  45. end