9
3

the_dusty_blue_stone.lua 6.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129
  1. --[[
  2. Script Name : the_dusty_blue_stone.lua
  3. Script Purpose : Handles the quest, "The Dusty Blue Stone"
  4. Script Author : Dorbin
  5. Script Date : 3/11/2022
  6. Script Notes : Auto generated with QuestParser.
  7. Zone : The City of Qeynos
  8. Quest Giver : dusty blue stone
  9. Preceded by : Vida Needs a New Broom
  10. Followed by : Restoring Ghoulbane
  11. --]]
  12. function Init(Quest)
  13. AddQuestStepChat(Quest, 1, "I need to find a mineral expert in Qeynos.", 1, "I need to speak to a mineral expert about this dusty blue stone that Vida Sweeps gave me.", 146, 2350019)
  14. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  15. UpdateQuestZone(Quest,"Graystone Yard")
  16. end
  17. function Accepted(Quest, QuestGiver, Player)
  18. while HasItem(Player, 6631, 1) do
  19. RemoveItem(Player, 6631)
  20. end
  21. SendMessage(Player, "The dusty blue stone has been placed in your quest satchel.")
  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 spoke to Gruffin about the stone.")
  31. UpdateQuestTaskGroupDescription(Quest, 1, "I showed the stone to Gruffin Goldtooth in the Qeynos Province District.")
  32. UpdateQuestZone(Quest,"The Thundering Steppes")
  33. AddQuestStepHarvest(Quest, 2, "I need to collect rock samples in the Thundering Steppes.", 40, 80, "I need to collect mineral samples in the Thundering Steppes while Gruffin investigates my blue stone.", 1085, 2490674)
  34. AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
  35. end
  36. function Step2Complete(Quest, QuestGiver, Player)
  37. UpdateQuestStepDescription(Quest, 2, "I collected the rock samples from the Steppes.")
  38. UpdateQuestTaskGroupDescription(Quest, 2, "I collected the Thundering Steppes mineral samples for Gruffin.")
  39. UpdateQuestZone(Quest,"Graystone Yard")
  40. AddQuestStepChat(Quest, 3, "I need to deliver the rock samples to Gruffin.", 1, "I need to return these collected rock samples to Gruffin in the Qeynos Province District.", 1085, 2350019)
  41. AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
  42. end
  43. function Step3Complete(Quest, QuestGiver, Player)
  44. UpdateQuestStepDescription(Quest, 3, "I delivered the rock samples to Gruffin.")
  45. UpdateQuestTaskGroupDescription(Quest, 3, "I gave the mineral samples to Gruffin.")
  46. UpdateQuestZone(Quest,"South Qeynos")
  47. AddQuestStepChat(Quest, 4, "I should find a mage in Qeynos that knows about enchanted minerals.", 1, "I should find a mage familiar with enchanted minerals and ask him about this stone.", 146, 2310076)
  48. AddQuestStepCompleteAction(Quest, 4, "Step4Complete")
  49. end
  50. function Step4Complete(Quest, QuestGiver, Player)
  51. UpdateQuestStepDescription(Quest, 4, "I spoke to Aristide about the stone.")
  52. UpdateQuestTaskGroupDescription(Quest, 4, "I showed the dusty blue stone to Aristide Calais at the mage tower.")
  53. UpdateQuestZone(Quest,"The Thundering Steppes")
  54. AddQuestStepChat(Quest, 5, "I need to deliver the bag of enchanted steel bars to Olden Highguard in Thundermist Village.", 1, "I need to take this bag of enchanted steel bars to Olden out in the Thundermist Village.", 10, 2490161)
  55. AddQuestStepCompleteAction(Quest, 5, "Step5Complete")
  56. end
  57. function Step5Complete(Quest, QuestGiver, Player)
  58. UpdateQuestStepDescription(Quest, 5, "I delivered the steel bars to Olden.")
  59. UpdateQuestTaskGroupDescription(Quest, 5, "I delivered the bag of enchanted steel bars to Olden in Thundermist Village.")
  60. UpdateQuestZone(Quest,"South Qeynos")
  61. AddQuestStepChat(Quest, 6, "I should return to Aristide.", 1, "I should return to Aristide in South Qeynos and see what he found about the blue stone.", 146, 2490161)
  62. AddQuestStepCompleteAction(Quest, 6, "Step6Complete")
  63. end
  64. function Step6Complete(Quest, QuestGiver, Player)
  65. UpdateQuestStepDescription(Quest, 6, "I spoke to Aristide.")
  66. UpdateQuestTaskGroupDescription(Quest, 6, "I spoke to Aristide about the blue stone.")
  67. UpdateQuestZone(Quest,"North Qeynos")
  68. AddQuestStepChat(Quest, 7, "I should find someone in Qeynos that knows about blessed objects.", 1, "I should find someone in Qeynos that may know something of blessed objects.", 11, 2220154)
  69. AddQuestStepCompleteAction(Quest, 7, "Step7Complete")
  70. end
  71. function Step7Complete(Quest, QuestGiver, Player)
  72. UpdateQuestStepDescription(Quest, 7, "I spoke to Toranim about the stone.")
  73. UpdateQuestTaskGroupDescription(Quest, 7, "I spoke to Toranim at the Temple of Life about my blue stone.")
  74. UpdateQuestZone(Quest,"Stormhold")
  75. AddQuestStepKill(Quest, 8, "I need to slay powerful undead in Stormhold.", 30, 100, "I should follow Toranim's advice and slay a number of the more powerful ghouls in Stormhold.", 91, 150012, 150080,150066,150086,150013, 150085,150020,150021,150246,150246,150254,150077,150244,150017,150016,150022,150114,150035,150039,150057,150272,150035.150245)
  76. AddQuestStepCompleteAction(Quest, 8, "Step8Complete")
  77. end
  78. function Step8Complete(Quest, QuestGiver, Player)
  79. UpdateQuestStepDescription(Quest, 8, "I destroyed a number of undead in Stormhold.")
  80. UpdateQuestTaskGroupDescription(Quest, 8, "After slaying a number of powerful ghouls in Stormhold my blue stone began to grow brighter and feel warmer.")
  81. UpdateQuestZone(Quest,"North Qeynos")
  82. AddQuestStepChat(Quest, 9, "I should speak to Toranim in Qeynos.", 1, "I should return to Toranim and let him know the stone feels warmer and is beginning to glow.", 146, 2220154)
  83. AddQuestStepCompleteAction(Quest, 9, "QuestComplete")
  84. end
  85. function QuestComplete(Quest, QuestGiver, Player)
  86. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  87. UpdateQuestStepDescription(Quest, 9, "I showed the glowing stone to Toranim.")
  88. UpdateQuestTaskGroupDescription(Quest, 9, "I spoke to Toranim about the blue stone feeling more powerful.")
  89. UpdateQuestDescription(Quest, "After asking a few different people to look at the stone it turns out it is the adornment of an ancient undead slaying sword called Ghoulbane.")
  90. GiveQuestReward(Quest, Player)
  91. end
  92. function Reload(Quest, QuestGiver, Player, Step)
  93. if Step == 1 then
  94. Step1Complete(Quest, QuestGiver, Player)
  95. elseif Step == 2 then
  96. Step2Complete(Quest, QuestGiver, Player)
  97. elseif Step == 3 then
  98. Step3Complete(Quest, QuestGiver, Player)
  99. elseif Step == 4 then
  100. Step4Complete(Quest, QuestGiver, Player)
  101. elseif Step == 5 then
  102. Step5Complete(Quest, QuestGiver, Player)
  103. elseif Step == 6 then
  104. Step6Complete(Quest, QuestGiver, Player)
  105. elseif Step == 7 then
  106. Step7Complete(Quest, QuestGiver, Player)
  107. elseif Step == 8 then
  108. Step8Complete(Quest, QuestGiver, Player)
  109. elseif Step == 9 then
  110. QuestComplete(Quest, QuestGiver, Player)
  111. end
  112. end