LuaNinja Macro Collection

[Viral Fly-by]

tht macro is trash, gimme an elaborate detail of what u need and perhaps i can help (nevr played dk, detest the idea of the class)

I thought we had good DK ones? If we don't, can someone who plays DK more than I actually confirm that? If so I'll add them to my queue of ones to create.

[Viral Fly-by]

Just got round to testing it, works majority of the time however it freezes up on target's it cannot pickpocket such as a demon with no pockets to pick. Been noseying around wowapi and come up with this;

/run CastSpellByName("Pick Pocket")
/run LootSlot("1")
/run ConfirmLootSlot(1)
/run LootSlot(2)
/run ConfirmLootSlot(2)
/run LootSlot(3)
/run ConfirmLootSlot(3)
/run LootSlot(4)
/run ConfirmLootSlot(4)
/run LootSlot(5)
/run ConfirmLootSlot(5)
/run CastSpellByName("Cheap Shot")

The thing that's missing i guess is for some sort of loop and check. So if it pickpockets, then it'll lootslots until lootcounts = 0 then cheap shot. But again i think its overcomplicating it so i'll stick with what works ;p

Loopy loopy?

/run CastSpellByName("Pick Pocket")
/run n=GetNumLootItems(); if n>0 then for i=1,n do LootSlot(i) ConfirmLootSlot(i) end end
/run CastSpellByName("Cheap Shot")

[Viral Fly-by]

One of the things I've been asked a lot is how in the heck some of these macros work. I hope to explain some of that with this post.

<snip />

Hopefully someone finds this useful or at least interesting and maybe it helps some understand a bit more about what in the heck is going on in these macros. If you have any specific questions, just ask! =)

BTW no one commented on this so I was guessing it wasn't useful to those working on macros so I haven't posted anything else about how other parts work. If there is such desire, let me know.

[CrazyCactuaR]

Loopy loopy?

/run CastSpellByName("Pick Pocket")
/run n=GetNumLootItems(); if n>0 then for i=1,n do LootSlot(i) ConfirmLootSlot(i) end end
/run CastSpellByName("Cheap Shot")

dude is their anything you dont know? ;p

I did find your explanation on code useful and would love to improve my knowledge on this stuff if your going to be doing any tutorials.

[kakamonster]

Viral Fly-by can you help me? cant get this to work, switches stance but does not cast pummel

/run if (UnitCastingInfo("target") or UnitChannelInfo("target")) and GetShapeshiftForm(1) and GetSpellCooldown("Pummel")==0 and UnitPower("player")>=10 then CastSpellByName("Berserker Stance") elseif (UnitCastingInfo("target") or UnitChannelInfo("target")) and GetShapeshiftForm(3) and GetSpellCooldown("Pummel")==0 and IsUsableSpell("Pummel")==1 then CastSpellByName("Pummel") elseif GetShapeshiftForm(3) and not (UnitCastingInfo("target") or UnitChannelInfo("target") or GetSpellCooldown("Pummel")==1) then CastSpellByName("Battle Stance") end

Feel free to rewrite it to your logic/code =)

[greenthing]

I thought we had good DK ones? If we don't, can someone who plays DK more than I actually confirm that? If so I'll add them to my queue of ones to create.

http://www.mmowned.com/forums/ui-mac...ro-thread.html

The tip from Elite there works perfect. I used it to make a macro that does EVERYTHING (it's about 60 lines though while the main rotation is done by an external addon) and I can just go AFK during a boss fight and top the meters with a perfect rotation that uses all CDs, checks for whatever buffs are up etc to perfectly make use of them.

All you need is this addon: FaceSmasher.rar

and this macro:
/Run r1=spell
/Run r2=miscspell
/Run r3=intspell

/Run CastSpellByName(""..r1.."")
/Run CastSpellByName(""..r2.."")
/Run CastSpellByName(""..r3."")

for a rotation without stuff like cooldowns (horn is kept up though).

[Viral Fly-by]

http://www.mmowned.com/forums/ui-mac...ro-thread.html

The tip from Elite there works perfect. I used it to make a macro that does EVERYTHING (it's about 60 lines though while the main rotation is done by an external addon) and I can just go AFK during a boss fight and top the meters with a perfect rotation that uses all CDs, checks for whatever buffs are up etc to perfectly make use of them.

All you need is this addon: FaceSmasher.rar

and this macro:
/Run r1=spell
/Run r2=miscspell
/Run r3=intspell

/Run CastSpellByName(""..r1.."")
/Run CastSpellByName(""..r2.."")
/Run CastSpellByName(""..r3."")

for a rotation without stuff like cooldowns (horn is kept up though).

Ok good...I thought we had DKs fairly well taken care of...I knew that was an area Elitetech had worked a lot on...thanks for setting that straight greenthing.

[Mynewt]

BTW no one commented on this so I was guessing it wasn't useful to those working on macros so I haven't posted anything else about how other parts work. If there is such desire, let me know.

i'd love to learn how to write these things, but you'd jave to start right back at square one and take baby steps with me.

[Viral Fly-by]

Viral Fly-by can you help me? cant get this to work, switches stance but does not cast pummel

/run if (UnitCastingInfo("target") or UnitChannelInfo("target")) and GetShapeshiftForm(1) and GetSpellCooldown("Pummel")==0 and UnitPower("player")>=10 then CastSpellByName("Berserker Stance") elseif (UnitCastingInfo("target") or UnitChannelInfo("target")) and GetShapeshiftForm(3) and GetSpellCooldown("Pummel")==0 and IsUsableSpell("Pummel")==1 then CastSpellByName("Pummel") elseif GetShapeshiftForm(3) and not (UnitCastingInfo("target") or UnitChannelInfo("target") or GetSpellCooldown("Pummel")==1) then CastSpellByName("Battle Stance") end

Feel free to rewrite it to your logic/code =)

Off the cuff attempt:

/run pummel=0; if GetSpellCooldown("Pummel")==0 and UnitPower("player")>=10 and IsSpellInRange("Pummel","target") then pummel=1 end; if pummel and (UnitCastingInfo("target") or UnitChannelInfo("target")) then if GetShapeshiftForm()==3 then CastSpellByName("Pummel") else CastShapeshiftForm(3) end elseif GetShapeshiftForm()~=1 then CastShapeshiftForm(1) end

1. If pummel is ready and target is casting then...
   
   1. If in Berserker, then Pummel
   2. Else switch to Berserker
2. Else (pummel not ready or target is not casting)...
   
   1. If not in Battle, switch to Battle

One push won't interrupt...first push goes Berserker, second push Pummel, third push back to Battle.

[kakamonster]

Off the cuff attempt:

/run pummel=0; if GetSpellCooldown("Pummel")==0 and UnitPower("player")>=10 and IsSpellInRange("Pummel","target") then pummel=1 end; if pummel and (UnitCastingInfo("target") or UnitChannelInfo("target")) then if GetShapeshiftForm()==3 then CastSpellByName("Pummel") else CastShapeshiftForm(3) end elseif GetShapeshiftForm()~=1 then CastShapeshiftForm(1) end

1. If pummel is ready and target is casting then...
   
   1. If in Berserker, then Pummel
   2. Else switch to Berserker
2. Else (pummel not ready or target is not casting)...
   
   1. If not in Battle, switch to Battle

One push won't interrupt...first push goes Berserker, second push Pummel, third push back to Battle.

works like a charm, thanks!

[Evilphtbstrd]

until someone comes up with anything better the dk macros using the facesmasher option is the best way to go

only thing it doesnt use is bone shield

[greenthing]

Easy to fix...

/run local _,g, _ = GetSpellCooldown("Bone Shield") if (g == 0) and (not UnitBuff("player", "Bone Shield")) then CastSpellByName("Bone Shield") end
/Run r1=spell
/Run r2=miscspell
/Run r3=intspell

/Run CastSpellByName(""..r1.."")
/Run CastSpellByName(""..r2.."")
/Run CastSpellByName(""..r3.."")

(If Boneshield CD = 0 & Bone Shield is not up/buffed then it casts bone shield)

You can also just make your own script....

/use [nopet]Raise Dead
/run if (not UnitBuff("player", "Horn of Winter")) then CastSpellByName("Horn of Winter") end
/run local _,g, _ = GetSpellCooldown("Bone Shield") if (g == 0) and (not UnitBuff("player", "Bone Shield")) then CastSpellByName("Bone Shield") end
/run if (not UnitDebuff("target", "Blood Plague")) then CastSpellByName("Plague Strike") end
/run if (not UnitDebuff("target", "Frost Fever")) then CastSpellByName("Icy Touch") end

If no pet -> summons pet
if no horn of winter -> casts horn of winter
if no bone shield & not on CD -> casts bone shield
if blood plague is not up -> casts plague strike
if frost fever is not up -> casts icy touch

Can also edit the diseases to re-pop them when it has say 1 to 2 seconds left to never have them go down. PM me if you want anything specific for DKs.

[Viral Fly-by]

/use [nopet]Raise Dead
/run if (not UnitBuff("player", "Horn of Winter")) then CastSpellByName("Horn of Winter") end
/run local _,g, _ = GetSpellCooldown("Bone Shield") if (g == 0) and (not UnitBuff("player", "Bone Shield")) then CastSpellByName("Bone Shield") end
/run if (not UnitDebuff("target", "Blood Plague")) then CastSpellByName("Plague Strike") end
/run if (not UnitDebuff("target", "Frost Fever")) then CastSpellByName("Icy Touch") end

I'll say for a billionth time that this code will not work with another DK in the party/raid. Checking for debuffs in that fashion does not work... Grr.

[Viral Fly-by]

Ok here's my version of a Mutilate Rogue macro... It automatically kicks the target if casting and it automatically does ToT on your focus. It will only ToT if you are in combat or stealthed...it does it stealthed so that you can ToT right before you open which is desired. Beyond that, it keeps up Hunger for Blood and Slice and Dice using Envenom to refresh. It checks all bleeds for Hunger for Blood (but does not check Mangle or Trauma since those are NOT bleeds and will NOT allow HfB). It will put up a Rupture if needed for HfB. If the target has more than 500K HP remaining, it will use Vanish to get Overkill (HP limit to prevent wasting vanish cooldown). If you have a full 5 combo points and a full 5 stacks of deadly poision, it will use Cold Blood for that Envenom. It will sometimes do nothing while waiting for energy for critical abilities. It will just Mutilate for combo points until at least 4 before doing an Envenom. If you have 4 combo points but not at least 4 stack so Deadly Poison, it will wait on the poison before using Envenom (it will Mutilate with extra energy while waiting for deadly poison stacks). (Note: It will not wait on the poison stacks if Envenom is needed to refresh SnD.)

I'd love for someone to try it out and report problems. I've proofread it a few times but not tested it.

/run if GetSpellCooldown("Kick")==0 and IsSpellInRange("Kick","target") and (UnitCastingInfo("target") or UnitChannelInfo("target")) then CastSpellByName("Kick") end
/run if (UnitAffectingCombat("player") or UnitBuff("player", "Stealth")) and UnitExists("focus") and GetSpellCooldown("Tricks of the Trade")==0 and IsSpellInRange("Tricks of the Trade","focus") then RunMacroText("/cast [@focus] Tricks of the Trade") end
/run if UnitBuff("player", "Stealth") and UnitPower("player")>= 50 then CastSpellByName("Garrote") end
/run vHfB=0 b={UnitBuff("player", "Hunger for Blood")}; if b[7]~=nil then vHfB=b[7]-GetTime() end;
/run vSnD=0 b={UnitBuff("player", "Slice and Dice")}; if b[7]~=nil then vSnD=b[7]-GetTime() end;
/run local ud=UnitDebuff; local c=CastSpellByName; local p=UnitPower("player"); if vHfB<4 then if ud("target","Rupture") or ud("target","Garrote") or ud("target","Deep Wounds") or ud("target","Rend") or ud("target","Savage Rend") or ud("target","Pounce Bleed") or ud("target","Rake") or ud("target","Rip") or ud("target","Piercing Shots") then if p>=15 then c("Hunger for Blood") end else if GetComboPoints("player")>0 then if p>=25 then c("Rupture") end else if p>=55 then c("Mutilate") end end end end
/run local c=CastSpellByName; local p=UnitPower("player"); if vHfB>=4 and vSnD==0 then if GetComboPoints("player")>0 then if p>=25 then c("Slice and Dice") end else if p>=55 then c("Mutilate") end end end
/run local c=CastSpellByName; local p=UnitPower("player"); if vHfB>=4 and vSnD<4 then if GetComboPoints("player")>0 then if p>=35 then c("Envenom") end else if p>=55 then c("Mutilate") end end end
/run if vHfB>=4 and vSnD>=4 and not UnitBuff("player","Overkill") and GetSpellCooldown("Vanish")==0 and not UnitBuff("player", "Stealth") and UnitHealth("target")>500000 then CastSpellByName("Vanish") end
/run if vHfB>=4 and vSnD>=4 and GetComboPoints("player")<4 and UnitPower("player")>=55 then CastSpellByName("Mutilate") end
/run local c=CastSpellByName; local p=UnitPower("player"); local cp=GetComboPoints("player"); if vHfB>=4 and vSnD>=4 and cp>=4 and p>=35 then local dp=0; local i=1; while(i<=40)do local d={UnitDebuff("target",i)}; if d[1]=="Deadly Poison IX" and d[8]=="player" then dp=d[4] break end i=i+1 end; if dp>=4 then if cp==5 and dp==5 and GetSpellCooldown("Cold Blood")==0 then c("Cold Blood") end c("Envenom") elseif p>=85 then c("Mutilate") end end
/run StaticPopup_Hide("MACRO_ACTION_FORBIDDEN");

The Logic:

1. If Kick is ready and the target is casting, then Kick
2. If ToT is ready, you have a focus, and you are either in combat or stealthed, then ToT your focus
3. If you are stealthed and have at least 50 energy, then Garrote
4. If HfB is down or has less than 4 seconds remaining...
   
   1. If the target has a bleed...
      
      1. If you have 15 energy, then (re)activate HfB
         
      
      
   2. Else...
      
      1. If you have at least 1 CP and 25 energy, then put up a Rupture
         
      2. Else if you have at least 55 energy, Mutilate to get CP
         
      
      
5. IF HfB is good but SnD is down...
   
   1. If you have at least 1 CP...
      
      1. If you have 25 energy, activate Slice and Dice
         
      
      
   2. Else (0 CP) if you have 55 energy, Mutilate to get CP
      
6. If HfB is good but SnD has less than 4 seconds remaining...
   
   1. If you have at least 1 CP...
      
      1. If you have 35 energy, activate Envenom
         
      
      
   2. Else (0 CP) if you have 55 energy, Mutilate to get CP
      
7. If HfB is good, SnD is good, you don't have Overkill, you're not Stealthed, Vanish is ready, and the target has more than 500K hp, then Vanish
8. If HfB is good, SnD is good, you have less than 4 CP, and you have at 55 energy, then Mutilate to get CP
9. If HfB is good, SnD is good, and you have at least 4 CP...
   
   1. If you have at least 4 stacks of Deadly Poison and 35 energy...
      
      1. If you have 5 CP and 5 stacks of DP and Cold Blood is ready, then Cold Blood
         
      2. Envenom
   2. Else (not enough Deadly Poison) if you have 85 energy, Mutilate
      

[greenthing]

I'll say for a billionth time that this code will not work with another DK in the party/raid. Checking for debuffs in that fashion does not work... Grr.

Oh that's ok... We have FaceSmasher so I never tested it.