Skip to content
Snippets Groups Projects
base-clothing.twee 133 KiB
Newer Older
  • Learn to ignore specific revisions
  • aimozg's avatar
    aimozg committed
    :: Wardrobe [nobr]
    
    <<effects>>
    You look in your wardrobe.<br><br>
    <<wardrobewear>>
    [[Close wardrobe|Bedroom]]<br><br>
    <<wardrobe>>
    
    
    
    
    :: Changing Room [nobr]
    <<effects>><<set $outside to 0>><<set $location to "beach">>
    You are in a small wooden changing room.<br><br>
    <<wardrobewear>>
    <<if $exposed lte 0>>
    [[Leave|Beach]]<br><br>
    <<else>>
    You can't go out like this!<br><br>
    <</if>>
    <<wardrobe>>
    
    
    
    
    :: Eden Wardrobe [nobr]
    <<effects>>
    You look through the cupboard containing your clothes. There's an old dressing screen for privacy.<br><br>
    <<wardrobewear>>
    <<if $exhibitionism lte 54>>
    	<<if $exposed lte 0>>
    
    	<<link [[Done|Eden Cabin]]>><<pass1>><</link>><br><br>
    
    aimozg's avatar
    aimozg committed
    	<<else>>
    	You can't remain undressed like this!<br><br>
    	<</if>>
    <<else>>
    	<<if $exposed lte 1>>
    
    	<<link [[Done|Eden Cabin]]>><</link>><br><br>
    
    aimozg's avatar
    aimozg committed
    	<<else>>
    	You can't remain undressed like this!<br><br>
    	<</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>><br><br>
    <<wardrobewear>>
    <<if $exhibitionism lte 54>>
    	<<if $exposed lte 0>>
    
    	<<link [[Back to the club (0:01)|Strip Club]]>><<pass1>><</link>><br><br>
    
    aimozg's avatar
    aimozg committed
    	<<else>>
    	You can't go out like this!<br><br>
    	<</if>>
    <<elseif $exhibitionism gte 95>>
    
    <<link [[Back to the club (0:01)|Strip Club]]>><<pass1>><</link>><br><br>
    
    aimozg's avatar
    aimozg committed
    <<else>>
    	<<if $exposed lte 1>>
    
    	<<link [[Back to the club (0:01)|Strip Club]]>><<pass1>><</link>><br><br>
    
    aimozg's avatar
    aimozg committed
    	<<else>>
    	You can't go out like this!<br><br>
    	<</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.<br><br>
    <<wardrobewear>>
    <<if $exhibitionism lte 54>>
    	<<if $exposed lte 0>>
    
    	<<link [[Back to the brothel (0:01)|Brothel]]>><<pass1>><</link>><br><br>
    
    aimozg's avatar
    aimozg committed
    	<<else>>
    	You can't go out like this!<br><br>
    	<</if>>
    <<elseif $exhibitionism gte 95>>
    
    <<link [[Back to the brothel (0:01)|Brothel]]>><<pass1>><</link>><br><br>
    
    aimozg's avatar
    aimozg committed
    <<else>>
    	<<if $exposed lte 1>>
    
    	<<link [[Back to the brothel (0:01)|Brothel]]>><<pass1>><</link>><br><br>
    
    aimozg's avatar
    aimozg committed
    	<<else>>
    	You can't go out like this!<br><br>
    	<</if>>
    <</if>>
    <<wardrobe>>
    
    
    
    
    :: Testing Room [nobr]
    <<silently>><<effects>><</silently>>
    /*<<Avatar>>*/
    
    
    <<link "<<">><<set $pain -= 10>><<goto "Testing Room">><</link>> 
    <<link "<">><<set $pain -= 5>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Pain (<<= $pain>>)
    
    <<link ">">><<set $pain += 5>><<goto "Testing Room">><</link>> 
    <<link ">>">><<set $pain += 10>><<goto "Testing Room">><</link>> <br>
    <<link "<<">><<set $arousal -= 1000>><<goto "Testing Room">><</link>> 
    <<link "<">><<set $arousal -= 100>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Arousal (<<= $arousal>>)
    
    <<link ">">><<set $arousal += 100>><<goto "Testing Room">><</link>> 
    <<link ">>">><<set $arousal += 1000>><<goto "Testing Room">><</link>> <br>
    <<link "<<">><<set $stress -= 1000>><<goto "Testing Room">><</link>> 
    <<link "<">><<set $stress -= 100>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Stress (<<= $stress>>)
    
    <<link ">">><<set $stress += 100>><<goto "Testing Room">><</link>> 
    <<link ">>">><<set $stress += 1000>><<goto "Testing Room">><</link>> <br>
    <<link "<<">><<set $trauma -= 1000>><<goto "Testing Room">><</link>> 
    <<link "<">><<set $trauma -= 100>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Trauma (<<= $trauma>>)
    
    <<link ">">><<set $trauma += 100>><<goto "Testing Room">><</link>> 
    <<link ">>">><<set $trauma += 1000>><<goto "Testing Room">><</link>> <br><br>
    
    <<link "<<">><<set $promiscuity -= 10>><<goto "Testing Room">><</link>> 
    <<link "<">><<set $promiscuity -= 2>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Promiscuity (<<= $promiscuity>>)
    
    <<link ">">><<set $promiscuity += 2>><<goto "Testing Room">><</link>> 
    <<link ">>">><<set $promiscuity += 10>><<goto "Testing Room">><</link>> <br>
    <<link "<<">><<set $exhibitionism -= 10>><<goto "Testing Room">><</link>> 
    <<link "<">><<set $exhibitionism -= 2>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Exhibitionism (<<= $exhibitionism>>)
    
    <<link ">">><<set $exhibitionism += 2>><<goto "Testing Room">><</link>> 
    <<link ">>">><<set $exhibitionism += 10>><<goto "Testing Room">><</link>> <br><br>
    
    aimozg's avatar
    aimozg committed
    
    Toggle:  
    
    <<link "Gender">><<if $playergender is "f">>
    
    aimozg's avatar
    aimozg committed
    <<set $vaginaexist to 0>><<set $playergender to "m">><<set $penisexist to 1>>
    <<else>><<set $penisexist to 0>><<set $playergender to "f">><<set $vaginaexist to 1>><</if>>
    
    <<goto "Testing Room">><</link>>  |  
    <<link "Virginity">>
    
    aimozg's avatar
    aimozg committed
    <<if $penilevirginity is 0 or $vaginalvirginity is 0>>
      <<set $penilevirginity to 1>><<set $vaginalvirginity to 1>><<set $oralvirginity to 1>><<set $analvirginity to 1>>
    <<else>>
      <<set $penilevirginity to 0>><<set $vaginalvirginity to 0>><<set $oralvirginity to 0>><<set $analvirginity to 0>>
    <</if>>
    
    <<goto "Testing Room">><</link>> | 
    <<link "Hirsute">>
    
    aimozg's avatar
    aimozg committed
    <<if $hirsutedisable is "f">><<set $hirsutedisable to "t">>
    <<else>><<set $hirsutedisable to "f">><</if>>
    
    <<goto "Testing Room">><</link>>  |
    <<link "Bound Left Arm">>
    
    aimozg's avatar
    aimozg committed
    <<if $leftarm is "bound">><<set $leftarm to 0>><<set $leftboundcarry to 0>>
    <<else>><<set $leftarm to "bound">><</if>>
    
    <<goto "Testing Room">><</link>>  |  
    <<link "Bound Right Arm">>
    
    aimozg's avatar
    aimozg committed
    <<if $rightarm is "bound">><<set $rightarm to 0>><<set $rightboundcarry to 0>>
    <<else>><<set $rightarm to "bound">><</if>>
    
    <<goto "Testing Room">><</link>>  <br><br>
    
    aimozg's avatar
    aimozg committed
    
    Breast Size - 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 <br>
    
    Hair Colour (<<= $haircolour>>): 
    
    <<link "Black">><<set $haircolour to "black">><<goto "Testing Room">><</link>> |
    <<link "Brown">><<set $haircolour to "brown">><<goto "Testing Room">><</link>> |
    <<link "Red">><<set $haircolour to "red">><<goto "Testing Room">><</link>> |
    <<link "Ginger">><<set $haircolour to "ginger">><<goto "Testing Room">><</link>> |
    <<link "Blond">><<set $haircolour to "blond">><<goto "Testing Room">><</link>> |
    <<link "Green">><<set $haircolour to "green">><<goto "Testing Room">><</link>> |
    <<link "Blue">><<set $haircolour to "blue">><<goto "Testing Room">><</link>> |
    <<link "Purple">><<set $haircolour to "purple">><<goto "Testing Room">><</link>> <br>
    
    <<link "<<">><<set $hairlength -= 100>><<goto "Testing Room">><</link>> 
    <<link "<">><<set $hairlength -= 10>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Hair Length (<<= $hairlength>>)
    
    <<link ">">><<set $hairlength += 10>><<goto "Testing Room">><</link>> 
    <<link ">>">><<set $hairlength += 100>><<goto "Testing Room">><</link>> <br>
    
    aimozg's avatar
    aimozg committed
    
    Eye Colour (<<= $eyecolour>>): 
    
    <<link "Hazel">><<set $eyecolour to "hazel">><<goto "Testing Room">><</link>> |
    <<link "Amber">><<set $eyecolour to "amber">><<goto "Testing Room">><</link>> |
    <<link "Green">><<set $eyecolour to "green">><<goto "Testing Room">><</link>> |
    <<link "Dark Blue">><<set $eyecolour to "dark blue">><<goto "Testing Room">><</link>> |
    <<link "Light Blue">><<set $eyecolour to "light blue">><<goto "Testing Room">><</link>> |
    <<link "Purple">><<set $eyecolour to "purple">><<goto "Testing Room">><</link>> <br><br>
    
    <<link "<">><<set $wolfgirl -= 1>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Wolf (<<= $wolfgirl>>)
    
    <<link ">">><<set $wolfgirl += 1>><<goto "Testing Room">><</link>> |
    <<link "<">><<set $angel -= 1>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Angel (<<= $angel>>)
    
    <<link ">">><<set $angel += 1>><<goto "Testing Room">><</link>> |
    <<link "<">><<set $demon -= 1>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Demon (<<= $demon>>)
    
    <<link ">">><<set $demon += 1>><<goto "Testing Room">><</link>> |
    <<link "<">><<set $fallenangel -= 1>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Fallen Angel (<<= $fallenangel>>)
    
    <<link ">">><<set $fallenangel += 1>><<goto "Testing Room">><</link>> <br><br>
    
    <<link "<">><<set $vaginasemen -= 1>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Vagina (<<= $vaginasemen>>)
    
    <<link ">">><<set $vaginasemen += 1>><<goto "Testing Room">><</link>> |
    <<link "<">><<set $anussemen -= 1>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Anus (<<= $anussemen>>)
    
    <<link ">">><<set $anussemen += 1>><<goto "Testing Room">><</link>> |
    <<link "<">><<set $mouthsemen -= 1>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Mouth (<<= $mouthsemen>>)
    
    <<link ">">><<set $mouthsemen += 1>><<goto "Testing Room">><</link>> <br>
    
    aimozg's avatar
    aimozg committed
    Goo:  
    
    <<link "<">><<set $vaginagoo -= 1>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Vagina (<<= $vaginagoo>>)
    
    <<link ">">><<set $vaginagoo += 1>><<goto "Testing Room">><</link>> |
    <<link "<">><<set $anusgoo -= 1>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Anus (<<= $anusgoo>>)
    
    <<link ">">><<set $anusgoo += 1>><<goto "Testing Room">><</link>> |
    <<link "<">><<set $mouthgoo -= 1>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Mouth (<<= $mouthgoo>>)
    
    <<link ">">><<set $mouthgoo += 1>><<goto "Testing Room">><</link>> <br>
    
    aimozg's avatar
    aimozg committed
    
    Parasite:  
    
    aimozg's avatar
    aimozg committed
    <<if $chestparasite is 0>><<set $chestparasite to 1>>
    <<else>><<set $chestparasite to 0>><</if>>
    
    <<goto "Testing Room">><</link>>  |  
    <<link "Penis">>
    
    aimozg's avatar
    aimozg committed
    <<if $penisparasite is 0>><<set $penisparasite to 1>>
    <<else>><<set $penisparasite to 0>><</if>>
    
    <<goto "Testing Room">><</link>>  |  
    <<link "Clit">>
    
    aimozg's avatar
    aimozg committed
    <<if $clitparasite is 0>><<set $clitparasite to 1>>
    <<else>><<set $clitparasite to 0>><</if>>
    
    <<goto "Testing Room">><</link>>  <br><br>
    
    Upper Clothes:  <<link "<<">><<set $upperintegrity -= 10>><<goto "Testing Room">><</link>> 
    <<link "<">><<set $upperintegrity -= 1>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Integrity (<<= $upperintegrity>>)
    
    <<link ">">><<set $upperintegrity += 1>><<goto "Testing Room">><</link>> 
    <<link ">>">><<set $upperintegrity += 10>><<goto "Testing Room">><</link>>  |  
    <<link "<">><<set $upperwet -= 100>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Wet (<<= $upperwet>>)
    
    <<link ">">><<set $upperwet += 1>><<goto "Testing Room">><</link>> <br>
    
    Lower Clothes:  <<link "<<">><<set $lowerintegrity -= 10>><<goto "Testing Room">><</link>> 
    <<link "<">><<set $lowerintegrity -= 1>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Integrity (<<= $lowerintegrity>>)
    
    <<link ">">><<set $lowerintegrity += 1>><<goto "Testing Room">><</link>> 
    <<link ">>">><<set $lowerintegrity += 10>><<goto "Testing Room">><</link>>  |  
    <<link "<">><<set $lowerwet -= 100>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Wet (<<= $lowerwet>>)
    
    <<link ">">><<set $lowerwet += 1>><<goto "Testing Room">><</link>> <br>
    
    Underwear:  <<link "<<">><<set $underintegrity -= 10>><<goto "Testing Room">><</link>> 
    <<link "<">><<set $underintegrity -= 1>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Integrity (<<= $underintegrity>>)
    
    <<link ">">><<set $underintegrity += 1>><<goto "Testing Room">><</link>> 
    <<link ">>">><<set $underintegrity += 10>><<goto "Testing Room">><</link>>  |  
    <<link "<">><<set $underwet -= 100>><<goto "Testing Room">><</link>> 
    
    aimozg's avatar
    aimozg committed
    Wet (<<= $underwet>>)
    
    <<link ">">><<set $underwet += 1>><<goto "Testing Room">><</link>> <br>
    
    aimozg's avatar
    aimozg committed
    
    /*ToDo:  Add handling for toggling clothing.*/
    /*ToDo:  Wardrobe and Shop*/
    
    <br><br>
    
    
    aimozg's avatar
    aimozg committed
    
    
    
    
    
    
    
    :: 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.
    
    aimozg's avatar
    aimozg committed
    <br><br>
    <<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.<br><br>
    <</if>>
    
    <<if $wear is "sundress">><<set $wear to 0>>
    You wear the sundress.<br><br>
    	<<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.<br><br>
    	<<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.<br><br>
    	<<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.
    
    aimozg's avatar
    aimozg committed
    <<uppernaked>><br><br>
    <</if>>
    
    <<if $wear is "uppertowel">><<set $wear to 0>><<set $uppertowelnew to 1>>
    You wrap the towel around your chest.<br><br>
    <<uppertowel>>
    <</if>>
    
    <<if $wear is "upperpjs">><<set $wear to 0>>
    You wear the pyjama shirt.<br><br>
    <<upperpjs>>
    <</if>>
    
    <<if $wear is "upperbikini">><<set $wear to 0>>
    You wear the bikini top.<br><br>
    <<upperbikini>>
    <</if>> 
    
    <<if $wear is "tshirt">><<set $wear to 0>>
    You wear the t-shirt.<br><br>
    <<tshirt>>
    <</if>> 
    
    <<if $wear is "schoolshirt">><<set $wear to 0>>
    You wear the school shirt.<br><br>
    <<schoolshirt>>
    <</if>>
    
    <<if $wear is "tanktop">><<set $wear to 0>>
    You wear the tank top.<br><br>
    <<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.
    
    aimozg's avatar
    aimozg committed
    <<else>>
    You are already bottomless.
    
    aimozg's avatar
    aimozg committed
    <<lowernaked>><br><br>
    <</if>>
    
    <<if $wear is "lowertowel">><<set $wear to 0>><<set $lowertowelnew to 1>>
    You wrap the towel around your pelvis.<br><br>
    <<lowertowel>>
    <</if>>
    
    <<if $wear is "lowerpjs">><<set $wear to 0>>
    You wear the pyjama bottoms.<br><br>
    <<lowerpjs>>
    <</if>>
    
    <<if $wear is "lowerbikini">><<set $wear to 0>>
    You wear the bikini bottoms.<br><br>
    <<lowerbikini>>
    <</if>>
    
    <<if $wear is "waistapron">><<set $wear to 0>>
    You wear the waist apron.<br><br>
    <<waistapron>>
    <</if>>
    
    <<if $wear is "shorts">><<set $wear to 0>>
    You wear the shorts.<br><br>
    <<shorts>>
    <</if>>
    
    <<if $wear is "schoolshorts">><<set $wear to 0>>
    You wear the school shorts.<br><br>
    <<schoolshorts>>
    <</if>>
    
    <<if $wear is "schoolskirt">><<set $wear to 0>>
    You wear the school skirt.<br><br>
    <<schoolskirt>>
    <</if>>
    
    <<if $wear is "schoolswimshorts">><<set $wear to 0>>
    You wear the swim shorts.<br><br>
    <<schoolswimshorts>>
    <</if>>
    
    
    
    
    
    <<if $wear is "stripunder">><<set $wear to 0>>
    <<if $undertype isnot "naked">>
    You take off your $underclothes.
    <<else>>
    You are already pantiless.
    
    aimozg's avatar
    aimozg committed
    <<undernaked>><br><br>
    <</if>>
    
    <<if $wear is "plainpanties">><<set $wear to 0>>
    You wear the plain panties.<br><br>
    <<plainpanties>>
    <</if>>
    
    <<if $wear is "lacepanties">><<set $wear to 0>>
    You wear the lace panties.<br><br>
    <<lacepanties>>
    <</if>>
    
    <<if $wear is "yfronts">><<set $wear to 0>>
    You wear the Y fronts.<br><br>
    <<yfronts>>
    <</if>>
    
    <<if $wear is "tights">><<set $wear to 0>>
    You wear the tights.<br><br>
    <<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">><<script>>state.display(state.active.title, null)<</script>><</link>><br><br>
    
    aimozg's avatar
    aimozg committed
    <</if>>
    
    
    Outfits<br>
    <<if $uppersundressno gte 1>> | 
    
    <<link "Sundress">><<set $wear to "sundress">><<script>>state.display(state.active.title, null)<</script>><</link>>
    
    aimozg's avatar
    aimozg committed
    
    <<elseif $lowersundressno gte 1>> | 
    
    <<link "Sundress">><<set $wear to "sundress">><<script>>state.display(state.active.title, null)<</script>><</link>>
    <</if>>
    
    aimozg's avatar
    aimozg committed
    
    <<if $upperschoolswimsuitno gte 1>> | 
    
    <<link "School swimsuit">><<set $wear to "schoolswimsuit">><<script>>state.display(state.active.title, null)<</script>><</link>>
    
    aimozg's avatar
    aimozg committed
    
    <<elseif $lowerschoolswimsuitno gte 1>> | 
    
    <<link "School swimsuit">><<set $wear to "schoolswimsuit">><<script>>state.display(state.active.title, null)<</script>><</link>>
    <</if>>
    
    aimozg's avatar
    aimozg committed
    
    <<if $uppereveninggownno gte 1>> | 
    
    <<link "Evening gown">><<set $wear to "eveninggown">><<script>>state.display(state.active.title, null)<</script>><</link>>
    
    aimozg's avatar
    aimozg committed
    
    <<elseif $lowereveninggownno gte 1>> | 
    
    <<link "Evening gown">><<set $wear to "eveninggown">><<script>>state.display(state.active.title, null)<</script>><</link>>
    <</if>>
    
    <<link "Strip all">><<set $wear to "stripall">><<script>>state.display(state.active.title, null)<</script>><</link>>
    
    aimozg's avatar
    aimozg committed
    
    <br><br>
    
    
    
    
    
    
    
    Tops<br>
    <<if $upperpjsno gte 1>> | 
    
    <<link "Pyjama shirt">><<set $wear to "upperpjs">><<script>>state.display(state.active.title, null)<</script>><</link>>
    
    aimozg's avatar
    aimozg committed
    <</if>>
    
    <<if $upperbikinino gte 1>> | 
    
    <<link "Bikini top">><<set $wear to "upperbikini">><<script>>state.display(state.active.title, null)<</script>><</link>>
    
    aimozg's avatar
    aimozg committed
    <</if>>
    
    <<if $tshirtno gte 1>> | 
    
    <<link "T-shirt">><<set $wear to "tshirt">><<script>>state.display(state.active.title, null)<</script>><</link>>
    
    aimozg's avatar
    aimozg committed
    <</if>>
    
    <<if $schoolshirtno gte 1>> | 
    
    <<link "School shirt">><<set $wear to "schoolshirt">><<script>>state.display(state.active.title, null)<</script>><</link>>
    
    aimozg's avatar
    aimozg committed
    <</if>>
    
    <<if $tanktopno gte 1>> | 
    
    <<link "Tank top">><<set $wear to "tanktop">><<script>>state.display(state.active.title, null)<</script>><</link>>
    
     | <<link "Towel">><<set $wear to "uppertowel">>
    
    aimozg's avatar
    aimozg committed
     <<script>>state.display(state.active.title, null)<</script>>
    
    <<link "Strip top">><<set $wear to "stripupper">><<script>>state.display(state.active.title, null)<</script>><</link>>
    
    aimozg's avatar
    aimozg committed
    
    <br><br>
    
    
    
    
    
    
    
    Bottoms<br>
    <<if $lowerpjsno gte 1>> | 
    
    <<link "Pyjama bottoms">><<set $wear to "lowerpjs">>
    <<script>>state.display(state.active.title, null)<</script>><</link>>
    
    aimozg's avatar
    aimozg committed
    <</if>>
    
    <<if $lowerbikinino gte 1>> | 
    
    <<link "Bikini bottoms">><<set $wear to "lowerbikini">>
    <<script>>state.display(state.active.title, null)<</script>><</link>>
    
    aimozg's avatar
    aimozg committed
    <</if>>
    
    <<if $waistapronno gte 1>> | 
    
    <<link "Waist apron">><<set $wear to "waistapron">>
    <<script>>state.display(state.active.title, null)<</script>><</link>>
    
    aimozg's avatar
    aimozg committed
    <</if>>
    
    <<if $shortsno gte 1>> | 
    
    <<link "Shorts">><<set $wear to "shorts">><<script>>state.display(state.active.title, null)<</script>>
    <</link>>
    
    aimozg's avatar
    aimozg committed
    <</if>>
    
    <<if $schoolshortsno gte 1>> | 
    
    <<link "School shorts">><<set $wear to "schoolshorts">><<script>>state.display(state.active.title, null)<</script>>
    <</link>>
    
    aimozg's avatar
    aimozg committed
    <</if>>
    
    <<if $schoolskirtno gte 1>> | 
    
    <<link "School skirt">><<set $wear to "schoolskirt">><<script>>state.display(state.active.title, null)<</script>>
    <</link>>
    
    aimozg's avatar
    aimozg committed
    <</if>>
    
    <<if $schoolswimshortsno gte 1>> | 
    
    <<link "School swim shorts">><<set $wear to "schoolswimshorts">><<script>>state.display(state.active.title, null)<</script>>
    <</link>>
    
     | <<link "Towel">><<set $wear to "lowertowel">>
    
    aimozg's avatar
    aimozg committed
     <<script>>state.display(state.active.title, null)<</script>>
    
    <<link "Strip bottom">><<set $wear to "striplower">><<script>>state.display(state.active.title, null)<</script>><</link>>
    
    aimozg's avatar
    aimozg committed
    
    <br><br>
    
    
    
    
    
    
    Underwear<br>
    
    <<if $undertype is "chastity">>
    You can't remove your chastity belt without help.<br><br>
    <<else>>
    
    <<if $plainpantiesno gte 1>> | 
    
    <<link "Plain panties">><<set $wear to "plainpanties">><<script>>state.display(state.active.title, null)<</script>><</link>>
    
    aimozg's avatar
    aimozg committed
    <</if>>
    
    <<if $lacepantiesno gte 1>> | 
    
    <<link "Lace panties">><<set $wear to "lacepanties">><<script>>state.display(state.active.title, null)<</script>><</link>>
    
    aimozg's avatar
    aimozg committed
    <</if>>
    
    <<if $yfrontsno gte 1>> | 
    
    <<link "Y fronts">><<set $wear to "yfronts">><<script>>state.display(state.active.title, null)<</script>><</link>>
    
    aimozg's avatar
    aimozg committed
    <</if>>
    
    <<if $tightsno gte 1>> | 
    
    <<link "Tights">><<set $wear to "tights">><<script>>state.display(state.active.title, null)<</script>><</link>>
    
    <<link "Strip underwear">><<set $wear to "stripunder">><<script>>state.display(state.active.title, null)<</script>><</link>>
    
    <<link "Set currently worn clothing as casual outfit">><<set $upperoutfitcasual to $upperclothes>><<set $loweroutfitcasual to $lowerclothes>><<set $underoutfitcasual to $underclothes>><<script>>state.display(state.active.title, null)<</script>><</link>><br>
    <<link "Set currently worn clothing as school outfit">><<set $upperoutfitschool to $upperclothes>><<set $loweroutfitschool to $lowerclothes>><<set $underoutfitschool to $underclothes>><<script>>state.display(state.active.title, null)<</script>><</link>><br>
    <<link "Set currently worn clothing as custom 1 outfit">><<set $upperoutfitcustom1 to $upperclothes>><<set $loweroutfitcustom1 to $lowerclothes>><<set $underoutfitcustom1 to $underclothes>><<script>>state.display(state.active.title, null)<</script>><</link>><br>
    <<link "Set currently worn clothing as custom 2 outfit">><<set $upperoutfitcustom2 to $upperclothes>><<set $loweroutfitcustom2 to $lowerclothes>><<set $underoutfitcustom2 to $underclothes>><<script>>state.display(state.active.title, null)<</script>><</link>><br>
    <<link "Set currently worn clothing as custom 3 outfit">><<set $upperoutfitcustom3 to $upperclothes>><<set $loweroutfitcustom3 to $lowerclothes>><<set $underoutfitcustom3 to $underclothes>><<script>>state.display(state.active.title, null)<</script>><</link>><br>
    <<link "Set currently worn clothing as custom 4 outfit">><<set $upperoutfitcustom4 to $upperclothes>><<set $loweroutfitcustom4 to $lowerclothes>><<set $underoutfitcustom4 to $underclothes>><<script>>state.display(state.active.title, null)<</script>><</link>><br>
    
    aimozg's avatar
    aimozg committed
    
    <br>
    
    <<set $upperoff to 0>>
    <<set $loweroff to 0>>
    <<set $underoff to 0>>
    
    
    
    <<exposure>>
    
    
    
    <</nobr>><</widget>>
    
    
    
    
    
    
    
    
    
    :: Widgets Clothing [widget]
    <<widget "clothinginit">><<nobr>>
    <<set $uppersundresscolourchoice to 0>>
    <<set $lowersundresscolourchoice 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 $upperschoolswimsuitcolourchoice to 0>>
    <<set $lowerschoolswimsuitcolourchoice to 0>>
    <<set $schoolswimshortscolourchoice to 0>>
    <<set $chastitybeltcolourchoice to 0>>
    <<set $uppereveninggowncolourchoice to 0>>
    <<set $lowereveninggowncolourchoice 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>>
    
    
    
    
    
    
    
    
    
    
    
    
    
    <<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">>
    <<endnobr>><<endwidget>>
    
    <<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>>
    
    aimozg's avatar
    aimozg committed
    <<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">>
    <<endnobr>><<endwidget>>
    
    <<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>>
    
    aimozg's avatar
    aimozg committed
    <<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">>
    <<endnobr>><<endwidget>>
    
    <<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>>
    
    aimozg's avatar
    aimozg committed
    <<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">>