9
3

the_great_flood.lua 8.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197
  1. --[[
  2. Script Name : Quests/Blackburrow/the_great_flood.lua
  3. Script Author : Premierio015
  4. Script Date : 2022.07.22 05:07:32
  5. Script Purpose :
  6. Zone : Blackburrow
  7. Quest Giver:
  8. Preceded by: None
  9. Followed by:
  10. --]]
  11. function Init(Quest)
  12. AddQuestStepKill(Quest, 1, "I need to kill 5 cave shimmers.", 5, 100, "I will find additional pages of the book in Blackburrow.", 611, 170045)
  13. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  14. end
  15. function Accepted(Quest, QuestGiver, Player)
  16. -- Add dialog here for when the quest is accepted
  17. end
  18. function Declined(Quest, QuestGiver, Player)
  19. -- Add dialog here for when the quest is declined
  20. end
  21. function Deleted(Quest, QuestGiver, Player)
  22. -- Remove any quest specific items here when the quest is deleted
  23. end
  24. function Step1Complete(Quest, QuestGiver, Player)
  25. UpdateQuestStepDescription(Quest, 1, "I have killed 5 cave shimmers")
  26. AddQuestStep(Quest, 2, "I should read the old book.", 1, 100, "I will find additional pages of the book in Blackburrow.", 185)
  27. AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
  28. end
  29. function Step2Complete(Quest, QuestGiver, Player)
  30. UpdateQuestStepDescription(Quest, 2, "I have read the old book.")
  31. AddQuestStepKill(Quest, 3, "I need to kill 8 Sabertooth guards.", 8, 100, "I will find additional pages of the book in Blackburrow.", 611, 170022)
  32. AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
  33. end
  34. function Step3Complete(Quest, QuestGiver, Player)
  35. UpdateQuestStepDescription(Quest, 3, "I have killed 8 Sabertooth guards.")
  36. AddQuestStep(Quest, 4, "I should read the old book.", 1, 100, "I will find additional pages of the book in Blackburrow.", 185)
  37. AddQuestStepCompleteAction(Quest, 4, "Step4Complete")
  38. end
  39. function Step4Complete(Quest, QuestGiver, Player)
  40. UpdateQuestStepDescription(Quest, 4, "I have read the old book.")
  41. AddQuestStepKill(Quest, 5, "I need to kill 6 Sabertooth tacticians.", 6, 100, "I will find additional pages of the book in Blackburrow.", 611, 170043)
  42. AddQuestStepCompleteAction(Quest, 5, "Step5Complete")
  43. end
  44. function Step5Complete(Quest, QuestGiver, Player)
  45. UpdateQuestStepDescription(Quest, 5, "I have killed 6 Sabertooth tacticians.")
  46. AddQuestStep(Quest, 6, "I should read the old book.", 1, 100, "I will find additional pages of the book in Blackburrow.", 185)
  47. AddQuestStepCompleteAction(Quest, 6, "Step6Complete")
  48. end
  49. function Step6Complete(Quest, QuestGiver, Player)
  50. UpdateQuestStepDescription(Quest, 6, "I have read the old book.")
  51. AddQuestStepKill(Quest, 7, "I need to kill 5 Sabertooth oracles.", 5, 100, "I will find additional pages of the book in Blackburrow.", 611, 170042)
  52. AddQuestStepCompleteAction(Quest, 7, "Step7Complete")
  53. end
  54. function Step7Complete(Quest, QuestGiver, Player)
  55. UpdateQuestStepDescription(Quest, 7, "I have killed 5 Sabertooth oracles.")
  56. AddQuestStep(Quest, 8, "I should read the old book.", 1, 100, "I will find additional pages of the book in Blackburrow.", 11)
  57. AddQuestStepCompleteAction(Quest, 8, "Step8Complete")
  58. end
  59. function Step8Complete(Quest, QuestGiver, Player)
  60. UpdateQuestStepDescription(Quest, 8, "I have read the old book.")
  61. AddQuestStepKill(Quest, 9, "I need to kill 6 stalwart Sabertooths.", 6, 100, "I will find additional pages of the book in Blackburrow.", 611, 170033)
  62. AddQuestStepCompleteAction(Quest, 9, "Step9Complete")
  63. end
  64. function Step9Complete(Quest, QuestGiver, Player)
  65. UpdateQuestStepDescription(Quest, 9, "I have killed 6 stalwart Sabertooths.")
  66. AddQuestStep(Quest, 10, "I should read the old book.", 1, 100, "I will find additional pages of the book in Blackburrow.", 185)
  67. AddQuestStepCompleteAction(Quest, 10, "Step10Complete")
  68. end
  69. function Step10Complete(Quest, QuestGiver, Player)
  70. UpdateQuestStepDescription(Quest, 10, "I have read the old book.")
  71. AddQuestStepKill(Quest, 11, "I need to kill 10 blightfang spiders.", 10, 100, "I will find additional pages of the book in Blackburrow.", 611, 170006, 170005, 170020, 170037)
  72. AddQuestStepCompleteAction(Quest, 11, "Step11Complete")
  73. end
  74. function Step11Complete(Quest, QuestGiver, Player)
  75. UpdateQuestStepDescription(Quest, 11, "I have killed 10 blightfang spiders.")
  76. AddQuestStep(Quest, 12, "I should read the old book.", 1, 100, "I will find additional pages of the book in Blackburrow.", 185)
  77. AddQuestStepCompleteAction(Quest, 12, "Step12Complete")
  78. end
  79. function Step12Complete(Quest, QuestGiver, Player)
  80. UpdateQuestStepDescription(Quest, 12, "I have read the old book.")
  81. AddQuestStepKill(Quest, 13, "I need to kill 7 blightfang spiders.", 7, 100, "I will find additional pages of the book in Blackburrow.", 611, 170006, 170005, 170020, 170037)
  82. AddQuestStepCompleteAction(Quest, 13, "Step13Complete")
  83. end
  84. function Step13Complete(Quest, QuestGiver, Player)
  85. UpdateQuestStepDescription(Quest, 13, "I have killed 7 blightfang spiders.")
  86. AddQuestStep(Quest, 14, "I should read the old book.", 1, 100, "I will find additional pages of the book in Blackburrow.", 185)
  87. AddQuestStepCompleteAction(Quest, 14, "Step14Complete")
  88. end
  89. function Step14Complete(Quest, QuestGiver, Player)
  90. UpdateQuestStepDescription(Quest, 14, "I have read the old book.")
  91. AddQuestStepKill(Quest, 15, "I need to kill 10 blightfang spiders.", 10, 100, "I will find additional pages of the book in Blackburrow.", 611, 170006, 170005, 170020, 170037)
  92. AddQuestStepCompleteAction(Quest, 15, "Step15Complete")
  93. end
  94. function Step15Complete(Quest, QuestGiver, Player)
  95. UpdateQuestStepDescription(Quest, 15, "I have killed 10 blightfang spiders.")
  96. AddQuestStep(Quest, 16, "I should read the old book.", 1, 100, "I will find additional pages of the book in Blackburrow.", 185)
  97. AddQuestStepCompleteAction(Quest, 16, "Step16Complete")
  98. end
  99. function Step16Complete(Quest, QuestGiver, Player)
  100. UpdateQuestStepDescription(Quest, 16, "I have read the old book.")
  101. AddQuestStepKill(Quest, 17, "I need to kill 6 blightfang spiders.", 6, 100, "I will find additional pages of the book in Blackburrow.", 611, 170006, 170005, 170020, 170037)
  102. AddQuestStepCompleteAction(Quest, 17, "Step17Complete")
  103. end
  104. function Step17Complete(Quest, QuestGiver, Player)
  105. UpdateQuestStepDescription(Quest, 17, "I have killed 6 blightfang spiders.")
  106. AddQuestStep(Quest, 18, "I should read the old book.", 1, 100, "I will find additional pages of the book in Blackburrow.", 185)
  107. AddQuestStepCompleteAction(Quest, 18, "QuestComplete")
  108. end
  109. function QuestComplete(Quest, QuestGiver, Player)
  110. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  111. UpdateQuestStepDescription(Quest, 18, "I have read the old book.")
  112. UpdateQuestTaskGroupDescription(Quest, 1, "I've found the remaining pages of the book.")
  113. UpdateQuestDescription(Quest, "Turns out that this is the story of someone who was trapped in a lower tunnel of Blackburrow during the Age of Cataclysms, when many of the lower tunnels were flooded. Although it doesn't come out and say so, I believe the person perished.")
  114. GiveQuestReward(Quest, Player)
  115. end
  116. function Reload(Quest, QuestGiver, Player, Step)
  117. if Step == 1 then
  118. Step1Complete(Quest, QuestGiver, Player)
  119. elseif Step == 2 then
  120. Step2Complete(Quest, QuestGiver, Player)
  121. elseif Step == 3 then
  122. Step3Complete(Quest, QuestGiver, Player)
  123. elseif Step == 4 then
  124. Step4Complete(Quest, QuestGiver, Player)
  125. elseif Step == 5 then
  126. Step5Complete(Quest, QuestGiver, Player)
  127. elseif Step == 6 then
  128. Step6Complete(Quest, QuestGiver, Player)
  129. elseif Step == 7 then
  130. Step7Complete(Quest, QuestGiver, Player)
  131. elseif Step == 8 then
  132. Step8Complete(Quest, QuestGiver, Player)
  133. elseif Step == 9 then
  134. Step9Complete(Quest, QuestGiver, Player)
  135. elseif Step == 10 then
  136. Step10Complete(Quest, QuestGiver, Player)
  137. elseif Step == 11 then
  138. Step11Complete(Quest, QuestGiver, Player)
  139. elseif Step == 12 then
  140. Step12Complete(Quest, QuestGiver, Player)
  141. elseif Step == 13 then
  142. Step13Complete(Quest, QuestGiver, Player)
  143. elseif Step == 14 then
  144. Step14Complete(Quest, QuestGiver, Player)
  145. elseif Step == 15 then
  146. Step15Complete(Quest, QuestGiver, Player)
  147. elseif Step == 16 then
  148. Step16Complete(Quest, QuestGiver, Player)
  149. elseif Step == 17 then
  150. Step17Complete(Quest, QuestGiver, Player)
  151. elseif Step == 18 then
  152. QuestComplete(Quest, QuestGiver, Player)
  153. end
  154. end