Scriptname SuH_sexES_petnconsent extends activemagiceffect  

SuH_Fun property _f auto
SuH_Status property _s auto
int petslot
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)
	char = akTarget
	petslot = _s.SuH_petactive
	RegisterForSingleUpdate(5.0)
endEvent

Event OnUpdate()
	_f.PetXP(petslot, 2)
	RegisterForSingleUpdate(5.0)
endEvent