Scriptname SuH_sexES_CScd extends activemagiceffect  

SuH_Status property _s auto
Actor Char

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

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

Event OnUpdate()
	char.RemoveSpell(_s.SuH_sex_CScd)
endEvent