Scriptname SuH_spellES_pettarget extends activemagiceffect  

SuH_Fun property _f auto
SuH_Status property _s auto

; Pets Menu
; 0 Rape Target
; 1 Cancel

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)
	Int i = _s.SuH_menu_pettarget.Show()
	if i == 0
		actor activepet = _f.SoulPetActiveReturn()
		if activepet != none
			actor[] animActor = new actor[2]
			animActor[0] = activepet
			animActor[1] = akTarget
			_f.ANIMcalc(animActor, activepet)
		else
			Debug.Notification("Train Pet - No active pets found!")
		endIf
	endIf
endEvent