Scriptname SuH_sexES_PCsubmit extends activemagiceffect  

SuH_Fun property _Fun auto

;ent/ Actors
Actor property PlayerRef auto
Actor char
;end/

Event OnEffectStart(Actor akTarget, Actor akCaster)
	if akTarget == 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
	_Fun.XPcalc("PCsubmit", 0.0, 0, 0.0, False)
	_Fun.STATcalc(char, TRUE, "PCsubmit", "All", False, 0.0, 0.0, False)
	
	RegisterForSingleUpdate(5.0)
endEvent