Advertisement
Guest User

Untitled

a guest
Nov 11th, 2014
222
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 16.83 KB | None | 0 0
  1. <?xml version="1.0" encoding="utf-8" ?><ROGUE><Ability><Name>--Calcs/Functions--</Name><Default>false</Default><SpellID>0</SpellID><Actions></Actions><Lua>--Player Info
  2. PlayerEnergy = UnitPower(&amp;quot;player&amp;quot;)
  3. PlayerHP = 100 * UnitHealth(&amp;quot;player&amp;quot;) / UnitHealthMax(&amp;quot;player&amp;quot;)
  4. PlayerCombat = UnitAffectingCombat(&amp;quot;player&amp;quot;)
  5. PlayerThreat = UnitThreatSituation(&amp;quot;player&amp;quot;, &amp;quot;target&amp;quot;)
  6. PlayerLevel = UnitLevel(&amp;quot;player&amp;quot;)
  7.  
  8. --PQR Functions
  9. isMoving = PQR_IsMoving()
  10.  
  11.  
  12. --Key Mods
  13. lShift = IsLeftShiftKeyDown()
  14. lCtrl = IsLeftControlKeyDown()
  15. lAlt = IsLeftAltKeyDown()
  16. rShift = IsRightShiftKeyDown()
  17. rCtrl = IsRightControlKeyDown()
  18. rAlt = IsRightAltKeyDown()
  19.  
  20. local hasTarget = UnitExists(&amp;quot;target&amp;quot;)
  21.  
  22. if hasTarget then
  23. --Target Info
  24. EnemyHP = 100 * UnitHealth(&amp;quot;target&amp;quot;) / UnitHealthMax(&amp;quot;target&amp;quot;)
  25. EnemyLevel = UnitLevel(&amp;quot;target&amp;quot;)
  26. EnemyExists = UnitExists(&amp;quot;target&amp;quot;)
  27. InteractRange = CheckInteractDistance(&amp;quot;target&amp;quot;, 3)
  28. EnemyID = tonumber(UnitGUID(&amp;quot;target&amp;quot;):sub(-13, -9), 16)
  29. EnemyCP = GetComboPoints( &amp;quot;player&amp;quot;, &amp;quot;target&amp;quot; )
  30. SnDTimer = select(7, UnitBuffID( &amp;quot;player&amp;quot;, 5171 ) )
  31.  
  32. if EnemyLevel &amp;gt;= (PlayerLevel + 2) or EnemyLevel == -1 then
  33. IsBossLVL = 1
  34. else
  35. IsBossLVL = nil
  36. end
  37. end
  38.  
  39. if ctInit == nil then
  40. ctInit = true
  41. -- Code provided by Sheuron
  42. function HaveBuff(UnitID,SpellID,TimeLeft,Filter)
  43. if not TimeLeft then TimeLeft = 0 end
  44. if type(SpellID) == &amp;quot;number&amp;quot; then SpellID = { SpellID } end
  45. for i=1,#SpellID do
  46. local spell, rank = GetSpellInfo(SpellID[i])
  47. if spell then
  48. local buff = select(7,UnitBuff(UnitID,spell,rank,Filter))
  49. if buff and ( buff == 0 or buff - GetTime() &amp;gt; TimeLeft ) then return true end
  50. end
  51. end
  52. end
  53.  
  54. function HaveDebuff(UnitID,SpellID,TimeLeft,Filter)
  55. if not TimeLeft then TimeLeft = 0 end
  56. if type(SpellID) == &amp;quot;number&amp;quot; then SpellID = { SpellID } end
  57. for i=1,#SpellID do
  58. local spell, rank = GetSpellInfo(SpellID[i])
  59. if spell then
  60. local debuff = select(7,UnitDebuff(UnitID,spell,rank,Filter))
  61. if debuff and ( debuff == 0 or debuff - GetTime() &amp;gt; TimeLeft ) then return true end
  62. end
  63. end
  64. end
  65. --end code by sheuron
  66. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>--Poisons--</Name><Default>false</Default><SpellID>0</SpellID><Actions></Actions><Lua>--Code by Sheuron
  67. if not PlayerCombat and ( not applypoison or GetTime() - applypoison &amp;gt; 3 ) then
  68. applypoison = GetTime()
  69. local _,poisonMH,_,_,poisonOH,_,_,poisonTR = GetWeaponEnchantInfo()
  70. if not poisonMH then
  71. UseItemByName(tostring(GetItemInfo(6947)))
  72. if SpellIsTargeting() then PickupInventoryItem(16) end
  73. elseif not poisonOH then
  74. UseItemByName(tostring(GetItemInfo(2892)))
  75. if SpellIsTargeting() then PickupInventoryItem(17) end
  76. elseif not poisonTR then
  77. UseItemByName(tostring(GetItemInfo(10918)))
  78. if SpellIsTargeting() then PickupInventoryItem(18) end
  79. end
  80. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>Buff - Stealth</Name><Default>false</Default><SpellID>1784</SpellID><Actions></Actions><Lua>if not PlayerCombat and not IsMounted() then
  81. if not HaveBuff(&amp;quot;player&amp;quot;, 1784) and PQR_SpellAvailable(1784) and AutoStealth then
  82. return true
  83. end
  84. end</Lua><RecastDelay>0</RecastDelay><Target>Player</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>Item - Gloves</Name><Default>false</Default><SpellID>0</SpellID><Actions></Actions><Lua>if EnemyExists and PlayerCombat then
  85. if GetInventoryItemCooldown(&amp;quot;player&amp;quot;,10) == 0 and not HaveBuff(&amp;quot;player&amp;quot;, 1784) then
  86. UseInventoryItem(10)
  87. end
  88. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>--Racial--</Name><Default>false</Default><SpellID>0</SpellID><Actions></Actions><Lua>if PlayerCombat and EnemyExists then
  89.  
  90. -- Arcane Torrent (Blood Elf)(Rogue)
  91. if IsSpellKnown(25046) and GetSpellCooldown(25046) == 0
  92. and PlayerEnergy &amp;lt; 35
  93. then CastSpellByID(25046) return true end
  94.  
  95. -- Berserking (Troll)(All Classes)
  96. if IsSpellKnown(26297) and GetSpellCooldown(26297) == 0
  97. then CastSpellByID(26297) return true end
  98.  
  99. -- Blood Fury (Orc) (Warrior, Hunter, Rogue, Death Knight )
  100. if IsSpellKnown(20572) and GetSpellCooldown(20572) == 0
  101. then CastSpellByID(20572) return true end
  102.  
  103. -- Will of the Forsaken (Undead)
  104. if not GotFear then
  105. function GotFear(t)
  106. local debuff = { 10326, 8122, 2094, 5782, 5484, 6358, 5246 }
  107. for i=1, #debuff do if UnitDebuffID(t,debuff[i]) then return true end end
  108. end
  109. end
  110. if IsSpellKnown(7744) and GetSpellCooldown(7744) == 0 and GotFear(&amp;quot;player&amp;quot;)
  111. then CastSpellByID(7744) return true end
  112.  
  113. -- Rocket Barrage (Goblin)
  114. if IsSpellKnown(69041) and GetSpellCooldown(69041) == 0
  115. and IsSpellInRange(GetSpellInfo(69041),&amp;quot;target&amp;quot;) == 1 and UnitCanAttack(&amp;quot;player&amp;quot;,&amp;quot;target&amp;quot;)
  116. then CastSpellByID(69041) return true end
  117.  
  118. -- Stoneform (Dwarf)
  119. if not GotPoison then
  120. function GotPoison(t)
  121. local i, debuff = 1, select(5,UnitDebuff(t, 1))
  122. while debuff do
  123. if debuff == &amp;quot;Poison&amp;quot; or debuff == &amp;quot;Disease&amp;quot; then return true end
  124. i = i + 1 debuff = select(5,UnitDebuff(t, i))
  125. end
  126. end
  127. end
  128. if IsSpellKnown(20594) and GetSpellCooldown(20594) == 0 and GotPoison(&amp;quot;player&amp;quot;)
  129. then CastSpellByID(20594) return true end
  130.  
  131. -- Escape Artist (Gnome)
  132. if not CantMove then
  133. function CantMove(t)
  134. local debuff = { 122, 53754, 1715, 12323, 3775, 339, 48483, 8056, 2974, 45524 }
  135. for i=1, #debuff do if UnitDebuffID(t,debuff[i]) then return true end end
  136. end
  137. end
  138. if IsSpellKnown(20589) and GetSpellCooldown(20589) == 0 and CantMove(&amp;quot;player&amp;quot;)
  139. then CastSpellByID(20589) return true end
  140.  
  141. -- Every Man for Himself (Human)
  142. if not LostControl then
  143. function LostControl(t)
  144. local debuff = { 122, 10326, 8122, 2094, 5782, 5484, 6358, 5246, 408 }
  145. for i=1, #debuff do if UnitDebuffID(t,debuff[i]) then return true end end
  146. end
  147. end
  148. if IsSpellKnown(59752) and GetSpellCooldown(59752) == 0 and LostControl(&amp;quot;player&amp;quot;)
  149. then CastSpellByID(59752) return true end
  150.  
  151. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>CD - Tricks of the Trade</Name><Default>false</Default><SpellID>57934</SpellID><Actions></Actions><Lua>if EnemyExists and PlayerCombat then
  152. if UnitExists(&amp;quot;focus&amp;quot;) and PQR_SpellAvailable(57934) and not HaveBuff(&amp;quot;player&amp;quot;, 1784) then
  153. return true
  154. end
  155. end</Lua><RecastDelay>0</RecastDelay><Target>Focus</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>Opener - Garrote</Name><Default>false</Default><SpellID>703</SpellID><Actions></Actions><Lua>if EnemyExists and not isBehind then
  156. if HaveBuff(&amp;quot;player&amp;quot;, 1784) and InteractRange then
  157. return true
  158. end
  159. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>CPS - Slice and Dice</Name><Default>false</Default><SpellID>5171</SpellID><Actions></Actions><Lua>if EnemyExists and PlayerCombat then
  160. if not HaveBuff(&amp;quot;player&amp;quot;, 5171, 2) then
  161. return true
  162. end
  163. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>CPS - Rupture</Name><Default>false</Default><SpellID>1943</SpellID><Actions></Actions><Lua>if EnemyExists and PlayerCombat then
  164. if not HaveDebuff(&amp;quot;target&amp;quot;, 1943, 2, &amp;quot;PLAYER&amp;quot;) and (SnDTimer - GetTime()) &amp;gt; 6 then
  165. return true
  166. end
  167. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>Spec - Vendetta</Name><Default>false</Default><SpellID>79140</SpellID><Actions>/cast Potion of the Tol&amp;apos;vir</Actions><Lua>if EnemyExists and PlayerCombat then
  168. if IsBossLVL and PQR_SpellAvailable(79140) then
  169. return true
  170. end
  171. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>Spec - Cold Blood</Name><Default>false</Default><SpellID>14177</SpellID><Actions></Actions><Lua>if EnemyExists and PlayerCombat then
  172. if HaveBuff(&amp;quot;player&amp;quot;, 5171) and HaveDebuff(&amp;quot;target&amp;quot;, 1943) then
  173. if EnemyCP &amp;gt;= 4 and PQR_SpellAvailable(14177) then
  174. return true
  175. end
  176. end
  177. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>CPS - Envenom</Name><Default>false</Default><SpellID>32645</SpellID><Actions></Actions><Lua>if EnemyExists and PlayerCombat then
  178. if EnemyCP &amp;gt;= 4 and not HaveBuff(&amp;quot;player&amp;quot;, 32645) then
  179. return true
  180. elseif EnemyCP &amp;gt;= 4 and PlayerEnergy &amp;gt; 90 then
  181. return true
  182. elseif EnemyCP &amp;gt;= 2 and SnDTimer &amp;lt; 3 then
  183. return true
  184. end
  185. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>CPG - Backstab</Name><Default>false</Default><SpellID>53</SpellID><Actions></Actions><Lua>if EnemyExists and PlayerCombat then
  186. if EnemyCP &amp;lt; 5 and EnemyHP &amp;lt; 35 then
  187. if not isBehind and InteractRange then
  188. return true
  189. end
  190. end
  191. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>CPG - Mutilate</Name><Default>false</Default><SpellID>1329</SpellID><Actions></Actions><Lua>if EnemyExists and PlayerCombat then
  192. if EnemyHP &amp;lt; 35 then
  193. if EnemyCP &amp;lt; 5 then
  194. return true
  195. end
  196. elseif EnemyHP &amp;gt; 35 then
  197. if EnemyCP &amp;lt; 4 then
  198. return true
  199. end
  200. end
  201. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>CD - Vanish</Name><Default>false</Default><SpellID>1856</SpellID><Actions>/cleartarget|/stopattack</Actions><Lua>if PlayerCombat then
  202. if lCtrl then
  203. return true
  204. end
  205. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>CPG - Shiv</Name><Default>false</Default><SpellID>5938</SpellID><Actions></Actions><Lua>if EnemyExists and PlayerCombat then
  206. if HaveBuff(&amp;quot;target&amp;quot;, { 49016, 93099, 5229, 52610, 48393, 84840, 84839, 18499, 56611, 13046, 12292, 29594, 93098, 80158 }) then
  207. if EnemyCP &amp;lt;= 4 and InteractRange then
  208. return true
  209. end
  210. end
  211. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>AoE - Fan of Knifes</Name><Default>false</Default><SpellID>51723</SpellID><Actions></Actions><Lua>if PlayerCombat then
  212. if lShift then
  213. return true
  214. end
  215. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>--Set Focus--</Name><Default>false</Default><SpellID>0</SpellID><Actions></Actions><Lua>if rShift then
  216. FocusUnit(&amp;quot;mouseover&amp;quot;)
  217. end</Lua><RecastDelay>0</RecastDelay><Target>Mouseover</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>--Pause--</Name><Default>false</Default><SpellID>0</SpellID><Actions></Actions><Lua>if lAlt
  218. or IsMounted()
  219. or SpellIsTargeting()
  220. or UnitBuffID(&amp;quot;player&amp;quot;,80169)
  221. or UnitBuffID(&amp;quot;player&amp;quot;,77769)
  222. or UnitBuffID(&amp;quot;player&amp;quot;,5384)
  223. or UnitInVehicle(&amp;quot;player&amp;quot;)
  224. or UnitIsDead(&amp;quot;target&amp;quot;)
  225. or UnitIsDead(&amp;quot;player&amp;quot;)
  226. or not PlayerCombat
  227. or PlayerStealth then
  228. return true
  229. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>--Lightwell--</Name><Default>false</Default><SpellID>0</SpellID><Actions></Actions><Lua>--Code provided by Xelper
  230. local LightwellName = &amp;quot;Lightwell&amp;quot;
  231. local sLightwell = UnitBuffID(&amp;quot;player&amp;quot;, 7001)
  232. local sDeepCorruption = UnitDebuffID(&amp;quot;player&amp;quot;, 108220)
  233. if PQR_LightwellTimeout == nil then
  234. PQR_LightwellTimeout = 0
  235. end
  236.  
  237. if PlayerHP &amp;lt; 70 and sLightwell == nil then
  238. if PQR_LightwellTimeout &amp;lt; GetTime() then
  239. if sDeepCorruption == nil then
  240. PQR_LightwellTimeout = GetTime() + 1
  241. InteractUnit(LightwellName)
  242. end
  243. end
  244. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>--Extra Action--</Name><Default>false</Default><SpellID>0</SpellID><Actions></Actions><Lua>-- Code provided by Sheuron
  245. -- Avoid sudden death on Ultraxion
  246. local fadingtime = select(7,UnitDebuffID(&amp;quot;player&amp;quot;,110070))
  247. if fadingtime and fadingtime - GetTime() &amp;lt; 1.3 then RunMacroText(&amp;quot;/click ExtraActionButton1&amp;quot;) end
  248.  
  249. -- Code provided by Kickmydog
  250. -- Avoid Hour of Twilight on Ultraxion, deterrence to cancel use.
  251. if not UnitBuffID(&amp;quot;player&amp;quot;,31224) then
  252. local HourOfTwilight,_,_,_,_,endTime = UnitCastingInfo(&amp;quot;boss1&amp;quot;)
  253. if HourOfTwilight == GetSpellInfo(109417) and endTime/1000 - GetTime() &amp;lt;= 1.3 then
  254. RunMacroText(&amp;quot;/click ExtraActionButton1&amp;quot;)
  255. end
  256. end
  257.  
  258. -- Code provided by Kickmydog
  259. -- Avoid Fragmentation on Madness
  260. local tentacledeath = select(7,UnitDebuffID(&amp;quot;player&amp;quot;,109597))
  261. if tentacledeath and tentacledeath - GetTime() &amp;lt; 0.7 then RunMacroText(&amp;quot;/click ExtraActionButton1&amp;quot;) end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>Item - Trinket 1</Name><Default>false</Default><SpellID>0</SpellID><Actions></Actions><Lua>-- Code provided by Sheuron
  262. if EnemyExists and PlayerCombat then
  263. if GetInventoryItemCooldown(&amp;quot;player&amp;quot;,13) == 0 and InteractRange and not HaveBuff(&amp;quot;player&amp;quot;, 1784) then
  264. UseInventoryItem(13)
  265. end
  266. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>Item - Trinket 2</Name><Default>false</Default><SpellID>0</SpellID><Actions></Actions><Lua>-- Code provided by Sheuron
  267. local _,cd,havecd = GetInventoryItemCooldown(&amp;quot;player&amp;quot;,14)
  268. if EnemyExists and PlayerCombat then
  269. if cd == 0 and havecd == 1 and not UnitChannelInfo(&amp;quot;player&amp;quot;) and InteractRange and not HaveBuff(&amp;quot;player&amp;quot;, 1784) then
  270. UseInventoryItem(14)
  271. return true
  272. end
  273. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>CPS - Recuperate</Name><Default>false</Default><SpellID>73651</SpellID><Actions></Actions><Lua>if EnemyExists and PlayerCombat then
  274. if EnemyCP &amp;gt; 2 and PlayerHP &amp;lt; 60 then
  275. if not HaveBuff(&amp;quot;player&amp;quot;, 73651) then
  276. return true
  277. end
  278. end
  279. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability><Ability><Name>--Toggle Key--</Name><Default>false</Default><SpellID>0</SpellID><Actions></Actions><Lua>if modtime == nil then
  280. modtime = 0
  281. end
  282.  
  283. if rCtrl and GetTime() - modtime &amp;gt; 1 then
  284. modtime = GetTime()
  285. if AutoStealth then
  286. AutoStealth = nil
  287. print(&amp;quot;Auto Stealth: \124cFFE61515Disabled&amp;quot;)
  288. else
  289. AutoStealth = 1
  290. print(&amp;quot;Auto Stealth: \124cFF15E615Enabled&amp;quot;)
  291. end
  292. end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target><CancelChannel>False</CancelChannel><SkipUnknown>True</SkipUnknown></Ability></ROGUE>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement