EQ2EMu/server/Spells/Mage/Summoner/Necromancer/Fear.lua

--[[
    Script Name    : Spells/Mage/Summoner/Necromancer/Fear.lua
    Script Author  : neatz09
    Script Date    : 2019.10.15 07:10:44
    Script Purpose : 
                   : 
--]]

-- Makes target afraid
-- 30% chance to dispel when target takes damage
-- Does not affect Epic targets
-- Resistibility increases against targets higher than level 29.

function precast(Caster, Target)
    -- Does not affect Epic targets
    if IsEpic(Target) then
        return false, 43
    end

    return true
end

function cast(Caster, Target, Chance)
  Say(Caster, "Resist level 29 or < not implemented.")
	Say(Caster, "Need a check for ifhascontroleffect")
		AddControlEffect(Target, 6)	
	AddProc(Target, 15, Chance)
end

function proc(Caster, Target, Type, Chance)
local Spell = GetSpellID()	
if Type == 15 and HasSpellEffect(Target, Spell) then
		CancelSpell()
			end
end

function remove(Caster, Target)
	RemoveControlEffect(Target, 6)
	RemoveProc(Target)
	
end