[LuaNinja] Feral Druid Levelling Macro's

[CrazyCactuaR]

Quick Info
As a powerleveller, I find LuaNinja amazing to automate gameplay while still being infront of the screen. This page will grow the further i level my current character being a feral druid - cat dps. Credit's go to all those who submitted their work on the LuaNinja Macro Collection page, if it wasnt for them i wouldn't have a clue wtf i'm doing.

The macro's provided are to be used by a spammer and all spammed at once. Explanations of what they do will be given. Have fun and hope they help.

Macro Log

Druid Level 64 - 11/12/09 *updated* 12/12/09
Druid Level 75 - 14/12/09
Rogue Level 22 - 20/12/09

[Druid Level 64]

- Macro 1 (Buff's)

/run if not GetShapeshiftForm(3) then StopMacro() end
/cast [combat] 13
/cast [combat] 14
/run InCombat = UnitAffectingCombat("player")
/run InMeleeDistance = CheckInteractDistance("target",3)
/run if InMeleeDistance and InCombat then CastSpellByName("Barkskin") end 
/run if InMeleeDistance and InCombat then CastSpellByName("Berserk") end 
/run if InMeleeDistance and InCombat and UnitPower("Player") < 30 then CastSpellByName("Tiger's Fury") end

- Macro 2 (Main CAT Rotation 'CATROT')

/run if not GetShapeshiftForm(3) then StopMacro() end
/startattack [combat, nostealth]
/run Points=GetComboPoints("player","target")
/run Casting=UnitCastingInfo("target")
/run Channeling=UnitChannelInfo("target")
/run Stealthed=UnitBuff("player","Prowl")
/run MaimCD=GetSpellCooldown("Maim")
/run if Stealthed then RunMacroText("/cast Pounce") end
/stopmacro [stealth]
/run if Casting or Channeling then RunMacro("AntiCaster") end
/run if Points < 3 then RunMacroText("/cast Mangle (Cat)") end
/run if Points > 2 then RunMacroText("/cast Ferocious Bite") end

- Macro 3 (Out of form Instant Heal)

/run ShiftForm = GetShapeshiftForm()
/run HealBuff = UnitBuff("player", "Predator's Swiftness")
/run if not ShiftForm  == 0 then StopMacro() end
/run if ShiftForm == 0 and UnitBuff("player", "Predator's Swiftness") then CastSpellByName("Healing Touch") end
/run if ShiftForm == 0 and not HealBuff then CastShapeshiftForm(3) end

To take advantage of this macro, When you have Predator's Swiftness proc, come out of cat form while your still spamming keys, this will cast Healing Touch and return to Cat form.

- Macro 4 (Faerie Fire Feral)

/stopmacro [stealth, combat]
/run if not GetShapeshiftForm(3) then StopMacro() end
/run if not UnitDebuff('target','Faerie Fire (Feral)') and not UnitBuff("player", "Prowl") then CastSpellByName('Faerie Fire (Feral)') end

- Macro 5 (AntiCaster)

/stopmacro [stealth]
/run Points=GetComboPoints("player","target")
/run Casting=UnitCastingInfo("target")
/run Channeling=UnitChannelInfo("target")
/run MaimCD=GetSpellCooldown("Maim")
/run if Points  == 0 then RunMacroText("/cast Mangle (Cat)") end
/run if Casting and Points > 0 and MaimCD == 0 then RunMacroText("/cast Maim") end
/run if Channeling and Points > 0 and MaimCD == 0 then RunMacroText("/cast Maim") end

[Druid Level 75]

Macro 1 (Buffs)

/run if not GetShapeshiftForm(3) then StopMacro() end
/cast [combat] 13
#/cast [combat] 14
/run if (UnitHealth("player")/UnitHealthMax("player")<=0.8) then RunMacroText("/cast [combat] 14") end
/run InCombat = UnitAffectingCombat("player")
/run InMeleeDistance = CheckInteractDistance("target",3)
/run if InMeleeDistance and InCombat then CastSpellByName("Barkskin") end 
/run if InMeleeDistance and InCombat then CastSpellByName("Berserk") end 
/run if InMeleeDistance and InCombat and UnitPower("Player") < 30 then CastSpellByName("Tiger's Fury") end

Modified Buff's Macro to automatically use Medallion of Heroism when below or at 80% health. (Bottom trinket slot)

Macro 2 (Name this macro: CATROT)

/run if not GetShapeshiftForm(3) then StopMacro() end
/startattack [combat, nostealth]
/run Points=GetComboPoints("player","target")
/run Casting=UnitCastingInfo("target")
/run Channeling=UnitChannelInfo("target")
/run Stealthed=UnitBuff("player","Prowl")
/run MaimCD=GetSpellCooldown("Maim")
/run SavageRoar=UnitBuff("player","Savage Roar")
/run if Stealthed then RunMacroText("/cast Pounce") end
/stopmacro [stealth]
/run if Casting or Channeling then RunMacro("AntiCaster") end
/run if not SavageRoar and Points>0 then RunMacroText("/cast Savage Roar") end
/run if SavageRoar and Points < 3 then RunMacroText("/cast Mangle (Cat)") end
/run if Points > 2 then RunMacroText("/cast Ferocious Bite") end

Modified Cat Rotation to keep up Savage Roar buff.

Macro 3 (FeralHeal)

/run ShiftForm = GetShapeshiftForm()
/run HealBuff = UnitBuff("player", "Predator's Swiftness")
/run if not ShiftForm  == 0 then StopMacro() end
/run if ShiftForm == 0 and UnitBuff("player", "Predator's Swiftness") then CastSpellByName("Healing Touch") end
/run if ShiftForm == 0 and not HealBuff then CastShapeshiftForm(3) end

Macro 4 (FF)

/stopmacro [stealth, combat]
/run if not GetShapeshiftForm(3) then StopMacro() end
/run if not UnitDebuff('target','Faerie Fire (Feral)') and not UnitBuff("player", "Prowl") then CastSpellByName('Faerie Fire (Feral)') end

Macro 5 (Name this macro: AntiCaster)

/stopmacro [stealth]
/run Points=GetComboPoints("player","target")
/run Casting=UnitCastingInfo("target")
/run Channeling=UnitChannelInfo("target")
/run MaimCD=GetSpellCooldown("Maim")
/run if Points  == 0 then RunMacroText("/cast Mangle (Cat)") end
/run if Casting and Points > 0 and MaimCD == 0 then RunMacroText("/cast Maim") end
/run if Channeling and Points > 0 and MaimCD == 0 then RunMacroText("/cast Maim") end

[Rogue Level 33]

Button: 1 - Macro - Stealth

/run StaticPopup_Hide("MACRO_ACTION_FORBIDDEN");
/stopmacro [nostealth, combat]
/run Stealth=UnitBuff("player", "Stealth")
/run InMeleeRange=CheckInteractDistance("target",3)
/run if Stealth and InMeleeRange then RunMacroText("/cast Pick Pocket") end
/run if Stealth and InMeleeRange then RunMacroText("/cast Cheap Shot") end

Button: 2 - Macro - Combat

/run StaticPopup_Hide("MACRO_ACTION_FORBIDDEN");
/stopmacro [stealth]
/startattack [combat]
/run Points=GetComboPoints("player","target")
/run Slice=UnitBuff("player", "Slice and Dice")
/run Casting=UnitCastingInfo("target")
/run Channeling=UnitChannelInfo("target")
/run KickCD=GetSpellCooldown("Kick")
/run if Casting and KickCD == 0 then RunMacroText("/cast Kick") end
/run if Channeling and KickCD == 0 then RunMacroText("/cast Kick") end
/run if Points < 2  then RunMacroText("/cast Sinister Strike") end
/run if Points > 1 and not Slice then RunMacroText("/cast Slice and Dice") end
/run if Points > 1 and Slice then RunMacroText("/cast Eviscerate") end

Button: 3 - Spell - Riposte