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

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"
	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