Scriptname SuH_spellES_pettarget extends activemagiceffect  

SuH_Fun property _Fun auto
GlobalVariable property SuH_PETactivedog auto
GlobalVariable property SuH_PETactivewolf auto
GlobalVariable property SuH_PETactivehorse auto
GlobalVariable property SuH_PETactiveskeever auto
GlobalVariable property SuH_PETactivefamiliar auto
GlobalVariable property SuH_PETactivebear auto
GlobalVariable property SuH_PETactivesabrecat auto
GlobalVariable property SuH_PETactivedraugr auto
GlobalVariable property SuH_PETactivetroll auto
GlobalVariable property SuH_PETactivespriggan auto
GlobalVariable property SuH_PETactivehorker auto
GlobalVariable property SuH_PETactivefalmer auto
GlobalVariable property SuH_PETactivehusky auto
GlobalVariable property SuH_PETactivebristle auto
GlobalVariable property SuH_PETactiveseeker auto
GlobalVariable property SuH_PETactivegargoyle auto
GlobalVariable property SuH_PETactivenetch auto
GlobalVariable property SuH_PETactiveriekling auto
Actor property SuH_actor_dog auto
Actor property SuH_actor_wolf auto
Actor property SuH_actor_horse auto
Actor property SuH_actor_skeever auto
actor property SuH_actor_familiar auto
actor property SuH_actor_bear auto
actor property SuH_actor_sabrecat auto
actor property SuH_actor_draugr auto
actor property SuH_actor_troll auto
actor property SuH_actor_spriggan auto
actor property SuH_actor_horker auto
actor property SuH_actor_falmer auto
actor property SuH_actor_husky auto
actor property SuH_actor_bristle auto
actor property SuH_actor_seeker auto
actor property SuH_actor_gargoyle auto
actor property SuH_actor_netch auto
actor property SuH_actor_riekling auto
Message property SuH_menu_pettarget auto

; Pets Menu
; 0 Rape Target
; 1 Cancel

Event OnEffectStart(Actor akTarget, Actor akCaster)
	Int i = SuH_menu_pettarget.Show()
	if i == 0
		if SuH_PETactivedog.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_dog
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_dog)
		elseif SuH_PETactivewolf.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_wolf
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_wolf)
		elseif SuH_PETactivehorse.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_horse
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_horse)
		elseif SuH_PETactiveskeever.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_skeever
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_skeever)
		elseif SuH_PETactivefamiliar.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_familiar
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_familiar)
		elseif SuH_PETactivebear.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_bear
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_bear)
		elseif SuH_PETactivesabrecat.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_sabrecat
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_sabrecat)
		elseif SuH_PETactivedraugr.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_draugr
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_draugr)
		elseif SuH_PETactivetroll.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_troll
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_troll)
		elseif SuH_PETactivespriggan.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_spriggan
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_spriggan)
		elseif SuH_PETactivehorker.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_horker
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_horker)
		elseif SuH_PETactivefalmer.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_falmer
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_falmer)
		elseif SuH_PETactivehusky.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_husky
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_husky)
		elseif SuH_PETactivebristle.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_bristle
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_bristle)
		elseif SuH_PETactiveseeker.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_seeker
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_seeker)
		elseif SuH_PETactivegargoyle.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_gargoyle
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_gargoyle)
		elseif SuH_PETactivenetch.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_netch
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_netch)
		elseif SuH_PETactiveriekling.GetValue()
			actor[] animActor = new actor[2]
			animActor[0] = SuH_actor_riekling
			animActor[1] = akTarget
			_Fun.ANIMcalc(animActor, SuH_actor_riekling)
		else
			Debug.Notification("Train Pet - No active pets found!")
		endIf
	endIf
endEvent