EQ2EMu/server/Spells/Fighter/Warrior/HunkerDown.lua

--[[
    Script Name    : Spells/Fighter/Warrior/HunkerDown.lua
    Script Author  : LordPazuzu
    Script Date    : 1/1/2023
    Script Purpose : 
                   : 
--]]


function cast(Caster, Target, HasteMod, SelfSnare, Mit, TargetSnare, SpellLevel)
        Say(Caster, "Self snare not yet implemented.")


-- Decreases Haste of caster by 11.3
    AddSpellBonus(Caster, 617, HasteMod)

-- Slows caster by 32.6%
   -- local Slow = 1.0 - SelfSnare
   -- SetSpeedMultiplier(Caster, Slow)

-- Increases Mitigation of caster vs physical damage by 133
    Level = GetLevel(Caster)    
    Mastery = SpellLevel + 10

    if Level < Mastery then
        LvlBonus = Level - SpellLevel
        else LvlBonus = Mastery - SpellLevel
    end
    MitBonus = LvlBonus + Mit
    AddSpellBonus(Caster, 200, MitBonus)

-- 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

    AddProc(Target, 3, 25.0)

end

function proc(Caster, Target, Type, TargetSnare, SpellLevel)
    Spell = GetSpell(5431, GetSpellTier())

    if Type == 3 then
		SetSpellDataIndex(Spell, 0, TargetSnare)
		    CastCustomSpell(Spell, Caster, Target)
    end
    
end


function remove(Caster, Target)
    RemoveSpellBonus(Caster)
    SetSpeedMultiplier(Caster, 1)

end