API tools faq
paste
Guest User

Untitled

a guest
Jun 22nd, 2018
103
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.51 KB | None | 0 0
raw download clone embed print report
  1. INCLUDE "StdLib\Player.l2c"
  2. INCLUDE "STDLIB\Effect.l2c"
  3. SET_EVENT "<&SCRIPTEVENT_CHAT&>" "<&SYSTEM_CURRENTFILE&>" Check
  4. //Used for class check on buff
  5. DEFINE_GLOBAL INT CL 0
  6. DEFINE_GLOBAL STRING CLNAME ""
  7.  
  8. FUNCTION Check
  9. //Commands for buffs
  10. DEFINE STRING MSG_CHECK "check" //command to check what buffs are missing
  11. DEFINE STRING MSG_BUFF "buff" //command to give full buffs
  12. DEFINE STRING MSG_DANCE "dance" //command to give dances
  13. //Used to check what buff the character has
  14. DEFINE SORTEDLIST MyEffects
  15. //Buff array
  16. DEFINE ARRAYLIST BUFF 0
  17. DEFINE ARRAYLIST DANCE 0
  18. //30 minute buffs
  19. DEFINE INT horn_melody 11517 //Horn melody
  20. DEFINE INT drum_melody 11518 //Drum Melody
  21. DEFINE INT pipe_organ_melody 11519 //Pipe Organ melody
  22. DEFINE INT guitar_melody 11520 //Guitar Melody
  23. DEFINE INT harp_melody 11521 //Harp Melody
  24. DEFINE INT lute_melody 11522 //Lute Melody
  25. DEFINE INT elemental_protection 11565 //Elemental Protection
  26. DEFINE INT divine_protection 11566 //Divine Protection
  27. DEFINE INT mental_protection 11567 //Mental Protection
  28. //30 minute buffs(target required)
  29. DEFINE INT knights_harmony 11523 //Knights Harmony
  30. DEFINE INT warriors_harmony 11524 //Warriors Harmony
  31. DEFINE INT wizards_harmony 11525 //Wizards Harmony
  32. //5 minute buffs(Sonata)
  33. DEFINE INT prevailing_sonata 11529 //Prevailing Sonata
  34. DEFINE INT daring_sonata 11530 //Daring Sonata
  35. DEFINE INT refreshing_sonata 11532 //Refreshing Sonata
  36. //Buff array adding buffs
  37. BUFF.Add horn_melody "horn_melody"
  38. BUFF.Add drum_melody "drum_melody"
  39. BUFF.Add pipe_organ_melody "pipe_organ_melody"
  40. BUFF.Add guitar_melody "guitar_melody"
  41. BUFF.Add harp_melody "harp_melody"
  42. BUFF.Add lute_melody "lute_melody"
  43. BUFF.Add elemental_protection "elemental_protection"
  44. BUFF.Add divine_protection "divine_protection"
  45. BUFF.Add mental_protection "mental_protection"
  46. //Dance array adding buffs
  47. DANCE.Add prevailing_sonata "prevailing_sonata"
  48. DANCE.Add daring_sonata "daring_sonata"
  49. DANCE.Add refreshing_sonata "refreshing_sonata"
  50.  
  51. //Full Buff
  52. IF ( ( MESSAGETYPE == CHANNEL_PRIVATE ) )
  53. IF MESSAGE == MSG_BUFF
  54. LABEL INVITE_FULL_BUFFS
  55. COMMAND "/invite "<&SENDERNAME&>"
  56. SLEEP 2000
  57. IF SENDERNAME IS_INPARTY
  58. COMMAND "/target "<&SENDERNAME&>"
  59. IF IS_CLANMATE TARGET_ID
  60. PRINT_TEXT "Giving full buffs."
  61. SLEEP 1000
  62. FOREACH BB INT BUFF
  63. USE_SKILL_SMART "<&BUFF.BB&>"
  64. NEXTEACH
  65. SLEEP 500
  66. CALLSUB RESOLVE_CLASS_NAME
  67. SLEEP 500
  68. FOREACH BD INT DANCE
  69. USE_SKILL_SMART "<&DANCE.BD&>"
  70. NEXTEACH
  71. ELSE
  72. PRINT_TEXT "<&SENDERNAME&> Not in the clan, ignoring request"
  73. ENDIF
  74. COMMAND "/leave"
  75. ELSE
  76. SLEEP 1000
  77. JUMP_TO_LABEL INVITE_FULL_BUFFS
  78. ENDIF
  79. ENDIF
  80. ENDIF
  81.  
  82. RETURN VOID
  83.  
  84. SUB RESOLVE_CLASS_NAME
  85. IF CL == #i1
  86. CLNAME = "#$Warrior"
  87. USE_SKILL_SMART 11524
  88. ENDIF
  89. IF CL == #i2
  90. CLNAME = "#$Gladiator"
  91. USE_SKILL_SMART 11524
  92. ENDIF
  93. IF CL == #i3
  94. CLNAME = "#$Warlord"
  95. USE_SKILL_SMART 11524
  96. ENDIF
  97. IF CL == #i4
  98. CLNAME = "#$Knight"
  99. USE_SKILL_SMART 11524
  100. ENDIF
  101. IF CL == #i5
  102. CLNAME = "#$Paladin"
  103. USE_SKILL_SMART 11524
  104. ENDIF
  105. IF CL == #i6
  106. CLNAME = "#$DarkAvenger"
  107. USE_SKILL_SMART 11524
  108. ENDIF
  109. IF CL == #i7
  110. CLNAME = "#$Rogue"
  111. USE_SKILL_SMART 11524
  112. ENDIF
  113. IF CL == #i8
  114. CLNAME = "#$TreasureHunter"
  115. USE_SKILL_SMART 11524
  116. ENDIF
  117. IF CL == #i9
  118. CLNAME = "#$Hawkeye"
  119. USE_SKILL_SMART 11524
  120. ENDIF
  121. IF CL == #i10
  122. CLNAME = "#$Mage"
  123. USE_SKILL_SMART 11525
  124. ENDIF
  125. IF CL == #i11
  126. CLNAME = "#$Wizard"
  127. USE_SKILL_SMART 11525
  128. ENDIF
  129. IF CL == #i12
  130. CLNAME = "#$Sorceror"
  131. USE_SKILL_SMART 11525
  132. ENDIF
  133. IF CL == #i13
  134. CLNAME = "#$Necromancer"
  135. USE_SKILL_SMART 11525
  136. ENDIF
  137. IF CL == #i14
  138. CLNAME = "#$Warlock"
  139. USE_SKILL_SMART 11524
  140. ENDIF
  141. IF CL == #i15
  142. CLNAME = "#$Cleric"
  143. USE_SKILL_SMART 11525
  144. ENDIF
  145. IF CL == #i16
  146. CLNAME = "#$Bishop"
  147. USE_SKILL_SMART 11525
  148. ENDIF
  149. IF CL == #i17
  150. CLNAME = "#$Prophet"
  151. USE_SKILL_SMART 11525
  152.  
  153. ENDIF
  154. IF CL == #i18
  155. CLNAME = "#$ElvenFighter"
  156. USE_SKILL_SMART 11524
  157. ENDIF
  158. IF CL == #i19
  159. CLNAME = "#$ElvenKnight"
  160. USE_SKILL_SMART 11524
  161. ENDIF
  162. IF CL == #i20
  163. CLNAME = "#$TempleKnight"
  164. USE_SKILL_SMART 11524
  165. ENDIF
  166. IF CL == #i21
  167. CLNAME = "#$SwordSinger"
  168. USE_SKILL_SMART 11524
  169. ENDIF
  170. IF CL == #i22
  171. CLNAME = "#$ElvenScout"
  172. USE_SKILL_SMART 11524
  173. ENDIF
  174. IF CL == #i23
  175. CLNAME = "#$PlainsWalker"
  176. USE_SKILL_SMART 11524
  177. ENDIF
  178. IF CL == #i24
  179. CLNAME = "#$SilverRanger"
  180. USE_SKILL_SMART 11524
  181. ENDIF
  182. IF CL == #i25
  183. CLNAME = "#$ElvenMage"
  184. USE_SKILL_SMART 11525
  185. ENDIF
  186. IF CL == #i26
  187. CLNAME = "#$ElvenWizard"
  188. USE_SKILL_SMART 11525
  189. ENDIF
  190. IF CL == #i27
  191. CLNAME = "#$SpellSinger"
  192. USE_SKILL_SMART 11525
  193. ENDIF
  194. IF CL == #i28
  195. CLNAME = "#$ElementalSummoner"
  196. USE_SKILL_SMART 11525
  197. ENDIF
  198. IF CL == #i29
  199. CLNAME = "#$ElvenOracle"
  200. USE_SKILL_SMART 11525
  201. ENDIF
  202. IF CL == #i30
  203. CLNAME = "#$ElvenElder"
  204. USE_SKILL_SMART 11525
  205. ENDIF
  206. IF CL == #i31
  207. CLNAME = "#$DarkFighter"
  208. USE_SKILL_SMART 11524
  209. ENDIF
  210. IF CL == #i32
  211. CLNAME = "#$PalusKnight"
  212. USE_SKILL_SMART 11524
  213. ENDIF
  214. IF CL == #i33
  215. CLNAME = "#$ShillienKnight"
  216. USE_SKILL_SMART 11524
  217. ENDIF
  218. IF CL == #i34
  219. CLNAME = "#$BladeDancer"
  220. USE_SKILL_SMART 11524
  221. ENDIF
  222. IF CL == #i35
  223. CLNAME = "#$Assassin"
  224. USE_SKILL_SMART 11524
  225. ENDIF
  226. IF CL == #i36
  227. CLNAME = "#$AbyssWalker"
  228. USE_SKILL_SMART 11524
  229. ENDIF
  230. IF CL == #i37
  231. CLNAME = "#$PhantomRanger"
  232. USE_SKILL_SMART 11524
  233. ENDIF
  234. IF CL == #i38
  235. CLNAME = "#$DarkMage"
  236. USE_SKILL_SMART 11525
  237. ENDIF
  238. IF CL == #i39
  239. CLNAME = "#$DarkWizard"
  240. USE_SKILL_SMART 11525
  241. ENDIF
  242. IF CL == #i40
  243. CLNAME = "#$SpellHowler"
  244. USE_SKILL_SMART 11525
  245. ENDIF
  246. IF CL == #i41
  247. CLNAME = "#$PhantomSummoner"
  248. USE_SKILL_SMART 11524
  249. ENDIF
  250. IF CL == #i42
  251. CLNAME = "#$ShillienOracle"
  252. USE_SKILL_SMART 11525
  253. ENDIF
  254. IF CL == #i43
  255. CLNAME = "#$ShillienElder"
  256. USE_SKILL_SMART 11525
  257. ENDIF
  258. IF CL == #i44
  259. CLNAME = "#$OrcFighter"
  260. USE_SKILL_SMART 11524
  261. ENDIF
  262. IF CL == #i45
  263. CLNAME = "#$OrcRaider"
  264. USE_SKILL_SMART 11524
  265. ENDIF
  266. IF CL == #i46
  267. CLNAME = "#$Destroyer"
  268. USE_SKILL_SMART 11524
  269. ENDIF
  270. IF CL == #i47
  271. CLNAME = "#$OrcMonk"
  272. USE_SKILL_SMART 11524
  273. ENDIF
  274. IF CL == #i48
  275. CLNAME = "#$Tyrant"
  276. USE_SKILL_SMART 11524
  277. ENDIF
  278. IF CL == #i49
  279. CLNAME = "#$OrcMage"
  280. USE_SKILL_SMART 11525
  281. ENDIF
  282. IF CL == #i50
  283. CLNAME = "#$OrcShaman"
  284. USE_SKILL_SMART 11525
  285. ENDIF
  286. IF CL == #i51
  287. CLNAME = "#$OverLord"
  288. USE_SKILL_SMART 11525
  289. ENDIF
  290. IF CL == #i52
  291. CLNAME = "#$WarCryer"
  292. USE_SKILL_SMART 11525
  293. ENDIF
  294. IF CL == #i53
  295. CLNAME = "#$DwarvenFighter"
  296. USE_SKILL_SMART 11524
  297. ENDIF
  298. IF CL == #i54
  299. CLNAME = "#$Scavenger"
  300. USE_SKILL_SMART 11524
  301. ENDIF
  302. IF CL == #i55
  303. CLNAME = "#$BountyHunter"
  304. USE_SKILL_SMART 11524
  305. ENDIF
  306. IF CL == #i56
  307. CLNAME = "#$Artisan"
  308. USE_SKILL_SMART 11524
  309. ENDIF
  310. IF CL == #i57
  311. CLNAME = "#$Warsmith"
  312. USE_SKILL_SMART 11524
  313. ENDIF
  314. IF CL == #i88
  315. CLNAME = "#$Duelist"
  316. USE_SKILL_SMART 11524
  317. ENDIF
  318. IF CL == #i89
  319. CLNAME = "#$Dreadnought"
  320. USE_SKILL_SMART 11524
  321. ENDIF
  322. IF CL == #i90
  323. CLNAME = "#$PhoenixKnight"
  324. USE_SKILL_SMART 11524
  325. ENDIF
  326. IF CL == #i91
  327. CLNAME = "#$HellKnight"
  328. USE_SKILL_SMART 11524
  329. ENDIF
  330. IF CL == #i92
  331. CLNAME = "#$Sagittarius"
  332. USE_SKILL_SMART 11524
  333. ENDIF
  334. IF CL == #i93
  335. CLNAME = "#$Adventurer"
  336. USE_SKILL_SMART 11524
  337. ENDIF
  338. IF CL == #i94
  339. CLNAME = "#$ArchMage"
  340. USE_SKILL_SMART 11525
  341. ENDIF
  342. IF CL == #i95
  343. CLNAME = "#$Soultaker"
  344. USE_SKILL_SMART 11525
  345. ENDIF
  346. IF CL == #i96
  347. CLNAME = "#$ArcanaLord"
  348. USE_SKILL_SMART 11524
  349. ENDIF
  350. IF CL == #i97
  351. CLNAME = "#$Cardinal"
  352. USE_SKILL_SMART 11525
  353. ENDIF
  354. IF CL == #i98
  355. CLNAME = "#$Hierophant"
  356. USE_SKILL_SMART 11525
  357. ENDIF
  358. IF CL == #i99
  359. CLNAME = "#$EvaTemplar"
  360. USE_SKILL_SMART 11524
  361. ENDIF
  362. IF CL == #i100
  363. CLNAME = "#$SwordMuse"
  364. USE_SKILL_SMART 11524
  365. ENDIF
  366. IF CL == #i101
  367. CLNAME = "#$WindRider"
  368. USE_SKILL_SMART 11524
  369. ENDIF
  370. IF CL == #i102
  371. CLNAME = "#$MoonlightSentinel"
  372. USE_SKILL_SMART 11524
  373. ENDIF
  374. IF CL == #i103
  375. CLNAME = "#$MysticMuse"
  376. USE_SKILL_SMART 11525
  377. ENDIF
  378. IF CL == #i104
  379. CLNAME = "#$ElementalMaster"
  380. USE_SKILL_SMART 11525
  381. ENDIF
  382. IF CL == #i105
  383. CLNAME = "#$EvaSaint"
  384. USE_SKILL_SMART 11525
  385. ENDIF
  386. IF CL == #i106
  387. CLNAME = "#$ShillienTemplar"
  388. USE_SKILL_SMART 11524
  389. ENDIF
  390. IF CL == #i107
  391. CLNAME = "#$SpectralDancer"
  392. USE_SKILL_SMART 11524
  393. ENDIF
  394. IF CL == #i108
  395. CLNAME = "#$GhostHunter"
  396. USE_SKILL_SMART 11524
  397. ENDIF
  398. IF CL == #i109
  399. CLNAME = "#$GhostSentinel"
  400. USE_SKILL_SMART 11524
  401. ENDIF
  402. IF CL == #i110
  403. CLNAME = "#$StormScreamer"
  404. USE_SKILL_SMART 11525
  405. ENDIF
  406. IF CL == #i111
  407. CLNAME = "#$SpectralMaster"
  408. USE_SKILL_SMART 11525
  409. ENDIF
  410. IF CL == #i112
  411. CLNAME = "#$ShillienSaint"
  412. USE_SKILL_SMART 11525
  413. ENDIF
  414. IF CL == #i113
  415. CLNAME = "#$Titan"
  416. USE_SKILL_SMART 11524
  417. ENDIF
  418. IF CL == #i114
  419. CLNAME = "#$GrandKhauatari"
  420. USE_SKILL_SMART 11524
  421. ENDIF
  422. IF CL == #i115
  423. CLNAME = "#$Dominator"
  424. USE_SKILL_SMART 11525
  425. ENDIF
  426. IF CL == #i116
  427. CLNAME = "#$DoomCryer"
  428. USE_SKILL_SMART 11525
  429. ENDIF
  430. IF CL == #i117
  431. CLNAME = "#$FortuneSeeker"
  432. USE_SKILL_SMART 11524
  433. ENDIF
  434. IF CL == #i118
  435. CLNAME = "#$Maestro"
  436. USE_SKILL_SMART 11524
  437. ENDIF
  438. IF CL == #i123
  439. CLNAME = "#$MaleSoldier"
  440. USE_SKILL_SMART 11524
  441. ENDIF
  442. IF CL == #i124
  443. CLNAME = "#$FemaleSoldier"
  444. USE_SKILL_SMART 11524
  445. ENDIF
  446. IF CL == #i125
  447. CLNAME = "#$Trooper"
  448. USE_SKILL_SMART 11524
  449. ENDIF
  450. IF CL == #i126
  451. CLNAME = "#$Warder"
  452. USE_SKILL_SMART 11524
  453. ENDIF
  454. IF CL == #i127
  455. CLNAME = "#$Berserker"
  456. USE_SKILL_SMART 11524
  457. ENDIF
  458. IF CL == #i128
  459. CLNAME = "#$MaleSoulbreaker"
  460. USE_SKILL_SMART 11524
  461. ENDIF
  462. IF CL == #i129
  463. CLNAME = "#$FemaleSoulbreaker"
  464. USE_SKILL_SMART 11524
  465. ENDIF
  466. IF CL == #i130
  467. CLNAME = "#$Arbalester"
  468. USE_SKILL_SMART 11524
  469. ENDIF
  470. IF CL == #i131
  471. CLNAME = "#$Doombringer"
  472. USE_SKILL_SMART 11524
  473. ENDIF
  474. IF CL == #i132
  475. CLNAME = "#$MaleSoulhound"
  476. USE_SKILL_SMART 11524
  477. ENDIF
  478. IF CL == #i133
  479. CLNAME = "#$FemaleSoulhound"
  480. USE_SKILL_SMART 11524
  481. ENDIF
  482. IF CL == #i134
  483. CLNAME = "#$Trickster"
  484. USE_SKILL_SMART 11524
  485. ENDIF
  486. IF CL == #i135
  487. CLNAME = "#$Inspector"
  488. USE_SKILL_SMART 11524
  489. ENDIF
  490. IF CL == #i136
  491. CLNAME = "#$Judicator"
  492. USE_SKILL_SMART 11524
  493. ENDIF
  494. IF CL == #i139
  495. CLNAME = "#$Sigel Knight"
  496. USE_SKILL_SMART 11524
  497. ENDIF
  498. IF CL == #i140
  499. CLNAME = "#$Tyrr Warrior"
  500. USE_SKILL_SMART 11524
  501. ENDIF
  502. IF CL == #i141
  503. CLNAME = "#$Othell Rogue"
  504. USE_SKILL_SMART 11524
  505. ENDIF
  506. IF CL == #i142
  507. CLNAME = "#$Yul Archer"
  508. USE_SKILL_SMART 11524
  509. ENDIF
  510. IF CL == #i143
  511. CLNAME = "#$Feoh Wizard"
  512. USE_SKILL_SMART 11525
  513. ENDIF
  514. IF CL == #i144
  515. CLNAME = "#$Iss Enchanter"
  516. USE_SKILL_SMART 11524
  517. ENDIF
  518. IF CL == #i145
  519. CLNAME = "#$Wynn Summoner"
  520. USE_SKILL_SMART 11524
  521. ENDIF
  522. IF CL == #i146
  523. CLNAME = "#$Aeore Healer"
  524. USE_SKILL_SMART 11525
  525. ENDIF
  526. RETURNSUB
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!