LuaNinja Macro Collection

[pkaa4eva_jr]

Hey, i have this macro for trinkets

/Run loadstring("if (UnitBuff(\"target\", \"PvP Trinket\")) then TargetUnit(\"target\") CastSpellByName(\"Blind\") end")()

It works perfectly and will instant cast blind asoon as someone trinkets but how can i make this work for only targets on my set focus?

[ganzerker]

Hey, i have this macro for trinkets

/Run loadstring("if (UnitBuff(\"target\", \"PvP Trinket\")) then TargetUnit(\"target\") CastSpellByName(\"Blind\") end")()

It works perfectly and will instant cast blind asoon as someone trinkets but how can i make this work for only targets on my set focus?

change target to focus

[Demonshade]

enhance shammy perfect rotation macro anyone?

[Elitetech]

enhance shammy perfect rotation macro anyone?

What spells does that include?

Basically what I got out from the top of my head was

/run local _,d,_ = GetSpellCooldown("Stormstrike") if (d == 0) then CastSpellByName("Stormstrike") end
/run local _,d,_ = GetSpellCooldown("Earth Shock") if (d == 0) then CastSpellByName("Earth Shock") end
/run local _,d,_ = GetSpellCooldown("Flame Shock") if (d == 0) then CastSpellByName("Flame Shock") end
/run local _,d,_ = GetSpellCooldown("Lava Lash") if (d == 0) then CastSpellByName("Lava Lash") end

which probably doesn't make sense. The code is REALLY basic, just copypaste the line and replace the spell with whatever you want. Tell me if you want it to detect buffs or procs or something since i don't know shit about shamans :P

[Demonshade]

Detect for 5 maelstrom weapon stacks, then use chain lightning, wait thats in the main post, lemme try it out
Made a worknig set of macros, will post soon."

Will use Lava lash, Stormstrike, Flameshock whenever off cooldown. Will use chain lightening on 5 maelstrom stacks. Will put down totems for you. All i need is to find out how to check if a buff only has a certain amount of time left on it, say 10 seconds left, cast a spell.

Macro "1"

/run local _,d,_ = GetSpellCooldown("Stormstrike") if (d == 0) then CastSpellByName("Stormstrike") end
/run local _,_,_,c,_,_,_,_,_=UnitBuff("Player","Maelstrom Weapon"); if  (c==5 ) then CastSpellByName("Chain Lightning") else RunMacro ("2") end

Macro "2"

/run if not UnitBuff("player", "Windfury Totem") then CastSpellByName("Call of the Elements") end
/run local _,_,_,c,_,_,_,_,_=UnitBuff("Player","Maelstrom Weapon"); if  (c==5 ) then CastSpellByName("Chain Lightning") else RunMacro ("3") end

Macro "3"

/run local _,d,_ = GetSpellCooldown("Flame Shock") if (d == 0) then CastSpellByName("Flame Shock") end
/run local _,_,_,c,_,_,_,_,_=UnitBuff("Player","Maelstrom Weapon"); if  (c==5 ) then CastSpellByName("Chain Lightning") else RunMacro ("4") end

Macro "4"

/run local _,d,_ = GetSpellCooldown("Lava Lash") if (d == 0) then CastSpellByName("Lava Lash") end
/run local _,_,_,c,_,_,_,_,_=UnitBuff("Player","Maelstrom Weapon"); if  (c==5 ) then CastSpellByName("Chain Lightning") else RunMacro ("1") end

I put the maelstrom buff check in every macro so that itll be as instantanious as possible.

[Albedo]

Fixed the Feral Druid Cat DPS macro.

/run if UnitBuff("player", "Clearcasting") then CastSpellByName("Shred") end
/run local _,d,_ = GetSpellCooldown("Tiger's Fury") if (d == 0) and UnitPower("Player") < 30 then CastSpellByName("Tiger's Fury") end
/run p=GetComboPoints("player","target");if not UnitBuff("player", "Savage Roar") and p>0 then RunMacroText("/cast Savage Roar") end
/run p=GetComboPoints("player","target");if not UnitDebuff("target", "Rip",unitCaster~="player") and p>4 then RunMacroText("/cast Rip") end
/run p=GetComboPoints("player","target");if p>4 then RunMacroText("/cast Ferocious Bite") end
/run if not UnitDebuff("target", "Rake",unitCaster~="player") then CastSpellByName("Rake") end
/run if UnitDebuff("target", "Mangle",unitCaster~="player") then CastSpellByName("Shred") end
/run if UnitDebuff("target", "Trauma",unitCaster~="player") then CastSpellByName("Shred") end
/run if not UnitDebuff("target", "Mangle (Cat)",unitCaster~="player") then CastSpellByName("Mangle (Cat)") end
/run local _,d,_ = GetSpellCooldown("Shred") if (d == 0) then CastSpellByName("Shred") end

Now casts Shred if you have a feral druid tank or another feral druid casting Mangle, as well as if Trauma is up on the target (Trauma and Mangle do not stack).

[Vixxi]

Can anyone help me? Lua loads up fine (i think, it loads WoW anyway) and the run macros work, but they don't activate the next macro.

I'm using ret pally one from first page and if i click it it only does the macro i click.

[Demonshade]

Can anyone help me? Lua loads up fine (i think, it loads WoW anyway) and the run macros work, but they don't activate the next macro.

I'm using ret pally one from first page and if i click it it only does the macro i click.

Did you name it right?
Macro 25 needs to be a macro named 25.
Macro 26 needs to be a macro named 26, etc.

[Elitetech]

Can anyone help me? Lua loads up fine (i think, it loads WoW anyway) and the run macros work, but they don't activate the next macro.

I'm using ret pally one from first page and if i click it it only does the macro i click.

Remember that they are case sensitive and numbers represent slot number of the macro. If you can't run macros called 1-2-3-4 try renaming them to AB-BC-CD-DE and change the code to RunMacro("AB") instead.

[sid1488]

WTB DK dual wield frost rotation.

[Sikas]

Anyone got one for a Combat Rogue?

[osbornx22]

Rogues just need one button anyway, what do you want with a macro?

[brightemo]

Shadow Priest
(you need to put it all on one line, and use an addon such as macaroon so it will fit)

/run 
cs=CastSpellByName;
cd=GetSpellCooldown;
ud=UnitDebuff;
ub=UnitBuff;
if (UnitMana("player")/UnitManaMax("Player")<0.5) and (cd("Shadowfiend") == 0) then
 cs("Shadowfiend");
else 
 n,_,_,s = ub("player","Shadow Weaving"); 
 if not ud("target", "Vampiric Touch", unitCaster~="player") and (cd("Vampiric Touch") == 0) then
  cs("Vampiric Touch")  
 elseif not ud("target", "Devouring Plague", unitCaster~="player") and (cd("Devouring Plague") == 0) then
  cs("Devouring Plague")  
 elseif (cd("Mind Blast") == 0) then
  cs("Mind Blast") 
 elseif s == 5 and not ud("target", "Shadow Word: Pain", unitCaster~="player") and (cd("Shadow Word: Pain") == 0) then
  cs("Shadow Word: Pain")  
 elseif s == 5 and not ud("target", "Vampiric Embrace", unitCaster~="player") and (cd("Vampiric Embrace") == 0) then
  cs("Vampiric Embrace") 
 elseif not ud("target","Mind Flay", unitCaster~="player") and (cd("Mind Flay") == 0) then
  cs("Mind Flay")  
 end 
end

[Albedo]

Shadow Priest
(you need to put it all on one line, and use an addon such as macaroon so it will fit)

/run 
cs=CastSpellByName;
cd=GetSpellCooldown;
ud=UnitDebuff;
ub=UnitBuff;
if (UnitMana("player")/UnitManaMax("Player")<0.5) and (cd("Shadowfiend") == 0) then
 cs("Shadowfiend");
else 
 n,_,_,s = ub("player","Shadow Weaving"); 
 if not ud("target", "Vampiric Touch", unitCaster~="player") and (cd("Vampiric Touch") == 0) then
  cs("Vampiric Touch")  
 elseif not ud("target", "Devouring Plague", unitCaster~="player") and (cd("Devouring Plague") == 0) then
  cs("Devouring Plague")  
 elseif (cd("Mind Blast") == 0) then
  cs("Mind Blast") 
 elseif s == 5 and not ud("target", "Shadow Word: Pain", unitCaster~="player") and (cd("Shadow Word: Pain") == 0) then
  cs("Shadow Word: Pain")  
 elseif s == 5 and not ud("target", "Vampiric Embrace", unitCaster~="player") and (cd("Vampiric Embrace") == 0) then
  cs("Vampiric Embrace") 
 elseif not ud("target","Mind Flay", unitCaster~="player") and (cd("Mind Flay") == 0) then
  cs("Mind Flay")  
 end 
end

You have to set it to check if Mind Flay is being cast on every line, otherwise it'll clip. I'd fix it myself, but I'm still learning this shiz.

[Sikas]

Well, Sinister Strike x5, cast SnD.. SS x5 Eviscerate.