code:
:: Widgets Upper Clothing [widget]

<<widget "uppernaked">><<nobr>>
<<upperstrip>>
<<if $uppertemp is "init">>
<<set $uppertemp to 1>>
<<elseif $uppertemp is 1>>
<<set $uppertemp to 0>>
<</if>>
<<set $upperclothes to "naked">>
<<set $uppervariable to "naked">>
<<set $upperintegrity to 0>>
<<set $upperintegritymax to 0>>
<<set $upperfabricstrength to 0>>
<<set $upperreveal to 1000>>
<<set $upperword to "n">>
<<set $upperonepiece to 0>>
<<set $strap to 0>>
<<set $open to 0>>
<<set $upperstate to 0>>
<<set $upperstatetop to 0>>
<<set $upperstatebase to 0>>
<<set $upperstatetopbase to 0>>
<<set $upperplural to 0>>
<<set $uppercolour to 0>>
<<set $upperexposed to 2>>
<<set $upperexposedbase to 2>>
<<set $uppertype to "naked">>
<<if $clothingchange isnot 1 and $ruined isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<lowernaked>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $upperset to "upper">>
<<set $uppergender to "n">>
<</nobr>><</widget>>

<<widget "uppersundress">><<nobr>>
<<upperstrip>><<upperundress>>
<<set $upperclothes to "sundress">>
<<set $uppervariable to "uppersundress">>
<<set $uppersundressintegritymax to 100>>
<<set $upperintegritymax to $uppersundressintegritymax>>
<<set $upperfabricstrength to 30>>
<<set $upperreveal to 200>>
<<set $upperword to "a">>
<<set $upperonepiece to 1>>
<<set $strap to 1>>
<<set $open to 1>>
<<set $upperstate to "waist">>
<<set $upperstatetop to "chest">>
<<set $upperstatebase to "waist">>
<<set $upperstatetopbase to "chest">>
<<set $upperplural to 0>>
<<if $uppersundressnew is 1>><<set $uppersundressnew to 0>><<set $uppersundressintegrity to $uppersundressintegritymax>>
<<set $sundresscolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $sundresscolourchoice isnot 0>>
<<set $sundresscolour to $sundresscolourchoice>>
<</if>>
<</if>>
<<set $uppercolour to $sundresscolour>>
<<set $upperintegrity to $uppersundressintegrity>>
<<set $upperexposed to 0>>
<<set $upperexposedbase to 0>>
<<set $uppertype to "normal">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<lowerstrip>><<lowerundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $upperset to "sundress">>
<<set $uppergender to "f">>
<</nobr>><</widget>>

<<widget "upperpjs">><<nobr>>
<<upperstrip>><<upperundress>>
<<set $upperclothes to "pyjama shirt">>
<<set $uppervariable to "upperpjs">>
<<set $upperpjsintegritymax to 100>>
<<set $upperintegritymax to $upperpjsintegritymax>>
<<set $upperfabricstrength to 20>>
<<set $upperreveal to 100>>
<<set $upperword to "a">>
<<set $upperonepiece to 0>>
<<set $strap to 0>>
<<set $open to 0>>
<<set $upperstate to "waist">>
<<set $upperstatetop to "chest">>
<<set $upperstatebase to "waist">>
<<set $upperstatetopbase to "chest">>
<<set $upperplural to 0>>
<<if $upperpjsnew is 1>><<set $upperpjsnew to 0>><<set $upperpjsintegrity to $upperpjsintegritymax>>
<<set $upperpjscolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $upperpjscolourchoice isnot 0>>
<<set $upperpjscolour to $upperpjscolourchoice>>
<</if>>
<</if>>
<<set $uppercolour to $upperpjscolour>>
<<set $upperintegrity to $upperpjsintegrity>>
<<set $upperexposed to 0>>
<<set $upperexposedbase to 0>>
<<set $uppertype to "sleep">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<lowerstrip>><<lowerundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $upperset to "upper">>
<<set $uppergender to "n">>
<</nobr>><</widget>>

<<widget "uppertowel">><<nobr>>
<<upperstrip>><<upperundress>>
<<set $upperclothes to "towel">>
<<set $uppervariable to "uppertowel">>
<<set $uppertowelintegritymax to 10>>
<<set $upperintegritymax to $uppertowelintegritymax>>
<<set $upperfabricstrength to 20>>
<<set $upperreveal to 800>>
<<set $upperword to "a">>
<<set $upperonepiece to 0>>
<<set $strap to 0>>
<<set $open to 1>>
<<set $upperstate to "waist">>
<<set $upperstatetop to "chest">>
<<set $upperstatebase to "waist">>
<<set $upperstatetopbase to "chest">>
<<set $upperplural to 0>>
<<if $uppertowelnew is 1>><<set $uppertowelnew to 0>><<set $uppertowelintegrity to $uppertowelintegritymax>>
<<set $uppertowelcolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $uppertowelcolourchoice isnot 0>>
<<set $uppertowelcolour to $uppertowelcolourchoice>>
<</if>>
<</if>>
<<set $uppercolour to $uppertowelcolour>>
<<set $upperintegrity to $uppertowelintegrity>>
<<set $upperexposed to 0>>
<<set $upperexposedbase to 0>>
<<set $uppertype to "normal">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<lowerstrip>><<lowerundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $upperset to "upper">>
<<set $uppergender to "n">>
<</nobr>><</widget>>

<<widget "upperbikini">><<nobr>>
<<upperstrip>><<upperundress>>
<<set $upperclothes to "bikini top">>
<<set $uppervariable to "upperbikini">>
<<set $upperbikiniintegritymax to 20>>
<<set $upperintegritymax to $upperbikiniintegritymax>>
<<set $upperfabricstrength to 20>>
<<set $upperreveal to 900>>
<<set $upperword to "a">>
<<set $upperonepiece to 0>>
<<set $strap to 1>>
<<set $open to 1>>
<<set $upperstate to "midriff">>
<<set $upperstatetop to "chest">>
<<set $upperstatebase to "midriff">>
<<set $upperstatetopbase to "chest">>
<<set $upperplural to 0>>
<<if $upperbikininew is 1>><<set $upperbikininew to 0>><<set $upperbikiniintegrity to $upperbikiniintegritymax>><<set $upperbikinicolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $upperbikinicolourchoice isnot 0>>
<<set $upperbikinicolour to $upperbikinicolourchoice>>
<</if>>
<</if>>
<<set $uppercolour to $upperbikinicolour>>
<<set $upperintegrity to $upperbikiniintegrity>>
<<set $upperexposed to 1>>
<<set $upperexposedbase to 1>>
<<set $uppertype to "swim">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<lowerstrip>><<lowerundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $upperset to "upper">>
<<set $uppergender to "f">>
<</nobr>><</widget>>

<<widget "tshirt">><<nobr>>
<<upperstrip>><<upperundress>>
<<set $upperclothes to "t-shirt">>
<<set $uppervariable to "tshirt">>
<<set $tshirtintegritymax to 100>>
<<set $upperintegritymax to $tshirtintegritymax>>
<<set $upperfabricstrength to 20>>
<<set $upperreveal to 200>>
<<set $upperword to "a">>
<<set $upperonepiece to 0>>
<<set $strap to 0>>
<<set $open to 0>>
<<set $upperstate to "waist">>
<<set $upperstatetop to "chest">>
<<set $upperstatebase to "waist">>
<<set $upperstatetopbase to "chest">>
<<set $upperplural to 0>>
<<if $tshirtnew is 1>><<set $tshirtnew to 0>><<set $tshirtintegrity to $tshirtintegritymax>>
<<set $tshirtcolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $tshirtcolourchoice isnot 0>>
<<set $tshirtcolour to $tshirtcolourchoice>>
<</if>>
<</if>>
<<set $uppercolour to $tshirtcolour>>
<<set $upperintegrity to $tshirtintegrity>>
<<set $upperexposed to 0>>
<<set $upperexposedbase to 0>>
<<set $uppertype to "normal">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<lowerstrip>><<lowerundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $upperset to "upper">>
<<set $uppergender to "n">>
<</nobr>><</widget>>

<<widget "schoolshirt">><<nobr>>
<<upperstrip>><<upperundress>>
<<set $upperclothes to "school shirt">>
<<set $uppervariable to "schoolshirt">>
<<set $schoolshirtintegritymax to 200>>
<<set $upperintegritymax to $schoolshirtintegritymax>>
<<set $upperfabricstrength to 30>>
<<set $upperreveal to 100>>
<<set $upperword to "a">>
<<set $upperonepiece to 0>>
<<set $strap to 0>>
<<set $open to 0>>
<<set $upperstate to "waist">>
<<set $upperstatetop to "chest">>
<<set $upperstatebase to "waist">>
<<set $upperstatetopbase to "chest">>
<<set $upperplural to 0>>
<<if $schoolshirtnew is 1>><<set $schoolshirtnew to 0>>
<<set $schoolshirtintegrity to $schoolshirtintegritymax>>
<<set $schoolshirtcolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $schoolshirtcolourchoice isnot 0>>
<<set $schoolshirtcolour to $schoolshirtcolourchoice>>
<</if>>
<</if>>
<<set $uppercolour to $schoolshirtcolour>>
<<set $upperintegrity to $schoolshirtintegrity>>
<<set $upperexposed to 0>>
<<set $upperexposedbase to 0>>
<<set $uppertype to "school">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<lowerstrip>><<lowerundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $upperset to "upper">>
<<set $uppergender to "n">>
<</nobr>><</widget>>

<<widget "upperschoolswimsuit">><<nobr>>
<<upperstrip>><<upperundress>>
<<set $upperclothes to "school swimsuit">>
<<set $uppervariable to "upperschoolswimsuit">>
<<set $upperschoolswimsuitintegritymax to 40>>
<<set $upperintegritymax to $upperschoolswimsuitintegritymax>>
<<set $upperfabricstrength to 30>>
<<set $upperreveal to 600>>
<<set $upperword to "a">>
<<set $upperonepiece to 1>>
<<set $strap to 1>>
<<set $open to 1>>
<<set $upperstate to "waist">>
<<set $upperstatetop to "chest">>
<<set $upperstatebase to "waist">>
<<set $upperstatetopbase to "chest">>
<<set $upperplural to 0>>
<<if $upperschoolswimsuitnew is 1>><<set $upperschoolswimsuitnew to 0>><<set $upperschoolswimsuitintegrity to $upperschoolswimsuitintegritymax>>
<<set $schoolswimsuitcolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $schoolswimsuitcolourchoice isnot 0>>
<<set $schoolswimsuitcolour to $schoolswimsuitcolourchoice>>
<</if>>
<</if>>
<<set $uppercolour to $schoolswimsuitcolour>>
<<set $upperintegrity to $upperschoolswimsuitintegrity>>
<<set $upperexposed to 1>>
<<set $upperexposedbase to 1>>
<<set $uppertype to "swim">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<lowerstrip>><<lowerundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $upperset to "school swimsuit">>
<<set $uppergender to "f">>
<</nobr>><</widget>>

<<widget "upperplant">><<nobr>>
<<upperstrip>><<upperundress>>
<<set $upperclothes to "plant top">>
<<set $uppervariable to "upperplant">>
<<set $upperplantintegritymax to 10>>
<<set $upperintegritymax to $upperplantintegritymax>>
<<set $upperfabricstrength to 20>>
<<set $upperreveal to 900>>
<<set $upperword to "a">>
<<set $upperonepiece to 0>>
<<set $strap to 0>>
<<set $open to 1>>
<<set $upperstate to "midriff">>
<<set $upperstatetop to "chest">>
<<set $upperstatebase to "midriff">>
<<set $upperstatetopbase to "chest">>
<<set $upperplural to 0>>
<<if $upperplantnew is 1>><<set $upperplantnew to 0>><<set $upperplantintegrity to $upperplantintegritymax>>
<</if>>
<<set $upperplantcolour to "green">>
<<set $uppercolour to $upperplantcolour>>
<<set $upperintegrity to $upperplantintegrity>>
<<set $upperexposed to 1>>
<<set $upperexposedbase to 1>>
<<set $uppertype to "swim">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<lowerstrip>><<lowerundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $upperset to "upper">>
<<set $uppergender to "n">>
<</nobr>><</widget>>

<<widget "uppereveninggown">><<nobr>>
<<upperstrip>><<upperundress>>
<<set $upperclothes to "evening gown">>
<<set $uppervariable to "uppereveninggown">>
<<set $uppereveninggownintegritymax to 200>>
<<set $upperintegritymax to $uppereveninggownintegritymax>>
<<set $upperfabricstrength to 30>>
<<set $upperreveal to 500>>
<<set $upperword to "a">>
<<set $upperonepiece to 1>>
<<set $strap to 1>>
<<set $open to 1>>
<<set $upperstate to "waist">>
<<set $upperstatetop to "chest">>
<<set $upperstatebase to "waist">>
<<set $upperstatetopbase to "chest">>
<<set $upperplural to 0>>
<<if $uppereveninggownnew is 1>><<set $uppereveninggownnew to 0>><<set $uppereveninggownintegrity to $uppereveninggownintegritymax>>
<<set $eveninggowncolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $eveninggowncolourchoice isnot 0>>
<<set $eveninggowncolour to $eveninggowncolourchoice>>
<</if>>
<</if>>
<<set $uppercolour to $eveninggowncolour>>
<<set $upperintegrity to $uppereveninggownintegrity>>
<<set $upperexposed to 0>>
<<set $upperexposedbase to 0>>
<<set $uppertype to "normal">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<lowerstrip>><<lowerundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $upperset to "evening gown">>
<<set $uppergender to "f">>
<</nobr>><</widget>>

<<widget "tanktop">><<nobr>>
<<upperstrip>><<upperundress>>
<<set $upperclothes to "tank top">>
<<set $uppervariable to "tanktop">>
<<set $tanktopintegritymax to 100>>
<<set $upperintegritymax to $tanktopintegritymax>>
<<set $upperfabricstrength to 20>>
<<set $upperreveal to 300>>
<<set $upperword to "a">>
<<set $upperonepiece to 0>>
<<set $strap to 0>>
<<set $open to 0>>
<<set $upperstate to "waist">>
<<set $upperstatetop to "chest">>
<<set $upperstatebase to "waist">>
<<set $upperstatetopbase to "chest">>
<<set $upperplural to 0>>
<<if $tanktopnew is 1>><<set $tanktopnew to 0>><<set $tanktopintegrity to $tanktopintegritymax>>
<<set $tanktopcolour to either("black", "blue", "green", "pink", "purple", "red", "tangerine", "white", "yellow")>>
<<if $tanktopcolourchoice isnot 0>>
<<set $tanktopcolour to $tanktopcolourchoice>>
<</if>>
<</if>>
<<set $uppercolour to $tanktopcolour>>
<<set $upperintegrity to $tanktopintegrity>>
<<set $upperexposed to 0>>
<<set $upperexposedbase to 0>>
<<set $uppertype to "normal">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<lowerstrip>><<lowerundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $upperset to "upper">>
<<set $uppergender to "n">>
<</nobr>><</widget>>


code:
:: Widgets Img [widget]
<<widget "img">><<nobr>>

<<if $spray gte 1>>

<<elseif $spraymax gte 1>>

<</if>>
<<if $spray gte 2>>

<<elseif $spraymax gte 2>>

<</if>>
<<if $spray gte 3>>

<<elseif $spraymax gte 3>>

<</if>>
<<if $spray gte 4>>

<<elseif $spraymax gte 4>>

<</if>>
<<if $spray gte 5>>

<<elseif $spraymax gte 5>>

<</if>>

<<if $uppertype is "naked">>
	<<if $breastsize gte 12>>

	<<elseif $breastsize gte 8>>

	<<elseif $breastsize gte 6>>

	<<elseif $breastsize gte 4>>

	<<elseif $breastsize gte 3>>

	<<elseif $breastsize gte 1>>

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

<<if $leftarm isnot "bound">>
	<<if $masturbationimages is 1>>
		<<if $leftaction is "mpenisentrance">>

		<<elseif $leftaction is "mvaginaentrance">>

		<<elseif $leftaction is "manus">>

		<<elseif $leftaction is "manusentrance">>

		<<elseif $leftaction is "manusrub">>

		<<elseif $leftaction is "manustease">>

		<<elseif $leftaction is "manusprostate">>

		<<elseif $leftaction is "mpenisshaft">>

		<<elseif $leftaction is "mpenisglans">>

		<<elseif $leftaction is "mvagina">>

		<<elseif $leftaction is "mvaginaclit">>

		<<elseif $leftaction is "mvaginatease">>

		<</if>>
	<<elseif $exhibitionism gte 95 and $exhibitionismaction isnot "embarrassed" and $exposed gte 2>>

	<<elseif $exhibitionism gte 55 and $exposed is 1 and $lightexhibitionismaction isnot "embarrassed">>

	<<elseif $upperexposed gte 1 and $exposed gte 1>>

	<<else>>

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

<<if $rightarm isnot "bound">>
	<<if $masturbationimages is 1>>
		<<if $rightaction is "mpenisentrance">>

		<<elseif $rightaction is "mvaginaentrance">>

		<<elseif $rightaction is "manus">>

		<<elseif $rightaction is "manusentrance">>

		<<elseif $rightaction is "manusrub">>

		<<elseif $rightaction is "manustease">>

		<<elseif $rightaction is "manusprostate">>

		<<elseif $rightaction is "mpenisshaft">>

		<<elseif $rightaction is "mpenisglans">>

		<<elseif $rightaction is "mvagina">>

		<<elseif $rightaction is "mvaginaclit">>

		<<elseif $rightaction is "mvaginatease">>

		<</if>>
	<<elseif $exhibitionism gte 95 and $exhibitionismaction isnot "embarrassed" and $exposed gte 2>>

	<<elseif $exhibitionism gte 55 and $exposed is 1 and $lightexhibitionismaction isnot "embarrassed">>

	<<elseif $lowerexposed gte 1 and $exposed gte 1>>

	<<else>>

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

<<if $pain gte 80>>

<<elseif $pain gte 60>>

<<elseif $pain gte 40>>

<<elseif $pain gte 20>>

<</if>>

<<if $arousal gte 8000>>

<<elseif $arousal gte 6000>>

<<elseif $arousal gte 4000>>

<<elseif $exposed gte 2>>

<<elseif $arousal gte 2000>>

<<elseif $exposed gte 1>>

<<elseif $arousal gte 100>>

<</if>>

<<if $pain gte 100>>

<</if>>

<<if $trauma gte $traumamax>>

<<elseif $orgasmdown gte 1>>

<<elseif $pain gte 80>>

<<elseif $pain gte 60>>

<<elseif $pain gte 40>>

<<elseif $pain gte 20>>

<<elseif $exposed is 2 and $exhibitionismaction is "embarrassed">>

<<elseif $pain gte 1>>

<<elseif $exposed is 1 and $lightexhibitionismaction is "embarrassed">>

<<elseif $combat is 1 and $consensual isnot 1>>

<<else>>

<</if>>

<<if $trauma gte $traumamax>>

<<else>>

<</if>>

<<if $pain gte 100>>

<</if>>

<<if $vaginasemen + $vaginagoo gte 5>>

<<elseif $vaginasemen + $vaginagoo gte 4>>

<<elseif $vaginasemen + $vaginagoo gte 3>>

<<elseif $vaginasemen + $vaginagoo gte 2>>

<<elseif $vaginasemen + $vaginagoo gte 1>>

<</if>>

<<if $anussemen + $anusgoo gte 5>>

<<elseif $anussemen + $anusgoo gte 4>>

<<elseif $anussemen + $anusgoo gte 3>>

<<elseif $anussemen + $anusgoo gte 2>>

<<elseif $anussemen + $anusgoo gte 1>>

<</if>>

<<if $mouthsemen + $mouthgoo gte 5>>

<<elseif $mouthsemen + $mouthgoo gte 4>>

<<elseif $mouthsemen + $mouthgoo gte 3>>

<<elseif $mouthsemen + $mouthgoo gte 2>>

<<elseif $mouthsemen + $mouthgoo gte 1>>

<</if>>

<<if $fallenangel gte 2>>

<</if>>

<<if $angel gte 4>>

<</if>>

<<if $angel gte 6>>

<</if>>

<<if $demon gte 2>>

<</if>>

<<if $demon gte 4>>

<</if>>

<<if $demon gte 6>>

<</if>>

<<if $wolfgirl gte 4>>

	<<if $hirsutedisable is "f">>

	<</if>>

<</if>>

<<if $wolfgirl gte 6>>

<</if>>

<<if $cat gte 4>>

<</if>>

<<if $cat gte 6>>

<</if>>

<<if $hairposition is "front">>
	<<if $hairlength gte 900>>
		<<if $hairtype is "straight">>

		<<else>>

		<</if>>

	<<elseif $hairlength gte 700>>
		<<if $hairtype is "straight">>

		<<else>>

		<</if>>

	<<elseif $hairlength gte 600>>
		<<if $hairtype is "straight">>

		<<else>>

		<</if>>

	<<elseif $hairlength gte 400>>
		<<if $hairtype is "straight">>

		<<else>>

		<</if>>

	<<elseif $hairlength gte 200>>
		<<if $hairtype is "straight">>

		<<else>>

		<</if>>

	<<else>>
		<<if $hairtype is "straight">>

		<<else>>

		<</if>>

	<</if>>
<<else>>
	<<if $hairlength gte 900>>
		<<if $hairtype is "straight">>

		<<else>>

		<</if>>

	<<elseif $hairlength gte 700>>
		<<if $hairtype is "straight">>

		<<else>>

		<</if>>

	<<elseif $hairlength gte 600>>
		<<if $hairtype is "straight">>

		<<else>>

		<</if>>

	<<elseif $hairlength gte 400>>
		<<if $hairtype is "straight">>

		<<else>>

		<</if>>

	<<elseif $hairlength gte 200>>
		<<if $hairtype is "straight">>

		<<else>>

		<</if>>

	<<else>>
		<<if $hairtype is "straight">>

		<<else>>

		<</if>>

	<</if>>

<</if>>

<<if $fringelength gte 900>>
	<<if $fringetype is "hime">>

	<</if>>

<<elseif $fringelength gte 700>>
	<<if $fringetype is "hime">>

	<</if>>

<<elseif $fringelength gte 600>>
	<<if $fringetype is "hime">>

	<</if>>

<<elseif $fringelength gte 400>>
	<<if $fringetype is "hime">>

	<</if>>

<<elseif $fringelength gte 200>>
	<<if $fringetype is "hime">>

	<</if>>

<<else>>
	<<if $fringetype is "hime">>

	<</if>>

<</if>>

<<if $trauma gte $traumamax>>

<<elseif $pain gte 60>>

<<elseif $pain gte 20>>

<<else>>

<</if>>

<<if $underwetstage gte 3>>
	<<if $undercolour is "green">>
		<<set $undercolour to "wetgreen">>
	<<elseif $undercolour is "red">>
		<<set $undercolour to "wetred">>
	<<elseif $undercolour is "white">>
		<<set $undercolour to "wetwhite">>
	<<elseif $undercolour is "blue">>
		<<set $undercolour to "wetblue">>
	<<elseif $undercolour is "yellow">>
		<<set $undercolour to "wetyellow">>
	<<elseif $undercolour is "pink">>
		<<set $undercolour to "wetpink">>
	<<elseif $undercolour is "purple">>
		<<set $undercolour to "wetpurple">>
	<<elseif $undercolour is "tangerine">>
		<<set $undercolour to "wettangerine">>
	<<elseif $undercolour is "black">>
		<<set $undercolour to "wetblack">>
	<</if>>
	<<underclothesimg>>
<<else>>
	<<if $undercolour is "wetgreen">>
		<<set $undercolour to "green">>
	<<elseif $undercolour is "wetred">>
		<<set $undercolour to "red">>
	<<elseif $undercolour is "wetwhite">>
		<<set $undercolour to "white">>
	<<elseif $undercolour is "wetblue">>
		<<set $undercolour to "blue">>
	<<elseif $undercolour is "wetyellow">>
		<<set $undercolour to "yellow">>
	<<elseif $undercolour is "wetpink">>
		<<set $undercolour to "pink">>
	<<elseif $undercolour is "wetpurple">>
		<<set $undercolour to "purple">>
	<<elseif $undercolour is "wettangerine">>
		<<set $undercolour to "tangerine">>
	<<elseif $undercolour is "wetblack">>
		<<set $undercolour to "black">>
	<</if>>
	<<underclothesimg>>
<</if>>

<<if $lowerwetstage gte 3>>
	<<if $lowercolour is "green">>
		<<set $lowercolour to "wetgreen">>
	<<elseif $lowercolour is "red">>
		<<set $lowercolour to "wetred">>
	<<elseif $lowercolour is "white">>
		<<set $lowercolour to "wetwhite">>
	<<elseif $lowercolour is "blue">>
		<<set $lowercolour to "wetblue">>
	<<elseif $lowercolour is "yellow">>
		<<set $lowercolour to "wetyellow">>
	<<elseif $lowercolour is "pink">>
		<<set $lowercolour to "wetpink">>
	<<elseif $lowercolour is "purple">>
		<<set $lowercolour to "wetpurple">>
	<<elseif $lowercolour is "tangerine">>
		<<set $lowercolour to "wettangerine">>
	<<elseif $lowercolour is "black">>
		<<set $lowercolour to "wetblack">>
	<</if>>
	<<lowerclothesimg>>
<<else>>
	<<if $lowercolour is "wetgreen">>
		<<set $lowercolour to "green">>
	<<elseif $lowercolour is "wetred">>
		<<set $lowercolour to "red">>
	<<elseif $lowercolour is "wetwhite">>
		<<set $lowercolour to "white">>
	<<elseif $lowercolour is "wetblue">>
		<<set $lowercolour to "blue">>
	<<elseif $lowercolour is "wetyellow">>
		<<set $lowercolour to "yellow">>
	<<elseif $lowercolour is "wetpink">>
		<<set $lowercolour to "pink">>
	<<elseif $lowercolour is "wetpurple">>
		<<set $lowercolour to "purple">>
	<<elseif $lowercolour is "wettangerine">>
		<<set $lowercolour to "tangerine">>
	<<elseif $lowercolour is "wetblack">>
		<<set $lowercolour to "black">>
	<</if>>
	<<lowerclothesimg>>
<</if>>

<<if $upperwetstage gte 3>>
	<<if $uppercolour is "green">>
		<<set $uppercolour to "wetgreen">>
	<<elseif $uppercolour is "red">>
		<<set $uppercolour to "wetred">>
	<<elseif $uppercolour is "white">>
		<<set $uppercolour to "wetwhite">>
	<<elseif $uppercolour is "blue">>
		<<set $uppercolour to "wetblue">>
	<<elseif $uppercolour is "yellow">>
		<<set $uppercolour to "wetyellow">>
	<<elseif $uppercolour is "pink">>
		<<set $uppercolour to "wetpink">>
	<<elseif $uppercolour is "purple">>
		<<set $uppercolour to "wetpurple">>
	<<elseif $uppercolour is "tangerine">>
		<<set $uppercolour to "wettangerine">>
	<<elseif $uppercolour is "black">>
		<<set $uppercolour to "wetblack">>
	<</if>>
	<<upperclothesimg>>
<<else>>
	<<if $uppercolour is "wetgreen">>
		<<set $uppercolour to "green">>
	<<elseif $uppercolour is "wetred">>
		<<set $uppercolour to "red">>
	<<elseif $uppercolour is "wetwhite">>
		<<set $uppercolour to "white">>
	<<elseif $uppercolour is "wetblue">>
		<<set $uppercolour to "blue">>
	<<elseif $uppercolour is "wetyellow">>
		<<set $uppercolour to "yellow">>
	<<elseif $uppercolour is "wetpink">>
		<<set $uppercolour to "pink">>
	<<elseif $uppercolour is "wetpurple">>
		<<set $uppercolour to "purple">>
	<<elseif $uppercolour is "wettangerine">>
		<<set $uppercolour to "tangerine">>
	<<elseif $uppercolour is "wetblack">>
		<<set $uppercolour to "black">>
	<</if>>
	<<upperclothesimg>>
<</if>>

<<if $collared is 1>>

<</if>>

<<if $exposed gte 2 and $penisexist is 1>>
	<<if $penilevirginity is 1>>

	<<else>>

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

<<if $chestparasite is 1>>

<</if>>

<<if $penisparasite is 1 and $exposed gte 2>>

<</if>>

<<if $clitparasite is 1 and $exposed gte 2>>

<</if>>

<<if $headacc is "hairpin">>

<</if>>

<<if $headacc is "beanie">>

<</if>>

<<if $faceacc is "glasses">>

<</if>>

<<if $faceacc is "cool shades">>

<</if>>

<<if $legsacc is "boys gym socks">>

<</if>>

<<if $legsacc is "girls gym socks">>

<</if>>

<<if $legsacc is "stockings">>

<</if>>

<<if $legsacc is "fishnet stockings">>

<</if>>

<<if $feetacc is "black shoes">>

<</if>>

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

:: Widgets Combat Clothes Img [widget]
<<widget "clothesidle">><<nobr>>

<<if $upperset is $lowerset and $skirt is 1>>
	<<if $upperstate is "waist">>
		<<if $skirtdown is 1>>

		<<elseif $skirtdown is 0>>

		<</if>>
	<<elseif $upperstate is "midriff">>

	<<elseif $upperstate is "chest">>

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

<<if $lowerclothes is "bikini bottoms">>

<<elseif $lowertype isnot "naked" and $upperset isnot $lowerset>>
	<<if $skirt is 1 and $skirtdown is 0 and $lowerstate is "waist">>

	<<elseif $skirt is 1 and $lowerstate is "waist">>

	<<elseif $skirt is 1 and $lowerstate is "thighs">>

	<<elseif $skirt is 1 and $lowerstate is "knees">>

	<<elseif $skirt is 1 and $lowerstate is "ankles">>

	<<elseif $lowerstate is "waist">>

	<<elseif $lowerstate is "thighs">>

	<<elseif $lowerstate is "knees">>

	<<elseif $lowerstate is "ankles">>

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

<<if $undertype isnot "naked" and $undertype isnot "chastity">>
	<<if $understate is "waist">>

	<<elseif $understate is "thighs">>

	<<elseif $understate is "knees">>

	<<elseif $understate is "ankles">>

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

<<if $upperclothes is "bikini top">>

	<<if $upperstate isnot "chest" and $upperstate isnot "midriff">>

	<<else>>

	<</if>>

<<elseif $uppertype isnot "naked" and $upperset isnot $lowerset>>
	<<if $leftarm isnot "bound" and $leftarm isnot "grappled">>
		<<if $upperstate is "waist">>

		<<else>>

		<</if>>
	<<else>>
		<<if $upperstate is "waist">>

		<<else>>

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

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

:: Widgets Clothes Img [widget]
<<widget "underclothesimg">><<nobr>>

<<if $underclothes is "plain panties">>
	<<if $underintegrity lte ($underintegritymax / 10) * 2>>

	<<elseif $underintegrity lte ($underintegritymax / 10) * 5>>

	<<elseif $underintegrity lte ($underintegritymax / 10) * 9>>

	<<else>>

	<</if>>
<<elseif $underclothes is "lace panties">>
	<<if $underintegrity lte ($underintegritymax / 10) * 2>>

	<<elseif $underintegrity lte ($underintegritymax / 10) * 5>>

	<<elseif $underintegrity lte ($underintegritymax / 10) * 9>>

	<<else>>

	<</if>>
<<elseif $underclothes is "Y fronts">>
	<<if $underintegrity lte ($underintegritymax / 10) * 2>>

	<<elseif $underintegrity lte ($underintegritymax / 10) * 5>>

	<<elseif $underintegrity lte ($underintegritymax / 10) * 9>>

	<<else>>

	<</if>>

<<elseif $underclothes is "tights">>
	<<if $underintegrity lte ($underintegritymax / 10) * 2>>

	<<elseif $underintegrity lte ($underintegritymax / 10) * 5>>

	<<elseif $underintegrity lte ($underintegritymax / 10) * 9>>

	<<else>>

	<</if>>

<<elseif $underclothes is "chastity belt">>

<<else>>
<</if>>

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

<<widget "lowerclothesimg">><<nobr>>

<<if $lowerclothes is "bikini bottoms">>

<<elseif $lowerclothes is "pyjama bottoms">>
	<<if $lowerintegrity lte ($lowerintegritymax / 10) * 2>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 5>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 9>>

	<<else>>

	<</if>>
<<elseif $lowerclothes is "shorts">>
	<<if $lowerintegrity lte ($lowerintegritymax / 10) * 2>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 5>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 9>>

	<<else>>

	<</if>>
<<elseif $lowerclothes is "sundress skirt">>
	<<if $lowerintegrity lte ($lowerintegritymax / 10) * 2>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 5>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 9>>

	<<else>>

	<</if>>
<<elseif $lowerclothes is "towel">>
	<<if $lowerintegrity lte ($lowerintegritymax / 10) * 2>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 5>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 9>>

	<<else>>

	<</if>>
<<elseif $lowerclothes is "waist apron">>
	<<if $lowerintegrity lte ($lowerintegritymax / 10) * 2>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 5>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 9>>

	<<else>>

	<</if>>
<<elseif $lowerclothes is "school shorts">>
	<<if $lowerintegrity lte ($lowerintegritymax / 10) * 2>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 5>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 9>>

	<<else>>

	<</if>>
<<elseif $lowerclothes is "school skirt">>
	<<if $lowerintegrity lte ($lowerintegritymax / 10) * 2>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 5>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 9>>

	<<else>>

	<</if>>
<<elseif $lowerclothes is "school swimsuit bottom">>
	<<if $lowerintegrity lte ($lowerintegritymax / 10) * 2>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 5>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 9>>

	<<else>>

	<</if>>
<<elseif $lowerclothes is "school swim shorts">>
	<<if $lowerintegrity lte ($lowerintegritymax / 10) * 2>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 5>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 9>>

	<<else>>

	<</if>>

<<elseif $lowerclothes is "evening gown skirt">>
	<<if $lowerintegrity lte ($lowerintegritymax / 10) * 2>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 5>>

	<<elseif $lowerintegrity lte ($lowerintegritymax / 10) * 9>>

	<<else>>

	<</if>>

<<elseif $lowerclothes is "plant skirt">>

<<else>>
<</if>>

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

<<widget "upperclothesimg">><<nobr>>

<<if $upperclothes is "bikini top">>

<<elseif $upperclothes is "pyjama shirt">>
	<<if $upperintegrity lte ($upperintegritymax / 10) * 2>>

	<<elseif $upperintegrity lte ($upperintegritymax / 10) * 5>>

	<<elseif $upperintegrity lte ($upperintegritymax / 10) * 9>>

	<<else>>

	<</if>>
<<elseif $upperclothes is "sundress">>
	<<if $upperintegrity lte ($upperintegritymax / 10) * 2>>

	<<elseif $upperintegrity lte ($upperintegritymax / 10) * 5>>

	<<elseif $upperintegrity lte ($upperintegritymax / 10) * 9>>

	<<else>>

	<</if>>
<<elseif $upperclothes is "towel">>
	<<if $upperintegrity lte ($upperintegritymax / 10) * 2>>

	<<elseif $upperintegrity lte ($upperintegritymax / 10) * 5>>

	<<elseif $upperintegrity lte ($upperintegritymax / 10) * 9>>

	<<else>>

	<</if>>

<<elseif $upperclothes is "t-shirt">>
	<<if $upperintegrity lte ($upperintegritymax / 10) * 2>>

	<<elseif $upperintegrity lte ($upperintegritymax / 10) * 5>>

	<<elseif $upperintegrity lte ($upperintegritymax / 10) * 9>>

	<<else>>

	<</if>>
<<elseif $upperclothes is "school swimsuit">>
	<<if $upperintegrity lte ($upperintegritymax / 10) * 2>>

	<<elseif $upperintegrity lte ($upperintegritymax / 10) * 5>>

	<<elseif $upperintegrity lte ($upperintegritymax / 10) * 9>>

	<<else>>

	<</if>>
<<elseif $upperclothes is "school shirt">>
	<<if $upperintegrity lte ($upperintegritymax / 10) * 2>>

	<<elseif $upperintegrity lte ($upperintegritymax / 10) * 5>>

	<<elseif $upperintegrity lte ($upperintegritymax / 10) * 9>>

	<<else>>

	<</if>>

<<elseif $upperclothes is "evening gown">>
	<<if $upperintegrity lte ($upperintegritymax / 10) * 2>>

	<<elseif $upperintegrity lte ($upperintegritymax / 10) * 5>>

	<<elseif $upperintegrity lte ($upperintegritymax / 10) * 9>>

	<<else>>

	<</if>>

<<elseif $upperclothes is "tank top">>
	<<if $upperintegrity lte ($upperintegritymax / 10) * 2>>

	<<elseif $upperintegrity lte ($upperintegritymax / 10) * 5>>

	<<elseif $upperintegrity lte ($upperintegritymax / 10) * 9>>

	<<else>>

	<</if>>

<<elseif $upperclothes is "plant top">>

<<else>>
<</if>>

<<if $rightarm isnot "bound">>
	<<if $lowerexposed gte 1 and $exposed gte 2 and $exhibitionism lt 95 or $lowerexposed gte 1 and $exposed gte 1 and $exhibitionism lt 55>>
		<<if $upperclothes is "pyjama shirt">>

		<<elseif $upperclothes is "t-shirt">>

		<<elseif $upperclothes is "school shirt">>

		<<elseif $upperclothes is "tank top">>

		<<else>>
		<</if>>

	<<else>>
		<<if $upperclothes is "pyjama shirt">>

		<<elseif $upperclothes is "t-shirt">>

		<<elseif $upperclothes is "school shirt">>

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

<<if $leftarm isnot "bound">>
	<<if $upperexposed gte 1 and $exposed gte 2 and $exhibitionism lt 95 or $upperexposed gte 1 and $exposed gte 1 and $exhibitionism lt 55>>
	<<else>>
		<<if $upperclothes is "pyjama shirt">>

		<<elseif $upperclothes is "t-shirt">>

		<<elseif $upperclothes is "school shirt">>

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

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

repo_name: Mauno/degrees


code:
:: Widgets Clothing [widget]
<<widget "clothinginit">><<nobr>>
<<set $sundresscolourchoice to 0>>
<<set $upperpjscolourchoice to 0>>
<<set $lowerpjscolourchoice to 0>>
<<set $uppertowelcolourchoice to 0>>
<<set $lowertowelcolourchoice to 0>>
<<set $upperbikinicolourchoice to 0>>
<<set $lowerbikinicolourchoice to 0>>
<<set $plainpantiescolourchoice to 0>>
<<set $lacepantiescolourchoice to 0>>
<<set $tightscolourchoice to 0>>
<<set $waistaproncolourchoice to 0>>
<<set $tshirtcolourchoice to 0>>
<<set $shortscolourchoice to 0>>
<<set $yfrontscolourchoice to 0>>
<<set $schoolshirtcolourchoice to 0>>
<<set $schoolshortscolourchoice to 0>>
<<set $schoolskirtcolourchoice to 0>>
<<set $schoolswimsuitcolourchoice to 0>>
<<set $schoolswimshortscolourchoice to 0>>
<<set $eveninggowncolourchoice to 0>>

<<set $upperstore to 0>>
<<set $lowerstore to 0>>
<<set $understore to 0>>

<<set $headacc to 0>>
<<set $faceacc to 0>>
<<set $legsacc to 0>>
<<set $feetacc to 0>>
<<set $hairpin to 1>>
<<set $blackshoes to 1>>
<<set $glasses to 1>>

<<set $upperoff to 0>>
<<set $loweroff to 0>>
<<set $underoff 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>>
<<set $upperwetcarry to 0>>
<<set $lowerwetcarry to 0>>
<<set $underwetcarry to 0>>
<<set $upperwetstagecarry to 0>>
<<set $lowerwetstagecarry to 0>>
<<set $underwetstagecarry to 0>>
<<set $waterwash to 0>>
<</nobr>><</widget>>

<<widget "givestartclothing">><<nobr>>

<<if $playergender is "f">>
<<set $girlsgymsocks to 1>>
<<set $uppersundressnew to 1>>
<<set $lowersundressnew to 1>>
<<set $upperpjsnew to 1>>
<<set $lowerpjsnew to 1>>
<<set $plainpantiesnew to 1>>
<<set $schoolshirtnew to 1>>
<<set $schoolskirtnew to 1>>
<<set $upperschoolswimsuitnew to 1>>
<<set $lowerschoolswimsuitnew to 1>>
<<upperschoolswimsuit>><<lowerschoolswimsuit>><<schoolshirt>><<schoolskirt>><<upperpjs>><<lowerpjs>><<uppersundress>><<lowersundress>><<plainpanties>>
<<set $uppersundressno to 1>>
<<set $upperpjsno to 1>>
<<set $lowersundressno to 1>>
<<set $lowerpjsno to 1>>
<<set $plainpantiesno to 1>>
<<set $schoolshirtno to 1>>
<<set $schoolskirtno to 1>>
<<set $upperschoolswimsuitno to 1>>
<<set $lowerschoolswimsuitno to 1>>
<<set $sundresscolour to "white">>
<<set $sundresscolourchoice to "white">>
<<set $upperpjscolour to "blue">>
<<set $upperpjscolourchoice to "blue">>
<<set $lowerpjscolour to "blue">>
<<set $lowerpjscolourchoice to "blue">>
<<set $plainpantiescolour to "pink">>
<<set $plainpantiescolourchoice to "pink">>
<<set $schoolshirtcolour to "white">>
<<set $schoolshirtcolourchoice to "white">>
<<set $schoolskirtcolour to "black">>
<<set $schoolskirtcolourchoice to "black">>
<<set $schoolswimsuitcolour to "blue">>
<<set $schoolswimsuitcolourchoice to "blue">>
<<set $uppercolour to $sundresscolour>>
<<set $lowercolour to $sundresscolour>>
<<set $undercolour to $plainpantiescolour>>
<<set $upperoff to 0>>
<<set $loweroff to 0>>
<<set $underoff to 0>>

<<set $upperoutfitcasual to "sundress">>
<<set $loweroutfitcasual to "sundress skirt">>
<<set $underoutfitcasual to "plain panties">>

<<set $upperoutfitschool to "school shirt">>
<<set $loweroutfitschool to "school skirt">>
<<set $underoutfitschool to "plain panties">>

<<elseif $playergender is "m">>
<<set $boysgymsocks to 1>>
<<set $upperpjsnew to 1>>
<<set $lowerpjsnew to 1>>
<<set $tshirtnew to 1>>
<<set $shortsnew to 1>>
<<set $yfrontsnew to 1>>
<<set $schoolshirtnew to 1>>
<<set $schoolshortsnew to 1>>
<<set $schoolswimshortsnew to 1>>
<<schoolswimshorts>><<schoolshirt>><<schoolshorts>><<upperpjs>><<lowerpjs>><<shorts>><<tshirt>><<yfronts>>
<<set $upperpjsno to 1>>
<<set $lowerpjsno to 1>>
<<set $tshirtno to 1>>
<<set $shortsno to 1>>
<<set $yfrontsno to 1>>
<<set $schoolshirtno to 1>>
<<set $schoolshortsno to 1>>
<<set $schoolswimshortsno to 1>>
<<set $upperpjscolour to "blue">>
<<set $upperpjscolourchoice to "blue">>
<<set $lowerpjscolour to "blue">>
<<set $lowerpjscolourchoice to "blue">>
<<set $tshirtcolour to "tangerine">>
<<set $tshirtcolourchoice to "tangerine">>
<<set $shortscolour to "blue">>
<<set $shortscolourchoice to "blue">>
<<set $yfrontscolour to "white">>
<<set $yfrontscolourchoice to "white">>
<<set $schoolshirtcolour to "white">>
<<set $schoolshirtcolourchoice to "white">>
<<set $schoolshortscolour to "black">>
<<set $schoolshortscolourchoice to "black">>
<<set $schoolswimshortscolour to "blue">>
<<set $schoolswimshortscolourchoice to "blue">>
<<set $uppercolour to $tshirtcolour>>
<<set $lowercolour to $shortscolour>>
<<set $undercolour to $yfrontscolour>>
<<set $upperoff to 0>>
<<set $loweroff to 0>>
<<set $underoff to 0>>

<<set $upperoutfitcasual to $upperclothes>>
<<set $loweroutfitcasual to $lowerclothes>>
<<set $underoutfitcasual to $underclothes>>

<<set $upperoutfitschool to "school shirt">>
<<set $loweroutfitschool to "school shorts">>
<<set $underoutfitschool to "Y fronts">>

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


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 0>><<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>>
<<link [[Close wardrobe|Bedroom]]>><<pass 1>><<log "Changed my clothes." 1>><</link>>

<<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>>
<<link [[Leave|Beach]]>><<pass 1>><<log "Changed my clothes." 1>><</link>>

<<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>><<log "Changed my clothes." 1>><</link>>

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

	<</if>>
<<else>>
	<<if $exposed lte 1>>
	<<link [[Done|Eden Cabin]]>><<pass 1>><<log "Changed my clothes." 1>><</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>><<log "Changed my clothes." 1>><</link>>

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

	<</if>>
<<else>>
	<<if $exposed lte 1>>
	<<link [[Done|Asylum Cell]]>><<pass 1>><<log "Changed my clothes." 1>><</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>><<log "Changed my clothes." 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>><<log "Changed my clothes." 1>><</link>>

<<else>>
	<<if $exposed lte 1>>
	<<link [[Back to the club (0:01)|Strip Club]]>><<pass 1>><<log "Changed my clothes." 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>><<log "Changed my clothes." 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>><<log "Changed my clothes." 1>><</link>>

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

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

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


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