Scriptname SuH_ss_selfsatisfyScript extends activemagiceffect  

;#Include
SexLabFramework property SexLab auto

Actor Property playerRef Auto

Event OnEffectStart(Actor cTarget,Actor cCaster)
	bool cV = SexLab.IsValidActor(cCaster)
	if cV == true
		Actor[] aniActors = new actor[1]
		aniActors[0] = cCaster
		sslBaseAnimation[] animSET = SexLab.GetAnimationsByTags(1, "", "")
		SexLab.StartSex(aniActors, animSET)
	else
		Debug.Notification("Seduction Failed : Target Not Valid")
	endIf
endEvent