code:
:: Clothing Rebuy [nobr]
<<set $outside to 0>><<effects>>

Enabling clothing rebuy will activate chips in all your clothing. When damaged beyond repair, the clothes automatically order a replacement for no extra charge beyond the cost of the garment. This will not work if you don't have enough money, which will be deducted immediately.

Would you like to enable this?

<<link [[Yes|Clothing Shop]]>><<set $clothingrebuy to 1>><</link>>

<<link [[No|Clothing Shop]]>><</link>>

:: Widgets Accessories [widget]
<<widget "accessorieswear">><<nobr>>

<<if $wear is "striphead">><<set $wear to 0>>
<<set $headacc to 0>>
<</if>>

<<if $wear is "stripface">><<set $wear to 0>>
<<set $faceacc to 0>>
<</if>>

<<if $wear is "striplegs">><<set $wear to 0>>
<<set $legsacc to 0>>
<</if>>

<<if $wear is "stripfeet">><<set $wear to 0>>
<<set $feetacc to 0>>
<</if>>

<<if $wear is "hairpin">><<set $wear to 0>>
You put on the hairpin.

<<set $headacc to "hairpin">>
<</if>>

<<if $wear is "beanie">><<set $wear to 0>>
You put on the beanie.

<<set $headacc to "beanie">>
<</if>>

<<if $wear is "glasses">><<set $wear to 0>>
You put on the glasses.

<<set $faceacc to "glasses">>
<</if>>

<<if $wear is "cool shades">><<set $wear to 0>>
You put on the cool shades.

<<set $faceacc to "cool shades">>
<</if>>

<<if $wear is "boys gym socks">><<set $wear to 0>>
You put on the boy's gym socks.

<<set $legsacc to "boys gym socks">>
<</if>>

<<if $wear is "girls gym socks">><<set $wear to 0>>
You put on the girl's gym socks.

<<set $legsacc to "girls gym socks">>
<</if>>

<<if $wear is "stockings">><<set $wear to 0>>
You put on the stockings.

<<set $legsacc to "stockings">>
<</if>>

<<if $wear is "fishnet stockings">><<set $wear to 0>>
You put on the fishnet stockings.

<<set $legsacc to "fishnet stockings">>
<</if>>

<<if $wear is "black shoes">><<set $wear to 0>>
You put on the shoes.

<<set $feetacc to "black shoes">>
<</if>>

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

<<widget "accessories">><<nobr>>

Head

<<if $headacc isnot 0>>
You are wearing a $headacc.

<</if>>

<<if $hairpin is 1>>
<<link "Hairpin">><<set $wear to "hairpin">><><</link>> - Greatly accelerates hair growth.

<</if>>

<<if $beanie is 1>>
<<link "Beanie">><<set $wear to "beanie">><><</link>> - Looks pretty cool. Makes status increase faster.

<</if>>

<<link "Nothing">><<set $wear to "striphead">><><</link>>

Face

<<if $faceacc isnot 0>>
You are wearing $faceacc.

<</if>>

<<if $glasses is 1>>
<<link "Glasses">><<set $wear to "glasses">><><</link>> - Makes studying easier, but you might be picked on at school.

<</if>>

<<if $coolshades is 1>>
<<link "Cool shades">><<set $wear to "cool shades">><><</link>> - Makes status increase faster, but the teachers won't like them.

<</if>>

<<link "Nothing">><<set $wear to "stripface">><><</link>>

Legs

<<if $legsacc isnot 0>>
You are wearing $legsacc.

<</if>>

<<if $boysgymsocks is 1>>
<<link "Boy's gym socks">><<set $wear to "boys gym socks">><><</link>> - Just socks.

<</if>>

<<if $girlsgymsocks is 1>>
<<link "Girl's gym socks">><<set $wear to "girls gym socks">><><</link>> - Just socks.

<</if>>

<<if $stockings is 1>>
<<link "Stockings">><<set $wear to "stockings">><><</link>> - Attractive and alluring.

<</if>>

<<if $fishnetstockings is 1>>
<<link "Fishnet stockings">><<set $wear to "fishnet stockings">><><</link>> - Attractive and alluring.

<</if>>

<<link "Nothing">><<set $wear to "striplegs">><><</link>>

Feet

<<if $feetacc isnot 0>>
You are wearing $feetacc.

<</if>>

<<if $blackshoes is 1>>
<<link "Black shoes">><<set $wear to "black shoes">><><</link>> - Suitable for school.

<</if>>

<<link "Nothing">><<set $wear to "stripfeet">><><</link>>

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

:: Accessory Shop [nobr]
<<set $outside to 1>><<set $location to "forest">><<effects>>

You are in the accessory shop. The interior is dark and crowded by tall shelves, holding all manner of items. Most are useless knick-knacks, but some interest you.

<<if $buy isnot 0>>
You buy the $buy.

<</if>>

<<if $buy is "hairpin">><<set $buy to 0>>
<<set $hairpin to 1>><<set $money -= 1000>>
<</if>>

<<if $buy is "beanie">><<set $buy to 0>>
<<set $beanie to 1>><<set $money -= 7000>>
<</if>>

<<if $buy is "glasses">><<set $buy to 0>>
<<set $glasses to 1>><<set $money -= 2000>>
<</if>>

<<if $buy is "cool shades">><<set $buy to 0>>
<<set $coolshades to 1>><<set $money -= 15000>>
<</if>>

<<if $buy is "girl's gym socks">><<set $buy to 0>>
<<set $girlsgymsocks to 1>><<set $money -= 900>>
<</if>>

<<if $buy is "boy's gym socks">><<set $buy to 0>>
<<set $boysgymsocks to 1>><<set $money -= 900>>
<</if>>

<<if $buy is "stockings">><<set $buy to 0>>
<<set $stockings to 1>><<set $money -= 2200>>
<</if>>

<<if $buy is "fishnet stockings">><<set $buy to 0>>
<<set $fishnetstockings to 1>><<set $money -= 2200>>
<</if>>

<<if $buy is "black shoes">><<set $buy to 0>>
<<set $blackshoes to 1>><<set $money -= 3000>>
<</if>>

<<if $hairpin isnot 1>>
Hairpin. Costs £10. Greatly accelerates hair growth.

	<<if $money gte 1000>>
	<<link [[Buy hairpin|Accessory Shop]]>><<set $buy to "hairpin">><</link>>
	<<else>>
	You cannot afford it.
	<</if>>
<<else>>
Hairpin.
 Owned
<</if>>

<<if $beanie isnot 1>>
Beanie. Costs £70. Makes status rise faster.

	<<if $money gte 7000 and $headdrive is 1>>
	<<link [[Buy beanie|Accessory Shop]]>><<set $buy to "beanie">><</link>>
	<<elseif $headdrive isnot 1>>
	Locked. Discover the headteacher's secret.
	<<else>>
	You cannot afford it.
	<</if>>
<<else>>
Beanie.
 Owned.

<</if>>

<<if $glasses isnot 1>>
Glasses. Costs £20. Makes studying easier, but other students might pick on you.

	<<if $money gte 2000>>
	<<link [[Buy glasses|Accessory Shop]]>><<set $buy to "glasses">><</link>>
	<<else>>
	You cannot afford it.
	<</if>>
<<else>>
Glasses.
 Owned.

<</if>>

<<if $coolshades isnot 1>>
Cool Shades. Costs £150. Makes status rise faster.

	<<if $money gte 15000 and $cool gte 160>>
	<<link [[Buy cool shades|Accessory Shop]]>><<set $buy to "cool shades">><</link>>
	<<elseif $cool lt 160>>
	Locked. Make your peers think you're cool.
	<<else>>
	You cannot afford it.
	<</if>>
<<else>>
Cool shades.
 Owned.

<</if>>

<<if $girlsgymsocks isnot 1>>
Girl's gym socks. Costs £9. Just socks.

	<<if $money gte 900>>
	<<link [[Buy girl's gym socks|Accessory Shop]]>><<set $buy to "girl's gym socks">><</link>>
	<<else>>
	You cannot afford it.
	<</if>>
<<else>>
Girl's gym socks.
 Owned.

<</if>>

<<if $boysgymsocks isnot 1>>
Boy's gym socks. Costs £9. Just socks.

	<<if $money gte 900>>
	<<link [[Buy boy's gym socks|Accessory Shop]]>><<set $buy to "boy's gym socks">><</link>>
	<<else>>
	You cannot afford it.
	<</if>>
<<else>>
Boy's gym socks.
 Owned.

<</if>>

<<if $stockings isnot 1>>
Stockings. Costs £22. Attractive and alluring.

	<<if $money gte 2200 and $moleststat gte 30>>
	<<link [[Buy stockings|Accessory Shop]]>><<set $buy to "stockings">><</link>>
	<<elseif $moleststat lt 30>>
	Locked. Be molested thirty times.
	<<else>>
	You cannot afford it.
	<</if>>
<<else>>
Stockings.
 Owned.

<</if>>

<<if $fishnetstockings isnot 1>>
Fishnet stockings. Costs £22. Attractive and alluring.

	<<if $money gte 2200 and $prostitutionstat gte 10>>
	<<link [[Buy fishnet stockings|Accessory Shop]]>><<set $buy to "fishnet stockings">><</link>>
	<<elseif $prostitutionstat lt 10>>
	Locked. Whore yourself ten times.
	<<else>>
	You cannot afford it.
	<</if>>
<<else>>
Fishnet stockings.
 Owned.

<</if>>

<<if $blackshoes isnot 1>>
Black shoes. Costs £30. Suitable for school.

	<<if $money gte 3000>>
	<<link [[Buy black shoes|Accessory Shop]]>><<set $buy to "black shoes">><</link>>
	<<else>>
	You cannot afford it.
	<</if>>
<<else>>
Black shoes.
 Owned.

<</if>>

<<link [[Leave|Forest]]>><</link>>


code:
:: Widgets Wardrobe [widget]
<<widget "wardrobewear">><<nobr>>

<<if $wear is "stripall">><<set $wear to 0>>
<<if $uppertype is "naked" and $lowertype is "naked" and $undertype is "naked">>
There's nothing to remove.
<<else>>
You remove your clothing.
<</if>>

<<uppernaked>>
<<lowernaked>>
<<undernaked>>
<</if>>

<<if $wear is "dry">><<set $wear to 0>>
<<set $upperwet to 0>><<set $lowerwet to 0>><<set $underwet to 0>><<set $upperwetstage to 0>><<set $lowerwetstage to 0>><<set $underwetstage to 0>>
You squeeze the water from your clothes.

<</if>>

<<if $wear is "sundress">><<set $wear to 0>>
You wear the sundress.

	<<if $uppersundressno gte 1 and $lowersundressno gte 1>>
	<<uppernaked>><<lowernaked>>
	<</if>>
	<<if $uppersundressno gte 1>>
<<uppersundress>>
	<</if>>
	<<if $lowersundressno gte 1>>
	<<lowersundress>>
	<</if>>
<</if>>

<<if $wear is "schoolswimsuit">><<set $wear to 0>>
You wear the swimsuit.

	<<if $upperschoolswimsuitno gte 1>>
<<upperschoolswimsuit>>
	<</if>>
	<<if $lowerschoolswimsuitno gte 1>>
	<<lowerschoolswimsuit>>
	<</if>>
<</if>>

<<if $wear is "eveninggown">><<set $wear to 0>>
You wear the evening gown.

	<<if $uppereveninggownno gte 1>>
<<uppereveninggown>>
	<</if>>
	<<if $lowereveninggownno gte 1>>
	<<lowereveninggown>>
	<</if>>
<</if>>

<<if $wear is "stripupper">><<set $wear to 0>>
<<if $uppertype isnot "naked">>
You take off your $upperclothes.
<<else>>
You are already topless.
<</if>>
<<uppernaked>>

<</if>>

<<if $wear is "uppertowel">><<set $wear to 0>><<set $uppertowelnew to 1>>
You wrap the towel around your chest.

<<uppertowel>>
<</if>>

<<if $wear is "upperpjs">><<set $wear to 0>>
You wear the pyjama shirt.

<<upperpjs>>
<</if>>

<<if $wear is "upperbikini">><<set $wear to 0>>
You wear the bikini top.

<<upperbikini>>
<</if>>

<<if $wear is "tshirt">><<set $wear to 0>>
You wear the t-shirt.

<<tshirt>>
<</if>>

<<if $wear is "schoolshirt">><<set $wear to 0>>
You wear the school shirt.

<<schoolshirt>>
<</if>>

<<if $wear is "tanktop">><<set $wear to 0>>
You wear the tank top.

<<tanktop>>
<</if>>

<<if $wear is "striplower">><<set $wear to 0>>
<<if $lowertype isnot "naked">>
You take off your
<<if $upperset isnot $lowerset>>
$lowerclothes
<<else>>$upperclothes.
<</if>>
<<else>>
You are already bottomless.
<</if>>
<<lowernaked>>

<</if>>

<<if $wear is "lowertowel">><<set $wear to 0>><<set $lowertowelnew to 1>>
You wrap the towel around your pelvis.

<<lowertowel>>
<</if>>

<<if $wear is "lowerpjs">><<set $wear to 0>>
You wear the pyjama bottoms.

<<lowerpjs>>
<</if>>

<<if $wear is "lowerbikini">><<set $wear to 0>>
You wear the bikini bottoms.

<<lowerbikini>>
<</if>>

<<if $wear is "waistapron">><<set $wear to 0>>
You wear the waist apron.

<<waistapron>>
<</if>>

<<if $wear is "shorts">><<set $wear to 0>>
You wear the shorts.

<<shorts>>
<</if>>

<<if $wear is "schoolshorts">><<set $wear to 0>>
You wear the school shorts.

<<schoolshorts>>
<</if>>

<<if $wear is "schoolskirt">><<set $wear to 0>>
You wear the school skirt.

<<schoolskirt>>
<</if>>

<<if $wear is "schoolswimshorts">><<set $wear to 0>>
You wear the swim shorts.

<<schoolswimshorts>>
<</if>>

<<if $wear is "stripunder">><<set $wear to 0>>
<<if $undertype isnot "naked">>
You take off your $underclothes.
<<else>>
You are already pantyless.
<</if>>
<<undernaked>>

<</if>>

<<if $wear is "plainpanties">><<set $wear to 0>>
You wear the plain panties.

<<plainpanties>>
<</if>>

<<if $wear is "lacepanties">><<set $wear to 0>>
You wear the lace panties.

<<lacepanties>>
<</if>>

<<if $wear is "yfronts">><<set $wear to 0>>
You wear the Y fronts.

<<yfronts>>
<</if>>

<<if $wear is "tights">><<set $wear to 0>>
You wear the tights.

<<tights>>
<</if>>

<<accessorieswear>>

<<exposure>>

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

<<widget "wardrobe">><<nobr>>

<<if $upperwetstage gte 1 or $lowerwetstage gte 1 or $underwetstage gte 1>>
<<link "Dry your clothes">><<set $wear to "dry">><><</link>>

<</if>>

Outfits

<<if $uppersundressno gte 1>> |
<<link "Sundress">><<set $wear to "sundress">><><</link>>

<<elseif $lowersundressno gte 1>> |
<<link "Sundress">><<set $wear to "sundress">><><</link>>
<</if>>

<<if $upperschoolswimsuitno gte 1>> |
<<link "School swimsuit">><<set $wear to "schoolswimsuit">><><</link>>

<<elseif $lowerschoolswimsuitno gte 1>> |
<<link "School swimsuit">><<set $wear to "schoolswimsuit">><><</link>>
<</if>>

<<if $uppereveninggownno gte 1>> |
<<link "Evening gown">><<set $wear to "eveninggown">><><</link>>

<<elseif $lowereveninggownno gte 1>> |
<<link "Evening gown">><<set $wear to "eveninggown">><><</link>>
<</if>>

<<link "Strip all">><<set $wear to "stripall">><><</link>>

Tops

<<if $upperpjsno gte 1>> |
<<link "Pyjama shirt">><<set $wear to "upperpjs">><><</link>>
<</if>>

<<if $upperbikinino gte 1>> |
<<link "Bikini top">><<set $wear to "upperbikini">><><</link>>
<</if>>

<<if $tshirtno gte 1>> |
<<link "T-shirt">><<set $wear to "tshirt">><><</link>>
<</if>>

<<if $schoolshirtno gte 1>> |
<<link "School shirt">><<set $wear to "schoolshirt">><><</link>>
<</if>>

<<if $tanktopno gte 1>> |
<<link "Tank top">><<set $wear to "tanktop">><><</link>>
<</if>>

 | <<link "Towel">><<set $wear to "uppertowel">>
 <>
<</link>>

<<link "Strip top">><<set $wear to "stripupper">><><</link>>

Bottoms

<<if $lowerpjsno gte 1>> |
<<link "Pyjama bottoms">><<set $wear to "lowerpjs">>
<><</link>>
<</if>>

<<if $lowerbikinino gte 1>> |
<<link "Bikini bottoms">><<set $wear to "lowerbikini">>
<><</link>>
<</if>>

<<if $waistapronno gte 1>> |
<<link "Waist apron">><<set $wear to "waistapron">>
<><</link>>
<</if>>

<<if $shortsno gte 1>> |
<<link "Shorts">><<set $wear to "shorts">><>
<</link>>
<</if>>

<<if $schoolshortsno gte 1>> |
<<link "School shorts">><<set $wear to "schoolshorts">><>
<</link>>
<</if>>

<<if $schoolskirtno gte 1>> |
<<link "School skirt">><<set $wear to "schoolskirt">><>
<</link>>
<</if>>

<<if $schoolswimshortsno gte 1>> |
<<link "School swim shorts">><<set $wear to "schoolswimshorts">><>
<</link>>
<</if>>

 | <<link "Towel">><<set $wear to "lowertowel">>
 <>
<</link>>

<<link "Strip bottom">><<set $wear to "striplower">><><</link>>

Underwear

<<if $undertype is "chastity">>
You can't remove your chastity belt without help.

<<else>>

<<if $plainpantiesno gte 1>> |
<<link "Plain panties">><<set $wear to "plainpanties">><><</link>>
<</if>>

<<if $lacepantiesno gte 1>> |
<<link "Lace panties">><<set $wear to "lacepanties">><><</link>>
<</if>>

<<if $yfrontsno gte 1>> |
<<link "Y fronts">><<set $wear to "yfronts">><><</link>>
<</if>>

<<if $tightsno gte 1>> |
<<link "Tights">><<set $wear to "tights">><><</link>>
<</if>>

<<link "Strip underwear">><<set $wear to "stripunder">><><</link>>

<</if>>

<<accessories>>

<<link "Set currently worn clothing as casual outfit">><<set $upperoutfitcasual to $upperclothes>><<set $loweroutfitcasual to $lowerclothes>><<set $underoutfitcasual to $underclothes>><><</link>>

<<link "Set currently worn clothing as school outfit">><<set $upperoutfitschool to $upperclothes>><<set $loweroutfitschool to $lowerclothes>><<set $underoutfitschool to $underclothes>><><</link>>

<<link "Set currently worn clothing as custom 1 outfit">><<set $upperoutfitcustom1 to $upperclothes>><<set $loweroutfitcustom1 to $lowerclothes>><<set $underoutfitcustom1 to $underclothes>><><</link>>

<<link "Set currently worn clothing as custom 2 outfit">><<set $upperoutfitcustom2 to $upperclothes>><<set $loweroutfitcustom2 to $lowerclothes>><<set $underoutfitcustom2 to $underclothes>><><</link>>

<<link "Set currently worn clothing as custom 3 outfit">><<set $upperoutfitcustom3 to $upperclothes>><<set $loweroutfitcustom3 to $lowerclothes>><<set $underoutfitcustom3 to $underclothes>><><</link>>

<<link "Set currently worn clothing as custom 4 outfit">><<set $upperoutfitcustom4 to $upperclothes>><<set $loweroutfitcustom4 to $lowerclothes>><<set $underoutfitcustom4 to $underclothes>><><</link>>

<<set $upperoff to 0>>
<<set $loweroff to 0>>
<<set $underoff to 0>>

<<exposure>>

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

:: Wardrobe [nobr]

<<effects>>
You look in your wardrobe.

<<wardrobewear>>
[[Close wardrobe|Bedroom]]

<<wardrobe>>

:: Changing Room [nobr]
<<effects>><<set $outside to 0>><<set $location to "beach">>
You are in a small wooden changing room.

<<wardrobewear>>
<<if $exposed lte 0>>
[[Leave|Beach]]

<<else>>
You can't go out like this!

<</if>>
<<wardrobe>>

:: Eden Wardrobe [nobr]
<<effects>>
You look through the cupboard containing your clothes. There's an old dressing screen for privacy.

<<wardrobewear>>
<<if $exhibitionism lte 54>>
	<<if $exposed lte 0>>
	<<link [[Done|Eden Cabin]]>><<pass 1>><</link>>

	<<else>>
	You can't remain undressed like this!

	<</if>>
<<else>>
	<<if $exposed lte 1>>
	<<link [[Done|Eden Cabin]]>><</link>>

	<<else>>
	You can't remain undressed like this!

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

:: Asylum Wardrobe [nobr]
<<effects>>
You look through the cupboard containing your clothes.

<<wardrobewear>>
<<if $exhibitionism lte 54>>
	<<if $exposed lte 0>>
	<<link [[Done|Asylum Cell]]>><<pass 1>><</link>>

	<<else>>
	You can't remain undressed like this!

	<</if>>
<<else>>
	<<if $exposed lte 1>>
	<<link [[Done|Asylum Cell]]>><</link>>

	<<else>>
	You can't remain undressed like this!

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

:: Strip Club Dressing Room [nobr]
<<effects>><<set $outside to 0>><<set $location to "town">>
You are in the strip club's dressing room. <<if $daystate isnot "day" and $daystate isnot "dawn">>There are a few mirrors, currently occupied by staff fixing their hair and makeup.<</if>>

<<wardrobewear>>
<<if $exhibitionism lte 54>>
	<<if $exposed lte 0>>
	<<link [[Back to the club (0:01)|Strip Club]]>><<pass 1>><</link>>

	<<else>>
	You can't go out like this!

	<</if>>
<<elseif $exhibitionism gte 95>>
<<link [[Back to the club (0:01)|Strip Club]]>><<pass 1>><</link>>

<<else>>
	<<if $exposed lte 1>>
	<<link [[Back to the club (0:01)|Strip Club]]>><<pass 1>><</link>>

	<<else>>
	You can't go out like this!

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

:: Brothel Dressing Room [nobr]
<<effects>><<set $outside to 0>><<set $location to "town">>
You are in the brothel's dressing room. There are a few mirrors, currently occupied by staff fixing their hair and makeup.

<<wardrobewear>>
<<if $exhibitionism lte 54>>
	<<if $exposed lte 0>>
	<<link [[Back to the brothel (0:01)|Brothel]]>><<pass 1>><</link>>

	<<else>>
	You can't go out like this!

	<</if>>
<<elseif $exhibitionism gte 95>>
<<link [[Back to the brothel (0:01)|Brothel]]>><<pass 1>><</link>>

<<else>>
	<<if $exposed lte 1>>
	<<link [[Back to the brothel (0:01)|Brothel]]>><<pass 1>><</link>>

	<<else>>
	You can't go out like this!

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

repo_name: warawanaineko/degrees


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

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

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


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


code:
:: Widgets Actions Speak [widget]
<<widget "speak">><<nobr>>

<<if $underwater lte 0>>
	<<if $consensual is 1>>
			<<if $mouthactiondefault is "finish">>
	| Tell <<him>> you want to stop <<radiobutton "$mouthaction" "finish" checked>><<seductiondifficulty>>
			<<else>>
	| Tell <<him>> you want to stop <<radiobutton "$mouthaction" "finish">><<seductiondifficulty>>
			<</if>>
		<<if $enemytype is "man">>
			<<if $vaginaexist is 1 and $vaginalchastity is 0 and $novaginal is 0>>
	| Tell <<him>> you don't want anything in your pussy <<radiobutton "$mouthaction" "novaginal">><<seductiondifficulty>>
			<</if>>
			<<if $penisexist is 1 and $penilechastity is 0 and $nopenile is 0>>
	| Tell <<him>> you don't want your penis put inside anything <<radiobutton "$mouthaction" "nopenile">><<seductiondifficulty>>
			<</if>>
			<<if $analchastity is 0 and $noanal is 0>>
	| Tell <<him>> you don't want anything in your anus <<radiobutton "$mouthaction" "noanal">><<seductiondifficulty>>
			<</if>>
		<</if>>
	<<else>>
		<<if $mouthactiondefault is "scream">>
| Scream <<radiobutton "$mouthaction" "scream" checked>>
		<<else>>
| Scream <<radiobutton "$mouthaction" "scream">>
		<</if>>
	<</if>>
	<<if $consensual is 0>>
		<<if $mouthactiondefault is "plead">>
| Plead <<radiobutton "$mouthaction" "plead" checked>>
		<<else>>
| Plead <<radiobutton "$mouthaction" "plead">>
		<</if>>
	<</if>>
	<<if $consensual is 0 and $angel gte 6 and $angelforgive isnot 1>>
		<<if $mouthactiondefault is "forgive">>
| Forgive <<radiobutton "$mouthaction" "forgive" checked>>
		<<else>>
| Forgive <<radiobutton "$mouthaction" "forgive">>
		<</if>>
	<</if>>
	<<if $submissive gte 1150>>
		<<if $mouthactiondefault is "moan">>
| Moan <<radiobutton "$mouthaction" "moan" checked>>
		<<else>>
| Moan <<radiobutton "$mouthaction" "moan">>
		<</if>>
	<<elseif $submissive lte 850 and $consensual is 0>>
		<<if $mouthactiondefault is "demand">>
| Demand <<radiobutton "$mouthaction" "demand" checked>>
		<<else>>
| Demand <<radiobutton "$mouthaction" "demand">>
		<</if>>
	<</if>>
	<<if $awarelevel gte 2 and $enemytype is "man">>
		<<if $mouthactiondefault is "mock">>
		| <<if $consensual is 1>>Tease their<<else>>Mock their<</if>> <<radiobutton "$mouthaction" "mock" checked>>
		<<else>>
		| <<if $consensual is 1>>Tease their<<else>>Mock their<</if>> <<radiobutton "$mouthaction" "mock">>
		<</if>>
	<<listbox "$mockaction">>
	<<option "ethics" "ethics" `$mockaction is "ethics" ? "selected" : ""`>>
	<<option "looks" "looks" `$mockaction is "looks" ? "selected" : ""`>>
	<<option "strength" "weak" `$mockaction is "weak" ? "selected" : ""`>>
	<<option "skill" "skill" `$mockaction is "skill" ? "selected" : ""`>>
	<<option "penis" "penis" `$mockaction is "penis" ? "selected" : ""`>>
	<<option "pussy" "vagina" `$mockaction is "vagina" ? "selected" : ""`>>
	<</listbox>>
	<</if>>
<</if>>

<<if $mouthactiondefault is "rest">>
| Rest <<radiobutton "$mouthaction" "rest" checked>>
<<else>>
| Rest <<radiobutton "$mouthaction" "rest">>
<</if>>

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