code:
:: Summary Widgets [widget nobr]

/%
 Call as <<SlaveStatClamp $slave>>
%/
<<widget "SlaveStatClamp">>
<<set $args[0].energy = Math.clamp($args[0].energy, 0, 100)>>

<<if $args[0].devotion > 100>>
	<<if $args[0].trust < -95>>
		<<set $args[0].trust = -100>>
	<<elseif ($args[0].trust < 100) && ($args[0].trust >= 20)>>
		<<set $args[0].trust += (Math.trunc(($args[0].devotion-100)*5)/10)>>
	<<else>>
		<<set $rep += 10*($args[0].devotion-100)>>
	<</if>>
	<<set $args[0].devotion = 100>>
<<elseif $args[0].devotion < -95>>
	<<set $args[0].devotion = -100>>
<</if>>
<<if $args[0].trust > 100>>
	<<if $args[0].devotion < -95>>
		<<set $args[0].devotion = -100>>
	<<elseif $args[0].devotion < 100 && $args[0].devotion >= 20>>
		<<set $args[0].devotion += Math.trunc($args[0].trust-100)>>
	<<else>>
		<<set $rep += 10*($args[0].trust-100)>>
	<</if>>
	<<set $args[0].trust = 100>>
<<elseif $args[0].trust < -95>>
	<<set $args[0].trust = -100>>
<</if>>
<<if $args[0].trust < -100>><<set $args[0].trust = -100>><</if>>
<<if $args[0].devotion < -100>><<set $args[0].devotion = -100>><</if>>
<<if isNaN($args[0].oralCount)>><<set $args[0].oralCount = 0>>//Oral count has broken, report what you just did!<</if>>
<<if isNaN($args[0].analCount)>><<set $args[0].analCount = 0>>//Anal count has broken, report what you just did!<</if>>
<<if isNaN($args[0].vaginalCount)>><<set $args[0].vaginalCount = 0>>//Vaginal count has broken, report what you just did!<</if>>
<<if isNaN($args[0].mammaryCount)>><<set $args[0].mammaryCount = 0>>//Titfuck count has broken, report what you just did!<</if>>
<<if isNaN($args[0].penetrativeCount)>><<set $args[0].penetrativeCount = 0>>//Pentration count has broken, report what you just did!<</if>>
<<if ndef $args[0].foreskin>><<set $args[0].foreskin = 0>><</if>>
<<if $args[0].amp != 0 && $args[0].heels == 1>><<set $args[0].heels = 0>><</if>>
<<if $args[0].vagina < 0 && $args[0].mpreg == 0 && $args[0].preg == -1>><<set $args[0].preg = 0>><</if>>
<</widget>>

repo_name: GammaXai/fc

license: mit


code:
# IDE, temp, generated, and other local-only files
.idea/
*.iml
node_modules/
tweego.exe
*.html

* Ignoring working folder for Quin2k
mod/

path: .gitignore


code:
<NotepadPlus>
	<UserLang name="Sugarcube4" ext="twee tw" udlVersion="2.1">
		<Settings>
			<Global caseIgnored="no" allowFoldOfComments="no" foldCompact="yes" forcePureLC="0" decimalSeparator="0" />
			<Prefix Keywords1="yes" Keywords2="no" Keywords3="no" Keywords4="no" Keywords5="no" Keywords6="no" Keywords7="no" Keywords8="no" />
		</Settings>
		<KeywordLists>
			<Keywords name="Comments">00 01 02 03/% 03/* 03<!-- 04%/ 04*/ 04--></Keywords>
			<Keywords name="Numbers, prefix1"></Keywords>
			<Keywords name="Numbers, prefix2"></Keywords>
			<Keywords name="Numbers, extras1"></Keywords>
			<Keywords name="Numbers, extras2"></Keywords>
			<Keywords name="Numbers, suffix1"></Keywords>
			<Keywords name="Numbers, suffix2"></Keywords>
			<Keywords name="Numbers, range"></Keywords>
			<Keywords name="Operators1">+ - * / = += -= *= /= ++ -- == != === !== > < >= <= ! && || & | ( )</Keywords>
			<Keywords name="Operators2"></Keywords>
			<Keywords name="Folders in code1, open"><<if</Keywords>
			<Keywords name="Folders in code1, middle"></Keywords>
			<Keywords name="Folders in code1, close"><</if>></Keywords>
			<Keywords name="Folders in code2, open"></Keywords>
			<Keywords name="Folders in code2, middle"></Keywords>
			<Keywords name="Folders in code2, close"></Keywords>
			<Keywords name="Folders in comment, open"></Keywords>
			<Keywords name="Folders in comment, middle"></Keywords>
			<Keywords name="Folders in comment, close"></Keywords>
			<Keywords name="Keywords1">$ _</Keywords>
			<Keywords name="Keywords2"></Keywords>
			<Keywords name="Keywords3"></Keywords>
			<Keywords name="Keywords4"></Keywords>
			<Keywords name="Keywords5"></Keywords>
			<Keywords name="Keywords6"></Keywords>
			<Keywords name="Keywords7"></Keywords>
			<Keywords name="Keywords8"></Keywords>
			<Keywords name="Delimiters">00:: 01 02((EOL)) 03<< 04 05>> 06[[ 07 08]] 09< 10 11> 12'' 13 14'' 15// 16 17// 18@@ 19 20@@ 21[img[ 22 23]]</Keywords>
		</KeywordLists>
		<Styles>
			<WordsStyle name="DEFAULT" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
			<WordsStyle name="COMMENTS" fgColor="808080" bgColor="FFFFFF" fontName="" fontStyle="2" nesting="0" />
			<WordsStyle name="LINE COMMENTS" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
			<WordsStyle name="NUMBERS" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
			<WordsStyle name="KEYWORDS1" fgColor="004080" bgColor="FFFFFF" fontName="" fontStyle="1" nesting="0" />
			<WordsStyle name="KEYWORDS2" fgColor="8080C0" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
			<WordsStyle name="KEYWORDS3" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
			<WordsStyle name="KEYWORDS4" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
			<WordsStyle name="KEYWORDS5" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
			<WordsStyle name="KEYWORDS6" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
			<WordsStyle name="KEYWORDS7" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
			<WordsStyle name="KEYWORDS8" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
			<WordsStyle name="OPERATORS" fgColor="800040" bgColor="FFFFFF" fontName="" fontStyle="1" nesting="0" />
			<WordsStyle name="FOLDER IN CODE1" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="1" nesting="0" />
			<WordsStyle name="FOLDER IN CODE2" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
			<WordsStyle name="FOLDER IN COMMENT" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
			<WordsStyle name="DELIMITERS1" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="5" fontSize="12" nesting="0" />
			<WordsStyle name="DELIMITERS2" fgColor="800080" bgColor="FFFFFF" fontName="" fontStyle="1" nesting="50334724" />
			<WordsStyle name="DELIMITERS3" fgColor="0000FF" bgColor="FFFFFF" fontName="" fontStyle="1" nesting="1024" />
			<WordsStyle name="DELIMITERS4" fgColor="0000FF" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
			<WordsStyle name="DELIMITERS5" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="1" nesting="32" />
			<WordsStyle name="DELIMITERS6" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="2" nesting="16" />
			<WordsStyle name="DELIMITERS7" fgColor="008000" bgColor="FFFFFF" fontName="" fontStyle="0" nesting="0" />
			<WordsStyle name="DELIMITERS8" fgColor="8080FF" bgColor="FFFFFF" fontName="" fontStyle="1" nesting="0" />
		</Styles>
	</UserLang>
</NotepadPlus>


code:
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!-- Created with Inkscape (http://www.inkscape.org/) -->
<svg xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:cc="http://creativecommons.org/ns#" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:svg="http://www.w3.org/2000/svg" xmlns="http://www.w3.org/2000/svg" xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd" xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape" width="48" height="48" version="1.1" inkscape:version="0.48.0 r9654">
  <defs id="defs4"/>
  <sodipodi:namedview id="base" pagecolor="#ffffff" bordercolor="#666666" borderopacity="1.0" inkscape:pageopacity="0.0" inkscape:pageshadow="2" inkscape:zoom="11.313708" inkscape:cx="27.203376" inkscape:cy="26.578528" inkscape:document-units="px" inkscape:current-layer="layer1" showgrid="true" inkscape:window-width="1280" inkscape:window-height="968" inkscape:window-x="-4" inkscape:window-y="-4" inkscape:window-maximized="1">
	<inkscape:grid type="xygrid" id="grid2985" empspacing="5" visible="true" enabled="true" snapvisiblegridlinesonly="true"/>
  </sodipodi:namedview>
  <g inkscape:label="Layer 1" inkscape:groupmode="layer" id="layer1" transform="translate(0,-1004.3622)">
	<g id="g3000" transform="translate(-6,1003)">
	  <path sodipodi:nodetypes="ccccc" inkscape:connector-curvature="0" id="path2987" d="m 30,2.3621826 -20,10.0000004 20,10 20,-10 z" style="fill:#f9f9f9;stroke:none"/>
	  <path style="fill:#ececec;stroke:none" d="m 30,22.362183 0,25 20,-10 0,-25 z" id="path2989" inkscape:connector-curvature="0" sodipodi:nodetypes="ccccc"/>
	  <path sodipodi:nodetypes="ccccc" inkscape:connector-curvature="0" id="path2991" d="m 30,22.362183 0,25 -20,-10 0,-25 z" style="fill:#cccccc;stroke:none"/>
	  <path inkscape:connector-curvature="0" id="path2993" d="M 30,2.3749996 10,12.375 l 0,25 20,10 20,-10 0,-25 L 30,2.3749996 z" style="fill:none;stroke:#4d4d4d;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"/>
	</g>
  </g>
  <metadata>
	<rdf:RDF>
	  <cc:Work>
		<dc:format>image/svg+xml</dc:format>
		<dc:type rdf:resource="http://purl.org/dc/dcmitype/StillImage"/>
		<cc:license rdf:resource="http://creativecommons.org/licenses/publicdomain/"/>
		<dc:publisher>
		  <cc:Agent rdf:about="http://openclipart.org/">
			<dc:title>Open Clip Art Library</dc:title>
		  </cc:Agent>
		</dc:publisher>
		<dc:title>Sugar Cube icon</dc:title>
		<dc:date>2010-10-10T11:46:52</dc:date>
		<dc:description>A sugar cube.</dc:description>
		<dc:source>http://openclipart.org/detail/89407/sugar-cube-icon-by-jhnri4</dc:source>
		<dc:creator>
		  <cc:Agent>
			<dc:title>jhnri4</dc:title>
		  </cc:Agent>
		</dc:creator>
		<dc:subject>
		  <rdf:Bag>
			<rdf:li>SVG</rdf:li>
			<rdf:li>block</rdf:li>
			<rdf:li>clip art</rdf:li>
			<rdf:li>clipart</rdf:li>
			<rdf:li>cube</rdf:li>
			<rdf:li>icon</rdf:li>
			<rdf:li>sugar</rdf:li>
			<rdf:li>white</rdf:li>
		  </rdf:Bag>
		</dc:subject>
	  </cc:Work>
	  <cc:License rdf:about="http://creativecommons.org/licenses/publicdomain/">
		<cc:permits rdf:resource="http://creativecommons.org/ns#Reproduction"/>
		<cc:permits rdf:resource="http://creativecommons.org/ns#Distribution"/>
		<cc:permits rdf:resource="http://creativecommons.org/ns#DerivativeWorks"/>
	  </cc:License>
	</rdf:RDF>
  </metadata>
</svg>


code:
#!/bin/bash

if [ ! -f "$(command -v tweego)" ]; then
	echo "Cannot find tweego. Please install tweego before compiling."
	exit 1
fi

VERSION="$(git describe --tags --always --dirty)"

TWEEGO_PATH="./StoryFormats" tweego -o "Degrees of Lewdity $VERSION.html" game

path: compile


code:
@set TWEEGO_PATH=%cd%\StoryFormats
@tweego -o "Degrees of Lewdity VERSION.html" game


code:
function colourContainerClasses() {
	var V = State.variables;
	return 'hair-'  + (V.haircolour||'').replace(/ /g,'-') +
		' ' + 'eye-'   + (V.eyecolour||'').replace(/ /g,'-') +
		' ' + 'upper-' + (V.uppercolour||'').replace(/ /g,'-') +
		' ' + 'lower-' + (V.lowercolour||'').replace(/ /g,'-') +
		' ' + 'under-' + (V.undercolour||'').replace(/ /g,'-')
}
window.colourContainerClasses = colourContainerClasses; // export function


code:
:: Widgets Lower Clothing [widget]

<<widget "lowernaked">><<nobr>>
<<lowerstrip>>
<<if $lowertemp is "init">>
<<set $lowertemp to 1>>
<<elseif $lowertemp is 1>>
<<set $lowertemp to 0>>
<</if>>
<<set $lowerclothes to "naked">>
<<set $lowervariable to "naked">>
<<set $lowerintegrity to 0>>
<<set $lowerintegritymax to 0>>
<<set $lowerfabricstrength to 0>>
<<set $lowerreveal to 1000>>
<<set $lowerword to "n">>
<<set $loweronepiece to 0>>
<<set $lowerstate to 0>>
<<set $skirt to 0>>
<<set $skirtdown to 0>>
<<set $lowerstatebase to 0>>
<<set $lowervaginaexposed to 1>>
<<set $loweranusexposed to 1>>
<<set $lowerplural to 0>>
<<set $lowercolour to 0>>
<<set $lowerexposed to 2>>
<<set $lowerexposedbase to 2>>
<<set $lowervaginaexposedbase to 1>>
<<set $loweranusexposedbase to 1>>
<<set $lowertype to "naked">>
<<if $clothingchange isnot 1 and $ruined isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<uppernaked>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $lowerset to "lower">>
<<set $lowergender to "n">>
<</nobr>><</widget>>

<<widget "lowersundress">><<nobr>>
<<lowerstrip>><<lowerundress>>
<<set $lowerclothes to "sundress skirt">>
<<set $lowervariable to "lowersundress">>
<<set $lowersundressintegritymax to 100>>
<<set $lowerintegritymax to $lowersundressintegritymax>>
<<set $fabricstrength to 30>>
<<set $lowerreveal to 200>>
<<set $lowerword to "a">>
<<set $loweronepiece to 1>>
<<set $lowerstate to "waist">>
<<set $skirt to 1>>
<<set $skirtdown to 1>>
<<set $lowerstatebase to "waist">>
<<set $lowervaginaexposed to 0>>
<<set $loweranusexposed to 0>>
<<set $lowerplural to 0>>
<<if $lowersundressnew is 1>><<set $lowersundressnew to 0>><<set $lowersundressintegrity to $lowersundressintegritymax>>
<</if>>
<<set $lowercolour to $sundresscolour>>
<<set $lowerintegrity to $lowersundressintegrity>>
<<set $lowerexposed to 0>>
<<set $lowerexposedbase to 0>>
<<set $lowervaginaexposedbase to 0>>
<<set $loweranusexposedbase to 0>>
<<set $lowertype to "normal">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<upperstrip>><<upperundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $lowerset to "sundress">>
<<set $lowergender to "f">>
<</nobr>><</widget>>

<<widget "lowerpjs">><<nobr>>
<<lowerstrip>><<lowerundress>>
<<set $lowerclothes to "pyjama bottoms">>
<<set $lowervariable to "lowerpjs">>
<<set $lowerpjsintegritymax to 100>>
<<set $lowerintegritymax to $lowerpjsintegritymax>>
<<set $lowerfabricstrength to 20>>
<<set $lowerreveal to 100>>
<<set $lowerword to "n">>
<<set $loweronepiece to 0>>
<<set $lowerstate to "waist">>
<<set $skirt to 0>>
<<set $skirtdown to 0>>
<<set $lowerstatebase to "waist">>
<<set $lowervaginaexposed to 0>>
<<set $loweranusexposed to 0>>
<<set $lowerplural to 1>>
<<if $lowerpjsnew is 1>><<set $lowerpjsnew to 0>><<set $lowerpjsintegrity to $lowerpjsintegritymax>><<set $lowerpjscolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $lowerpjscolourchoice isnot 0>>
<<set $lowerpjscolour to $lowerpjscolourchoice>>
<</if>>
<</if>>
<<set $lowercolour to $lowerpjscolour>>
<<set $lowerintegrity to $lowerpjsintegrity>>
<<set $lowerexposed to 0>>
<<set $lowerexposedbase to 0>>
<<set $lowervaginaexposedbase to 0>>
<<set $loweranusexposedbase to 0>>
<<set $lowertype to "sleep">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<upperstrip>><<upperundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $lowerset to "lower">>
<<set $lowergender to "n">>
<</nobr>><</widget>>

<<widget "lowertowel">><<nobr>>
<<lowerstrip>><<lowerundress>>
<<set $lowerclothes to "towel">>
<<set $lowervariable to "lowertowel">>
<<set $lowertowelintegritymax to 10>>
<<set $lowerintegritymax to $lowertowelintegritymax>>
<<set $lowerfabricstrength to 20>>
<<set $lowerreveal to 800>>
<<set $lowerword to "n">>
<<set $loweronepiece to 0>>
<<set $lowerstate to "waist">>
<<set $skirt to 1>>
<<set $skirtdown to 1>>
<<set $lowerstatebase to "waist">>
<<set $lowervaginaexposed to 0>>
<<set $loweranusexposed to 0>>
<<set $lowerplural to 0>>
<<if $lowertowelnew is 1>><<set $lowertowelnew to 0>><<set $lowertowelintegrity to $lowertowelintegritymax>><<set $lowertowelcolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $lowertowelcolourchoice isnot 0>>
<<set $lowertowelcolour to $lowertowelcolourchoice>>
<<set $lowertowelcolourchoice to 0>>
<</if>>
<</if>>
<<set $lowercolour to $lowertowelcolour>>
<<set $lowerintegrity to $lowertowelintegrity>>
<<set $lowerexposed to 0>>
<<set $lowerexposedbase to 0>>
<<set $lowervaginaexposedbase to 0>>
<<set $loweranusexposedbase to 0>>
<<set $lowertype to "normal">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<upperstrip>><<upperundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $lowerset to "lower">>
<<set $lowergender to "n">>
<</nobr>><</widget>>

<<widget "lowerbikini">><<nobr>>
<<lowerstrip>><<lowerundress>>
<<set $lowerclothes to "bikini bottoms">>
<<set $lowervariable to "lowerbikini">>
<<set $lowerbikiniintegritymax to 20>>
<<set $lowerintegritymax to $lowerbikiniintegritymax>>
<<set $lowerfabricstrength to 20>>
<<set $lowerreveal to 900>>
<<set $lowerword to "n">>
<<set $loweronepiece to 0>>
<<set $lowerstate to "waist">>
<<set $skirt to 0>>
<<set $skirtdown to 0>>
<<set $lowerstatebase to "waist">>
<<set $lowervaginaexposed to 0>>
<<set $loweranusexposed to 0>>
<<set $lowerplural to 1>>
<<if $lowerbikininew is 1>><<set $lowerbikininew to 0>><<set $lowerbikiniintegrity to $lowerbikiniintegritymax>><<set $lowerbikinicolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $lowerbikinicolourchoice isnot 0>>
<<set $lowerbikinicolour to $lowerbikinicolourchoice>>
<</if>>
<</if>>
<<set $lowercolour to $lowerbikinicolour>>
<<set $lowerintegrity to $lowerbikiniintegrity>>
<<set $lowerexposed to 1>>
<<set $lowerexposedbase to 1>>
<<set $lowervaginaexposedbase to 0>>
<<set $loweranusexposedbase to 0>>
<<set $lowertype to "swim">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<upperstrip>><<upperundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $lowerset to "lower">>
<<if $undertype isnot "chastity">>
<<underundress>>
<</if>>
<<set $lowergender to "f">>
<</nobr>><</widget>>

<<widget "waistapron">><<nobr>>
<<lowerstrip>><<lowerundress>>
<<set $lowerclothes to "waist apron">>
<<set $lowervariable to "waistapron">>
<<set $waistapronintegritymax to 10>>
<<set $lowerintegritymax to $waistapronintegritymax>>
<<set $lowerfabricstrength to 20>>
<<set $lowerreveal to 800>>
<<set $lowerword to "a">>
<<set $loweronepiece to 0>>
<<set $lowerstate to "waist">>
<<set $skirt to 1>>
<<set $skirtdown to 1>>
<<set $lowerstatebase to "waist">>
<<set $lowervaginaexposed to 1>>
<<set $loweranusexposed to 1>>
<<set $lowerplural to 0>>
<<if $waistapronnew is 1>><<set $waistapronnew to 0>><<set $waistapronintegrity to $waistapronintegritymax>><<set $waistaproncolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $waistaproncolourchoice isnot 0>>
<<set $waistaproncolour to $waistaproncolourchoice>>
<</if>>
<</if>>
<<set $lowercolour to $waistaproncolour>>
<<set $lowerintegrity to $waistapronintegrity>>
<<set $lowerexposed to 1>>
<<set $lowerexposedbase to 1>>
<<set $lowervaginaexposedbase to 1>>
<<set $loweranusexposedbase to 1>>
<<set $lowertype to "normal">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<upperstrip>><<upperundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $lowerset to "lower">>
<<set $lowergender to "n">>
<</nobr>><</widget>>

<<widget "shorts">><<nobr>>
<<lowerstrip>><<lowerundress>>
<<set $lowerclothes to "shorts">>
<<set $lowervariable to "shorts">>
<<set $shortsintegritymax to 120>>
<<set $lowerintegritymax to $shortsintegritymax>>
<<set $lowerfabricstrength to 20>>
<<set $lowerreveal to 300>>
<<set $lowerword to "n">>
<<set $loweronepiece to 0>>
<<set $lowerstate to "waist">>
<<set $skirt to 0>>
<<set $skirtdown to 0>>
<<set $lowerstatebase to "waist">>
<<set $lowervaginaexposed to 0>>
<<set $loweranusexposed to 0>>
<<set $lowerplural to 1>>
<<if $shortsnew is 1>><<set $shortsnew to 0>><<set $shortsintegrity to $shortsintegritymax>><<set $shortscolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $shortscolourchoice isnot 0>>
<<set $shortscolour to $shortscolourchoice>>
<</if>>
<</if>>
<<set $lowercolour to $shortscolour>>
<<set $lowerintegrity to $shortsintegrity>>
<<set $lowerexposed to 0>>
<<set $lowerexposedbase to 0>>
<<set $lowervaginaexposedbase to 0>>
<<set $loweranusexposedbase to 0>>
<<set $lowertype to "normal">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<upperstrip>><<upperundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $lowerset to "lower">>
<<set $lowergender to "n">>
<</nobr>><</widget>>

<<widget "schoolshorts">><<nobr>>
<<lowerstrip>><<lowerundress>>
<<set $lowerclothes to "school shorts">>
<<set $lowervariable to "schoolshorts">>
<<set $schoolshortsintegritymax to 160>>
<<set $lowerintegritymax to $schoolshortsintegritymax>>
<<set $lowerfabricstrength to 20>>
<<set $lowerreveal to 200>>
<<set $lowerword to "n">>
<<set $loweronepiece to 0>>
<<set $lowerstate to "waist">>
<<set $skirt to 0>>
<<set $skirtdown to 0>>
<<set $lowerstatebase to "waist">>
<<set $lowervaginaexposed to 0>>
<<set $loweranusexposed to 0>>
<<set $lowerplural to 1>>
<<if $schoolshortsnew is 1>><<set $schoolshortsnew to 0>><<set $schoolshortsintegrity to $schoolshortsintegritymax>><<set $schoolshortscolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $schoolshortscolourchoice isnot 0>>
<<set $schoolshortscolour to $schoolshortscolourchoice>>
<</if>>
<</if>>
<<set $lowercolour to $schoolshortscolour>>
<<set $lowerintegrity to $schoolshortsintegrity>>
<<set $lowerexposed to 0>>
<<set $lowerexposedbase to 0>>
<<set $lowervaginaexposedbase to 0>>
<<set $loweranusexposedbase to 0>>
<<set $lowertype to "school">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<upperstrip>><<upperundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $lowerset to "lower">>
<<set $lowergender to "m">>
<</nobr>><</widget>>

<<widget "schoolskirt">><<nobr>>
<<lowerstrip>><<lowerundress>>
<<set $lowerclothes to "school skirt">>
<<set $lowervariable to "schoolskirt">>
<<set $schoolskirtintegritymax to 160>>
<<set $lowerintegritymax to $schoolskirtintegritymax>>
<<set $lowerfabricstrength to 20>>
<<set $lowerreveal to 200>>
<<set $lowerword to "a">>
<<set $loweronepiece to 0>>
<<set $lowerstate to "waist">>
<<set $skirt to 1>>
<<set $skirtdown to 1>>
<<set $lowerstatebase to "waist">>
<<set $lowervaginaexposed to 0>>
<<set $loweranusexposed to 0>>
<<set $lowerplural to 0>>
<<if $schoolskirtnew is 1>><<set $schoolskirtnew to 0>><<set $schoolskirtintegrity to $schoolskirtintegritymax>><<set $schoolskirtcolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $schoolskirtcolourchoice isnot 0>>
<<set $schoolskirtcolour to $schoolskirtcolourchoice>>
<</if>>
<</if>>
<<set $lowercolour to $schoolskirtcolour>>
<<set $lowerintegrity to $schoolskirtintegrity>>
<<set $lowerexposed to 0>>
<<set $lowerexposedbase to 0>>
<<set $lowervaginaexposedbase to 0>>
<<set $loweranusexposedbase to 0>>
<<set $lowertype to "school">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<upperstrip>><<upperundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $lowerset to "lower">>
<<set $lowergender to "f">>
<</nobr>><</widget>>

<<widget "lowerschoolswimsuit">><<nobr>>
<<lowerstrip>><<lowerundress>>
<<set $lowerclothes to "school swimsuit bottom">>
<<set $lowervariable to "lowerschoolswimsuit">>
<<set $lowerschoolswimsuitintegritymax to 40>>
<<set $lowerintegritymax to $lowerschoolswimsuitintegritymax>>
<<set $fabricstrength to 30>>
<<set $lowerreveal to 600>>
<<set $lowerword to "a">>
<<set $loweronepiece to 1>>
<<set $lowerstate to "waist">>
<<set $skirt to 0>>
<<set $skirtdown to 0>>
<<set $lowerstatebase to "waist">>
<<set $lowervaginaexposed to 0>>
<<set $loweranusexposed to 0>>
<<set $lowerplural to 0>>
<<if $lowerschoolswimsuitnew is 1>><<set $lowerschoolswimsuitnew to 0>><<set $lowerschoolswimsuitintegrity to $lowerschoolswimsuitintegritymax>>
<</if>>
<<set $lowercolour to $schoolswimsuitcolour>>
<<set $lowerintegrity to $lowerschoolswimsuitintegrity>>
<<set $lowerexposed to 1>>
<<set $lowerexposedbase to 1>>
<<set $lowervaginaexposedbase to 0>>
<<set $loweranusexposedbase to 0>>
<<set $lowertype to "swim">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<upperstrip>><<upperundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $lowerset to "school swimsuit">>
<<if $undertype isnot "chastity">>
<<underundress>>
<</if>>
<<set $lowergender to "f">>
<</nobr>><</widget>>

<<widget "schoolswimshorts">><<nobr>>
<<lowerstrip>><<lowerundress>>
<<set $lowerclothes to "school swim shorts">>
<<set $lowervariable to "schoolswimshorts">>
<<set $schoolswimshortsintegritymax to 40>>
<<set $lowerintegritymax to $schoolswimshortsintegritymax>>
<<set $lowerfabricstrength to 20>>
<<set $lowerreveal to 600>>
<<set $lowerword to "n">>
<<set $loweronepiece to 0>>
<<set $lowerstate to "waist">>
<<set $skirt to 0>>
<<set $skirtdown to 0>>
<<set $lowerstatebase to "waist">>
<<set $lowervaginaexposed to 0>>
<<set $loweranusexposed to 0>>
<<set $lowerplural to 1>>
<<if $schoolswimshortsnew is 1>><<set $schoolswimshortsnew to 0>><<set $schoolswimshortsintegrity to $schoolswimshortsintegritymax>><<set $schoolswimshortscolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $schoolswimshortscolourchoice isnot 0>>
<<set $schoolswimshortscolour to $schoolswimshortscolourchoice>>
<</if>>
<</if>>
<<set $lowercolour to $schoolswimshortscolour>>
<<set $lowerintegrity to $schoolswimshortsintegrity>>
<<set $lowerexposed to 1>>
<<set $lowerexposedbase to 1>>
<<set $lowervaginaexposedbase to 0>>
<<set $loweranusexposedbase to 0>>
<<set $lowertype to "swim">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<upperstrip>><<upperundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $lowerset to "lower">>
<<if $undertype isnot "chastity">>
<<underundress>>
<</if>>
<<set $lowergender to "m">>
<</nobr>><</widget>>

<<widget "lowerplant">><<nobr>>
<<lowerstrip>><<lowerundress>>
<<set $lowerclothes to "plant skirt">>
<<set $lowervariable to "lowerplant">>
<<set $lowerplantintegritymax to 10>>
<<set $lowerintegritymax to $lowerplantintegritymax>>
<<set $lowerfabricstrength to 20>>
<<set $lowerreveal to 900>>
<<set $lowerword to "a">>
<<set $loweronepiece to 0>>
<<set $lowerstate to "waist">>
<<set $skirt to 1>>
<<set $skirtdown to 1>>
<<set $lowerstatebase to "waist">>
<<set $lowervaginaexposed to 1>>
<<set $loweranusexposed to 1>>
<<set $lowerplural to 0>>
<<if $lowerplantnew is 1>><<set $lowerplantnew to 0>><<set $lowerplantintegrity to $lowerplantintegritymax>><<set $lowerplantcolour to "green">>
<</if>>
<<set $lowercolour to $lowerplantcolour>>
<<set $lowerintegrity to $lowerplantintegrity>>
<<set $lowerexposed to 1>>
<<set $lowerexposedbase to 1>>
<<set $lowervaginaexposedbase to 1>>
<<set $loweranusexposedbase to 1>>
<<set $lowertype to "swim">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<upperstrip>><<upperundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $lowerset to "lower">>
<<if $undertype isnot "chastity">>
<<underundress>>
<</if>>
<<set $lowergender to "n">>
<</nobr>><</widget>>

<<widget "lowereveninggown">><<nobr>>
<<lowerstrip>><<lowerundress>>
<<set $lowerclothes to "evening gown skirt">>
<<set $lowervariable to "lowereveninggown">>
<<set $lowereveninggownintegritymax to 200>>
<<set $lowerintegritymax to $lowereveninggownintegritymax>>
<<set $fabricstrength to 30>>
<<set $lowerreveal to 200>>
<<set $lowerword to "a">>
<<set $loweronepiece to 1>>
<<set $lowerstate to "waist">>
<<set $skirt to 1>>
<<set $skirtdown to 1>>
<<set $lowerstatebase to "waist">>
<<set $lowervaginaexposed to 0>>
<<set $loweranusexposed to 0>>
<<set $lowerplural to 0>>
<<if $lowereveninggownnew is 1>><<set $lowereveninggownnew to 0>><<set $lowereveninggownintegrity to $lowereveninggownintegritymax>>
<</if>>
<<set $lowercolour to $eveninggowncolour>>
<<set $lowerintegrity to $lowereveninggownintegrity>>
<<set $lowerexposed to 0>>
<<set $lowerexposedbase to 0>>
<<set $lowervaginaexposedbase to 0>>
<<set $loweranusexposedbase to 0>>
<<set $lowertype to "normal">>
<<if $clothingchange isnot 1>>
	<<if $upperset is $lowerset>>
	<<set $clothingchange to 1>><<upperstrip>><<upperundress>>
	<</if>>
<</if>>
<<set $clothingchange to 0>>
<<set $lowerset to "evening gown">>
<<set $lowergender to "f">>
<</nobr>><</widget>>


code:
:: Widgets Under Clothing [widget]

<<widget "undernaked">><<nobr>>
	<<if $undertype isnot "chastity">>
<<understrip>>
<<if $undertemp is "init">>
<<set $undertemp to 1>>
<<elseif $undertemp is 1>>
<<set $undertemp to 0>>
<</if>>
<<set $underclothes to "naked">>
<<set $undervariable to "naked">>
<<set $underintegrity to 0>>
<<set $underintegritymax to 0>>
<<set $underfabricstrength to 0>>
<<set $underreveal to 1000>>
<<set $underword to "n">>
<<set $understate to 0>>
<<set $understatebase to 0>>
<<set $undervaginaexposed to 1>>
<<set $underanusexposed to 1>>
<<set $underplural to 0>>
<<set $undercolour to 0>>
<<set $underexposed to 1>>
<<set $underexposedbase to 1>>
<<set $undervaginaexposedbase to 1>>
<<set $underanusexposedbase to 1>>
<<set $undertype to "naked">>
<<set $undergender to "n">>
	<</if>>
<</nobr>><</widget>>

<<widget "plainpanties">><<nobr>>
	<<if $undertype isnot "chastity">>
<<understrip>><<underundress>>
<<set $underclothes to "plain panties">>
<<set $undervariable to "plainpanties">>
<<set $plainpantiesintegritymax to 100>>
<<set $underintegritymax to $plainpantiesintegritymax>>
<<set $underfabricstrength to 15>>
<<set $underreveal to 200>>
<<set $underword to "n">>
<<set $understate to "waist">>
<<set $understatebase to "waist">>
<<set $undervaginaexposed to 0>>
<<set $underanusexposed to 0>>
<<set $underplural to 1>>
<<if $plainpantiesnew is 1>><<set $plainpantiesnew to 0>><<set $plainpantiesintegrity to $plainpantiesintegritymax>><<set $plainpantiescolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $plainpantiescolourchoice isnot 0>>
<<set $plainpantiescolour to $plainpantiescolourchoice>>
<</if>>
<</if>>
<<set $undercolour to $plainpantiescolour>>
<<set $underintegrity to $plainpantiesintegrity>>
<<set $underexposed to 0>>
<<set $underexposedbase to 0>>
<<set $undervaginaexposedbase to 0>>
<<set $underanusexposedbase to 0>>
<<set $undertype to "normal">>
<<if $lowertype is "swim">>
	<<if $upperset is $lowerset>>
	<<uppernaked>>
	<</if>>
<<lowerundress>>
<</if>>
<<set $undergender to "f">>
	<</if>>
<</nobr>><</widget>>

<<widget "lacepanties">><<nobr>>
	<<if $undertype isnot "chastity">>
<<understrip>><<underundress>>
<<set $underclothes to "lace panties">>
<<set $undervariable to "lacepanties">>
<<set $lacepantiesintegritymax to 60>>
<<set $underintegritymax to $lacepantiesintegritymax>>
<<set $underfabricstrength to 15>>
<<set $underreveal to 400>>
<<set $underword to "n">>
<<set $understate to "waist">>
<<set $understatebase to "waist">>
<<set $undervaginaexposed to 0>>
<<set $underanusexposed to 0>>
<<set $underplural to 1>>
<<if $lacepantiesnew is 1>><<set $lacepantiesnew to 0>><<set $lacepantiesintegrity to $lacepantiesintegritymax>><<set $lacepantiescolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $lacepantiescolourchoice isnot 0>>
<<set $lacepantiescolour to $lacepantiescolourchoice>>
<</if>>
<</if>>
<<set $undercolour to $lacepantiescolour>>
<<set $underintegrity to $lacepantiesintegrity>>
<<set $underexposed to 0>>
<<set $underexposedbase to 0>>
<<set $undervaginaexposedbase to 0>>
<<set $underanusexposedbase to 0>>
<<set $undertype to "normal">>
<<if $lowertype is "swim">>
	<<if $upperset is $lowerset>>
	<<uppernaked>>
	<</if>>
<<lowerundress>>
<</if>>
<<set $undergender to "f">>
	<</if>>
<</nobr>><</widget>>

<<widget "yfronts">><<nobr>>
	<<if $undertype isnot "chastity">>
<<understrip>><<underundress>>
<<set $underclothes to "Y fronts">>
<<set $undervariable to "yfronts">>
<<set $yfrontsintegritymax to 100>>
<<set $underintegritymax to $yfrontsintegritymax>>
<<set $underfabricstrength to 15>>
<<set $underreveal to 200>>
<<set $underword to "n">>
<<set $understate to "waist">>
<<set $understatebase to "waist">>
<<set $undervaginaexposed to 0>>
<<set $underanusexposed to 0>>
<<set $underplural to 1>>
<<if $yfrontsnew is 1>><<set $yfrontsnew to 0>><<set $yfrontsintegrity to $yfrontsintegritymax>><<set $yfrontscolour to either("blue", "white", "red", "green", "black", "pink", "purple", "tangerine", "yellow")>>
<<if $yfrontscolourchoice isnot 0>>
<<set $yfrontscolour to $yfrontscolourchoice>>
<</if>>
<</if>>
<<set $undercolour to $yfrontscolour>>
<<set $underintegrity to $yfrontsintegrity>>
<<set $underexposed to 0>>
<<set $underexposedbase to 0>>
<<set $undervaginaexposedbase to 0>>
<<set $underanusexposedbase to 0>>
<<set $undertype to "normal">>
<<if $lowertype is "swim">>
	<<if $upperset is $lowerset>>
	<<uppernaked>>
	<</if>>
<<lowerundress>>
<</if>>
<<set $undergender to "m">>
	<</if>>
<</nobr>><</widget>>

<<widget "chastitybelt">><<nobr>>
	<<if $undertype isnot "chastity">>
<<understrip>><<underundress>>
<<set $underclothes to "chastity belt">>
<<set $undervariable to "chastitybelt">>
<<set $chastitybeltintegritymax to 2000>>
<<set $underintegritymax to $chastitybeltintegritymax>>
<<set $underfabricstrength to 15>>
<<set $underreveal to 1000>>
<<set $underword to "a">>
<<set $understate to "chastity">>
<<set $understatebase to "chastity">>
<<set $undervaginaexposed to 0>>
<<set $undervaginaexposedbase to 0>>
<<if $analshield is 1>>
<<set $underanusexposed to 0>>
<<set $underanusexposedbase to 0>>
<<else>>
<<set $underanusexposed to 1>>
<<set $underanusexposedbase to 1>>
<</if>>
<<set $underplural to 0>>
<<if $chastitybeltnew is 1>><<set $chastitybeltnew to 0>><<set $chastitybeltintegrity to $chastitybeltintegritymax>>
<</if>>
<<set $undercolour to "restrictive">>
<<set $underintegrity to $chastitybeltintegrity>>
<<set $underexposed to 1>>
<<set $underexposedbase to 1>>
<<set $undertype to "chastity">>
<<set $undergender to "n">>
	<</if>>
<</nobr>><</widget>>

<<widget "tights">><<nobr>>
	<<if $undertype isnot "chastity">>
<<understrip>><<underundress>>
<<set $underclothes to "tights">>
<<set $undervariable to "tights">>
<<set $tightsintegritymax to 120>>
<<set $underintegritymax to $tightsintegritymax>>
<<set $underfabricstrength to 5>>
<<set $underreveal to 800>>
<<set $underword to "n">>
<<set $understate to "waist">>
<<set $understatebase to "waist">>
<<set $undervaginaexposed to 0>>
<<set $underanusexposed to 0>>
<<set $underplural to 1>>
<<if $tightsnew is 1>><<set $tightsnew to 0>><<set $tightsintegrity to $tightsintegritymax>><<set $tightscolour to "sheer">>
<<if $tightscolourchoice isnot 0>>
<<set $tightscolour to $tightscolourchoice>>
<</if>>
<</if>>
<<set $undercolour to $tightscolour>>
<<set $underintegrity to $tightsintegrity>>
<<set $underexposed to 1>>
<<set $underexposedbase to 1>>
<<set $undervaginaexposedbase to 0>>
<<set $underanusexposedbase to 0>>
<<set $undertype to "normal">>
<<if $lowertype is "swim">>
	<<if $upperset is $lowerset>>
	<<uppernaked>>
	<</if>>
<<lowerundress>>
<</if>>
<<set $undergender to "f">>
	<</if>>
<</nobr>><</widget>>


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


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 1>><<set $location to "forest">><<effects>>

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

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

<</if>>

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

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

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

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

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

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

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

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

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

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

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

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

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

<</if>>

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

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

<</if>>

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

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

<</if>>

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

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

<</if>>

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

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

<</if>>

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

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

<</if>>

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

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

<</if>>

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

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

<</if>>

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


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

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

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

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

<</if>>

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

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

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

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

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

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

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

<</if>>

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

<<uppertowel>>
<</if>>

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

<<upperpjs>>
<</if>>

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

<<upperbikini>>
<</if>>

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

<<tshirt>>
<</if>>

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

<<schoolshirt>>
<</if>>

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

<<tanktop>>
<</if>>

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

<</if>>

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

<<lowertowel>>
<</if>>

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

<<lowerpjs>>
<</if>>

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

<<lowerbikini>>
<</if>>

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

<<waistapron>>
<</if>>

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

<<shorts>>
<</if>>

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

<<schoolshorts>>
<</if>>

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

<<schoolskirt>>
<</if>>

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

<<schoolswimshorts>>
<</if>>

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

<</if>>

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

<<plainpanties>>
<</if>>

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

<<lacepanties>>
<</if>>

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

<<yfronts>>
<</if>>

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

<<tights>>
<</if>>

<<accessorieswear>>

<<exposure>>

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

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

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

<</if>>

Outfits

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

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

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

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

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

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

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

Tops

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

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

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

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

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

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

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

Bottoms

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

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

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

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

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

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

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

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

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

Underwear

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

<<else>>

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

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

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

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

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

<</if>>

<<accessories>>

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

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

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

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

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

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

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

<<exposure>>

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

:: Wardrobe [nobr]

<<effects>>
You look in your wardrobe.

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

<<wardrobe>>

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

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

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

<</if>>
<<wardrobe>>

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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