Scriptname SuH_spellES_selfpleasure extends activemagiceffect  

SuH_Fun Property _f auto

Event OnInit()
	_f = Game.GetFormFromFile(0x814, "Succubus Heart.esp") as SuH_Fun
endEvent

Event OnEffectStart(actor akTarget, actor akCaster)
	actor[] animActor = new actor[1] ; Create Array of actors
	animActor[0] = akCaster ; Set Caster
	_f.ANIMcalc(animActor) ; Send act to SuH_Fun
endEvent