9
3

BardCertificationPapers.lua 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328
  1. --[[
  2. Script Name : ItemScripts/BardCertificationPapers.lua
  3. Script Author : Dorbin
  4. Script Date : 2023.06.14 10:06:07
  5. Script Purpose :
  6. :
  7. --]]
  8. local Quest = 5855
  9. function examined(Item, Player)
  10. conversation = CreateConversation()
  11. if GetClass(Player)==0 or GetClass(Player)==31 then
  12. AddConversationOption(conversation, "[Glance over the forms]","Intro")
  13. end
  14. if CanReceiveQuest(Player,Quest) then
  15. AddConversationOption(conversation, "[Turn in these papers for gear]","QuestStart")
  16. end
  17. AddConversationOption(conversation, "[Put the certificate away]","CloseItemConversation")
  18. StartDialogConversation(conversation, 2, Item, Player, "This certificate would make you a \"Bard\" if you signed it and are a Commoner or Scout.\n\nTHIS ACTION IS FINAL!\n\nRead further if you wish to become a Bard.")
  19. end
  20. function Intro(Item, Player)
  21. conversation = CreateConversation()
  22. AddConversationOption(conversation, ""..GetName(Player).." the Bard","Class")
  23. AddConversationOption(conversation, "[Put the certificate away]","CloseItemConversation")
  24. StartDialogConversation(conversation, 2, Item, Player, "-- OFFICIAL DOCUMENT --\n\n I, "..GetName(Player)..", am a Bard as proof by trainer [illegible scribbles].\n\nSigned,")
  25. end
  26. function Class(Item, Player)
  27. conversation = CreateConversation()
  28. if CanReceiveQuest(Player,Quest) then
  29. AddConversationOption(conversation, "[Turn in these papers for gear]","QuestStart")
  30. end
  31. AddConversationOption(conversation, "[Put the signed certificate away]","TaskDone")
  32. StartDialogConversation(conversation, 2, Item, Player, "You are now known as \n\n"..GetName(Player).." the Bard.")
  33. if GetClass(Player)== 1 or GetClass(Player)== 0 then
  34. SetAdventureClass(Player,35)
  35. local level = GetLevel(Player)*5
  36. if not HasSkill(Player, 1921433074) then -- Reconnaissance
  37. AddSkill(Player, 1921433074,1,level)
  38. SendMessage(Player, "You have learned the Reconnaissance skill")
  39. end
  40. if not HasSkill(Player, 1311635100) then -- Melodies/Bard
  41. AddSkill(Player, 1311635100,1,level)
  42. SendMessage(Player, "You have learned the Melodies skill")
  43. end
  44. if not HasSkill(Player, 1468243427) then -- Tracking
  45. AddSkill(Player, 1468243427,1,level)
  46. SendMessage(Player, "You have learned the Tracking skill")
  47. end
  48. if not HasSkill(Player, 2200201799) then -- Disarm Trap
  49. AddSkill(Player, 2200201799,1,level)
  50. SendMessage(Player, "You have learned the Disarm Trap skill")
  51. end
  52. if not HasSkill(Player, 3232294366) then -- Safe Fall
  53. AddSkill(Player, 3232294366,31,level)
  54. SendMessage(Player, "You have learned the Safe Fall skill")
  55. end
  56. if not HasSkill(Player, 1756482397) then -- Ranged
  57. AddSkill(Player, 1756482397,1,level)
  58. SendMessage(Player, "You have learned the Ranged skill")
  59. end
  60. if not HasSkill(Player, 3048574950) then -- Piercing
  61. AddSkill(Player, 3048574950,1,level)
  62. SendMessage(Player, "You have learned the Piercing skill")
  63. end
  64. if not HasSkill(Player, 418532101) then -- Slashing
  65. AddSkill(Player, 418532101,1,level)
  66. SendMessage(Player, "You have learned the Slashing skill")
  67. end
  68. if not HasSkill(Player, 1852383242) then -- Dual Wield
  69. AddSkill(Player, 1852383242,1,level)
  70. SendMessage(Player, "You have learned the Dual Wield skill")
  71. end
  72. if not HasSkill(Player, 2650425026) then -- Thrown Weapon
  73. AddSkill(Player, 2650425026,1,level)
  74. SendMessage(Player, "You have learned the Thrown Weapon skill")
  75. end
  76. if not HasSkill(Player, 2638198038) then -- Focus
  77. AddSkill(Player, 2638198038,1,level)
  78. SendMessage(Player, "You have learned the Focus skill")
  79. end
  80. --WEAPON SKILLS
  81. if not HasSkill(Player, 2897193374) then -- Light Armor
  82. AddSkill(Player, 2897193374,1,level)
  83. SendMessage(Player, "You are now more proficient with Light Armor")
  84. end
  85. if not HasSkill(Player, 4037812502) then -- Buckler
  86. AddSkill(Player, 4037812502,1,level)
  87. SendMessage(Player, "You are now more proficient with a Buckler")
  88. end
  89. if not HasSkill(Player, 3173504370) then -- Roundshield
  90. AddSkill(Player, 3173504370,1,level)
  91. SendMessage(Player, "You are now more proficient with a Roundshield")
  92. end
  93. if not HasSkill(Player, 1616998748) then -- Spear
  94. AddSkill(Player, 1616998748,1,level)
  95. SendMessage(Player, "You are now more proficient with a Spear")
  96. end
  97. if not HasSkill(Player, 887279616) then -- Dagger
  98. AddSkill(Player, 887279616,1,level)
  99. SendMessage(Player, "You are now more proficient with a Dagger")
  100. end
  101. if not HasSkill(Player, 1743366740) then -- Bow
  102. AddSkill(Player, 1743366740,1,level)
  103. SendMessage(Player, "You are now more proficient with a Bow")
  104. end
  105. if not HasSkill(Player, 2476073427) then -- Axe
  106. AddSkill(Player, 2476073427,1,level)
  107. SendMessage(Player, "You are now more proficient with an Axe")
  108. end
  109. if not HasSkill(Player, 770311065) then -- Mace
  110. AddSkill(Player, 770311065,1,level)
  111. SendMessage(Player, "You are now more proficient with a Mace")
  112. end
  113. if not HasSkill(Player, 641561514) then -- Rapier
  114. AddSkill(Player, 641561514,1,level)
  115. SendMessage(Player, "You are now more proficient with a Rapier")
  116. end
  117. if not HasSkill(Player, 1696217328) then -- Sword
  118. AddSkill(Player, 1696217328,1,level)
  119. SendMessage(Player, "You are now more proficient with a Sword")
  120. end
  121. if not HasSkill(Spawn, 613995491) then -- Disruption
  122. AddSkill(Spawn, 613995491,1,level)
  123. SendMessage(Spawn, "You have learned the Disruption skill")
  124. end
  125. if not HasSkill(Spawn, 366253016) then -- Ministration
  126. AddSkill(Spawn, 366253016,1,level)
  127. SendMessage(Spawn, "You have learned the Ministration skill")
  128. end
  129. if not HasSkill(Spawn, 3587918036) then -- Ordination
  130. AddSkill(Spawn, 3587918036,1,level)
  131. SendMessage(Spawn, "You have learned the Ordination skill")
  132. end
  133. if not HasSkill(Spawn, 882983852) then -- Subjugation
  134. AddSkill(Spawn, 882983852,1,level)
  135. SendMessage(Spawn, "You have learned the Subjugation skill")
  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(Player, 296246391) then -- Ballads/Troubador
  171. RemoveSkill(Player, 296246391)
  172. end
  173. if HasSkill(Player, 340921594) then -- Dirges/Dirge
  174. RemoveSkill(Player, 340921594)
  175. end
  176. if HasSkill(Player, 1514256692) then -- Skulldugery/Rogue
  177. RemoveSkill(Player, 1514256692)
  178. end
  179. if HasSkill(Player, 2663054519) then -- Swashbuckling/Swashbuckler
  180. RemoveSkill(Player, 2663054519)
  181. end
  182. if HasSkill(Player, 1519965519) then -- Banditry/Brigand
  183. RemoveSkill(Player, 1519965519)
  184. end
  185. if HasSkill(Player, 3167106577) then -- Stalking/Predator
  186. RemoveSkill(Player, 3167106577)
  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. SendMessage(Player, "Congratulations! You are a Bard.","yellow")
  294. SendPopUpMessage(Player, "Congratulations! You are a Bard.",250,250,200)
  295. ApplySpellVisual(Player, 324)
  296. PlaySound(Player, "sounds/test/endquest.wav", GetX(Player), GetY(Player), GetZ(Player), Player)
  297. SetPlayerLevel(Player,10)
  298. end
  299. end
  300. function QuestStart(Item,Player)
  301. OfferQuest(nil,Player,Quest)
  302. conversation = CreateConversation()
  303. AddConversationOption(conversation, "[Put the signed certificate away]","TaskDone")
  304. StartDialogConversation(conversation, 2, Item, Player, "The Shady Swashbuckler might have some gear I can use...")
  305. end
  306. function TaskDone(Item,Player)
  307. CloseItemConversation(Item,Player)
  308. if HasItem(Player,1001099) then
  309. RemoveItem(Player,1001099,1)
  310. end
  311. end