PQR - Rotation Bot

[kickmydog]

hi


i need a code for the cc from the Wind Lord Mel'Jarak Spear Macro

/stopcasting
/target focus
/click ExtraActionButton1
/targetlasttarget


the timer to refresh the spear i´m not shure but i think it was 50 sec

Did anything ever come from this ? I noticed that Xelper said he would help.

[firepong]

@Firepong: Could you give HT priority to cast when there are 4+ CP during PS? Right now it just casts instantly when you get the PSbuff and the DoC proc is "wasted" on shred/rake when Rip/FB benefit a lot from DoC. I've been trying to do it myself, but I'm a failure at writing code

Its basically at that to a point. I do it the way I do right now because the free Healing Touch, if not used off the bat, will be consumed the next time you do a melee ability (mangle or shred) right?

Sent from my SAMSUNG-SGH-I747 using Tapatalk 2

[Traehn]

Its basically at that to a point. I do it the way I do right now because the free Healing Touch, if not used off the bat, will be consumed the next time you do a melee ability (mangle or shred) right?

The Predatory Swiftness buff only affects Healing Touch, Cyclone, Entangling Roots, Rebirth and Hibernate not any melee abilities (Unless someone knows of a bug). So when Healing Touch is cast right off the bat after we gain the buff the only two spells that will ever be affected by it are Shred and Rake (Although you did that amazing update with NS which was a HUGE boost!). If there was someway you could cast Healing Touch when the buff has only a few seconds to go, when we have 4+ Combo Points OR when Rake needs to be reapplied with relatively low DoT clipping it would allow us the chance to try and gain 4+ combo points (Either through Tiger's Fury or Crits) and use the DoC proc for a finisher. This should, in theory, provide a boost in DPS. I've been trying all day with no success

[Beelzix]

any one have a warrior link for pve and pvp profs

[Soapbox]

Im sorry, I messed up. I meant Channeling time.

I want it to cast evocate ONLY if the CHANNELING TIME is shorter than the duration of my living bomb Debuffbuff, to ensure that it does not fall off during the evocate CHANNEL time.

I tried this, and it does not work.

local LivingBombTimeLeft = lbdebuff - GetTime() 
local LivingBomb = select(7, UnitDebuffID("target",44457)) 
local EvocateChannelTime = select(7, GetSpellInfo(12051)) 
 
if LB then 
    if EvocateChannelTime < LivingBombTimeLeft then 
    CastSpellByName("Evocate") 
    return true 
    end 
end  

anyone? :S

[Taran32]

Wanted to make a very basic contribution, so here's one for Incanter's Ward. It's more or less to put it up on CD, so adjust as necessary. I use it in my modified version of Sheep's Frost PvP profile.

Spell ID: 1463

if select(2,GetTalentRowSelectionInfo(6)) == 18
and not UnitBuffID("player",1463)
and not IsMounted()
then
return true
end

[firepong]

anyone? :S

Can't believe I'm doing this... But here's a handout:

local evKnown = IsSpellKnown(12051)
local evStart, evDuration = GetSpellCooldown(12051)
local evCD = evStart + evDuration - GetTime()
local lbDebuff = select(7,UnitDebuffID("Target",44457,"PLAYER"))
local evChannel = (6 / (1 + UnitSpellHaste("Player") / 100))

if evKnown and lbDebuff and evCD < 1 then
    local lbTimer = lbDebuff - GetTime()

    if evChannel < lbTimer then
        CastSpellByName(tostring(GetSpellInfo(12051)))
    end
end  

Very simple math. If you can't do this yourself, can't believe you coded what you did Should already know that "select(7, GetSpellInfo(12051)) " will always return 0 pretty much all the time. Don't forget the "Player" tag there so that it doesn't interfere with another mage's Debuff.

[firepong]

Its basically at that to a point. I do it the way I do right now because the free Healing Touch, if not used off the bat, will be consumed the next time you do a melee ability (mangle or shred) right?

Sent from my SAMSUNG-SGH-I747 using Tapatalk 2

I correct myself. It isn't because the buff is consumed by something else, just that the buff for free Healing Touch' is only 7 seconds long. Theres no way that buff is going to stay up on the player long enough to get 4 Combo Point's before falling off. And I've stated, I will not Hard Cast Healing touch at 4 stacks just to get a buffed Rip when white damage is pretty much Feral's top DPS 90% of the time.

[Gabbz]

anyone? :S

The big question you should ask yourself is why?
Why is it so important ? Because you will loose DPS over this.
The pyromaniac buff is a buff to you that will increase your damage done by Fireball, Pyroblast and inferno blast (FFB also but none uses that) And you will apply LB asap after evo if its not on.

I give you a tip:

if  LBTimeLeft <= 3  

[kclux]

Does anyone have a working download link to Onyas old Resto Shaman profile? He had this awesome way to set cvars by using macros and then use those with PQR that way you could basically use any key in game for an ability and not just shift ctrl and alt. Tried to figure it out myself but I am stuck and need to have a look at his code

[Cahonez]

Message: [string "if PQR_Addon_Loaded == nil then..."]:1451: GetSpellBookItemName(): Invalid spell slot
Time: 11/09/12 10:12:05
Count: 338
Stack: [C]: in function `GetSpellBookItemName'
[string "if PQR_Addon_Loaded == nil then..."]:1451: in function `PQR_GetSpellID'
[string "if PQR_Addon_Loaded == nil then..."]:1437: in function <[string "if PQR_Addon_Loaded == nil then..."]:1435>
[C]: in function `CastSpellByName'
Interface\FrameXML\ChatFrame.lua:1096: in function `?'
Interface\FrameXML\ChatFrame.lua:4338: in function `ChatEdit_ParseText'
Interface\FrameXML\ChatFrame.lua:4052: in function `ChatEdit_SendText'
Interface\FrameXML\ChatFrame.lua:2727: in function <Interface\FrameXML\ChatFrame.lua:2720>
[C]: in function `RunMacroText'
[string "--vars ..."]:161: in function `?'
[string "if PQR_Addon_Loaded == nil then..."]:760: in function `PQR_NextAbility'
[string "if PQR_Addon_Loaded == nil then..."]:533: in function `PQR_ExecuteRotation'
[string "if PQR_Addon_Loaded == nil then..."]:289: in function <[string "if PQR_Addon_Loaded == nil then..."]:214>

Locals: (*temporary) = 184
(*temporary) = "spell"

anyone tell me what this is telling me the problem is?

failroad's profile

[averykey]

Does anyone have a working download link to Onyas old Resto Shaman profile? He had this awesome way to set cvars by using macros and then use those with PQR that way you could basically use any key in game for an ability and not just shift ctrl and alt. Tried to figure it out myself but I am stuck and need to have a look at his code

I have it 10char

local ctrl = IsControlKeyDown()
local leftctrl = IsLeftControlKeyDown()
local rightctrl = IsRightControlKeyDown()
local shift = IsShiftKeyDown()
local leftshift = IsLeftShiftKeyDown()
local rightshift = IsRightShiftKeyDown()

hrkey = leftctrl or 0 -- healing rain keybind
lbspam = leftshift or 0 -- in combat lighting bolt spam keybind
oochealing = leftshift or 0 -- out of combat healing keybind

rthealth = 95 -- riptide
hwhealth = 95 -- healing wave
ghwhealth = 70 -- greater healing wave
hshealth = 30 -- healing surge
uehealth = 90 -- unleash elements
inttrinket = 70 -- use int trinkets when target health below this
nshealth= 15 -- nature's swiftness + GHW
targethealth = 90  -- chain heal first target
hophealth = 95 --  chain heal secondary targets
hops = 2 -- chain heals jumps, doesn't count the first target so if set to 3 will heal 4 people
onyacvars = {2894,2825,79206,2062,98008,36936,66842} -- spells to create macros for


if PQR_RotationStarted == true then
  PQR_RotationStarted = false
  ---PQR_ObjMgrPulseTimer = 100
  if GetPrimaryTalentTree() ==1 then PQR_SwapRotation("Elemental (ONYA elemental)") end
  if GetPrimaryTalentTree() ==2 then
     PQR_WriteToChat("enhance spec not supported")     
     PQR_StopRotation()
     return true
  end
  if GetCVar("synchronizeMacros") ~=0 then SetCVar("synchronizeMacros",0) end
  for k, val in pairs(onyacvars) do 
    local aval = "onya_"..tostring(val)
    if GetCVarBool(aval) then SetCVar(aval,nil) end
    local name = GetSpellInfo(val)
    if GetMacroInfo(name) ~= name then
      local mac = "#showtooltip "..name.."\\n/run if GetCVar\\(\\""..aval.."\\"\\) == nil then RegisterCVar\\(\\""..aval.."\\"\\,nil) end;SetCVar\\(\\""..aval.."\\"\\,1)"
      CreateMacro(name,"INV_MISC_QUESTIONMARK",mac, 1) 
    end
  end
  spelltocast = {}  
 
function DistanceBetweenUnits(unit1,unit2)
   if unit2 == unit1 then return 0 end
   local r = PQR_UnitDistance(unit1,unit2)
   return r
end
cursesfromevent = { }
Decurse = { 
--- Hour of Twilight
      ---102582, --- chains of frost
      102848, -- tentacle smash
      43415, -- freezing trap
      103363, -- Twilight Shear
      103151, -- Righteous Shear

--- End Time
      102057, -- Scorched
      101840, -- Molten Blast
      101412, -- Shriek of the Highborne

--- Dragon Soul
      105289, -- Shattered Ice
      108567, -- Shattered Ice
    ---  103434, --- disrupting shadows 
   ---   104599, --- disrupting shadows 
      109333, -- Frost Corruption
  ---    107629, --- boulder smash
      109423-- Shackles of Ice
}

function EventHandler(self, event, ...)
  if event == "COMBAT_LOG_EVENT_UNFILTERED" then
      if (select(2, ...) == "SPELL_CAST_SUCCESS" ) and
        bit.band(select(6, ...), COMBATLOG_OBJECT_AFFILIATION_MINE) == 1
      then
         local castspell =  select(12, ...)       
         for k,v in ipairs(spelltocast) do
            if castspell == v then table.remove(spelltocast,k) end
         end
      end
      if select(2, ...) == "SPELL_AURA_APPLIED"  and
         select(15, ...) == "DEBUFF" and
         bit.band(select(10, ...), COMBATLOG_OBJECT_AFFILIATION_OUTSIDER) ~= 8
      then
        local target = select(8, ...)
        local spell = select(12, ...)
        local spellname = select(13, ...)
        for k, val in pairs(Decurse) do 
           if val == spell  then 
              table.insert(cursesfromevent ,target)
              table.insert(cursesfromevent ,spell)
          end
       end
    end
  end
end

frame = CreateFrame("FRAME", "OurFrame")
frame:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED")
frame:SetScript("OnEvent", EventHandler)

function GetDamageTarget()
 if UnitExists("focus") and IsSpellInRange("Lightning Bolt", "focus") and not UnitIsDead("focus") then return ("focus") end   
 if IsSpellInRange("Lightning Bolt", "target") and not UnitIsDead("target")then return ("target") end  
 for k,v in ipairs(tanks) do
    if IsSpellInRange("Lightning Bolt", member[v].name.."target") 
        and not UnitIsDead(member[v].name.."target") 
      then return (member[v].name.."target") end
 end
end

function isvalidhealtarget(vtarget)
     if UnitInRange(vtarget) 
         and UnitIsDeadOrGhost(vtarget) == nil 
         and UnitIsVisible(vtarget) == 1
         and UnitHealth(vtarget) ~=0
         and UnitExists(vtarget)== 1
         and not PQR_IsOutOfSight(vtarget,1)
         and UnitIsConnected(vtarget) == 1
         and PQR_IsOutOfSight(vtarget) == false   
         and UnitIsCharmed(vtarget) == nil 
         and UnitCanCooperate("player",vtarget)
     then
        return true 
     else
        return false
     end
end

function SilentCast(scspell,sctarget) 
   local SFX = GetCVar("Sound_EnableSFX")    
   SetCVar("Sound_EnableSFX", 0)
   if sctarget ~= nil then
        CastSpellByID(scspell,sctarget)        
   end
   if sctarget == nil then
      CastSpellByID(scspell)       
   end
   SetCVar("Sound_EnableSFX", SFX)
end

end -- everything above here run once


manapercent = 100 * UnitPower("player") / UnitPowerMax("player")
mana = UnitPower("player") or 0
Spell, _, _, _, _, endTime = UnitCastingInfo("player")
member = {}
tanks = {}
myesbuff = nil
lowest = 1
rttarget = 1
chtargets = {}
chhops = {}
gooey = {}

local SwG = UnitBuffID("player", 79206)
local mf = UnitBuffID("player", 98734)
local plucked = UnitDebuffID("player", 97318)
if ((SwG ~= nil ) or not(PQR_IsMoving (0.5))  or (mf ~= nil ) or (plucked ~= nil )) then
 moving = 0
else 
  moving = 1
end

group = "party"
members = GetNumPartyMembers()+1
if GetNumRaidMembers() > 0 then
  group = "raid"
  members = GetNumRaidMembers()
end

if UnitIsDeadOrGhost("player") then return true end

for i = 1, members, 1 do
   member[i] = {}
   member[i].name = group..tostring(i) 
   if group == "party" and i == members then member[i].name = "player" end
   gooey[UnitGUID(member[i].name)] = member[i].name
   local myIncomingHeal = UnitGetIncomingHeals(member[i].name, "player") or 0
   local allIncomingHeal = UnitGetIncomingHeals(member[i].name) or 0
   local otherin = 0
   if myIncomingHeal < allIncomingHeal then otherin = allIncomingHeal - myIncomingHeal  end
   -- if myIncomingHeal ~= allIncomingHeal and myIncomingHeal ~= 0 then 
   local memberin = UnitGetIncomingHeals(member[i].name) or 0
   
   member[i].health= 100 * (UnitHealth(member[i].name)+ memberin ) / UnitHealthMax(member[i].name)
   member[i].healthothers = 100 * (UnitHealth(member[i].name)+ otherin ) / UnitHealthMax(member[i].name)
   member[i].healthreal= 100 * UnitHealth(member[i].name) / UnitHealthMax(member[i].name)
   
   if isvalidhealtarget(member[i].name) then 
      if member[i].health < member[lowest].health then lowest = i end
      if UnitGroupRolesAssigned(member[i].name) == "TANK" then table.insert(tanks,i) end
      local hasES ,_,_,_,_,_,_,uc = UnitBuffID(member[i].name, 974) 
      if hasES then if uc == "player" then myesbuff = i  end end
      if member[i].health < targethealth and isvalidhealtarget(member[i].name) then table.insert(chtargets,i) end
      if member[i].health < hophealth then table.insert(chhops,i) end
      local hasrt ,_,_,_,_,_,_, unitCaster = UnitBuffID(member[i].name, 61295) 
      local hasmyrt = 0
      if hasrt then if unitCaster == "player" then hasmyrt = 1 end end
      if member[i].health < member[rttarget].health and
         isvalidhealtarget(member[i].name)
         and hasmyrt == 0
      then rttarget = i end
   end
end  

[Kinky]

Rejoice. I think I finally figured out why the rotation is sometimes stopping! Have literally stood planted in Stormwind forever running the profile without touching WoW itself, and it has yet to stop!
I'll let it run for a bit more, and do some more testing. If this is the case then I'll release an update in 30 minutes to an hour!

[failroad]

Yea failroad I can't get ur prot single target to work at all they AoE profile no problem. just eh single target he stands there just doing a regular melee swings nothing else

You didn't update through svn

Ppl need to stop posting on this thread if you got questions about my profile.

[Kinky]

Yeah, I managed to completely sort out the rotation stopping now. (I've ran out of mana twice), but now I have to re-time some abilities which shouldn't take too long. I'll have a release ready as soon as possible!