9
3

gildas_requests__part_v.lua 7.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100
  1. --[[
  2. Script Name : Quests/TheElddarGrove/gildas_requests__part_v.lua
  3. Script Author : Dorbin
  4. Script Date : 2022.07.08 10:07:14
  5. Script Purpose : Qeynos Cloth Armorquest 5
  6. Zone : TheElddarGrove
  7. Quest Giver: Gildas Cedartree
  8. Preceded by: Gildas' Requests - Part IV
  9. Followed by: Gildas' Requests - Part VI
  10. --]]
  11. require "SpawnScripts/Generic/DialogModule"
  12. function Init(Quest)
  13. AddQuestStepKill(Quest, 1, "I must destroy animated scarecrows within the Thundering Steppes.", 15, 100, "From what you've brought me so far it seems as if the undead and gelatinous creatures within Stormhold bear only minor connections to those found under Qeynos; this is quite a relief. This time I have a list of creatures that are posing problems to Qeynos in the Thundering Steppes. Some more powerful animated scarecrows have recently shown up in the Thundering Steppes. I need you burn them to ash. The steppe beetles are getting out of control with their numbers, I need you to thin them out a little. Also, the corpse feeders are becoming too numerous and need to be culled. And finally, the fey rock heaps are causing problems with our outer lands exploration groups, they need to be dealt with. - Gildas", 611,2490321,2490843)
  14. AddQuestStepKill(Quest, 2, "I must destroy steppe beetles within the Thundering Steppes.", 25, 100, "From what you've brought me so far it seems as if the undead and gelatinous creatures within Stormhold bear only minor connections to those found under Qeynos; this is quite a relief. This time I have a list of creatures that are posing problems to Qeynos in the Thundering Steppes. Some more powerful animated scarecrows have recently shown up in the Thundering Steppes. I need you burn them to ash. The steppe beetles are getting out of control with their numbers, I need you to thin them out a little. Also, the corpse feeders are becoming too numerous and need to be culled. And finally, the fey rock heaps are causing problems with our outer lands exploration groups, they need to be dealt with. - Gildas", 1806, 2490050)
  15. AddQuestStepKill(Quest, 3, "I must thin the number of corpse feeders within the Thundering Steppes.", 12, 100, "From what you've brought me so far it seems as if the undead and gelatinous creatures within Stormhold bear only minor connections to those found under Qeynos; this is quite a relief. This time I have a list of creatures that are posing problems to Qeynos in the Thundering Steppes. Some more powerful animated scarecrows have recently shown up in the Thundering Steppes. I need you burn them to ash. The steppe beetles are getting out of control with their numbers, I need you to thin them out a little. Also, the corpse feeders are becoming too numerous and need to be culled. And finally, the fey rock heaps are causing problems with our outer lands exploration groups, they need to be dealt with. - Gildas", 77, 2490128)
  16. AddQuestStepKill(Quest, 4, "I must destroy some of the fey rock heaps that threaten the Qeynos exploration patrols.", 6, 100, "From what you've brought me so far it seems as if the undead and gelatinous creatures within Stormhold bear only minor connections to those found under Qeynos; this is quite a relief. This time I have a list of creatures that are posing problems to Qeynos in the Thundering Steppes. Some more powerful animated scarecrows have recently shown up in the Thundering Steppes. I need you burn them to ash. The steppe beetles are getting out of control with their numbers, I need you to thin them out a little. Also, the corpse feeders are becoming too numerous and need to be culled. And finally, the fey rock heaps are causing problems with our outer lands exploration groups, they need to be dealt with. - Gildas", 1125, 2490270)
  17. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  18. AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
  19. AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
  20. AddQuestStepCompleteAction(Quest, 4, "Step4Complete")
  21. UpdateQuestZone(Quest,"Thundering Steppes")
  22. end
  23. function Accepted(Quest, QuestGiver, Player)
  24. FaceTarget(QuestGiver, Player)
  25. Dialog.New(QuestGiver, Player)
  26. Dialog.AddDialog( "I knew you would return. If only all Qeynosians were as dedicated as you. My friend is working on your leggings. If you take this note and start immediately, your leggings should be ready by the time you return. Good luck on your journey!")
  27. -- Dialog.AddVoiceover("voiceover/english/selwyn_oakheart/qey_south/quests/selwyn_oakheart/selwyn001.mp3", 390832885, 49061382)
  28. PlayFlavor(QuestGiver,"","","thanks", 0, 0, Player)
  29. Dialog.AddOption( "Thank you Gildas. I'll see you as soon as I'm done.")
  30. Dialog.Start()
  31. end
  32. function Declined(Quest, QuestGiver, Player)
  33. -- Add dialog here for when the quest is declined
  34. end
  35. function Deleted(Quest, QuestGiver, Player)
  36. -- Remove any quest specific items here when the quest is deleted
  37. end
  38. function Step1Complete(Quest, QuestGiver, Player)
  39. UpdateQuestStepDescription(Quest, 1, "I have destroyed animated scarecrows within the Thundering Steppes.")
  40. CheckProgress(Quest, QuestGiver, Player)
  41. end
  42. function Step2Complete(Quest, QuestGiver, Player)
  43. UpdateQuestStepDescription(Quest, 2, "I have destroyed steppe beetles within the Thundering Steppes.")
  44. CheckProgress(Quest, QuestGiver, Player)
  45. end
  46. function Step3Complete(Quest, QuestGiver, Player)
  47. UpdateQuestStepDescription(Quest, 3, "I have destroyed some of the fey rock heaps that threaten the Qeynos exploration patrols.")
  48. CheckProgress(Quest, QuestGiver, Player)
  49. end
  50. function Step4Complete(Quest, QuestGiver, Player)
  51. UpdateQuestStepDescription(Quest, 4, "I have destroyed Celeg Ixuri.")
  52. CheckProgress(Quest, QuestGiver, Player)
  53. end
  54. function CheckProgress(Quest, QuestGiver, Player)
  55. if QuestStepIsComplete(Player, 5616, 1) and QuestStepIsComplete(Player, 5616, 2) and QuestStepIsComplete(Player, 5616, 3) and QuestStepIsComplete(Player, 5616, 4) then
  56. UpdateQuestTaskGroupDescription(Quest, 1, "I have completed all that Gildas has asked of me. I should return to him.")
  57. UpdateQuestZone(Quest,"The Elddar Grove")
  58. AddQuestStepChat(Quest, 5, "I should return to Gildas in The Elddar Grove.", 1, "I need to speak to Gildas Cedartree in The Elddar Grove.", 11, 2070033)
  59. AddQuestStepCompleteAction(Quest, 5, "QuestComplete")
  60. end
  61. end
  62. function QuestComplete(Quest, QuestGiver, Player)
  63. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  64. UpdateQuestStepDescription(Quest, 5, " I have returned to Gildas in The Elddar Grove.")
  65. UpdateQuestTaskGroupDescription(Quest, 2, "I have spoken to Gildas Cedartree in The Elddar Grove.")
  66. UpdateQuestDescription(Quest, "Gildas has rewarded me with a silver touched leggings.")
  67. GiveQuestReward(Quest, Player)
  68. end
  69. function Reload(Quest, QuestGiver, Player, Step)
  70. if Step == 1 then
  71. Step1Complete(Quest, QuestGiver, Player)
  72. elseif Step == 2 then
  73. Step2Complete(Quest, QuestGiver, Player)
  74. elseif Step == 3 then
  75. Step3Complete(Quest, QuestGiver, Player)
  76. elseif Step == 4 then
  77. Step4Complete(Quest, QuestGiver, Player)
  78. elseif Step == 5 then
  79. QuestComplete(Quest, QuestGiver, Player)
  80. end
  81. end