9
3

to_speak_as_a_dragon.lua 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305
  1. --[[
  2. Script Name : Quests/MultipleZones/to_speak_as_a_dragon.lua
  3. Script Author : Dorbin
  4. Script Date : 2022.06.01 05:06:56
  5. Script Purpose :
  6. Zone : MultipleZones
  7. Quest Giver: Sage of Ages
  8. Preceded by: None
  9. Followed by: Of Fire and Ice
  10. --]]
  11. function Init(Quest)
  12. AddQuestStepChat(Quest, 1, "I need to speak with Nagafen within his lair deep in Solusek's Eye.", 1, "I need to travel to the very depths of Solusek's Eye and gain audience with Nagafen in order to find out why the Sage of Ages was attacked by his Drakota.", 11, 2460000)
  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 spoke with Majordomo Inferinus.")
  26. UpdateQuestTaskGroupDescription(Quest, 1, "I was unable to speak with Nagafen because he won't lower himself to speak in a language other than Ancient Draconic.")
  27. AddQuestStepChat(Quest, 2, "I need to speak to the Sage of Ages in Antonica.", 1, "I need to find the Sage of Ages in the Tower of the Coldwind Oracles near Qeynos and see if he knows anything about the Draconic language.", 11, 120218)
  28. AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
  29. end
  30. function Step2Complete(Quest, QuestGiver, Player)
  31. UpdateQuestStepDescription(Quest, 2, "I spoke with the Sage of Ages.")
  32. UpdateQuestTaskGroupDescription(Quest, 2, "I spoke with the Sage of Ages at the Tower of the Coldwind Oracles and told him of Nagafen's refusal to speak with me.")
  33. AddQuestStep(Quest, 3, "I need to collect the translated Vee rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  34. AddQuestStep(Quest, 4, "I need to collect the translated Fen rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  35. AddQuestStep(Quest, 5, "I need to collect the translated Dar rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  36. AddQuestStep(Quest, 6, "I need to collect the translated Aerr rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  37. AddQuestStep(Quest, 7, "I need to collect the translated Vul rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  38. AddQuestStep(Quest, 8, "I need to collect the translated Phar rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  39. AddQuestStep(Quest, 9, "I need to collect the translated Kor rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  40. AddQuestStep(Quest, 10, "I need to collect the translated Sev rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  41. AddQuestStep(Quest, 11, "I need to collect the translated Tal rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  42. AddQuestStep(Quest, 12, "I need to collect the translated Gor rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  43. AddQuestStep(Quest, 13, "I need to collect the translated Shi rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  44. AddQuestStep(Quest, 14, "I need to collect the translated Mir rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  45. AddQuestStep(Quest, 15, "I need to collect the translated Xak rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  46. AddQuestStep(Quest, 16, "I need to collect the translated Gresh rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  47. AddQuestStep(Quest, 17, "I need to collect the translated Draedan rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  48. AddQuestStep(Quest, 18, "I need to collect the translated Trena rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  49. AddQuestStep(Quest, 19, "I need to collect the translated Trana rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  50. AddQuestStep(Quest, 20, "I need to collect the translated Rakta rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  51. AddQuestStep(Quest, 21, "I need to collect the translated Kyth rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  52. AddQuestStep(Quest, 22, "I need to collect the translated Vak rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  53. AddQuestStep(Quest, 23, "I need to collect the translated Sissra rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  54. AddQuestStep(Quest, 24, "I need to collect the translated Sissthra rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  55. AddQuestStep(Quest, 25, "I need to collect the translated Rett rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  56. AddQuestStep(Quest, 26, "I need to collect the translated Voth rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  57. AddQuestStep(Quest, 27, "I need to collect the translated Nak rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  58. AddQuestStep(Quest, 28, "I need to collect the translated Fyrm rune.", 1, 100, "I need to find research on the translations of all twenty six Draconic runes. I will search to the ends of known Norrath and beyond to find these!", 374)
  59. AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
  60. AddQuestStepCompleteAction(Quest, 4, "Step4Complete")
  61. AddQuestStepCompleteAction(Quest, 5, "Step5Complete")
  62. AddQuestStepCompleteAction(Quest, 6, "Step6Complete")
  63. AddQuestStepCompleteAction(Quest, 7, "Step7Complete")
  64. AddQuestStepCompleteAction(Quest, 8, "Step8Complete")
  65. AddQuestStepCompleteAction(Quest, 9, "Step9Complete")
  66. AddQuestStepCompleteAction(Quest, 10, "Step10Complete")
  67. AddQuestStepCompleteAction(Quest, 11, "Step11Complete")
  68. AddQuestStepCompleteAction(Quest, 12, "Step12Complete")
  69. AddQuestStepCompleteAction(Quest, 13, "Step13Complete")
  70. AddQuestStepCompleteAction(Quest, 14, "Step14Complete")
  71. AddQuestStepCompleteAction(Quest, 15, "Step15Complete")
  72. AddQuestStepCompleteAction(Quest, 16, "Step16Complete")
  73. AddQuestStepCompleteAction(Quest, 17, "Step17Complete")
  74. AddQuestStepCompleteAction(Quest, 18, "Step18Complete")
  75. AddQuestStepCompleteAction(Quest, 19, "Step19Complete")
  76. AddQuestStepCompleteAction(Quest, 20, "Step20Complete")
  77. AddQuestStepCompleteAction(Quest, 21, "Step21Complete")
  78. AddQuestStepCompleteAction(Quest, 22, "Step22Complete")
  79. AddQuestStepCompleteAction(Quest, 23, "Step23Complete")
  80. AddQuestStepCompleteAction(Quest, 24, "Step24Complete")
  81. AddQuestStepCompleteAction(Quest, 25, "Step25Complete")
  82. AddQuestStepCompleteAction(Quest, 26, "Step26Complete")
  83. AddQuestStepCompleteAction(Quest, 27, "Step27Complete")
  84. AddQuestStepCompleteAction(Quest, 28, "Step28Complete")
  85. end
  86. function Step3Complete(Quest, QuestGiver, Player)
  87. UpdateQuestStepDescription(Quest, 3, "I collected the Vee rune.")
  88. CheckProgress(Quest, QuestGiver, Player)
  89. end
  90. function Step4Complete(Quest, QuestGiver, Player)
  91. UpdateQuestStepDescription(Quest, 4, "I collected the Fen rune.")
  92. CheckProgress(Quest, QuestGiver, Player)
  93. end
  94. function Step5Complete(Quest, QuestGiver, Player)
  95. UpdateQuestStepDescription(Quest, 5, "I collected the Dar rune.")
  96. CheckProgress(Quest, QuestGiver, Player)
  97. end
  98. function Step6Complete(Quest, QuestGiver, Player)
  99. UpdateQuestStepDescription(Quest, 6, "I collected the Aerr rune.")
  100. CheckProgress(Quest, QuestGiver, Player)
  101. end
  102. function Step7Complete(Quest, QuestGiver, Player)
  103. UpdateQuestStepDescription(Quest, 7, "I collected the Vul rune.")
  104. CheckProgress(Quest, QuestGiver, Player)
  105. end
  106. function Step8Complete(Quest, QuestGiver, Player)
  107. UpdateQuestStepDescription(Quest, 8, "I collected the Phar rune.")
  108. CheckProgress(Quest, QuestGiver, Player)
  109. end
  110. function Step9Complete(Quest, QuestGiver, Player)
  111. UpdateQuestStepDescription(Quest, 9, "I collected the Kor rune.")
  112. CheckProgress(Quest, QuestGiver, Player)
  113. end
  114. function Step10Complete(Quest, QuestGiver, Player)
  115. UpdateQuestStepDescription(Quest, 10, "I collected the Sev rune.")
  116. CheckProgress(Quest, QuestGiver, Player)
  117. end
  118. function Step11Complete(Quest, QuestGiver, Player)
  119. UpdateQuestStepDescription(Quest, 11, "I collected the Tal rune.")
  120. CheckProgress(Quest, QuestGiver, Player)
  121. end
  122. function Step12Complete(Quest, QuestGiver, Player)
  123. UpdateQuestStepDescription(Quest, 12, "I collected the Gor rune.")
  124. CheckProgress(Quest, QuestGiver, Player)
  125. end
  126. function Step13Complete(Quest, QuestGiver, Player)
  127. UpdateQuestStepDescription(Quest, 13, "I collected the Shi rune.")
  128. CheckProgress(Quest, QuestGiver, Player)
  129. end
  130. function Step14Complete(Quest, QuestGiver, Player)
  131. UpdateQuestStepDescription(Quest, 14, "I collected the Mir rune.")
  132. CheckProgress(Quest, QuestGiver, Player)
  133. end
  134. function Step15Complete(Quest, QuestGiver, Player)
  135. UpdateQuestStepDescription(Quest, 15, "I collected the Xak rune.")
  136. CheckProgress(Quest, QuestGiver, Player)
  137. end
  138. function Step16Complete(Quest, QuestGiver, Player)
  139. UpdateQuestStepDescription(Quest, 16, "I collected the Gresh rune.")
  140. CheckProgress(Quest, QuestGiver, Player)
  141. end
  142. function Step17Complete(Quest, QuestGiver, Player)
  143. UpdateQuestStepDescription(Quest, 17, "I collected the Draedan rune.")
  144. CheckProgress(Quest, QuestGiver, Player)
  145. end
  146. function Step18Complete(Quest, QuestGiver, Player)
  147. UpdateQuestStepDescription(Quest, 18, "I collected the Trena rune.")
  148. CheckProgress(Quest, QuestGiver, Player)
  149. end
  150. function Step19Complete(Quest, QuestGiver, Player)
  151. UpdateQuestStepDescription(Quest, 19, "I collected the Trana rune.")
  152. CheckProgress(Quest, QuestGiver, Player)
  153. end
  154. function Step20Complete(Quest, QuestGiver, Player)
  155. UpdateQuestStepDescription(Quest, 20, "I collected the Rakta rune.")
  156. CheckProgress(Quest, QuestGiver, Player)
  157. end
  158. function Step21Complete(Quest, QuestGiver, Player)
  159. UpdateQuestStepDescription(Quest, 21, "I collected the Kyth rune.")
  160. CheckProgress(Quest, QuestGiver, Player)
  161. end
  162. function Step22Complete(Quest, QuestGiver, Player)
  163. UpdateQuestStepDescription(Quest, 22, "I collected the Vak rune.")
  164. CheckProgress(Quest, QuestGiver, Player)
  165. end
  166. function Step23Complete(Quest, QuestGiver, Player)
  167. UpdateQuestStepDescription(Quest, 23, "I collected the Sissra rune.")
  168. CheckProgress(Quest, QuestGiver, Player)
  169. end
  170. function Step24Complete(Quest, QuestGiver, Player)
  171. UpdateQuestStepDescription(Quest, 24, "I collected the Sissthra rune.")
  172. CheckProgress(Quest, QuestGiver, Player)
  173. end
  174. function Step25Complete(Quest, QuestGiver, Player)
  175. UpdateQuestStepDescription(Quest, 25, "I collected the Rett rune.")
  176. CheckProgress(Quest, QuestGiver, Player)
  177. end
  178. function Step26Complete(Quest, QuestGiver, Player)
  179. UpdateQuestStepDescription(Quest, 26, "I collected the Voth rune.")
  180. CheckProgress(Quest, QuestGiver, Player)
  181. end
  182. function Step27Complete(Quest, QuestGiver, Player)
  183. UpdateQuestStepDescription(Quest, 27, "I collected the Nak rune.")
  184. CheckProgress(Quest, QuestGiver, Player)
  185. end
  186. function Step28Complete(Quest, QuestGiver, Player)
  187. UpdateQuestStepDescription(Quest, 28, "I collected the Fyrm rune.")
  188. CheckProgress(Quest, QuestGiver, Player)
  189. end
  190. function CheckProgress(Quest, QuestGiver, Player)
  191. if QuestStepIsComplete(Player, 5577, 3) and QuestStepIsComplete(Player, 5577, 4) and QuestStepIsComplete(Player, 5577, 5) and QuestStepIsComplete(Player, 5577, 6) and QuestStepIsComplete(Player, 5577, 6) and QuestStepIsComplete(Player, 5577, 7) and QuestStepIsComplete(Player, 5577, 8) and QuestStepIsComplete(Player, 5577, 9) and QuestStepIsComplete(Player, 5577, 10) and QuestStepIsComplete(Player, 5577, 11) and QuestStepIsComplete(Player, 5577, 12) and QuestStepIsComplete(Player, 5577, 13) and QuestStepIsComplete(Player, 5577, 14) and QuestStepIsComplete(Player, 5577, 15) and QuestStepIsComplete(Player, 5577, 16) and QuestStepIsComplete(Player, 5577, 17) and QuestStepIsComplete(Player, 5577, 18) and QuestStepIsComplete(Player, 5577, 19) and QuestStepIsComplete(Player, 5577, 20) and QuestStepIsComplete(Player, 5577, 21) and QuestStepIsComplete(Player, 5577, 22) and QuestStepIsComplete(Player, 5577, 23) and QuestStepIsComplete(Player, 5577, 24) and QuestStepIsComplete(Player, 5577, 25) and QuestStepIsComplete(Player, 5577, 26) and QuestStepIsComplete(Player, 5577, 27) and QuestStepIsComplete(Player, 5577, 28) then
  192. UpdateQuestTaskGroupDescription(Quest, 3, "I found translations for all twenty six Draconic runes!")
  193. AddQuestStepChat(Quest, 29, "I need to take these translated runes to the Sage of Ages in Antonica.", 1, "I must take these priceless research translations to the Sage of Ages at the Tower of the Coldwind Oracles.", 11, 120218)
  194. AddQuestStepCompleteAction(Quest, 29, "QuestComplete")
  195. end
  196. end
  197. function QuestComplete(Quest, QuestGiver, Player)
  198. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  199. UpdateQuestStepDescription(Quest, 29, "I took the Draconic runes to the Sage of Ages.")
  200. UpdateQuestTaskGroupDescription(Quest, 4, "I delivered the translated runes to the Sage of Ages.")
  201. AddLanguage(Player, 19)
  202. SendMessage(Player, "You have learned the basics of Draconic.", "White")
  203. UpdateQuestDescription(Quest, "The red dragon Nagafen would not speak to us unless we were able to speak with him in his ancient language. This was told to us by his majordomo Inferinus. By following a theory the Sage of Ages had on the research of the Draconic language, I was able to find researched translations of all twenty six draconic runes which allowed the sage to teach me the ancient tongue. <br> <br>")
  204. GiveQuestReward(Quest, Player)
  205. end
  206. function Reload(Quest, QuestGiver, Player, Step)
  207. if Step == 1 then
  208. Step1Complete(Quest, QuestGiver, Player)
  209. elseif Step == 2 then
  210. Step2Complete(Quest, QuestGiver, Player)
  211. elseif Step == 3 then
  212. Step3Complete(Quest, QuestGiver, Player)
  213. elseif Step == 4 then
  214. Step4Complete(Quest, QuestGiver, Player)
  215. elseif Step == 5 then
  216. Step5Complete(Quest, QuestGiver, Player)
  217. elseif Step == 6 then
  218. Step6Complete(Quest, QuestGiver, Player)
  219. elseif Step == 7 then
  220. Step7Complete(Quest, QuestGiver, Player)
  221. elseif Step == 8 then
  222. Step8Complete(Quest, QuestGiver, Player)
  223. elseif Step == 9 then
  224. Step9Complete(Quest, QuestGiver, Player)
  225. elseif Step == 10 then
  226. Step10Complete(Quest, QuestGiver, Player)
  227. elseif Step == 11 then
  228. Step11Complete(Quest, QuestGiver, Player)
  229. elseif Step == 12 then
  230. Step12Complete(Quest, QuestGiver, Player)
  231. elseif Step == 13 then
  232. Step13Complete(Quest, QuestGiver, Player)
  233. elseif Step == 14 then
  234. Step14Complete(Quest, QuestGiver, Player)
  235. elseif Step == 15 then
  236. Step15Complete(Quest, QuestGiver, Player)
  237. elseif Step == 16 then
  238. Step16Complete(Quest, QuestGiver, Player)
  239. elseif Step == 17 then
  240. Step17Complete(Quest, QuestGiver, Player)
  241. elseif Step == 18 then
  242. Step18Complete(Quest, QuestGiver, Player)
  243. elseif Step == 19 then
  244. Step19Complete(Quest, QuestGiver, Player)
  245. elseif Step == 20 then
  246. Step20Complete(Quest, QuestGiver, Player)
  247. elseif Step == 21 then
  248. Step21Complete(Quest, QuestGiver, Player)
  249. elseif Step == 22 then
  250. Step22Complete(Quest, QuestGiver, Player)
  251. elseif Step == 23 then
  252. Step23Complete(Quest, QuestGiver, Player)
  253. elseif Step == 24 then
  254. Step24Complete(Quest, QuestGiver, Player)
  255. elseif Step == 25 then
  256. Step25Complete(Quest, QuestGiver, Player)
  257. elseif Step == 26 then
  258. Step26Complete(Quest, QuestGiver, Player)
  259. elseif Step == 27 then
  260. Step27Complete(Quest, QuestGiver, Player)
  261. elseif Step == 28 then
  262. Step28Complete(Quest, QuestGiver, Player)
  263. elseif Step == 29 then
  264. QuestComplete(Quest, QuestGiver, Player)
  265. end
  266. end