9
3

welcome_to_qeynos_Starcrest.lua 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170
  1. --[[
  2. Script Name : Quests/Hallmark/welcome_to_qeynos_Starcrest.lua
  3. Script Author : Dorbin
  4. Script Date : 2022.10.28 03:10:03
  5. Script Purpose :
  6. Zone : Hallmark
  7. Quest Giver:
  8. Preceded by: None
  9. Followed by:
  10. --]]
  11. require "SpawnScripts/Generic/DialogModule"
  12. function Init(Quest)
  13. AddQuestStepZoneLoc(Quest, 1, "Use the room door to be given your inn room. Click on the \"Buy\" button to get your room. Once you have purchased your room click on \"Enter\" to enter your room.", 10, "I've been instructed to sign in at the inn's guest registry in order to get the key to my room.", 11,-5.21, 0.00, 0.03,223)
  14. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  15. UpdateQuestZone(Quest,"Starcrest Commune")
  16. end
  17. function Accepted(Quest, QuestGiver, Player)
  18. FaceTarget(QuestGiver, Player)
  19. Dialog.New(QuestGiver, Player)
  20. Dialog.AddDialog("You are in the Starcrest Commune, a village surrounding the city of Qeynos. Many humans and Erudites call Starcrest home. Soon, you will call it home as well. Please, venture on now. Your new caretaker awaits you. I've confidence in you, young one. I know you will do well in our village.")
  21. PlayFlavor(QuestGiver,"","","orate",0,0,Player)
  22. Dialog.AddVoiceover("voiceover/english/steward_daedeakovoon/qey_village02/steward_daedeakovoon004.mp3", 2169284616, 3409785704)
  23. Dialog.AddOption("Well, thank you for your assistance, Steward.")
  24. Dialog.Start()
  25. if HasQuest(Player,5717) and GetQuestStep(Player,5717)==2 then
  26. SetStepComplete(Player,5717,2)
  27. end
  28. if HasQuest(Player,5792) and GetQuestStep(Player,5792)==2 then
  29. SetStepComplete(Player,5792,2)
  30. end
  31. end
  32. function Step1Complete(Quest, QuestGiver, Player)
  33. UpdateQuestStepDescription(Quest, 1, "I've been given your inn room")
  34. UpdateQuestTaskGroupDescription(Quest, 1, "I've been given the key to my room and can now come and go as I please.")
  35. AddQuestStepChat(Quest, 2, "I need to introduce myself to the caretaker.", 1, "I need to introduce myself to the caretaker",11,2230785)
  36. AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
  37. end
  38. function Step2Complete(Quest, QuestGiver, Player)
  39. UpdateQuestStepDescription(Quest, 2, "I've introduced myself to the caretaker of my room")
  40. UpdateQuestTaskGroupDescription(Quest, 2, "I've introduced myself to the caretaker of my innroom, Ms. Fairlee.")
  41. AddQuestStep(Quest, 3, "I need to place the table in my inn room and speak with the caretaker.", 1, 100, "I've spoken with the caretaker of the inn, Fairlee. She gave me a table to put in my room, claiming that the Ironforge Exchange has offered it to me. I should place this on the floor and then continue speaking with her.",11)
  42. AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
  43. end
  44. function Step3Complete(Quest, QuestGiver, Player)
  45. UpdateQuestStepDescription(Quest, 3, "I've placed the table and spoken with the caretaker.")
  46. UpdateQuestTaskGroupDescription(Quest, 3, "I've placed the table and spoken with the caretaker.")
  47. AddQuestStepChat(Quest, 4, "Speak with the Banker Orudormo in Starcrest Commune.", 1, "Ms. Fairlee has informed me that I have a bank account waiting for me. I need to speak with the Banker Caroline to open the account.",11,2340031)
  48. AddQuestStepCompleteAction(Quest, 4, "Step4Complete")
  49. end
  50. function Step4Complete(Quest, QuestGiver, Player)
  51. UpdateQuestStepDescription(Quest, 4, "I've spoken with the Banker Orudormo in Starcrest Commune.")
  52. UpdateQuestTaskGroupDescription(Quest, 4, "I've spoken with the Banker in the Starcrest Commune.")
  53. AddQuestStepChat(Quest, 5, "Return to your room and speak with Caretaker Fairlee.", 1, "I should return to the caretaker in my inn room.",11,2230785)
  54. AddQuestStepCompleteAction(Quest, 5, "Step5Complete")
  55. end
  56. function Step5Complete(Quest, QuestGiver, Player)
  57. UpdateQuestStepDescription(Quest, 5, "I've returned to my room and spoken with caretaker Fairlee.")
  58. UpdateQuestTaskGroupDescription(Quest, 5, "I've returned to my room and spoken with caretaker Fairlee. She gave me a painting of hers to place on my walls.")
  59. AddQuestStep(Quest, 6, "Open your inventory. \"Place\" your new painting and then speak with the caretaker.", 1,100, "Caretake Fairlee has suggested that I place the painting on my walls to liven up the place. I should place the painting and then ask her about Starcrest Commune.",0)
  60. AddQuestStepCompleteAction(Quest, 6, "Step6Complete")
  61. end
  62. function Step6Complete(Quest, QuestGiver, Player)
  63. UpdateQuestStepDescription(Quest, 6, "I've placed the painting and spoken with the caretaker.")
  64. UpdateQuestTaskGroupDescription(Quest, 6, "I've placed the painting and spoken with the caretaker.")
  65. UpdateQuestZone(Quest,"Peat Bog")
  66. AddQuestStepZoneLoc(Quest, 7, "I need to visit the gates to the Peat Bog.",15,"\"Some people choose to adventure in the Peat Bog. It's a dangerous place, so watch yourself. Here's where you can find the gates to the Bog. I'll show you a few other places after you take a look at the gates.\" - Ms. Fairlee", 11,755.67, -26.52, 372.22,829)
  67. AddQuestStepCompleteAction(Quest, 7, "Step7Complete")
  68. end
  69. function Step7Complete(Quest, QuestGiver, Player)
  70. UpdateQuestStepDescription(Quest, 7, "I've found the gates to the Peat Bog.")
  71. UpdateQuestTaskGroupDescription(Quest, 7, "I've visisted one of four locations Ms. Fairlee has told me about.")
  72. UpdateQuestZone(Quest,"Starcrest Commune")
  73. AddQuestStepChat(Quest, 8, "I need to introduce myself to the Starcrest crafting trainer, Erian Seaver.",1,"\"Not all coin gained by refugees comes from battling vermin. Crafting is a great opportunity for some refugees to become skilled in a tradeskill. You should meet with the crafting trainer outside The Luminary Cache so you become familiar with where to begin a tradeskill if you so desire.\" - Ms. Fairlee", 11,2340036)
  74. AddQuestStepCompleteAction(Quest, 8, "Step8Complete")
  75. end
  76. function Step8Complete(Quest, QuestGiver, Player)
  77. UpdateQuestStepDescription(Quest, 8, "I've met with the village crafting trainer.")
  78. UpdateQuestTaskGroupDescription(Quest, 8, "I've visisted two of four locations Ms. Fairlee has told me about.")
  79. AddQuestStepZoneLoc(Quest, 9, "I need to locate the grate to the Down Below.",6,"\"Some of the more adventurous souls help keep the city clean of vermin by venturing into the catacombs. You can find the grate leading down to them if you take a close look. I'll show you where you can find the entrance to the catacombs. After that, I'll show you one more place.\" - Ms. Fairlee", 0,809.60, -19.90, 257.14,234)
  80. AddQuestStepCompleteAction(Quest, 9, "Step9Complete")
  81. end
  82. function Step9Complete(Quest, QuestGiver, Player)
  83. UpdateQuestStepDescription(Quest, 9, "I've found the enterence to the Down Below.")
  84. UpdateQuestTaskGroupDescription(Quest, 9, "I've visisted three of four locations Ms. Fairlee has told me about.")
  85. AddQuestStep(Quest, 10, "I need to locate the gates to South Qeynos.",1,100, "\"Even though only citizens can travel into the city proper, it would be rude not to at least show where the gates to Qeynos are. I'll lead you over to where you can find the gates into the city. I should be done with fixing up the place by the time you get back.\" - Ms. Fairlee", 11)
  86. AddQuestStepCompleteAction(Quest, 10, "Step10Complete")
  87. end
  88. function Step10Complete(Quest, QuestGiver, Player)
  89. UpdateQuestStepDescription(Quest, 10, "I've visited the inner city gates but was not allowed access.")
  90. UpdateQuestTaskGroupDescription(Quest, 10, "I've visisted all four locations Ms. Fairlee has told me about.")
  91. AddQuestStepChat(Quest, 11, "I need to return to my room and ask Ms. Fairlee why I can't enter the city.", 1, 100, "I should return back to my room and ask Ms. Fairlee why the guard didn't allow me to enter into the city. Hopefully she might know why.",11,2230785)
  92. AddQuestStepCompleteAction(Quest, 11, "Step11Complete")
  93. end
  94. function Step11Complete(Quest, QuestGiver, Player)
  95. UpdateQuestStepDescription(Quest, 11, "I've spoken with Ms. Fairlee and have been given another piece of furniture, this time a chandelier.")
  96. UpdateQuestTaskGroupDescription(Quest, 11, "I've spoken with Ms. Fairlee and have been given another piece of furniture, this time a chandelier.")
  97. AddQuestStep(Quest, 12, "Open your inventory. \"Place\" your new chandelier and then speak with the caretaker.", 1, 100,"As if two pieces of furniture weren't enough, I now have a chandelier some neighbors brought by. I should place this on my ceiling for better lighting and then ask Ms. Fairlee why the guard said only \"citizens\" were allowed into the city.",11)
  98. AddQuestStepCompleteAction(Quest, 12, "Step12Complete")
  99. end
  100. function Step12Complete(Quest, QuestGiver, Player)
  101. UpdateQuestStepDescription(Quest, 12, "I've placed the chandelier on the ceiling and spoke with Ms. Fairlee.")
  102. UpdateQuestTaskGroupDescription(Quest, 12, "I've placed the chandelier on the ceiling and spoke with Ms. Fairlee.")
  103. AddQuestStep(Quest, 13, "Take an application from the citizenship sign, complete the task, then speak with Marshal Glorfel by using the citizenship sign again.", 1, 100,"\"If you want to deal with all the hub-bub of city life, then you'll want to go to the citizenship sign at the city gates. Pull an application from the wall and fulfill the application task, afterwards return to the sign and use it to speak with Marshal Glorfel about becoming a citizen. If you ask me, I don't know what's wrong with settling down here. It's a nice sleepy village, not troubled with excitement and danger and all that. But then again, you kids like that kind of thing. Well, good luck to you!\" - Ms. Fairlee",11)
  104. AddQuestStepCompleteAction(Quest, 13, "Step13Complete")
  105. end
  106. function Step13Complete(Quest, QuestGiver, Player)
  107. UpdateQuestStepDescription(Quest, 13, "I've spoken with Marshal Glorfel and have been told how to become a citizen.")
  108. UpdateQuestTaskGroupDescription(Quest, 13, "I've spoken with Marshal Glorfel and have been told how to become a citizen.")
  109. AddQuestStepChat(Quest, 14, "Judge the traitors individually and prove your loyalty to Qeynos.", 1,"Marshal Glorfel has tasked me with rendering judgment upon some treasonous residents in order to gain citizenship. He has pointed out that there are those who would betray our great city to that wretch Lucan. To prove myself, I will have to render final judgment on all of them.",11,22101350)
  110. AddQuestStepCompleteAction(Quest, 14, "QuestComplete")
  111. end
  112. function QuestComplete(Quest, QuestGiver, Player)
  113. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  114. UpdateQuestStepDescription(Quest, 14, "I have completed the Citizenship Trial and am now a citizen of Qeynos.")
  115. UpdateQuestTaskGroupDescription(Quest, 14, "I am now a citizen of Qeynos!")
  116. UpdateQuestDescription(Quest, "Thanks to the help of the inn's caretaker, I've been able to familiarize myself with the Baubbleshire. Not only did she show me the way around, she also let me know who to speak to in order to become a citizen.")
  117. GiveQuestReward(Quest, Player)
  118. end
  119. function Reload(Quest, QuestGiver, Player, Step)
  120. if Step == 1 then
  121. Step1Complete(Quest, QuestGiver, Player)
  122. elseif Step == 2 then
  123. Step2Complete(Quest, QuestGiver, Player)
  124. elseif Step == 3 then
  125. Step3Complete(Quest, QuestGiver, Player)
  126. elseif Step == 4 then
  127. Step4Complete(Quest, QuestGiver, Player)
  128. elseif Step == 5 then
  129. Step5Complete(Quest, QuestGiver, Player)
  130. elseif Step == 6 then
  131. Step6Complete(Quest, QuestGiver, Player)
  132. elseif Step == 7 then
  133. Step7Complete(Quest, QuestGiver, Player)
  134. elseif Step == 8 then
  135. Step8Complete(Quest, QuestGiver, Player)
  136. elseif Step == 9 then
  137. Step9Complete(Quest, QuestGiver, Player)
  138. elseif Step == 10 then
  139. Step10Complete(Quest, QuestGiver, Player)
  140. elseif Step == 11 then
  141. Step11Complete(Quest, QuestGiver, Player)
  142. elseif Step == 12 then
  143. Step12Complete(Quest, QuestGiver, Player)
  144. elseif Step == 13 then
  145. Step13Complete(Quest, QuestGiver, Player)
  146. elseif Step == 14 then
  147. QuestComplete(Quest, QuestGiver, Player)
  148. end
  149. end