Scriptname SuH_sexES_CScd extends activemagiceffect  

Spell Property SuH_sex_CScd auto
Actor Property PlayerRef auto
Actor Char

Event OnEffectStart(Actor akTarget, Actor akCaster)
	char = akTarget
	if char == PlayerRef
		RegisterForSingleUpdate(5.0)
	else
		RegisterForSingleUpdate(5.0)
	endIf
	EndEvent

Event OnUpdate()
	char.RemoveSpell(SuH_sex_CScd)
endEvent