[BETA] PQRotation - an automated ability priority queue.

[lostinthewoodslol]

Any chance we could get a Spell Reflection ability? One that will switch from 2h to a 1h and shield. Also, only reflect the spells listed below.

118 polymorph
61721 polymorph
28271 polymorph
61305 polymorph
28272 polymorph
61780 polymorph
5782 fear
33786 cyclone
51514 hex

like some of us i just try use codes ppl have used on other random things and try them out. sloppy, but effective. now on my warrior i use a spell reflect macro which is the best macro i know of so basically im guessing you could use the interrupt coding;

_,_,_,_,_,_,_,_,interrupt = UnitCastingInfo { 118, 61721, 28271, 61305, 28272, 61780, 5782, 33786, 51514 } ("target")

if GetSpellCooldown(0) ~= 0 and interrupt == false then
return true
end


and add the macro into the actions.

Name: Spell Reflect
SpellID: 0
Actions:

/cast [stance:1/2,equipped:Shields] Spell Reflection; [stance:3] Defensive Stance
/stopmacro [equipped: Shields]
/stopcasting
/equip Vicious Gladiator's Hacker
/equip Vicious Gladiator's Shield Wall

Target: Target


it will definately work in theory provided the interrupt LUA works as expected. if not some lua pro here could easily brush that up.

[GRB]

For the ppl using the Assasination Rogue profil, whats the pros and cons founded so far?

[bu_ba_911]

@lostinthewoodslol
glad you liked my pause ability took me a long time to come up with that XD

also your mailbox is full

[googlebee]

I havent tried it GRB, it looked alot like the one Snapple38 did a long while back. Ill give it a shot and let u know sometime tho.

[vorn10]

Got latest client of PQR, when i switching or turning off rotation, it switching mine interupt too.

[lostinthewoodslol]

@lostinthewoodslol
glad you liked my pause ability took me a long time to come up with that XD

also your mailbox is full

man its amazing. changed this play style completely. ty

[CryptoCombat]

Here's my frost mage profile. Thoroughly tested, but input is welcome.

Features:
De-curse
Ice Block
Brain Freeze and Fingers of Frost procs
Frostbolt unless interrupted, then Frostfire Bolt
Frost Nova and Cone of Cold if target is in range
Mirror Image and Icy Veins if target has 3x Player's HP or if target is a Hostile Player
If Counterspell is on CD, use Mage Ward
Ice Lance if moving
Ice Armor, Arcane Brilliance if not on Player.
Mana Shield and Ice Barrier if not resting.
Summon Elemental if no pet.

Abilities:

<?xml version="1.0" encoding="utf-8" ?><MAGE><Ability><Name>All: Mana Gem</Name><Default>false</Default><SpellID>0</SpellID><Actions>/use Mana Gem</Actions><Lua>local manapercent = 100 * UnitPower(&amp;quot;player&amp;quot;) / UnitPowerMax(&amp;quot;player&amp;quot;)
local ManaGemStart, ManaGemDuration = GetItemCooldown(36799)
local ManaGemCooldown = (ManaGemStart + ManaGemDuration - GetTime())
local gemcount = GetItemCount(&amp;quot;Mana Gem&amp;quot;)
if gemcount &amp;gt; 0 then
if ManaGemCooldown &amp;lt; 3 then
 if manapercent &amp;lt; 90 then
  return true
 end
end
end</Lua><RecastDelay>0</RecastDelay><Target>Player</Target></Ability><Ability><Name>All: Mirror Image</Name><Default>false</Default><SpellID>55342</SpellID><Actions></Actions><Lua>local PH = UnitHealthMax(&amp;quot;player&amp;quot;)
local EH = UnitHealthMax(&amp;quot;target&amp;quot;)
local EP = UnitIsPlayer(&amp;quot;target&amp;quot;)
local EF = UnitIsEnemy(&amp;quot;player&amp;quot;,&amp;quot;target&amp;quot;)
local PC = UnitAffectingCombat(&amp;quot;player&amp;quot;)
local EC = UnitAffectingCombat(&amp;quot;target&amp;quot;)

if ((PH*3) &amp;lt;= EH or (EP and EF)) and (PC and EC) then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target></Ability><Ability><Name>Fr: Brain Freeze</Name><Default>false</Default><SpellID>44614</SpellID><Actions></Actions><Lua>local BF = UnitAura(&amp;quot;player&amp;quot;, &amp;quot;Brain Freeze&amp;quot;)
if BF then
    return true
end</Lua><RecastDelay>100</RecastDelay><Target>Target</Target></Ability><Ability><Name>Fr: Fingers of Frost</Name><Default>false</Default><SpellID>30455</SpellID><Actions></Actions><Lua>local FF = UnitAura(&amp;quot;player&amp;quot;, &amp;quot;Fingers of Frost&amp;quot;)

if FF then
    return true
end</Lua><RecastDelay>100</RecastDelay><Target>Target</Target></Ability><Ability><Name>Fr: Frostbolt</Name><Default>false</Default><SpellID>116</SpellID><Actions></Actions><Lua>return true</Lua><RecastDelay>100</RecastDelay><Target>Target</Target></Ability><Ability><Name>Fr: Ice Barrier</Name><Default>false</Default><SpellID>11426</SpellID><Actions></Actions><Lua>local IB = UnitAura(&amp;quot;player&amp;quot;, &amp;quot;Ice Barrier&amp;quot;)
local IR = IsResting()
if not(IB) and not(IR) then
    return true
end</Lua><RecastDelay>100</RecastDelay><Target>Target</Target></Ability><Ability><Name>All: Mana Shield</Name><Default>false</Default><SpellID>1463</SpellID><Actions></Actions><Lua>local MS = UnitAura(&amp;quot;player&amp;quot;, &amp;quot;Mana Shield&amp;quot;)
local IR = IsResting()
if not(MS) and not(IR) then
    return true
end</Lua><RecastDelay>100</RecastDelay><Target>Target</Target></Ability><Ability><Name>Fr: Ice Lance</Name><Default>false</Default><SpellID>30455</SpellID><Actions></Actions><Lua>local IC = UnitAffectingCombat(&amp;quot;player&amp;quot;)
if PQR_IsMoving(1) and IC then
    return true
end</Lua><RecastDelay>100</RecastDelay><Target>Target</Target></Ability><Ability><Name>All: Mage Ward</Name><Default>false</Default><SpellID>543</SpellID><Actions></Actions><Lua>local CS, _, _ = GetSpellCooldown(2139)
local CG = UnitCastingInfo(&amp;quot;target&amp;quot;)
if CG and CS then
    return true
end</Lua><RecastDelay>100</RecastDelay><Target>Target</Target></Ability><Ability><Name>All: Counterspell</Name><Default>false</Default><SpellID>2139</SpellID><Actions></Actions><Lua>local CG = UnitCastingInfo(&amp;quot;target&amp;quot;)
if CG then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target></Ability><Ability><Name>Fr: Icy Veins</Name><Default>false</Default><SpellID>12472</SpellID><Actions></Actions><Lua>local PH = UnitHealthMax(&amp;quot;player&amp;quot;)
local EH = UnitHealthMax(&amp;quot;target&amp;quot;)
local EP = UnitIsPlayer(&amp;quot;target&amp;quot;)
local EF = UnitIsEnemy(&amp;quot;player&amp;quot;,&amp;quot;target&amp;quot;)
local PC = UnitAffectingCombat(&amp;quot;player&amp;quot;)
local EC = UnitAffectingCombat(&amp;quot;target&amp;quot;)

if ((PH*3) &amp;lt;= EH or (EP and EF)) and (PC and EC) then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target></Ability><Ability><Name>All: Cone of Cold</Name><Default>false</Default><SpellID>120</SpellID><Actions></Actions><Lua>local SC = CheckInteractDistance(&amp;quot;target&amp;quot;, 3)
local EF = UnitIsEnemy(&amp;quot;player&amp;quot;,&amp;quot;target&amp;quot;)
local EH = UnitHealth(&amp;quot;target&amp;quot;)
if SC and EF and EH &amp;gt; 0 then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target></Ability><Ability><Name>All: Frost Nova</Name><Default>false</Default><SpellID>122</SpellID><Actions></Actions><Lua>local SC = CheckInteractDistance(&amp;quot;target&amp;quot;, 3)
local EF = UnitIsEnemy(&amp;quot;player&amp;quot;,&amp;quot;target&amp;quot;)
local EH = UnitHealth(&amp;quot;target&amp;quot;)
if SC and EF and EH &amp;gt; 0 then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target></Ability><Ability><Name>All: Frost Armor</Name><Default>false</Default><SpellID>7302</SpellID><Actions></Actions><Lua>local FA = UnitAura(&amp;quot;player&amp;quot;, &amp;quot;Frost Armor&amp;quot;)
if not(FA) then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Player</Target></Ability><Ability><Name>All: Arcane Brilliance</Name><Default>false</Default><SpellID>1459</SpellID><Actions></Actions><Lua>local AB = UnitAura(&amp;quot;player&amp;quot;, &amp;quot;Arcane Brilliance&amp;quot;)
if not(AB) then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Player</Target></Ability><Ability><Name>Fr: Elemental</Name><Default>false</Default><SpellID>31687</SpellID><Actions></Actions><Lua>local HP = UnitExists(&amp;quot;pet&amp;quot;)
if not(HP) then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target></Ability><Ability><Name>Pause</Name><Default>false</Default><SpellID>0</SpellID><Actions></Actions><Lua>if IsShiftKeyDown() then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target></Ability><Ability><Name>Fr: Frostfire Bolt</Name><Default>false</Default><SpellID>44614</SpellID><Actions></Actions><Lua>local _, CD, _ = GetSpellCooldown(&amp;quot;Frostbolt&amp;quot;)
if CD &amp;gt; 1.5 then
    return true
end</Lua><RecastDelay>100</RecastDelay><Target>Target</Target></Ability><Ability><Name>All: Ice Block</Name><Default>false</Default><SpellID>45438</SpellID><Actions></Actions><Lua>local PH = UnitHealth(&amp;quot;player&amp;quot;)
local PM = UnitHealthMax(&amp;quot;player&amp;quot;)
if (PH * 100 / PM) &amp;lt;15 then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target></Ability><Ability><Name>All: Remove Curse</Name><Default>false</Default><SpellID>475</SpellID><Actions></Actions><Lua>for i=1,40 do
    local _, _, _, _, DB= UnitDebuff(&amp;quot;player&amp;quot;,i)
    if DB==&amp;quot;Curse&amp;quot; then
        return true
    end
end</Lua><RecastDelay>500</RecastDelay><Target>Player</Target></Ability></MAGE>

Rotations:

<?xml version="1.0" encoding="utf-8" ?><MAGE><Rotation><RotationName>Frost</RotationName><RotationDefault>false</RotationDefault><RotationList>Pause|All: Ice Block|All: Counterspell|Fr: Ice Barrier|All: Mana Shield|All: Mage Ward|All: Arcane Brilliance|All: Frost Armor|Fr: Elemental|All: Remove Curse|Fr: Icy Veins|All: Mirror Image|All: Mana Gem|Fr: Brain Freeze|Fr: Fingers of Frost|All: Decurse|All: Frost Nova|All: Cone of Cold|Fr: Ice Lance|Fr: Frostbolt|Fr: Frostfire Bolt</RotationList></Rotation></MAGE>

Will add Deep Freeze and other abilities as I get them. =)

[GRB]

I havent tried it GRB, it looked alot like the one Snapple38 did a long while back. Ill give it a shot and let u know sometime tho.

Didnt change much, what he add was pretty much all the necessary things, just made a few tweeks, and added a few spells to the list, but since my rogue is only lvl 83 i didnt full tested it tho.

[dyer678]

@Crystal_Tech

How is that sub pvp coming along? Sure am looking forward to it

[Zemnexx]

I was working on making this spell reflect macro, this is what I came up with

SpellID: 0

Name,_,_,_,_,_,_,_,_ = UnitCastingInfo("target")

if Name == ("Fear") and GetSpellCooldown(23920) == 0 or Name == ("Hex") and GetSpellCooldown(23920) == 0 or Name == ("Polymorph") and GetSpellCooldown(23920) == 0 or Name == ("Cyclone") and GetSpellCooldown(23920) == 0 then
	return true
end

Actions:
/equipset Shield
/cast Spell Reflection

but the problem I ran into is that it won't change me to my shield set, I also tried setting it to /equip Vicious Gladiator's Slicer and /equip Vicious Gladiator's Shield Wall, but still nothing, it works perfectly if you already have your sword and board out, but it doesn't work if you don't. Maybe its a bug with the program?

Update: Ok, got it working, set the spell ID to 0 and put the /cast Spell Reflection in the actions instead, and it worked. =)

Now if there was just a function that would check to see if your target has you targeted.

[Xelper]

Small bug was brought to my attention... if you have a profile that uses PQR_IsMoving(x) and you are in an instance with multiple maps and you change maps (IE going from Floor 1 to Floor 2) it will always return false.

Until I get a chance to put in a bug fix you SHOULD be able to just open your world map for a split second to fix it. If not use this script command:

/script SetMapToCurrentZone()

EDIT: Oh yeah, @googlebee... did you have an auto rotation on with combat requirement turned off on your MM hunter? If that is the case it could have been spamming /startattack and that could have been the source of the sound you heard.

[lostinthewoodslol]

Here's my frost mage profile. Thoroughly tested, but input is welcome.

Features:
De-curse
Ice Block
Brain Freeze and Fingers of Frost procs
Frostbolt unless interrupted, then Frostfire Bolt
Frost Nova and Cone of Cold if target is in range
Mirror Image and Icy Veins if target has 3x Player's HP or if target is a Hostile Player
If Counterspell is on CD, use Mage Ward
Ice Lance if moving
Ice Armor, Arcane Brilliance if not on Player.
Mana Shield and Ice Barrier if not resting.
Summon Elemental if no pet.

Abilities:

<?xml version="1.0" encoding="utf-8" ?><MAGE><Ability><Name>All: Mana Gem</Name><Default>false</Default><SpellID>0</SpellID><Actions>/use Mana Gem</Actions><Lua>local manapercent = 100 * UnitPower(&quot;player&quot;) / UnitPowerMax(&quot;player&quot;)
local ManaGemStart, ManaGemDuration = GetItemCooldown(36799)
local ManaGemCooldown = (ManaGemStart + ManaGemDuration - GetTime())
local gemcount = GetItemCount(&quot;Mana Gem&quot;)
if gemcount &gt; 0 then
if ManaGemCooldown &lt; 3 then
 if manapercent &lt; 90 then
  return true
 end
end
end</Lua><RecastDelay>0</RecastDelay><Target>Player</Target></Ability><Ability><Name>All: Mirror Image</Name><Default>false</Default><SpellID>55342</SpellID><Actions></Actions><Lua>local PH = UnitHealthMax(&quot;player&quot;)
local EH = UnitHealthMax(&quot;target&quot;)
local EP = UnitIsPlayer(&quot;target&quot;)
local EF = UnitIsEnemy(&quot;player&quot;,&quot;target&quot;)
local PC = UnitAffectingCombat(&quot;player&quot;)
local EC = UnitAffectingCombat(&quot;target&quot;)

if ((PH*3) &lt;= EH or (EP and EF)) and (PC and EC) then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target></Ability><Ability><Name>Fr: Brain Freeze</Name><Default>false</Default><SpellID>44614</SpellID><Actions></Actions><Lua>local BF = UnitAura(&quot;player&quot;, &quot;Brain Freeze&quot;)
if BF then
    return true
end</Lua><RecastDelay>100</RecastDelay><Target>Target</Target></Ability><Ability><Name>Fr: Fingers of Frost</Name><Default>false</Default><SpellID>30455</SpellID><Actions></Actions><Lua>local FF = UnitAura(&quot;player&quot;, &quot;Fingers of Frost&quot;)

if FF then
    return true
end</Lua><RecastDelay>100</RecastDelay><Target>Target</Target></Ability><Ability><Name>Fr: Frostbolt</Name><Default>false</Default><SpellID>116</SpellID><Actions></Actions><Lua>return true</Lua><RecastDelay>100</RecastDelay><Target>Target</Target></Ability><Ability><Name>Fr: Ice Barrier</Name><Default>false</Default><SpellID>11426</SpellID><Actions></Actions><Lua>local IB = UnitAura(&quot;player&quot;, &quot;Ice Barrier&quot;)
local IR = IsResting()
if not(IB) and not(IR) then
    return true
end</Lua><RecastDelay>100</RecastDelay><Target>Target</Target></Ability><Ability><Name>All: Mana Shield</Name><Default>false</Default><SpellID>1463</SpellID><Actions></Actions><Lua>local MS = UnitAura(&quot;player&quot;, &quot;Mana Shield&quot;)
local IR = IsResting()
if not(MS) and not(IR) then
    return true
end</Lua><RecastDelay>100</RecastDelay><Target>Target</Target></Ability><Ability><Name>Fr: Ice Lance</Name><Default>false</Default><SpellID>30455</SpellID><Actions></Actions><Lua>local IC = UnitAffectingCombat(&quot;player&quot;)
if PQR_IsMoving(1) and IC then
    return true
end</Lua><RecastDelay>100</RecastDelay><Target>Target</Target></Ability><Ability><Name>All: Mage Ward</Name><Default>false</Default><SpellID>543</SpellID><Actions></Actions><Lua>local CS, _, _ = GetSpellCooldown(2139)
local CG = UnitCastingInfo(&quot;target&quot;)
if CG and CS then
    return true
end</Lua><RecastDelay>100</RecastDelay><Target>Target</Target></Ability><Ability><Name>All: Counterspell</Name><Default>false</Default><SpellID>2139</SpellID><Actions></Actions><Lua>local CG = UnitCastingInfo(&quot;target&quot;)
if CG then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target></Ability><Ability><Name>Fr: Icy Veins</Name><Default>false</Default><SpellID>12472</SpellID><Actions></Actions><Lua>local PH = UnitHealthMax(&quot;player&quot;)
local EH = UnitHealthMax(&quot;target&quot;)
local EP = UnitIsPlayer(&quot;target&quot;)
local EF = UnitIsEnemy(&quot;player&quot;,&quot;target&quot;)
local PC = UnitAffectingCombat(&quot;player&quot;)
local EC = UnitAffectingCombat(&quot;target&quot;)

if ((PH*3) &lt;= EH or (EP and EF)) and (PC and EC) then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target></Ability><Ability><Name>All: Cone of Cold</Name><Default>false</Default><SpellID>120</SpellID><Actions></Actions><Lua>local SC = CheckInteractDistance(&quot;target&quot;, 3)
local EF = UnitIsEnemy(&quot;player&quot;,&quot;target&quot;)
local EH = UnitHealth(&quot;target&quot;)
if SC and EF and EH &gt; 0 then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target></Ability><Ability><Name>All: Frost Nova</Name><Default>false</Default><SpellID>122</SpellID><Actions></Actions><Lua>local SC = CheckInteractDistance(&quot;target&quot;, 3)
local EF = UnitIsEnemy(&quot;player&quot;,&quot;target&quot;)
local EH = UnitHealth(&quot;target&quot;)
if SC and EF and EH &gt; 0 then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target></Ability><Ability><Name>All: Frost Armor</Name><Default>false</Default><SpellID>7302</SpellID><Actions></Actions><Lua>local FA = UnitAura(&quot;player&quot;, &quot;Frost Armor&quot;)
if not(FA) then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Player</Target></Ability><Ability><Name>All: Arcane Brilliance</Name><Default>false</Default><SpellID>1459</SpellID><Actions></Actions><Lua>local AB = UnitAura(&quot;player&quot;, &quot;Arcane Brilliance&quot;)
if not(AB) then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Player</Target></Ability><Ability><Name>Fr: Elemental</Name><Default>false</Default><SpellID>31687</SpellID><Actions></Actions><Lua>local HP = UnitExists(&quot;pet&quot;)
if not(HP) then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target></Ability><Ability><Name>Pause</Name><Default>false</Default><SpellID>0</SpellID><Actions></Actions><Lua>if IsShiftKeyDown() then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target></Ability><Ability><Name>Fr: Frostfire Bolt</Name><Default>false</Default><SpellID>44614</SpellID><Actions></Actions><Lua>local _, CD, _ = GetSpellCooldown(&quot;Frostbolt&quot;)
if CD &gt; 1.5 then
    return true
end</Lua><RecastDelay>100</RecastDelay><Target>Target</Target></Ability><Ability><Name>All: Ice Block</Name><Default>false</Default><SpellID>45438</SpellID><Actions></Actions><Lua>local PH = UnitHealth(&quot;player&quot;)
local PM = UnitHealthMax(&quot;player&quot;)
if (PH * 100 / PM) &lt;15 then
    return true
end</Lua><RecastDelay>0</RecastDelay><Target>Target</Target></Ability><Ability><Name>All: Remove Curse</Name><Default>false</Default><SpellID>475</SpellID><Actions></Actions><Lua>for i=1,40 do
    local _, _, _, _, DB= UnitDebuff(&quot;player&quot;,i)
    if DB==&quot;Curse&quot; then
        return true
    end
end</Lua><RecastDelay>500</RecastDelay><Target>Player</Target></Ability></MAGE>

Rotations:

<?xml version="1.0" encoding="utf-8" ?><MAGE><Rotation><RotationName>Frost</RotationName><RotationDefault>false</RotationDefault><RotationList>Pause|All: Ice Block|All: Counterspell|Fr: Ice Barrier|All: Mana Shield|All: Mage Ward|All: Arcane Brilliance|All: Frost Armor|Fr: Elemental|All: Remove Curse|Fr: Icy Veins|All: Mirror Image|All: Mana Gem|Fr: Brain Freeze|Fr: Fingers of Frost|All: Decurse|All: Frost Nova|All: Cone of Cold|Fr: Ice Lance|Fr: Frostbolt|Fr: Frostfire Bolt</RotationList></Rotation></MAGE>

Will add Deep Freeze and other abilities as I get them. =)

nice, Remove Curse is OP.

because im fire pvp im trying to figure out how to ONLY iceblock when my Cauterize talent kicks in and brings me back to 40% health. It will instantly remove the burn debuff. Also maybe add -if iceblock on CD to Mage Ward refresh and absorb the damage.

if anyone could help with that it would be fantastic to have. pve & pvp.

and still trying to figure out how to get my armor to switch between Frost Armor & Mage Armor depending on which class you have targeted. anyone pro with lua could you let me know how this could be done. thanks!

[GRB]

Updated ASSASINATION rogue:

Major change is:

Now you need to have the option "Require combat for Auto Mode" OFF/Unchecked
Couse this profile now will always stealth you out of combat, unless your mounted.

Minor Changes:

-Added Stealth out of combat so you can always beneficts from the +30% energy regen. "I also added an ability to always consume your combo points from the dead bodys that remain with the Recuperate ability. But this is only nice when your leveling your rogue, so its disable now, since this profile is based on raids or partys were you have healers."

-Added ToT ability to be casted always on your focus target, so if you dont have a focus target this ability will not work at all. "this will get improvements later on"
-Changed other minor things.

Download:
ROGUE

Best Regards
GRB

[sheuron]

Done some changes on the Mage Frost PVP rotation, fingers of frost should be now managed better

xeronmage040911PQRProfiles.zip

[Unasrage]

Hey ^^

I was messing whid my Warlock and tryed something i saw in Mage profile: Auto cast Focus Magic -- So i went and tried to make a similar for Dark Intent.

The Ability is test and working perfectly ^^ All credit to Sheuron ofr the code i just moved stuff arround.

Name: Dark Intent

Delay: 500

if UnitAffectingCombat("player") == nil then

local mytarget = nil
local doneFM = nil
local topmana = 0
local group = "party"
local members = GetNumPartyMembers()

if GetNumRaidMembers() > 0 then
  group = "raid"
  members = GetNumRaidMembers()
end

for i = 1, members, 1 do
  local member = group..tostring(i)
  local memberpower = UnitPowerMax(member)
  local _,_,_,_,_,_,_,source = UnitBuffID(member, 80398)
  if source == "player" then doneFM = 1 end
  if memberpower > topmana and UnitInRange(member) and UnitIsUnit("player",member) == nil and source == nil then
    mytarget = member
    topmana = memberpower
  end
end


if mytarget and doneFM == nil then CastSpellByID(80398, mytarget) end

end

Just trow it on top most of the rotacion and before combat it will check/cast Dark Intent on player whid biggest mana pull, if no player arround casts it on your Current summon Demon (not has good has a player but still nice free 3% haste).

Hope it come handy ^^