PQR - Rotation Bot

[averykey]

i#party

i#partyhealth

if IsSnared(party) or IsRooted(party) and PlayerHp >= 50 and partyHealth >= 50 then
    if mana >= 40 and hof notavailable then
        if healerisafflicted then
            cast empancipate(afflictedpartymember)
                elseif not healerisafflicted then
                    cast empancipate(afflictedpartymember)
                end
            end
            
    else

if healerisafflicted then
    cast hof on healer
elseif not healerisafflicted and
        cast hof on party member
    end
end
                


if IsSnared("player") or IsRooted("player") then
    if mana >= 40 and hof not available then
        cast empancipate
    end
else
        cast hof on player
    end
end 

alright this is the second time i've seen you do this in about a week

When you are using elseif, here is how the code structure should look


if .. then
elseif ... then
elseif ... then
end

how you are coding it

if ... then
elseif .. then
end
end

this will break your entire profile and not just your ability code.

the same coding style applies to
if .. then
else
end

also your first bit of code seems to contradict your second bit of code

i#party

i#partyhealth

if IsSnared(party) or IsRooted(party) and PlayerHp >= 50 and partyHealth >= 50 then
    if mana >= 40 and hof notavailable then
        if healerisafflicted then
            cast empancipate(afflictedpartymember)
                elseif not healerisafflicted then
                    cast empancipate(afflictedpartymember)
                end -- ends mana check
            end --ends if/elseif
            
    else -- do I need to end this?

if healerisafflicted then
    cast hof on healer
elseif not healerisafflicted and
        cast hof on party member
    end --ends if/elseif
end --ends party check
                


if IsSnared("player") or IsRooted("player") then
    if mana >= 40 and hof not available then
        cast empancipate
    end --ends mana>=40
else
        cast hof on player
    end --end hof
end   --ends if check 

first part is going to be for pvp
second part is going to be for dungeon

I am not comparing stacks, it is the time of censure left and since I am comparing 2 of the same, I don't have to subtract from GetTime()

not target

if target doesn't have censure applied

focus and target<focus

focus has censure and focus censure time difference than target censure time

target==focus

If your target ever becomes your focus, the code will still run

Thank you for explaining, will rep again when I can.


Anyone know why I can't give more than 1 rep?

[ishtro]

i#party

i#partyhealth

if IsSnared(party) or IsRooted(party) and PlayerHp >= 50 and partyHealth >= 50 then
    if mana >= 40 and hof notavailable then
        if healerisafflicted then
            cast empancipate(afflictedpartymember)
                elseif not healerisafflicted then
                    cast empancipate(afflictedpartymember)
                end -- ends mana check
            end --ends if/elseif
            
    else -- do I need to end this?

if healerisafflicted then
    cast hof on healer
elseif not healerisafflicted and
        cast hof on party member
    end --ends if/elseif
end --ends party check
                


if IsSnared("player") or IsRooted("player") then
    if mana >= 40 and hof not available then
        cast empancipate
    end --ends mana>=40
else
        cast hof on player
    end --end hof
end   --ends if check 

first part is going to be for pvp
second part is going to be for dungeon





Thank you for explaining, will rep again when I can.


Anyone know why I can't give more than 1 rep?

i#party
i#partyhealth

if IsSnared(party) or IsRooted(party) and PlayerHp >= 50 and partyHealth >= 50 then
    if mana >= 40 and hof notavailable then
        if healerisafflicted then
            cast empancipate(afflictedpartymember)
        elseif not healerisafflicted then
            cast empancipate(afflictedpartymember)
        end
    end
else
    if healerisafflicted then
        cast hof on healer
    elseif not healerisafflicted and
        cast hof on party member
    end
end
                


if IsSnared("player") or IsRooted("player") then
    if mana >= 40 and hof not available then
        cast empancipate
    end
else
    cast hof on player
end 

[firepong]

.........................



Thank you for explaining, will rep again when I can.


Anyone know why I can't give more than 1 rep?

Rep power is decided on a few factors. 1 im positive of, is how long you have been on the site. For every year you have been a member of the site, you get 1 rep power. 2, which I'm not sure, is for every rank up (member to contributor and so on) you get another point in rep power. And if your a Mod or higher, you get auto 10 rep power or something like that I think. And if your a Admin, you get unlimited

[kevink88]

I'am trying to add Charge to my rotation but I don't know the code wich needs to come on the second line it should be like

if PQR_SpellAvailable(5308 )
and target is 10 yards away << how do I write that
and ... then
return true

Thanks in advance,
Kevin

[averykey]

I'am trying to add Charge to my rotation but I don't know the code wich needs to come on the second line it should be like

if PQR_SpellAvailable(5308 )
and target is 10 yards away << how do I write that
and ... then
return true

Thanks in advance,
Kevin

function RangeCheck(spellid, t)
if IsSpellInRange(GetSpellInfo(spellid), t) == 1 then
return true
end
return false
end

RangeCheck(charge id, "target")


IsSpellInRange(chargeid, "target") == 1 -- 0 = false 1 = true
local chargeid = GetSpellInfo(####)

example
IsSpellInRange(chargeid, "target") == 0 then
cast other closer spell


there is a way to get getspellinfo inside the range check, something like this, I don't know how though.
IsSpellInRange(GetSpellInfo(####), "target")) == 0


if PQR_UnitDistance > 8 and PQR_UnitDistance < 25 then
in firepong, might be what you need


edit:

code I found in other profiles

firepong

local hasTarget = UnitExists("Target")
local Enemy = UnitCanAttack("Player","Target")
local chKnown = IsSpellKnown(100)
local isDead = UnitIsDead("Target")

if hasTarget and not isDead and Enemy and chKnown then
	local PQR_UnitDistance = PQR_UnitDistance("Target", "Player")
	
	if PQR_UnitDistance > 8 and PQR_UnitDistance < 25 then
		CastShapeshiftForm(1)
		return true
	end
end

dont know, profile is named leveling

if IsLeftShiftKeyDown() 
  and select(2, GetSpellCooldown(100)) == 0
  and IsSpellInRange(GetSpellInfo(100), "target") == 1
  and not PQR_IsOutOfSight("target")
  and UnitExists("target")
  and UnitCanAttack("player", "target") then
	return true
end

bubba

if PQR_SpellAvailable(100)
 and Nova_Pause(3)
 and UnitExists("mouseover")
 and IsSpellInRange(GetSpellInfo(100), "mouseover") == 1
 and UnitCanAttack("player", "mouseover") then
 	PQR_CustomTarget = "mouseover"
	return true
end

[kevink88]

thanks for the quick reply

Not sure if I will be using it anyways but atleast now I know how it works!

This is what I did to make it work

if PQR_SpellAvailable(100)
and PQR_UnitDistance("player", "target") > 8
and PQR_UnitDistance("player", "target") < 25
and PQR_UnitFacing("player", "target") then
return true
end

[firepong]

Well, I might have a little time today. think I'm going to get my Druid/Warrior Leveling profile updated so that it will run this coming Monday for the Mists Release. Seeing as the CC part of HonorBuddy is still fugged up and not working right for a couple Classes, this will be a great addition.

What will happen, is after all my stuff is updated, all you will have to do is download hte new zip with the updated files (Can't use the old one because of all the changes in HonorBuddy. After that, everything will be pushed to my SVN, so people make sure to get my SVN link from my signature.

I'll post here when they are all up-to-date and running semi-decent. Shouldn't be to hard to do as I already have all the coded finished in my Main Raid rotation's, just have to copy it all over/change spellID's and we will be golden

[thenthelies]

Is there anyway to have PQR detect if there are a certain number of mobs in range of you to start using AOE abilities rather then having to have a complete rotation dedicated to AOE?

Something written like:

if [??3 mobs within 8 yards??] then
return true
end

I have no idea what the LUA code for this would be.

Thanks!

[deadpanstiffy]

Is there anyway to have PQR detect if there are a certain number of mobs in range of you to start using AOE abilities rather then having to have a complete rotation dedicated to AOE?

Something written like:

if [??3 mobs within 8 yards??] then
return true
end

I have no idea what the LUA code for this would be.

Thanks!

You don't need another "complete rotation dedicated to AOE". Code in modifiers [shift/alt/ctrl] for abilities that are used during AE.

if IsLeftShiftKeyDown()
and not GetCurrentKeyBoardFocus() then
	CastSpellByName("Cleave")
else
	CastSpellByName("Heroic Strike")
end

[thenthelies]

I know I can also use modifiers but I'd honestly just really love to have one rotation taking care of everything as it happens.

Surely there must be some kind of LUA that allows this function!

[yourson]

Anyone having problem with memory leaking?

I tried using it on Win XP SP3 will all windopws and /net patches installed, but it just keeps using more and more memory... Tried different profiles/classes, but it's always same result.

Any tip on hint? Somehow I think its .net problem. Buying a beer to one who helps.

[Weischbier]

Ok, here I go and tried to code my first routine for PQR and failed miserably.
Can someone debug this thing for me and explain where I did what wrong.

https://dl.dropbox.com/u/24969605/PALADIN.rar

Would be highly appreciated and there is some rep in store

greetz

Weischbier

[firepong]

Ok, here I go and tried to code my first routine for PQR and failed miserably.
Can someone debug this thing for me and explain where I did what wrong.

https://dl.dropbox.com/u/24969605/PALADIN.rar

Would be highly appreciated and there is some rep in store

greetz

Weischbier

Change all

IsSpellInRange(20271,"spell", "target")

to

IsSpellInRange(20271,"target")

[Noelpqr]

also i think to active a seal you need to use CastShapeshiftForm() like CastShapeshiftForm(1) for seal of truth
so you need to change the spell id to 0
and the code to something like this

local sSoT = UnitBuffID("player", 31801)

if sSoT == nil then
    CastShapeshiftForm(1)
end 

[firepong]

also i think to active a seal you need to use CastShapeshiftForm() like CastShapeshiftForm(1) for seal of truth
so you need to change the spell id to 0
and the code to something like this

local sSoT = UnitBuffID("player", 31801)

if sSoT == nil then
    CastShapeshiftForm(1)
end 

Actually, Seals don't show up as buffs anymore. You have to use

GetShapshiftForm()