PQR - Rotation Bot

[firepong]

OK guys. Got a question for you Feral Druids that use my Feral DPS rotation.

I'm updating my list of BossID's for me Smart CD usage like I had back in Cataclysm there at the end. Wanting to know if I should just do BossID's or also do the ID's of the bosses spawned NPC's (ex. 60396 (Rage), 60397 (Strength), 60398 (Courage), 60480 (Titan Spark), 60399 (Qin-xi), 60400 (Jan-xi) on Elegon). Would these add's want to be added for CD's like Berserk or should it just be Boss' since that's where CD's would want to be used the most?

Post here or in my thread (preferably my thread to keep congestion down in this one) and tell me what your thought's are.

[momo1029]

works greate , thanks Mentally
was doing random dungeon and it locked up

@Soapbox, there is. Check our old Blood Death Knight code and you should be able to figure it out by how we handled Death and Decay!

@Everyone else:
I just pushed a quick update for my Demonology profile. I just got replaced in my raid so, I had time to commit the update. (I already got a some top ranks using it. Guess my character name!)
I removed my old code from Immolation Aura (apparently, it never saved the first time!) as it's now being cased after the Aura runs out.

Cleaned up the Standard single/multi-target profile and removed Immolation Aura from it (was causing some issues) along with some minor restructuring. The profile should now cast and queue every spell perfectly without spamming and/or overlapping multiple spells - decreasing performance. I also think I completely fixed the issue where the rotation(s) would sometime stop casting as I've been standing on a Dummy in Stormwind for about 15 minutes without experiencing any rotation stops (from both Standard and AoE.)

Update your profiles through the PQR Rotation Manager or through SVN for the latest changes!
Feedback is much appreciated guys!

As always, if you're interested in helping me out and keep me motivated to create bigger and better profiles, you can make a donation here.

A special and warm thanks to you guys who already donated some!

[firepong]

Version 1.8.0 pushed with new info in DATA file as well as Toggle Button changed to Right alt. Also fixed Profession Buff usage as well as changed Racial's around a little bit. Potion's have also been added in.

WARNING: Pot's are used whenever you have berserk popped for right now. If you use Berserk on trash in raids, you will definitely want to remove "Potions" from the Rotation in Rotation editor. Potion's will also be used in Heroic's for those that carry their Pot's around with them in Heroic's.

[Cahonez]

--DemoBaner--
if select(2,GetSpellCooldown(114203)) == 0
and demoBannerKey ~= nil
and GetCurrentKeyBoardFocus() == nil
then
CastSpellByName(GetSpellInfo(114203))
if SpellIsTargeting() ~= nil
then
CameraOrSelectOrMoveStart()
CameraOrSelectOrMoveStop()
end
_castSpell(114203)
end

--HeroicLeap--
if select(2,GetSpellCooldown(6544)) == 0
and heroicLeapKey ~= nil
and GetCurrentKeyBoardFocus() == nil
then
CastSpellByName(GetSpellInfo(6544))
if SpellIsTargeting() ~= nil
then
CameraOrSelectOrMoveStart()
CameraOrSelectOrMoveStop()
end
_castSpell(6544)
end


if inMelee() == true
then

--------------------------------

anyone see a problem here? seems to be giving me errors.

-peice of failroads fury profile-

[CharleyWex]

@Mentally

It still locking up on me until I move and Touch of Chaos isn't working unless I'm standing still, it won't cast if I move.

[averykey]

Anyone know why I have an error here?
In game it says it's a nil error, last thing I need to fix before profile release. I am going to be going through the code and taking it out to check, but if anyone notices it first. Rep+

local seal = GetShapeshiftForm("player")
local mana = (100 * UnitPower("player") / UnitPowerMax("player"))
local SelflessHealer = select(4, UnitAura("player", "Selfless Healer"))
local PlayerHP = (100 * (UnitHealth("player") + UnitGetIncomingHeals("player")) / UnitHealthMax("player"))
local TargetHP = (100 * (UnitHealth("target") + UnitGetIncomingHeals("target")) / UnitHealthMax("target"))
local Party1HP = (100 * (UnitHealth("party1") + UnitGetIncomingHeals("party1")) / UnitHealthMax("party1"))
local Party2HP = (100 * (UnitHealth("party2") + UnitGetIncomingHeals("party2")) / UnitHealthMax("party2"))
local Party3HP = (100 * (UnitHealth("party3") + UnitGetIncomingHeals("party3")) / UnitHealthMax("party3"))
local Party4HP = (100 * (UnitHealth("party4") + UnitGetIncomingHeals("party4")) / UnitHealthMax("party4"))
local Party5HP = (100 * (UnitHealth("party5") + UnitGetIncomingHeals("party5")) / UnitHealthMax("party5"))

-- Buff Seal if none
if single == nil and aoe == nil and seal ~= 1 then CastShapeshiftForm(1) end

-- Seal Swap
if not UnitIsDeadOrGhost("player") then
    if IsInInstance() and (select(2, GetInstanceInfo()) == "party" or select(2, GetInstanceInfo()) == "raid") then
        if (single == false or single == true or aoe == true) and seal ~= 1 and mana > 10 then 
            CastShapeshiftForm(1)
        elseif aoeMode == false and seal ~= 2 and mana > 10 then 
            CastShapeshiftForm(2)
        elseif mana <= 10 and seal ~= 4 then
            CastShapeshiftForm(4)
        end
    elseif not IsInInstance() or IsInInstance() and (select(2, GetInstanceInfo()) == "pvp" or select(2, GetInstanceInfo()) == "arena") then
        if PlayerHP <= 40 and seal ~= 4 then
            CastShapeshiftForm(4)
        elseif (single == false or single == true or aoe == true) and seal ~= 1 and PlayerHP > 55 then 
            CastShapeshiftForm(1)
        elseif aoe == false and seal ~= 2 and PlayerHP > 55 then 
            CastShapeshiftForm(2)
        end    
    end
end

-- Blessing of Might/Kings
if not IsMounted() and not UnitInVehicle("player") and not UnitIsDeadOrGhost("player") then
    if not UnitBuffID("player", 19740) and not UnitBuffID("player", 116956) then
        CastSpellByName(GetSpellInfo(19740), "player")
    elseif UnitBuffID("player", 116956) then
           if not UnitBuffID("player", 20217) and not UnitBuffID("player", 1126) and not UnitBuffID("player", 90363) and not UnitBuffID("player", 115921) then
            CastSpellByName(GetSpellInfo(20217), "player")
        end
    end
end

-- Solo/Raid Healing
if not IsInInstance() or IsInInstance() and (select(2, GetInstanceInfo()) == "party" or select(2, GetInstanceInfo()) == "raid") then
    -- Lay on Hands
    if PlayerHP <= 20 and PQR_SpellAvailable(633) then
        CastSpellByName(GetSpellInfo(633), "player")
    -- Healthstone
    elseif PlayerHP <= 25 and not PQR_SpellAvailable(633) and select(3,GetItemCooldown(5512)) == 1 and GetItemCount(5512,false,false) > 0 then 
        UseItemByName(5512)
    elseif not IsInInstance() or IsInInstance() and select(2, GetInstanceInfo()) ~= "party" and select(2, GetInstanceInfo()) ~= "raid" then
    -- Flash of Light
        if PlayerHP <= 55 and SelflessHealer == 3 then
            CastSpellByName(GetSpellInfo(19750), "player")
    -- Word of Glory 
        elseif PlayerHP <= 65 and (UnitPower("player", 9) >= 3 or UnitBuffID("player", 90174)) then
            CastSpellByName(GetSpellInfo(85673), "player")
        end
    end
-- Pvp Healing
elseif IsInInstance() and (select(2, GetInstanceInfo()) == "pvp" or select(2, GetInstanceInfo()) == "arena") then
    if UnitPower("player", 9) >= 3 or UnitBuffID("player", 90174) then
        if PlayerHP <= 65 and Party1HP > 70 and Party2HP > 70 and Party3HP > 70 and Party4HP > 70 and Party5HP > 70 then
            CastSpellByName(GetSpellInfo(85673), "player")
        elseif Party1HP <= 65 and PQR_IsOutOfSight("party1") == false and InRange(85673, "party1") and not UnitIsEnemy("party1", "player") then
            CastSpellByName(GetSpellInfo(85673), "party1")
        elseif Party2HP <= 65 and PQR_IsOutOfSight("party2") == false and InRange(85673, "party2") and not UnitIsEnemy("party2", "player") then
            CastSpellByName(GetSpellInfo(85673), "party2")
        elseif Party3HP <= 65 and PQR_IsOutOfSight("party3") == false and InRange(85673, "party3") and not UnitIsEnemy("party3", "player") then
            CastSpellByName(GetSpellInfo(85673), "party3")
        elseif Party4HP <= 65 and PQR_IsOutOfSight("party4") == false and InRange(85673, "party4") and not UnitIsEnemy("party4", "player") then
            CastSpellByName(GetSpellInfo(85673), "party4")
        elseif Party5HP <= 65 and PQR_IsOutOfSight("party5") == false and InRange(85673, "party5") and not UnitIsEnemy("party5", "player") then
            CastSpellByName(GetSpellInfo(85673), "party5")
        end
    elseif UnitPower("player", 9) == 2 then
        if PlayerHP <= 40 and Party1HP > 45 and Party2HP > 45 and Party3HP > 45 and Party4HP > 45 and Party5HP > 45 then
            CastSpellByName(GetSpellInfo(85673), "player")
        elseif Party1HP <= 40 and PQR_IsOutOfSight("party1") == false and InRange(85673, "party1") and not UnitIsEnemy("party1", "player") then
            CastSpellByName(GetSpellInfo(85673), "party1")
        elseif Party2HP <= 40 and PQR_IsOutOfSight("party2") == false and InRange(85673, "party2") and not UnitIsEnemy("party2", "player") then
            CastSpellByName(GetSpellInfo(85673), "party2")
        elseif Party3HP <= 40 and PQR_IsOutOfSight("party3") == false and InRange(85673, "party3") and not UnitIsEnemy("party3", "player") then
            CastSpellByName(GetSpellInfo(85673), "party3")
        elseif Party4HP <= 40 and PQR_IsOutOfSight("party4") == false and InRange(85673, "party4") and not UnitIsEnemy("party4", "player") then
            CastSpellByName(GetSpellInfo(85673), "party4")
        elseif Party5HP <= 40 and PQR_IsOutOfSight("party5") == false and InRange(85673, "party5") and not UnitIsEnemy("party5", "player") then
            CastSpellByName(GetSpellInfo(85673), "party5")
        end
    elseif SelflessHealer == 3 then
        if PlayerHP <= 55 and Party1HP > 60 and Party2HP > 60 and Party3HP > 60 and Party4HP > 60 and Party5HP > 60 then
            CastSpellByName(GetSpellInfo(19750), "player")
        elseif Party1HP <= 55 and PQR_IsOutOfSight("party1") == false and InRange(19750, "party1") and not UnitIsEnemy("party1", "player") then
            CastSpellByName(GetSpellInfo(19750), "party1")
        elseif Party2HP <= 55 and PQR_IsOutOfSight("party2") == false and InRange(19750, "party2") and not UnitIsEnemy("party2", "player") then
            CastSpellByName(GetSpellInfo(19750), "party2")
        elseif Party3HP <= 55 and PQR_IsOutOfSight("party3") == false and InRange(19750, "party3") and not UnitIsEnemy("party3", "player") then
            CastSpellByName(GetSpellInfo(19750), "party3")
        elseif Party4HP <= 55 and PQR_IsOutOfSight("party4") == false and InRange(19750, "party4") and not UnitIsEnemy("party4", "player") then
            CastSpellByName(GetSpellInfo(19750), "party4")
        elseif Party5HP <= 55 and PQR_IsOutOfSight("party5") == false and InRange(19750, "party5") and not UnitIsEnemy("party5", "player") then
            CastSpellByName(GetSpellInfo(19750), "party5")
        end
    end
end

-- Manual Execution Sentence
if IsPlayerSpell(114157) and PQR_SpellAvailable(114157) and IsLeftAltKeyDown() and not GetCurrentKeyBoardFocus() then
    if (InRange(114157, "target") or InRange(114157, "target") and not InRange(35395, "target")) and UnitBuffID("player", 84963) then
        CastSpellByName(GetSpellInfo(114157), "target")
    end
end

-- Manual Light's Hammer
if IsPlayerSpell(114158) and PQR_SpellAvailable(114158) and IsLeftAltKeyDown() and not GetCurrentKeyBoardFocus() then

    -- Return false if something is more important
    if UnitBuffID("player", 84963) == nil 
    or (UnitBuffID("player", 84963) and select(7, UnitBuffID( "player", 84963)) - GetTime() < 3) 
    or UnitPower("player", 9) == 5 or (UnitBuffID("player", 90174) and select(7, UnitBuffID( "player", 90174)) - GetTime() <= 2) then return false end
    
    CastSpellByName(GetSpellInfo(114158))
    if SpellIsTargeting() then CameraOrSelectOrMoveStart() CameraOrSelectOrMoveStop() end  
        return true
    end 
end

-- Hand of Freedom
--if PQR_SpellAvailable(1044) then
--    local debuff = { 116281, 105289, 110317 }
--        for i=1,#debuff do 
--            if UnitDebuffID("player", debuff[i]) then 
--                CastSpellByName(GetSpellInfo(1044), "player")
--            end
--        end
--    else
--        if IsRightAltKeyDown() and not GetCurrentKeyBoardFocus() then
--            CastSpellByName(GetSpellInfo(1044), "player")
--        end
--    end
--end

-- Sacred Shield
if not IsMounted() and UnitIsDeadOrGhost("player") == nil and IsPlayerSpell(20925) then
    if not IsInInstance() or IsInInstance() and select(2, GetInstanceInfo()) ~= "party" and select(2, GetInstanceInfo()) ~= "raid" then
        if UnitBuffID("player", 20925) == nil or UnitBuffID("player", 20925) and select(7, UnitBuffID( "player", 20925)) - GetTime() <= 2 then
            CastSpellByName(GetSpellInfo(20925), "player")
        end
    elseif IsRightControlKeyDown() and not GetCurrentKeyBoardFocus() then
        CastSpellByName(GetSpellInfo(20925), "player")
    end
end

-- Lightwell
if PQR_LightwellTimeout == nil then PQR_LightwellTimeout = 0 end
if PlayerHP < 70 and UnitBuffID("player", 7001) == nil then
    if PQR_LightwellTimeout < GetTime() then
        if UnitDebuffID("player", 108220) == nil then
            PQR_LightwellTimeout = GetTime() + 1
            InteractUnit("Lightwell")
        end
    end
end 

narrowed it down to pvp healing, unsure of what the problem is

-- Solo/Raid Healing
if not IsInInstance() or IsInInstance() and (select(2, GetInstanceInfo()) == "party" or select(2, GetInstanceInfo()) == "raid") then
    -- Lay on Hands
    if PlayerHP <= 20 and PQR_SpellAvailable(633) then
        CastSpellByName(GetSpellInfo(633), "player")
    -- Healthstone
    elseif PlayerHP <= 25 and not PQR_SpellAvailable(633) and select(3,GetItemCooldown(5512)) == 1 and GetItemCount(5512,false,false) > 0 then 
        UseItemByName(5512)
    elseif not IsInInstance() or IsInInstance() and select(2, GetInstanceInfo()) ~= "party" and select(2, GetInstanceInfo()) ~= "raid" then
    -- Flash of Light
        if PlayerHP <= 55 and SelflessHealer == 3 then
            CastSpellByName(GetSpellInfo(19750), "player")
    -- Word of Glory 
        elseif PlayerHP <= 65 and (UnitPower("player", 9) >= 3 or UnitBuffID("player", 90174)) then
            CastSpellByName(GetSpellInfo(85673), "player")
        end
    end
-- Pvp Healing
elseif IsInInstance() and (select(2, GetInstanceInfo()) == "pvp" or select(2, GetInstanceInfo()) == "arena") then
    if UnitPower("player", 9) >= 3 or UnitBuffID("player", 90174) then
        if PlayerHP <= 65 and Party1HP > 70 and Party2HP > 70 and Party3HP > 70 and Party4HP > 70 and Party5HP > 70 then
            CastSpellByName(GetSpellInfo(85673), "player")
        elseif Party1HP <= 65 and PQR_IsOutOfSight("party1") == false and InRange(85673, "party1") and not UnitIsEnemy("party1", "player") then
            CastSpellByName(GetSpellInfo(85673), "party1")
        elseif Party2HP <= 65 and PQR_IsOutOfSight("party2") == false and InRange(85673, "party2") and not UnitIsEnemy("party2", "player") then
            CastSpellByName(GetSpellInfo(85673), "party2")
        elseif Party3HP <= 65 and PQR_IsOutOfSight("party3") == false and InRange(85673, "party3") and not UnitIsEnemy("party3", "player") then
            CastSpellByName(GetSpellInfo(85673), "party3")
        elseif Party4HP <= 65 and PQR_IsOutOfSight("party4") == false and InRange(85673, "party4") and not UnitIsEnemy("party4", "player") then
            CastSpellByName(GetSpellInfo(85673), "party4")
        elseif Party5HP <= 65 and PQR_IsOutOfSight("party5") == false and InRange(85673, "party5") and not UnitIsEnemy("party5", "player") then
            CastSpellByName(GetSpellInfo(85673), "party5")
        end
    elseif UnitPower("player", 9) == 2 then
        if PlayerHP <= 40 and Party1HP > 45 and Party2HP > 45 and Party3HP > 45 and Party4HP > 45 and Party5HP > 45 then
            CastSpellByName(GetSpellInfo(85673), "player")
        elseif Party1HP <= 40 and PQR_IsOutOfSight("party1") == false and InRange(85673, "party1") and not UnitIsEnemy("party1", "player") then
            CastSpellByName(GetSpellInfo(85673), "party1")
        elseif Party2HP <= 40 and PQR_IsOutOfSight("party2") == false and InRange(85673, "party2") and not UnitIsEnemy("party2", "player") then
            CastSpellByName(GetSpellInfo(85673), "party2")
        elseif Party3HP <= 40 and PQR_IsOutOfSight("party3") == false and InRange(85673, "party3") and not UnitIsEnemy("party3", "player") then
            CastSpellByName(GetSpellInfo(85673), "party3")
        elseif Party4HP <= 40 and PQR_IsOutOfSight("party4") == false and InRange(85673, "party4") and not UnitIsEnemy("party4", "player") then
            CastSpellByName(GetSpellInfo(85673), "party4")
        elseif Party5HP <= 40 and PQR_IsOutOfSight("party5") == false and InRange(85673, "party5") and not UnitIsEnemy("party5", "player") then
            CastSpellByName(GetSpellInfo(85673), "party5")
        end
    elseif SelflessHealer == 3 then
        if PlayerHP <= 55 and Party1HP > 60 and Party2HP > 60 and Party3HP > 60 and Party4HP > 60 and Party5HP > 60 then
            CastSpellByName(GetSpellInfo(19750), "player")
        elseif Party1HP <= 55 and PQR_IsOutOfSight("party1") == false and InRange(19750, "party1") and not UnitIsEnemy("party1", "player") then
            CastSpellByName(GetSpellInfo(19750), "party1")
        elseif Party2HP <= 55 and PQR_IsOutOfSight("party2") == false and InRange(19750, "party2") and not UnitIsEnemy("party2", "player") then
            CastSpellByName(GetSpellInfo(19750), "party2")
        elseif Party3HP <= 55 and PQR_IsOutOfSight("party3") == false and InRange(19750, "party3") and not UnitIsEnemy("party3", "player") then
            CastSpellByName(GetSpellInfo(19750), "party3")
        elseif Party4HP <= 55 and PQR_IsOutOfSight("party4") == false and InRange(19750, "party4") and not UnitIsEnemy("party4", "player") then
            CastSpellByName(GetSpellInfo(19750), "party4")
        elseif Party5HP <= 55 and PQR_IsOutOfSight("party5") == false and InRange(19750, "party5") and not UnitIsEnemy("party5", "player") then
            CastSpellByName(GetSpellInfo(19750), "party5")
        end
    end
end 

found a missing end but I still get the error =/

[firepong]

Update Feral DPS Profile and Data File to Version 1.8.2. Updates Healing Touch and Data File. Added Sheuron's Healing Engine so that Healing Touch can Be Cast on the Lowest Health player First. If Player Health is Lowest or everyone is topped off, Healing Touch will be cast on Player.

[Kinky]

@CharleyWex: Whops, I didn't realize that. I've fixed it now.

@Everyone: Sent out another update to the Demonology Warlock profile.
v1.2:
- Fixed Touch of Chaos not wanting to cast while moving. It should do that regardless now.
- Cleaned up the Data file and Rotation code further to improve performance and speed, hopefully I managed to fix the random stops, but again - no promises.

I know why the issue happens and I know what I can do to avoid it, sometimes it just doesn't want to cooperate.
Anyhow guys, you know the drill, you can update the profile directly through the PQR Rotation Manager.

As always, if you're interested in helping me out and keep me motivated to create bigger and better profiles, you can make a donation here.

[Gabbz]

Anyone know why I have an error here?
In game it says it's a nil error, last thing I need to fix before profile release. I am going to be going through the code and taking it out to check, but if anyone notices it first. Rep+
found a missing end but I still get the error =/

So what is the error saying?

Also you really need to structure the code a bit better

Its messy to read but i guess easy to write

Im at work so cant test but i would think this could be a problem
UseItemByName(5512) using spell id but i guess its the name u need?
not UnitIsEnemy("party5", "player") Can u really party with enemy? Duel bot?

Regarding structure
You dont use return so it will execute all of the code no matter if you cast a spell or not.
You cast on party 1 if he is below 65% but what if party2 is on 10%

Anyways i think it is the UseItemByName that will fix the error for you.

[firepong]

So what is the error saying?

Also you really need to structure the code a bit better

Its messy to read but i guess easy to write

Im at work so cant test but i would think this could be a problem
UseItemByName(5512) using spell id but i guess its the name u need?
not UnitIsEnemy("party5", "player") Can u really party with enemy? Duel bot?

Regarding structure
You dont use return so it will execute all of the code no matter if you cast a spell or not.
You cast on party 1 if he is below 65% but what if party2 is on 10%

Anyways i think it is the UseItemByName that will fix the error for you.

Naaaa, UseItemByName() takes either the ItemID or the Name of the item. ItemID can be found through the same ways as spellID's in-game.

[averykey]

So what is the error saying?

Also you really need to structure the code a bit better

Its messy to read but i guess easy to write

Im at work so cant test but i would think this could be a problem
UseItemByName(5512) using spell id but i guess its the name u need?
not UnitIsEnemy("party5", "player") Can u really party with enemy? Duel bot?

Regarding structure
You dont use return so it will execute all of the code no matter if you cast a spell or not.
You cast on party 1 if he is below 65% but what if party2 is on 10%

Anyways i think it is the UseItemByName that will fix the error for you.

I don't use return true because I have more than one code segment I need to check and if I return true, it goes to the next ability.
I found 2 more errors in the code, but I still get a nil error, something about arithmetic now.

[Kinky]

@averykey: I'm sorry for stating the obvious, but one of your checks are comparing a value to nothing... And you have a lot of If's. x_X
Best thing I can recommend is removing one IF statement at a time and test it, even if that's the most annoying route. I can't see any errors.

@Xelper: Your code for Amber-Shaper Un'sok didn't work. I had the error saved somewhere..

[firepong]

Anyone know why I have an error here?
In game it says it's a nil error, last thing I need to fix before profile release. I am going to be going through the code and taking it out to check, but if anyone notices it first. Rep+

local seal = GetShapeshiftForm("player")
local mana = (100 * UnitPower("player") / UnitPowerMax("player"))
local SelflessHealer = select(4, UnitAura("player", "Selfless Healer"))
local PlayerHP = (100 * (UnitHealth("player") + UnitGetIncomingHeals("player")) / UnitHealthMax("player"))
local TargetHP = (100 * (UnitHealth("target") + UnitGetIncomingHeals("target")) / UnitHealthMax("target"))
local Party1HP = (100 * (UnitHealth("party1") + UnitGetIncomingHeals("party1")) / UnitHealthMax("party1"))
local Party2HP = (100 * (UnitHealth("party2") + UnitGetIncomingHeals("party2")) / UnitHealthMax("party2"))
local Party3HP = (100 * (UnitHealth("party3") + UnitGetIncomingHeals("party3")) / UnitHealthMax("party3"))
local Party4HP = (100 * (UnitHealth("party4") + UnitGetIncomingHeals("party4")) / UnitHealthMax("party4"))
local Party5HP = (100 * (UnitHealth("party5") + UnitGetIncomingHeals("party5")) / UnitHealthMax("party5"))

-- Buff Seal if none
if single == nil and aoe == nil and seal ~= 1 then CastShapeshiftForm(1) end

-- Seal Swap
if not UnitIsDeadOrGhost("player") then
    if IsInInstance() and (select(2, GetInstanceInfo()) == "party" or select(2, GetInstanceInfo()) == "raid") then
        if (single == false or single == true or aoe == true) and seal ~= 1 and mana > 10 then 
            CastShapeshiftForm(1)
        elseif aoeMode == false and seal ~= 2 and mana > 10 then 
            CastShapeshiftForm(2)
        elseif mana <= 10 and seal ~= 4 then
            CastShapeshiftForm(4)
        end
    elseif not IsInInstance() or IsInInstance() and (select(2, GetInstanceInfo()) == "pvp" or select(2, GetInstanceInfo()) == "arena") then
        if PlayerHP <= 40 and seal ~= 4 then
            CastShapeshiftForm(4)
        elseif (single == false or single == true or aoe == true) and seal ~= 1 and PlayerHP > 55 then 
            CastShapeshiftForm(1)
        elseif aoe == false and seal ~= 2 and PlayerHP > 55 then 
            CastShapeshiftForm(2)
        end    
    end
end

-- Blessing of Might/Kings
if not IsMounted() and not UnitInVehicle("player") and not UnitIsDeadOrGhost("player") then
    if not UnitBuffID("player", 19740) and not UnitBuffID("player", 116956) then
        CastSpellByName(GetSpellInfo(19740), "player")
    elseif UnitBuffID("player", 116956) then
           if not UnitBuffID("player", 20217) and not UnitBuffID("player", 1126) and not UnitBuffID("player", 90363) and not UnitBuffID("player", 115921) then
            CastSpellByName(GetSpellInfo(20217), "player")
        end
    end
end

-- Solo/Raid Healing
if not IsInInstance() or IsInInstance() and (select(2, GetInstanceInfo()) == "party" or select(2, GetInstanceInfo()) == "raid") then
    -- Lay on Hands
    if PlayerHP <= 20 and PQR_SpellAvailable(633) then
        CastSpellByName(GetSpellInfo(633), "player")
    -- Healthstone
    elseif PlayerHP <= 25 and not PQR_SpellAvailable(633) and select(3,GetItemCooldown(5512)) == 1 and GetItemCount(5512,false,false) > 0 then 
        UseItemByName(5512)
    elseif not IsInInstance() or IsInInstance() and select(2, GetInstanceInfo()) ~= "party" and select(2, GetInstanceInfo()) ~= "raid" then
    -- Flash of Light
        if PlayerHP <= 55 and SelflessHealer == 3 then
            CastSpellByName(GetSpellInfo(19750), "player")
    -- Word of Glory 
        elseif PlayerHP <= 65 and (UnitPower("player", 9) >= 3 or UnitBuffID("player", 90174)) then
            CastSpellByName(GetSpellInfo(85673), "player")
        end
    end
-- Pvp Healing
elseif IsInInstance() and (select(2, GetInstanceInfo()) == "pvp" or select(2, GetInstanceInfo()) == "arena") then
    if UnitPower("player", 9) >= 3 or UnitBuffID("player", 90174) then
        if PlayerHP <= 65 and Party1HP > 70 and Party2HP > 70 and Party3HP > 70 and Party4HP > 70 and Party5HP > 70 then
            CastSpellByName(GetSpellInfo(85673), "player")
        elseif Party1HP <= 65 and PQR_IsOutOfSight("party1") == false and InRange(85673, "party1") and not UnitIsEnemy("party1", "player") then
            CastSpellByName(GetSpellInfo(85673), "party1")
        elseif Party2HP <= 65 and PQR_IsOutOfSight("party2") == false and InRange(85673, "party2") and not UnitIsEnemy("party2", "player") then
            CastSpellByName(GetSpellInfo(85673), "party2")
        elseif Party3HP <= 65 and PQR_IsOutOfSight("party3") == false and InRange(85673, "party3") and not UnitIsEnemy("party3", "player") then
            CastSpellByName(GetSpellInfo(85673), "party3")
        elseif Party4HP <= 65 and PQR_IsOutOfSight("party4") == false and InRange(85673, "party4") and not UnitIsEnemy("party4", "player") then
            CastSpellByName(GetSpellInfo(85673), "party4")
        elseif Party5HP <= 65 and PQR_IsOutOfSight("party5") == false and InRange(85673, "party5") and not UnitIsEnemy("party5", "player") then
            CastSpellByName(GetSpellInfo(85673), "party5")
        end
    elseif UnitPower("player", 9) == 2 then
        if PlayerHP <= 40 and Party1HP > 45 and Party2HP > 45 and Party3HP > 45 and Party4HP > 45 and Party5HP > 45 then
            CastSpellByName(GetSpellInfo(85673), "player")
        elseif Party1HP <= 40 and PQR_IsOutOfSight("party1") == false and InRange(85673, "party1") and not UnitIsEnemy("party1", "player") then
            CastSpellByName(GetSpellInfo(85673), "party1")
        elseif Party2HP <= 40 and PQR_IsOutOfSight("party2") == false and InRange(85673, "party2") and not UnitIsEnemy("party2", "player") then
            CastSpellByName(GetSpellInfo(85673), "party2")
        elseif Party3HP <= 40 and PQR_IsOutOfSight("party3") == false and InRange(85673, "party3") and not UnitIsEnemy("party3", "player") then
            CastSpellByName(GetSpellInfo(85673), "party3")
        elseif Party4HP <= 40 and PQR_IsOutOfSight("party4") == false and InRange(85673, "party4") and not UnitIsEnemy("party4", "player") then
            CastSpellByName(GetSpellInfo(85673), "party4")
        elseif Party5HP <= 40 and PQR_IsOutOfSight("party5") == false and InRange(85673, "party5") and not UnitIsEnemy("party5", "player") then
            CastSpellByName(GetSpellInfo(85673), "party5")
        end
    elseif SelflessHealer == 3 then
        if PlayerHP <= 55 and Party1HP > 60 and Party2HP > 60 and Party3HP > 60 and Party4HP > 60 and Party5HP > 60 then
            CastSpellByName(GetSpellInfo(19750), "player")
        elseif Party1HP <= 55 and PQR_IsOutOfSight("party1") == false and InRange(19750, "party1") and not UnitIsEnemy("party1", "player") then
            CastSpellByName(GetSpellInfo(19750), "party1")
        elseif Party2HP <= 55 and PQR_IsOutOfSight("party2") == false and InRange(19750, "party2") and not UnitIsEnemy("party2", "player") then
            CastSpellByName(GetSpellInfo(19750), "party2")
        elseif Party3HP <= 55 and PQR_IsOutOfSight("party3") == false and InRange(19750, "party3") and not UnitIsEnemy("party3", "player") then
            CastSpellByName(GetSpellInfo(19750), "party3")
        elseif Party4HP <= 55 and PQR_IsOutOfSight("party4") == false and InRange(19750, "party4") and not UnitIsEnemy("party4", "player") then
            CastSpellByName(GetSpellInfo(19750), "party4")
        elseif Party5HP <= 55 and PQR_IsOutOfSight("party5") == false and InRange(19750, "party5") and not UnitIsEnemy("party5", "player") then
            CastSpellByName(GetSpellInfo(19750), "party5")
        end
    end
end

-- Manual Execution Sentence
if IsPlayerSpell(114157) and PQR_SpellAvailable(114157) and IsLeftAltKeyDown() and not GetCurrentKeyBoardFocus() then
    if (InRange(114157, "target") or InRange(114157, "target") and not InRange(35395, "target")) and UnitBuffID("player", 84963) then
        CastSpellByName(GetSpellInfo(114157), "target")
    end
end

-- Manual Light's Hammer
if IsPlayerSpell(114158) and PQR_SpellAvailable(114158) and IsLeftAltKeyDown() and not GetCurrentKeyBoardFocus() then

    -- Return false if something is more important
    if UnitBuffID("player", 84963) == nil 
    or (UnitBuffID("player", 84963) and select(7, UnitBuffID( "player", 84963)) - GetTime() < 3) 
    or UnitPower("player", 9) == 5 or (UnitBuffID("player", 90174) and select(7, UnitBuffID( "player", 90174)) - GetTime() <= 2) then return false end
    
    CastSpellByName(GetSpellInfo(114158))
    if SpellIsTargeting() then CameraOrSelectOrMoveStart() CameraOrSelectOrMoveStop() end  
        return true
    end 
end

-- Hand of Freedom
--if PQR_SpellAvailable(1044) then
--    local debuff = { 116281, 105289, 110317 }
--        for i=1,#debuff do 
--            if UnitDebuffID("player", debuff[i]) then 
--                CastSpellByName(GetSpellInfo(1044), "player")
--            end
--        end
--    else
--        if IsRightAltKeyDown() and not GetCurrentKeyBoardFocus() then
--            CastSpellByName(GetSpellInfo(1044), "player")
--        end
--    end
--end

-- Sacred Shield
if not IsMounted() and UnitIsDeadOrGhost("player") == nil and IsPlayerSpell(20925) then
    if not IsInInstance() or IsInInstance() and select(2, GetInstanceInfo()) ~= "party" and select(2, GetInstanceInfo()) ~= "raid" then
        if UnitBuffID("player", 20925) == nil or UnitBuffID("player", 20925) and select(7, UnitBuffID( "player", 20925)) - GetTime() <= 2 then
            CastSpellByName(GetSpellInfo(20925), "player")
        end
    elseif IsRightControlKeyDown() and not GetCurrentKeyBoardFocus() then
        CastSpellByName(GetSpellInfo(20925), "player")
    end
end

-- Lightwell
if PQR_LightwellTimeout == nil then PQR_LightwellTimeout = 0 end
if PlayerHP < 70 and UnitBuffID("player", 7001) == nil then
    if PQR_LightwellTimeout < GetTime() then
        if UnitDebuffID("player", 108220) == nil then
            PQR_LightwellTimeout = GetTime() + 1
            InteractUnit("Lightwell")
        end
    end
end 

narrowed it down to pvp healing, unsure of what the problem is

-- Solo/Raid Healing
if not IsInInstance() or IsInInstance() and (select(2, GetInstanceInfo()) == "party" or select(2, GetInstanceInfo()) == "raid") then
	-- Lay on Hands
	if PlayerHP <= 20 and PQR_SpellAvailable(633) then
		CastSpellByName(GetSpellInfo(633), "player")
	-- Healthstone
	elseif PlayerHP <= 25 and not PQR_SpellAvailable(633) and select(3,GetItemCooldown(5512)) == 1 and GetItemCount(5512,false,false) > 0 then 
		UseItemByName(5512)
	elseif not IsInInstance() or IsInInstance() and select(2, GetInstanceInfo()) ~= "party" and select(2, GetInstanceInfo()) ~= "raid" then
	-- Flash of Light
		if PlayerHP <= 55 and SelflessHealer == 3 then
			CastSpellByName(GetSpellInfo(19750), "player")
	-- Word of Glory 
		elseif PlayerHP <= 65 and (UnitPower("player", 9) >= 3 or UnitBuffID("player", 90174)) then
			CastSpellByName(GetSpellInfo(85673), "player")
		end
	end
-- Pvp Healing
elseif IsInInstance() and (select(2, GetInstanceInfo()) == "pvp" or select(2, GetInstanceInfo()) == "arena") then
	if UnitPower("player", 9) >= 3 or UnitBuffID("player", 90174) then
		if PlayerHP <= 65 and Party1HP > 70 and Party2HP > 70 and Party3HP > 70 and Party4HP > 70 and Party5HP > 70 then
			CastSpellByName(GetSpellInfo(85673), "player")
		elseif Party1HP <= 65 and PQR_IsOutOfSight("party1") == false and InRange(85673, "party1") and not UnitIsEnemy("party1", "player") then
			CastSpellByName(GetSpellInfo(85673), "party1")
		elseif Party2HP <= 65 and PQR_IsOutOfSight("party2") == false and InRange(85673, "party2") and not UnitIsEnemy("party2", "player") then
			CastSpellByName(GetSpellInfo(85673), "party2")
		elseif Party3HP <= 65 and PQR_IsOutOfSight("party3") == false and InRange(85673, "party3") and not UnitIsEnemy("party3", "player") then
			CastSpellByName(GetSpellInfo(85673), "party3")
		elseif Party4HP <= 65 and PQR_IsOutOfSight("party4") == false and InRange(85673, "party4") and not UnitIsEnemy("party4", "player") then
			CastSpellByName(GetSpellInfo(85673), "party4")
		elseif Party5HP <= 65 and PQR_IsOutOfSight("party5") == false and InRange(85673, "party5") and not UnitIsEnemy("party5", "player") then
			CastSpellByName(GetSpellInfo(85673), "party5")
		end
	elseif UnitPower("player", 9) == 2 then
		if PlayerHP <= 40 and Party1HP > 45 and Party2HP > 45 and Party3HP > 45 and Party4HP > 45 and Party5HP > 45 then
			CastSpellByName(GetSpellInfo(85673), "player")
		elseif Party1HP <= 40 and PQR_IsOutOfSight("party1") == false and InRange(85673, "party1") and not UnitIsEnemy("party1", "player") then
			CastSpellByName(GetSpellInfo(85673), "party1")
		elseif Party2HP <= 40 and PQR_IsOutOfSight("party2") == false and InRange(85673, "party2") and not UnitIsEnemy("party2", "player") then
			CastSpellByName(GetSpellInfo(85673), "party2")
		elseif Party3HP <= 40 and PQR_IsOutOfSight("party3") == false and InRange(85673, "party3") and not UnitIsEnemy("party3", "player") then
			CastSpellByName(GetSpellInfo(85673), "party3")
		elseif Party4HP <= 40 and PQR_IsOutOfSight("party4") == false and InRange(85673, "party4") and not UnitIsEnemy("party4", "player") then
			CastSpellByName(GetSpellInfo(85673), "party4")
		elseif Party5HP <= 40 and PQR_IsOutOfSight("party5") == false and InRange(85673, "party5") and not UnitIsEnemy("party5", "player") then
			CastSpellByName(GetSpellInfo(85673), "party5")
		end
	elseif SelflessHealer == 3 then
		if PlayerHP <= 55 and Party1HP > 60 and Party2HP > 60 and Party3HP > 60 and Party4HP > 60 and Party5HP > 60 then
			CastSpellByName(GetSpellInfo(19750), "player")
		elseif Party1HP <= 55 and PQR_IsOutOfSight("party1") == false and InRange(19750, "party1") and not UnitIsEnemy("party1", "player") then
			CastSpellByName(GetSpellInfo(19750), "party1")
		elseif Party2HP <= 55 and PQR_IsOutOfSight("party2") == false and InRange(19750, "party2") and not UnitIsEnemy("party2", "player") then
			CastSpellByName(GetSpellInfo(19750), "party2")
		elseif Party3HP <= 55 and PQR_IsOutOfSight("party3") == false and InRange(19750, "party3") and not UnitIsEnemy("party3", "player") then
			CastSpellByName(GetSpellInfo(19750), "party3")
		elseif Party4HP <= 55 and PQR_IsOutOfSight("party4") == false and InRange(19750, "party4") and not UnitIsEnemy("party4", "player") then
			CastSpellByName(GetSpellInfo(19750), "party4")
		elseif Party5HP <= 55 and PQR_IsOutOfSight("party5") == false and InRange(19750, "party5") and not UnitIsEnemy("party5", "player") then
			CastSpellByName(GetSpellInfo(19750), "party5")
		end
	end
end

found a missing end but I still get the error =/

Change the line in bold and big text to:

elseif PlayerHP <= 25 and not PQR_SpellAvailable(633) and (GetItemCount(5512) > 0 and not (GetItemCooldown(5512) > 0)) then 

You want it to do the count BEFORE the Cooldown because if you do not have any of those items in your bag, it will error out because it's trying to check the Cooldown on a item you do not have in your bags.

Other than that, it's to screwy for me to find any other error's, sorry

EDIT* Also, if it's trying to do arithmetic on a value that is nil, it could also be that it's trying to check on Party spots that have no player's in it. For example, if your by yourself, not in a group, most of that code there I believe will shit out errors because it's trying to check the Health of a value that does not exist.

[CharleyWex]

@Mentally

Touch of Chaos is working great on the move. The profile will still sometimes stop, thought not as often. The two spells that seem to cause the pause are Hand of Gul'dan and Meta(activate).

[nudex]

Hellow fellow PQR users

Just made some updates in my profile

added
- Added a Single and AoE Retribution rotation and a no AoE damage Prot rotation
- It will again check if every spell is of cooldown ( no more spell is not ready yet blablabla )
- It should work for every level paladin
- Some extra minor stuff

Still doesn't work
- melee exorcism and moveable consecration

As always you should credit Averykey because a lot of the code is based on his mighty fine work. If you are looking for a really good Ret profile i suggest to use his.

Important!! You cannot update this time in PQR --> Use download link below or in my Sig
http://dl.dropbox.com/u/83665029/Nud...0Rotations.rar

If you experience any troubles pleas come to my dedicated Post in the Bot Maps and Profiles subforum

Greetz nudex