code:
:: Widgets Strip [widget]

<<widget "upperstrip">><<nobr>>
<<set $upperlast to $upperclothes>>

<<if $uppertemp is 1>>
<<else>>
<<if $upperclothes is "sundress">>
<<set $uppersundressintegrity to $upperintegrity>>
<<set $upperoff to "sundress">>
<</if>>
<<if $upperclothes is "pyjama shirt">>
<<set $upperpjsintegrity to $upperintegrity>>
<<set $upperoff to "pyjama shirt">>
<</if>>
<<if $upperclothes is "towel">>
<<set $uppertowelintegrity to $upperintegrity>>
<<set $upperoff to "towel">>
<</if>>
<<if $upperclothes is "bikini top">>
<<set $upperbikiniintegrity to $upperintegrity>>
<<set $upperoff to "bikini top">>
<</if>>
<<if $upperclothes is "t-shirt">>
<<set $tshirtintegrity to $upperintegrity>>
<<set $upperoff to "t-shirt">>
<</if>>
<<if $upperclothes is "school shirt">>
<<set $schoolshirtintegrity to $upperintegrity>>
<<set $upperoff to "school shirt">>
<</if>>
<<if $upperclothes is "school swimsuit">>
<<set $upperschoolswimsuitintegrity to $upperintegrity>>
<<set $upperoff to "school swimsuit">>
<</if>>
<<if $upperclothes is "plant top">>
<<set $upperplantintegrity to $upperintegrity>>
<<set $upperoff to "plant top">>
<</if>>
<<if $upperclothes is "evening gown">>
<<set $uppereveninggownintegrity to $upperintegrity>>
<<set $upperoff to "evening gown">>
<</if>>
<<if $upperclothes is "tank top">>
<<set $tanktopintegrity to $upperintegrity>>
<<set $upperoff to "tank top">>
<</if>>
<</if>>
<</nobr>><</widget>>

<<widget "lowerstrip">><<nobr>>
<<set $lowerlast to $lowerclothes>>

<<if $lowertemp is 1>>
<<else>>
<<if $lowerclothes is "sundress skirt">>
<<set $lowersundressintegrity to $lowerintegrity>>
<<set $loweroff to "sundress skirt">>
<</if>>
<<if $lowerclothes is "pyjama bottoms">>
<<set $lowerpjsintegrity to $lowerintegrity>>
<<set $loweroff to "pyjama bottoms">>
<</if>>
<<if $lowerclothes is "towel">>
<<set $lowertowelintegrity to $lowerintegrity>>
<<set $loweroff to "towel">>
<</if>>
<<if $lowerclothes is "bikini bottoms">>
<<set $lowerbikiniintegrity to $lowerintegrity>>
<<set $loweroff to "bikini bottoms">>
<</if>>
<<if $lowerclothes is "waist apron">>
<<set $waistapronintegrity to $lowerintegrity>>
<<set $loweroff to "waist apron">>
<</if>>
<<if $lowerclothes is "shorts">>
<<set $shortsintegrity to $lowerintegrity>>
<<set $loweroff to "shorts">>
<</if>>
<<if $lowerclothes is "school shorts">>
<<set $schoolshortsintegrity to $lowerintegrity>>
<<set $loweroff to "school shorts">>
<</if>>
<<if $lowerclothes is "school skirt">>
<<set $schoolskirtintegrity to $lowerintegrity>>
<<set $loweroff to "school skirt">>
<</if>>
<<if $lowerclothes is "school swimsuit bottom">>
<<set $lowerschoolswimsuitintegrity to $lowerintegrity>>
<<set $loweroff to "school swimsuit bottom">>
<</if>>
<<if $lowerclothes is "school swim shorts">>
<<set $schoolswimshortsintegrity to $lowerintegrity>>
<<set $loweroff to "school swim shorts">>
<</if>>
<<if $lowerclothes is "plant skirt">>
<<set $lowerplantintegrity to $lowerintegrity>>
<<set $loweroff to "plant skirt">>
<</if>>
<<if $lowerclothes is "evening gown skirt">>
<<set $lowereveninggownintegrity to $lowerintegrity>>
<<set $loweroff to "evening gown skirt">>
<</if>>
<</if>>
<</nobr>><</widget>>

<<widget "understrip">><<nobr>>
<<set $underlast to $underclothes>>

<<if $undertemp is 1>>
<<else>>
<<if $underclothes is "plain panties">>
<<set $plainpantiesintegrity to $underintegrity>>
<<set $underoff to "plain panties">>
<</if>>
<<if $underclothes is "lace panties">>
<<set $lacepantiesintegrity to $underintegrity>>
<<set $underoff to "lace panties">>
<</if>>
<<if $underclothes is "Y fronts">>
<<set $yfrontsintegrity to $underintegrity>>
<<set $underoff to "Y fronts">>
<</if>>
<<if $underclothes is "chastity belt">>
<<set $chastitybeltintegrity to $underintegrity>>
<<set $underoff to "chastity belt">>
<</if>>
<<if $underclothes is "tights">>
<<set $tightsintegrity to $underintegrity>>
<<set $underoff to "tights">>
<</if>>
<</if>>
<</nobr>><</widget>>

<<widget "upperruined">><<nobr>><<set $ruined to 1>><<set $eventskipoverrule to 1>><<set $uncladupper to 0>><<set $uncladoutfit to 0>>
<<if $uppertemp is 1>>
<<uppernaked>>
<<set $upperoff to 0>>
<<else>>

<<if $upperclothes is "sundress">>
<<set $uppersundressno to 0>>
<<uppernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 750>>
		<<set $clothingrebuytext to 1>>
		<<set $uppersundressnew to 1>>
		<<set $uppersundressno to 1>>
		<<set $lowersundressnew to 1>>
		<<set $lowersundressno to 1>>
		<<set $money -= 750>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $upperoff to 0>>
<</if>>
<<if $upperclothes is "pyjama shirt">>
<<set $upperpjsno to 0>>
<<uppernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 1000>>
		<<set $clothingrebuytext to 1>>
		<<set $upperpjsnew to 1>>
		<<set $upperpjsno to 1>>
		<<set $money -= 1000>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $upperoff to 0>>
<</if>>
<<if $upperclothes is "towel">>
<<set $uppertowelno to 0>>
<<uppernaked>>
<<set $upperoff to 0>>
<</if>>
<<if $upperclothes is "bikini top">>
<<set $upperbikinino to 0>>
<<uppernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 1000>>
		<<set $clothingrebuytext to 1>>
		<<set $upperbikininew to 1>>
		<<set $upperbikinino to 1>>
		<<set $money -= 1000>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $upperoff to 0>>
<</if>>
<<if $upperclothes is "t-shirt">>
<<set $tshirtno to 0>>
<<uppernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 1000>>
		<<set $clothingrebuytext to 1>>
		<<set $tshirtnew to 1>>
		<<set $tshirtno to 1>>
		<<set $money -= 1000>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $upperoff to 0>>
<</if>>
<<if $upperclothes is "school shirt">>
<<set $schoolshirtno to 0>>
<<uppernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 2500>>
		<<set $clothingrebuytext to 1>>
		<<set $schoolshirtnew to 1>>
		<<set $schoolshirtno to 1>>
		<<set $money -= 2500>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $upperoff to 0>>
<</if>>
<<if $upperclothes is "school swimsuit">>
<<set $upperschoolswimsuitno to 0>>
<<uppernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 750>>
		<<set $clothingrebuytext to 1>>
		<<set $upperschoolswimsuitnew to 1>>
		<<set $upperschoolswimsuitno to 1>>
		<<set $lowerschoolswimsuitnew to 1>>
		<<set $lowerschoolswimsuitno to 1>>
		<<set $money -= 750>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $upperoff to 0>>
<</if>>
<<if $upperclothes is "plant top">>
<<set $upperplantno to 0>>
<<uppernaked>>
<<set $upperoff to 0>>
<</if>>
<<if $upperclothes is "evening gown">>
<<set $uppereveninggownno to 0>>
<<uppernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 6000>>
		<<set $clothingrebuytext to 1>>
		<<set $uppereveninggownnew to 1>>
		<<set $uppereveninggownno to 1>>
		<<set $lowereveninggownnew to 1>>
		<<set $lowereveninggownno to 1>>
		<<set $money -= 6000>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $upperoff to 0>>
<</if>>
<<if $upperclothes is "tank top">>
<<set $tanktopno to 0>>
<<uppernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 1000>>
		<<set $clothingrebuytext to 1>>
		<<set $tanktopnew to 1>>
		<<set $tanktopno to 1>>
		<<set $money -= 1000>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $upperoff to 0>>
<</if>>

<</if>>
<<set $ruined to 0>><</nobr>><</widget>>

<<widget "lowerruined">><<nobr>><<set $ruined to 1>><<set $eventskipoverrule to 1>><<set $uncladlower to 0>><<set $uncladoutfit to 0>>
<<if $lowertemp is 1>>
<<lowernaked>>
<<set $loweroff to 0>>
<<else>>
<<if $lowerclothes is "sundress skirt">>
<<set $lowersundressno to 0>>
<<lowernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 750>>
		<<set $clothingrebuytext to 1>>
		<<set $uppersundressnew to 1>>
		<<set $uppersundressno to 1>>
		<<set $lowersundressnew to 1>>
		<<set $lowersundressno to 1>>
		<<set $money -= 750>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $loweroff to 0>>
<</if>>
<<if $lowerclothes is "pyjama bottoms">>
<<set $lowerpjsno to 0>>
<<lowernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 1000>>
		<<set $clothingrebuytext to 1>>
		<<set $lowerpjsnew to 1>>
		<<set $lowerpjsno to 1>>
		<<set $money -= 1000>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $loweroff to 0>>
<</if>>
<<if $lowerclothes is "towel">>
<<set $lowertowelno to 0>>
<<lowernaked>>
<<set $loweroff to 0>>
<</if>>
<<if $lowerclothes is "bikini bottoms">>
<<set $lowerbikinino to 0>>
<<lowernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 3000>>
		<<set $clothingrebuytext to 1>>
		<<set $lowerbikininew to 1>>
		<<set $lowerbikinino to 1>>
		<<set $money -= 3000>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $loweroff to 0>>
<</if>>
<<if $lowerclothes is "waist apron">>
<<set $waistapronno to 0>>
<<lowernaked>>
<<set $loweroff to 0>>
<</if>>
<<if $lowerclothes is "shorts">>
<<set $shortsno to 0>>
<<lowernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 1000>>
		<<set $clothingrebuytext to 1>>
		<<set $shortsnew to 1>>
		<<set $shortsno to 1>>
		<<set $money -= 1000>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $loweroff to 0>>
<</if>>
<<if $lowerclothes is "school shorts">>
<<set $schoolshortsno to 0>>
<<lowernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 2000>>
		<<set $clothingrebuytext to 1>>
		<<set $schoolshortsnew to 1>>
		<<set $schoolshortsno to 1>>
		<<set $money -= 2000>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $loweroff to 0>>
<</if>>
<<if $lowerclothes is "school skirt">>
<<set $schoolskirtno to 0>>
<<lowernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 2000>>
		<<set $clothingrebuytext to 1>>
		<<set $schoolskirtnew to 1>>
		<<set $schoolskirtno to 1>>
		<<set $money -= 2000>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $loweroff to 0>>
<</if>>
<<if $lowerclothes is "school swimsuit bottom">>
<<set $lowerschoolswimsuitno to 0>>
<<lowernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 750>>
		<<set $clothingrebuytext to 1>>
		<<set $upperschoolswimsuitnew to 1>>
		<<set $upperschoolswimsuitno to 1>>
		<<set $lowerschoolswimsuitnew to 1>>
		<<set $lowerschoolswimsuitno to 1>>
		<<set $money -= 750>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $loweroff to 0>>
<</if>>
<<if $lowerclothes is "school swim shorts">>
<<set $schoolswimshortsno to 0>>
<<lowernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 1500>>
		<<set $clothingrebuytext to 1>>
		<<set $schoolswimshortsnew to 1>>
		<<set $schoolswimshortsno to 1>>
		<<set $money -= 1500>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $loweroff to 0>>
<</if>>
<<if $lowerclothes is "plant skirt">>
<<set $lowerplantno to 0>>
<<lowernaked>>
<<set $loweroff to 0>>
<</if>>
<<if $lowerclothes is "evening gown skirt">>
<<set $lowereveninggownno to 0>>
<<lowernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 6000>>
		<<set $clothingrebuytext to 1>>
		<<set $uppereveninggownnew to 1>>
		<<set $uppereveninggownno to 1>>
		<<set $lowereveninggownnew to 1>>
		<<set $lowereveninggownno to 1>>
		<<set $money -= 6000>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $loweroff to 0>>
<</if>>

<</if>>
<<set $ruined to 0>><</nobr>><</widget>>

<<widget "underruined">><<nobr>><<set $ruined to 1>><<set $eventskipoverrule to 1>><<set $uncladunder to 0>>
<<if $undertemp is 1>>
<<undernaked>>
<<set $underoff to 0>>
<<else>>
<<if $underclothes is "plain panties">>
<<set $plainpantiesno to 0>>
<<undernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 200>>
		<<set $clothingrebuytext to 1>>
		<<set $plainpantiesnew to 1>>
		<<set $plainpantiesno to 1>>
		<<set $money -= 200>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $underoff to 0>>
<</if>>
<<if $underclothes is "lace panties">>
<<set $lacepantiesno to 0>>
<<undernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 600>>
		<<set $clothingrebuytext to 1>>
		<<set $lacepantiesnew to 1>>
		<<set $lacepantiesno to 1>>
		<<set $money -= 600>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $underoff to 0>>
<</if>>
<<if $underclothes is "Y fronts">>
<<set $yfrontsno to 0>>
<<undernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 200>>
		<<set $clothingrebuytext to 1>>
		<<set $yfrontsnew to 1>>
		<<set $yfrontsno to 1>>
		<<set $money -= 200>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $underoff to 0>>
<</if>>
<<if $underclothes is "tights">>
<<set $tightsno to 0>>
<<undernaked>>
	<<if $clothingrebuy is 1>>
		<<if $money gte 1200>>
		<<set $clothingrebuytext to 1>>
		<<set $tightsnew to 1>>
		<<set $tightsno to 1>>
		<<set $money -= 1200>>
		<<else>>
		<<set $clothingrebuyfailedtext to 1>>
		<</if>>
	<</if>>
<<set $underoff to 0>>
<</if>>
<<if $underclothes is "chastity belt">>
	<<if $undertype is "brokenchastity">>
<<set $chastitybeltno to 0>>
<<undernaked>>
<<set $underoff to 0>>
<<set $analshield to 0>>
	<<else>>
<<set $chastitybeltno to 1>>
<<chastitybelt>>
<<set $underoff to 0>>
	<</if>>
<</if>>

<</if>>

<<set $ruined to 0>><</nobr>><</widget>>

<<widget "upperon">><<nobr>>
<<if $upperoff isnot 0>>
<<set $upperwetcarry to $upperwet>><<set $upperwetstagecarry to $upperwetstage>>
<</if>>

<<if $upperoff is "sundress" and $uppersundressno gte 1>>
<<uppersundress>>
<</if>>
<<if $upperoff is "pyjama shirt" and $upperpjsno gte 1>>
<<upperpjs>>
<</if>>
<<if $upperoff is "towel">>
<<uppertowel>>
<</if>>
<<if $upperoff is "bikini top" and $upperbikinino gte 1>>
<<upperbikini>>
<</if>>
<<if $upperoff is "t-shirt" and $tshirtno gte 1>>
<<tshirt>>
<</if>>
<<if $upperoff is "school shirt" and $schoolshirtno gte 1>>
<<schoolshirt>>
<</if>>
<<if $upperoff is "school swimsuit" and $upperschoolswimsuitno gte 1>>
<<upperschoolswimsuit>>
<</if>>
<<if $upperoff is "plant top">>
<<upperplant>>
<</if>>
<<if $upperoff is "evening gown" and $uppereveninggownno gte 1>>
<<uppereveninggown>>
<</if>>
<<if $upperoff is "tank top" and $tanktopno gte 1>>
<<tanktop>>
<</if>>

<<set $upperoff to 0>>
<<if $upperwetcarry isnot 0>>
<<set $upperwet to $upperwetcarry>><<set $upperwetstage to $upperwetstagecarry>>
<</if>>
<<set $upperwetcarry to 0>><<set $upperwetstagecarry to 0>>

<</nobr>><</widget>>

<<widget "loweron">><<nobr>>
<<if $loweroff isnot 0>>
<<set $lowerwetcarry to $lowerwet>><<set $lowerwetstagecarry to $lowerwetstage>>
<</if>>

<<if $loweroff is "sundress skirt" and $lowersundressno gte 1>>
<<lowersundress>>
<</if>>
<<if $loweroff is "pyjama bottoms" and $lowerpjsno gte 1>>
<<lowerpjs>>
<</if>>
<<if $loweroff is "towel">>
<<lowertowel>>
<</if>>
<<if $loweroff is "bikini bottoms" and $lowerbikinino gte 1>>
<<lowerbikini>>
<</if>>
<<if $loweroff is "waist apron" and $waistapronno gte 1>>
<<waistapron>>
<</if>>
<<if $loweroff is "shorts" and $shortsno gte 1>>
<<shorts>>
<</if>>
<<if $loweroff is "school shorts" and $schoolshortsno gte 1>>
<<schoolshorts>>
<</if>>
<<if $loweroff is "school skirt" and $schoolskirtno gte 1>>
<<schoolskirt>>
<</if>>
<<if $loweroff is "school swimsuit bottom" and $lowerschoolswimsuitno gte 1>>
<<lowerschoolswimsuit>>
<</if>>
<<if $loweroff is "school swim shorts" and $schoolswimshortsno gte 1>>
<<schoolswimshorts>>
<</if>>
<<if $loweroff is "plant skirt">>
<<lowerplant>>
<</if>>
<<if $loweroff is "evening gown skirt" and $lowereveninggownno gte 1>>
<<lowereveninggown>>
<</if>>

<<set $loweroff to 0>>
<<if $lowerwetcarry isnot 0>>
<<set $lowerwet to $lowerwetcarry>><<set $lowerwetstage to $lowerwetstagecarry>>
<</if>>
<<set $lowerwetcarry to 0>><<set $lowerwetstagecarry to 0>>

<</nobr>><</widget>>

<<widget "underon">><<nobr>>
<<if $underoff isnot 0>>
<<set $underwetcarry to $underwet>><<set $underwetstagecarry to $underwetstage>>
<</if>>

<<if $underoff is "plain panties" and $plainpantiesno gte 1>>
<<plainpanties>>
<</if>>
<<if $underoff is "lace panties" and $lacepantiesno gte 1>>
<<lacepanties>>
<</if>>
<<if $underoff is "Y fronts" and $yfrontsno gte 1>>
<<yfronts>>
<</if>>
<<if $underoff is "chastity belt" and $chastitybeltno gte 1>>
<<chastitybelt>>
<</if>>
<<if $underoff is "tights" and $tightsno gte 1>>
<<tights>>
<</if>>

<<set $underoff to 0>>
<<if $underwetcarry isnot 0>>
<<set $underwet to $underwetcarry>><<set $underwetstage to $underwetstagecarry>>
<</if>>
<<set $underwetcarry to 0>><<set $underwetstagecarry to 0>>

<</nobr>><</widget>>

<<widget "outfiton">><<nobr>>
<<upperon>>
<<loweron>>
<</nobr>><</widget>>

<<widget "clotheson">><<nobr>>
<<upperon>>
<<loweron>>
<<underon>>
<<set $uncladupper to 0>>
<<set $uncladlower to 0>>
<<set $uncladunder to 0>>
<<set $uncladoutfit to 0>>
<<set $unclad to 0>>
<<if $upperclothes is "naked" and $lowerclothes is "naked" and $underclothes is "naked">>
<<else>>
You fix your clothing.

<</if>>
<<set $upperstate to $upperstatebase>>
<<set $upperstatetop to $upperstatetopbase>>
<<set $lowerstate to $lowerstatebase>>
<<if $skirt is 1>>
<<set $skirtdown to 1>>
<</if>>
<<set $understate to $understatebase>>
<<set $upperexposed to $upperexposedbase>>
<<set $lowerexposed to $lowerexposedbase>>
<<set $lowervaginaexposed to $lowervaginaexposedbase>>
<<set $loweranusexposed to $loweranusexposedbase>>
<<set $underexposed to $underexposedbase>>
<<set $undervaginaexposed to $undervaginaexposedbase>>
<<set $underanusexposed to $underanusexposedbase>>
<<exposure>>
<<if $exposed gte 1>>
You are conscious of your <<nuditystop>>

<</if>>

<</nobr>><</widget>>

<<widget "clothesontowel">><<nobr>>
<<upperon>>
<<loweron>>
<<underon>>
<<set $uncladupper to 0>>
<<set $uncladlower to 0>>
<<set $uncladunder to 0>>
<<set $uncladoutfit to 0>>
<<set $unclad to 0>>
<<if $upperclothes is "naked" and $lowerclothes is "naked" and $underclothes is "naked">>
<<else>>
You fix your clothing.

<</if>>
<<set $upperstate to $upperstatebase>>
<<set $upperstatetop to $upperstatetopbase>>
<<set $lowerstate to $lowerstatebase>>
<<if $skirt is 1>>
<<set $skirtdown to 1>>
<</if>>
<<set $understate to $understatebase>>
<<set $upperexposed to $upperexposedbase>>
<<set $lowerexposed to $lowerexposedbase>>
<<set $lowervaginaexposed to $lowervaginaexposedbase>>
<<set $loweranusexposed to $loweranusexposedbase>>
<<set $underexposed to $underexposedbase>>
<<set $undervaginaexposed to $undervaginaexposedbase>>
<<set $underanusexposed to $underanusexposedbase>>
<<exposure>>
<<towelup>>
<<if $exposed gte 1>>
You are conscious of your <<nuditystop>>

<</if>>

<</nobr>><</widget>>

<<widget "uppersteal">><<nobr>>
<<if $upperoff is "sundress">><<uppersundress>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $upperclothes as a souvenir.

<</if>>
<<upperruined>><<set $upperoff to 0>><<uppernaked>>
<</if>>
<<if $upperoff is "pyjama shirt">><<upperpjs>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $upperclothes as a souvenir.

<</if>>
<<upperruined>><<set $upperoff to 0>><<uppernaked>>
<</if>>
<<if $upperoff is "towel">><<uppertowel>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $upperclothes as a souvenir.

<</if>>
<<upperruined>><<set $upperoff to 0>><<uppernaked>>
<</if>>
<<if $upperoff is "bikini top">><<upperbikini>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $upperclothes as a souvenir.

<</if>>
<<upperruined>><<set $upperoff to 0>><<uppernaked>>
<</if>>
<<if $upperoff is "t-shirt">><<tshirt>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $upperclothes as a souvenir.

<</if>>
<<upperruined>><<set $upperoff to 0>><<uppernaked>>
<</if>>
<<if $upperoff is "school shirt">><<schoolshirt>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $upperclothes as a souvenir.

<</if>>
<<upperruined>><<set $upperoff to 0>><<uppernaked>>
<</if>>
<<if $upperoff is "school swimsuit">><<upperschoolswimsuit>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $upperclothes as a souvenir.

<</if>>
<<upperruined>><<set $upperoff to 0>><<uppernaked>>
<</if>>
<<if $upperoff is "plant top">><<upperplant>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $upperclothes as a souvenir.

<</if>>
<<upperruined>><<set $upperoff to 0>><<uppernaked>>
<</if>>
<<if $upperoff is "evening gown">><<uppereveninggown>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $upperclothes as a souvenir.

<</if>>
<<upperruined>><<set $upperoff to 0>><<uppernaked>>
<</if>>
<<if $upperoff is "tank top">><<tanktop>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $upperclothes as a souvenir.

<</if>>
<<upperruined>><<set $upperoff to 0>><<uppernaked>>
<</if>>
<</nobr>><</widget>>

<<widget "lowersteal">><<nobr>>
<<if $loweroff is "sundress skirt">><<lowersundress>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $lowerclothes as a souvenir.

<</if>>
<<lowerruined>><<set $loweroff to 0>><<lowernaked>>
<</if>>
<<if $loweroff is "pyjama bottoms">><<lowerpjs>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $lowerclothes as a souvenir.

<</if>>
<<lowerruined>><<set $loweroff to 0>><<lowernaked>>
<</if>>
<<if $loweroff is "towel">><<lowertowel>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $lowerclothes as a souvenir.

<</if>>
<<lowerruined>><<set $loweroff to 0>><<lowernaked>>
<</if>>
<<if $loweroff is "bikini bottoms">><<lowerbikini>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $lowerclothes as a souvenir.

<</if>>
<<lowerruined>><<set $loweroff to 0>><<lowernaked>>
<</if>>
<<if $loweroff is "waist apron">><<waistapron>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $lowerclothes as a souvenir.

<</if>>
<<lowerruined>><<set $loweroff to 0>><<lowernaked>>
<</if>>
<<if $loweroff is "shorts">><<shorts>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $lowerclothes as a souvenir.

<</if>>
<<lowerruined>><<set $loweroff to 0>><<lowernaked>>
<</if>>
<<if $loweroff is "school shorts">><<schoolshorts>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $lowerclothes as a souvenir.

<</if>>
<<lowerruined>><<set $loweroff to 0>><<lowernaked>>
<</if>>
<<if $loweroff is "school skirt">><<schoolskirt>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $lowerclothes as a souvenir.

<</if>>
<<lowerruined>><<set $loweroff to 0>><<lowernaked>>
<</if>>
<<if $loweroff is "school swimsuit bottom">><<lowerschoolswimsuit>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $lowerclothes as a souvenir.

<</if>>
<<lowerruined>><<set $loweroff to 0>><<lowernaked>>
<</if>>
<<if $loweroff is "school swim shorts">><<schoolswimshorts>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $lowerclothes as a souvenir.

<</if>>
<<lowerruined>><<set $loweroff to 0>><<lowernaked>>
<</if>>
<<if $loweroff is "plant skirt">><<lowerplant>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $lowerclothes as a souvenir.

<</if>>
<<lowerruined>><<set $loweroff to 0>><<lowernaked>>
<</if>>
<<if $loweroff is "evening gown skirt">><<lowereveninggown>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $lowerclothes as a souvenir.

<</if>>
<<lowerruined>><<set $loweroff to 0>><<lowernaked>>
<</if>>
<</nobr>><</widget>>

<<widget "understeal">><<nobr>>
<<if $underoff is "plain panties">><<plainpanties>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $underclothes as a souvenir.

<</if>>
<<underruined>><<set $underoff to 0>><<undernaked>>
<</if>>
<<if $underoff is "lace panties">><<lacepanties>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $underclothes as a souvenir.

<</if>>
<<underruined>><<set $underoff to 0>><<undernaked>>
<</if>>
<<if $underoff is "Y fronts">><<yfronts>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $underclothes as a souvenir.

<</if>>
<<underruined>><<set $underoff to 0>><<undernaked>>
<</if>>
<<if $underoff is "tights">><<tights>>
<<if $stealtextskip isnot 1>><<He>> decides to keep your $underclothes as a souvenir.

<</if>>
<<underruined>><<set $underoff to 0>><<undernaked>>
<</if>>
<<if $underoff is "chastity belt">>
<</if>>
<</nobr>><</widget>>

<<widget "upperundress">><<nobr>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<lowernaked>><<set $loweroff to 0>><<set $lowerwet to 0>><<set $lowerwetstage to 0>>
	<</if>>
<<uppernaked>><<set $upperoff to 0>><<set $uncladupper to 0>><<set $uncladoutfit to 0>><<set $upperwet to 0>><<set $upperwetstage to 0>>
<</nobr>><</widget>>

<<widget "lowerundress">><<nobr>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<uppernaked>><<set $upperoff to 0>><<set $upperwet to 0>><<set $upperwetstage to 0>>
	<</if>>
<<lowernaked>><<set $loweroff to 0>><<set $uncladlower to 0>><<set $uncladoutfit to 0>><<set $lowerwet to 0>><<set $lowerwetstage to 0>>
<</nobr>><</widget>>

<<widget "underundress">><<nobr>>
<<undernaked>><<set $underoff to 0>><<set $uncladunder to 0>><<set $underwet to 0>><<set $underwetstage to 0>>
<</nobr>><</widget>>

<<widget "undress">><<nobr>>
<<upperundress>>
<<lowerundress>>
<<underundress>>
<</nobr>><</widget>>

<<widget "storeupper">><<nobr>>
<<if $uppertemp isnot 1>>
	<<if $uppertype isnot "naked">>
		<<if $upperset is $lowerset>>
		<<set $lowerstore to $lowerclothes>>
		<</if>>
	<<set $upperstore to $upperclothes>>
	<</if>>
<</if>>
<<upperundress>>
<</nobr>><</widget>>

<<widget "storelower">><<nobr>>
<<if $lowertemp isnot 1>>
	<<if $lowertype isnot "naked">>
		<<if $upperset is $lowerset>>
		<<set $upperstore to $upperclothes>>
		<</if>>
	<<set $lowerstore to $lowerclothes>>
	<</if>>
<</if>>
<<lowerundress>>
<</nobr>><</widget>>

<<widget "storeunder">><<nobr>>
<<if $undertemp isnot 1>>
	<<if $undertype isnot "naked" and $undertype isnot "chastity">>
	<<set $understore to $underclothes>>
	<</if>>
<</if>>
	<<underundress>>
<</nobr>><</widget>>

<<widget "storeclothes">><<nobr>>
<<storeupper>>
<<storelower>>
<<storeunder>>
<<if $location is "pool">>
	<<set $faceacccarry to $faceacc>>
	<<set $headacccarry to $headacc>>
	<<set $legsacccarry to $legsacc>>
	<<set $feetacccarry to $feetacc>>
	<<set $faceacc to 0>>
	<<set $headacc to 0>>
	<<set $legsacc to 0>>
	<<set $feetacc to 0>>
<</if>>
<</nobr>><</widget>>

<<widget "storeon">><<nobr>>
<<if $upperstore isnot 0>>
<<set $upperoff to $upperstore>>
<<set $upperstore to 0>>
<</if>>
<<if $lowerstore isnot 0>>
<<set $loweroff to $lowerstore>>
<<set $lowerstore to 0>>
<</if>>
<<if $understore isnot 0>>
<<set $underoff to $understore>>
<<set $understore to 0>>
<</if>>
<<if $location is "pool">>
<<set $faceacc to $faceacccarry>>
<<set $headacc to $headacccarry>>
<<set $legsacc to $legsacccarry>>
<<set $feetacc to $feetacccarry>>
<<set $faceacccarry to 0>>
<<set $headacccarry to 0>>
<<set $legsacccarry to 0>>
<<set $feetacccarry to 0>>
<</if>>
<<clotheson>>
<<set $storelocation to 0>>
<</nobr>><</widget>>

<<widget "storeclear">><<nobr>>
<<set $upperstore to 0>>
<<set $lowerstore to 0>>
<<set $understore to 0>>
<<set $storelocation to 0>>
<</nobr>><</widget>>

<<widget "storelocation">><<nobr>>
<<if $undertemp isnot 1 and $lowertemp isnot 1 and $uppertemp isnot 1>>
<<set $storelocation to $storelocationinit>>
<<else>>
<</if>>
<</nobr>><</widget>>


code:
function isSameTarget(a, b) {
	// Some targets are strings, other objects
	if(typeof(a) !== typeof(b)) {
		return false;
	}
	// If strings, compare as-is
	if(typeof(a) === "string") {
		return a === b;
	}
	// If objects, compare all components
	return a.action === b.action &&
		a.entity === b.entity &&
		a.part === b.part;
}
window.isSameTarget = isSameTarget; // export function

// Finds tentacle with head set to tentacleState
function findTentacleHead(tentacleState) {
	var allTentacles = SugarCube.State.variables["alltentacles"];
	for(var i = 0; i < allTentacles.length; i++) {
		if(allTentacles[i].head === tentacleState) {
			return i;
		}
	}
	return -1;
}
window.findTentacleHead = findTentacleHead;


code:
:: Widgets Actions Anus [widget]
<<widget "actionsanustopenis">><<nobr>>

<<if $analshield isnot 1>>
<<if $penis is 0>>
	<<if $consensual is 1 and $promiscuity lte 74 and $enemytype is "man" or $consensual is 1 and $deviancy lte 74 and $enemytype isnot "man">>
	<<else>>
		<<if $anusactiondefault is "anustopenis">>
| Straddle <<his>> penis <<radiobutton "$anusaction" "anustopenis" checked>><<analdifficulty>> <<combatpromiscuous5>>
		<<else>>
| Straddle <<his>> penis <<radiobutton "$anusaction" "anustopenis">><<analdifficulty>> <<combatpromiscuous5>>
		<</if>>
	<</if>>

<<elseif $penis2 is 0>>
	<<if $consensual is 1 and $promiscuity lte 74 and $enemytype is "man" or $consensual is 1 and $deviancy lte 74 and $enemytype isnot "man">>
	<<else>>
		<<if $anusactiondefault is "anustopenis">>
| Straddle <<his>> penis <<radiobutton "$anusaction" "anustopenis" checked>><<analdifficulty>> <<combatpromiscuous5>>
		<<else>>
| Straddle <<his>> penis <<radiobutton "$anusaction" "anustopenis">><<analdifficulty>> <<combatpromiscuous5>>
		<</if>>
	<</if>>

<<elseif $penis3 is 0>>
	<<if $consensual is 1 and $promiscuity lte 74 and $enemytype is "man" or $consensual is 1 and $deviancy lte 74 and $enemytype isnot "man">>
	<<else>>
		<<if $anusactiondefault is "anustopenis">>
| Straddle <<his>> penis <<radiobutton "$anusaction" "anustopenis" checked>><<analdifficulty>> <<combatpromiscuous5>>
		<<else>>
| Straddle <<his>> penis <<radiobutton "$anusaction" "anustopenis">><<analdifficulty>> <<combatpromiscuous5>>
		<</if>>
	<</if>>

<<elseif $penis4 is 0>>
	<<if $consensual is 1 and $promiscuity lte 74 and $enemytype is "man" or $consensual is 1 and $deviancy lte 74 and $enemytype isnot "man">>
	<<else>>
		<<if $anusactiondefault is "anustopenis">>
| Straddle <<his>> penis <<radiobutton "$anusaction" "anustopenis" checked>><<analdifficulty>> <<combatpromiscuous5>>
		<<else>>
| Straddle <<his>> penis <<radiobutton "$anusaction" "anustopenis">><<analdifficulty>> <<combatpromiscuous5>>
		<</if>>
	<</if>>

<<elseif $penis5 is 0>>
	<<if $consensual is 1 and $promiscuity lte 74 and $enemytype is "man" or $consensual is 1 and $deviancy lte 74 and $enemytype isnot "man">>
	<<else>>
		<<if $anusactiondefault is "anustopenis">>
| Straddle <<his>> penis <<radiobutton "$anusaction" "anustopenis" checked>><<analdifficulty>> <<combatpromiscuous5>>
		<<else>>
| Straddle <<his>> penis <<radiobutton "$anusaction" "anustopenis">><<analdifficulty>> <<combatpromiscuous5>>
		<</if>>
	<</if>>

<<elseif $penis6 is 0>>
	<<if $consensual is 1 and $promiscuity lte 74 and $enemytype is "man" or $consensual is 1 and $deviancy lte 74 and $enemytype isnot "man">>
	<<else>>
		<<if $anusactiondefault is "anustopenis">>
| Straddle <<his>> penis <<radiobutton "$anusaction" "anustopenis" checked>><<analdifficulty>> <<combatpromiscuous5>>
		<<else>>
| Straddle <<his>> penis <<radiobutton "$anusaction" "anustopenis">><<analdifficulty>> <<combatpromiscuous5>>
		<</if>>
	<</if>>

<</if>>
<</if>>

<</nobr>><</widget>>

<<widget "actionsanuspenisfuck">><<nobr>>

<<if $underanusexposed is 1 and $loweranusexposed is 1>>

<<if $penis is "anusentrance" or $penis is "anusimminent">>
	<<if $consensual is 1 and $promiscuity lte 74 and $enemytype is "man" or $consensual is 1 and $deviancy lte 74 and $enemytype isnot "man">>
	<<else>>
		<<if $anusactiondefault is "anuspenisfuck">>
| Envelop <<his>> penis <<radiobutton "$anusaction" "anuspenisfuck" checked>> <<combatpromiscuous5>><<analvirginitywarning>>
		<<else>>
| Envelop <<his>> penis <<radiobutton "$anusaction" "anuspenisfuck">> <<combatpromiscuous5>><<analvirginitywarning>>
		<</if>>
	<</if>>

<<elseif $penis2 is "anusentrance" or $penis2 is "anusimminent">>
	<<if $consensual is 1 and $promiscuity lte 74 and $enemytype is "man" or $consensual is 1 and $deviancy lte 74 and $enemytype isnot "man">>
	<<else>>
		<<if $anusactiondefault is "anuspenisfuck">>
| Envelop <<his>> penis <<radiobutton "$anusaction" "anuspenisfuck" checked>> <<combatpromiscuous5>><<analvirginitywarning>>
		<<else>>
| Envelop <<his>> penis <<radiobutton "$anusaction" "anuspenisfuck">> <<combatpromiscuous5>><<analvirginitywarning>>
		<</if>>
	<</if>>

<<elseif $penis3 is "anusentrance" or $penis3 is "anusimminent">>
	<<if $consensual is 1 and $promiscuity lte 74 and $enemytype is "man" or $consensual is 1 and $deviancy lte 74 and $enemytype isnot "man">>
	<<else>>
		<<if $anusactiondefault is "anuspenisfuck">>
| Envelop <<his>> penis <<radiobutton "$anusaction" "anuspenisfuck" checked>> <<combatpromiscuous5>><<analvirginitywarning>>
		<<else>>
| Envelop <<his>> penis <<radiobutton "$anusaction" "anuspenisfuck">> <<combatpromiscuous5>><<analvirginitywarning>>
		<</if>>
	<</if>>

<<elseif $penis4 is "anusentrance" or $penis4 is "anusimminent">>
	<<if $consensual is 1 and $promiscuity lte 74 and $enemytype is "man" or $consensual is 1 and $deviancy lte 74 and $enemytype isnot "man">>
	<<else>>
		<<if $anusactiondefault is "anuspenisfuck">>
| Envelop <<his>> penis <<radiobutton "$anusaction" "anuspenisfuck" checked>> <<combatpromiscuous5>><<analvirginitywarning>>
		<<else>>
| Envelop <<his>> penis <<radiobutton "$anusaction" "anuspenisfuck">> <<combatpromiscuous5>><<analvirginitywarning>>
		<</if>>
	<</if>>

<<elseif $penis5 is "anusentrance" or $penis5 is "anusimminent">>
	<<if $consensual is 1 and $promiscuity lte 74 and $enemytype is "man" or $consensual is 1 and $deviancy lte 74 and $enemytype isnot "man">>
	<<else>>
		<<if $anusactiondefault is "anuspenisfuck">>
| Envelop <<his>> penis <<radiobutton "$anusaction" "anuspenisfuck" checked>> <<combatpromiscuous5>><<analvirginitywarning>>
		<<else>>
| Envelop <<his>> penis <<radiobutton "$anusaction" "anuspenisfuck">> <<combatpromiscuous5>><<analvirginitywarning>>
		<</if>>
	<</if>>

<<elseif $penis6 is "anusentrance" or $penis6 is "anusimminent">>
	<<if $consensual is 1 and $promiscuity lte 74 and $enemytype is "man" or $consensual is 1 and $deviancy lte 74 and $enemytype isnot "man">>
	<<else>>
		<<if $anusactiondefault is "anuspenisfuck">>
| Envelop <<his>> penis <<radiobutton "$anusaction" "anuspenisfuck" checked>> <<combatpromiscuous5>><<analvirginitywarning>>
		<<else>>
| Envelop <<his>> penis <<radiobutton "$anusaction" "anuspenisfuck">> <<combatpromiscuous5>><<analvirginitywarning>>
		<</if>>
	<</if>>

<</if>>

<</if>>

<</nobr>><</widget>>

:: Widgets Effects Anus [widget]
<<widget "effectsanustopenis">><<nobr>>

<<if $anusaction is "anustopenis">><<set $anusaction to 0>><<submission 10>><<analskilluse>><<set $anusactiondefault to "anustopenis">><<combatpromiscuity5>>
	<<if (1000 - ($rng * 10) - ($enemytrust * 10) - $analskill + $enemyanger) lte (($enemyarousalmax / ($enemyarousal + 1)) * 100)>>

		<<if $penis is 0>>
		<<submission 2>><<set $anususe to "penis">><<set $penis to "anusentrance">><<set $anusstate to "entrance">>You straddle the <<person1>><<combatperson>> and press <<his1>> penis with your <<bottomstop>>
		<<elseif $penis2 is 0>>
		<<submission 2>><<set $anususe to "penis">><<set $penis2 to "anusentrance">><<set $anusstate to "entrance">>You straddle the <<person2>><<combatperson>> and press <<his2>> penis with your <<bottomstop>>
		<<elseif $penis3 is 0>>
		<<submission 2>><<set $anususe to "penis">><<set $penis3 to "anusentrance">><<set $anusstate to "entrance">>You straddle the <<person3>><<combatperson>> and press <<his3>> penis with your <<bottomstop>>
		<<elseif $penis4 is 0>>
		<<submission 2>><<set $anususe to "penis">><<set $penis4 to "anusentrance">><<set $anusstate to "entrance">>You straddle the <<person4>><<combatperson>> and press <<his4>> penis with your <<bottomstop>>
		<<elseif $penis5 is 0>>
		<<submission 2>><<set $anususe to "penis">><<set $penis5 to "anusentrance">><<set $anusstate to "entrance">>You straddle the <<person5>><<combatperson>> and press <<his5>> penis with your <<bottomstop>>
		<<elseif $penis6 is 0>>
		<<submission 2>><<set $anususe to "penis">><<set $penis6 to "anusentrance">><<set $anusstate to "entrance">>You straddle the <<person6>><<combatperson>> and press <<his6>> penis with your <<bottomstop>>
		<</if>>
	<<else>>
		<<if $penis is 0>>
		You try to straddle the <<person1>><<combatperson>> but <<he>> pushes you off.
		<<elseif $penis2 is 0>>
		You try to straddle the <<person2>><<combatperson>> but <<he>> pushes you off.
		<<elseif $penis3 is 0>>
		You try to straddle the <<person3>><<combatperson>> but <<he>> pushes you off.
		<<elseif $penis4 is 0>>
		You try to straddle the <<person4>><<combatperson>> but <<he>> pushes you off.
		<<elseif $penis5 is 0>>
		You try to straddle the <<person5>><<combatperson>> but <<he>> pushes you off.
		<<elseif $penis6 is 0>>
		You try to straddle the <<person6>><<combatperson>> but <<he>> pushes you off.
		<</if>>
	<</if>>
<</if>>

<</nobr>><</widget>>

<<widget "effectsanuspenisfuck">><<nobr>>

<<if $anusaction is "anuspenisfuck">><<set $anusaction to 0>><<submission 20>><<analskilluse>><<set $anusactiondefault to "anuspenisfuck">><<combatpromiscuity5>>

	<<if $analvirginity is 0>>
		<<if $penis is "anusentrance" or $penis is "anusimminent">><<set $penis to "anus">>
		You <<analtext>> push against the <<person1>><<combatpersons>> penis, taking it deep into your <<bottomstop>>
		<<elseif $penis2 is "anusentrance" or $penis2 is "anusimminent">><<set $penis2 to "anus">>
		You <<analtext>> push against the <<person2>><<combatpersons>> penis, taking it deep into your <<bottomstop>>
		<<elseif $penis3 is "anusentrance" or $penis3 is "anusimminent">><<set $penis3 to "anus">>
		You <<analtext>> push against the <<person3>><<combatpersons>> penis, taking it deep into your <<bottomstop>>
		<<elseif $penis4 is "anusentrance" or $penis4 is "anusimminent">><<set $penis4 to "anus">>
		You <<analtext>> push against the <<person4>><<combatpersons>> penis, taking it deep into your <<bottomstop>>
		<<elseif $penis5 is "anusentrance" or $penis5 is "anusimminent">><<set $penis5 to "anus">>
		You <<analtext>> push against the <<person5>><<combatpersons>> penis, taking it deep into your <<bottomstop>>
		<<elseif $penis6 is "anusentrance" or $penis6 is "anusimminent">><<set $penis6 to "anus">>
		You <<analtext>> push against the <<person6>><<combatpersons>> penis, taking it deep into your <<bottomstop>>
		<</if>>
	<<sex 30>><<analstat>><<raped>><<anusraped>><<set $anusstate to "penetrated">><<set $speechanuspenetrated to 1>>

	<<elseif $analvirginity is 1>>
		<<if $penis is "anusentrance" or $penis is "anusimminent">><<set $penis to "anus">>
		You <<analtext>> push against the <<person1>><<combatpersons>> penis, taking it deep into your virgin <<bottomstop>>
		<<elseif $penis2 is "anusentrance" or $penis2 is "anusimminent">><<set $penis2 to "anus">>
		You <<analtext>> push against the <<person2>><<combatpersons>> penis, taking it deep into your virgin <<bottomstop>>
		<<elseif $penis3 is "anusentrance" or $penis3 is "anusimminent">><<set $penis3 to "anus">>
		You <<analtext>> push against the <<person3>><<combatpersons>> penis, taking it deep into your virgin <<bottomstop>>
		<<elseif $penis4 is "anusentrance" or $penis4 is "anusimminent">><<set $penis4 to "anus">>
		You <<analtext>> push against the <<person4>><<combatpersons>> penis, taking it deep into your virgin <<bottomstop>>
		<<elseif $penis5 is "anusentrance" or $penis5 is "anusimminent">><<set $penis5 to "anus">>
		You <<analtext>> push against the <<person5>><<combatpersons>> penis, taking it deep into your virgin <<bottomstop>>
		<<elseif $penis6 is "anusentrance" or $penis6 is "anusimminent">><<set $penis6 to "anus">>
		You <<analtext>> push against the <<person6>><<combatpersons>> penis, taking it deep into your virgin <<bottomstop>>
		<</if>>
	<<sex 100>><<set $analvirginity to 0>><<bruise anus>><<analstat>><<violence 30>><<raped>><<anusraped>><<set $anusstate to "penetrated">><<set $speechanusvirgin to 1>>
	<</if>>

<</if>>

<</nobr>><</widget>>


code:
:: Widgets Actions Feet [widget]
<<widget "feetgrab">><<nobr>>

	<<if $consensual is 1 and $promiscuity lte 34 and $enemytype is "man" or $consensual is 1 and $deviancy lte 34 and $enemytype isnot "man">>
	<<elseif $beaststance isnot "topface">>
		<<if $penis is 0>>
			<<if $feetactiondefault is "grab">>
		| Grab <<his>> penis <<radiobutton "$feetaction" "grab" checked>><<feetdifficulty>> <<combatpromiscuous3>>
			<<else>>
		| Grab <<his>> penis <<radiobutton "$feetaction" "grab">><<feetdifficulty>> <<combatpromiscuous3>>
			<</if>>

		<<elseif $penis2 is 0>>
			<<if $feetactiondefault is "grab">>
		| Grab <<his>> penis <<radiobutton "$feetaction" "grab" checked>><<feetdifficulty>> <<combatpromiscuous3>>
			<<else>>
		| Grab <<his>> penis <<radiobutton "$feetaction" "grab">><<feetdifficulty>> <<combatpromiscuous3>>
			<</if>>

		<<elseif $penis3 is 0>>
			<<if $feetactiondefault is "grab">>
		| Grab <<his>> penis <<radiobutton "$feetaction" "grab" checked>><<feetdifficulty>> <<combatpromiscuous3>>
			<<else>>
		| Grab <<his>> penis <<radiobutton "$feetaction" "grab">><<feetdifficulty>> <<combatpromiscuous3>>
			<</if>>

		<<elseif $penis4 is 0>>
			<<if $feetactiondefault is "grab">>
		| Grab <<his>> penis <<radiobutton "$feetaction" "grab" checked>><<feetdifficulty>> <<combatpromiscuous3>>
			<<else>>
		| Grab <<his>> penis <<radiobutton "$feetaction" "grab">><<feetdifficulty>> <<combatpromiscuous3>>
			<</if>>

		<<elseif $penis5 is 0>>
			<<if $feetactiondefault is "grab">>
		| Grab <<his>> penis <<radiobutton "$feetaction" "grab" checked>><<feetdifficulty>> <<combatpromiscuous3>>
			<<else>>
		| Grab <<his>> penis <<radiobutton "$feetaction" "grab">><<feetdifficulty>> <<combatpromiscuous3>>
			<</if>>

		<<elseif $penis6 is 0>>
			<<if $feetactiondefault is "grab">>
		| Grab <<his>> penis <<radiobutton "$feetaction" "grab" checked>><<feetdifficulty>> <<combatpromiscuous3>>
			<<else>>
		| Grab <<his>> penis <<radiobutton "$feetaction" "grab">><<feetdifficulty>> <<combatpromiscuous3>>
			<</if>>

		<</if>>

		<<if $vagina is 0>>
			<<if $feetactiondefault is "vaginagrab">>
		| Press your feet against <<his>> pussy <<radiobutton "$feetaction" "vaginagrab" checked>><<feetdifficulty>> <<combatpromiscuous3>>
			<<else>>
		| Press your feet against <<his>> pussy <<radiobutton "$feetaction" "vaginagrab">><<feetdifficulty>> <<combatpromiscuous3>>
			<</if>>

		<<elseif $vagina2 is 0>>
			<<if $feetactiondefault is "vaginagrab">>
		| Press your feet against <<his>> pussy <<radiobutton "$feetaction" "vaginagrab" checked>><<feetdifficulty>> <<combatpromiscuous3>>
			<<else>>
		| Press your feet against <<his>> pussy <<radiobutton "$feetaction" "vaginagrab">><<feetdifficulty>> <<combatpromiscuous3>>
			<</if>>

		<<elseif $vagina3 is 0>>
			<<if $feetactiondefault is "vaginagrab">>
		| Press your feet against <<his>> pussy <<radiobutton "$feetaction" "vaginagrab" checked>><<feetdifficulty>> <<combatpromiscuous3>>
			<<else>>
		| Press your feet against <<his>> pussy <<radiobutton "$feetaction" "vaginagrab">><<feetdifficulty>> <<combatpromiscuous3>>
			<</if>>

		<<elseif $vagina4 is 0>>
			<<if $feetactiondefault is "vaginagrab">>
		| Press your feet against <<his>> pussy <<radiobutton "$feetaction" "vaginagrab" checked>><<feetdifficulty>> <<combatpromiscuous3>>
		<<else>>
		| Press your feet against <<his>> pussy <<radiobutton "$feetaction" "vaginagrab">><<feetdifficulty>> <<combatpromiscuous3>>
			<</if>>

		<<elseif $vagina5 is 0>>
			<<if $feetactiondefault is "vaginagrab">>
		| Press your feet against <<his>> pussy <<radiobutton "$feetaction" "vaginagrab" checked>><<feetdifficulty>> <<combatpromiscuous3>>
			<<else>>
		| Press your feet against <<his>> pussy <<radiobutton "$feetaction" "vaginagrab">><<feetdifficulty>> <<combatpromiscuous3>>
			<</if>>

		<<elseif $vagina6 is 0>>
			<<if $feetactiondefault is "vaginagrab">>
		| Press your feet against <<his>> pussy <<radiobutton "$feetaction" "vaginagrab" checked>><<feetdifficulty>> <<combatpromiscuous3>>
			<<else>>
		| Press your feet against <<his>> pussy <<radiobutton "$feetaction" "vaginagrab">><<feetdifficulty>> <<combatpromiscuous3>>
			<</if>>
		<</if>>
	<</if>>

<</nobr>><</widget>>


code:
:: Widgets Actions Left Hand [widget]
<<widget "leftgrab">><<nobr>>

<<if $penis is 0>>
	<<if $consensual is 1 and $promiscuity lte 34 and $enemytype is "man" or $consensual is 1 and $deviancy lte 34 and $enemytype isnot "man">>
	<<else>>
		<<if $leftactiondefault is "leftgrab">>
| Grab <<his>> penis <<radiobutton "$leftaction" "leftgrab" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
| Grab <<his>> penis <<radiobutton "$leftaction" "leftgrab">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>
	<</if>>
	<<if $leftactiondefault is "leftstroke">>
| Stroke <<his>> penis <<radiobutton "$leftaction" "leftstroke" checked>>
	<<else>>
| Stroke <<his>> penis <<radiobutton "$leftaction" "leftstroke">>
	<</if>>

<<elseif $penis2 is 0>>
	<<if $consensual is 1 and $promiscuity lte 34 and $enemytype is "man" or $consensual is 1 and $deviancy lte 34 and $enemytype isnot "man">>
	<<else>>
		<<if $leftactiondefault is "leftgrab">>
| Grab <<his>> penis <<radiobutton "$leftaction" "leftgrab" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
| Grab <<his>> penis <<radiobutton "$leftaction" "leftgrab">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>
	<</if>>
	<<if $leftactiondefault is "leftstroke">>
| Stroke <<his>> penis <<radiobutton "$leftaction" "leftstroke" checked>>
	<<else>>
| Stroke <<his>> penis <<radiobutton "$leftaction" "leftstroke">>
	<</if>>

<<elseif $penis3 is 0>>
	<<if $consensual is 1 and $promiscuity lte 34 and $enemytype is "man" or $consensual is 1 and $deviancy lte 34 and $enemytype isnot "man">>
	<<else>>
		<<if $leftactiondefault is "leftgrab">>
| Grab <<his>> penis <<radiobutton "$leftaction" "leftgrab" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
| Grab <<his>> penis <<radiobutton "$leftaction" "leftgrab">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>
	<</if>>
	<<if $leftactiondefault is "leftstroke">>
| Stroke <<his>> penis <<radiobutton "$leftaction" "leftstroke" checked>>
	<<else>>
| Stroke <<his>> penis <<radiobutton "$leftaction" "leftstroke">>
	<</if>>

<<elseif $penis4 is 0>>
	<<if $consensual is 1 and $promiscuity lte 34 and $enemytype is "man" or $consensual is 1 and $deviancy lte 34 and $enemytype isnot "man">>
	<<else>>
		<<if $leftactiondefault is "leftgrab">>
| Grab <<his>> penis <<radiobutton "$leftaction" "leftgrab" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
| Grab <<his>> penis <<radiobutton "$leftaction" "leftgrab">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>
	<</if>>
	<<if $leftactiondefault is "leftstroke">>
| Stroke <<his>> penis <<radiobutton "$leftaction" "leftstroke" checked>>
	<<else>>
| Stroke <<his>> penis <<radiobutton "$leftaction" "leftstroke">>
	<</if>>

<<elseif $penis5 is 0>>
	<<if $consensual is 1 and $promiscuity lte 34 and $enemytype is "man" or $consensual is 1 and $deviancy lte 34 and $enemytype isnot "man">>
	<<else>>
		<<if $leftactiondefault is "leftgrab">>
| Grab <<his>> penis <<radiobutton "$leftaction" "leftgrab" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
| Grab <<his>> penis <<radiobutton "$leftaction" "leftgrab">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>
	<</if>>
	<<if $leftactiondefault is "leftstroke">>
| Stroke <<his>> penis <<radiobutton "$leftaction" "leftstroke" checked>>
	<<else>>
| Stroke <<his>> penis <<radiobutton "$leftaction" "leftstroke">>
	<</if>>

<<elseif $penis6 is 0>>
	<<if $consensual is 1 and $promiscuity lte 34 and $enemytype is "man" or $consensual is 1 and $deviancy lte 34 and $enemytype isnot "man">>
	<<else>>
		<<if $leftactiondefault is "leftgrab">>
| Grab <<his>> penis <<radiobutton "$leftaction" "leftgrab" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
| Grab <<his>> penis <<radiobutton "$leftaction" "leftgrab">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>
	<</if>>
	<<if $leftactiondefault is "leftstroke">>
| Stroke <<his>> penis <<radiobutton "$leftaction" "leftstroke" checked>>
	<<else>>
| Stroke <<his>> penis <<radiobutton "$leftaction" "leftstroke">>
	<</if>>
<</if>>

<</nobr>><</widget>>

<<widget "leftplay">><<nobr>>
<<if $consensual is 1 and $promiscuity lte 34 and $enemytype is "man" or $consensual is 1 and $deviancy lte 34 and $enemytype isnot "man">>
<<else>>
	<<if $vagina is 0>>
		<<if $leftactiondefault is "leftplay">>
	| Play with <<his>> pussy <<radiobutton "$leftaction" "leftplay" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
	| Play with <<his>> pussy <<radiobutton "$leftaction" "leftplay">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>

	<<elseif $vagina2 is 0>>
		<<if $leftactiondefault is "leftplay">>
	| Play with <<his>> pussy <<radiobutton "$leftaction" "leftplay" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
	| Play with <<his>> pussy <<radiobutton "$leftaction" "leftplay">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>

	<<elseif $vagina3 is 0>>
		<<if $leftactiondefault is "leftplay">>
	| Play with <<his>> pussy <<radiobutton "$leftaction" "leftplay" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
	| Play with <<his>> pussy <<radiobutton "$leftaction" "leftplay">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>

	<<elseif $vagina4 is 0>>
		<<if $leftactiondefault is "leftplay">>
	| Play with <<his>> pussy <<radiobutton "$leftaction" "leftplay" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
	| Play with <<his>> pussy <<radiobutton "$leftaction" "leftplay">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>

	<<elseif $vagina5 is 0>>
		<<if $leftactiondefault is "leftplay">>
	| Play with <<his>> pussy <<radiobutton "$leftaction" "leftplay" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
	| Play with <<his>> pussy <<radiobutton "$leftaction" "leftplay">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>

	<<elseif $vagina6 is 0>>
		<<if $leftactiondefault is "leftplay">>
	| Play with <<his>> pussy <<radiobutton "$leftaction" "leftplay" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
	| Play with <<his>> pussy <<radiobutton "$leftaction" "leftplay">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>
	<</if>>
<</if>>

<</nobr>><</widget>>

<<widget "leftclothes">><<nobr>>

<<if $upperstate is $upperstatebase and $upperstatetop is $upperstatetopbase and $uppertype isnot "naked">>
	<<if $leftactiondefault is "upper">>
	| Displace your $upperclothes <<radiobutton "$leftaction" "upper" checked>>
	<<else>>
	| Displace your $upperclothes <<radiobutton "$leftaction" "upper">>
	<</if>>
<</if>>

<<if $lowerstate is $lowerstatebase and $skirt isnot 1 and $lowertype isnot "naked">>
	<<if $leftactiondefault is "lower">>
	| Displace your $lowerclothes <<radiobutton "$leftaction" "lower" checked>>
	<<else>>
	| Displace your $lowerclothes <<radiobutton "$leftaction" "lower">>
	<</if>>
<<elseif $skirt is 1 and $skirtdown is 1>>
	<<if $leftactiondefault is "lower">>
	| Displace your $lowerclothes <<radiobutton "$leftaction" "lower" checked>>
	<<else>>
	| Displace your $lowerclothes <<radiobutton "$leftaction" "lower">>
	<</if>>
<</if>>

<<if $understate is $understatebase and $undertype isnot "chastity" and $undertype isnot "naked">>
	<<if $lowerstate isnot $lowerstatebase or $skirt is 1 or $lowertype is "naked">>
		<<if $leftactiondefault is "under">>
		| Pull down your $underclothes <<radiobutton "$leftaction" "under" checked>>
		<<else>>
		| Pull down your $underclothes <<radiobutton "$leftaction" "under">>
		<</if>>
	<</if>>
<</if>>

<</nobr>><</widget>>

<<widget "leftspray">><<nobr>>
<<if $consensual isnot 1 and $spray gte 1>>
	<<if $leftactiondefault is "spray">>
	| Pepper spray Remaining: $spray / $spraymax <<radiobutton "$leftaction" "spray" checked>>
	<<else>>
	| Pepper spray Remaining: $spray / $spraymax <<radiobutton "$leftaction" "spray">>
	<</if>>
<</if>>
<</nobr>><</widget>>

<<widget "leftsteal">><<nobr>>
<<if $skulduggery gte 200 and $stealstate isnot 3 and $enemytype is "man">>
<<set $skulduggerydifficulty to 1000 - ($enemyarousal / $enemyarousalmax * 400) - $skulduggery - $enemytrust + $enemyanger>>
	<<if $leftactiondefault is "steal">>
	| Steal <<radiobutton "$leftaction" "steal" checked>> <<skulduggerydifficulty>><<combatcrime>>
	<<else>>
	| Steal <<radiobutton "$leftaction" "steal">> <<skulduggerydifficulty>><<combatcrime>>
	<</if>>
<</if>>
<</nobr>><</widget>>

:: Widgets Actions Right Hand [widget]
<<widget "rightgrab">><<nobr>>

<<if $penis is 0>>
	<<if $consensual is 1 and $promiscuity lte 34 and $enemytype is "man" or $consensual is 1 and $deviancy lte 34 and $enemytype isnot "man">>
	<<else>>
		<<if $rightactiondefault is "rightgrab">>
| Grab <<his>> penis <<radiobutton "$rightaction" "rightgrab" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
| Grab <<his>> penis <<radiobutton "$rightaction" "rightgrab">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>
	<</if>>
	<<if $rightactiondefault is "rightstroke">>
| Stroke <<his>> penis <<radiobutton "$rightaction" "rightstroke" checked>>
	<<else>>
| Stroke <<his>> penis <<radiobutton "$rightaction" "rightstroke">>
	<</if>>

<<elseif $penis2 is 0>>
	<<if $consensual is 1 and $promiscuity lte 34 and $enemytype is "man" or $consensual is 1 and $deviancy lte 34 and $enemytype isnot "man">>
	<<else>>
		<<if $rightactiondefault is "rightgrab">>
| Grab <<his>> penis <<radiobutton "$rightaction" "rightgrab" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
| Grab <<his>> penis <<radiobutton "$rightaction" "rightgrab">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>
	<</if>>
	<<if $rightactiondefault is "rightstroke">>
| Stroke <<his>> penis <<radiobutton "$rightaction" "rightstroke" checked>>
	<<else>>
| Stroke <<his>> penis <<radiobutton "$rightaction" "rightstroke">>
	<</if>>

<<elseif $penis3 is 0>>
	<<if $consensual is 1 and $promiscuity lte 34 and $enemytype is "man" or $consensual is 1 and $deviancy lte 34 and $enemytype isnot "man">>
	<<else>>
		<<if $rightactiondefault is "rightgrab">>
| Grab <<his>> penis <<radiobutton "$rightaction" "rightgrab" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
| Grab <<his>> penis <<radiobutton "$rightaction" "rightgrab">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>
	<</if>>
	<<if $rightactiondefault is "rightstroke">>
| Stroke <<his>> penis <<radiobutton "$rightaction" "rightstroke" checked>>
	<<else>>
| Stroke <<his>> penis <<radiobutton "$rightaction" "rightstroke">>
	<</if>>

<<elseif $penis4 is 0>>
	<<if $consensual is 1 and $promiscuity lte 34 and $enemytype is "man" or $consensual is 1 and $deviancy lte 34 and $enemytype isnot "man">>
	<<else>>
		<<if $rightactiondefault is "rightgrab">>
| Grab <<his>> penis <<radiobutton "$rightaction" "rightgrab" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
| Grab <<his>> penis <<radiobutton "$rightaction" "rightgrab">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>
	<</if>>
	<<if $rightactiondefault is "rightstroke">>
| Stroke <<his>> penis <<radiobutton "$rightaction" "rightstroke" checked>>
	<<else>>
| Stroke <<his>> penis <<radiobutton "$rightaction" "rightstroke">>
	<</if>>

<<elseif $penis5 is 0>>
	<<if $consensual is 1 and $promiscuity lte 34 and $enemytype is "man" or $consensual is 1 and $deviancy lte 34 and $enemytype isnot "man">>
	<<else>>
		<<if $rightactiondefault is "rightgrab">>
| Grab <<his>> penis <<radiobutton "$rightaction" "rightgrab" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
| Grab <<his>> penis <<radiobutton "$rightaction" "rightgrab">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>
	<</if>>
		<<if $rightactiondefault is "rightstroke">>
| Stroke <<his>> penis <<radiobutton "$rightaction" "rightstroke" checked>>
		<<else>>
| Stroke <<his>> penis <<radiobutton "$rightaction" "rightstroke">>
		<</if>>

<<elseif $penis6 is 0>>
	<<if $consensual is 1 and $promiscuity lte 34 and $enemytype is "man" or $consensual is 1 and $deviancy lte 34 and $enemytype isnot "man">>
	<<else>>
		<<if $rightactiondefault is "rightgrab">>
| Grab <<his>> penis <<radiobutton "$rightaction" "rightgrab" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
| Grab <<his>> penis <<radiobutton "$rightaction" "rightgrab">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>
	<</if>>
	<<if $rightactiondefault is "rightstroke">>
| Stroke <<his>> penis <<radiobutton "$rightaction" "rightstroke" checked>>
	<<else>>
| Stroke <<his>> penis <<radiobutton "$rightaction" "rightstroke">>
	<</if>>
<</if>>

<</nobr>><</widget>>

<<widget "rightplay">><<nobr>>

<<if $consensual is 1 and $promiscuity lte 34 and $enemytype is "man" or $consensual is 1 and $deviancy lte 34 and $enemytype isnot "man">>
<<else>>
	<<if $vagina is 0>>
		<<if $rightactiondefault is "rightplay">>
	| Play with <<his>> pussy <<radiobutton "$rightaction" "rightplay" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
	| Play with <<his>> pussy <<radiobutton "$rightaction" "rightplay">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>

	<<elseif $vagina2 is 0>>
		<<if $rightactiondefault is "rightplay">>
	| Play with <<his>> pussy <<radiobutton "$rightaction" "rightplay" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
	| Play with <<his>> pussy <<radiobutton "$rightaction" "rightplay">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>

	<<elseif $vagina3 is 0>>
		<<if $rightactiondefault is "rightplay">>
	| Play with <<his>> pussy <<radiobutton "$rightaction" "rightplay" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
	| Play with <<his>> pussy <<radiobutton "$rightaction" "rightplay">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>

	<<elseif $vagina4 is 0>>
		<<if $rightactiondefault is "rightplay">>
	| Play with <<his>> pussy <<radiobutton "$rightaction" "rightplay" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
	| Play with <<his>> pussy <<radiobutton "$rightaction" "rightplay">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>

	<<elseif $vagina5 is 0>>
		<<if $rightactiondefault is "rightplay">>
	| Play with <<his>> pussy <<radiobutton "$rightaction" "rightplay" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
	| Play with <<his>> pussy <<radiobutton "$rightaction" "rightplay">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>

	<<elseif $vagina6 is 0>>
		<<if $rightactiondefault is "rightplay">>
	| Play with <<his>> pussy <<radiobutton "$rightaction" "rightplay" checked>><<handdifficulty>> <<combatpromiscuous3>>
		<<else>>
	| Play with <<his>> pussy <<radiobutton "$rightaction" "rightplay">><<handdifficulty>> <<combatpromiscuous3>>
		<</if>>
	<</if>>
<</if>>

<</nobr>><</widget>>

<<widget "rightclothes">><<nobr>>

<<if $upperstate is $upperstatebase and $upperstatetop is $upperstatetopbase and $uppertype isnot "naked">>
	<<if $rightactiondefault is "upper">>
	| Displace your $upperclothes <<radiobutton "$rightaction" "upper" checked>>
	<<else>>
	| Displace your $upperclothes <<radiobutton "$rightaction" "upper">>
	<</if>>
<</if>>

<<if $lowerstate is $lowerstatebase and $skirt isnot 1 and $lowertype isnot "naked">>
	<<if $rightactiondefault is "lower">>
	| Displace your $lowerclothes <<radiobutton "$rightaction" "lower" checked>>
	<<else>>
	| Displace your $lowerclothes <<radiobutton "$rightaction" "lower">>
	<</if>>
<<elseif $skirt is 1 and $skirtdown is 1>>
	<<if $rightactiondefault is "lower">>
	| Displace your $lowerclothes <<radiobutton "$rightaction" "lower" checked>>
	<<else>>
	| Displace your $lowerclothes <<radiobutton "$rightaction" "lower">>
	<</if>>
<</if>>

<<if $understate is $understatebase and $undertype isnot "chastity" and $undertype isnot "naked">>
	<<if $lowerstate isnot $lowerstatebase or $skirt is 1 or $lowertype is "naked">>
		<<if $rightactiondefault is "under">>
		| Pull down your $underclothes <<radiobutton "$rightaction" "under" checked>>
		<<else>>
		| Pull down your $underclothes <<radiobutton "$rightaction" "under">>
		<</if>>
	<</if>>
<</if>>

<</nobr>><</widget>>

<<widget "rightspray">><<nobr>>

<<if $consensual isnot 1 and $spray gte 1>>
	<<if $rightactiondefault is "spray">>
	| Pepper spray Remaining: $spray / $spraymax <<radiobutton "$rightaction" "spray" checked>>
	<<else>>
	| Pepper spray Remaining: $spray / $spraymax <<radiobutton "$rightaction" "spray">>
	<</if>>
<</if>>

<</nobr>><</widget>>

:: Widgets Effects Hands [widget]
<<widget "effectshandsclothes">><<nobr>>

<<if $leftaction is "upper" and $rightaction is "upper">><<set $leftaction to 0>><<set $leftactiondefault to "rest">><<set $rightaction to 0>><<set $rightactiondefault to "rest">>
	<<if $upperclothes is "naked">>
	You clutch the tattered remains of your $upperlast.
	<<elseif $open is 1>><<set $upperexposed to 2>><<set $upperstatetop to "midriff">>
		<<if $breastsize gte 3>>
		You pull down your $upperclothes and your <<breasts>> flop out.
		<<else>>
		You pull down your $upperclothes, exposing your <<breastsstop>>
		<</if>>
	<<else>><<set $upperexposed to 2>><<set $upperstate to "chest">>
		<<if $breastsize gte 3>>
		You pull up your $upperclothes and your <<breasts>> flop out.
		<<else>>
		You pull up your $upperclothes, exposing your <<breastsstop>>
		<</if>>
	<</if>>

<<elseif $leftaction is "upper">><<set $leftaction to 0>><<set $leftactiondefault to "rest">>
	<<if $upperclothes is "naked">>
	You clutch the tattered remains of your $upperlast.
	<<elseif $open is 1>><<set $upperexposed to 2>><<set $upperstatetop to "midriff">>
		<<if $breastsize gte 3>>
		You pull down your $upperclothes and your <<breasts>> flop out.
		<<else>>
		You pull down your $upperclothes, exposing your <<breastsstop>>
		<</if>>
	<<else>><<set $upperexposed to 2>><<set $upperstate to "chest">>
		<<if $breastsize gte 3>>
		You pull up your $upperclothes and your <<breasts>> flop out.
		<<else>>
		You pull up your $upperclothes, exposing your <<breastsstop>>
		<</if>>
	<</if>>

<<elseif $rightaction is "upper">><<set $rightaction to 0>><<set $rightactiondefault to "rest">>
	<<if $upperclothes is "naked">>
	You clutch the tattered remains of your $upperlast.
	<<elseif $open is 1>><<set $upperexposed to 2>><<set $upperstatetop to "midriff">>
		<<if $breastsize gte 3>>
		You pull down your $upperclothes and your <<breasts>> flop out.
		<<else>>
		You pull down your $upperclothes, exposing your <<breastsstop>>
		<</if>>
	<<else>><<set $upperexposed to 2>><<set $upperstate to "chest">>
		<<if $breastsize gte 3>>
		You pull up your $upperclothes and your <<breasts>> flop out.
		<<else>>
		You pull up your $upperclothes, exposing your <<breastsstop>>
		<</if>>
	<</if>>
<</if>>

<<if $leftaction is "lower" and $rightaction is "lower">><<set $leftaction to 0>><<set $leftactiondefault to "rest">><<set $rightaction to 0>><<set $rightactiondefault to "rest">><<set $lowervaginaexposed to 1>><<set $loweranusexposed to 1>><<set $lowerexposed to 2>>
	<<if $lowerclothes is "naked">>
	You clutch the tattered remains of your $lowerlast.
	<<elseif $skirt is 1>><<set $skirtdown to 0>>
	You lift up your $lowerclothes, exposing your <<undiesstop>>
	<<else>><<set $lowerstate to "thighs">>
	You pull down your $lowerclothes, exposing your <<undiesstop>>
	<</if>>

<<elseif $leftaction is "lower">><<set $leftaction to 0>><<set $leftactiondefault to "rest">><<set $loweranusexposed to 1>><<set $lowervaginaexposed to 1>><<set $lowerexposed to 2>>
	<<if $lowerclothes is "naked">>
	You clutch the tattered remains of your $lowerlast.
	<<elseif $skirt is 1>><<set $skirtdown to 0>>
	You lift up your $lowerclothes, exposing your <<undiesstop>>
	<<else>><<set $lowerstate to "thighs">>
	You pull down your $lowerclothes, exposing your <<undiesstop>>
	<</if>>

<<elseif $rightaction is "lower">><<set $rightaction to 0>><<set $rightactiondefault to "rest">><<set $loweranusexposed to 1>><<set $lowervaginaexposed to 1>><<set $lowerexposed to 2>>
	<<if $lowerclothes is "naked">>
	You clutch the tattered remains of your $lowerlast.
	<<elseif $skirt is 1>><<set $skirtdown to 0>>
	You lift up your $lowerclothes, exposing your <<undiesstop>>
	<<else>><<set $lowerstate to "thighs">>
	You pull down your $lowerclothes, exposing your <<undiesstop>>
	<</if>>
<</if>>

<<if $leftaction is "under" and $rightaction is "under">><<set $leftaction to 0>><<set $leftactiondefault to "rest">><<set $rightaction to 0>><<set $rightactiondefault to "rest">><<set $underanusexposed to 1>><<set $undervaginaexposed to 1>>
<<set $understate to "thighs">><<set $underexposed to 2>>
	<<if $underclothes is "naked">>
	You clutch the tattered remains of your $underlast.
	<<else>>
	You pull down your $underclothes, exposing your <<genitalsstop>>
	<</if>>

<<elseif $leftaction is "under">><<set $leftaction to 0>><<set $leftactiondefault to "rest">><<set $underanusexposed to 1>><<set $undervaginaexposed to 1>><<set $underexposed to 2>>
<<set $understate to "thighs">>
	<<if $underclothes is "naked">>
	You clutch the tattered remains of your $underlast.
	<<else>>
	You pull down your $underclothes, exposing your <<genitalsstop>>
	<</if>>

<<elseif $rightaction is "under">><<set $rightaction to 0>><<set $rightactiondefault to "rest">><<set $underanusexposed to 1>><<set $undervaginaexposed to 1>><<set $underexposed to 2>>
<<set $understate to "thighs">>
	<<if $underclothes is "naked">>
	You clutch the tattered remains of your $underlast.
	<<else>>
	You pull down your $underclothes, exposing your <<genitalsstop>>
	<</if>>
<</if>>

<</nobr>><</widget>>

<<widget "effectsspray">><<nobr>>

<<if $leftaction is "spray" and $rightaction is "spray">><<set $leftactiondefault to "lefthit">><<set $rightactiondefault to "righthit">><<set $leftaction to 0>><<set $rightaction to 0>>
	<<if $spray gte 2>><<set $enemyhealth -= 400>><<set $spraystat += 2>><<set $spray -= 2>><<set $speechspray to 1>>
		<<if $enemytype is "beast">>
		You hold the spray in both hands, and unload a full blast in the $beasttype's face. It whimpers.
		<<elseif $enemyno gte 2>>
		You hold the spray in both hands, and unload a full blast in at your assailants. They clutch their faces.<<ggcrime>><<crimeup 500>>
		<<else>>
		You hold the spray in both hands, and unload a full blast at the assailant. <<He>> clutches <<his>> face.<<ggcrime>><<crimeup 500>>
		<</if>>
	<<elseif $spray gte 1>><<set $enemyhealth -= 200>><<set $spraystat += 1>><<set $spray -= 1>><<set $speechspray to 1>>
		<<if $enemytype is "beast">>
		You spray the $beasttype in the face. It whimpers.
		<<elseif $enemyno gte 2>>
		You spray your assailants. They clutch their faces.<<ggcrime>><<crimeup 500>>
		<<else>>
		You spray the assailant. <<He>> clutches <<his>> face.<<ggcrime>><<crimeup 500>>
		<</if>>
	<<else>>
		<<if $enemytype is "beast">>
		You try to spray the $beasttype in the face. Nothing comes out.
		<<elseif $enemyno gte 2>>
		You try to spray your assailants. Nothing comes out.
		<<else>>
		You try to spray the assailant. Nothing comes out.
		<</if>>
	<</if>>
<<elseif $leftaction is "spray">><<set $leftactiondefault to "lefthit">><<set $leftaction to 0>>
	<<if $spray gte 1>><<set $enemyhealth -= 200>><<set $spraystat += 1>><<set $spray -= 1>><<set $speechspray to 1>>
		<<if $enemytype is "beast">>
		You spray the $beasttype in the face. It whimpers.
		<<elseif $enemyno gte 2>>
		You spray your assailants. They clutch their faces.<<ggcrime>><<crimeup 500>>
		<<else>>
		You spray the assailant. <<He>> clutches <<his>> face.<<ggcrime>><<crimeup 500>>
		<</if>>
	<<else>>
		<<if $enemytype is "beast">>
		You try to spray the $beasttype in the face. Nothing comes out.
		<<elseif $enemyno gte 2>>
		You try to spray your assailants. Nothing comes out.
		<<else>>
		You try to spray the assailant. Nothing comes out.
		<</if>>
	<</if>>
<<elseif $rightaction is "spray">><<set $rightactiondefault to "righthit">><<set $rightaction to 0>>
	<<if $spray gte 1>><<set $enemyhealth -= 200>><<set $spraystat += 1>><<set $spray -= 1>><<set $speechspray to 1>>
		<<if $enemytype is "beast">>
		You spray the $beasttype in the face. It whimpers.
		<<elseif $enemyno gte 2>>
		You spray your assailants. They clutch their faces.<<ggcrime>><<crimeup 500>>
		<<else>>
		You spray the assailant. <<He>> clutches <<his>> face.<<ggcrime>><<crimeup 500>>
		<</if>>
	<<else>>
		<<if $enemytype is "beast">>
		You try to spray the $beasttype in the face. Nothing comes out.
		<<elseif $enemyno gte 2>>
		You try to spray your assailants. Nothing comes out.
		<<else>>
		You try to spray the assailant. Nothing comes out.
		<</if>>
	<</if>>
<</if>>

<<widget "effectssteal">><<nobr>>

<<if $leftaction is "steal" and $rightaction is "steal">><<set $rightaction to 0>><<set $leftactiondefault to "steal">><<set $rightactiondefault to "steal">><<set $skulduggerydifficulty += 400>><<skulduggerycheck>><<person1>>
	<<if $skulduggerysuccess is 1>><<set $stealstate to 3>>
	You rummage through the <<persons>> <<walletstop>> <<encountersteal>>
	<<else>><<brat 10>>
	You rummage inside the <<persons>> <<walletstop>> <<He 1>> notices and shifts <<his>> valuables away from your hands.
	<</if>>
<<elseif $leftaction is "steal">><<set $leftactiondefault to "steal">><<set $leftaction to 0>><<skulduggerycheck>><<person1>>
	<<if $skulduggerysuccess is 1>>
		<<if $stealstate is undefined>><<set $stealstate to 0>>
		You run your hand over the <<persons>> skin, until it rests on <<his>> <<walletstop>>
		<<elseif $stealstate is 0>><<set $stealstate to 1>>
		You open the <<persons>> <<walletstop>>
		<<elseif $stealstate is 1>><<set $stealstate to 2>>
		You rummage through the <<persons>> <<walletstop>>
		<<else>><<set $stealstate to 3>>
		You sneak your hand into the <<persons>> <<walletstop>> <<encountersteal>>
		<</if>>
	<<else>><<brat 10>>
		<<if $stealstate is undefined>>
		You run your hand over the <<persons>> skin, until it rests on <<his>> <<walletstop>> <<He 1>> isn't fooled. <<He 1>> shifts <<his>> valuables away from you.
		<<elseif $stealstate is 0>>
		You try to open the <<persons>> <<walletstop>> <<He>> notices and shifts <<his>> valuables away.
		<<elseif $stealstate is 1>>
		You rummage through the <<persons>> <<walletstop>> <<He>> notices and shifts <<his>> valuables away.
		<<else>>
		You sneak your hand into the <<persons>> <<walletstop>> <<He>> notices and shifts <<his>> valuables away.
		<</if>>
	<</if>>
<<elseif $rightaction is "steal">><<set $rightaction to 0>><<set $rightactiondefault to "steal">><<skulduggerycheck>><<person1>>
		<<if $stealstate is undefined>>

		<<elseif $stealstate is 0>>

		<<elseif $stealstate is 1>>

		<<else>>

		<</if>>
<</if>>

<</nobr>><</widget>>

<</nobr>><</widget>>


code:
:: Widgets Actions Mouth [widget]
<<widget "oral">><<nobr>>

	<<if $consensual is 1 and $promiscuity lte 54 and $enemytype is "man" or $consensual is 1 and $deviancy lte 54 and $enemytype isnot "man">>
	<<elseif $beaststance is "top">>
	<<else>>
		<<if $penis is 0>>
			<<if $mouthactiondefault is "mouth">>
	| Move your lips to <<his>> penis <<radiobutton "$mouthaction" "mouth" checked>><<oraldifficulty>> <<combatpromiscuous4>>
			<<else>>
	| Move your lips to <<his>> penis <<radiobutton "$mouthaction" "mouth">><<oraldifficulty>> <<combatpromiscuous4>>
			<</if>>

		<<elseif $penis2 is 0>>
			<<if $mouthactiondefault is "mouth">>
	| Move your lips to <<his>> penis <<radiobutton "$mouthaction" "mouth" checked>><<oraldifficulty>> <<combatpromiscuous4>>
			<<else>>
	| Move your lips to <<his>> penis <<radiobutton "$mouthaction" "mouth">><<oraldifficulty>> <<combatpromiscuous4>>
			<</if>>

		<<elseif $penis3 is 0>>
			<<if $mouthactiondefault is "mouth">>
	| Move your lips to <<his>> penis <<radiobutton "$mouthaction" "mouth" checked>><<oraldifficulty>> <<combatpromiscuous4>>
			<<else>>
	| Move your lips to <<his>> penis <<radiobutton "$mouthaction" "mouth">><<oraldifficulty>> <<combatpromiscuous4>>
			<</if>>

		<<elseif $penis4 is 0>>
			<<if $mouthactiondefault is "mouth">>
	| Move your lips to <<his>> penis <<radiobutton "$mouthaction" "mouth" checked>><<oraldifficulty>> <<combatpromiscuous4>>
			<<else>>
	| Move your lips to <<his>> penis <<radiobutton "$mouthaction" "mouth">><<oraldifficulty>> <<combatpromiscuous4>>
			<</if>>

		<<elseif $penis5 is 0>>
			<<if $mouthactiondefault is "mouth">>
	| Move your lips to <<his>> penis <<radiobutton "$mouthaction" "mouth" checked>><<oraldifficulty>> <<combatpromiscuous4>>
			<<else>>
	| Move your lips to <<his>> penis <<radiobutton "$mouthaction" "mouth">><<oraldifficulty>> <<combatpromiscuous4>>
			<</if>>

		<<elseif $penis6 is 0>>
			<<if $mouthactiondefault is "mouth">>
	| Move your lips to <<his>> penis <<radiobutton "$mouthaction" "mouth" checked>><<oraldifficulty>> <<combatpromiscuous4>>
			<<else>>
	| Move your lips to <<his>> penis <<radiobutton "$mouthaction" "mouth">><<oraldifficulty>> <<combatpromiscuous4>>
			<</if>>

		<</if>>

		<<if $vagina is 0>>
			<<if $mouthactiondefault is "othervagina">>
		| Move your mouth to <<his>> pussy<<radiobutton "$mouthaction" "othervagina" checked>><<oraldifficulty>> <<combatpromiscuous4>>
			<<else>>
		| Move your mouth to <<his>> pussy<<radiobutton "$mouthaction" "othervagina">><<oraldifficulty>> <<combatpromiscuous4>>
			<</if>>

		<<elseif $vagina2 is 0>>
			<<if $mouthactiondefault is "othervagina">>
		| Move your mouth to <<his>> pussy<<radiobutton "$mouthaction" "othervagina">><<oraldifficulty>> <<combatpromiscuous4>>
			<<else>>
		| Move your mouth to <<his>> pussy<<radiobutton "$mouthaction" "othervagina" checked>><<oraldifficulty>> <<combatpromiscuous4>>
			<</if>>

		<<elseif $vagina3 is 0>>
			<<if $mouthactiondefault is "othervagina">>
		| Move your mouth to <<his>> pussy<<radiobutton "$mouthaction" "othervagina" checked>><<oraldifficulty>> <<combatpromiscuous4>>
			<<else>>
		| Move your mouth to <<his>> pussy<<radiobutton "$mouthaction" "othervagina">><<oraldifficulty>> <<combatpromiscuous4>>
			<</if>>

		<<elseif $vagina4 is 0>>
			<<if $mouthactiondefault is "othervagina">>
		| Move your mouth to <<his>> pussy<<radiobutton "$mouthaction" "othervagina" checked>><<oraldifficulty>> <<combatpromiscuous4>>
			<<else>>
		| Move your mouth to <<his>> pussy<<radiobutton "$mouthaction" "othervagina">><<oraldifficulty>> <<combatpromiscuous4>>
			<</if>>

		<<elseif $vagina5 is 0>>
			<<if $mouthactiondefault is "othervagina">>
		| Move your mouth to <<his>> pussy<<radiobutton "$mouthaction" "othervagina" checked>><<oraldifficulty>> <<combatpromiscuous4>>
			<<else>>
		| Move your mouth to <<his>> pussy<<radiobutton "$mouthaction" "othervagina">><<oraldifficulty>> <<combatpromiscuous4>>
			<</if>>

		<<elseif $vagina6 is 0>>
			<<if $mouthactiondefault is "othervagina">>
		| Move your mouth to <<his>> pussy<<radiobutton "$mouthaction" "othervagina" checked>><<oraldifficulty>> <<combatpromiscuous4>>
			<<else>>
		| Move your mouth to <<his>> pussy<<radiobutton "$mouthaction" "othervagina">><<oraldifficulty>> <<combatpromiscuous4>>
			<</if>>
		<</if>>
	<</if>>

<</nobr>><</widget>>

<<widget "oralswallow">><<nobr>>
<<if $consensual is 1 and $promiscuity lte 74 and $enemytype is "man" or $consensual is 1 and $deviancy lte 74 and $enemytype isnot "man">>
<<else>>
	<<if $penis is "mouthentrance" or $penis is "mouthimminent" or $penis2 is "mouthentrance" or $penis2 is "mouthimminent" or $penis3 is "mouthentrance" or $penis3 is "mouthimminent" or $penis4 is "mouthentrance" or $penis4 is "mouthimminent" or $penis5 is "mouthentrance" or $penis5 is "mouthimminent" or $penis6 is "mouthentrance" or $penis6 is "mouthimminent">>
		<<if $mouthactiondefault is "mouth">>
	| Take <<his>> penis into your mouth <<radiobutton "$mouthaction" "swallow" checked>><<oralvirginitywarning>> <<combatpromiscuous5>>
		<<else>>
	| Take <<his>> penis into your mouth <<radiobutton "$mouthaction" "swallow">><<oralvirginitywarning>> <<combatpromiscuous5>>
		<</if>>
	<</if>>
<</if>>

<</nobr>><</widget>>