Scriptname SuH_sexES_petorgasm extends activemagiceffect  

SuH_Fun property _Fun 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

Spell Property SuH_sex_petpattacker auto
Spell Property SuH_sex_petnattacker auto
Spell Property SuH_sex_petpconsent auto
Spell Property SuH_sex_petnconsent auto
Spell Property SuH_sex_petpvictim auto
Spell Property SuH_sex_petnvictim auto

string petID

Event OnEffectStart(Actor akTarget, Actor akCaster)
	actor char = akTarget
	if char == SuH_actor_dog
		petID = "dog"
	elseif char == SuH_actor_wolf
		petID = "wolf"
	elseif char == SuH_actor_horse
		petID = "horse"
	elseIf char == SuH_actor_skeever
		petID = "skeever"
	elseIf char == SuH_actor_familiar
		petID = "familiar"
	elseIf char == SuH_actor_bear
		petID = "bear"
	elseIf char == SuH_actor_sabrecat
		petID = "sabrecat"
	elseIf char == SuH_actor_draugr
		petID = "draugr"
	elseIf char == SuH_actor_troll
		petID = "troll"
	elseIf char == SuH_actor_spriggan
		petID = "spriggan"
	elseIf char == SuH_actor_horker
		petID = "horker"
	elseIf char == SuH_actor_falmer
		petID = "falmer"
	endIf
	
	if char.HasSpell(SuH_sex_petpattacker)
		_Fun.xpPet(PetID, "a_p", actionID="orgasm")
	elseif char.HasSpell(SuH_sex_petnattacker)
		_Fun.xpPet(PetID, "a_n", actionID="orgasm")
	elseif char.HasSpell(SuH_sex_petpconsent)
		_Fun.xpPet(PetID, "c_p", actionID="orgasm")
	elseif char.HasSpell(SuH_sex_petnconsent)
		_Fun.xpPet(PetID, "c_n", actionID="orgasm")
	elseif char.HasSpell(SuH_sex_petpvictim)
		_Fun.xpPet(PetID, "v_p", actionID="orgasm")
	elseif char.HasSpell(SuH_sex_petnvictim)
		_Fun.xpPet(PetID, "v_n", actionID="orgasm")
	endIf
endEvent