:: Testing Room
<<silently>><<effects>><</silently>><br>
/*<<Avatar>>*/
<<link [[<<|Testing Room]]>><<set $pain -= 10>><</link>>
<<link [[<|Testing Room]]>><<set $pain -= 5>><</link>>
Pain (<<print $pain>>)
<<link [[>|Testing Room]]>><<set $pain += 5>><</link>>
<<link [[>>|Testing Room]]>><<set $pain += 10>><</link>>
<br>
<<link [[<<|Testing Room]]>><<arousal -1000>><</link>>
<<link [[<|Testing Room]]>><<arousal -100>><</link>>
Arousal (<<print $arousal>>)
<<link [[>|Testing Room]]>><<arousal 100>><</link>>
<<link [[>>|Testing Room]]>><<arousal 1000>><</link>>
<br>
<<link [[<<|Testing Room]]>><<set $stress -= 1000>><</link>>
<<link [[<|Testing Room]]>><<set $stress -= 100>><</link>>
Stress (<<print $stress>>)
<<link [[>|Testing Room]]>><<set $stress += 100>><</link>>
<<link [[>>|Testing Room]]>><<set $stress += 1000>><</link>>
<br>
<<link [[<<|Testing Room]]>><<set $trauma -= 1000>><</link>>
<<link [[<|Testing Room]]>><<set $trauma -= 100>><</link>>
Trauma (<<print $trauma>>)
<<link [[>|Testing Room]]>><<set $trauma += 100>><</link>>
<<link [[>>|Testing Room]]>><<set $trauma += 1000>><</link>>
<br><br>

<<link [[<<|Testing Room]]>><<set $promiscuity -= 10>><</link>>
<<link [[<|Testing Room]]>><<set $promiscuity -= 2>><</link>>
Promiscuity (<<print $promiscuity>>)
<<link [[>|Testing Room]]>><<set $promiscuity += 2>><</link>>
<<link [[>>|Testing Room]]>><<set $promiscuity += 10>><</link>>
<br>
<<link [[<<|Testing Room]]>><<set $exhibitionism -= 10>><</link>>
<<link [[<|Testing Room]]>><<set $exhibitionism -= 2>><</link>>
Exhibitionism (<<print $exhibitionism>>)
<<link [[>|Testing Room]]>><<set $exhibitionism += 2>><</link>>
<<link [[>>|Testing Room]]>><<set $exhibitionism += 10>><</link>>
<br><br>

Toggle:
<<link [[Gender|Testing Room]]>>
	/* note: add ability to switch to herm gender in the future; maybe a set of (three) buttons to pick which gender instead of a toggle? */
	<<set $player.gender to ($player.gender is "m" ? "f" : "m")>>
	<<set $player.penisExist to ($player.gender is "m")>>
	<<set $player.ballsExist to ($player.gender is "m")>>
	<<set $player.vaginaExist to ($player.gender is "f")>>

<</link>> |
<<link [[Sex|Testing Room]]>>
	<<set $player.sex to ($player.sex is "m" ? "f" : "m")>>
	<<set $player.penisExist to ($player.gender is "m")>>
	<<set $player.ballsExist to ($player.gender is "m")>>
	<<set $player.vaginaExist to ($player.gender is "f")>>

<</link>> |
<<link [[Virginity|Testing Room]]>>
	<<if $player.virginity.penile isnot true or $player.virginity.vaginal isnot true>>
		<<set $player.virginity.vaginal to true>><<set $player.virginity.penile to true>><<set $player.virginity.anal to true>><<set $player.virginity.oral to true>>
	<<else>>
		<<set $player.virginity.vaginal to false>><<set $player.virginity.penile to false>><<set $player.virginity.anal to false>><<set $player.virginity.oral to false>><<set $player.virginity.temple to false>>
	<</if>>

<</link>> |
<<link [[Hirsute|Testing Room]]>>
	<<set $hirsutedisable to ($hirsutedisable is "t"? "f" : "t")>>

<</link>> |
<<link [[Bound Left Arm|Testing Room]]>>
	<<if $leftarm is "bound">>
		<<set $leftarm to 0>><<set $leftboundcarry to 0>>
	<<else>>
		<<set $leftarm to "bound">>
	<</if>>

<</link>> |
<<link [[Bound Right Arm|Testing Room]]>>
	<<if $rightarm is "bound">>
		<<set $rightarm to 0>><<set $rightboundcarry to 0>>
	<<else>>
		<<set $rightarm to "bound">>
	<</if>>

<</link>>
<br><br>

Breast Size - 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
<br>

Hair Colour (<<print $haircolour>>):
<<link [[Black|Testing Room]]>><<set $haircolour to "black">><</link>> |
<<link [[Brown|Testing Room]]>><<set $haircolour to "brown">><</link>> |
<<link [[Red|Testing Room]]>><<set $haircolour to "red">><</link>> |
<<link [[Ginger|Testing Room]]>><<set $haircolour to "ginger">><</link>> |
<<link [[Blond|Testing Room]]>><<set $haircolour to "blond">><</link>> |
<<link [[Green|Testing Room]]>><<set $haircolour to "green">><</link>> |
<<link [[Blue|Testing Room]]>><<set $haircolour to "blue">><</link>> |
<<link [[Purple|Testing Room]]>><<set $haircolour to "purple">><</link>>
<br>

Fringe Colour (<<print $hairfringecolour>>):
<<link [[Black|Testing Room]]>><<set $hairfringecolour to "black">><</link>> |
<<link [[Brown|Testing Room]]>><<set $hairfringecolour to "brown">><</link>> |
<<link [[Red|Testing Room]]>><<set $hairfringecolour to "red">><</link>> |
<<link [[Ginger|Testing Room]]>><<set $hairfringecolour to "ginger">><</link>> |
<<link [[Blond|Testing Room]]>><<set $hairfringecolour to "blond">><</link>> |
<<link [[Green|Testing Room]]>><<set $hairfringecolour to "green">><</link>> |
<<link [[Blue|Testing Room]]>><<set $hairfringecolour to "blue">><</link>> |
<<link [[Purple|Testing Room]]>><<set $hairfringecolour to "purple">><</link>>
<br>

<<link [[<<|Testing Room]]>><<set $hairlength -= 100>><</link>>
<<link [[<|Testing Room]]>><<set $hairlength -= 10>><</link>>
Hair Length (<<print $hairlength>>)
<<link [[>|Testing Room]]>><<set $hairlength += 10>><</link>>
<<link [[>>|Testing Room]]>><<set $hairlength += 100>><</link>>
<br>

Eye Colour (<<print $leftEyeColour>>/<<print $rightEyeColour>>):
<<link [[Hazel|Testing Room]]>><<set $leftEyeColour to "hazel">><<set $rightEyeColour to "hazel">><</link>> |
<<link [[Amber|Testing Room]]>><<set $leftEyeColour to "amber">><<set $rightEyeColour to "amber">><</link>> |
<<link [[Green|Testing Room]]>><<set $leftEyeColour to "green">><<set $rightEyeColour to "green">><</link>> |
<<link [[Dark Blue|Testing Room]]>><<set $leftEyeColour to "dark blue">><<set $rightEyeColour to "dark blue">><</link>> |
<<link [[Light Blue|Testing Room]]>><<set $leftEyeColour to "light blue">><<set $rightEyeColour to "light blue">><</link>> |
<<link [[Purple|Testing Room]]>><<set $leftEyeColour to "purple">><<set $rightEyeColour to "purple">><</link>>
<br><br>

<<link [[<|Testing Room]]>><<set $wolfgirl -= 1>><</link>>
Wolf (<<print $wolfgirl>>)
<<link [[>|Testing Room]]>><<set $wolfgirl += 1>><</link>> |

<<link [[<|Testing Room]]>><<set $angel -= 1>><</link>>
Angel (<<print $angel>>)
<<link [[>|Testing Room]]>><<set $angel += 1>><</link>> |

<<link [[<|Testing Room]]>><<set $demon -= 1>><</link>>
Demon (<<print $demon>>)
<<link [[>|Testing Room]]>><<set $demon += 1>><</link>> |

<<link [[<|Testing Room]]>><<set $fallenangel -= 1>><</link>>
Fallen Angel (<<print $fallenangel>>)
<<link [[>|Testing Room]]>><<set $fallenangel += 1>><</link>>
<br><br>

Semen:
<<link [[<|Testing Room]]>><<bodyliquid "vagina" "semen" -1>><</link>>
Vagina (<<print $player.bodyliquid.vagina.semen>>)
<<link [[>|Testing Room]]>><<bodyliquid "vagina" "semen">><</link>> |

<<link [[<|Testing Room]]>><<bodyliquid "anus" "semen" -1>><</link>>
Anus (<<print $player.bodyliquid.anus.semen>>)
<<link [[>|Testing Room]]>><<bodyliquid "anus" "semen">><</link>> |

<<link [[<|Testing Room]]>><<bodyliquid "mouth" "semen" -1>><</link>>
Mouth (<<print $player.bodyliquid.mouth.semen>>)
<<link [[>|Testing Room]]>><<bodyliquid "mouth" "semen" 1>><</link>>
<br>
Goo:
<<link [[<|Testing Room]]>><<bodyliquid "vagina" "goo" -1>><</link>>
Vagina (<<print $player.bodyliquid.vagina.goo>>)
<<link [[>|Testing Room]]>><<bodyliquid "vagina" "goo">><</link>> |

<<link [[<|Testing Room]]>><<bodyliquid "anus" "goo" -1>><</link>>
Anus (<<print $player.bodyliquid.anus.goo>>)
<<link [[>|Testing Room]]>><<bodyliquid "anus" "goo">><</link>> |

<<link [[<|Testing Room]]>><<bodyliquid "mouth" "goo" -1>><</link>>
Mouth (<<print $player.bodyliquid.mouth.goo>>)
<<link [[>|Testing Room]]>><<bodyliquid "mouth" "goo">><</link>>
<br>

Parasite:
<<link [[Chest|Testing Room]]>>
	<<if $parasite.nipples.name is undefined>>
		<<parasite nipples urchin>>
	<<else>>
		<<removeparasite nipples>>
	<</if>>

<</link>> |

<<link [[Penis|Testing Room]]>>
	<<if $parasite.penis.name is undefined>>
		<<parasite penis urchin>>
	<<else>>
		<<removeparasite penis>>
	<</if>>

<</link>> |

<<link [[Clit|Testing Room]]>>
	<<if $parasite.clit.name is undefined>>
		<<parasite clit urchin>>
	<<else>>
		<<removeparasite clit>>
	<</if>>

<</link>>
<br><br>

Upper Clothes:
<<link [[<<|Testing Room]]>><<set $worn.upper.integrity -= 10>><</link>>
<<link [[<|Testing Room]]>><<set $worn.upper.integrity -= 1>><</link>>
Integrity (<<print $worn.upper.integrity>>)
<<link [[>|Testing Room]]>><<set $worn.upper.integrity += 1>><</link>>
<<link [[>>|Testing Room]]>><<set $worn.upper.integrity += 10>><</link>> |

<<link [[<|Testing Room]]>><<set $upperwet -= 100>><</link>>
Wet (<<print $upperwet>>)
<<link [[>|Testing Room]]>><<set $upperwet += 1>><</link>>
<br>

Lower Clothes:
<<link [[<<|Testing Room]]>><<set $worn.lower.integrity -= 10>><</link>>
<<link [[<|Testing Room]]>><<set $worn.lower.integrity -= 1>><</link>>
Integrity (<<print $worn.lower.integrity>>)
<<link [[>|Testing Room]]>><<set $worn.lower.integrity += 1>><</link>>
<<link [[>>|Testing Room]]>><<set $worn.lower.integrity += 10>><</link>> |

<<link [[<|Testing Room]]>><<set $lowerwet -= 100>><</link>>
Wet (<<print $lowerwet>>)
<<link [[>|Testing Room]]>><<set $lowerwet += 1>><</link>>
<br>

Under Bottoms:
<<link [[<<|Testing Room]]>><<set $worn.under_lower.integrity -= 10>><</link>>
<<link [[<|Testing Room]]>><<set $worn.under_lower.integrity -= 1>><</link>>
Integrity (<<print $worn.under_lower.integrity>>)
<<link [[>|Testing Room]]>><<set $worn.under_lower.integrity += 1>><</link>>
<<link [[>>|Testing Room]]>><<set $worn.under_lower.integrity += 10>><</link>> |

<<link [[<|Testing Room]]>><<set $underlowerwet -= 100>><</link>>
Wet (<<print $underlowerwet>>)
<<link [[>|Testing Room]]>><<set $underlowerwet += 1>><</link>>
<br>

Under Top:
<<link [[<<|Testing Room]]>><<set $worn.under_upper.integrity -= 10>><</link>>
<<link [[<|Testing Room]]>><<set $worn.under_upper.integrity -= 1>><</link>>
Integrity (<<print $worn.under_upper.integrity>>)
<<link [[>|Testing Room]]>><<set $worn.under_upper.integrity += 1>><</link>>
<<link [[>>|Testing Room]]>><<set $worn.under_upper.integrity += 10>><</link>> |

<<link [[<|Testing Room]]>><<set $underupperwet -= 100>><</link>>
Wet (<<print $underupperwet>>)
<<link [[>|Testing Room]]>><<set $underupperwet += 1>><</link>>
<br>

/*ToDo: Add handling for toggling clothing.*/
/*ToDo: Wardrobe and Shop*/
<br><br>

<<link [[Bedroom]]>><</link>>
<br>