Scriptname SuH_sexES_PCsubmit extends activemagiceffect  

SuH_Fun property _f auto
SuH_Status property _s auto
Actor char

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

Event OnEffectStart(Actor akTarget, Actor akCaster)
	if akTarget == _s.PlayerRef
		char = akTarget
		RegisterForSingleUpdate(5.0)
	else
		debug.trace("SuH ERROR : PCsubmit set on NPC - NULL Effect", 2) ;Error report to log
	endIf
endEvent

Event OnUpdate()

	; Call functions from SuH_Fun
	_f.XPcalc("PCsubmit")
	_f.STATcalc(char, aPreset="PCsubmit", stat="All")
	
	RegisterForSingleUpdate(5.0)
endEvent