strip armor from npc (coding help needed)

[Bush_Connoisseur]

So when using SL Defeat 5.3.5 when one chooses the option of (Rape) when an npc is tied up the PC strips each article of clothing or armor off of the npc and throws the item to the ground before commencing to probe orifices of said NPC. Its the only mod I've seen in my vast experience of being a lover's lab neophyte that does this. I'd like to isolate this striping feature and not initiate sex so I can perform it on both genders preferably via dialogue and not feel like a homosexual (no offense to my homo brothers) its just a hang up I have. I'm not concerned w/ the $STEAL variable.

 

However I'm kinda at a loss with what to do and the actual implementation of it. I think I've isolated the function starting at line 1947 and ending at 1973 in DefeatActionScr.psc any genius/skilled programmer feel free to help me out w/ this

 

p.s. I was thinking of global variables in the ESP to designate which item slots to strip. Not concerned w/ an MCM either.

 

Function PieceToStrip(Actor Victim, Actor Aggressor, String Way, Int Slot, Form Weapons = None, Float WaitTime = 1.5, String Animation = "DefeatPickUp")
	Form Equipped
	If Weapons
		Equipped = Weapons
	Else
		Equipped = Victim.GetWornForm(Slot)
	Endif
	If (Equipped && (Way != "$Disabled"))
		If !Equipped.HasKeyWordString("SexLabNoStrip")
			If (Slot == 0x00000004)
				Animation = "DefeatStripAnim"
				WaitTime = 2.5
			Endif
			SendAnimationEvent(Aggressor, Animation)
			Wait(WaitTime)
			If (Way == "$UNEQUIP")
				Victim.UnequipItem(Equipped, False, True)
			Elseif (Way == "$STRIP")
				Victim.UnequipItem(Equipped, False, True)
				Victim.DropObject(Equipped)
			Elseif (Way == "$STEAL")
				Victim.UnequipItem(Equipped, False, True)
				Victim.RemoveItem(Equipped, 1, True, Aggressor)
			Endif
		Endif
	Endif
EndFunction