[BETA] PQRotation - an automated ability priority queue.

[onya]

Hello guys.

I have made a "find clusters, rank them and heal them" type of code, and here it is :

local sqrt = sqrt
local GetPlayerMapPosition = GetPlayerMapPosition
local table = table
local twipe = table.wipe
local tsort = table.sort
local groupType = "raid"--"raid" --"party"
local groupSize = 10
local minHealthForGrowth = 7000 -- 10k for 5ppl min, deficit 0 means full health
local growthHealsHowManyTargets = 6
--

local function determineDistanceBetween(aUnit, anotherUnit)

	local tX1, tY1 = GetPlayerMapPosition(aUnit)
	if (tX1 + tY1 <= 0) then
		return nil -- not valid
	end

	local tX2, tY2 = GetPlayerMapPosition(anotherUnit)
	if (tX2 + tY2 <= 0) then
		return nil -- not valid
	end

  local xd = tX2-tX1
	local yd = tY2-tY1
	return sqrt(xd*xd + yd*yd)
end

local function IsInRange(u1,u2)
    local range = determineDistanceBetween(groupType..u1,groupType..u2) -- groupType used
    if range ~= nil and range<30 then
        return true
    end
    return false  
end
local function IsInRangeOfPlayer(u1)
    local range = determineDistanceBetween("player",groupType..u1) -- groupType used
    if range ~= nil and range<30 then
        return true
    end
    return false 
end

local function getDefHealth(unit)
  return UnitHealthMax(groupType..unit) - UnitHealth(groupType..unit) -- groupType used
end

local function sortDefHealth(aUnit, anotherUnit)
	return getDefHealth(aUnit) > getDefHealth(anotherUnit)
end

local function averageClusterDefHealth(unit)
   local playersInRange = {}
   local groupCount = 0
   for x=1, groupSize do   
       if IsInRange(unit,x) then -- count oneself
          table.insert(playersInRange, x)
          groupCount = groupCount + 1
       end
   end     
   tsort(playersInRange, sortDefHealth)
   local sumHP = 0
   groupCount = math.min(growthHealsHowManyTargets, groupCount) -- possible targets
   for x=1, groupCount do 
      sumHP = sumHP + getDefHealth(playersInRange[x])
   end
   return sumHP/groupCount
end

local function findGoodTarget()
   local goodTarget = nil
   local maxDefHealth = minHealthForGrowth -- 10k for 5ppl min, deficit 0 means full health
   local tempDef = 0 -- temporary var to help performance
   for player=1, groupSize do   
    if IsInRangeOfPlayer(player) then
        tempDef=averageClusterDefHealth(player)         
        if tempDef > maxDefHealth then
           goodTarget = player
           maxDefHealth = tempDef
        end
    end    
   end --for
   return goodTarget
end

local start, duration, enabled = GetSpellCooldown("Wild Growth")
if (enabled ~= nil and enabled == 0) then
    return false
elseif ( (start ~= nil and start > 0) and ( duration ~= nil and duration > 0)) then
    return false   
else
   local target = findGoodTarget()
   if target ~=nil then
      print ("Casting Wild Growth on "..UnitName(groupType..target))
      CastSpellByID(48438,groupType..target) 
   end
end



return false

Right now, I noticed it likes to cast on the first member of raid or party alot, maybe because he is always the lowest (beeing tank and all), hopefully it isnt a bug

I'd love to see this working, would be great for chain heal. I don't think you're accounting for the fact that GetPlayerMapPosition returns a value from 0 to 1 and is based on the current zone map, seems you're assuming it returns a value in yards?

[Ninjaderp]

Hey Xelper, is there any way you could make PQR work on PTR-servers? I can only edit when I start it while Im using the public test realm.

[winkle21]

In shueron holy profile, if the warrior has commanding shout it just keeps spamming Fort. Anyone else having this problem?

[ticklets]

Hey buba, me again :P

for your holy PVE, i can shift-focus a target...but it never seems to cast judgement on them.

Anyone else have this similar issue?

[bu_ba_911]

In shueron holy profile, if the warrior has commanding shout it just keeps spamming Fort. Anyone else having this problem?

if thats the case, then it's because he only runs a check against fort being up, and not if theres already a buff up that would cover his fort buff as well

in his autotargetting ability he runs a check against if fort is up on a target, if not then he'll cast fort

if commanding shout is overwriting fort then of course fort wont be up

---------- Post added at 03:34 PM ---------- Previous post was at 03:33 PM ----------

Hey buba, me again :P

for your holy PVE, i can shift-focus a target...but it never seems to cast judgement on them.

Anyone else have this similar issue?

i wrote it so u have to be in combat for it to cast.... imagine pulling a boss just because u focused him i just healed an entire za/zg and it was working how i wrote it..... also been practicing beacon fix in bg's

[ticklets]

if thats the case, then it's because he only runs a check against fort being up, and not if theres already a buff up that would cover his fort buff as well

in his autotargetting ability he runs a check against if fort is up on a target, if not then he'll cast fort

if commanding shout is overwriting fort then of course fort wont be up

---------- Post added at 03:34 PM ---------- Previous post was at 03:33 PM ----------



i wrote it so u have to be in combat for it to cast.... imagine pulling a boss just because u focused him i just healed an entire za/zg and it was working how i wrote it..... also been practicing beacon fix in bg's

Man I must be on crack then because I've been trying it for so long...

It does focus the target...it just never cast's judgement

[bu_ba_911]

Man I must be on crack then because I've been trying it for so long...

It does focus the target...it just never cast's judgement

lol well as soon as i find out why lua errors blow up in my face due to the beacon of light ability, im going to release the latest version. maybe that will be nicer to u

*edit*
i hate coding :'(
i find error after error as im testing this beacon code more indepth lol

without it my code runs perfectly fine, with it, it all goes to hell
WHYYYYY! might just flat out remove auto-cast/check beacon until i figure out another way to do it, to many bugs with the current way..... works perfectly if u never target the person with it and then target some1 else..... that's where it breaks the most.... or if you are targetting the person who currently has it and then use the mouseover cast on some1 else.... or or or..... yea targetting system is breaking it and i can't figure out how to fix that yet lol

[Ninjaderp]

Any of you guys playing the PTR-version? I would love to be able to use PQR with it, as you can try out premade characters with full fl-gear with gems & enchants ^^

[Untouchablekill]

Can someone make code for hunters where you press say right control or something and it will throw out a trap?

[Unasrage]

Can someone make code for hunters where you press say right control or something and it will throw out a trap?

m8 just donwload the latest sheuron pack a couple of pages ago and read the readme file in the .rar file ... all your anwser will be there

---------------edit--------------------

http://www.ownedcore.com/forums/worl...ml#post2132079 ([BETA] PQRotation - an automated ability priority queue.) here you have the link m8

[Untouchablekill]

I'm using the survival one and I just need the immolation trap and ice/frost trap one.

[Unasrage]

ok them just add this new skills :


Explosive Trap -- Rigth Alt Pressed

if IsRightAltKeyDown() and tostring(select(2,GetSpellCooldown(82939))) == "0" then
  if GetSpellCooldown(77769) == 0 then CastSpellByName(tostring(GetSpellInfo(77769))) end
  if IsUsableSpell(82939) then CastSpellByName(tostring(GetSpellInfo(82939))) end
  if SpellIsTargeting() then CameraOrSelectOrMoveStart() CameraOrSelectOrMoveStop() end
  return true
end

Freezing Trap -- Rigth Control Pressed

if IsRightControlKeyDown() and tostring(select(2,GetSpellCooldown(60192))) == "0" then
  if GetSpellCooldown(77769) == 0 then CastSpellByName(tostring(GetSpellInfo(77769))) end
  if IsUsableSpell(60192) then CastSpellByName(tostring(GetSpellInfo(60192))) end
  if SpellIsTargeting() then CameraOrSelectOrMoveStart() CameraOrSelectOrMoveStop() end
  return true
end

Ice Trap -- Rigth Shift Pressed

if IsRightShiftKeyDown() and tostring(select(2,GetSpellCooldown(82941))) == "0" and GetCurrentKeyBoardFocus() == nil then
  if GetSpellCooldown(77769) == 0 then CastSpellByName(tostring(GetSpellInfo(77769))) end
  if IsUsableSpell(82941) then CastSpellByName(tostring(GetSpellInfo(82941))) end
  if SpellIsTargeting() then CameraOrSelectOrMoveStart() CameraOrSelectOrMoveStop() end
  return true
end

This is the code from Sheuron skills after making the skills remenber to add them to rotacion just add the 3 skill on top all all.

all the credit of this code is from Sheuron i'm just posting it for your easy access

[Kinky]

Playing around with the new version of PQR right now and fixing the Discipline/Shadow Priest profiles (and testing them before I upload them), keep up the awesome work Xelper!

[SilentWarrior]

I'd love to see this working, would be great for chain heal. I don't think you're accounting for the fact that GetPlayerMapPosition returns a value from 0 to 1 and is based on the current zone map, seems you're assuming it returns a value in yards?

Meh! Have to check that out.

Any ideas on how to solve this? Prob gona check out Vuhdo's code, i think thats where i got the original idea for doing it from, maybe even the code works too.

[sheuron]

In shueron holy profile, if the warrior has commanding shout it just keeps spamming Fort. Anyone else having this problem?

Ty, ll fix that on next profile released.

Tested rotation today on a full firelands run, worked flawless. The only fight with Out of sight issue is first boss and the new PQR feature worked fine.