9
3

path_of_the_cleric.lua 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287
  1. --[[
  2. Script Name : Quests/Hallmark/path_of_the_cleric.lua
  3. Script Author : Dorbin
  4. Script Date : 2022.11.19 05:11:14
  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. AddQuestStep(Quest, 1, "I need to complete the trial.", 1, 100, "I must complete Aldalad's trial in order to become a cleric.", 11)
  14. AddQuestStepCompleteAction(Quest, 1, "QuestComplete")
  15. end
  16. function Accepted(Quest, QuestGiver, Player)
  17. FaceTarget(QuestGiver, Player)
  18. Dialog.New(QuestGiver, Player)
  19. Dialog.AddDialog("Then I will facilitate a prayer trance for you. You will experience a struggle unlike any you've known before... but upon exiting the trance, should you prove successful, you will emerge with the emotional strength to survive and prosper in the re-forged Norrath. Are you ready?")
  20. --Dialog.AddVoiceover("voiceover/english/hierophant_aldalad/qey_north/hierophant_aldalad017.mp3", 2729819197, 1238324646) WE DON"T HAVE THE VO FOR THIS
  21. PlayFlavor(QuestGiver, "", "", "nod", 0, 0, Player)
  22. Dialog.AddOption("I am.","ClericPort" )
  23. Dialog.AddOption("I will be shortly. I will return.")
  24. Dialog.Start()
  25. if GetQuestStep(Player,5879)==1 then
  26. SetStepComplete(Player,5879,1)
  27. end
  28. end
  29. function ClericPort(QuestGiver,Player)
  30. Trial = GetZone("TheDisconcertingMeditation")
  31. Zone(Trial,Player,-47.02, -45.79, -49.3, 272)
  32. end
  33. function Declined(Quest, QuestGiver, Player)
  34. -- Add dialog here for when the quest is declined
  35. end
  36. function Deleted(Quest, QuestGiver, Player)
  37. -- Remove any quest specific items here when the quest is deleted
  38. end
  39. function QuestComplete(Quest, QuestGiver, Player)
  40. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  41. UpdateQuestStepDescription(Quest, 1, "I've completed the trial.")
  42. UpdateQuestTaskGroupDescription(Quest, 1, "I've completed Aldalad's trial and become a cleric.")
  43. if GetClass(Player)== 11 then
  44. SetAdventureClass(Player,12)
  45. SetPlayerLevel(Player,10)
  46. SendMessage(Player, "Congratulations! You are a Cleric.","yellow")
  47. SendPopUpMessage(Player, "Congratulations! You are a Cleric.",250,250,200)
  48. ApplySpellVisual(Player, 324)
  49. PlaySound(Player, "sounds/test/endquest.wav", GetX(Player), GetY(Player), GetZ(Player), Player)
  50. local level = GetLevel(Player)*5
  51. --WEAPON SKILLS
  52. if not HasSkill(Player, 2463145248) then -- Inspirations
  53. AddSkill(Player, 2463145248,1,level)
  54. SendMessage(Player, "You have learned the Inspirations skill")
  55. end
  56. if not HasSkill(Player, 3341842907) then -- Theurgy/Cleric
  57. AddSkill(Player, 3341842907,1,level)
  58. SendMessage(Player, "You have learned the Theurgy skill")
  59. end
  60. if not HasSkill(Player, 3421494576) then -- Crushing
  61. AddSkill(Player, 3421494576,1,level)
  62. SendMessage(Player, "You have learned the Crushing skill")
  63. end
  64. --CASTING SKILLS
  65. if not HasSkill(Player, 613995491) then -- Disruption
  66. AddSkill(Player, 613995491,1,level)
  67. SendMessage(Player, "You have learned the Disruption skill")
  68. end
  69. if not HasSkill(Player, 366253016) then -- Ministration
  70. AddSkill(Player, 366253016,1,level)
  71. SendMessage(Player, "You have learned the Ministration skill")
  72. end
  73. if not HasSkill(Player, 3587918036) then -- Ordination
  74. AddSkill(Player, 3587918036,1,level)
  75. SendMessage(Player, "You have learned the Ordination skill")
  76. end
  77. if not HasSkill(Player, 882983852) then -- Subjugation
  78. AddSkill(Player, 882983852,1,level)
  79. SendMessage(Player, "You have learned the Subjugation skill")
  80. end
  81. if not HasSkill(Player, 2638198038) then -- Focus
  82. AddSkill(Player, 2638198038,1,level)
  83. SendMessage(Player, "You have learned the Focus skill")
  84. end
  85. --WEAPON SKILLS
  86. if not HasSkill(Player, 4037812502) then -- Buckler
  87. AddSkill(Player, 4037812502,1,level)
  88. SendMessage(Player, "You are now more proficient with a Buckler")
  89. end
  90. if not HasSkill(Player, 545043066) then -- Symbol
  91. AddSkill(Player, 545043066,1,level)
  92. SendMessage(Player, "You are now more proficient with a Symbol")
  93. end
  94. if not HasSkill(Player, 770311065) then -- Mace
  95. AddSkill(Player, 770311065,1,level)
  96. SendMessage(Player, "You are now more proficient with a Mace")
  97. end
  98. if not HasSkill(Player, 554333641) then -- Hammer
  99. AddSkill(Player, 554333641,1,level)
  100. SendMessage(Player, "You are now more proficient with a Hammer")
  101. end
  102. if not HasSkill(Player, 1653482350) then -- Great Hammer
  103. AddSkill(Player, 1653482350,1,level)
  104. SendMessage(Player, "You are now more proficient with a Great Hammer")
  105. end
  106. if not HasSkill(Player, 3180399725) then -- Staff(2h)
  107. AddSkill(Player, 3180399725,1,level)
  108. SendMessage(Player, "You are now more proficient with a Staff")
  109. end
  110. --REMOVE SKILLS
  111. -- Remove Fighter
  112. if HasSkill(Player, 1408356869) then -- Martial/Fighter
  113. RemoveSkill(Player, 1408356869)
  114. end
  115. if HasSkill(Player, 1124719197) then -- Tactics/Warrior
  116. RemoveSkill(Player, 1124719197)
  117. end
  118. if HasSkill(Player, 433335062) then -- Berserk/Berserker
  119. RemoveSkill(Player, 433335062)
  120. end
  121. if HasSkill(Player, 1209716810) then -- Protection/Guardian
  122. RemoveSkill(Player, 1209716810)
  123. end
  124. if HasSkill(Player, 3856706740) then -- Brawl/Brawling
  125. RemoveSkill(Player, 3856706740)
  126. end
  127. if HasSkill(Player, 2011726342) then -- Tranquility/Monk
  128. RemoveSkill(Player, 2011726342)
  129. end
  130. if HasSkill(Player, 3067436248) then -- Physicality/Bruiser
  131. RemoveSkill(Player, 3067436248)
  132. end
  133. if HasSkill(Player, 3809066846) then -- Faith/Crusader
  134. RemoveSkill(Player, 3809066846)
  135. end
  136. if HasSkill(Player, 90523872) then -- Determined Faith/Paladin
  137. RemoveSkill(Player, 90523872)
  138. end
  139. if HasSkill(Player, 2741805322) then -- Determined Zeal/Shadowknight
  140. RemoveSkill(Player, 2741805322)
  141. end
  142. --Remove Scout
  143. if HasSkill(Player, 1921433074) then -- Reconnaissance/Scout
  144. RemoveSkill(Player, 1921433074)
  145. end
  146. if HasSkill(Player, 1311635100) then -- Melodies/Bard
  147. RemoveSkill(Player, 1311635100)
  148. end
  149. if HasSkill(Player, 296246391) then -- Ballads/Troubador
  150. RemoveSkill(Player, 296246391)
  151. end
  152. if HasSkill(Player, 340921594) then -- Dirges/Dirge
  153. RemoveSkill(Player, 340921594)
  154. end
  155. if HasSkill(Player, 1514256692) then -- Skulldugery/Rogue
  156. RemoveSkill(Player, 1514256692)
  157. end
  158. if HasSkill(Player, 3167106577) then -- Stalking/Predator
  159. RemoveSkill(Player, 3167106577)
  160. end
  161. if HasSkill(Player, 2663054519) then -- Swashbuckling/Swashbuckler
  162. RemoveSkill(Player, 2663054519)
  163. end
  164. if HasSkill(Player, 1519965519) then -- Banditry/Brigand
  165. RemoveSkill(Player, 1519965519)
  166. end
  167. if HasSkill(Player, 1400160844) then -- Archery/Ranger
  168. RemoveSkill(Player, 1400160844)
  169. end
  170. if HasSkill(Player, 2711101135) then -- Assassination/Assassin
  171. RemoveSkill(Player, 2711101135)
  172. end
  173. --Removed Priest
  174. if HasSkill(Player, 2463145248) then -- Inspirations/Priest
  175. RemoveSkill(Player, 2463145248)
  176. end
  177. if HasSkill(Player, 2581053277) then -- Regimens/Templar
  178. RemoveSkill(Player, 2581053277)
  179. end
  180. if HasSkill(Player, 1829443087) then -- Inquisitions/Inquisitor
  181. RemoveSkill(Player, 1829443087)
  182. end
  183. if HasSkill(Player, 3282420779) then -- Archegenesis/Druid
  184. RemoveSkill(Player, 3282420779)
  185. end
  186. if HasSkill(Player, 1624274802) then -- Nature's Reckoning/Fury
  187. RemoveSkill(Player, 1624274802)
  188. end
  189. if HasSkill(Player, 1040683335) then -- Nature's Refuge/Warden
  190. RemoveSkill(Player, 1040683335)
  191. end
  192. if HasSkill(Player, 3343700951) then -- Talismans/Shaman
  193. RemoveSkill(Player, 3343700951)
  194. end
  195. if HasSkill(Player, 3467160477) then -- Fetichisms/Mystic
  196. RemoveSkill(Player, 3467160477)
  197. end
  198. if HasSkill(Player, 3191839982) then -- Vehemence/Defiler
  199. RemoveSkill(Player, 3191839982)
  200. end
  201. --Removed Mage
  202. if HasSkill(Player, 3820670534) then -- Evocations/Mage
  203. RemoveSkill(Player, 3820670534)
  204. end
  205. if HasSkill(Player, 287643040) then -- Enchantments/Enchanter
  206. RemoveSkill(Player, 287643040)
  207. end
  208. if HasSkill(Player, 2898101972) then -- Hallucinations/Illusionist
  209. RemoveSkill(Player, 2898101972)
  210. end
  211. if HasSkill(Player, 2950599749) then -- Protean/Coecerer
  212. RemoveSkill(Player, 2950599749)
  213. end
  214. if HasSkill(Player, 2533124061) then -- Sorcery/Sorcerer
  215. RemoveSkill(Player, 2533124061)
  216. end
  217. if HasSkill(Player, 2662430630) then -- Elemental Mastery/Wizard
  218. RemoveSkill(Player, 2662430630)
  219. end
  220. if HasSkill(Player, 193411854) then -- Noctivagance/Warlock
  221. RemoveSkill(Player, 193411854)
  222. end
  223. if HasSkill(Player, 2120065377) then -- Legerdemain/Summoner
  224. RemoveSkill(Player, 2120065377)
  225. end
  226. if HasSkill(Player, 2042842194) then -- Conjurations/Conjurer
  227. RemoveSkill(Player, 2042842194)
  228. end
  229. if HasSkill(Player, 289471519) then -- Sepulchers/Necromancer
  230. RemoveSkill(Player, 289471519)
  231. end
  232. --REMOVE WEAPON
  233. if HasSkill(Player, 2246237129) then -- Medium Armor
  234. RemoveSkill(Player, 2246237129)
  235. end
  236. if HasSkill(Player, 241174330) then -- Heavy Armor
  237. RemoveSkill(Player, 241174330)
  238. end
  239. if HasSkill(Player, 3177806075) then -- Fists
  240. RemoveSkill(Player, 3177806075)
  241. end
  242. if HasSkill(Player, 2292577688) then -- Great Sword
  243. RemoveSkill(Player, 2292577688)
  244. end
  245. if HasSkill(Player, 2954459351) then -- Great Axe
  246. RemoveSkill(Player, 2954459351)
  247. end
  248. if HasSkill(Player, 1653482350) then -- Great Spear
  249. RemoveSkill(Player, 1653482350)
  250. end
  251. if HasSkill(Player, 1616998748) then -- Spear
  252. RemoveSkill(Player, 1616998748)
  253. end
  254. if HasSkill(Player, 3173504370) then -- Round Shield
  255. RemoveSkill(Player, 3173504370)
  256. end
  257. if HasSkill(Player, 2608320658) then -- Kite Shield
  258. RemoveSkill(Player, 2608320658)
  259. end
  260. if HasSkill(Player, 570458645) then -- Tower Shield
  261. RemoveSkill(Player, 570458645)
  262. end
  263. end
  264. UpdateQuestDescription(Quest, "After a somewhat surreal dream, I have cemented my beliefs and become a true cleric. I stride forth with a renewed faith and will prove my worth to those around me in my adventures to come.")
  265. GiveQuestReward(Quest, Player)
  266. end
  267. function Reload(Quest, QuestGiver, Player, Step)
  268. if Step == 1 then
  269. QuestComplete(Quest, QuestGiver, Player)
  270. end
  271. end