The Superbad DPS Engine

MachineOfHate

Death Metal Holocaust

Posts: 63

Location: TEN-UH-SEE

Occupation: Network Administrator

1

Saturday, February 4th 2012, 10:50pm

Back in Chapter 3, I was in a guild named Superbad. On the guild forums, two members (Thornmaiden and Jerkstore) created a group of functions for the Scouts in the guild to use that was more optimized for DPS than DIYCE was at the time. They never said it was private but I assumed it was and never posted it. Both are long gone from RoM and honestly, I'd rather more people have access to it if it'll mean more people play the game.

It was never suppose to do everything DIYCE can do. It was just a quick and dirty macro set to get people using quick.

I've added to the script since the original version. Everything from the CastAggroLead() is made by me.

All the scout and warrior macros work like this:

	Source code
1	/run WarriorRoguePunish()

	Source code
1	/run ScoutRogue()

Just put one of those commands into a macro and then put it on an action bar and then click or press the hell out of it. I'm not that knowledgeable about LUA programming so if you have problems, I'll help the best I can but I can't make any promises. They're pretty simple and everything is already setup so unless you make changes and mess something up, you shouldn't have a problem. Also, may wanna scan through. The UseAction lines in the functions need to be changed to the corresponding skill you want. I have an idea of setting up global variables at the beginning with all the skills and their correct key and then calling that in the functions but I'm not sure how to do it. That's on my todo list.

Quick instructions:

Make a folder in your addons folder called JerkstoreFunctions
Make a new file in the JerkstoreFunctions folder called JerkstoreFunctions.lua.
Make a new file in the JerkstoreFunctions folder called JerkstoreFunctions.toc.
Put the contents below in the appropriate files.
Reload client or do /run ReloadUI()
Go to Escape Menu->Macros section
Make a macro for the function you want
Drag the macro to an action bar slot.
Mash the hell out of it.

Anyways, here's the contents of JerkstoreFunctions.toc:

	Source code
1	JerkstoreFunctions.lua

Here's the contents of JerkstoreFunctions.lua:

Source code

function SkillIsReady(tab,slot)
   local FullCD,CurrentCD = GetSkillCooldown(tab,slot)
   if CurrentCD - .40 <= 0 then
      return true
   else
      return false
   end
end

function ActionIsReady(slot)
   local FullCD,CurrentCD = GetActionCooldown(slot)
   if CurrentCD - .40 <= 0 then
      return true
   else
      return false
   end
end

function Msg(outstr,a1,a2,a3)
    DEFAULT_CHAT_FRAME:AddMessage(tostring(outstr),a1,a2,a3)
end

function PctH(tgt)
    return (UnitHealth(tgt)/UnitMaxHealth(tgt))
end

function PctM(tgt)
    return (UnitMana(tgt)/UnitMaxMana(tgt))
end

function PctS(tgt)
    return (UnitSkill(tgt)/UnitMaxSkill(tgt))
end

function FireTrainingSwap()
    local titlenum = GetCurrentTitle()
    if titlenum ~= 530467 then
       SetTitleRequest(530467)   -- ft title
       if SkillIsReady(1,17) then
         UseAction(5)
       end
    else 
       SetTitleRequest(530510) --530427 = escape artist, 530510 = bad guy
    end
end

--Replace the number 1 with the action slot you have Autoshot in

function AutoshotIsActive()
   local a1,a2,a3,a4,a5,a6=GetActionInfo(6)
   if a6 then
      return true
   else
      return false
   end
end

function BuffList(tgt)
    local list = {}
    local buffcmd = UnitBuff
    local infocmd = UnitBuffLeftTime

    if UnitCanAttack("player",tgt) then
        buffcmd = UnitDebuff
        infocmd = UnitDebuffLeftTime
    end

    -- There is a max of 100 buffs/debuffs per unit apparently
    for i = 1,100 do
        local buff, _, stackSize, ID = buffcmd(tgt, i)
        local timeRemaining = infocmd(tgt,i)
        if buff then
            -- Ad to list by name
            list[buff:gsub('(%()(.)(%))', '%2')] = { stack = stackSize, time = timeRemaining, id = ID }
            -- We also list by ID in case two different buffs/debuffs have the same name.
            list[ID] = {stack = stackSize, time = timeRemaining, name = buff:gsub("(%()(.)(%))", "%2") }
        else
            break
        end
    end

    return list
end

function BuffListOld(tgt)
    local cnt = 1
    local buffcmd = UnitBuff
    local buffstr = "/"

    if UnitCanAttack("player",tgt) then
        buffcmd = UnitDebuff
    end
    local buff = buffcmd(tgt,cnt)

    while buff ~= nil do
        buffstr = buffstr..buff.."/"
        cnt = cnt + 1
        buff = buffcmd(tgt,cnt)
    end

    return string.gsub(buffstr, "(%()(.)(%))", "%2")
end



--[[
Skill slots (assuming player has elite skills)

Shot            2,2
Combo Shot      4,16
Combo Shot(S/K) 4,15
Wind Arrows     4,3
Reflected Shot  4,20
Piercing Arrow  4,9
Thorn Arrow     4,8
Hidden Peril    4,14
Weak Spot       4,8
Sapping Arrow   4,17
Enraged         3,3
--]]


function Scout()
   if not AutoshotIsActive() then
      CastSpellByName("Autoshot")
   elseif SkillIsReady(2,2) then
      CastSpellByName("Shot")
   elseif SkillIsReady(4,16) then
      CastSpellByName("Combo Shot")
   elseif SkillIsReady(4,3) then
      CastSpellByName("Wind Arrows")
   end
end


function ScoutMulti()
   if not AutoshotIsActive() then
      CastSpellByName("Autoshot")
   elseif SkillIsReady(4,20) then
      CastSpellByName("Reflected Shot")
   elseif SkillIsReady(2,2) then
      CastSpellByName("Shot")
   elseif SkillIsReady(4,16) then
      CastSpellByName("Combo Shot")
   elseif SkillIsReady(4,3) then
      CastSpellByName("Wind Arrows")
   end
end


function ScoutKite()
   if not AutoshotIsActive() then
      CastSpellByName("Autoshot")
   elseif SkillIsReady(2,2) then
      CastSpellByName("Shot")
   elseif SkillIsReady(4,3) then
      CastSpellByName("Wind Arrows")
   end
end


function ScoutKnight()
   if SkillIsReady(4,15) then
      CastSpellByName("Combo Shot")
   elseif not AutoshotIsActive() then
      CastSpellByName("Autoshot")
   elseif SkillIsReady(2,2) then
      CastSpellByName("Shot")
   elseif SkillIsReady(4,3) then
      CastSpellByName("Wind Arrows")
   end
end


function ScoutKnightMulti()
   if SkillIsReady(4,15) then
      CastSpellByName("Combo Shot")
   elseif not AutoshotIsActive() then
      CastSpellByName("Autoshot")
   elseif SkillIsReady(4,20) then
      CastSpellByName("Reflected Shot")
   elseif SkillIsReady(2,2) then
      CastSpellByName("Shot")
   elseif SkillIsReady(4,3) then
      CastSpellByName("Wind Arrows")
   end
end


function ScoutKnightKite()
   if SkillIsReady(2,2) then
      CastSpellByName("Shot")
   elseif not AutoshotIsActive() then
      CastSpellByName("Autoshot")
   elseif SkillIsReady(4,20) then
      CastSpellByName("Reflected Shot")
   elseif SkillIsReady(4,3) then
      CastSpellByName("Wind Arrows")
   end
end


function ScoutWarrior()
   if SkillIsReady(2,3) then
      CastSpellByName("Vampire Arrows")   
   elseif SkillIsReady(4,16) then
      CastSpellByName("Combo Shot")
   elseif not AutoshotIsActive() then
      CastSpellByName("Autoshot")
   elseif SkillIsReady(2,2) then
      CastSpellByName("Shot")
   elseif SkillIsReady(4,3) then
      CastSpellByName("Wind Arrows")
   end
end


function ScoutWarriorMulti()
   if SkillIsReady(2,3) then
      CastSpellByName("Vampire Arrows")
   elseif not AutoshotIsActive() then
      CastSpellByName("Autoshot")
   elseif SkillIsReady(4,16) then
      CastSpellByName("Combo Shot")
   elseif SkillIsReady(4,20) then
      CastSpellByName("Reflected Shot")
   elseif SkillIsReady(4,9) then
      CastSpellByName("Piercing Arrow")
--   elseif SkillIsReady(4,13) then
--      CastSpellByName("Snipe")
   elseif SkillIsReady(4,3) then
      CastSpellByName("Wind Arrows")
   elseif SkillIsReady(2,2) then
      CastSpellByName("Shot")
   end
end


function ScoutWarriorKite()
   if SkillIsReady(2,3) then
      CastSpellByName("Vampire Arrows")   
   elseif not AutoshotIsActive() then
      CastSpellByName("Autoshot")
   elseif SkillIsReady(2,2) then
      CastSpellByName("Shot")
   elseif SkillIsReady(4,3) then
      CastSpellByName("Wind Arrows")
   end
end


function ScoutWarriorGetRage()
   if SkillIsReady(3,3) then
      CastSpellByName("Enraged")
   elseif SkillIsReady(4,9) then
      CastSpellByName("Piercing Arrow")
   end
end


function ScoutRogue()
   if SkillIsReady(4,8) then
      CastSpellByName("Weak Spot")
   elseif SkillIsReady(4,17) then
      CastSpellByName("Sapping Arrow")
   elseif not AutoshotIsActive() then
      CastSpellByName("Autoshot")
   elseif SkillIsReady(2,2) then
      CastSpellByName("Shot")
   elseif SkillIsReady(4,16) then
      CastSpellByName("Combo Shot")
   elseif SkillIsReady(4,3) then
      CastSpellByName("Wind Arrows")
   end
end


function ScoutRogueMulti()
   if SkillIsReady(4,8) then
      CastSpellByName("Weak Spot")
   elseif SkillIsReady(4,17) then
      CastSpellByName("Sapping Arrow")
   elseif not AutoshotIsActive() then
      CastSpellByName("Autoshot")
   elseif SkillIsReady(4,20) then
      CastSpellByName("Reflected Shot")
   elseif SkillIsReady(2,2) then
      CastSpellByName("Shot")
   elseif SkillIsReady(4,9) then
      CastSpellByName("Piercing Arrow")
   elseif SkillIsReady(4,16) then
      CastSpellByName("Combo Shot")
   elseif SkillIsReady(4,3) then
      CastSpellByName("Wind Arrows")
   end
end


function ScoutRogueKite()
   if SkillIsReady(4,8) then
      CastSpellByName("Weak Spot")
   elseif SkillIsReady(4,17) then
      CastSpellByName("Sapping Arrow")
   elseif not AutoshotIsActive() then
      CastSpellByName("Autoshot")
   elseif SkillIsReady(2,2) then
      CastSpellByName("Shot")
   elseif SkillIsReady(4,3) then
      CastSpellByName("Wind Arrows")
   end
end


function ScoutWarden()
   if SkillIsReady(4,14) then
      CastSpellByName("Hidden Peril")
   elseif not AutoshotIsActive() then
      CastSpellByName("Autoshot")
   elseif SkillIsReady(4,8) then
      CastSpellByName("Thorn Arrow")
   elseif SkillIsReady(2,2) then
      CastSpellByName("Shot")
   elseif SkillIsReady(4,16) then
      CastSpellByName("Combo Shot")
   elseif SkillIsReady(4,3) then
      CastSpellByName("Wind Arrows")
   end
end


function ScoutWardenMulti()
   if SkillIsReady(4,14) then
      CastSpellByName("Hidden Peril")
   elseif not AutoshotIsActive() then
      CastSpellByName("Autoshot")
   elseif SkillIsReady(4,20) then
      CastSpellByName("Reflected Shot")
   elseif SkillIsReady(4,8) then
      CastSpellByName("Thorn Arrow")
   elseif SkillIsReady(2,2) then
      CastSpellByName("Shot")
   elseif SkillIsReady(4,16) then
      CastSpellByName("Combo Shot")
   elseif SkillIsReady(4,3) then
      CastSpellByName("Wind Arrows")
   end
end


function ScoutWardenKite()
   if SkillIsReady(4,14) then
      CastSpellByName("Hidden Peril")
   elseif not AutoshotIsActive() then
      CastSpellByName("Autoshot")
   elseif SkillIsReady(4,8) then
      CastSpellByName("Thorn Arrow")
   elseif SkillIsReady(2,2) then
      CastSpellByName("Shot")
   elseif SkillIsReady(4,3) then
      CastSpellByName("Wind Arrows")
   end
end
---------------------------- Added by Panix
function CastAggroLead()
   FocusUnit(1,"target")
   TargetUnit("targettarget")
   CastSpellByName("Aggro Lead")
   TargetUnit("focus1")
   FocusUnit(1,"")
end

function ScoutBoss()
   if not AutoshotIsActive() then
      CastSpellByName("Autoshot")
   elseif SkillIsReady(4,26) then
      CastAggroLead()
   elseif SkillIsReady(4,20) then
      CastSpellByName("Reflected Shot")
   elseif SkillIsReady(2,2) then
      CastSpellByName("Shot")
   elseif SkillIsReady(4,16) then
      CastSpellByName("Combo Shot")
   elseif SkillIsReady(4,3) then
      CastSpellByName("Wind Arrows")
   end
end

function ScoutBuffNorm()
    local a = BuffListOld("player")
    if (not string.find(a,"Frost Arrow")) then
        CastSpellByName("Frost Arrow")
    elseif (not string.find(a,"Grassland Mix")) then
        UseAction(38)
 --    elseif (not string.find(a,"Roast Wolf Leg")) then
--        UseAction(39)
    elseif (not string.find(a,"Hero Magic Medicine")) then
        UseAction(19)
    end
end

function ScoutBuffBurn()
    local a = BuffListOld("player")
    if (not string.find(a,"Caviar") and ActionIsReady(16)) then                    --60 sec
        UseAction(16)
    elseif (not string.find(a,"Concentration") and SkillIsReady(4,21)) then            --60 sec
        CastSpellByName("Concentration")
    elseif (not string.find(a,"Blood Arrow") and SkillIsReady(2,5)) then                --60 sec
        CastSpellByName("Blood Arrow")
    elseif (not string.find(a,"Stong Stimulant") and ActionIsReady(15)) then            --30 sec
        UseAction(15)
    elseif (not string.find(a,"Potion of Annihilation") and ActionIsReady(17)) then    --20 sec
        UseAction(17)
    elseif (not string.find(a,"Archer\'s Glory") and ActionIsReady(14)) then                --20 sec
        UseAction(14)
    elseif (not string.find(a,"Arrow of Essence") and SkillIsReady(4,1)) then            --15 sec
        CastSpellByName("Arrow of Essence")
    end
end

--[[
--------------------------------------------------------
-- Warrior Macros by Panix - Start Date: Aug 28, 2011 --
--------------------------------------------------------
--]]

function WarriorScoutSlash()
    local rage = UnitMana("player")
    local focus = UnitSkill("player")
    local tbuffs = BuffListOld("target")
    local phealth = PctH("player")
    local thealth = PctH("target")
    local tVuln = string.find(tbuffs,"Vulnerable")
    local tBleed = string.find(tbuffs,"Bleed")
    if (thealth < .30) and (rage >= 25) and SkillIsReady(4,25) then
        CastSpellByName("The Final Battle")
    elseif (phealth < .50) and SkillIsReady(4,18) then
        CastSpellByName("Survival Instinct")
    elseif (SkillIsReady(2,1) and (rage >= 25) and (not tBleed)) then
        CastSpellByName("Slash")
    elseif (ActionIsReady(22) and (rage >= 20)) then
        CastSpellByName("Sword of Imprisonment")
    elseif (tBleed and SkillIsReady(4,4) and (rage >= 15)) then
        CastSpellByName("Tactical Attack")
    elseif (SkillIsReady(3,3) and (focus >= 20)) then
        CastSpellByName("Vampire Arrows")
    elseif (SkillIsReady(4,17) and (focus >= 25)) then
        CastSpellByName("Sword Breath")
    elseif (SkillIsReady(4,23) and (focus >= 30)) then 
        CastSpellByName("Aim for the Wound")
    elseif (SkillIsReady(2,3) and (rage < 20)) then
        CastSpellByName("Enraged")
    elseif SkillIsReady(3,2) then
        CastSpellByName("Shot")
    end
end

function WarriorScoutProbe()
    local rage = UnitMana("player")
    local focus = UnitSkill("player")
    local tbuffs = BuffListOld("target")
    local phealth = PctH("player")
    local thealth = PctH("target")
    local tVuln = string.find(tbuffs,"Vulnerable")
    local tBleed = string.find(tbuffs,"Bleed")
    if ((thealth < .30) and (rage >= 25) and SkillIsReady(4,25)) then
        CastSpellByName("The Final Battle")
    elseif (SkillIsReady(2,1) and (rage >= 25) and (not tBleed)) then
        CastSpellByName("Slash")
    elseif (SkillIsReady(4,3) and (rage >= 20) and (not tVuln)) then
        CastSpellByName("Probing Attack")
    elseif (ActionIsReady(21) and (rage >= 25) and tVuln) then
        CastSpellByName("Punishment")
    elseif (SkillIsReady(4,2) and (rage >= 10) and tVuln) then
        CastSpellByName("Open Flank")
    elseif (ActionIsReady(22) and (rage >= 20)) then
        CastSpellByName("Sword of Imprisonment")
    elseif (tBleed and SkillIsReady(4,4) and (rage >= 15)) then
        CastSpellByName("Tactical Attack")
    elseif ((phealth < .50) and SkillIsReady(4,18)) then
        CastSpellByName("Survival Instinct")
    elseif (SkillIsReady(3,3) and (focus >= 20)) then
        CastSpellByName("Vampire Arrows")
    elseif (SkillIsReady(4,17) and (focus >= 25)) then
        CastSpellByName("Sword Breath")
    elseif (SkillIsReady(4,23) and (focus >= 30)) then 
        CastSpellByName("Aim for the Wound")
    elseif (SkillIsReady(2,3) and (rage < 20)) then
        CastSpellByName("Enraged")
    elseif SkillIsReady(3,2) then
        CastSpellByName("Shot")
    end
end

function WarriorScoutBurn()
    local rage = UnitMana("player")
    local focus = UnitSkill("player")
    local tbuffs = BuffListOld("target")
    local phealth = PctH("player")
    local thealth = PctH("target")
    local tVuln = string.find(tbuffs,"Vulnerable")
    local tBleed = string.find(tbuffs,"Bleed")
    if ((thealth < .30) and (rage >= 25) and SkillIsReady(4,25)) then
        CastSpellByName("The Final Battle")
    elseif (SkillIsReady(2,1) and (rage >= 25) and (not tBleed)) then
        CastSpellByName("Slash")
    elseif (SkillIsReady(4,3) and (rage >= 20) and (not tVuln)) then
        CastSpellByName("Probing Attack")
    elseif (ActionIsReady(21) and (rage >= 25) and tVuln) then
        CastSpellByName("Punishment")
    elseif (SkillIsReady(4,2) and (rage >= 10) and tVuln) then
        CastSpellByName("Open Flank")
    elseif (ActionIsReady(22) and (rage >= 20)) then
        CastSpellByName("Sword of Imprisonment")
    elseif (SkillIsReady(4,22) and (focus >= 30)) then
        CastSpellByName("Skull Breaker")
    elseif (tBleed and SkillIsReady(4,4) and (rage >= 15)) then
        CastSpellByName("Tactical Attack")
    elseif ((phealth < .50) and SkillIsReady(4,18)) then
        CastSpellByName("Survival Instinct")
    elseif (SkillIsReady(4,17) and (focus >= 25)) then
        CastSpellByName("Sword Breath")
    end
end

function WarriorScoutBuffNorm()
    local a = BuffListOld("player")
    if (not string.find(a,"Grassland Mix")) then
        UseAction(38)
 --    elseif (not string.find(a,"Roast Wolf Leg")) then
--        UseAction(39)
    elseif (not string.find(a,"Hero Magic Medicine")) then
        UseAction(40)
    end
end

function WarriorScoutBuffBurn()
    local a = BuffListOld("player")
    local rage = UnitMana("player")
    if (not string.find(a,"Aggressiveness") and SkillIsReady(4,16)) then
        CastSpellByName("Aggressiveness")                                            --30 sec
    elseif (not string.find(a,"Caviar") and ActionIsReady(36)) then                    
        UseAction(36)                                                                --30 sec
    elseif (not string.find(a,"Stong Stimulant") and ActionIsReady(16)) then                
        UseAction(16)                                                                --30 sec
    elseif (not string.find(a,"Berserk") and SkillIsReady(2,5) and (rage >= 25)) then            
        CastSpellByName("Berserk")                                                    --30 sec
    elseif (not string.find(a,"Potion of Annihilation") and ActionIsReady(17)) then    
        UseAction(17)                                                                --20 sec
    elseif (not string.find(a,"Frenzy") and SkillIsReady(4,1)) then            
        CastSpellByName("Frenzy")                                                    --15 sec
    end
end

--[[
-------------------------------------------------------------
-- Warrior/Rogue Macros by Panix - Start Date: Oct 1, 2011 --
-------------------------------------------------------------
--]]


function WarriorRogueNorm()            --WarriorRogueNorm
    local rage = UnitMana("player")
    local energy = UnitSkill("player")
    local tbuffs = BuffList("target")
    local phealth = PctH("player")
    local thealth = PctH("target")
    local tVuln = tbuffs[501502]
    local trBleed = tbuffs[621172]
    local twBleed = tbuffs[500081]
    local tWeak = tbuffs[501503]
    if ((phealth < .50) and SkillIsReady(4,19)) then
        CastSpellByName("Survival Instinct")
    elseif (SkillIsReady(4,22) and (rage >= 15) and tWeak) then
        CastSpellByName("Splitting Chop")    
    elseif (SkillIsReady(4,5) and (rage >= 15) and tWeak) then
        CastSpellByName("Thunder")    
    elseif (SkillIsReady(4,2) and (rage >= 25) and tVuln) then
        CastSpellByName("Open Flank")
    elseif (SkillIsReady(4,18) and (energy >= 20) and tVuln) then
        CastSpellByName("Keen Attack")
    elseif (SkillIsReady(2,1) and (rage >= 25) and (not twBleed)) then
        CastSpellByName("Slash")
    elseif (SkillIsReady(4,3) and (rage >= 20) and (not tVuln)) then
        CastSpellByName("Probing Attack")
    elseif (SkillIsReady(3,1) and (energy >= 20) and (not trBleed)) then
        CastSpellByName("Shadowstab")
    elseif ((phealth >= .45) and SkillIsReady(4,12)) then
        CastSpellByName("Blood Dance")
    elseif (SkillIsReady(2,1) and (rage >= 25)) then
        CastSpellByName("Slash")
    elseif (SkillIsReady(3,1) and (energy >= 20)) then
        CastSpellByName("Shadowstab")
    elseif (SkillIsReady(2,3) and (rage < 25)) then
        CastSpellByName("Enraged")
    end
end

function WarriorRoguePunish()              --WarriorRoguePunish()
    local rage = UnitMana("player")
    local energy = UnitSkill("player")
    local tbuffs = BuffList("target")
    local phealth = PctH("player")
    local thealth = PctH("target")
    local tVuln = tbuffs[501502]
    local trBleed = tbuffs[621172]
    local twBleed = tbuffs[500081]
    local tWeak = tbuffs[501503]
    if ((phealth < .50) and SkillIsReady(4,19)) then
        CastSpellByName("Survival Instinct")
    elseif (SkillIsReady(4,22) and (rage >= 15) and tWeak) then
        CastSpellByName("Splitting Chop")    
    elseif (SkillIsReady(4,5) and (rage >= 15) and tWeak) then
        CastSpellByName("Thunder")    
    elseif (ActionIsReady(21) and (rage >= 25) and (not tbuffs['Brash Ferocity Strike']) and tVuln) then
        CastSpellByName("Brash Ferocity Strike")
    elseif (SkillIsReady(4,2) and (rage >= 25) and tVuln) then
        CastSpellByName("Open Flank")
    elseif (SkillIsReady(4,18) and (energy >= 20) and tVuln) then
        CastSpellByName("Keen Attack")
    elseif (SkillIsReady(2,1) and (rage >= 25) and (not twBleed)) then
        CastSpellByName("Slash")
    elseif (SkillIsReady(4,3) and (rage >= 20) and (not tVuln)) then
        CastSpellByName("Probing Attack")
    elseif (SkillIsReady(3,1) and (energy >= 20) and (not trBleed)) then
        CastSpellByName("Shadowstab")
    elseif ((phealth >= .45) and SkillIsReady(4,12)) then
        CastSpellByName("Blood Dance")
    elseif (SkillIsReady(2,1) and (rage >= 25)) then
        CastSpellByName("Slash")
    elseif (SkillIsReady(3,1) and (energy >= 20)) then
        CastSpellByName("Shadowstab")
    elseif (SkillIsReady(2,3) and (rage < 25)) then
        CastSpellByName("Enraged")
    end
end

function WarriorRogueBuffBurn()
    local a = BuffList("player")
    local rage = UnitMana("player")
    if (not string.find(a,"Aggressiveness") and SkillIsReady(4,16)) then
        CastSpellByName("Aggressiveness")                                            --30 sec
    elseif (not string.find(a,"Caviar") and ActionIsReady(36)) then                    
        UseAction(36)                                                                --30 sec
    elseif (not string.find(a,"Stong Stimulant") and ActionIsReady(16)) then                
        UseAction(16)                                                                --30 sec
    elseif (not string.find(a,"Berserk") and SkillIsReady(2,5) and (rage >= 25)) then            
        CastSpellByName("Berserk")                                                    --30 sec
    elseif (not string.find(a,"Potion of Annihilation") and ActionIsReady(17)) then    
        UseAction(17)                                                                --20 sec
    elseif (not string.find(a,"Frenzy") and SkillIsReady(4,1)) then            
        CastSpellByName("Frenzy")                                                    --15 sec
    elseif (not string.find(a,"Frenzied Attack") and SkillIsReady(4,23)) then
        CastSpellByName("Frenzied Attack")                                            --10 sec
    end
end

--[[
-------------------------------------------------------------
-- Warrior/Warden Macros by Panix - Start Date: Jan 8, 2012 --
-------------------------------------------------------------
--]]



function WarriorWardenNorm()            --WarriorWardenNorm
    local rage = UnitMana("player")
    local mana = UnitSkill("player")
    local tbuffs = BuffList("target")
    local pbuffs = BuffList("player")
    local phealth = PctH("player")
    local thealth = PctH("target")
    local tVuln = tbuffs[501502]
    local twBleed = tbuffs[500081]
    local tWeak = tbuffs[501503]
    local combat = GetPlayerCombatState()
    if ((phealth < .50) and SkillIsReady(4,19)) then
        CastSpellByName("Survival Instinct")
    elseif (SkillIsReady(3,5) and (phealth < .50) and (mana >= 150)) then 
        CastSpellByName("Elven Amulet")
    elseif (SkillIsReady(4,16) and (mana >= 87)) then
        CastSpellByName("Savage Whirlwind")    
    elseif (SkillIsReady(4,10) and (mana >= 101) and tVuln) then
        CastSpellByName("Attack Weakener")
    elseif (SkillIsReady(4,4) and (rage >= 15) and twBleed) then
        CastSpellByName("Tactical Attack")
    elseif (SkillIsReady(4,2) and (rage >= 10) and tVuln) then
        CastSpellByName("Open Flank")
    elseif (SkillIsReady(2,1) and (rage >= 25) and (not twBleed)) then
        CastSpellByName("Slash")
    elseif (SkillIsReady(4,3) and (rage >= 20) and (not tVuln)) then
        CastSpellByName("Probing Attack")
    elseif (SkillIsReady(2,1) and (rage >= 25)) then
        CastSpellByName("Slash")
    elseif (SkillIsReady(3,3) and (mana >= 60)) then
        CastSpellByName("Power of the Wood Spirit")
    elseif (SkillIsReady(2,3) and (rage < 20)) then
        CastSpellByName("Enraged")
    end
end

function WarriorWardenBuff()
    local a = BuffListOld("player")
    if (not string.find(a,"Briar Shield")) then
        CastSpellByName("Briar Shield")
    elseif (not string.find(a,"Grassland Mix")) then
        UseAction(38)
--    elseif (not string.find(a,"Roast Wolf Leg")) then
--        UseAction(39)
    elseif (not string.find(a,"Hero Magic Medicine")) then
        UseAction(40)
    end
end

The Warrior/Warden section isn't complete. I've just started making the character and it's still like 35/30 so that isn't complete.

I'm interested to hear what people think and see if there's any suggestions. Please let me know what you think about it. It's not perfect but it works for me.

Started June 24, 2009 on Artemis.
Iamhell - 70/55 - W/wd + Panix - 70/70/70 W/r/s
The Superbad DPS Engine

Go to the top of the page

sup4starballer

Beginner

Posts: 34

2

Sunday, February 5th 2012, 1:02am

hmm i dont get it, why use this instead of diyce? whats the difference?

Go to the top of the page

MachineOfHate

Death Metal Holocaust

Posts: 63

Location: TEN-UH-SEE

Occupation: Network Administrator

3

Sunday, February 5th 2012, 1:30am

Quoted from "sup4starballer;507755"

hmm i dont get it, why use this instead of diyce? whats the difference?

I've been asked by a few people to share the macros/functions I use. I haven't tried DIYCE 2.0 but I know some people don't like DIYCE because they think it's slow or just don't want to set it up.

You can use these functions in your DIYCE scripts like CastAggroLead() if you want. I think when I was using DIYCE 1, I had that incorporated into it.

If DIYCE works for ya, then I doubt this will be of interest to you. This is just something different to try if DIYCE doesn't work for you. (Some functions like WarriorRogueNorm() shouldn't require any changes as long as you have all your elites)

Started June 24, 2009 on Artemis.
Iamhell - 70/55 - W/wd + Panix - 70/70/70 W/r/s
The Superbad DPS Engine

Go to the top of the page

sup4starballer

Beginner

Posts: 34

4

Sunday, February 5th 2012, 3:02am

so this pretty much works the same way as diyce? use 1 macro to go through your rotation?

Go to the top of the page

MachineOfHate

Death Metal Holocaust

Posts: 63

Location: TEN-UH-SEE

Occupation: Network Administrator

5

Sunday, February 5th 2012, 3:45pm

Pretty much

Started June 24, 2009 on Artemis.
Iamhell - 70/55 - W/wd + Panix - 70/70/70 W/r/s
The Superbad DPS Engine

Go to the top of the page

Damanin

Beginner

Posts: 25

6

Thursday, June 7th 2012, 5:30am

Im am interested in this but my question is how recent are those dps rotations cause i actually use reflected shot and piercing arrow for single target are they are 2 of my highest dps skills.

PS: im S/W btw