LuaNinja Macro Collection

[pkaa4eva_jr]

I am guessing from your last sentence that you are not American. The script for hiding the popup is specific to english versions of the game. You'd have to translate the "MACRO_ACTION_FORBIDDEN" to the language of your game. I'm not on a WoW computer at the moment so I can't even tell you where to start as to what the correct string would be for your game.

Another option is to use this:

/click StaticPopup1Button1

But NOTE...that will click the first button of any popup that comes up. So if you die and are hitting your macro, it will click the RELEASE button.

If you can tell us what language your game is, I'm sure someone among us can come up with the correct string to replace "MACRO_ACTION_FORBIDDEN" for you.

I'm running english version of wow the US version. I just suck at spelling that's why I say that.

I just want to find a way that no pop ups come up so I can stream safely, thanks for the help bro.

[Viral Fly-by]

I'm running english version of wow the US version. I just suck at spelling that's why I say that.

I just want to find a way that no pop ups come up so I can stream safely, thanks for the help bro.

Then there should be no reason the other way won't work perfectly...it works perfectly for everyone else. =) It should be at the end of all macros.

[Tracerv0]

Prot war someone try it, i got bored on Christmas and had no wow so i took a look at some code.

/run local _,d,_ = GetSpellCooldown("Bloodrage") if (d == 0) then CastSpellByName("Bloodrage") end
/run if not UnitBuff("player", "Battle Shout") then CastSpellByName("Battle Shout") end
/run if UnitBuff("player", "Glyph of Revenge") then CastSpellByName("Heroic Strike") end
/run if UnitCastingInfo("target") then SpellStopCasting() CastSpellByName("Shield Bash") end
/run i=1 while(i<=40)do a={UnitDebuff("target",i)} if(a[1]=="Demoralizing Shout" and a[8]=="player")then break elseif(i==40 and UnitPower('player')>=10) then CastSpellByName("Demoralizing Shout") i=i+1 else i=i+1 end end
/run local _,a,_ = GetSpellCooldown("Thunder Clap") if (a == 0) then CastSpellByName("Thunder Clap") end
/run local _,d,_ = GetSpellCooldown("Revenge") if (d == 0) then CastSpellByName("Revenge") end
/run local _,a,_ = GetSpellCooldown("Shield Slam") if (a == 0) then CastSpellByName("Shield Slam") end
/run local _,a,_ = GetSpellCooldown("Heroic Throw") if (a == 0) then CastSpellByName("Heroic Throw") end
/run if UnitPower("Player") > 79 then CastSpellByName("Heroic Strike") end
/run if UnitPower("Player") > 20 then CastSpellByName("Devastate") end

[Viral Fly-by]

Prot war someone try it, i got bored on Christmas and had no wow so i took a look at some code.

That's crazy...I was working on a Prot warrior one just before I left for Christmas...the prot paladin one got me thinking about it...

Here's what I came up with:

/run if GetSpellCooldown("Shield Slam") then if GetSpellCooldown("Shield Block")==0 then CastSpellByName("Shield Block") end CastSpellByName("Shield Slam") end
/run i=1 d=120 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
/run if GetSpellCooldown("Bloodrage")==0 and UnitPower("player")<80 then CastSpellByName("Bloodrage") end
/run if GetSpellCooldown("Revenge")==0 and IsUsableSpell("Revenge") then CastSpellByName("Revenge") end
/run if GetSpellCooldown("Thunder Clap")==0 then CastSpellByName("Thunder Clap") end
/run if GetSpellCooldown("Shockwave")==0 then CastSpellByName("Shockwave") end
/run if GetSpellCooldown("Concussion Blow")==0 then CastSpellByName("Concussion Blow") end
/run if not UnitDebuff("target", "Demoralizing Shout") and not UnitDebuff("target", "Demoralizing Roar") and not UnitDebuff("target", "Vindication") and not UnitDebuff("target", "Curse of Weakness") then CastSpellByName("Demoralizing Shout") end
/run if not UnitBuff("player", "Battle Shout") and not UnitBuff("player", "Blessing of Might") and not UnitBuff("player", "Greater Blessing of Might") then CastSpellByName("Battle Shout") elseif not UnitBuff("player", "Commanding Shout") then CastSpellByName("Commanding Shout") end
/run if UnitPower("player")>=80 then CastSpellByName("Heroic Strike") end
/run if UnitPower("player")>=20 then CastSpellByName("Devastate") end

The Logic:

1. If Shield Slam is ready...
   
   1. If Shield Block is ready, Shield Block (to increase Shield Slam dmg)
   2. Shield Slam
2. If there are not 5 stacks of Devastate or Devastate debuff will fall within 4 seconds, Devastate
3. If Bloodrage is ready and you have less than 80 rage, Bloodrage
4. If Revenge is ready and usable, Revenge
5. If Thunder Clap is ready, Thunder Clap
6. If Shockwave is ready, Shockwave
7. If Concussion Blow is ready, Concussion Blow
8. If the target doesn't have Demo Shout or Demo Roar, Demoralizing Shout
9. If you don't have Battle Shout or Blessing of Might, then Battle Shout
10. If you DO have Blessing of Might but then don't have Commanding Shout, Commanding Shout
11. If you have at least 80 rage, Heroic Strike
12. If you have at least 20 rage, Devastate

From my understanding of Prot Warrior and after some basic research, this seems to be a rotation that is pretty versatile for both single target and AOEing. A pure single-target rotation wouldn't probably use Shockwave and Thunder Clap as much...but a pure AOE rotation wouldn't keep the priority on Shield Slam.

If more knowledgeable people have suggestions/tweaks, let me know. It's also untested so let me know if there are problems. =p

[Tracerv0]

That's crazy...I was working on a Prot warrior one just before I left for Christmas...the prot paladin one got me thinking about it...

Here's what I came up with:

/run if GetSpellCooldown("Shield Slam") then if GetSpellCooldown("Shield Block")==0 then CastSpellByName("Shield Block") end CastSpellByName("Shield Slam") end
/run i=1 d=0 while(i<=40)do a={UnitDebuff("target",i)} if a[1]=="Devastate" 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
/run if GetSpellCooldown("Bloodrage")==0 and UnitPower("player")<80 then CastSpellByName("Bloodrage") end
/run if GetSpellCooldown("Revenge")==0 and IsUsableSpell("Revenge") then CastSpellByName("Revenge") end
/run if GetSpellCooldown("Thunder Clap")==0 then CastSpellByName("Thunder Clap") end
/run if GetSpellCooldown("Shockwave")==0 then CastSpellByName("Shockwave") end
/run if GetSpellCooldown("Concussion Blow")==0 then CastSpellByName("Concussion Blow") end
/run if not UnitDebuff("target", Demoralizing Shout") and not UnitDebuff("target", "Demoralizing Roar") then CastSpellByName("Demoralizing Shout") end
/run if not UnitBuff("player", "Battle Shout") and not UnitBuff("player", "Blessing of Might") and not UnitBuff("player", "Greater Blessing of Might") then CastSpellByName("Battle Shout") elseif not UnitBuff("player", "Commanding Shout") then CastSpellByName("Commanding Shout") end
/run if UnitPower("player")>=80 then CastSpellByName("Heroic Strike") end
/run if UnitPower("player")>=20 then CastSpellByName("Devastate") end

The Logic:

1. If Shield Slam is ready...
   
   1. If Shield Block is ready, Shield Block (to increase Shield Slam dmg)
   2. Shield Slam
2. If there are not 5 stacks of Devastate or Devastate debuff will fall within 4 seconds, Devastate
3. If Bloodrage is ready and you have less than 80 rage, Bloodrage
4. If Revenge is ready and usable, Revenge
5. If Thunder Clap is ready, Thunder Clap
6. If Shockwave is ready, Shockwave
7. If Concussion Blow is ready, Concussion Blow
8. If the target doesn't have Demo Shout or Demo Roar, Demoralizing Shout
9. If you don't have Battle Shout or Blessing of Might, then Battle Shout
10. If you DO have Blessing of Might but then don't have Commanding Shout, Commanding Shout
11. If you have at least 80 rage, Heroic Strike
12. If you have at least 20 rage, Devastate

From my understanding of Prot Warrior and after some basic research, this seems to be a rotation that is pretty versatile for both single target and AOEing. A pure single-target rotation wouldn't probably use Shockwave and Thunder Clap as much...but a pure AOE rotation wouldn't keep the priority on Shield Slam.

If more knowledgeable people have suggestions/tweaks, let me know. It's also untested so let me know if there are problems. =p

I forgot all about Concussion Blow, I left shield block and shockwave for situational use. Also I planned to use modifier key shift for cleave above like 30 or 40 rage. Like I said I couldn't test any of this and its gonna be like 2 weeks before I'm on a pc again I'm posting all this from my blackberry.


*edit- Glyph of Revenege is a free HS so I'd make sure its in there.

[Elitetech]

That's crazy...I was working on a Prot warrior one just before I left for Christmas...the prot paladin one got me thinking about it...

Here's what I came up with:

/run if GetSpellCooldown("Shield Slam") then if GetSpellCooldown("Shield Block")==0 then CastSpellByName("Shield Block") end CastSpellByName("Shield Slam") end
/run i=1 d=0 while(i<=40)do a={UnitDebuff("target",i)} if a[1]=="Devastate" 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
/run if GetSpellCooldown("Bloodrage")==0 and UnitPower("player")<80 then CastSpellByName("Bloodrage") end
/run if GetSpellCooldown("Revenge")==0 and IsUsableSpell("Revenge") then CastSpellByName("Revenge") end
/run if GetSpellCooldown("Thunder Clap")==0 then CastSpellByName("Thunder Clap") end
/run if GetSpellCooldown("Shockwave")==0 then CastSpellByName("Shockwave") end
/run if GetSpellCooldown("Concussion Blow")==0 then CastSpellByName("Concussion Blow") end
/run if not UnitDebuff("target", Demoralizing Shout") and not UnitDebuff("target", "Demoralizing Roar") then CastSpellByName("Demoralizing Shout") end
/run if not UnitBuff("player", "Battle Shout") and not UnitBuff("player", "Blessing of Might") and not UnitBuff("player", "Greater Blessing of Might") then CastSpellByName("Battle Shout") elseif not UnitBuff("player", "Commanding Shout") then CastSpellByName("Commanding Shout") end
/run if UnitPower("player")>=80 then CastSpellByName("Heroic Strike") end
/run if UnitPower("player")>=20 then CastSpellByName("Devastate") end

Nice macro indeed. Adding to first post and fixing your typo on this line

/run if not UnitDebuff("target", ("Demoralizing Shout") and not UnitDebuff("target", "Demoralizing Roar") then CastSpellByName("Demoralizing Shout") end end

Going to test it in 10 minutes
Will probably also add in for the glyph of revenge and other survival abilities.

[Elitetech]

After some testing I came up with this. And Viral your macro doesn't work. I tried fixing it but couldn't get it to cast anything else than shield slam&block

Okay, after a shitload of testing.

/startattack
/run if UnitCastingInfo("target") and GetSpellCooldown("Shield Bash")==0 then CastSpellByName("Shield Bash") end
/run local _,a,_ = GetSpellCooldown("Shield Block") if (a == 0) then CastSpellByName("Shield Block") end
/run if UnitHealth('player')<7000 and GetSpellCooldown("Shield Wall")==0 then CastSpellByName("Shield Wall") end
/run if UnitHealth('player')<6000 and GetSpellCooldown("Last Stand")==0 then CastSpellByName("Last Stand") end
/run local _,d,_ = GetSpellCooldown("Bloodrage") if (d == 0) then CastSpellByName("Bloodrage") end
/run if not UnitBuff("player", "Battle Shout") then CastSpellByName("Battle Shout") end
/run if UnitBuff("player", "Glyph of Revenge") then CastSpellByName("Heroic Strike") end
/run local _,a,_ = GetSpellCooldown("Thunder Clap") if (a == 0) then CastSpellByName("Thunder Clap") end
/run local _,a,_ = GetSpellCooldown("Shockwave") if (a == 0) then CastSpellByName("Shockwave") end
/run local _,a,_ = GetSpellCooldown("Shield Slam") if (a == 0) then CastSpellByName("Shield Slam") end
/run local _,a,_ = GetSpellCooldown("Concussion blow") if (a == 0) then CastSpellByName("Concussion blow") end
/run i=1 d=0 while(i<=40)do a={UnitDebuff("target",i)} if a[1]=="Devastate" 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
/run local _,d,_ = GetSpellCooldown("Revenge") if (d == 0) then CastSpellByName("Revenge") end
/run local _,a,_ = GetSpellCooldown("Heroic Throw") if (a == 0) then CastSpellByName("Heroic Throw") end
/run if UnitPower("Player") > 79 then CastSpellByName("Heroic Strike") end
/run if UnitPower("Player") > 20 then CastSpellByName("Devastate") end
/run StaticPopup_Hide("MACRO_ACTION_FORBIDDEN");

Also, any progress on the druid one?

Edit: Edited the macro.
Edit: Edited again LOL

[LucasGod]

This thread is made of pure win +rep

[Tracerv0]

After some testing I came up with this. And Viral your macro doesn't work. I tried fixing it but couldn't get it to cast anything else than shield slam&block

Okay, after a shitload of testing.

/startattack
/run if UnitCastingInfo("target") and GetSpellCooldown("Shield Bash")==0 then CastSpellByName("Shield Bash") end
/run local _,a,_ = GetSpellCooldown("Shield Block") if (a == 0) then CastSpellByName("Shield Block") end
/run if UnitHealth('player')<7000 and GetSpellCooldown("Shield Wall")==0 then CastSpellByName("Shield Wall") end
/run if UnitHealth('player')<6000 and GetSpellCooldown("Last Stand")==0 then CastSpellByName("Last Stand") end
/run local _,d,_ = GetSpellCooldown("Bloodrage") if (d == 0) then CastSpellByName("Bloodrage") end
/run if not UnitBuff("player", "Battle Shout") then CastSpellByName("Battle Shout") end
/run if UnitBuff("player", "Glyph of Revenge") then CastSpellByName("Heroic Strike") end
/run local _,a,_ = GetSpellCooldown("Thunder Clap") if (a == 0) then CastSpellByName("Thunder Clap") end
/run local _,a,_ = GetSpellCooldown("Shockwave") if (a == 0) then CastSpellByName("Shockwave") end
/run local _,a,_ = GetSpellCooldown("Shield Slam") if (a == 0) then CastSpellByName("Shield Slam") end
/run local _,a,_ = GetSpellCooldown("Concussion blow") if (a == 0) then CastSpellByName("Concussion blow") end
/run i=1 d=0 while(i<=40)do a={UnitDebuff("target",i)} if a[1]=="Devastate" 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
/run local _,d,_ = GetSpellCooldown("Revenge") if (d == 0) then CastSpellByName("Revenge") end
/run local _,a,_ = GetSpellCooldown("Heroic Throw") if (a == 0) then CastSpellByName("Heroic Throw") end
/run if UnitPower("Player") > 79 then CastSpellByName("Heroic Strike") end
/run if UnitPower("Player") > 20 then CastSpellByName("Devastate") end
/run StaticPopup_Hide("MACRO_ACTION_FORBIDDEN");

Also, any progress on the druid one?

Edit: Edited the macro.
Edit: Edited again LOL

That looks more like the one I was working on. Can you use health percentages? Enraged regen and last stand at 25% and wall at 20%. Add charge at the start.

Foiled again at my quest for rep damn you holidays.

[Tracerv0]

Edit ... Stupid phone.

[shieno]

That's crazy...I was working on a Prot warrior one just before I left for Christmas...the prot paladin one got me thinking about it...

Here's what I came up with:

/run if GetSpellCooldown("Shield Slam") then if GetSpellCooldown("Shield Block")==0 then CastSpellByName("Shield Block") end CastSpellByName("Shield Slam") end
/run i=1 d=0 while(i<=40)do a={UnitDebuff("target",i)} if a[1]=="Devastate" 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
/run if GetSpellCooldown("Bloodrage")==0 and UnitPower("player")<80 then CastSpellByName("Bloodrage") end
/run if GetSpellCooldown("Revenge")==0 and IsUsableSpell("Revenge") then CastSpellByName("Revenge") end
/run if GetSpellCooldown("Thunder Clap")==0 then CastSpellByName("Thunder Clap") end
/run if GetSpellCooldown("Shockwave")==0 then CastSpellByName("Shockwave") end
/run if GetSpellCooldown("Concussion Blow")==0 then CastSpellByName("Concussion Blow") end
/run if not UnitDebuff("target", Demoralizing Shout") and not UnitDebuff("target", "Demoralizing Roar") then CastSpellByName("Demoralizing Shout") end
/run if not UnitBuff("player", "Battle Shout") and not UnitBuff("player", "Blessing of Might") and not UnitBuff("player", "Greater Blessing of Might") then CastSpellByName("Battle Shout") elseif not UnitBuff("player", "Commanding Shout") then CastSpellByName("Commanding Shout") end
/run if UnitPower("player")>=80 then CastSpellByName("Heroic Strike") end
/run if UnitPower("player")>=20 then CastSpellByName("Devastate") end

The Logic:

1. If Shield Slam is ready...
   
   1. If Shield Block is ready, Shield Block (to increase Shield Slam dmg)
   2. Shield Slam
2. If there are not 5 stacks of Devastate or Devastate debuff will fall within 4 seconds, Devastate
3. If Bloodrage is ready and you have less than 80 rage, Bloodrage
4. If Revenge is ready and usable, Revenge
5. If Thunder Clap is ready, Thunder Clap
6. If Shockwave is ready, Shockwave
7. If Concussion Blow is ready, Concussion Blow
8. If the target doesn't have Demo Shout or Demo Roar, Demoralizing Shout
9. If you don't have Battle Shout or Blessing of Might, then Battle Shout
10. If you DO have Blessing of Might but then don't have Commanding Shout, Commanding Shout
11. If you have at least 80 rage, Heroic Strike
12. If you have at least 20 rage, Devastate

From my understanding of Prot Warrior and after some basic research, this seems to be a rotation that is pretty versatile for both single target and AOEing. A pure single-target rotation wouldn't probably use Shockwave and Thunder Clap as much...but a pure AOE rotation wouldn't keep the priority on Shield Slam.

If more knowledgeable people have suggestions/tweaks, let me know. It's also untested so let me know if there are problems. =p

long time reader first time poster.
this one probably wont work since "devastate" debuff is "sunder armor" actualy.

[Elitetech]

long time reader first time poster.
this one probably wont work since "devastate" debuff is "sunder armor" actualy.

Rofl how stupid we are for not noticing that

Updated again, fixed revenge and all that stuff. should work now xD

/startattack
/run if UnitCastingInfo("target") and GetSpellCooldown("Shield Bash")==0 then CastSpellByName("Shield Bash") end
/run local _,a,_ = GetSpellCooldown("Shield Block") if (a == 0) then CastSpellByName("Shield Block") end
/run if UnitHealth('player')<7000 and GetSpellCooldown("Shield Wall")==0 then CastSpellByName("Shield Wall") end
/run if UnitHealth('player')<6000 and GetSpellCooldown("Last Stand")==0 then CastSpellByName("Last Stand") end
/run local _,d,_ = GetSpellCooldown("Bloodrage") if (d == 0) then CastSpellByName("Bloodrage") end
/run 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
/run if not UnitBuff("player", "Battle Shout") then CastSpellByName("Battle Shout") end
/run if UnitBuff("player", "Glyph of Revenge") then CastSpellByName("Heroic Strike") end
/run if GetSpellCooldown("Revenge")==0 and IsUsableSpell("Revenge")==1 then CastSpellByName("Revenge") end
/run local _,a,_ = GetSpellCooldown("Thunder Clap") if (a == 0) then CastSpellByName("Thunder Clap") end
/run local _,a,_ = GetSpellCooldown("Shockwave") if (a == 0) then CastSpellByName("Shockwave") end
/run local _,a,_ = GetSpellCooldown("Shield Slam") if (a == 0) then CastSpellByName("Shield Slam") end
/run local _,a,_ = GetSpellCooldown("Concussion blow") if (a == 0) then CastSpellByName("Concussion blow") end
/run local _,a,_ = GetSpellCooldown("Heroic Throw") if (a == 0) and IsUsableSpell("Heroic Throw")==1 then CastSpellByName("Heroic Throw") end
/run if UnitPower("Player") > 79 then CastSpellByName("Heroic Strike") end
/run if UnitPower("Player") > 20 then CastSpellByName("Devastate") end
/run StaticPopup_Hide("MACRO_ACTION_FORBIDDEN");

[Viral Fly-by]

Nice posts about the prot war guys...I'm sure there were indeed errors in mine...I wasn't able to test it and finished typing/formatting it while it was super late and I was pretty tired. As long as we combine all the ideas into one good one, it's all good.

I'll update my posts with the final result later...I'm not a fan of leaving bad ones in the thread's history.

[Viral Fly-by]

I forgot all about Concussion Blow, I left shield block and shockwave for situational use. Also I planned to use modifier key shift for cleave above like 30 or 40 rage. Like I said I couldn't test any of this and its gonna be like 2 weeks before I'm on a pc again I'm posting all this from my blackberry.

I might agree but most people want the macro to do it all for them. =) Using Shield Block to make Shield Slam bigger is fairly important to threat IMO. Shield Block isn't much of a defensive cooldown either on the grand scheme.

*edit- Glyph of Revenege is a free HS so I'd make sure its in there.

Touche....totally forgot about that one.

long time reader first time poster.
this one probably wont work since "devastate" debuff is "sunder armor" actualy.

ROFL...I was on autopilot when I wrote that one. =) Thanks bro.

[Elitetech]

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.