9
3

gildas_requests__part_ii.lua 5.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293
  1. --[[
  2. Script Name : Quests/TheElddarGrove/gildas_requests__part_ii.lua
  3. Script Author : Dorbin
  4. Script Date : 2022.07.08 10:07:14
  5. Script Purpose : Qeynos Cloth Armorquest 2
  6. Zone : TheElddarGrove
  7. Quest Giver: Gildas Cedartree
  8. Preceded by: Gildas' Requests - Part I
  9. Followed by: Gildas' Requests - Part III
  10. --]]
  11. require "SpawnScripts/Generic/DialogModule"
  12. function Init(Quest)
  13. AddQuestStepKill(Quest, 1, "I must collect some basilisk eyes off the granitescale basilisks in Antonica.", 25, 100, "I need three things done this time. Please see if you can recover some of the granitescale basilisk eyes found in Antonica. I can enchant them to help the people who get caught in their gaze. There seem to be more blightfang spiders within Blackburrow and with their increased number it is driving more and more gnolls out into Antonica. If you could burn some of the blightfang hatchlings to ashes it would be a big help in making the local citizens feel more safe. And lastly, as always the Caltorsis undead are a constant problem. If you could find Advisor Pandrus and show him the way to his grave once again I would be ever thankful. - Gildas", 83, 120028)
  14. AddQuestStepKill(Quest, 2, "I must try and push the number of blightfang hatchlings down within Blackburrow.", 12, 100, "I need three things done this time. Please see if you can recover some of the granitescale basilisk eyes found in Antonica. I can enchant them to help the people who get caught in their gaze. There seem to be more blightfang spiders within Blackburrow and with their increased number it is driving more and more gnolls out into Antonica. If you could burn some of the blightfang hatchlings to ashes it would be a big help in making the local citizens feel more safe. And lastly, as always the Caltorsis undead are a constant problem. If you could find Advisor Pandrus and show him the way to his grave once again I would be ever thankful. - Gildas", 1841, 170020)
  15. AddQuestStepKill(Quest, 3, "I must destroy Advisor Pandrus in Antonica.", 1, 100, "I need three things done this time. Please see if you can recover some of the granitescale basilisk eyes found in Antonica. I can enchant them to help the people who get caught in their gaze. There seem to be more blightfang spiders within Blackburrow and with their increased number it is driving more and more gnolls out into Antonica. If you could burn some of the blightfang hatchlings to ashes it would be a big help in making the local citizens feel more safe. And lastly, as always the Caltorsis undead are a constant problem. If you could find Advisor Pandrus and show him the way to his grave once again I would be ever thankful. - Gildas", 91, 120247)
  16. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  17. AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
  18. AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
  19. UpdateQuestZone(Quest,"Multiple Zones")
  20. end
  21. function Accepted(Quest, QuestGiver, Player)
  22. FaceTarget(QuestGiver, Player)
  23. Dialog.New(QuestGiver, Player)
  24. Dialog.AddDialog( "I'll write the details in your journal. We need to attend to the wildlife both natural and unnatural in Antonica. If left unattended, the forest flora and fauna grows like nasty weeds. Please return safely after you finish your job.")
  25. -- Dialog.AddVoiceover("voiceover/english/selwyn_oakheart/qey_south/quests/selwyn_oakheart/selwyn001.mp3", 390832885, 49061382)
  26. PlayFlavor(QuestGiver,"","","nod", 0, 0, Player)
  27. Dialog.AddOption( "I will return soon.")
  28. Dialog.Start()
  29. end
  30. function Declined(Quest, QuestGiver, Player)
  31. -- Add dialog here for when the quest is declined
  32. end
  33. function Deleted(Quest, QuestGiver, Player)
  34. -- Remove any quest specific items here when the quest is deleted
  35. end
  36. function Step1Complete(Quest, QuestGiver, Player)
  37. UpdateQuestStepDescription(Quest, 1, "I have collected some basilisk eyes off the granitescale basilisks in Antonica.")
  38. CheckProgress(Quest, QuestGiver, Player)
  39. end
  40. function Step2Complete(Quest, QuestGiver, Player)
  41. UpdateQuestStepDescription(Quest, 2, "I have taken the number of blightfang hatchlings down within Blackburrow.")
  42. CheckProgress(Quest, QuestGiver, Player)
  43. end
  44. function Step3Complete(Quest, QuestGiver, Player)
  45. UpdateQuestStepDescription(Quest, 3, "I have destroyed Advisor Pandrus in Antonica.")
  46. CheckProgress(Quest, QuestGiver, Player)
  47. end
  48. function CheckProgress(Quest, QuestGiver, Player)
  49. if QuestStepIsComplete(Player, 5613, 1) and QuestStepIsComplete(Player, 5613, 2) and QuestStepIsComplete(Player, 5613, 3) then
  50. UpdateQuestTaskGroupDescription(Quest, 1, "I have completed all that Gildas has asked of me. I should return to him.")
  51. UpdateQuestZone(Quest,"The Elddar Grove")
  52. AddQuestStepChat(Quest, 4, "I should return to Gildas in The Elddar Grove.", 1, "I need to speak to Gildas Cedartree in The Elddar Grove.", 11, 2070033)
  53. AddQuestStepCompleteAction(Quest, 4, "QuestComplete")
  54. end
  55. end
  56. function QuestComplete(Quest, QuestGiver, Player)
  57. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  58. UpdateQuestStepDescription(Quest, 4, " I have returned to Gildas in The Elddar Grove.")
  59. UpdateQuestTaskGroupDescription(Quest, 2, "I have spoken to Gildas Cedartree in The Elddar Grove.")
  60. UpdateQuestDescription(Quest, "Gildas has rewarded me with a silver touched armbands.")
  61. GiveQuestReward(Quest, Player)
  62. end
  63. function Reload(Quest, QuestGiver, Player, Step)
  64. if Step == 1 then
  65. Step1Complete(Quest, QuestGiver, Player)
  66. elseif Step == 2 then
  67. Step2Complete(Quest, QuestGiver, Player)
  68. elseif Step == 3 then
  69. Step3Complete(Quest, QuestGiver, Player)
  70. elseif Step == 4 then
  71. QuestComplete(Quest, QuestGiver, Player)
  72. end
  73. end