Scriptname SuH_spellES_sexualentice 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)
	if akTarget != akCaster
		_f.seducedNPCSet(akTarget, "consent", 1)
		actor[] animActor = new actor[2] ; Create Array of actors
		animActor[0] = akTarget ; Set Target
		animActor[1] = akCaster ; Set Caster
		_f.ANIMcalc(animActor) ; Send act to SuH_Fun
	endIf
endEvent