9
3

path_of_the_rogue.lua 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332
  1. --[[
  2. Script Name : Quests/Hallmark/path_of_the_rogue.lua
  3. Script Author : Dorbin
  4. Script Date : 2022.11.29 02:11:26
  5. Script Purpose :
  6. Zone : Hallmark
  7. Quest Giver: Councilor Vemerik
  8. Preceded by: Scout Training pt. II
  9. Followed by: None
  10. --]]
  11. require "SpawnScripts/Generic/DialogModule"
  12. function Init(Quest)
  13. AddQuestStep(Quest, 1, "I need to steal the orders from the safehouse in Qeynos Harbor.", 1, 100, "I need to steal the plans from a lieutenant in the Qeynos harbor.", 75)
  14. AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
  15. end
  16. function Accepted(Quest, QuestGiver, Player)
  17. FaceTarget(QuestGiver, Player)
  18. Dialog.New(QuestGiver, Player)
  19. Dialog.AddDialog("I'd like you to check in on a new squad of soldiers. Go steal a note from underneath their noses. If you succeed, then the guards need more training and if you fail, then obviously, you're not ready to be a rogue.")
  20. Dialog.AddVoiceover("voiceover/english/counselor_vemerik/qey_north/counselor_vemerik029.mp3", 2070937138, 2065993519)
  21. PlayFlavor(QuestGiver, "", "", "agree", 0, 0, Player)
  22. Dialog.AddOption("What kind of note am I looking for?","Rogue3")
  23. Dialog.Start()
  24. if GetQuestStep(Player,5880)==1 then
  25. SetStepComplete(Player,5880,1)
  26. end
  27. end
  28. function Declined(Quest, QuestGiver, Player)
  29. -- Add dialog here for when the quest is declined
  30. end
  31. function Deleted(Quest, QuestGiver, Player)
  32. -- Remove any quest specific items here when the quest is deleted
  33. end
  34. function Step1Complete(Quest, QuestGiver, Player)
  35. UpdateQuestStepDescription(Quest, 1, "I've stolen the orders.")
  36. UpdateQuestTaskGroupDescription(Quest, 1, "I've stolen the plans out from under the watchful patrol.")
  37. AddQuestStepChat(Quest, 2, "I need to return the document to Vemerik.", 1, "I need to return the documents I've stolen to Counselor Vemerik in North Qeynos.", 75, 2220485)
  38. AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
  39. end
  40. function QuestComplete(Quest, QuestGiver, Player)
  41. -- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
  42. UpdateQuestStepDescription(Quest, 2, "I've spoken with Vemerik.")
  43. UpdateQuestTaskGroupDescription(Quest, 2, "I've returned and spoken with Counselor Vemerik.")
  44. if GetClass(Player)== 31 then
  45. SetAdventureClass(Player,32)
  46. SetPlayerLevel(Player,10)
  47. SendMessage(Player, "Congratulations! You are a Rogue.","yellow")
  48. SendPopUpMessage(Player, "Congratulations! You are a Rogue.",250,250,200)
  49. ApplySpellVisual(Player, 324)
  50. PlaySound(Player, "sounds/test/endquest.wav", GetX(Player), GetY(Player), GetZ(Player), Player)
  51. local level = GetLevel(Player)*5
  52. if not HasSkill(Player, 1921433074) then -- Reconnaissance
  53. AddSkill(Player, 1921433074,1,level)
  54. SendMessage(Player, "You have learned the Reconnaissance skill")
  55. end
  56. if not HasSkill(Player, 1514256692) then -- Skulldugery/Rogue
  57. AddSkill(Player, 1514256692,1,level)
  58. SendMessage(Player, "You have learned the Skulldugery skill")
  59. end
  60. if not HasSkill(Player, 1468243427) then -- Tracking
  61. AddSkill(Player, 1468243427,1,level)
  62. SendMessage(Player, "You have learned the Tracking skill")
  63. end
  64. if not HasSkill(Player, 2200201799) then -- Disarm Trap
  65. AddSkill(Player, 2200201799,1,level)
  66. SendMessage(Player, "You have learned the Disarm Trap skill")
  67. end
  68. if not HasSkill(Player, 3232294366) then -- Safe Fall
  69. AddSkill(Player, 3232294366,31,level)
  70. SendMessage(Player, "You have learned the Safe Fall skill")
  71. end
  72. if not HasSkill(Player, 1756482397) then -- Ranged
  73. AddSkill(Player, 1756482397,1,level)
  74. SendMessage(Player, "You have learned the Ranged skill")
  75. end
  76. if not HasSkill(Player, 3048574950) then -- Piercing
  77. AddSkill(Player, 3048574950,1,level)
  78. SendMessage(Player, "You have learned the Piercing skill")
  79. end
  80. if not HasSkill(Player, 418532101,1,level) then -- Slashing
  81. AddSkill(Player, 418532101,1,level)
  82. SendMessage(Player, "You have learned the Slashing skill")
  83. end
  84. if not HasSkill(Player, 1852383242) then -- Dual Wield
  85. AddSkill(Player, 1852383242,1,level)
  86. SendMessage(Player, "You have learned the Dual Wield skill")
  87. end
  88. if not HasSkill(Player, 2650425026) then -- Thrown Weapon
  89. AddSkill(Player, 2650425026,1,level)
  90. SendMessage(Player, "You have learned the Thrown Weapon skill")
  91. end
  92. if not HasSkill(Player, 2638198038) then -- Focus
  93. AddSkill(Player, 2638198038,1,level)
  94. SendMessage(Player, "You have learned the Focus skill")
  95. end
  96. --WEAPON SKILLS
  97. if not HasSkill(Player, 2897193374) then -- Light Armor
  98. AddSkill(Player, 2897193374,1,level)
  99. SendMessage(Player, "You are now more proficient with Light Armor")
  100. end
  101. if not HasSkill(Player, 4037812502) then -- Buckler
  102. AddSkill(Player, 4037812502,1,level)
  103. SendMessage(Player, "You are now more proficient with a Buckler")
  104. end
  105. if not HasSkill(Player, 3173504370) then -- Roundshield
  106. AddSkill(Player, 3173504370,1,level)
  107. SendMessage(Player, "You are now more proficient with a Roundshield")
  108. end
  109. if not HasSkill(Player, 1616998748) then -- Spear
  110. AddSkill(Player, 1616998748,1,level)
  111. SendMessage(Player, "You are now more proficient with a Spear")
  112. end
  113. if not HasSkill(Player, 887279616) then -- Dagger
  114. AddSkill(Player, 887279616,1,level)
  115. SendMessage(Player, "You are now more proficient with a Dagger")
  116. end
  117. if not HasSkill(Player, 1743366740) then -- Bow
  118. AddSkill(Player, 1743366740,1,level)
  119. SendMessage(Player, "You are now more proficient with a Bow")
  120. end
  121. if not HasSkill(Player, 2476073427) then -- Axe
  122. AddSkill(Player, 2476073427,1,level)
  123. SendMessage(Player, "You are now more proficient with an Axe")
  124. end
  125. if not HasSkill(Player, 770311065) then -- Mace
  126. AddSkill(Player, 770311065,1,level)
  127. SendMessage(Player, "You are now more proficient with a Mace")
  128. end
  129. if not HasSkill(Player, 641561514) then -- Rapier
  130. AddSkill(Player, 641561514,1,level)
  131. SendMessage(Player, "You are now more proficient with a Rapier")
  132. end
  133. if not HasSkill(Player, 1696217328) then -- Sword
  134. AddSkill(Player, 1696217328,1,level)
  135. SendMessage(Player, "You are now more proficient with a Sword")
  136. end
  137. --REMOVE SKILLS
  138. -- Remove Fighter for Scout
  139. if HasSkill(Player, 1408356869) then -- Martial/Fighter
  140. RemoveSkill(Player, 1408356869)
  141. end
  142. if HasSkill(Player, 1124719197) then -- Tactics/Warrior
  143. RemoveSkill(Player, 1124719197)
  144. end
  145. if HasSkill(Player, 433335062) then -- Berserk/Berserker
  146. RemoveSkill(Player, 433335062)
  147. end
  148. if HasSkill(Player, 1209716810) then -- Protection/Guardian
  149. RemoveSkill(Player, 1209716810)
  150. end
  151. if HasSkill(Player, 3856706740) then -- Brawl/Brawling
  152. RemoveSkill(Player, 3856706740)
  153. end
  154. if HasSkill(Player, 2011726342) then -- Tranquility/Monk
  155. RemoveSkill(Player, 2011726342)
  156. end
  157. if HasSkill(Player, 3067436248) then -- Physicality/Bruiser
  158. RemoveSkill(Player, 3067436248)
  159. end
  160. if HasSkill(Player, 3809066846) then -- Faith/Crusader
  161. RemoveSkill(Player, 3809066846)
  162. end
  163. if HasSkill(Player, 90523872) then -- Determined Faith/Paladin
  164. RemoveSkill(Player, 90523872)
  165. end
  166. if HasSkill(Player, 2741805322) then -- Determined Zeal/Shadowknight
  167. RemoveSkill(Player, 2741805322)
  168. end
  169. --Removed Advance Scout
  170. if HasSkill(Spawn, 1311635100) then -- Melodies/Bard
  171. RemoveSkill(Spawn, 1311635100)
  172. end
  173. if HasSkill(Player, 296246391) then -- Ballads/Troubador
  174. RemoveSkill(Player, 296246391)
  175. end
  176. if HasSkill(Player, 340921594) then -- Dirges/Dirge
  177. RemoveSkill(Player, 340921594)
  178. end
  179. if HasSkill(Player, 3167106577) then -- Stalking/Predator
  180. RemoveSkill(Player, 3167106577)
  181. end
  182. if HasSkill(Player, 2663054519) then -- Swashbuckling/Swashbuckler
  183. RemoveSkill(Player, 2663054519)
  184. end
  185. if HasSkill(Player, 1519965519) then -- Banditry/Brigand
  186. RemoveSkill(Player, 1519965519)
  187. end
  188. if HasSkill(Player, 1400160844) then -- Archery/Ranger
  189. RemoveSkill(Player, 1400160844)
  190. end
  191. if HasSkill(Player, 2711101135) then -- Assassination/Assassin
  192. RemoveSkill(Player, 2711101135)
  193. end
  194. --Removed Priest for Scout
  195. if HasSkill(Player, 2463145248) then -- Inspirations/Priest
  196. RemoveSkill(Player, 2463145248)
  197. end
  198. if HasSkill(Player, 3341842907) then -- Theurgy/Cleric
  199. RemoveSkill(Player, 3341842907)
  200. end
  201. if HasSkill(Player, 2581053277) then -- Regimens/Templar
  202. RemoveSkill(Player, 2581053277)
  203. end
  204. if HasSkill(Player, 1829443087) then -- Inquisitions/Inquisitor
  205. RemoveSkill(Player, 1829443087)
  206. end
  207. if HasSkill(Player, 3282420779) then -- Archegenesis/Druid
  208. RemoveSkill(Player, 3282420779)
  209. end
  210. if HasSkill(Player, 1624274802) then -- Nature's Reckoning/Fury
  211. RemoveSkill(Player, 1624274802)
  212. end
  213. if HasSkill(Player, 1040683335) then -- Nature's Refuge/Warden
  214. RemoveSkill(Player, 1040683335)
  215. end
  216. if HasSkill(Player, 3343700951) then -- Talismans/Shaman
  217. RemoveSkill(Player, 3343700951)
  218. end
  219. if HasSkill(Player, 3467160477) then -- Fetichisms/Mystic
  220. RemoveSkill(Player, 3467160477)
  221. end
  222. if HasSkill(Player, 3191839982) then -- Vehemence/Defiler
  223. RemoveSkill(Player, 3191839982)
  224. end
  225. --Removed Mage for Scout
  226. if HasSkill(Player, 3820670534) then -- Evocations/Mage
  227. RemoveSkill(Player, 3820670534)
  228. end
  229. if HasSkill(Player, 287643040) then -- Enchantments/Enchanter
  230. RemoveSkill(Player, 287643040)
  231. end
  232. if HasSkill(Player, 2898101972) then -- Hallucinations/Illusionist
  233. RemoveSkill(Player, 2898101972)
  234. end
  235. if HasSkill(Player, 2950599749) then -- Protean/Coecerer
  236. RemoveSkill(Player, 2950599749)
  237. end
  238. if HasSkill(Player, 2533124061) then -- Sorcery/Sorcerer
  239. RemoveSkill(Player, 2533124061)
  240. end
  241. if HasSkill(Player, 2662430630) then -- Elemental Mastery/Wizard
  242. RemoveSkill(Player, 2662430630)
  243. end
  244. if HasSkill(Player, 193411854) then -- Noctivagance/Warlock
  245. RemoveSkill(Player, 193411854)
  246. end
  247. if HasSkill(Player, 2120065377) then -- Legerdemain/Summoner
  248. RemoveSkill(Player, 2120065377)
  249. end
  250. if HasSkill(Player, 2042842194) then -- Conjurations/Conjurer
  251. RemoveSkill(Player, 2042842194)
  252. end
  253. if HasSkill(Player, 289471519) then -- Sepulchers/Necromancer
  254. RemoveSkill(Player, 289471519)
  255. end
  256. --REMOVE WEAPON
  257. if HasSkill(Player, 2246237129) then -- Medium Armor
  258. RemoveSkill(Player, 2246237129)
  259. end
  260. if HasSkill(Player, 241174330) then -- Heavy Armor
  261. RemoveSkill(Player, 241174330)
  262. end
  263. if HasSkill(Player, 3177806075) then -- Fists
  264. RemoveSkill(Player, 3177806075)
  265. end
  266. if HasSkill(Player, 2292577688) then -- Great Sword
  267. RemoveSkill(Player, 2292577688)
  268. end
  269. if HasSkill(Player, 2954459351) then -- Great Axe
  270. RemoveSkill(Player, 2954459351)
  271. end
  272. if HasSkill(Player, 1653482350) then -- Great Spear
  273. RemoveSkill(Player, 1653482350)
  274. end
  275. if HasSkill(Player, 1616998748) then -- Spear
  276. RemoveSkill(Player, 1616998748)
  277. end
  278. if HasSkill(Player, 2608320658) then -- Kite Shield
  279. RemoveSkill(Player, 2608320658)
  280. end
  281. if HasSkill(Player, 570458645) then -- Tower Shield
  282. RemoveSkill(Player, 570458645)
  283. end
  284. if HasSkill(Player, 540022425) then -- Parry
  285. RemoveSkill(Player, 540022425)
  286. end
  287. if HasSkill(Player, 1553857724) then -- Investigation
  288. RemoveSkill(Player, 1553857724)
  289. end
  290. if HasSkill(Player, 3429135390) then -- Mystical Destruction
  291. RemoveSkill(Player, 3429135390)
  292. end
  293. if HasSkill(Player, 366253016) then --Ministration
  294. RemoveSkill(Player, 366253016)
  295. end
  296. if HasSkill(Player, 613995491) then -- Disruption
  297. RemoveSkill(Player, 613995491)
  298. end
  299. if HasSkill(Player, 882983852) then -- Subjigation
  300. RemoveSkill(Player, 882983852)
  301. end
  302. if HasSkill(Player, 3587918036) then -- Ordination
  303. RemoveSkill(Player, 3587918036)
  304. end
  305. end
  306. UpdateQuestDescription(Quest, "I managed to grab the lieutenant's orders out from under the watchful eye of the Qeynos guard. I'm sure they'll be put through some rigorous training after this to help them keep a sharper eye out in the future, but that's not my concern now!")
  307. GiveQuestReward(Quest, Player)
  308. end
  309. function Reload(Quest, QuestGiver, Player, Step)
  310. if Step == 1 then
  311. Step1Complete(Quest, QuestGiver, Player)
  312. elseif Step == 2 then
  313. QuestComplete(Quest, QuestGiver, Player)
  314. end
  315. end