[BETA] PQRotation - an automated ability priority queue.

[Kinky]

And here it is! The renewed Shadow Priest profile.
Shadow Priest Profile
It'll continue to work as usual if you're level 85, but for a leveling Priest, here's some of the things it'll do for you.

1. Automatic tracking of learned abilities / spells
2. Automatic buffing of Power Word: Fortitude, Shadow Protection, Inner Fire and Power Word: Shield if you go under 70% health
3. Smite and Shadow Word: Pain spam until you reach level 10, where smite gets replaced by Mind Flay

In the beginning, it can be quite mana intensive to use Power Word: Shield so you might disable or remove the spell from the Rotation window as you see fit.
Tested it on a brand new Worgen Priest (which I ran to level 20 for testing purpouses) and my main level 85 Priest. I also re-wrote most of the code and optimized it a bit. (Still working on a way to effectively clip Mind Flay)

Have a go at it and let me know what you guys think!

@ticklets:

local _,_,_,LB = UnitBuffID("target",33763)

if LB ~= nil and UnitThreathSituation("target") == 3 or UnitGroupRolesAssigned("target") == "TANK" then
	if LB == 3 then return false
	else return true end
else return true
end

Effectively, that's checking for stacks of Lifebloom on your current target. (I'm assuming the HoT ID is 33763, I'm not sure)
Then just to take it line by line; it checks if Lifebloom is active on the current tank, then checks if you have 3 stacks of lifebloom on the target and returns false otherwise it returns true if you don't. Finally, if Lifebloom is not active on your tank target then it casts it.

I'm not really sure what's wrong with the code as it's something like that I'm using for Dark Archangel on my Shadowpriest. (Then again, the Buff's ID and the Evangelism buff ID are different)

[trulygangster]

Keep Up the good work mentally idk if people tell you but i kmow i really appreciate all you and everyone elses hard work. Its amazing the potential this small program has. Im testing this as we speak (:

[kickmydog]

Xelper,

Would it be possible to have a duplicate button on the "rotation" window so that a Rotation could be instantly duplicated for minor tweaks or revamps. Of course a rename feature would need to pop up once the duplicate/clone button was used for the new rotation.

[lostwalker]

And here it is! The renewed Shadow Priest profile.
Shadow Priest Profile

Mentally< quick question for you.. In your zip you have 2 priest_rotation files, why is that and which is what?

Thanks
LW

[Meatglue]

Sheuron -

On the MM hunter profile I noticed it does not seem to use aimed shot when it should..is it just me?

[jackus]

Does anyone have an example of how to track a group of enemies/friendlies and their buffs/debuffs to be able to dispell them and actually dispell them?

Such as track who is enemy and has avanging wrath and use dispell magic on them to remove it.
Or a friendly who got stun by pally stun or mages sheep and remove it.

I can do the rest myself

PS: funny i am considered lazy leecher, having provided free of charge code over the years such as custom classes and reloggers, I would have thought it wouldnt make me a leecher, oh well.

PS2: i poke around abit and I think i understand a bit better how this works, heres some code i made to try out my idea, it is very crude, anyone have suggestions?

-- Author      : Silent
-- Create Date : 9/17/2011 9:58:31 PM

function hasDispellableBuff(name)
     if name ~= nil then
        a=b=c=d=e=f=g=h=i=j=k=l=m=n=o=p=q=nil
        -- stolen from builtin priest dispeller thing
        -- put "--" in front of what spells u dont want dispelled remove it otherwise
        a = UnitBuffID(name, 54428) --Plea
        --b = UnitBuffID(name, 6346) --Fear Ward
        --c = UnitBuffID(name, 17) --PWD:S
        d = UnitBuffID(name, 89485) --Inner Focus
        e = UnitBuffID(name, 10060) --Power Infusion
        f = UnitBuffID(name, 16188) --NS
        g = UnitBuffID(name, 29166) --Innervate
        h = UnitBuffID(name, 16689) --Nature's Grasp
        i = UnitBuffID(name, 16974) --PredSwift
        j = UnitBuffID(name, 17116) --NSDruid
        k = UnitBuffID(name, 1022) --BoP
        --l = UnitBuffID(name, 1044) --Freedom
        m = UnitBuffID(name, 31884) --Avenging Wrath
        n = UnitBuffID(name, 12472) --Icy Veins
        --o = UnitBuffID(name, 11426) --IceBarrier
        --p = UnitBuffID(name, 543) --MageWard        
        --q = UnitBuffID(name, 1463) --ManaShield

        if a ~= nil or b ~= nil or c ~= nil or d ~= nil or e ~= nil or f ~= nil or g ~= nil or h ~= nil or i ~= nil or j ~= nil or k ~= nil or l ~= nil or m ~= nil or n ~= nil or o ~= nil or p ~= nil or q ~= nil then
           return true     -- cast only 1 time
        else 
            return false    -- we want out
        end
    end
end
function checkArenaEnemies()  
  -- method stolen from Gladius
  local groupSize = max(GetRealNumPartyMembers()+1, GetRealNumRaidMembers())
  for x=1, groupSize do
    -- stolen from The Protecter addon
    name = UnitName('arena'..x)
    if hasDispellableBuff(name) then
        -- stolen from builtin priest dispeller thing
        CastSpellByID(527,name)
        return true
    else
        return false
    end    
  end
end

function checkTarget()  
    name = UnitName('target')
    if hasDispellableBuff(name) then       
        return true
    else
        return false
    end 
end

if PQR_IsMoving(1) then
    if checkTarget() then
        return true
    else
        checkArenaEnemies()
    end
    return false
end

Was getting some lua errors earlier, dont know if it was fixed, need someone to test with...

PS3: not working, any suggestions?
PS4: was getting constant lua errors, disabled all addons, stop giving errors, any idea on how to prevent this errors without disabling the addons?

I tried the same, but dispelling teammates instead.

								 									 										 											 												 													 														local da = UnitDebuffID("party1", 49203)
local db = UnitDebuffID("party1", 47476)
local dc = UnitDebuffID("party1", 339)
local de = UnitDebuffID("party1", 3355)
local df = UnitDebuffID("party1", 34490)
local dg = UnitDebuffID("party1", 19185)
local dh = UnitDebuffID("party1", 50245)
local di = UnitDebuffID("party1", 4167)
local dj = UnitDebuffID("party1", 44572)
local dk = UnitDebuffID("party1", 83047)
local dl = UnitDebuffID("party1", 118)
local dm = UnitDebuffID("party1", 82691)
local dn = UnitDebuffID("party1", 18469)
local dos = UnitDebuffID("party1", 33395)
local dp = UnitDebuffID("party1", 122)
local dq = UnitDebuffID("party1", 83302)
local dr = UnitDebuffID("party1", 55080)
local ds = UnitDebuffID("party1", 120)
local dt = UnitDebuffID("party1", 31589)
local du = UnitDebuffID("party1", 853)
local dv = UnitDebuffID("party1", 20066)
local dw = UnitDebuffID("party1", 31935)
local dx = UnitDebuffID("party1", 605)
local dy = UnitDebuffID("party1", 64044)
local dz = UnitDebuffID("party1", 8122)
local daa = UnitDebuffID("party1", 15487)
local dbb = UnitDebuffID("party1", 64695)
local dcc = UnitDebuffID("party1", 63685)
local ddd = UnitDebuffID("party1", 5782)
local dd = UnitDebuffID("party1", 5484)
local dee = UnitDebuffID("party1", 6358)
local dff = UnitDebuffID("party1", 30283)
local dgg = UnitDebuffID("party1", 6789)
local dhh = UnitDebuffID("party1", 31117)
local dii = UnitDebuffID("party1", 18498)
local aa = UnitDebuffID("party2", 49203)
local ab = UnitDebuffID("party2", 47476)
local ac = UnitDebuffID("party2", 339)
local ae = UnitDebuffID("party2", 3355)
local af = UnitDebuffID("party2", 34490)
local ag = UnitDebuffID("party2", 19185)
local ah = UnitDebuffID("party2", 50245)
local ai = UnitDebuffID("party2", 4167)
local aj = UnitDebuffID("party2", 44572)
local ak = UnitDebuffID("party2", 83047)
local al = UnitDebuffID("party2", 118)
local am = UnitDebuffID("party2", 82691)
local an = UnitDebuffID("party2", 18469)
local ao = UnitDebuffID("party2", 33395)
local ap = UnitDebuffID("party2", 122)
local aq = UnitDebuffID("party2", 83302)
local ar = UnitDebuffID("party2", 55080)
local as = UnitDebuffID("party2", 120)
local at = UnitDebuffID("party2", 31589)
local au = UnitDebuffID("party2", 853)
local av = UnitDebuffID("party2", 20066)
local aw = UnitDebuffID("party2", 31935)
local ax = UnitDebuffID("party2", 605)
local ay = UnitDebuffID("party2", 64044)
local az = UnitDebuffID("party2", 8122)
local aaa = UnitDebuffID("party2", 15487)
local abb = UnitDebuffID("party2", 64695)
local acc = UnitDebuffID("party2", 63685)
local add = UnitDebuffID("party2", 5782)
local ad = UnitDebuffID("party2", 5484)
local aee = UnitDebuffID("party2", 6358)
local aff = UnitDebuffID("party2", 30283)
local agg = UnitDebuffID("party2", 6789)
local ahh = UnitDebuffID("party2", 31117)
local aii = UnitDebuffID("party2", 18498)
local ba = UnitDebuffID("party3", 49203)
local bb = UnitDebuffID("party3", 47476)
local bc = UnitDebuffID("party3", 339)
local be = UnitDebuffID("party3", 3355)
local bf = UnitDebuffID("party3", 34490)
local bg = UnitDebuffID("party3", 19185)
local bh = UnitDebuffID("party3", 50245)
local bi = UnitDebuffID("party3", 4167)
local bj = UnitDebuffID("party3", 44572)
local bk = UnitDebuffID("party3", 83047)
local bl = UnitDebuffID("party3", 118)
local bm = UnitDebuffID("party3", 82691)
local bn = UnitDebuffID("party3", 18469)
local bo = UnitDebuffID("party3", 33395)
local bp = UnitDebuffID("party3", 122)
local bq = UnitDebuffID("party3", 83302)
local br = UnitDebuffID("party3", 55080)
local bs = UnitDebuffID("party3", 120)
local bt = UnitDebuffID("party3", 31589)
local bu = UnitDebuffID("party3", 853)
local bv = UnitDebuffID("party3", 20066)
local bw = UnitDebuffID("party3", 31935)
local bx = UnitDebuffID("party3", 605)
local by = UnitDebuffID("party3", 64044)
local bz = UnitDebuffID("party3", 8122)
local baa = UnitDebuffID("party3", 15487)
local bbb = UnitDebuffID("party3", 64695)
local bcc = UnitDebuffID("party3", 63685)
local bdd = UnitDebuffID("party3", 5782)
local bd = UnitDebuffID("party3", 5484)
local bee = UnitDebuffID("party3", 6358)
local bff = UnitDebuffID("party3", 30283)
local bgg = UnitDebuffID("party3", 6789)
local bhh = UnitDebuffID("party3", 31117)
local bii = UnitDebuffID("party3", 18498)
local ca = UnitDebuffID("party4", 49203)
local cb = UnitDebuffID("party4", 47476)
local cc = UnitDebuffID("party4", 339)
local ce = UnitDebuffID("party4", 3355)
local cf = UnitDebuffID("party4", 34490)
local cg = UnitDebuffID("party4", 19185)
local ch = UnitDebuffID("party4", 50245)
local ci = UnitDebuffID("party4", 4167)
local cj = UnitDebuffID("party4", 44572)
local ck = UnitDebuffID("party4", 83047)
local cl = UnitDebuffID("party4", 118)
local cm = UnitDebuffID("party4", 82691)
local cn = UnitDebuffID("party4", 18469)
local co = UnitDebuffID("party4", 33395)
local cp = UnitDebuffID("party4", 122)
local cq = UnitDebuffID("party4", 83302)
local cr = UnitDebuffID("party4", 55080)
local cs = UnitDebuffID("party4", 120)
local ct = UnitDebuffID("party4", 31589)
local cu = UnitDebuffID("party4", 853)
local cv = UnitDebuffID("party4", 20066)
local cw = UnitDebuffID("party4", 31935)
local cx = UnitDebuffID("party4", 605)
local cy = UnitDebuffID("party4", 64044)
local cz = UnitDebuffID("party4", 8122)
local caa = UnitDebuffID("party4", 15487)
local cbb = UnitDebuffID("party4", 64695)
local ccc = UnitDebuffID("party4", 63685)
local cdd = UnitDebuffID("party4", 5782)
local cd = UnitDebuffID("party4", 5484)
local cee = UnitDebuffID("party4", 6358)
local cff = UnitDebuffID("party4", 30283)
local cgg = UnitDebuffID("party4", 6789)
local chh = UnitDebuffID("party4", 31117)
local cii = UnitDebuffID("party4", 18498)
local ea = UnitDebuffID("party5", 49203)
local eb = UnitDebuffID("party5", 47476)
local ec = UnitDebuffID("party5", 339)
local ee = UnitDebuffID("party5", 3355)
local ef = UnitDebuffID("party5", 34490)
local eg = UnitDebuffID("party5", 19185)
local eh = UnitDebuffID("party5", 50245)
local ei = UnitDebuffID("party5", 4167)
local ej = UnitDebuffID("party5", 44572)
local ek = UnitDebuffID("party5", 83047)
local el = UnitDebuffID("party5", 118)
local em = UnitDebuffID("party5", 82691)
local en = UnitDebuffID("party5", 18469)
local eo = UnitDebuffID("party5", 33395)
local ep = UnitDebuffID("party5", 122)
local eq = UnitDebuffID("party5", 83302)
local er = UnitDebuffID("party5", 55080)
local es = UnitDebuffID("party5", 120)
local et = UnitDebuffID("party5", 31589)
local eu = UnitDebuffID("party5", 853)
local ev = UnitDebuffID("party5", 20066)
local ew = UnitDebuffID("party5", 31935)
local ex = UnitDebuffID("party5", 605)
local ey = UnitDebuffID("party5", 64044)
local ez = UnitDebuffID("party5", 8122)
local eaa = UnitDebuffID("party5", 15487)
local ebb = UnitDebuffID("party5", 64695)
local ecc = UnitDebuffID("party5", 63685)
local edd = UnitDebuffID("party5", 5782)
local ed = UnitDebuffID("party5", 5484)
local eee = UnitDebuffID("party5", 6358)
local eff = UnitDebuffID("party5", 30283)
local egg = UnitDebuffID("party5", 6789)
local ehh = UnitDebuffID("party5", 31117)
local eii = UnitDebuffID("party5", 18498)
local fa = UnitDebuffID(targettoheal, 49203)
local fb = UnitDebuffID(targettoheal, 47476)
local fc = UnitDebuffID(targettoheal, 339)
local fe = UnitDebuffID(targettoheal, 3355)
local ff = UnitDebuffID(targettoheal, 34490)
local fg = UnitDebuffID(targettoheal, 19185)
local fh = UnitDebuffID(targettoheal, 50245)
local fi = UnitDebuffID(targettoheal, 4167)
local fj = UnitDebuffID(targettoheal, 44572)
local fk = UnitDebuffID(targettoheal, 83047)
local fl = UnitDebuffID(targettoheal, 118)
local fm = UnitDebuffID(targettoheal, 82691)
local fn = UnitDebuffID(targettoheal, 18469)
local fo = UnitDebuffID(targettoheal, 33395)
local fp = UnitDebuffID(targettoheal, 122)
local fq = UnitDebuffID(targettoheal, 83302)
local fr = UnitDebuffID(targettoheal, 55080)
local fs = UnitDebuffID(targettoheal, 120)
local ft = UnitDebuffID(targettoheal, 31589)
local fu = UnitDebuffID(targettoheal, 853)
local fv = UnitDebuffID(targettoheal, 20066)
local fw = UnitDebuffID(targettoheal, 31935)
local fx = UnitDebuffID(targettoheal, 605)
local fy = UnitDebuffID(targettoheal, 64044)
local fz = UnitDebuffID(targettoheal, 8122)
local faa = UnitDebuffID(targettoheal, 15487)
local fbb = UnitDebuffID(targettoheal, 64695)
local fcc = UnitDebuffID(targettoheal, 63685)
local fdd = UnitDebuffID(targettoheal, 5782)
local fd = UnitDebuffID(targettoheal, 5484)
local fee = UnitDebuffID(targettoheal, 6358)
local fff = UnitDebuffID(targettoheal, 30283)
local fgg = UnitDebuffID(targettoheal, 6789)
local fhh = UnitDebuffID(targettoheal, 31117)
local fii = UnitDebuffID(targettoheal, 18498)
local uaa = UnitDebuffID(targettoheal, 30108)
local uab = UnitDebuffID("party1", 30108)
local uac = UnitDebuffID("party2", 30108)
local uad = UnitDebuffID("party3", 30108)
local uae = UnitDebuffID("party4", 30108)
local uaf = UnitDebuffID("party5", 30108)
local vta = UnitDebuffID(targettoheal, 34914)
local vtb = UnitDebuffID("party1", 34914)
local vtc = UnitDebuffID("party2", 34914)
local vtd = UnitDebuffID("party3", 34914)
local vte = UnitDebuffID("party4", 34914)
local vtf = UnitDebuffID("party5", 34914)
 
if da ~= nil or db ~= nil or dc ~= nil or dd ~= nil or de ~= nil or df ~= nil or dg ~= nil or dh ~= nil or di ~= nil or dj ~= nil or dk ~= nil or dl ~= nil or dm ~= nil or dn ~= nil or dos ~= nil or dp ~= nil or dq ~= nil or dr ~= nil or ds ~= nil or dt ~= nil or du ~= nil or dv ~= nil or dw ~= nil or dx ~= nil or dy ~= nil or dz ~= nil or daa ~= nil or dbb ~= nil or dcc ~= nil or ddd ~= nil or dee ~= nil or dff ~= nil or dgg ~= nil or dhh ~= nil or dii ~= nil and UnitInRange("party1") 
then CastSpellByID(4987,"party1") 
end

if aa ~= nil or ab ~= nil or ac ~= nil or ad ~= nil or ae ~= nil or af ~= nil or ag ~= nil or ah ~= nil or ai ~= nil or aj ~= nil or ak ~= nil or al ~= nil or am ~= nil or an ~= nil or ao ~= nil or ap ~= nil or aq ~= nil or ar ~= nil or as ~= nil or at ~= nil or au ~= nil or av ~= nil or aw ~= nil or ax ~= nil or ay ~= nil or az ~= nil or aaa ~= nil or abb ~= nil or acc ~= nil or add ~= nil or aee ~= nil or aff ~= nil or agg ~= nil or ahh ~= nil or aii ~= nil and UnitInRange("party2")
then CastSpellByID(4987,"party2") 
end

if ba ~= nil or bb ~= nil or bc ~= nil or bd ~= nil or be ~= nil or bf ~= nil or bg ~= nil or bh ~= nil or bi ~= nil or bj ~= nil or bk ~= nil or bl ~= nil or bm ~= nil or bn ~= nil or bo ~= nil or bp ~= nil or bq ~= nil or br ~= nil or bs ~= nil or bt ~= nil or bu ~= nil or bv ~= nil or bw ~= nil or bx ~= nil or by ~= nil or bz ~= nil or baa ~= nil or bbb ~= nil or bcc ~= nil or bdd ~= nil or bee ~= nil or bff ~= nil or bgg ~= nil or bhh ~= nil or bii ~= nil and UnitInRange("party3")
then CastSpellByID(4987,"party3") 
end

if ca ~= nil or cb ~= nil or cc ~= nil or cd ~= nil or ce ~= nil or cf ~= nil or cg ~= nil or ch ~= nil or ci ~= nil or cj ~= nil or ck ~= nil or cl ~= nil or cm ~= nil or cn ~= nil or co ~= nil or cp ~= nil or cq ~= nil or cr ~= nil or cs ~= nil or ct ~= nil or cu ~= nil or cv ~= nil or cw ~= nil or cx ~= nil or cy ~= nil or cz ~= nil or caa ~= nil or cbb ~= nil or ccc ~= nil or cdd ~= nil or cee ~= nil or cff ~= nil or cgg ~= nil or chh ~= nil or cii ~= nil and UnitInRange("party4")
then CastSpellByID(4987,"party4")
end

if ea ~= nil or eb ~= nil or ec ~= nil or ed ~= nil or ee ~= nil or ef ~= nil or eg ~= nil or eh ~= nil or ei ~= nil or ej ~= nil or ek ~= nil or el ~= nil or em ~= nil or en ~= nil or eo ~= nil or ep ~= nil or eq ~= nil or er ~= nil or es ~= nil or et ~= nil or eu ~= nil or ev ~= nil or ew ~= nil or ex ~= nil or ey ~= nil or ez ~= nil or eee ~= nil or ebb ~= nil or ecc ~= nil or edd ~= nil or eaa ~= nil or eff ~= nil or egg ~= nil or ehh ~= nil or eii ~= nil and UnitInRange("party5")
then CastSpellByID(4987,"party5") 
end

But it dont work :/

[SilentWarrior]

Updated, works single target, but doesnt seem to be working in arena. Can anyone help?

-- Author      : Silent
-- Create Date : 9/17/2011 9:58:31 PM

function hasDispellableBuff(name)
     if name ~= nil then
        --a=b=c=d=e=f=g=h=i=j=k=l=m=n=o=p=q=nil
        -- stolen from builtin priest dispeller thing
        -- put "--" in front of what spells u dont want dispelled remove it otherwise
        a = UnitBuffID(name, 54428) --Plea
        b = UnitBuffID(name, 6346) --Fear Ward
        --c = UnitBuffID(name, 17) --PWD:S
        d = UnitBuffID(name, 89485) --Inner Focus
        e = UnitBuffID(name, 10060) --Power Infusion
        f = UnitBuffID(name, 16188) --NS
        g = UnitBuffID(name, 29166) --Innervate
        h = UnitBuffID(name, 16689) --Nature's Grasp
        i = UnitBuffID(name, 16974) --PredSwift
        j = UnitBuffID(name, 17116) --NSDruid
        k = UnitBuffID(name, 1022) --BoP
        l = UnitBuffID(name, 1044) --Freedom
        m = UnitBuffID(name, 31884) --Avenging Wrath
        n = UnitBuffID(name, 12472) --Icy Veins
        o = UnitBuffID(name, 11426) --IceBarrier
        --p = UnitBuffID(name, 543) --MageWard		
        q = UnitBuffID(name, 1463) --ManaShield

        if a ~= nil or b ~= nil or c ~= nil or d ~= nil or e ~= nil or f ~= nil or g ~= nil or h ~= nil or i ~= nil or j ~= nil or k ~= nil or l ~= nil or m ~= nil or n ~= nil or o ~= nil or p ~= nil or q ~= nil then
	       return true     -- cast only 1 time
        else 
            return false    -- we want out
        end
    end
end
function checkArenaEnemies()  
  -- method stolen from Gladius
  local groupSize = max(GetRealNumPartyMembers()+1, GetRealNumRaidMembers())
  for x=1, groupSize do
    -- stolen from The Protecter addon
    name = "arena"..x
    if hasDispellableBuff(name) then
        -- stolen from builtin priest dispeller thing
        CastSpellByID(527,name)
        return true
    else
        return false
    end    
  end
end

function checkTarget() 
    name = "target"
    if hasDispellableBuff(name) then       
        return true
    else
        return false
    end 
end

if PQR_IsMoving(1) then
    if checkTarget() then
        return true
    else
        checkArenaEnemies()
    end
    return false
end

[diesall]

@ xelper is possible to use external libraries without it trying to disable the addon the library belongs too, ie. i can call libRange and use it within the scope of an ability, however as soon as its goes to cast the ability using return true, calling either runmacrotext or CastspellbyID, it seems to think that the addon i called the library from is trying to use CastspellbyID and wants me to disable the addon.

[Kinky]

Mentally< quick question for you.. In your zip you have 2 priest_rotation files, why is that and which is what?

Thanks
LW

I have absolutely no idea. It just did that by itself. I assume it's Priest_Rotations you want to keep, not Priest_Rotation.

[diesall]

@silentwarrior

not too sure why its not working, it might be a conflict with which spellcast its firing inside the checkArenaEnemies function, as your calling the spell to fire within the function itself you probably dont want the abilities native function calling it as well via the return true, try returning false instead

[SilentWarrior]

@silentwarrior

not too sure why its not working, it might be a conflict with which spellcast its firing inside the checkArenaEnemies function, as your calling the spell to fire within the function itself you probably dont want the abilities native function calling it as well via the return true, try returning false instead

Updated, pending test :

-- Author      : Silent
-- Create Date : 9/17/2011 9:58:31 PM

function checkTeamMates()
    local da = UnitDebuffID("party1", 49203)
    local db = UnitDebuffID("party1", 47476)
    local dc = UnitDebuffID("party1", 339)
    local de = UnitDebuffID("party1", 3355)
    local df = UnitDebuffID("party1", 34490)
    local dg = UnitDebuffID("party1", 19185)
    local dh = UnitDebuffID("party1", 50245)
    local di = UnitDebuffID("party1", 4167)
    local dj = UnitDebuffID("party1", 44572)
    local dk = UnitDebuffID("party1", 83047)
    local dl = UnitDebuffID("party1", 118)
    local dm = UnitDebuffID("party1", 82691)
    local dn = UnitDebuffID("party1", 18469)
    local dos = UnitDebuffID("party1", 33395)
    local dp = UnitDebuffID("party1", 122)
    local dq = UnitDebuffID("party1", 83302)
    local dr = UnitDebuffID("party1", 55080)
    local ds = UnitDebuffID("party1", 120)
    local dt = UnitDebuffID("party1", 31589)
    local du = UnitDebuffID("party1", 853)
    local dv = UnitDebuffID("party1", 20066)
    local dw = UnitDebuffID("party1", 31935)
    local dx = UnitDebuffID("party1", 605)
    local dy = UnitDebuffID("party1", 64044)
    local dz = UnitDebuffID("party1", 8122)
    local daa = UnitDebuffID("party1", 15487)
    local dbb = UnitDebuffID("party1", 64695)
    local dcc = UnitDebuffID("party1", 63685)
    local ddd = UnitDebuffID("party1", 5782)
    local dd = UnitDebuffID("party1", 5484)
    local dee = UnitDebuffID("party1", 6358)
    local dff = UnitDebuffID("party1", 30283)
    local dgg = UnitDebuffID("party1", 6789)
    local dhh = UnitDebuffID("party1", 31117)
    local dii = UnitDebuffID("party1", 18498)
    local aa = UnitDebuffID("party2", 49203)
    local ab = UnitDebuffID("party2", 47476)
    local ac = UnitDebuffID("party2", 339)
    local ae = UnitDebuffID("party2", 3355)
    local af = UnitDebuffID("party2", 34490)
    local ag = UnitDebuffID("party2", 19185)
    local ah = UnitDebuffID("party2", 50245)
    local ai = UnitDebuffID("party2", 4167)
    local aj = UnitDebuffID("party2", 44572)
    local ak = UnitDebuffID("party2", 83047)
    local al = UnitDebuffID("party2", 118)
    local am = UnitDebuffID("party2", 82691)
    local an = UnitDebuffID("party2", 18469)
    local ao = UnitDebuffID("party2", 33395)
    local ap = UnitDebuffID("party2", 122)
    local aq = UnitDebuffID("party2", 83302)
    local ar = UnitDebuffID("party2", 55080)
    local as = UnitDebuffID("party2", 120)
    local at = UnitDebuffID("party2", 31589)
    local au = UnitDebuffID("party2", 853)
    local av = UnitDebuffID("party2", 20066)
    local aw = UnitDebuffID("party2", 31935)
    local ax = UnitDebuffID("party2", 605)
    local ay = UnitDebuffID("party2", 64044)
    local az = UnitDebuffID("party2", 8122)
    local aaa = UnitDebuffID("party2", 15487)
    local abb = UnitDebuffID("party2", 64695)
    local acc = UnitDebuffID("party2", 63685)
    local add = UnitDebuffID("party2", 5782)
    local ad = UnitDebuffID("party2", 5484)
    local aee = UnitDebuffID("party2", 6358)
    local aff = UnitDebuffID("party2", 30283)
    local agg = UnitDebuffID("party2", 6789)
    local ahh = UnitDebuffID("party2", 31117)
    local aii = UnitDebuffID("party2", 18498)
    local ba = UnitDebuffID("party3", 49203)
    local bb = UnitDebuffID("party3", 47476)
    local bc = UnitDebuffID("party3", 339)
    local be = UnitDebuffID("party3", 3355)
    local bf = UnitDebuffID("party3", 34490)
    local bg = UnitDebuffID("party3", 19185)
    local bh = UnitDebuffID("party3", 50245)
    local bi = UnitDebuffID("party3", 4167)
    local bj = UnitDebuffID("party3", 44572)
    local bk = UnitDebuffID("party3", 83047)
    local bl = UnitDebuffID("party3", 118)
    local bm = UnitDebuffID("party3", 82691)
    local bn = UnitDebuffID("party3", 18469)
    local bo = UnitDebuffID("party3", 33395)
    local bp = UnitDebuffID("party3", 122)
    local bq = UnitDebuffID("party3", 83302)
    local br = UnitDebuffID("party3", 55080)
    local bs = UnitDebuffID("party3", 120)
    local bt = UnitDebuffID("party3", 31589)
    local bu = UnitDebuffID("party3", 853)
    local bv = UnitDebuffID("party3", 20066)
    local bw = UnitDebuffID("party3", 31935)
    local bx = UnitDebuffID("party3", 605)
    local by = UnitDebuffID("party3", 64044)
    local bz = UnitDebuffID("party3", 8122)
    local baa = UnitDebuffID("party3", 15487)
    local bbb = UnitDebuffID("party3", 64695)
    local bcc = UnitDebuffID("party3", 63685)
    local bdd = UnitDebuffID("party3", 5782)
    local bd = UnitDebuffID("party3", 5484)
    local bee = UnitDebuffID("party3", 6358)
    local bff = UnitDebuffID("party3", 30283)
    local bgg = UnitDebuffID("party3", 6789)
    local bhh = UnitDebuffID("party3", 31117)
    local bii = UnitDebuffID("party3", 18498)
    local ca = UnitDebuffID("party4", 49203)
    local cb = UnitDebuffID("party4", 47476)
    local cc = UnitDebuffID("party4", 339)
    local ce = UnitDebuffID("party4", 3355)
    local cf = UnitDebuffID("party4", 34490)
    local cg = UnitDebuffID("party4", 19185)
    local ch = UnitDebuffID("party4", 50245)
    local ci = UnitDebuffID("party4", 4167)
    local cj = UnitDebuffID("party4", 44572)
    local ck = UnitDebuffID("party4", 83047)
    local cl = UnitDebuffID("party4", 118)
    local cm = UnitDebuffID("party4", 82691)
    local cn = UnitDebuffID("party4", 18469)
    local co = UnitDebuffID("party4", 33395)
    local cp = UnitDebuffID("party4", 122)
    local cq = UnitDebuffID("party4", 83302)
    local cr = UnitDebuffID("party4", 55080)
    local cs = UnitDebuffID("party4", 120)
    local ct = UnitDebuffID("party4", 31589)
    local cu = UnitDebuffID("party4", 853)
    local cv = UnitDebuffID("party4", 20066)
    local cw = UnitDebuffID("party4", 31935)
    local cx = UnitDebuffID("party4", 605)
    local cy = UnitDebuffID("party4", 64044)
    local cz = UnitDebuffID("party4", 8122)
    local caa = UnitDebuffID("party4", 15487)
    local cbb = UnitDebuffID("party4", 64695)
    local ccc = UnitDebuffID("party4", 63685)
    local cdd = UnitDebuffID("party4", 5782)
    local cd = UnitDebuffID("party4", 5484)
    local cee = UnitDebuffID("party4", 6358)
    local cff = UnitDebuffID("party4", 30283)
    local cgg = UnitDebuffID("party4", 6789)
    local chh = UnitDebuffID("party4", 31117)
    local cii = UnitDebuffID("party4", 18498)
    local ea = UnitDebuffID("party5", 49203)
    local eb = UnitDebuffID("party5", 47476)
    local ec = UnitDebuffID("party5", 339)
    local ee = UnitDebuffID("party5", 3355)
    local ef = UnitDebuffID("party5", 34490)
    local eg = UnitDebuffID("party5", 19185)
    local eh = UnitDebuffID("party5", 50245)
    local ei = UnitDebuffID("party5", 4167)
    local ej = UnitDebuffID("party5", 44572)
    local ek = UnitDebuffID("party5", 83047)
    local el = UnitDebuffID("party5", 118)
    local em = UnitDebuffID("party5", 82691)
    local en = UnitDebuffID("party5", 18469)
    local eo = UnitDebuffID("party5", 33395)
    local ep = UnitDebuffID("party5", 122)
    local eq = UnitDebuffID("party5", 83302)
    local er = UnitDebuffID("party5", 55080)
    local es = UnitDebuffID("party5", 120)
    local et = UnitDebuffID("party5", 31589)
    local eu = UnitDebuffID("party5", 853)
    local ev = UnitDebuffID("party5", 20066)
    local ew = UnitDebuffID("party5", 31935)
    local ex = UnitDebuffID("party5", 605)
    local ey = UnitDebuffID("party5", 64044)
    local ez = UnitDebuffID("party5", 8122)
    local eaa = UnitDebuffID("party5", 15487)
    local ebb = UnitDebuffID("party5", 64695)
    local ecc = UnitDebuffID("party5", 63685)
    local edd = UnitDebuffID("party5", 5782)
    local ed = UnitDebuffID("party5", 5484)
    local eee = UnitDebuffID("party5", 6358)
    local eff = UnitDebuffID("party5", 30283)
    local egg = UnitDebuffID("party5", 6789)
    local ehh = UnitDebuffID("party5", 31117)
    local eii = UnitDebuffID("party5", 18498)
    local fa = UnitDebuffID(targettoheal, 49203)
    local fb = UnitDebuffID(targettoheal, 47476)
    local fc = UnitDebuffID(targettoheal, 339)
    local fe = UnitDebuffID(targettoheal, 3355)
    local ff = UnitDebuffID(targettoheal, 34490)
    local fg = UnitDebuffID(targettoheal, 19185)
    local fh = UnitDebuffID(targettoheal, 50245)
    local fi = UnitDebuffID(targettoheal, 4167)
    local fj = UnitDebuffID(targettoheal, 44572)
    local fk = UnitDebuffID(targettoheal, 83047)
    local fl = UnitDebuffID(targettoheal, 118)
    local fm = UnitDebuffID(targettoheal, 82691)
    local fn = UnitDebuffID(targettoheal, 18469)
    local fo = UnitDebuffID(targettoheal, 33395)
    local fp = UnitDebuffID(targettoheal, 122)
    local fq = UnitDebuffID(targettoheal, 83302)
    local fr = UnitDebuffID(targettoheal, 55080)
    local fs = UnitDebuffID(targettoheal, 120)
    local ft = UnitDebuffID(targettoheal, 31589)
    local fu = UnitDebuffID(targettoheal, 853)
    local fv = UnitDebuffID(targettoheal, 20066)
    local fw = UnitDebuffID(targettoheal, 31935)
    local fx = UnitDebuffID(targettoheal, 605)
    local fy = UnitDebuffID(targettoheal, 64044)
    local fz = UnitDebuffID(targettoheal, 8122)
    local faa = UnitDebuffID(targettoheal, 15487)
    local fbb = UnitDebuffID(targettoheal, 64695)
    local fcc = UnitDebuffID(targettoheal, 63685)
    local fdd = UnitDebuffID(targettoheal, 5782)
    local fd = UnitDebuffID(targettoheal, 5484)
    local fee = UnitDebuffID(targettoheal, 6358)
    local fff = UnitDebuffID(targettoheal, 30283)
    local fgg = UnitDebuffID(targettoheal, 6789)
    local fhh = UnitDebuffID(targettoheal, 31117)
    local fii = UnitDebuffID(targettoheal, 18498)
    local uaa = UnitDebuffID(targettoheal, 30108)
    local uab = UnitDebuffID("party1", 30108)
    local uac = UnitDebuffID("party2", 30108)
    local uad = UnitDebuffID("party3", 30108)
    local uae = UnitDebuffID("party4", 30108)
    local uaf = UnitDebuffID("party5", 30108)
    local vta = UnitDebuffID(targettoheal, 34914)
    local vtb = UnitDebuffID("party1", 34914)
    local vtc = UnitDebuffID("party2", 34914)
    local vtd = UnitDebuffID("party3", 34914)
    local vte = UnitDebuffID("party4", 34914)
    local vtf = UnitDebuffID("party5", 34914)
 
    if da ~= nil or db ~= nil or dc ~= nil or dd ~= nil or de ~= nil or df ~= nil or dg ~= nil or dh ~= nil or di ~= nil or dj ~= nil or dk ~= nil or dl ~= nil or dm ~= nil or dn ~= nil or dos ~= nil or dp ~= nil or dq ~= nil or dr ~= nil or ds ~= nil or dt ~= nil or du ~= nil or dv ~= nil or dw ~= nil or dx ~= nil or dy ~= nil or dz ~= nil or daa ~= nil or dbb ~= nil or dcc ~= nil or ddd ~= nil or dee ~= nil or dff ~= nil or dgg ~= nil or dhh ~= nil or dii ~= nil and UnitInRange("party1") 
    then CastSpellByID(527,"party1") 
    end

    if aa ~= nil or ab ~= nil or ac ~= nil or ad ~= nil or ae ~= nil or af ~= nil or ag ~= nil or ah ~= nil or ai ~= nil or aj ~= nil or ak ~= nil or al ~= nil or am ~= nil or an ~= nil or ao ~= nil or ap ~= nil or aq ~= nil or ar ~= nil or as ~= nil or at ~= nil or au ~= nil or av ~= nil or aw ~= nil or ax ~= nil or ay ~= nil or az ~= nil or aaa ~= nil or abb ~= nil or acc ~= nil or add ~= nil or aee ~= nil or aff ~= nil or agg ~= nil or ahh ~= nil or aii ~= nil and UnitInRange("party2")
    then CastSpellByID(527,"party2") 
    end

    if ba ~= nil or bb ~= nil or bc ~= nil or bd ~= nil or be ~= nil or bf ~= nil or bg ~= nil or bh ~= nil or bi ~= nil or bj ~= nil or bk ~= nil or bl ~= nil or bm ~= nil or bn ~= nil or bo ~= nil or bp ~= nil or bq ~= nil or br ~= nil or bs ~= nil or bt ~= nil or bu ~= nil or bv ~= nil or bw ~= nil or bx ~= nil or by ~= nil or bz ~= nil or baa ~= nil or bbb ~= nil or bcc ~= nil or bdd ~= nil or bee ~= nil or bff ~= nil or bgg ~= nil or bhh ~= nil or bii ~= nil and UnitInRange("party3")
    then CastSpellByID(527,"party3") 
    end

    if ca ~= nil or cb ~= nil or cc ~= nil or cd ~= nil or ce ~= nil or cf ~= nil or cg ~= nil or ch ~= nil or ci ~= nil or cj ~= nil or ck ~= nil or cl ~= nil or cm ~= nil or cn ~= nil or co ~= nil or cp ~= nil or cq ~= nil or cr ~= nil or cs ~= nil or ct ~= nil or cu ~= nil or cv ~= nil or cw ~= nil or cx ~= nil or cy ~= nil or cz ~= nil or caa ~= nil or cbb ~= nil or ccc ~= nil or cdd ~= nil or cee ~= nil or cff ~= nil or cgg ~= nil or chh ~= nil or cii ~= nil and UnitInRange("party4")
    then CastSpellByID(527,"party4")
    end

    if ea ~= nil or eb ~= nil or ec ~= nil or ed ~= nil or ee ~= nil or ef ~= nil or eg ~= nil or eh ~= nil or ei ~= nil or ej ~= nil or ek ~= nil or el ~= nil or em ~= nil or en ~= nil or eo ~= nil or ep ~= nil or eq ~= nil or er ~= nil or es ~= nil or et ~= nil or eu ~= nil or ev ~= nil or ew ~= nil or ex ~= nil or ey ~= nil or ez ~= nil or eee ~= nil or ebb ~= nil or ecc ~= nil or edd ~= nil or eaa ~= nil or eff ~= nil or egg ~= nil or ehh ~= nil or eii ~= nil and UnitInRange("party5")
    then CastSpellByID(527,"party5") 
    end

end
function hasDispellableBuff(name)
     if name ~= nil then
        a=b=c=d=e=f=g=h=i=j=k=l=m=n=o=p=q=nil
        -- stolen from builtin priest dispeller thing
        -- put "--" in front of what spells u dont want dispelled remove it otherwise
        a = UnitBuffID(name, 54428) --Plea
        b = UnitBuffID(name, 6346) --Fear Ward
        c = UnitBuffID(name, 17) --PWD:S
        d = UnitBuffID(name, 89485) --Inner Focus
        e = UnitBuffID(name, 10060) --Power Infusion
        f = UnitBuffID(name, 16188) --NS
        g = UnitBuffID(name, 29166) --Innervate
        h = UnitBuffID(name, 16689) --Nature's Grasp
        i = UnitBuffID(name, 16974) --PredSwift
        j = UnitBuffID(name, 17116) --NSDruid
        k = UnitBuffID(name, 1022) --BoP
        l = UnitBuffID(name, 1044) --Freedom
        m = UnitBuffID(name, 31884) --Avenging Wrath
        n = UnitBuffID(name, 12472) --Icy Veins
        o = UnitBuffID(name, 11426) --IceBarrier
        p = UnitBuffID(name, 543) --MageWard		
        q = UnitBuffID(name, 1463) --ManaShield

        if a ~= nil or b ~= nil or c ~= nil or d ~= nil or e ~= nil or f ~= nil or g ~= nil or h ~= nil or i ~= nil or j ~= nil or k ~= nil or l ~= nil or m ~= nil or n ~= nil or o ~= nil or p ~= nil or q ~= nil then
	       return true
        else 
            return false
        end
    end
end
function checkArenaEnemies()  
  -- method stolen from Gladius
  local groupSize = max(GetRealNumPartyMembers()+1, GetRealNumRaidMembers())
  for x=1, groupSize do
    -- stolen from The Protecter addon      
    if hasDispellableBuff("arena"..x) then
        -- stolen from builtin priest dispeller thing
        print("dispelling arena"..x)
        CastSpellByID(527,"arena"..x)
        return true
    else
        return false
    end    
  end
end

function checkTarget()
    --return false
    if hasDispellableBuff("target") then 
        print("dispelling target")      
        return true
    else
        return false
    end 
end

if PQR_IsMoving(1) then
    checkTeamMates()
    checkTarget()   
    checkArenaEnemies()    
    return false
end

Doesnt work.

[diesall]

function checkArenaEnemies()
-- method stolen from Gladius
local groupSize = max(GetRealNumPartyMembers()+1, GetRealNumRaidMembers())
for x=1, groupSize do
-- stolen from The Protecter addon
if hasDispellableBuff("arena"..x) then
-- stolen from builtin priest dispeller thing
print("dispelling arena"..x)
CastSpellByID(527,"arena"..x)
return true <- this to false, as your sending the cast with the prior command
else
return false
end
end
end

[sheuron]

@xelper: I think i found a bug. I guess you using this CastSpellByName(GetSpellInfo(spellid)) to cast spells. Works on most spells, but some spells have a secondary text send to arguments. This is an example

GetSpellInfo(60192)
returns CastSpellByName("Freezing Trap Frost - Trap Launcher") and is not working

but, if we use

tostring(GetSpellInfo(60192))
returns CastSpellByName("Freezing Trap") and works fine.

[ticklets]

Sheuron, Would you know how to check if the current target has 3 stacks of lifebloom, and cast it if it does not? I'm having trouble.

[Xelper]

I'm using CastSpellByID to cast the spell ID indicated... I know there are some issues with casting Trap Launcher traps, though. It has to do with the spell ID actually being casted.

Try to type /combatlog ingame, cast the spell and see exactly what spell ID shows up in the combat log... if its the same one you are using let me know.

Also, I think you should implement in your profiles that use the modifier keys (SHIFT, etc) a keyboard focus check.

if GetCurrentKeyBoardFocus() ~= nil then
	return false
end

This way when you are typing you aren't randomly laying down rings of frost when you hit shift.