Advertisement
Guest User

Untitled

a guest
Jun 19th, 2019
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.23 KB | None | 0 0
  1.  
  2. Sub set_declares_custom()
  3. /declare memCurrentGem int outer 1
  4.  
  5. /declare hookOnEnterCombat bool outer TRUE
  6. /declare hookOnExitCombat bool outer TRUE
  7.  
  8. /if (${Bool[${Plugin[mq2rez]}]}) /plugin mq2rez unload
  9. /return
  10.  
  11. | Hooks
  12. Sub hook_OnEnterCombat
  13. OUT OnEnterCombat
  14. /return
  15.  
  16. Sub hook_OnExitCombat
  17. OUT OnExitCombat
  18. /return
  19.  
  20. | Custom setup
  21. | /cc = /call Bind_setCombatControl
  22. | /edit = /call Bind_sql_edit
  23. | /tc = /call Bind_setTieControl
  24. | /setassist = /call Bind_setAssist
  25. | /core = /call Bind_Core
  26. | /buffs = /call Bind_buff
  27. | /movement = /call Bind_setMovementControls
  28. #bind setup /setup
  29. Sub Bind_setup()
  30. | Follow the MA using nav
  31. /call Bind_setTieControl name ${Group.MainAssist.Name}
  32. /call Bind_setTieControl mode nav
  33. /call Bind_setTieControl distance 5
  34.  
  35. | Assist group's MA at 100%, why wait. Don't know the difference b/w engage & smartengage
  36. /call Bind_setAssist g on
  37. /call Bind_setCombatControl engage 100
  38. /call Bind_setCombatControl smartengage 100
  39.  
  40. | Everyone melees
  41. /call Bind_setCombatControl melee on
  42.  
  43. | Everyone buffs
  44. /call Bind_buff self on
  45. /call Bind_buff bc on
  46.  
  47. | Always use last gem for buffs
  48. /call Bind_sql_edit buffGem ${Me.NumGems}
  49.  
  50. | Set up mount
  51. |/call Bind_sql_edit setMount "Mount Item Name"
  52.  
  53. | Use fast face
  54. /call Bind_setMovementControls fast on
  55.  
  56. | Custom setup for each class
  57. /call setup_${Me.Class.ShortName}
  58.  
  59. | Memorize spells
  60. /call Bind_memall
  61.  
  62. | Finally, turn auto on
  63. /call Bind_Core auto on
  64. /return
  65.  
  66. Sub setup_CLR
  67. | AA unity buff
  68. /call Bind_sql_edit BuffAAUnity1 "Armor of the Merciful"
  69.  
  70. | Auras
  71. /call Bind_sql_edit Aura1Spell "Aura of the Reverent"
  72. /call Bind_sql_edit Aura1Buff "Reverent Aura"
  73. /call Bind_sql_edit Aura2Spell "Circle of Divinity"
  74. /call Bind_sql_edit Aura2Buff "Circle of Divinity"
  75.  
  76. | Group buffs
  77. /call Bind_sql_edit Buff1 "Unified Hand of Assurance"
  78. /call Bind_sql_edit Buff1self TRUE
  79.  
  80. | Tank buffs
  81. /call Bind_sql_edit Buff2 "Rallied Greater Guard of Vie"
  82. /call Bind_sql_edit Buff2self FALSE
  83. /call Bind_sql_edit BCBuff2Class |WAR|PAL|SHD
  84.  
  85. /call Bind_sql_edit Buff3 "Shining Fortress"
  86. /call Bind_sql_edit Buff3self FALSE
  87. /call Bind_sql_edit BCBuff3Class |WAR|PAL|SHD
  88.  
  89. /call Bind_sql_edit Buff4 "Anticipated Intercession"
  90. /call Bind_sql_edit Buff4self FALSE
  91. /call Bind_sql_edit BCBuff4Class |WAR|PAL|SHD
  92.  
  93. /call Bind_sql_edit Buff5 "Divine Imposition"
  94. /call Bind_sql_edit Buff5self FALSE
  95. /call Bind_sql_edit BCBuff5Class |WAR|PAL|SHD
  96.  
  97. | Self buff
  98. /call Bind_sql_edit Buff6 "Divine Response"
  99. /call Bind_sql_edit Buff6self TRUE
  100. /call Bind_sql_edit BCBuff6Class FALSE
  101.  
  102. /call Bind_sql_edit Buff7 FALSE
  103. /call Bind_sql_edit Buff8 FALSE
  104. /call Bind_sql_edit Buff9 FALSE
  105. /call Bind_sql_edit Buff10 FALSE
  106.  
  107. | Heal self, group & xtarget
  108. /call Bind_heal self on
  109. /call Bind_heal group on
  110. /call Bind_heal xtarget on
  111.  
  112. /return
  113.  
  114. Sub setup_WIZ()
  115. | AA unity buff
  116. /call Bind_sql_edit BuffAAUnity1 "Shield of Scales"
  117.  
  118. | Nuke lines
  119. /call Bind_sql_edit lineIce "|Quiescent Gambit|Shocking Vortex|Claw of Travenro|Ethereal Icefloe|Icefloe Cascade|Cloudburst Thunderbolt"
  120. /call Bind_sql_edit lineFire "|Quiescent Gambit|Shocking Vortex|Claw of Qunard|Ethereal Braid|Ethereal Skyfire|Cloudburst Thunderbolt"
  121. /call Bind_sql_edit lineCurrent Fire
  122.  
  123. | Enable nuking
  124. /call Bind_setCombatControl nuke on
  125.  
  126. | Enable alliance
  127. /call Bind_setCombatControl alliance on
  128.  
  129. | Rest to full, through combat
  130. /call Bind_Core_environment restfull on
  131. /call Bind_Core_environment restcombat on
  132. /call Bind_setCombatControl rest 20
  133. /return
  134.  
  135. Sub setup_ENC()
  136. | AA unity buff
  137. /call Bind_sql_edit BuffAAUnity1 "Ward of the Transfixer"
  138. /call Bind_sql_edit BuffAAUnity2 "Shield of Scales"
  139.  
  140. | Auras
  141. /call Bind_sql_edit Aura1Spell "Mana Repetition Aura"
  142. /call Bind_sql_edit Aura1Buff "Mana Repetition Aura"
  143. /call Bind_sql_edit Aura2Spell "Twincast Aura"
  144. /call Bind_sql_edit Aura2Buff "Twincast Aura"
  145.  
  146. | Group buffs
  147. /call Bind_sql_edit Buff1 "Voice of Perspicacity"
  148. /call Bind_sql_edit Buff1self TRUE
  149. /call Bind_sql_edit BCBuff1Class |WAR|PAL|SHD|BRD|RNG|BST|BER|MNK|ROG|WIZ|MAG|ENC|NEC|CLR|DRU|SHM
  150.  
  151. /call Bind_sql_edit Buff2 "Hastening of Milyex"
  152. /call Bind_sql_edit Buff2self TRUE
  153. /call Bind_sql_edit BCBuff2Class |WAR|PAL|SHD|BRD|RNG|BST|BER|MNK|ROG|WIZ|MAG|ENC|NEC|CLR|DRU|SHM
  154.  
  155. | Spell/DoT shield runes on all but tanks, no point refreshing on them
  156. /call Bind_sql_edit Buff3 "Legion of Skrizix"
  157. /call Bind_sql_edit Buff3self TRUE
  158. /call Bind_sql_edit BCBuff3Class |BRD|RNG|BST|BER|MNK|ROG|WIZ|MAG|ENC|NEC|CLR|DRU|SHM
  159.  
  160. /call Bind_sql_edit Buff4 "Legion of Milyex"
  161. /call Bind_sql_edit Buff4self TRUE
  162. /call Bind_sql_edit BCBuff4Class |BRD|RNG|BST|BER|MNK|ROG|WIZ|MAG|ENC|NEC|CLR|DRU|SHM
  163.  
  164. | Polyfluorescent instead of Polyrefractive
  165. /call Bind_sql_edit runePoly "Polyfluorescent Rune"
  166.  
  167. /return
  168.  
  169. Sub setup_SHD()
  170. | AA unity buff
  171. |/call Bind_sql_edit BuffAAUnity1 "Mental Fright"
  172. /call Bind_sql_edit BuffAAUnity1 "Tylix's Horror"
  173. /call Bind_sql_edit BuffAAUnity2 "Helot Skin"
  174. /call Bind_sql_edit BuffAAUnity3 "Call of Nightfall"
  175. /call Bind_sql_edit BuffAAUnity4 "Drape of the Magmaforged"
  176. /call Bind_sql_edit BuffAAUnity5 "Shroud of the Krellnakor"
  177. /call Bind_sql_edit BuffAAUnity6 "Remorseless Demeanor"
  178.  
  179. | Bash & taunt
  180. /call Bind_setCombatControl meleedisc bash on
  181. /call Bind_setCombatControl meleedisc taunt on
  182. | Taunt on SHD options too?!
  183. /call Bind_setSHD taunt on
  184.  
  185. | Use AE hates
  186. /call Bind_setSHD ae on
  187.  
  188. | Use lifetap discs (including vicious bite)
  189. /call Bind_heal self on
  190.  
  191. | Use breather instead of hiatus. Lowercase matters here
  192. /call Bind_sql_edit DiscRest breather
  193.  
  194. | Use nuke function to cast taps
  195. /call Bind_sql_edit Nuke1 "Dire Testimony"
  196. /call Bind_sql_edit Nuke2 "Touch of Hemofax"
  197. /call Bind_sql_edit Nuke3 "Touch of T`Vem"
  198.  
  199. | Enable nuking
  200. /call Bind_setCombatControl nuke on
  201.  
  202. | Pull with a 200 radius
  203. /call Bind_setCombatControl pull on
  204. /call Bind_setCombatControl agro 200
  205.  
  206. | Pull with terror instead of hate's attraction
  207. /call Bind_sql_edit strRangeSpell "Terror of Kra`Du"
  208. /call Bind_setSHD attraction off
  209.  
  210. | Hold aggro
  211. /call Bind_setCombatControl agro on
  212.  
  213. | Turn on stance, skin & harmonious disruption
  214. /call Bind_setSHD stance on
  215. /call Bind_setSHD skin on
  216. /call Bind_setSHD harmonious on
  217.  
  218. | Rest at 20%
  219. /call Bind_setCombatControl rest 20
  220. /return
  221.  
  222. | Spell memorization
  223. Sub mem_reset()
  224. /varset memCurrentGem 1
  225. /return
  226.  
  227. Sub try_mem(string spellName)
  228. /if (${Me.Gem[${spellName}]} && ${Me.Gem[${spellName}]} < ${memCurrentGem}) /return
  229. /if (${memCurrentGem} > ${Me.NumGems}) {
  230. VSPELL Not enough gems to memorize ${spellName}
  231. /return
  232. }
  233. /call mem_spell FALSE TRUE "${spellName}" ${memCurrentGem} FALSE TRUE
  234. /varcalc memCurrentGem ${memCurrentGem}+1
  235. /return
  236.  
  237. #bind memall /memall
  238. Sub Bind_memall()
  239. /call memall_${Me.Class.ShortName}
  240. /return
  241.  
  242. Sub memall_WIZ()
  243. /declare _index int local 0
  244. /declare _list string local ${line${lineCurrent}}
  245. /call mem_reset
  246. /if (${Bool[${TwincastSpell}]}) /call try_mem "${TwincastSpell}"
  247. /if (${Bool[${GatherSpell}]}) /call try_mem "${GatherSpell}"
  248. /if (${Bool[${GoMNuke}]}) /call try_mem "${GoMNuke}"
  249. /if (${Bool[${GoMNuke2}]}) /call try_mem "${GoMNuke2}"
  250. /if (${swAlliance} && ${Bool[${WIZAlliance}]}) /call try_mem "${WIZAlliance}"
  251. /call try_mem "${NukeTwincast${lineCurrent}}"
  252. /for _index 1 to ${_list.Count[|]}
  253. /call try_mem "${_list.Arg[${_index},|]}"
  254. /next _index
  255. /return
  256.  
  257. Sub memall_ENC()
  258.  
  259. /return
  260.  
  261. Sub memall_CLR()
  262.  
  263. /return
  264.  
  265. Sub memall_SHD()
  266.  
  267. /return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement