EQ2EMu/server/Spells/Fighter/Warrior/Berserker/WallofRage.lua

--[[
    Script Name    : Spells/Fighter/Warrior/Berserker/WallofRage.lua
    Script Author  : neatz09
    Script Date    : 2020.09.25 12:09:31
    Script Purpose : 
                   : 
--]]

-- Decreases Haste of caster by 11.3
-- Increases Mitigation of caster vs physical damage by 133
-- On a melee hit this spell may cast Cripple on target of attack.  Lasts for 10.0 seconds.  Triggers about 5.0 times per minute. 
--     Slows targets in Area of Effect by 29.3%
--     5% chance to dispel when target receives hostile action
--     5% chance to dispel when target takes damage
function cast(Caster, Target, Haste, Mit, SlowAmt, Chance)
    AddSpellBonus(Target, 617, Haste)
    AddSpellBonus(Caster, 200, Mit)
    AddSpellBonus(Caster, 201, Mit)
    AddSpellBonus(Caster, 202, Mit)
    AddSpellBonus(Caster, 203, Mit)
	AddProc(Target, 3, 12)
end

function proc(Caster, Target, Type, Haste, Mit, SlowAmt, Chance)
    Spell = GetSpell(5431, GetSpellTier())
		if Type == 3 then
			local Slow = 100 - SlowAmt
					SetSpellDataIndex(Spell, 0, Slow)
					CastCustomSpell(Spell, Caster, Target)
						end

end

function remove(Caster, Target)
	RemoveSpellBonus(Caster)
end