Fury Warrior Lua Script

[CrazyCactuaR]

Requires: Hack addon

[Donate]

Single Target Macro

/run Hack.Run("Warrior.Fury","0")

AoE Group Macro

/run Hack.Run("Warrior.Fury","1")

Code Block

local AoEMode = ...
cast=CastSpellByName
function check(sp,unit)
   unit = unit or "target";
   spell = string.format("%s",sp)
   if GetSpellCooldown(spell)==0 and IsUsableSpell(spell) then 
      if SpellHasRange(spell)==1 then
         if IsSpellInRange(spell,unit)~=1 then
            return false
         end
      end
   else 
      return false
   end
   return true
end

local PartyNum = GetNumPartyMembers()
if PartyNum~=0 then
   if check("Commanding Shout") then cast("Commanding Shout") return end
else
   if check("Battle Shout") then cast("Battle Shout") return end
end 

--- INTERCEPT/HEROIC FURY ---
if GetSpellCooldown("Heroic Fury")>2 and GetSpellCooldown("Intercept")>2 and GetSpellCooldown("Heroic Throw")==0 and check("Heroic Throw") then cast("Heroic Throw") return end
if GetSpellCooldown("Heroic Fury")==0 and IsSpellInRange("Raging Blow", "target")==0 and GetSpellCooldown("Intercept")~=0 and UnitPower("player")>10 then cast("Heroic Fury") return end
if check("Intercept") and UnitPower("player")>10 then cast("Intercept") return end
---

-- DO NOT CONTINUE IF OUT OF COMBAT --
if UnitAffectingCombat("player")~=1 then return end
--------------------------------------

--- TRINKETS + SURVIVAL ---
if GetInventoryItemCooldown(13)==0 then UseInventoryItem(13) end
if GetInventoryItemCooldown(14)==0 then UseInventoryItem(14) end
if (UnitHealth("player")/UnitHealthMax("player")<=0.2) and check("Rallying Cry") then cast("Rallying Cry") return end
---------------------------

--- INTERUPTION ----------------------------
local uch={UnitChannelInfo("target")}
local uca={UnitCastingInfo("target")}
-- Cho'gall Interuption
if UnitDebuff("target", "Worshipping")=="Worshipping" and check("Pummel") then cast("Pummel") return end
-- BWD Interuption
if UnitName("target")=="Maloriak" and (uca[1]=="Arcane Storm" or uch[1]=="Arcane Storm") and check("Pummel") then cast ("Pummel") return end
-- ZulGurub Interuption
if (UnitName("target")=="High Priest Venoxis" or UnitName("target")=="Venomancer Mauri" or UnitName("target")=="Venomancer T'Kulu")==true and (uca[1]=="Whispers of Hethiss" or uch[1]=="Whispers of Hethiss") and check("Pummel") then cast("Pummel") return end
-- General Interupt
if (UnitName("target")~="Maloriak" and UnitName("target")~="High Priest Venoxis" and UnitName("target")~="Venomancer Mauri" and UnitName("target")~="Venomancer T'Kulu")==true and (uca[9]==false or uch[8]==false) and check("Pummel") then cast("Pummel") return end
-- Nefarian Debuff
if (UnitName("target")=="Nefarian" or UnitName("target")=="Onyxia") and UnitDebuff("target", "Demoralizing Shout")~="Demoralizing Shout" and check("Demoralizing Shout") then cast("Demoralizing Shout") return end
------------------------------------------------------------------------------------------------

-- Victory Rush before anything
if check("Victory Rush") then cast("Victory Rush") return end
-- Prioritise Bloodthirst before anything else for Single target
if AoEMode=="0" then
	if check("Bloodthirst") then cast("Bloodthirst") return end
end
-- Prioritise Whirlwind before anything else for AOE
if AoEMode=="1" then
	if check("Whirlwind") then cast("Whirlwind") return end
end 
if check("Recklessness") then cast("Recklessness") return end
if check("Enraged Regeneration") and (UnitHealth("player")/UnitHealthMax("player")<=0.5) then cast("Enraged Regeneration") return end
if check("Death Wish") then cast("Death Wish") return end
if check("Inner Rage") then cast("Inner Rage") return end
if check("Berserker Rage") then cast("Berserker Rage") return end

local _, BTCD, _ =GetSpellCooldown("Bloodthirst")
local targetHealth=UnitHealth("target")/UnitHealthMax("target")
-- Single target Execute spam < 20%
if AoEMode=="0" and targetHealth<=0.2 then
	if check("Raging Blow") then cast("Raging Blow") return end
	if UnitBuff("player", "Bloodsurge")=="Bloodsurge" then cast("Slam") return end
	if check("Colossus Smash") then cast("Colossus Smash") return end
	if check("Execute") then cast("Execute") return end
end 
-- Single target 
if AoEMode=="0" and BTCD>2 and targetHealth>0.2 then
	if check("Raging Blow") then cast("Raging Blow") return end
	if UnitBuff("player", "Bloodsurge")=="Bloodsurge" then cast("Slam") return end
	if check("Colossus Smash") then cast("Colossus Smash") return end

	i=1 d=90
	local isElite=UnitClassification("target")
	local isPlayer=UnitIsPlayer("target")
	if isPlayer==1 and db("target", "Hamstring")~="Hamstring" and check("Hamstring") then cast("Hamstring") return end
	
	if (isElite=="elite" or isElite=="worldboss" or isPlayer=="1") then 
		if check("Sunder Armor") then 
			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]==3 then break end 
				end 
				i=i+1 
			end
		end
		if i>40 or d<10 then cast("Sunder Armor") return end
	end
	local PartyNum=GetNumPartyMembers()
	if PartyNum~=0 then
			if (UnitPower("player")/UnitPowerMax("player")>0.4) and check("Heroic Strike") and BTCD>=2 then cast("Heroic Strike") return end
		else
			if check("Heroic Strike") and BTCD>=2 then cast("Heroic Strike") return end
	end
end

if AoEMode=="1" then
	local _, WWCD,_ =GetSpellCooldown("Whirlwind")
	local _, CLCD,_ =GetSpellCooldown("Cleave")
	if check("Whirlwind") then cast("Whirlwind") return end
	if check("Cleave") and WWCD>=2 and IsSpellInRange("Heroic Strike")==1 then cast("Cleave") return end
	if WWCD>2 and CLCD>2 and check("Bloodthirst") then cast("Bloodthirst") return end
end

[jereminion]

may as ask, is this more updated than the fury (superdupermacro) version on your own forum? i notice the other one didnt use some abilities, but they were in the code

[Arakbuzir]

Hi, how to do ? ^^

[Arakbuzir]

<Hack>: runtime error in "Warrior.Fury" at line 26:
[string "Warrior.Fury"]:26: attempt to compare number with nil

I have this error.

[jereminion]

are you working on prot

[Ehnoah]

<Hack>: runtime error in "Warrior.Fury" at line 26:
[string "Warrior.Fury"]:26: attempt to compare number with nil

I have this error.

Same just make before the IF and after the END --- to remove this. Then no error comes

[jereminion]

these are nice macros i get 17k dps with 371 ilvl mostly pvp gear.

if you decide to use this i would use two one handers instead of two two handers

i did 17k with one handers and 13k with two handers, but based my stat priorities on elitist jerks 8% hit 26 expertise.

[tsien]

I have an error on this line : if isPlayer==1 and db("target", "Hamstring")~="Hamstring" and check("Hamstring") then cast("Hamstring") return end

db nill value something like that.

Thanks ^^

[Ultraviolence]

Change db to UnitDebuff.

[tsien]

Always the same error : Runtime error in Fury at line 90 : [string "Fury"]:90: atempt to call global 'UnitDebuff' (a nill value)

[Canbus]

Doesn't work for me, I get blocked by Blizzard UI.

[sed-]

Doesn't work for me, I get blocked by Blizzard UI.

you need a lua unlocker

[Canbus]

Oh, then I won't bother. Will just play like a normal person haha .