[BETA] PQRotation - an automated ability priority queue.

[22alec22]

awesome =D thanks. Cant wait to see what u come up with in the end. haha. +rep on both ur replys.

[Milkeh]

the rogue combat is amazing, now if ya can do a Assassination profile that would be amazing +D

[22alec22]

well to get ya going in bgs

local hasFear = UnitDebuff("target", "5782", "player")
local inRange = 0
local unit = "target"
if UnitExists(unit) and UnitIsVisible(unit) and UnitIsEnemy(unit) then
   inRange = IsSpellInRange("Fear",unit)
end

if inRange==1 then
     if hasFear ~= nil then
          return true
     end
end

it should check for range/los/enemy on your current target then if your target matches range/los/enemy it will then check for fear debuff. If it can't find it it will cast it. if your target is feared then it will skip it. It does not take DR into account. And this code is for the warlocks fear spell (spellid:5782).

One thing i wish xepler did was put in a hot key that pauses the spamming until the key is released.

I made basically an exact copy of the normal affliction rotation, which worked, but then i added the fear ability and it no longer does anything. It just stands there. lol. Do you know why this would happen?

Edit: after putting fear at the bottom instead of the top it worked. However it does not cast fear. i get the following error:

Date: 2011-08-04 16:46:31
ID: 2
Error occured in: Global
Count: 1
Message: [string "PQR_SetupTable() function pqrFunc0() --we ..."] line 131:
Usage: UnitIsEnemy("unit", "otherUnit")
Debug:
[C]: ?
[C]: UnitIsEnemy()
[string "PQR_SetupTable() function pqrFunc0() --we ..."]:131: ?()
[string "..."]:87: PQR_NextAbility()
[string "..."]:112: PQR_CastNext()
[string "..."]:181: ExecuteBot()
[string "..."]:16:
[string "..."]:2

[amustrami]

I didn't know there was a rogue combat yet, where?

[crystal_tech]

odd i'll look into it.

[snapple38]

the rogue combat is amazing, now if ya can do a Assassination profile that would be amazing +D

thank you. I'll see what I can do this week.

[Tachiean]

I would like you to test this code for your healing wave

local party1hp = 100 * UnitHealth("party1") / UnitHealthMax("party1")
local party2hp = 100 * UnitHealth("party2") / UnitHealthMax("party2")
local party3hp = 100 * UnitHealth("party3") / UnitHealthMax("party3")
local party4hp = 100 * UnitHealth("party4") / UnitHealthMax("party4")
local party5hp = 100 * UnitHealth("party5") / UnitHealthMax("party5")
local unitone = "party1"
local partytwo = "party2
local partythree = "party3"
local partyfour = "party4"
local partyfive= "party5"
local inRange = 0
local inRange1 = 0
local inRange2 = 0
local inRange3 = 0
local inRange4 = 0

if UnitExists(unitone) and UnitIsVisible(unitone) and UnitIsFriend(unitone) then
   inRange = IsSpellInRange("Healing Wave",unitone)

elseif UnitExists(unittwo) and UnitIsVisible(unittwo) and UnitIsFriend(unittwo) then
   inRange1 = IsSpellInRange("Healing Wave",unittwo)

elseif UnitExists(unitthree) and UnitIsVisible(unitthree) and UnitIsFriend(unitthree) then
   inRange2 = IsSpellInRange("Healing Wave",unitthree)

elseif UnitExists(unitfour) and UnitIsVisible(unitfour) and UnitIsFriend(unitfour) then
   inRange3 = IsSpellInRange("Healing Wave",unitfour)

elseif UnitExists(unitfive) and UnitIsVisible(unitfive) and UnitIsFriend(unitfive) then
   inRange4 = IsSpellInRange("Healing Wave",unitfive)
end

if inRange==1 then
	if party1hp <= 90  then
		return true
	end
end

if inRange1==1 then
	if party2hp <= 90  then
		return true
	end
end

if inRange2==1 then
	if party3hp <= 90  then
		return true
	end
end

if inRange3==1 then
	if party4hp <= 90  then
		return true
	end
end

if inRange4==1 then
	if party5hp <= 90  then
		return true
	end
end

this checks for range/los and if they are friendly, IE not controlled. I think i found your problem with your code if you wish to keep using that.
change your local to something other than untihealth try unithp = 100..... and change it in the if then statement and it should work. See you are trying to set Unithealth to itself and causing it to break. Sorry if it took abit.

my wife went to the hospital yesterday do to high blood pressure and shes nearly nine month pregnant; doesn't help that I had a root canal the same day, and our two year old is bouncing off the walls. And I'm trying to get power back to my repair shop at the same time. But know that I'm still here working on things. I just wonder where xelper ran off to.

I'm geting this error

Date: 2011-08-05 12:57:52
ID: 156
Error occured in: Global
Count: 1
Message: [string "PQR_SetupTable() function pqrFunc0() local party1hp = 100 * Un..."] line 7:
unfinished string near '"party2'
Debug:
(tail call): ?
(tail call): ?
[C]: ?


Very sorry to hear about your wife. Hope she gets well soon.

[Milkeh]

thank you. I'll see what I can do this week.

nice one dude, your a superstar +1REP from me =D

[darkriderking]

The marksman profile didn't work too well for me at the start so i tweaked it, my hunter does 10k dps currently with 320ilvl gear. the rapid fire does not seem to work at all, i put 180 as the delay, removed the pet cast and it wont work.. idk if i should even change the delay for cooldown or if thats the delay before casting but it hasn't worked either time =/, anyway thanks for the program working pretty good besides that!

[Canbus]

Very nice software you have made there +rep to you sir.

[lostwalker]

How do I make these in to xml files to add to the profiles folder? thx

Here is a Bear Tanking Rotation for Single and AoE situations it also has the cat ones too so it wont ruin your current profiles). enjoy. I also added into the cat rotation the ability to go bear if a tank dies to pick up a boss until he is rezzed it will do a standard bear rotation in cat spec. also edited to use berserk in cat spec right away.

Copy into Druid Rotation

<?xml version="1.0" encoding="utf-8" ?><DRUID><Rotation><RotationName>Cat</RotationName><RotationDefault>false</RotationDefault><RotationList>Faerie Fire (Feral)|Mangle|Savage Roar|Tigers Fury|Berserk|Rake|Ferocious Bite|Rip|Shred|Bear Mangle|Bear Maul|Lacerate|Thrash</RotationList></Rotation><Rotation><RotationName>CatAOE</RotationName><RotationDefault>false</RotationDefault><RotationList>Swipe|Tigers Fury</RotationList></Rotation><Rotation><RotationName>Bear</RotationName><RotationDefault>false</RotationDefault><RotationList>Bear Maul|Bear Mangle|Pulverize|Lacerate|Bear Faerie Fire</RotationList></Rotation><Rotation><RotationName>Bear AOE</RotationName><RotationDefault>false</RotationDefault><RotationList>Bear Maul|Thrash|Bear Swipe|Bear Mangle</RotationList></Rotation></DRUID>

Copy into Druid Abilities

<?xml version="1.0" encoding="utf-8" ?><DRUID><Ability><Name>Rake</Name><Default>false</Default><SpellID>1822</SpellID><Actions>/startattack</Actions><Lua>local rake, _, _, _, _, _, raketimer = UnitDebuffID(&amp;quot;target&amp;quot;, 1822, &amp;quot;PLAYER&amp;quot;)

if rake ~= nil then
    if raketimer - GetTime() &amp;lt; 3 then
        return true
    end
else
    return true
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Rip</Name><Default>false</Default><SpellID>1079</SpellID><Actions></Actions><Lua>local rip, _, _, _, _, _, riptimer = UnitDebuffID(&amp;quot;target&amp;quot;, 1079, &amp;quot;PLAYER&amp;quot;)
local ripCP = GetComboPoints(&amp;quot;player&amp;quot;, &amp;quot;target&amp;quot;)
local riphealth = 100 * UnitHealth(&amp;quot;target&amp;quot;) / UnitHealthMax(&amp;quot;target&amp;quot;)




if rip ~= nil then
    if riphealth &amp;gt; 25 then
        if ripCP == 5 then
            if riptimer - GetTime() &amp;lt; 2 then
                return true
            end
        end
    end
else
    if ripCP == 5 then
        return true
    end
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Shred</Name><Default>false</Default><SpellID>5221</SpellID><Actions>/startattack</Actions><Lua>-- Check for the debuffs.
local hasCatMangle = UnitDebuffID(&amp;quot;target&amp;quot;, 33876)
local hasBearMangle = UnitDebuffID(&amp;quot;target&amp;quot;, 33878)
local hasTrauma = UnitDebuffID(&amp;quot;target&amp;quot;, 46857)
local hasHemorrhage = UnitDebuffID(&amp;quot;target&amp;quot;, 16511)
local CP = GetComboPoints(&amp;quot;player&amp;quot;, &amp;quot;target&amp;quot;)


-- Just check for all buffs, we have no casting time on Shred so no need for a timer check
if hasCatMangle ~= nil or hasBearMangle ~= nil or hasTrauma ~= nil or hasHemorrhage ~= nil then
    if PQR_NotBehindTarget() then
        return false
    else
        if CP == 5 then
            return false
        else
            return true
        end
    end
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Mangle</Name><Default>false</Default><SpellID>33876</SpellID><Actions>/startattack</Actions><Lua>-- Rogues and Warriors can handle it themselves.
local hasCatMangle, _, _, _, _, _, CatMangleTimer = UnitDebuffID(&amp;quot;target&amp;quot;, 33876)
local hasBearMangle, _, _, _, _, _, BearMangleTimer = UnitDebuffID(&amp;quot;target&amp;quot;, 33878, &amp;quot;PLAYER&amp;quot;)
local hasTrauma = UnitDebuffID(&amp;quot;target&amp;quot;, 46857)
local hasHemorrhage = UnitDebuffID(&amp;quot;target&amp;quot;, 16511)
local CP = GetComboPoints(&amp;quot;player&amp;quot;, &amp;quot;target&amp;quot;)


if PQR_NotBehindTarget() then
    if CP == 5 then
        return false
    else
        return true
    end
end


-- First, let&amp;apos;s let other people handle their own debuffs
if hasTrauma ~= nil then
    return false
elseif hasHemorrhage ~= nil then
    return false
elseif hasBearMangle ~= nil then
    return false


-- Let us handle it!
elseif hasCatMangle ~= nil or hasBearMangle ~= nil then
    -- Check the timer
    if CatMangleTimer - GetTime() &amp;lt; 1 then
        return true
    end
else
    return true
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Faerie Fire (Feral)</Name><Default>false</Default><SpellID>16857</SpellID><Actions></Actions><Lua>local FF, _, _, _, _, _, timer = UnitDebuffID(&amp;quot;target&amp;quot;, 91565)
local FFstart, FFduration, FFenabled = GetSpellCooldown(16857)
local FFcooldown = (FFstart + FFduration - GetTime())


if FF == nil then
    if FFcooldown &amp;gt; 0 then
        return false
    else
        return true
    end
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Savage Roar</Name><Default>false</Default><SpellID>52610</SpellID><Actions></Actions><Lua>local _,_,_,SavageRoar = UnitBuffID(&amp;quot;player&amp;quot;, 62071)
local srCP = GetComboPoints(&amp;quot;player&amp;quot;, &amp;quot;target&amp;quot;)
local rip, _, _, _, _, _, riptimer = UnitDebuffID(&amp;quot;target&amp;quot;, 1079, &amp;quot;PLAYER&amp;quot;)


if SavageRoar ~= nil then
    return false
else
if rip ~= nil then
    if srCP &amp;gt;= 1 then
        if riptimer - GetTime() &amp;gt;= 5 then
            return true
        end
    end
end
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Ferocious Bite</Name><Default>false</Default><SpellID>22568</SpellID><Actions></Actions><Lua>local fbrip, _, _, _, _, _, fbtimer = UnitDebuffID(&amp;quot;target&amp;quot;, 1079, &amp;quot;PLAYER&amp;quot;)
local fbCP = GetComboPoints(&amp;quot;player&amp;quot;, &amp;quot;target&amp;quot;)
local fbhealth = 100 * UnitHealth(&amp;quot;target&amp;quot;) / UnitHealthMax(&amp;quot;target&amp;quot;)
local fbenergy = UnitPower(&amp;quot;player&amp;quot;) / UnitPowerMax(&amp;quot;player&amp;quot;) * 100


if fbhealth &amp;lt;= 25 then
    if fbrip ~= nil then
        if fbCP == 5 then
            return true
        end
    end
else
    if fbrip ~= nil then
        if fbtimer - GetTime() &amp;gt; 7 and fbenergy &amp;gt;= 60 and fbCP == 5 then
            return true
        end
    end
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Berserk</Name><Default>false</Default><SpellID>50334</SpellID><Actions></Actions><Lua>local _, _, _, BS = UnitBuffID(&amp;quot;player&amp;quot;, 50334)
local BSstart, BSduration = GetSpellCooldown(50334)
local BScooldown = (BSstart + BSduration - GetTime())
local bsEnergy = UnitPower(&amp;quot;player&amp;quot;) / UnitPowerMax(&amp;quot;player&amp;quot;) * 100
local bsHealth = UnitHealth(&amp;quot;target&amp;quot;) / UnitHealthMax(&amp;quot;target&amp;quot;) * 100
local levelcheck = UnitLevel(&amp;quot;target&amp;quot;)


if levelcheck == -1 or levelcheck &amp;gt;= 80 then
    if BScooldown &amp;gt; 0 then
        return false
    else
        if bsHealth &amp;gt; 50 then
            return true
        end
    end
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Tigers Fury</Name><Default>false</Default><SpellID>5217</SpellID><Actions></Actions><Lua>local _,_,_,TF = UnitBuffID(&amp;quot;player&amp;quot;, 5217)
local TFstart, TFduration = GetSpellCooldown(5217)
local TFcooldown = (TFstart + TFduration - GetTime())
local tfEnergy = UnitPower(&amp;quot;player&amp;quot;) / UnitPowerMax(&amp;quot;player&amp;quot;) * 100


if TF ~= nil then
    return false
else
    if TFcooldown &amp;gt; 0 then
        return false
    else
        if tfEnergy &amp;lt; 40 then
            return true
        end
    end
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Swipe</Name><Default>false</Default><SpellID>62078</SpellID><Actions></Actions><Lua>local _,_,_,BS = UnitBuffID(&amp;quot;player&amp;quot;, 50334)
local energy = UnitPower(&amp;quot;player&amp;quot;) / UnitPowerMax(&amp;quot;player&amp;quot;) * 100


if BS ~= nil then
    if energy &amp;gt;= 22 then
        return true
    end
else
    if energy &amp;gt;= 45 then
        return true
    end
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Bear Mangle</Name><Default>false</Default><SpellID>33878</SpellID><Actions>/startattack</Actions><Lua>return true</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Bear Faerie Fire</Name><Default>false</Default><SpellID>16857</SpellID><Actions></Actions><Lua>return true</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Bear Maul</Name><Default>false</Default><SpellID>6807</SpellID><Actions></Actions><Lua>return true</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Lacerate</Name><Default>false</Default><SpellID>33745</SpellID><Actions></Actions><Lua>return true</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Pulverize</Name><Default>false</Default><SpellID>80313</SpellID><Actions></Actions><Lua>local _, _, _, LacerateCount = UnitDebuff(&amp;quot;target&amp;quot;, &amp;quot;Lacerate&amp;quot;)
if LacerateCount ~= nil then
	if LacerateCount == 3 then
		return true
	end
else
	return false;
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Thrash</Name><Default>false</Default><SpellID>77758</SpellID><Actions>/startattack</Actions><Lua>return true</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Bear Swipe</Name><Default>false</Default><SpellID>779</SpellID><Actions>/startattack</Actions><Lua>return true</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability></DRUID>

---------- Post added at 01:25 PM ---------- Previous post was at 01:21 PM ----------

here is a Combat Rogue PVE does about 20k in 359 gear use cooldown at your discretion. enjoy.

Rotation

<?xml version="1.0" encoding="utf-8" ?><ROGUE><Rotation><RotationName>Combat PVE</RotationName><RotationDefault>false</RotationDefault><RotationList>SnD|Eviscerate|Sinister Strike|Revealing Strike</RotationList></Rotation></ROGUE>

Abilities

<?xml version="1.0" encoding="utf-8" ?><ROGUE><Ability><Name>Sinister Strike</Name><Default>false</Default><SpellID>1752</SpellID><Actions></Actions><Lua>local sinisterstrikeCP = GetComboPoints(&amp;quot;player&amp;quot;, &amp;quot;target&amp;quot;)



if sinisterstrikeCP &amp;lt;= 3 then
   return true
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>SnD</Name><Default>false</Default><SpellID>5171</SpellID><Actions></Actions><Lua>local sliceanddice, _, _, _, _, _, sliceanddicetimer = UnitBuffID(&amp;quot;player&amp;quot;, 5171)

if sliceanddice ~= nil then
    if sliceanddicetimer - GetTime() &amp;lt; 2 then
        return true
    end
else
    return true
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Eviscerate</Name><Default>false</Default><SpellID>2098</SpellID><Actions></Actions><Lua>local eviscerateCP = GetComboPoints(&amp;quot;player&amp;quot;, &amp;quot;target&amp;quot;)



if eviscerateCP == 5 then
   return true
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Revealing Strike</Name><Default>false</Default><SpellID>84617</SpellID><Actions></Actions><Lua>local revealingstrike, _, _, _, _, _, revealingstriketimer = UnitDebuffID(&amp;quot;target&amp;quot;, 84617)

if revealingstrike ~= nil then
    if revealingstrike - GetTime() &amp;gt; 1 then
        return true
    end
else
    return true
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>Recuperate</Name><Default>false</Default><SpellID>73651</SpellID><Actions></Actions><Lua>local _,_,_,recuperate = UnitBuffID(&amp;quot;player&amp;quot;, 73651)
local recuperateCP = GetComboPoints(&amp;quot;player&amp;quot;, &amp;quot;target&amp;quot;)
local health = UnitHealth(&amp;quot;player&amp;quot;) / UnitHealthMax(&amp;quot;player&amp;quot;) * 100



if recuperate ~= nil then
    return false
else
if health &amp;lt; 95 then
   if recuperateCP &amp;gt;= 5 then
     return true
   end
end
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability><Ability><Name>WOTF</Name><Default>false</Default><SpellID>7744</SpellID><Actions></Actions><Lua>local fear, _, _, _, _, _, feartimer = UnitDebuffID(&amp;quot;player&amp;quot;, 5782)
local willoftheforsakencooldown = (willoftheforsakenstart + willoftheforsakenduration - GetTime())


if willoftheforsakencooldown &amp;gt; 0 then
        return false
else
if fear ~= nil then
    if fear - GetTime() &amp;gt; 1 then
        return true
    end
else
    return true
end</Lua><RecastDelay>0</RecastDelay><SelfCast>False</SelfCast></Ability></ROGUE>

[amustrami]

How do I make these in to xml files to add to the profiles folder? thx

Copy the entire code from the code box. Edit the .xml file in the profile folder with notepad. Delete everthing that is in the original file and repalce it with the new code.

[lostwalker]

Thx, will do =)

---------- Post added at 07:59 AM ---------- Previous post was at 07:56 AM ----------

A question about the demo lock builds.. none of them seem to use life drain or health funnel when the toon/pet is low on health. Could this be added?

Also, I saw an arcane mage profile, but did anyone make a fire profile?

And to all the hunters out there.. how are the profiles MM/Srv?

Great program and thanks to all the coders out there sharing what they made. =)

[Canbus]

This is great, love it, I found one problem, I play warrior and after some time it just won't autoattack, meaning, if battleshout is on cd and I have no rage it won't attack.

[BulletsFly]

This is a great program and I use it nearly every day with no problems. It gets me comfortably at the top of the Damage meters and It got me 18k on Cho'gall and 20-24k on ZA/ZG bosses.

Are there going to be any new features on the program?

-BulletsFly