TankingDamage

/run CmdS='Battle Shout' pL='player'
/run  _,_,_,c,_,_,eCMS,_=UnitBuff(pL,CmdS)

/run function CastRageSpell(Spellname,spcost) if UnitPower("player")/UnitPowerMax("player")>spcost then if GetSpellCooldown(Spellname) ==0 and IsSpellInRange(Spellname,"target")  then CastSpellByName(Spellname) end end end
/run function castSpell(spell) if GetSpellCooldown(spell) ==0 then CastSpellByName(spell) end end
/run function reBuffItem(buff,item) if not UnitBuff("player", buff) then UseItemByName(item) end end
/run function useprocR(spell,proc,stack,rRage) local _,_,_,count=UnitBuff("player",proc)if count == stack then CastRageSpell(spell,rRage) end end

/run if eCMS==nil then eCMS=0 end if eCMS-GetTime()<25 then if UnitPower("player")/UnitPowerMax("player")>.10 then CastSpellByName(CmdS) else end end

/run castSpell("Bloodrage")
/run CastRageSpell("Death Wish",.95)
/run CastRageSpell("Recklessness",.95)

/run CastRageSpell("Heroic strike",.5)
/run CastRageSpell("Bloodthirst",.20)
/run CastRageSpell("Shield Slam",.20)
/run if IsUsableSpell("Execute") then CastRageSpell("Execute",.15) end
/run CastRageSpell("Whirlwind",.25)
/run useprocR("Slam","Slam!",1,.15)
/run castSpell("Heroic Throw")