Scriptname SuH_comES_empowermentstone extends activemagiceffect  

SuH_Fun Property _f auto
SuH_Status Property _s auto

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 ; If player consumes
		_s.SuH_PCSxpgain += 1
		_s.SuH_PCSxpgainitem += 1
		_f.BDSMcalc("d", 5)
		Debug.Notification("Empowerment Stone - XP gain increased by 1%")
	endIf
endEvent