LuaNinja Macro Collection

[Elitetech]

Alright so far i've done the following for my stealth;

/run StaticPopup_Hide("MACRO_ACTION_FORBIDDEN");
/stopmacro [nostealth, combat]
/targetenemy [noharm]

/run Stealth=UnitBuff("player", "Stealth")
/run Creature=UnitCreatureType("target")
/run InMeleeRange=CheckInteractDistance("target",2)
/run if Stealth and InMeleeRange and (Creature == "Humanoid" or Creature == "Undead" or Creature == "Demon") then CastSpellByName("Pick Pocket") else CastSpellByName("Cheap Shot") end
/run if GetNumLootItems() == 0 and Stealth then RunMacroText("/in 1 /run CastSpellByName("Cheap Shot")") else RunMacro("Stealth") end
/run StaticPopup_Hide("MACRO_ACTION_FORBIDDEN");

I'm finding it more and more common coming into simple problems, such as it'll loop pick pocket and never do cheap shot. On target's it cannot pick pocket but is 'presumed' it can by my creature check it'll just sit idle.

I think one thing that needs doing is having it cast pickpocket once and make sure only once. Then wait for the loot to be taken and cast cheap shot. No idea how to do those checks myself though.

/run StaticPopup_Hide("MACRO_ACTION_FORBIDDEN");
/stopmacro [nostealth, combat]
/targetenemy [noharm]

/run Stealth=UnitBuff("player", "Stealth")
/run Creature=UnitCreatureType("target")
/run InMeleeRange=CheckInteractDistance("target",2)
/run if Stealth and IsSpellInRange("Pick Pocket", "target")==1 and (Creature == "Humanoid" or Creature == "Undead" or Creature == "Demon") then RunMacroText("/castsequence reset=5 Pick Pocket, Pick Pocket, Pick Pocket, Cheap Shot") else if Stealth and IsSpellInRange("Cheap Shot", "target")==1 then CastSpellByName("Cheap Shot") end
/run StaticPopup_Hide("MACRO_ACTION_FORBIDDEN");

That should work mate

[Mynewt]

Back to warrior arms again, everything is working awesomely, could you finally work out a script that if charge is on cooldwon and assuming sufficient rage will change to berserkser stance, and intercept?

[kakamonster]

Here is my solo Retribution Paladin macro for Talent Calculator - World of Warcraft

/run if IsUsableSpell("Lay on Hands") and GetSpellCooldown("Lay on Hands")==0 and UnitHealth("Player")/UnitHealthMax("Player")<0.20 and not UnitDebuff("player", "Forbearance") then RunMacroText("/cast [@player] Lay on Hands") end
/run if IsUsableSpell("Hammer of Wrath")==1 and IsSpellInRange("Hammer of Wrath", "target")==1 and GetSpellCooldown("Hammer of Wrath")==0 then CastSpellByName("Hammer of Wrath") end
/run if (_G["RetInterrupt"]==nil or GetTime()-_G["RetInterrupt"]>1) then if IsUsableSpell("Hammer of Justice") and (UnitCastingInfo("target") or UnitChannelInfo("target")) and GetSpellCooldown("Hammer of Justice")==0 and IsSpellInRange("Hammer of Justice", "target")==1 then SpellStopCasting() CastSpellByName("Hammer of Justice") _G["RetInterrupt"]=GetTime() elseif IsUsableSpell("Arcane Torrent") and (UnitCastingInfo("target") or UnitChannelInfo("target")) and GetSpellCooldown("Arcane Torrent")==0 and IsSpellInRange("Crusader Strike", "target")==1 then SpellStopCasting() CastSpellByName("Arcane Torrent") _G["RetInterrupt"]=GetTime() end end
/run i=1 while(i<=40)do a={UnitDebuff("player", i)} if (a[5]=="Magic" or a[5]=="Disease" or a[5]=="Poison") then break else i=i+1 end end; if i<=40 and IsUsableSpell("Cleanse") then RunMacroText("/cast [@player] Cleanse") end
/run if IsUsableSpell("Hammer of Justice") and GetSpellCooldown("Hammer of Justice")==0 and IsSpellInRange("Hammer of Justice", "target")==1 and IsUsableSpell("Hammer of Justice") and UnitPlayerControlled("target") then CastSpellByName("Hammer of Justice") end
/run if IsUsableSpell("Avenging Wrath") and IsSpellInRange("Crusader Strike", "target")==1 and GetSpellCooldown("Avenging Wrath")==0 and UnitPlayerControlled("target") and UnitAffectingCombat("player") and not UnitIsFriend("player", "target") then CastSpellByName("Avenging Wrath") end
/run if IsUsableSpell("Divine Plea") and GetSpellCooldown("Divine Plea")==0 and UnitMana("player")/UnitManaMax("player")<0.75 and not IsMounted() then CastSpellByName("Divine Plea") end
/run if IsUsableSpell("Sacred Shield") and not UnitBuff("player", "Sacred Shield") and UnitHealth("Player")/UnitHealthMax("Player")<0.60 and not IsMounted() and UnitAffectingCombat("player") and IsSpellInRange("Repentance", "target")==1 then RunMacroText("/cast [@player] Sacred Shield") end
/run if IsUsableSpell("Greater Blessing of Might") and not UnitBuff("player", "Greater Blessing of Might") and not IsMounted() then RunMacroText("/cast [@player] Greater Blessing of Might") end
/run if IsUsableSpell("Seal of Corruption") and not UnitBuff("player", "Seal of Corruption") and not IsMounted() then CastSpellByName("Seal of Corruption") end
/run if IsUsableSpell("Flash of Light") and UnitBuff("player", "The Art of War") and UnitHealth("Player")/UnitHealthMax("Player")<0.80 then RunMacroText("/cast [@player] Flash of Light") end
/run if IsUsableItem("TRINKET HERE") and GetItemCooldown("TRINKET HERE")==0 and UnitAffectingCombat("player") and IsSpellInRange("Hammer of Justice", "target")==1 then UseItemByName("TRINKET HERE") end
/run if IsUsableItem("TRINKET HERE") and GetItemCooldown("TRINKET HERE")==0 and UnitAffectingCombat("player") and IsSpellInRange("Hammer of Justice", "target")==1 then UseItemByName("TRINKET HERE") end
/run if IsUsableSpell("Judgement of Justice") and GetSpellCooldown("Judgement of Justice")==0 and IsSpellInRange("Judgement of Justice", "target")==1 and UnitPlayerControlled("target") then CastSpellByName("Judgement of Justice") end
/run if IsUsableSpell("Judgement of Wisdom") and GetSpellCooldown("Judgement of Wisdom")==0 and IsSpellInRange("Judgement of Wisdom", "target")==1 and not UnitPlayerControlled("target") then CastSpellByName("Judgement of Wisdom") end
/run b={UnitCreatureType("target")} if (b[1]=="Undead" or b[1]=="Demon") and IsUsableSpell("Holy Wrath") and GetSpellCooldown("Holy Wrath")==0 and IsSpellInRange("Crusader Strike", "target")==1 then CastSpellByName("Holy Wrath") end
/run if IsUsableSpell("Crusader Strike") and GetSpellCooldown("Crusader Strike")==0 and IsSpellInRange("Crusader Strike", "target")==1 then CastSpellByName("Crusader Strike") end
/run if IsUsableSpell("Divine Storm") and GetSpellCooldown("Divine Storm")==0 and IsSpellInRange("Crusader Strike", "target")==1 then CastSpellByName("Divine Storm") end
/run if IsUsableSpell("Exorcism") and UnitBuff("player", "The Art of War") and GetSpellCooldown("Exorcism")==0 and IsSpellInRange("Exorcism", "target")==1 then CastSpellByName("Exorcism") end
/run if IsUsableSpell("Hand of Reckoning") and GetSpellCooldown("Hand of Reckoning")==0 and IsSpellInRange("Hand of Reckoning", "target")==1 and not UnitAffectingCombat("target") and not UnitPlayerControlled("target") then CastSpellByName("Hand of Reckoning") end
/run if IsMounted() and not UnitBuff("player", "Crusader Aura") then CastSpellByName("Crusader Aura") elseif not IsMounted() and not UnitBuff("player", "Retribution Aura") and not (UnitCastingInfo("player") or UnitChannelInfo("player")) then CastSpellByName("Retribution Aura") end
/run StaticPopup_Hide("MACRO_ACTION_FORBIDDEN");
/startattack [exists,harm,nodead]

Logic
1. Lay on Hands if below 20% health
2. Hammer of Wrath if target below 20% health
3. Interrupt spells being cast/channeld with Arcane Torrent or Hammer of Justice will not burn both cooldowns thanks to Viral Fly-by!
4. Cleanse Magic, Poison or Disease on you
5. Hammer of Justice if PvP target
6. Avenging Wrath if PvP target and in melee range
7. Divine Plea if below 75% mana
8. Sacred Shield if below 60% health
9. Buff with Greater Blessing of Might, not when on mount
10. Buff with Seal of Corruption, not when on mount
11. Flash of Light if below 80% health and has The Art of War buff
12. Trinkets if within 10 yards from target, you have to edit trinkets yourself
13. Judgement of Justice if PvP target else Judgement of Wisdom
14. Holy Wrath if undead or demon and in melee range
15. Crusader Strike
16. Divine Storm if in melee range
17. Exorcism if has The Art of War buff
18. Hand of Reckoning if target is not in combat and not a player, use this to pull mobs
19. Crusader Aura if mounted else Retribution Aura

Change all instance of "TRINKET HERE" to your trinkets else just remove it

Have fun!

[reveng_]

I modified the original Warlock macro and updated it for the 3.3 Demonology raiding spec.

For above 35%

/run if UnitHealth("player") > 7000 and (UnitPower("Player") < 3000 or not UnitBuff("player", "Life Tap")) then CastSpellByName("Life Tap") end
/run if (UnitHealth("target")/UnitHealthMax("target")>0.35) and not UnitDebuff("target", "Curse of Doom") then CastSpellByName("Curse of Doom") end
/run if (UnitHealth("target")/UnitHealthMax("target")>0.35) and not UnitDebuff("target", "Corruption") then CastSpellByName("Corruption") end
/run if (UnitHealth("target")/UnitHealthMax("target")>0.35) and not UnitDebuff("target", "Immolate") then CastSpellByName("Immolate") end
/run _,_,_,_,_,d = UnitBuff("player", "Decimation"); if d~=nil and d-GetTime()>0.5 then CastSpellByName("Soul Fire") end
/run if UnitBuff("player", "Molten Core") then CastSpellByName("Incinerate")
/run CastSpellByName("Shadow Bolt")

Below 35% during Decimation/Execute phase.

/run if UnitHealth("player") > 7000 and (UnitPower("Player") < 3000 or not UnitBuff("player", "Life Tap")) then CastSpellByName("Life Tap") end
/run if (UnitHealth("target")/UnitHealthMax("target")<0.35) and not UnitDebuff("target", "Curse of Doom") then CastSpellByName("Curse of Doom") end
/run if (UnitHealth("target")/UnitHealthMax("target")<0.35) and not UnitDebuff("target", "Corruption") then CastSpellByName("Corruption") end
/run if (UnitHealth("target")/UnitHealthMax("target")<0.35) and not UnitDebuff("target", "Immolate") then CastSpellByName("Immolate") end
/run if UnitBuff("player", "Decimation") then CastSpellByName("Soul Fire") end
/run if not UnitDebuff("player", "Shadow Mastery") then CastSpellByName("Shadow Bolt") end

[Evilphtbstrd]

kaka your ret pala macro does absolutely nothing for me

[frallan123]

so I got LuaNinja to work now but that DK macro gives me around 2k dps and i dont think he uses all spells, would be glad if anyone could help me

[kakamonster]

kaka your ret pala macro does absolutely nothing for me

care to elaborate? Just copy pasted it in Super Duper Macro and everything works perfectly even with no edition to trinkets. obiusly your dowing something wrong.

[ganzerker]

so I got LuaNinja to work now but that DK macro gives me around 2k dps and i dont think he uses all spells, would be glad if anyone could help me

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)

[CrazyCactuaR]

/run StaticPopup_Hide("MACRO_ACTION_FORBIDDEN");
/stopmacro [nostealth, combat]
/targetenemy [noharm]

/run Stealth=UnitBuff("player", "Stealth")
/run Creature=UnitCreatureType("target")
/run InMeleeRange=CheckInteractDistance("target",2)
/run if Stealth and IsSpellInRange("Pick Pocket", "target")==1 and (Creature == "Humanoid" or Creature == "Undead" or Creature == "Demon") then RunMacroText("/castsequence reset=5 Pick Pocket, Pick Pocket, Pick Pocket, Cheap Shot") else if Stealth and IsSpellInRange("Cheap Shot", "target")==1 then CastSpellByName("Cheap Shot") end
/run StaticPopup_Hide("MACRO_ACTION_FORBIDDEN");

That should work mate

I'm getting this;

Message: [string "if Stealth and IsSpellInRange("Pick Pocket", "target")==1 and (..."] line 1:
'end' expected near '<eof>'

when copy/pasting that code. Not quite sure whats missing, another end?

[Elitetech]

I'm getting this;

Message: [string "if Stealth and IsSpellInRange("Pick Pocket", "target")==1 and (..."] line 1:
'end' expected near '<eof>'

when copy/pasting that code. Not quite sure whats missing, another end?

yep that means another end ;D

/run if Stealth and IsSpellInRange("Pick Pocket", "target")==1 and (Creature == "Humanoid" or Creature == "Undead" or Creature == "Demon") then RunMacroText("/castsequence reset=5 Pick Pocket, Pick Pocket, Pick Pocket, Cheap Shot") else if Stealth and IsSpellInRange("Cheap Shot", "target")==1 then CastSpellByName("Cheap Shot") end end

[pinhe1ro]

Here is my solo Retribution Paladin macro for Talent Calculator - World of Warcraft

/run if IsUsableSpell("Lay on Hands") and GetSpellCooldown("Lay on Hands")==0 and UnitHealth("Player")/UnitHealthMax("Player")<0.20 and not UnitDebuff("player", "Forbearance") then RunMacroText("/cast [@player] Lay on Hands") end
/run if IsUsableSpell("Hammer of Wrath")==1 and IsSpellInRange("Hammer of Wrath", "target")==1 and GetSpellCooldown("Hammer of Wrath")==0 then CastSpellByName("Hammer of Wrath") end
/run if (_G["RetInterrupt"]==nil or GetTime()-_G["RetInterrupt"]>1) then if IsUsableSpell("Hammer of Justice") and (UnitCastingInfo("target") or UnitChannelInfo("target")) and GetSpellCooldown("Hammer of Justice")==0 and IsSpellInRange("Hammer of Justice", "target")==1 then SpellStopCasting() CastSpellByName("Hammer of Justice") _G["RetInterrupt"]=GetTime() elseif IsUsableSpell("Arcane Torrent") and (UnitCastingInfo("target") or UnitChannelInfo("target")) and GetSpellCooldown("Arcane Torrent")==0 and IsSpellInRange("Crusader Strike", "target")==1 then SpellStopCasting() CastSpellByName("Arcane Torrent") _G["RetInterrupt"]=GetTime() end end
/run i=1 while(i<=40)do a={UnitDebuff("player", i)} if (a[5]=="Magic" or a[5]=="Disease" or a[5]=="Poison") then break else i=i+1 end end; if i<=40 and IsUsableSpell("Cleanse") then RunMacroText("/cast [@player] Cleanse") end
/run if IsUsableSpell("Hammer of Justice") and GetSpellCooldown("Hammer of Justice")==0 and IsSpellInRange("Hammer of Justice", "target")==1 and IsUsableSpell("Hammer of Justice") and UnitPlayerControlled("target") then CastSpellByName("Hammer of Justice") end
/run if IsUsableSpell("Avenging Wrath") and IsSpellInRange("Crusader Strike", "target")==1 and GetSpellCooldown("Avenging Wrath")==0 and UnitPlayerControlled("target") and UnitAffectingCombat("player") and not UnitIsFriend("player", "target") then CastSpellByName("Avenging Wrath") end
/run if IsUsableSpell("Divine Plea") and GetSpellCooldown("Divine Plea")==0 and UnitMana("player")/UnitManaMax("player")<0.75 and not IsMounted() then CastSpellByName("Divine Plea") end
/run if IsUsableSpell("Sacred Shield") and not UnitBuff("player", "Sacred Shield") and UnitHealth("Player")/UnitHealthMax("Player")<0.60 and not IsMounted() and UnitAffectingCombat("player") and IsSpellInRange("Repentance", "target")==1 then RunMacroText("/cast [@player] Sacred Shield") end
/run if IsUsableSpell("Greater Blessing of Might") and not UnitBuff("player", "Greater Blessing of Might") and not IsMounted() then RunMacroText("/cast [@player] Greater Blessing of Might") end
/run if IsUsableSpell("Seal of Corruption") and not UnitBuff("player", "Seal of Corruption") and not IsMounted() then CastSpellByName("Seal of Corruption") end
/run if IsUsableSpell("Flash of Light") and UnitBuff("player", "The Art of War") and UnitHealth("Player")/UnitHealthMax("Player")<0.80 then RunMacroText("/cast [@player] Flash of Light") end
/run if IsUsableItem("TRINKET HERE") and GetItemCooldown("TRINKET HERE")==0 and UnitAffectingCombat("player") and IsSpellInRange("Hammer of Justice", "target")==1 then UseItemByName("TRINKET HERE") end
/run if IsUsableItem("TRINKET HERE") and GetItemCooldown("TRINKET HERE")==0 and UnitAffectingCombat("player") and IsSpellInRange("Hammer of Justice", "target")==1 then UseItemByName("TRINKET HERE") end
/run if IsUsableSpell("Judgement of Justice") and GetSpellCooldown("Judgement of Justice")==0 and IsSpellInRange("Judgement of Justice", "target")==1 and UnitPlayerControlled("target") then CastSpellByName("Judgement of Justice") end
/run if IsUsableSpell("Judgement of Wisdom") and GetSpellCooldown("Judgement of Wisdom")==0 and IsSpellInRange("Judgement of Wisdom", "target")==1 and not UnitPlayerControlled("target") then CastSpellByName("Judgement of Wisdom") end
/run b={UnitCreatureType("target")} if (b[1]=="Undead" or b[1]=="Demon") and IsUsableSpell("Holy Wrath") and GetSpellCooldown("Holy Wrath")==0 and IsSpellInRange("Crusader Strike", "target")==1 then CastSpellByName("Holy Wrath") end
/run if IsUsableSpell("Crusader Strike") and GetSpellCooldown("Crusader Strike")==0 and IsSpellInRange("Crusader Strike", "target")==1 then CastSpellByName("Crusader Strike") end
/run if IsUsableSpell("Divine Storm") and GetSpellCooldown("Divine Storm")==0 and IsSpellInRange("Crusader Strike", "target")==1 then CastSpellByName("Divine Storm") end
/run if IsUsableSpell("Exorcism") and UnitBuff("player", "The Art of War") and GetSpellCooldown("Exorcism")==0 and IsSpellInRange("Exorcism", "target")==1 then CastSpellByName("Exorcism") end
/run if IsUsableSpell("Hand of Reckoning") and GetSpellCooldown("Hand of Reckoning")==0 and IsSpellInRange("Hand of Reckoning", "target")==1 and not UnitAffectingCombat("target") and not UnitPlayerControlled("target") then CastSpellByName("Hand of Reckoning") end
/run if IsMounted() and not UnitBuff("player", "Crusader Aura") then CastSpellByName("Crusader Aura") elseif not IsMounted() and not UnitBuff("player", "Retribution Aura") and not (UnitCastingInfo("player") or UnitChannelInfo("player")) then CastSpellByName("Retribution Aura") end
/run StaticPopup_Hide("MACRO_ACTION_FORBIDDEN");
/startattack [exists,harm,nodead]

Logic
1. Lay on Hands if below 20% health
2. Hammer of Wrath if target below 20% health
3. Interrupt spells being cast/channeld with Arcane Torrent or Hammer of Justice will not burn both cooldowns thanks to Viral Fly-by!
4. Cleanse Magic, Poison or Disease on you
5. Hammer of Justice if PvP target
6. Avenging Wrath if PvP target and in melee range
7. Divine Plea if below 75% mana
8. Sacred Shield if below 60% health
9. Buff with Greater Blessing of Might, not when on mount
10. Buff with Seal of Corruption, not when on mount
11. Flash of Light if below 80% health and has The Art of War buff
12. Trinkets if within 10 yards from target, you have to edit trinkets yourself
13. Judgement of Justice if PvP target else Judgement of Wisdom
14. Holy Wrath if undead or demon and in melee range
15. Crusader Strike
16. Divine Storm if in melee range
17. Exorcism if has The Art of War buff
18. Hand of Reckoning if target is not in combat and not a player, use this to pull mobs
19. Crusader Aura if mounted else Retribution Aura

Change all instance of "TRINKET HERE" to your trinkets else just remove it

Have fun!

kakamonster thx 4 your macro

Can you fix the Holy Wrath spell? that isn´t working 4 me, tested in azjol-nerub.

[Evilphtbstrd]

ye sorry kaka , was late when i posted , i will try another copy/paste a sec , it just never did anything for me last night

EDIT - please accept my apologies kaka , this macro works great , i sometimes have a problem where SDM doesnt take the first paste so i have to redo the macro from scratch , guess i know not to test macros after work lol rep to you

[kakamonster]

ye sorry kaka , was late when i posted , i will try another copy/paste a sec , it just never did anything for me last night

EDIT - please accept my apologies kaka , this macro works great , i sometimes have a problem where SDM doesnt take the first paste so i have to redo the macro from scratch , guess i know not to test macros after work lol rep to you

glad to hear it works

[kakamonster]

kakamonster thx 4 your macro

Can you fix the Holy Wrath spell? that isn´t working 4 me, tested in azjol-nerub.

Holy Wrath works, if its not working in azjol-nerub blizzard ****ed up with mob tags or you have accedently messed up that line, works fine for me in new ice crown.
But i know some commands like UnitIsEnemy does not work on the undead in "Escape from the Litch King" in Halls of Reflection.

[CrazyCactuaR]

yep that means another end ;D

/run if Stealth and IsSpellInRange("Pick Pocket", "target")==1 and (Creature == "Humanoid" or Creature == "Undead" or Creature == "Demon") then RunMacroText("/castsequence reset=5 Pick Pocket, Pick Pocket, Pick Pocket, Cheap Shot") else if Stealth and IsSpellInRange("Cheap Shot", "target")==1 then CastSpellByName("Cheap Shot") end end

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