LuaNinja Macro Collection

[demisehi]

My Warlock Demonology Macro. What it does is:

1. Check for Life Tap buff, and cast Life Tap if you do not have it.
2. Cast Life Tap if under 10k Mana. This helps with your spellcasting longevity.
3. Check for Decimation buff. If have, cast Soul Fire.
4. Check target for your Corruption debuff. If none found, cast Corruption.
5. Check if Demonic Empowerment is usable. If yes, cast it.
6. Check for Molten Core buff. If yes, cast Incinerate. Assumes you have talents spent in Molten core.
7. Check for immolate. If not, cast it.
8. Curse of Doom. Same thing.
9. Target < 35% health, Drain soul. If not, Shadowbolt filler.

/petattack
/run if not UnitBuff("player", "Life Tap") then CastSpellByName("Life Tap") end
/run if UnitPower("Player") < 10000 then CastSpellByName("Life Tap") end
/run if UnitBuff("player", "Decimation") then CastSpellByName("Soul Fire") end
/run if not UnitDebuff("target", "Corruption",unitCaster~="player") then CastSpellByName("Corruption") end
/run local _,d,_ = GetSpellCooldown("Demonic Empowerment") if (d == 0)  then CastSpellByName("Demonic Empowerment") end
/run if unitBuff("player", "Molten Core x3") or unitBuff("player", "Molten Core x2") or unitBuff("player", "Molten Core x1") then CastSpellByName("Incinerate") end
/run if not UnitDebuff("target", "Immolate",unitCaster~="player") then CastSpellByName("Immolate") end
/run if not UnitDebuff("target", "Curse of Doom",unitCaster~="player") then CastSpellByName("Curse of Doom") end
/run if (UnitHealth("target")/UnitHealthMax("target")<0.25) then CastSpellByName("Drain Soul") else CastSpellByName("Shadow Bolt") end

[Viral Fly-by]

Viral now we're add it. Vindication overrides Demoralizing shout, so if you have a retripala in your group you'll keep spamming the shout

Aaaand, your detection for Sunder Armor doesn't work. It'll start off the combat by applying 1 stack. Then it won't use it anymore from that line. And if there's 5 stacks on your target it'll spam devastate.

I fixed the stacking on Sunder in my previous post...that was pretty foolish of me.

Also I added Vindication and Curse of Weakness to the check for Demo Shout.

[Viral Fly-by]

My Warlock Demonology Macro. What it does is:

1. Check for Life Tap buff, and cast Life Tap if you do not have it.
2. Cast Life Tap if under 10k Mana. This helps with your spellcasting longevity.
3. Check for Decimation buff. If have, cast Soul Fire.
4. Check target for your Corruption debuff. If none found, cast Corruption.
5. Check if Demonic Empowerment is usable. If yes, cast it.
6. Check for Molten Core buff. If yes, cast Incinerate. Assumes you have talents spent in Molten core.
7. Check for immolate. If not, cast it.
8. Curse of Doom. Same thing.
9. Target < 35% health, Drain soul. If not, Shadowbolt filler.

WTF spec is this for? You check for the Decimation so you can use Soul Fires in execute range...yet you also act like it's Affliction and use Drain Soul... You also say 35% but the code does 25%. Also spamming the macro would cancel the channeling of Drain Soul if it wanted to do anything else. Also Molten Core stacks so your buff detection for it makes no sense. And only CoD no matter what the mob is? Lotsa wasted CoD on trash/adds and never another curse if you change targets or CoD is on cooldown.

[Elitetech]

I fixed the stacking on Sunder in my previous post...that was pretty foolish of me.

Also I added Vindication and Curse of Weakness to the check for Demo Shout.

Message: [string "i=1 d=0 while(i<=40)do a={UnitDebuff("target",i)} if a[1]=="Sun..."]:1: 'then' expected near '='
Time: 12/25/09 19:08:01
Count: 1
Stack: [C]: in function `RunScript'
Interface\FrameXML\ChatFrame.lua:1897: in function `?'
Interface\FrameXML\ChatFrame.lua:3544: in function <Interface\FrameXML\ChatFrame.lua:3497>
[C]: in function `ChatEdit_ParseText'
Interface\FrameXML\ChatFrame.lua:3213: in function `ChatEdit_SendText'
Interface\FrameXML\ChatFrame.lua:2304: in function <Interface\FrameXML\ChatFrame.lua:2297>
[C]: in function `RunMacroText'
Interface\FrameXML\SecureTemplates.lua:378: in function `handler'
Interface\FrameXML\SecureTemplates.lua:529: in function <Interface\FrameXML\SecureTemplates.lua:478>
[C]: in function `Click'
Interface\FrameXML\ChatFrame.lua:1345: in function `?'
Interface\FrameXML\ChatFrame.lua:3526: in function <Interface\FrameXML\ChatFrame.lua:3497>
...
Interface\FrameXML\SecureTemplates.lua:529: in function <Interface\FrameXML\SecureTemplates.lua:478>
[C]: in function `Click'
Interface\FrameXML\ChatFrame.lua:1345: in function `?'
Interface\FrameXML\ChatFrame.lua:3526: in function <Interface\FrameXML\ChatFrame.lua:3497>
[C]: in function `ChatEdit_ParseText'
Interface\FrameXML\ChatFrame.lua:3213: in function `ChatEdit_SendText'
Interface\FrameXML\ChatFrame.lua:2304: in function <Interface\FrameXML\ChatFrame.lua:2297>
[C]: in function `UseAction'
Interface\FrameXML\SecureTemplates.lua:310: in function `handler'
Interface\FrameXML\SecureTemplates.lua:529: in function <Interface\FrameXML\SecureTemplates.lua:478>

Locals: (*temporary) = "i=1 d=0 while(i<=40)do a={UnitDebuff("target",i)} if a[1]=="Sunder Armor" and a[8]=="player" then d=a[7]-GetTime() if a[4]=5 then break end end i=i+1 end if i>40 or d<4 then CastSpellByName("Devastate") end"

[Evilphtbstrd]

nice one viral , i just rolled a new warrior and am buying some heirloom items for it before i start leveling , looking forward to this

also guys , i have got a lvl 66 warlock affliction spec , the macros on here dont seem to work to well for me , Rombots macro on the first page works , but i may as well just use a cast sequence macro for this , no offence mate , i appreciate all the effort everyone puts in

so if anyone can come up with a full affliction macro that would be great

[shieno]

any ideas of how can i add GCD-cap check into Viral's ele shaman macro? tried to add "and t>1" condition into string with CL, but it didnt work =\
edit: actualy get it to work. replace seventh line with

/run t=({GetSpellInfo("Chain Lightning")})[7]/1000; lvb={GetSpellCooldown("Lava Burst")}; if lvb[1]==0 then lvb=0 else lvb=lvb[2]+lvb[1]-GetTime() end; if lvb>t and t>1 and GetSpellCooldown("Chain Lightning")==0 and UnitBuff("player", "Clearcasting") then CastSpellByName("Chain Lightning") end;

if you want to exclude CL from rotation if its casting time is under GCD cap.
new question. how can i check if my character is on the run?

[Viral Fly-by]

nice one viral , i just rolled a new warrior and am buying some heirloom items for it before i start leveling , looking forward to this

also guys , i have got a lvl 66 warlock affliction spec , the macros on here dont seem to work to well for me , Rombots macro on the first page works , but i may as well just use a cast sequence macro for this , no offence mate , i appreciate all the effort everyone puts in

so if anyone can come up with a full affliction macro that would be great

I've been meaning to do a good Affliction one in my style...because I prefer Affliction. I'll get around to it eventually.

[Viral Fly-by]

any ideas of how can i add GCD-cap check into Viral's ele shaman macro? tried to add "and t>1" condition into string with CL, but it didnt work =\
edit: actualy get it to work. replace seventh line with

/run t=({GetSpellInfo("Chain Lightning")})[7]/1000; lvb={GetSpellCooldown("Lava Burst")}; if lvb[1]==0 then lvb=0 else lvb=lvb[2]+lvb[1]-GetTime() end; if lvb>t and t>1 and GetSpellCooldown("Chain Lightning")==0 and UnitBuff("player", "Clearcasting") then CastSpellByName("Chain Lightning") end;

if you want to exclude CL from rotation if its casting time is under GCD cap.
new question. how can i check if my character is on the run?

I personally don't bother with excluding CL except during Bloodlust (which the macro does not do)...and you don't need to check the time for CL or LvB for the GCD...just check the time for Lesser Healing Wave for the GCD...since it is ALWAYS 1.5s regardless of talents. You see me doing that in the other lines.

Finally, you only really need to check if CL is less than 1.0 second...since that's a low as the GCD goes....so as long as CL > 1, use it...you are doing that so it's not directed at you....but some people seem to think you can have enough haste to get the GCD to 1.2...but have a spell drop to 1.1...and that's just not true. People that say that make me sad face...


Oh and I'm not sure how you check if you're on the run...I assume it's possible but I've not looked into it too much....I did think of htat though to try to shock or totems or whatever on the move.

[iq.kerberos]

This can be broken up into macros, but I opted not to. I use Super Duper Macro addon so I can have unlimited space. I created this as a script in SDM because writing tons of macros just isn't fun. Especially when you have multiple toons.

Script: [Mutilate]

Mutilate = {}

function Mutilate.Init()
    
    if  UnitName("target") == nil or UnitIsFriend("player","target") ~= nil or UnitHealth("target") == 0 then
        return -- ignore the dead and friendly
    end

    local energy = UnitPower("player")
    local cp = GetComboPoints("player")
    local currentTime = GetTime()

    local ud = UnitDebuff
    local ub = UnitBuff
	
    local SuggestRupture = false --change this if you want to use a Rupture based rotation
    local SuggestVanish = true --change this if you don't want to automatically cast Vanish
    
    local snd = 0
    local hfb = 0
    local rupture = 0
    local dp = 0
    local vanish = 0
    local overkill = 0
    
    local bleeds = 0

    --
    -- Ensure that there is a bleed (ie. Rupture, Deep Wounds, Rend) on the target.
    --
	if  
		(
			ud("target","Rupture") 
			or ud("target","Garrote")
			or ud("target","Deep Wounds")
			or ud("target","Rend")
			or ud("target","Trauma")
			or ud("target","Mangle (Cat)")
			or ud("target","Mangle (Bear)")
			or ud("target","Pounce")
			or ud("target","Rake")
			or ud("target","Piercing Shots")
		)
	then
		bleeds = 1
	end

  
    --
    -- Slice and Dice
    --
    local name, _, _, _, _, _, expirationTime, _, _ = UnitBuff("player", "Slice and Dice")
    if name ~= nil then
        snd = expirationTime - currentTime
    end
    
    --
    -- Hunger for Blood
    --
    local name, _, _, _, _, _, expirationTime, _, _ = UnitBuff("player", "Hunger for Blood")
    if name ~= nil then
        hfb = expirationTime - currentTime
    end
    
    --
    -- Ruture
    --
    local name, _, _, _, _, _, expirationTime, isMine, _ = UnitDebuff("target", "Rupture")
    currentTime = GetTime()
    if name ~= nil and isMine == "player" then
        rupture = expirationTime - currentTime
    end    


    --
    -- Deadly Poison IX
    --
    local name, _, _, count, _, _, expirationTime, isMine, _ = UnitDebuff("target", "Deadly Poison IX")
    if name ~= nil and count >= 4 and isMine == "player" then
        dp = 1
    end

    
    --
    -- Vanish
    --
    local start, duration, _ = GetSpellCooldown("Vanish");
    if duration ~= nil then 
        vanish = duration + start - currentTime
    end    
    

    if UnitAura("player", "Stealth") ~= nil then
        if (energy >= 50) then
            RunMacroText("/cast Garrote");
        end
    elseif (hfb <= 5.0) then
        if (bleeds == 1) then
            if (energy >= 15) then
                RunMacroText("/cast Hunger for Blood");
            end
        else
            if (cp == 0) then
                if (energy >= 55) then
                    RunMacroText("/cast Mutilate");
                end
            else
                if (energy >= 25) then
                    RunMacroText("/cast Rupture");
                end 
            end
        end
    elseif (cp >= 1) and not ub("player","Slice and Dice") then
        if (energy >= 25) then
            RunMacroText("/cast Slice and Dice");
        end
    elseif (cp >= 1) and (snd <= 5.0) then
        if (energy >= 35) then
            RunMacroText("/cast Envenom");
        end
    elseif (vanish < 1) and not ub("player","Overkill") and SuggestVanish == true then
        RunMacroText("/cast Vanish");
    elseif (cp < 4) then
        if (energy >= 55) then
            RunMacroText("/cast Mutilate");    
        end
    elseif (rupture <= 2.5) and (SuggestRupture == true) then
        if (rupture <= 0.5) then    
           if (energy >= 25) then
                RunMacroText("/cast Rupture");
            end
        end
    elseif (dp == 1) then
        if (energy >= 35) 
           then
            RunMacroText("/cast Envenom");
        end
    else
        if (energy >= 80) then
            RunMacroText("/cast Mutilate");
        end
    end
end

I create a macro to initialize the script that's called inside my main macro:

Macro: [001]

/run if (Mutilate == nil) then RunMacroText("/sdm run Mutilate") end

The actual macro I run for my rotation is this:

Macro: [002]

#showinfo [stealth] Garrote; Mutilate
/startattack [combat]
/run RunMacro(1)
/cast Cold Blood
/run Mutilate.Init()

^ one button, full rotation spam.

This script is based off of the rotation found on EJ. You won't find a tighter Mutilate rotation than this.

[Elitetech]

snip
Macro: [001]

/run if (Mutilate == nil) then RunMacroText("/sdm run Mutilate") end

The actual macro I run for my rotation is this:

Macro: [002]

#showinfo [stealth] Garrote; Mutilate
/startattack [combat]
/run RunMacro(1)
/cast Cold Blood
/run Mutilate.Init()

^ one button, full rotation spam.

This script is based off of the rotation found on EJ. You won't find a tighter Mutilate rotation than this.

Holy shit that's brilliant.

And Viral do you have any idea why your sunder check still doesnt work?

[Neverdie00]

First time poster here on MMOwned. Heres my Destro Warlock rotation albeit it with a couple of flaws.

-Does not check if you casted Immolate on target or someone else
-Does not use trinkets
-Cannot be shutoff without ending combat
-Immolate is casted twice because the macro spams immolate again before it is applied on target

/run if not UnitBuff ("player", "Fel Armor") then CastSpellByName "Fel Armor" end
/run if UnitPower("Player") < 3000 then CastSpellByName("Life Tap") end
/run if not UnitDebuff ("target", "Curse of Doom") and (GetSpellCooldown ("Curse of Doom") == 0) then CastSpellByName "Curse of Doom" end
/run if not UnitDebuff ("target", "Immolate") then CastSpellByName "Immolate" end
/run if (GetSpellCooldown ("Conflagrate") ==0) then CastSpellByName "Conflagrate" end
/run if (GetSpellCooldown ("Chaos Bolt") ==0) then CastSpellByName "Chaos Bolt" end
/run CastSpellByName ("Incinerate")
/run if UnitAffectingCombat("player") then RunMacroText("/in 0.1 /run RunMacro(\"Destro\")") end

Any help with fixing these problems would be GREATLY appreciated.

Thanks a million.

[Viral Fly-by]

This script is based off of the rotation found on EJ. You won't find a tighter Mutilate rotation than this.

Rake and Pounce Bleed from Feral Druid as well as Piercing Shots from MM Hunter are also sufficient to activate HfB.

Also, you make the same mistake as tons of others and don't check all debuffs on the target...so if another rogue has Rupture or Deadly Poison on the target, your script may be confused and think you don't have it on there. You have to check all the debuffs...it's the only way.

[Viral Fly-by]

And Viral do you have any idea why your sunder check still doesnt work?

Yea I think I was giving a bad initial value to one of the variable causing it to still spam Devastate. Can you try it now? It should Devastate if your stack has less than 5 or the time remaining is less than 4 seconds.

[evita]

Some one wanna do a macro for arms PVP?

[Viral Fly-by]

As an aside, this is my current queue for macros to make:

1. Mutilate Rogue based on kxy1983's post (Done)
2. Feral DPS (pulse1200 request) (Done)
3. Affliction Lock (Evilphtbstrd request)
4. Resto Druid (Elitetech request)

Then these in my queue with equal priority for now:

1. Feral Tank
2. Destro Lock
3. Combat Rogue
4. DK DPS (all specs)

If there are other interests or more support, let me know and I'll add to list or change priorities.