CratesontheNerves.lua 7.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160
  1. --[[
  2. Script Name : Quests/Commonlands/CratesontheNerves.lua
  3. Script Author : premierio015
  4. Script Date : 2018.12.30 10:12:22
  5. Script Purpose :
  6. Zone : Commonlands
  7. Quest Giver:
  8. Preceded by: None
  9. Followed by:
  10. --]]
  11. function Init(Quest)
  12. AddQuestStepKill(Quest, 1, "Gather embers from moon wisps around the Ulteran Spires", 10, 50, "Tiff has sent me off to get more wisp embers so that she can make more of the tracking powder.", 11, 330163)
  13. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  14. end
  15. function Accepted(Quest, QuestGiver, Player)
  16. end
  17. function Declined(Quest, QuestGiver, Player)
  18. end
  19. function Step1Complete(Quest, QuestGiver, Player)
  20. UpdateQuestStepDescription(Quest, 1, "I have the moon wisp embers for Tiff.")
  21. UpdateQuestTaskGroupDescription(Quest, 1, "I was able to get the necessary wisp embers for Tiff.")
  22. AddQuestStepChat(Quest, 2, "I should return to Tiff", 1, "Tiff has sent me off to get more wisp embers so that she can make more of the tracking powder.", 11, 330213)
  23. AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
  24. end
  25. function Step2Complete(Quest, QuestGiver, Player)
  26. UpdateQuestStepDescription(Quest, 2, "I returned to Tiff.")
  27. AddQuestStep(Quest, 3, "I should sprinkle empty smuggling crates with tracking powder", 2, 100, "I am to return to the smuggler's outpost and sprinkle the empty crates with tracking powder.", 11)
  28. AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
  29. end
  30. function Step3Complete(Quest, QuestGiver, Player)
  31. UpdateQuestStepDescription(Quest, 3, "I found several empty crates to use the tracking powder on.")
  32. UpdateQuestTaskGroupDescription(Quest, 2, "After using the magical powder on several smuggling crates, we can now track their movement.")
  33. AddQuestStepChat(Quest, 4, "I should return to Tiff", 1, "I am to return to the smuggler's outpost and sprinkle the empty crates with tracking powder.", 11, 330213)
  34. AddQuestStepCompleteAction(Quest, 4, "Step4Complete")
  35. end
  36. function Step4Complete(Quest, QuestGiver, Player)
  37. UpdateQuestStepDescription(Quest, 4, "I told Tiff of my success.")
  38. AddQuestStepLocation(Quest, 5, "I should try to find the crates west of the ratonga village", 30, "Use the map to follow the crates, and watch where the scroll ends up.", 11, -80, -47, 12)
  39. AddQuestStepCompleteAction(Quest, 5, "Step5Complete")
  40. GiveQuestItem(Quest, Player, "After using the magical powder on several smuggling crates, we can now track their movement.", 2141)
  41. end
  42. function Step5Complete(Quest, QuestGiver, Player)
  43. UpdateQuestStepDescription(Quest, 5, "I found the location, but the crates are no longer here.")
  44. AddQuestStepLocation(Quest, 6, "I should try to find the crates at the bridge south of the kerran village", 30 , "Use the map to follow the crates, and watch where the scroll ends up.", 11, -155, -46, 220)
  45. AddQuestStepCompleteAction(Quest, 6, "Step6Complete")
  46. end
  47. function Step6Complete(Quest, QuestGiver, Player)
  48. UpdateQuestStepDescription(Quest, 6, "I found the location, but the crates are no longer here.")
  49. AddQuestStepLocation(Quest, 7, "I should try to find the crates near the druid ring", 30, "Use the map to follow the crates, and watch where the scroll ends up.", 11, 654, -60, -86)
  50. AddQuestStepCompleteAction(Quest, 7, "Step7Complete")
  51. end
  52. function Step7Complete(Quest, QuestGiver, Player)
  53. UpdateQuestStepDescription(Quest, 7, "I found the location, but the crates are no longer here.")
  54. AddQuestStepLocation(Quest, 8, "I should try to find the crates on the road leading north from the Hidden Canyon Station", 30, "Use the map to follow the crates, and watch where the scroll ends up.", 11, 598, -50, 536)
  55. AddQuestStepCompleteAction(Quest, 8, "Step8Complete")
  56. end
  57. function Step8Complete(Quest, QuestGiver, Player)
  58. UpdateQuestStepDescription(Quest, 8, "I found the location, but the crates are no longer here.")
  59. AddQuestStepLocation(Quest, 9, "I should try to find the crates along the Path of Tears", 30, "Use the map to follow the crates, and watch where the scroll ends up.", 11, 1097, -39, -359)
  60. AddQuestStepCompleteAction(Quest, 9, "Step9Complete")
  61. end
  62. function Step9Complete(Quest, QuestGiver, Player)
  63. UpdateQuestStepDescription(Quest, 9, "I found the location, but the crates are no longer here.")
  64. AddQuestStep(Quest, 10, "The map now shows that the crates were moved west into the Yapping Maze", 30, "Use the map to follow the crates, and watch where the scroll ends up.", 11)
  65. AddQuestStepCompleteAction(Quest, 10, "Step10Complete")
  66. end
  67. function Step10Complete(Quest, QuestGiver, Player)
  68. UpdateQuestStepDescription(Quest, 10, "I inspected the crates and found they contain ore and gems.")
  69. UpdateQuestTaskGroupDescription(Quest, 3, "The crates were being filled with ore and gems by Thexian excavators near Fallen Gate, and the scroll is in Longshadow Alley.")
  70. AddQuestStepChat(Quest, 11, "I should report my findings to Tiff", 1, "Now that I know what the crates contained, and where the scroll is, I need to return to Tiff Squeelunkle.", 11, 330213)
  71. AddQuestStepCompleteAction(Quest, 11, "Step11Complete")
  72. end
  73. function Step11Complete(Quest, QuestGiver, Player)
  74. UpdateQuestStepDescription(Quest, 11, "I told Tiff all I knew.")
  75. UpdateQuestTaskGroupDescription(Quest, 4, "Tiff was intrigued by the contents of the crates, and the last location of the scroll.")
  76. AddQuestStep(Quest, 12, "I should return to the smuggler's outpost and investigate the crates", 1, 100, "I seem to have volunteered to go back to the smuggler's outpost to investigate the crates that have returned there.", 11)
  77. AddQuestStepCompleteAction(Quest, 12, "Step12Complete")
  78. end
  79. function Step12Complete(Quest, QuestGiver, Player)
  80. UpdateQuestStepDescription(Quest, 12, "I overheard more useful facts about the smuggler's activities.")
  81. AddQuestStepChat(Quest, 13, "Now that I know the gems and ore are being sold by the smugglers I should return to Tiff", 1, "I seem to have volunteered to go back to the smuggler's outpost to investigate the crates that have returned there.", 11)
  82. AddQuestStepCompleteAction(Quest, 13, "quest_complete")
  83. end
  84. function quest_complete(Quest, QuestGiver, Player)
  85. UpdateQuestStepDescription(Quest, 13, " I spoke again, with Tiff.")
  86. UpdateQuestTaskGroupDescription(Quest, 5, "Tiff was very interested in the Thexian connection with the Blackshield Smugglers' growth.")
  87. UpdateQuestDescription(Quest, "Tiff was very interested in the Thexian connection with the Blackshield Smugglers' growth.")
  88. GiveQuestReward(Quest, Player)
  89. end
  90. function Reload(Quest, QuestGiver, Player, Step)
  91. if Step == 1 then
  92. Step1Complete(Quest, QuestGiver, Player)
  93. elseif Step == 2 then
  94. Step2Complete(Quest, QuestGiver, Player)
  95. elseif Step == 3 then
  96. Step3Complete(Quest, QuestGiver, Player)
  97. elseif Step == 4 then
  98. Step4Complete(Quest, QuestGiver, Player)
  99. elseif Step == 5 then
  100. Step5Complete(Quest, QuestGiver, Player)
  101. elseif Step == 6 then
  102. Step6Complete(Quest, QuestGiver, Player)
  103. elseif Step == 7 then
  104. Step7Complete(Quest, QuestGiver, Player)
  105. elseif Step == 8 then
  106. Step8Complete(Quest, QuestGiver, Player)
  107. elseif Step == 9 then
  108. Step9Complete(Quest, QuestGiver, Player)
  109. elseif Step == 10 then
  110. Step10Complete(Quest, QuestGiver, Player)
  111. elseif Step == 11 then
  112. Step11Complete(Quest, QuestGiver, Player)
  113. elseif Step == 12 then
  114. Step12Complete(Quest, QuestGiver, Player)
  115. elseif Step == 13 then
  116. quest_complete(Quest, QuestGiver, Player)
  117. end
  118. end