9
3

vermins_plague.lua 3.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879
  1. --[[
  2. Script Name : Quests/NorthQeynos/vermins_plague.lua
  3. Script Author : Dorbin
  4. Script Date : 2022.05.11 08:05:04
  5. Script Purpose :
  6. Zone : NorthQeynos
  7. Quest Giver: Elsabethia Hartsunde
  8. Preceded by: None
  9. Followed by:
  10. --]]
  11. function Init(Quest)
  12. AddQuestStepKill(Quest, 1, "I must collect an infected grave scorpius", 1, 100, "I must collect samples of the infected.", 1859, 2000024)
  13. AddQuestStepKill(Quest, 2, "I must collect an infected burrower", 1, 100, "I must collect samples of the infected.", 99, 2000026)
  14. AddQuestStepKill(Quest, 3, "I must collect an infected tomb vermin", 1, 100, "I must collect samples of the infected.", 124, 2000029)
  15. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  16. AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
  17. AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
  18. UpdateQuestZone(Quest,"Vermin's Snye")
  19. end
  20. function Accepted(Quest, QuestGiver, Player)
  21. -- Add dialog here for when the quest is accepted
  22. end
  23. function Declined(Quest, QuestGiver, Player)
  24. -- Add dialog here for when the quest is declined
  25. end
  26. function Deleted(Quest, QuestGiver, Player)
  27. -- Remove any quest specific items here when the quest is deleted
  28. end
  29. function Step1Complete(Quest, QuestGiver, Player)
  30. UpdateQuestStepDescription(Quest, 1, "I have collected an infected grave scorpius.")
  31. CheckProgress(Quest, QuestGiver, Player)
  32. end
  33. function Step2Complete(Quest, QuestGiver, Player)
  34. UpdateQuestStepDescription(Quest, 2, "I have collected an infected burrower.")
  35. CheckProgress(Quest, QuestGiver, Player)
  36. end
  37. function Step3Complete(Quest, QuestGiver, Player)
  38. UpdateQuestStepDescription(Quest, 3, "I have collected an infected tomb vermin.")
  39. CheckProgress(Quest, QuestGiver, Player)
  40. end
  41. function CheckProgress(Quest, QuestGiver, Player)
  42. if QuestStepIsComplete(Player, 5545, 1) and QuestStepIsComplete(Player, 5545, 2) and QuestStepIsComplete(Player, 5545, 3) then
  43. AddQuestStepChat(Quest, 4, "I must return to Elsabethia", 1, "I must return to Elsabethia Hartsunder.", 11, 2220141)
  44. AddQuestStepCompleteAction(Quest, 4, "QuestComplete")
  45. UpdateQuestZone(Quest,"North Qeynos")
  46. end
  47. end
  48. function QuestComplete(Quest, QuestGiver, Player)
  49. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  50. UpdateQuestStepDescription(Quest, 4, "I have returned to Elsabethia.")
  51. UpdateQuestTaskGroupDescription(Quest, 2, "I have returned to Elsabethia.")
  52. UpdateQuestDescription(Quest, "I volunteered to assist Elsabethia Hartsunder in the Temple of Life with her research. I was able to gather the infected specimens and return them to her.")
  53. GiveQuestReward(Quest, Player)
  54. end
  55. function Reload(Quest, QuestGiver, Player, Step)
  56. if Step == 1 then
  57. Step1Complete(Quest, QuestGiver, Player)
  58. elseif Step == 2 then
  59. Step2Complete(Quest, QuestGiver, Player)
  60. elseif Step == 3 then
  61. Step3Complete(Quest, QuestGiver, Player)
  62. elseif Step == 4 then
  63. QuestComplete(Quest, QuestGiver, Player)
  64. end
  65. end