code:
:: Abomination [nobr]
<<if $molestationstart is 1>>
<<set $molestationstart to 0>>
<<controlloss>>
<<violence 1>>
<<neutral 1>>
<<molested>>
<<set $event to "abomination">>
<<abomination>>
You awaken to find yourself being assaulted by a strange beast!
<</if>>

<<effects>>
<<effectsmult>><<man>>

<<stateman>>

<<actionsmult>>

	<<if $alarm is 1>>
		<<if $rescue is 1>>
		[[Next->Abomination]]
		<<else>>
		No one comes to your aid.<<set $alarm to 0>>
		<<if $drugged gte 1>>Intoxicated as you are, you couldn't cry very convincingly.<</if>>

			<<if $enemyarousal gte $enemyarousalmax>>
			[[Next->Abomination]]
			<<else>>
			[[Next->Abomination]]
			<</if>>
		<</if>>
	<<elseif $enemyarousal gte $enemyarousalmax>>
	[[Next->Abomination]]
	<<elseif $enemyhealth lte 0>>
	[[Next->Abomination]]
	<<else>>
	[[Next->Abomination]]
	<</if>>

:: Monster Test [nobr]
<<set $outside to 1>><<set $location to "sea">><<effects>>

<<if $molestationstart is 1>><<set $molestationstart to 0>>
<<set $combat to 1>>
<<molested>>
<<controlloss>>

<<set $enemytype to "tentacles">>
<<set $tentacleno to 6>>
<<set $tentaclehealth to 15>>
<<tentaclestart>>

<<set $vorestage to 1>>
<<set $vorecreature to "whale">>
<<set $vorestrength to 1>>
	<<if $hallucinations gte 1>>
	<<set $voretentacles to 1>>
	<<else>>
	<<set $voretentacles to 0>>
	<</if>>

<<set $swarmname to "swarms">>
<<set $swarmmove to "moving towards you">>
<<set $swarmcreature to "eels">>
<<set $swarmspill to "encircle you">>
<<set $swarmsteady to "fend off">>
<<set $swarmSteady to "Fend off">>
<<set $swarmcount to 10>>
<<set $swarm1 to "active">>
<<set $swarm2 to "contained">>
<<set $swarm3 to "contained">>
<<set $swarm4 to "contained">>
<<set $swarm5 to "contained">>
<<set $swarm6 to "contained">>
<<set $swarm7 to "contained">>
<<set $swarm8 to "contained">>
<<set $swarm9 to "contained">>
<<set $swarm10 to "contained">>
<<set $swarmactive to 1>>
<<set $swimdistance to 20>>
<<set $water to 1>>

<</if>>

<<voreeffects>><<swarmeffects>><<effectstentacles>>
<<vore>><<swarm>><<tentacles>>
<<statetentacles>>
<<voreactions>><<swarmactions>><<actionstentacles>>

<<if $stress gte 10000>>
<<link [[Next|Monster Test]]>><</link>><<nexttext>>
<<elseif $vorestage lte 0>>
<<link [[Next|Monster Test]]>><</link>><<nexttext>>
<<else>>
<<link "Next">><><</link>><<nexttext>>
<</if>>

:: DP Test [nobr]
<<if $molestationstart is 1>>
<<set $molestationstart to 0>>
<<controlloss>>
<<violence 1>>
<<neutral 1>>
<<molested>>
<<set $event to "molestationhome">>
<<generate1>><<generate2>><<man1init>>
<<set $penis to "vagina">><<set $vaginause to "penis">><<set $vaginastate to "penetrated">>
<<set $penis2 to "anus">><<set $anususe to "penis">><<set $anusstate to "penetrated">>
<</if>>

<<effects>>
<<effectsman>><<man>>

<<stateman>>

<<actionsman>>

	<<if $alarm is 1>>
		<<if $rescue is 1>>
		<<link [[Next->DP Test]]>><</link>><<nexttext>>
		<<else>>
		No one comes to your aid.<<set $alarm to 0>>
		<<if $drugged gte 1>>Intoxicated as you are, you couldn't cry very convincingly.<</if>>

			<<if $enemyarousal gte $enemyarousalmax>>
			<<link [[Next->Molestation Ejaculation]]>><</link>><<nexttext>>
			<<elseif $enemyhealth lte 0>>
			<<link [[Next->Molestation Escape]]>><</link>><<nexttext>>
			<<else>>
			<<link [[Next->DP Test]]>><</link>><<nexttext>>
			<</if>>
		<</if>>
	<<elseif $enemyarousal gte $enemyarousalmax>>
	<<link [[Next->Molestation Ejaculation]]>><</link>><<nexttext>>
	<<elseif $enemyhealth lte 0>>
	<<link [[Next->Molestation Escape]]>><</link>><<nexttext>>
	<<else>>
	<<link [[Next->DP Test]]>><</link>><<nexttext>>
<</if>>

:: Wolf Pack [nobr]
<<if $molestationstart is 1>>
<<set $molestationstart to 0>>
<<controlloss>>
<<violence 1>>
<<neutral 1>>
<<molested>>
<<set $event to "dogpack">>
<<dogpackinit>>
You awaken to find yourself surrounded by a pack of stray dogs!
<</if>>

<<effects>>
<<effectsman>>
<<beast>>

<<stateman>>

<<actionsman>>

	<<if $alarm is 1>>
		<<if $rescue is 1>>
		[[Next->Wolf Pack Alarm]]
		<<else>>
		No one comes to your aid.<<set $alarm to 0>>
		<<if $drugged gte 1>>Intoxicated as you are, you couldn't cry very convincingly.<</if>>

			<<if $enemyarousal gte $enemyarousalmax>>
			[[Next|Wolf Pack Ejaculation]]
			<<elseif $enemyhealth lte 0>>
			[[Next->Wolf Pack Escape]]
			<<else>>
			[[Next|Wolf Pack]]
			<</if>>
		<</if>>
	<<elseif $enemyarousal gte $enemyarousalmax>>
	[[Next->Wolf Pack Ejaculation]]
	<<elseif $enemyhealth lte 0>>
	[[Next->Wolf Pack Escape]]
	<<else>>
	[[Next->Wolf Pack]]
	<</if>>

:: Wolf Pack Escape [nobr]
<<effects>>
<<beastwound>>

<<if $beastno gte 3>>
The beast recoils in pain and fear, but another takes its place.<<set $beastno -= 1>>

[[Next|Wolf Pack]]

<<elseif $beastno is 2>>
The beast recoils in pain and fear, but the other takes its place.<<set $beastno -= 1>>

[[Next|Wolf Pack]]

<<elseif $beastno is 1>>
The beast recoils in pain and fear.<<set $beastno -= 1>>

[[Next|Wolf Pack End]]

<</if>>

:: Wolf Pack Ejaculation [nobr]
<<effects>>
<<beastejaculation>>

<<if $beastno gte 3>>
Satisfied, the beast leaves you be. Another takes its place.<<set $beastno -= 1>>

[[Next|Wolf Pack]]

<<elseif $beastno is 2>>
Satisfied, the beast leaves you be. The other takes its place.<<set $beastno -= 1>>

[[Next|Wolf Pack]]

<<elseif $beastno is 1>>
Satisfied, the beast leaves you be.<<set $beastno -= 1>>

[[Next|Wolf Pack End]]

<</if>>

:: Wolf Pack End [nobr]
<<effects>>

<<if $enemywounded is 1 and $enemyejaculated is 0>>
The wolf whimpers and flees into the forest.
<<elseif $enemywounded is 0 and $enemyejaculated is 1>>
The wolf leaves you lying on the grass.
<<elseif $enemywounded gte 2 and $enemyejaculated is 0>>
Feeling that you're more trouble than you're worth, the wolves flee into the forest.
<<elseif $enemywounded is 0 and $enemyejaculated gte 2>>
The wolves leave you spent and shivering on the grass.
<<elseif $enemywounded gte 1 and $enemyejaculated gte 1>>
The wolves leave you spent and shivering on the grass. One seems to be limping.
<</if>>

<<clotheson>>
<<endcombat>>

path: game/base-debug/test encounters.twee


code:
:: Testing Room [nobr]
<<silently>><<effects>><</silently>>
/*<<Avatar>>*/

<<link "<<">><<set $pain -= 10>><<goto "Testing Room">><</link>>
<<link "<">><<set $pain -= 5>><<goto "Testing Room">><</link>>
Pain (<<= $pain>>)
<<link ">">><<set $pain += 5>><<goto "Testing Room">><</link>>
<<link ">>">><<set $pain += 10>><<goto "Testing Room">><</link>>

<<link "<<">><<set $arousal -= 1000>><<goto "Testing Room">><</link>>
<<link "<">><<set $arousal -= 100>><<goto "Testing Room">><</link>>
Arousal (<<= $arousal>>)
<<link ">">><<set $arousal += 100>><<goto "Testing Room">><</link>>
<<link ">>">><<set $arousal += 1000>><<goto "Testing Room">><</link>>

<<link "<<">><<set $stress -= 1000>><<goto "Testing Room">><</link>>
<<link "<">><<set $stress -= 100>><<goto "Testing Room">><</link>>
Stress (<<= $stress>>)
<<link ">">><<set $stress += 100>><<goto "Testing Room">><</link>>
<<link ">>">><<set $stress += 1000>><<goto "Testing Room">><</link>>

<<link "<<">><<set $trauma -= 1000>><<goto "Testing Room">><</link>>
<<link "<">><<set $trauma -= 100>><<goto "Testing Room">><</link>>
Trauma (<<= $trauma>>)
<<link ">">><<set $trauma += 100>><<goto "Testing Room">><</link>>
<<link ">>">><<set $trauma += 1000>><<goto "Testing Room">><</link>>

<<link "<<">><<set $promiscuity -= 10>><<goto "Testing Room">><</link>>
<<link "<">><<set $promiscuity -= 2>><<goto "Testing Room">><</link>>
Promiscuity (<<= $promiscuity>>)
<<link ">">><<set $promiscuity += 2>><<goto "Testing Room">><</link>>
<<link ">>">><<set $promiscuity += 10>><<goto "Testing Room">><</link>>

<<link "<<">><<set $exhibitionism -= 10>><<goto "Testing Room">><</link>>
<<link "<">><<set $exhibitionism -= 2>><<goto "Testing Room">><</link>>
Exhibitionism (<<= $exhibitionism>>)
<<link ">">><<set $exhibitionism += 2>><<goto "Testing Room">><</link>>
<<link ">>">><<set $exhibitionism += 10>><<goto "Testing Room">><</link>>

Toggle:
<<link "Gender">><<if $playergender is "f">>
<<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">>
<<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">>
<<if $hirsutedisable is "f">><<set $hirsutedisable to "t">>
<<else>><<set $hirsutedisable to "f">><</if>>
<<goto "Testing Room">><</link>> |
<<link "Bound Left Arm">>
<<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">>
<<if $rightarm is "bound">><<set $rightarm to 0>><<set $rightboundcarry to 0>>
<<else>><<set $rightarm to "bound">><</if>>
<<goto "Testing Room">><</link>>

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

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

<<link "<<">><<set $hairlength -= 100>><<goto "Testing Room">><</link>>
<<link "<">><<set $hairlength -= 10>><<goto "Testing Room">><</link>>
Hair Length (<<= $hairlength>>)
<<link ">">><<set $hairlength += 10>><<goto "Testing Room">><</link>>
<<link ">>">><<set $hairlength += 100>><<goto "Testing Room">><</link>>

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

<<link "<">><<set $wolfgirl -= 1>><<goto "Testing Room">><</link>>
Wolf (<<= $wolfgirl>>)
<<link ">">><<set $wolfgirl += 1>><<goto "Testing Room">><</link>> |
<<link "<">><<set $angel -= 1>><<goto "Testing Room">><</link>>
Angel (<<= $angel>>)
<<link ">">><<set $angel += 1>><<goto "Testing Room">><</link>> |
<<link "<">><<set $demon -= 1>><<goto "Testing Room">><</link>>
Demon (<<= $demon>>)
<<link ">">><<set $demon += 1>><<goto "Testing Room">><</link>> |
<<link "<">><<set $fallenangel -= 1>><<goto "Testing Room">><</link>>
Fallen Angel (<<= $fallenangel>>)
<<link ">">><<set $fallenangel += 1>><<goto "Testing Room">><</link>>

Semen:
<<link "<">><<set $vaginasemen -= 1>><<goto "Testing Room">><</link>>
Vagina (<<= $vaginasemen>>)
<<link ">">><<set $vaginasemen += 1>><<goto "Testing Room">><</link>> |
<<link "<">><<set $anussemen -= 1>><<goto "Testing Room">><</link>>
Anus (<<= $anussemen>>)
<<link ">">><<set $anussemen += 1>><<goto "Testing Room">><</link>> |
<<link "<">><<set $mouthsemen -= 1>><<goto "Testing Room">><</link>>
Mouth (<<= $mouthsemen>>)
<<link ">">><<set $mouthsemen += 1>><<goto "Testing Room">><</link>>

Goo:
<<link "<">><<set $vaginagoo -= 1>><<goto "Testing Room">><</link>>
Vagina (<<= $vaginagoo>>)
<<link ">">><<set $vaginagoo += 1>><<goto "Testing Room">><</link>> |
<<link "<">><<set $anusgoo -= 1>><<goto "Testing Room">><</link>>
Anus (<<= $anusgoo>>)
<<link ">">><<set $anusgoo += 1>><<goto "Testing Room">><</link>> |
<<link "<">><<set $mouthgoo -= 1>><<goto "Testing Room">><</link>>
Mouth (<<= $mouthgoo>>)
<<link ">">><<set $mouthgoo += 1>><<goto "Testing Room">><</link>>

Parasite:
<<link "Chest">>
<<if $chestparasite is 0>><<set $chestparasite to 1>>
<<else>><<set $chestparasite to 0>><</if>>
<<goto "Testing Room">><</link>> |
<<link "Penis">>
<<if $penisparasite is 0>><<set $penisparasite to 1>>
<<else>><<set $penisparasite to 0>><</if>>
<<goto "Testing Room">><</link>> |
<<link "Clit">>
<<if $clitparasite is 0>><<set $clitparasite to 1>>
<<else>><<set $clitparasite to 0>><</if>>
<<goto "Testing Room">><</link>>

Upper Clothes: <<link "<<">><<set $upperintegrity -= 10>><<goto "Testing Room">><</link>>
<<link "<">><<set $upperintegrity -= 1>><<goto "Testing Room">><</link>>
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>>
Wet (<<= $upperwet>>)
<<link ">">><<set $upperwet += 1>><<goto "Testing Room">><</link>>

Lower Clothes: <<link "<<">><<set $lowerintegrity -= 10>><<goto "Testing Room">><</link>>
<<link "<">><<set $lowerintegrity -= 1>><<goto "Testing Room">><</link>>
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>>
Wet (<<= $lowerwet>>)
<<link ">">><<set $lowerwet += 1>><<goto "Testing Room">><</link>>

Underwear: <<link "<<">><<set $underintegrity -= 10>><<goto "Testing Room">><</link>>
<<link "<">><<set $underintegrity -= 1>><<goto "Testing Room">><</link>>
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>>
Wet (<<= $underwet>>)
<<link ">">><<set $underwet += 1>><<goto "Testing Room">><</link>>

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

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

repo_name: BigBlackAwoo/degrees


code:
:: Attitudes [nobr]
<<set $menu to 1>>

<<back Cancel>>

<<link [[Confirm|previous()]]>><</link>>

<<attitudes>>

:: Widgets Attitudes [widget]

<<widget "attitudes">><<nobr>>

	How do you feel about consensual sex? Provides a bonus after consensual sex based on how assertive you were.

I like making people feel good (increase submissiveness)
	<<if $assertiveaction is "submissive">>
	<<radiobutton "$assertiveaction" "submissive" checked>>

	<<else>>
	<<radiobutton "$assertiveaction" "submissive">>

	<</if>>
I like being in control (increase defiance)
	<<if $assertiveaction is "defiant">>
	<<radiobutton "$assertiveaction" "defiant" checked>>

	<<else>>
	<<radiobutton "$assertiveaction" "defiant">>

	<</if>>
It's naughty (decrease trauma)
	<<if $assertiveaction is "trauma">>
	<<radiobutton "$assertiveaction" "trauma" checked>>

	<<else>>
	<<radiobutton "$assertiveaction" "trauma">>

	<</if>>
It's fun (decrease stress)
	<<if $assertiveaction is "stress">>
	<<radiobutton "$assertiveaction" "stress" checked>>

	<<else>>
	<<radiobutton "$assertiveaction" "stress">>

	<</if>>

<<if $exhibitionism gte 55>>
How do you feel about being seen in your underwear?

Excited
	<<if $lightexhibitionismaction is "excited">>
	<<radiobutton "$lightexhibitionismaction" "excited" checked>>

	<<else>>
	<<radiobutton "$lightexhibitionismaction" "excited">>

	<</if>>

Embarrassed
	<<if $lightexhibitionismaction is "embarrassed">>
	<<radiobutton "$lightexhibitionismaction" "embarrassed" checked>>

	<<else>>
	<<radiobutton "$lightexhibitionismaction" "embarrassed">>

	<</if>>
<<else>>
How do you feel about being seen in your underwear? Requires high exhibitionism.

<</if>>

<<if $exhibitionism gte 95>>
How do you feel about being nude in front of people?

Excited
	<<if $exhibitionismaction is "excited">>
	<<radiobutton "$exhibitionismaction" "excited" checked>>

	<<else>>
	<<radiobutton "$exhibitionismaction" "excited">>

	<</if>>

Embarrassed
	<<if $exhibitionismaction is "embarrassed">>
	<<radiobutton "$exhibitionismaction" "embarrassed" checked>>

	<<else>>
	<<radiobutton "$exhibitionismaction" "embarrassed">>

	<</if>>
<<else>>
How do you feel about being nude in front of people? Requires higher exhibitionism.

<</if>>

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


code:
:: StoryCaption [nobr]
<<if $intro is 0>>
<<weatherdisplay>>
<<exposure>>
<<if $gamemode is "soft">>
<<set $pain to 0>>
<</if>>
<<if $images is 1>>
	<<addclass body has-images>>
	<<removeclass body no-images>>
	<>
<<else>>
	<<removeclass body has-images>>
	<<addclass body no-images>>
<</if>>
<<exposure>>
<<combateffects>>

<<if $physiquechange is 1>><<set $physiquechange to 0>>
	<<if $physiqueuse gte $physique / 1000>>
Your physique is improving due to all the exercise you are getting.<<set $physiqueuse to 0>>

	<<else>>
You didn't get enough exercise yesterday, your physique has deteriorated slightly as a result.<<set $physiqueuse to 0>>

	<</if>>
<</if>>
<<if $swimmingmissedtext isnot 1 and $mathsmissedtext isnot 1 and $sciencemissedtext isnot 1 and $englishmissedtext isnot 1 and $historymissedtext isnot 1>>
<<else>>
	<<if $swimmingmissedtext is 1>><<set $swimmingmissedtext to 0>>
		<<if $swimmingmissed gte 10>>
		You've missed so many swimming lessons that the police have been informed.<<crimeup 5>>

		<<else>>
		You missed yesterday's swimming lesson.

		<</if>>

	<</if>>
	<<if $mathsmissedtext is 1>><<set $mathsmissedtext to 0>>
		<<if $mathsmissed gte 10>>
		You've missed so many maths lessons that the police have been informed.<<crimeup 5>>

		<<else>>
		You missed yesterday's maths lesson!

		<</if>>

	<</if>>
	<<if $sciencemissedtext is 1>><<set $sciencemissedtext to 0>>
		<<if $sciencemissed gte 10>>
		You've missed so many science lessons that the police have been informed.<<crimeup 5>>

		<<else>>
		You missed yesterday's science lesson!

		<</if>>

	<</if>>
	<<if $englishmissedtext is 1>><<set $englishmissedtext to 0>>
		<<if $englishmissed gte 10>>
		You've missed so many English lessons that the police have been informed.<<crimeup 5>>

		<<else>>
		You missed yesterday's English lesson!

		<</if>>

	<</if>>
	<<if $historymissedtext is 1>><<set $historymissedtext to 0>>
		<<if $historymissed gte 10>>
		You've missed so many history lessons that the police have been informed.<<crimeup 5>>

		<<else>>
		You missed yesterday's history lesson!

		<</if>>

	<</if>>

<</if>>
<<if $dev is 1>>
<<set $money = Math.trunc($money)>>
You have £<<print ($money / 100)>>

<<else>>
You have £<<print Math.trunc($money / 100)>>.<<if $money % 100 lte 9>>0<</if>><<print $money % 100>>

<</if>>

<<effectstime>>
It is $hour:<<print ($time - $hour * 60).toString().padStart(2, "0")>>

It is <<if $weekday eq 1>><<print "Sunday">><<elseif $weekday eq 2>><<print "Monday">><<elseif $weekday eq 3>><<print "Tuesday">><<elseif $weekday eq 4>><<print "Wednesday">><<elseif $weekday eq 5>><<print "Thursday">><<elseif $weekday eq 6>><<print "Friday">><<elseif $weekday eq 7>><<print "Saturday">>.<</if>>

<<schoolday>>

<<clothingcaption>>

<<stripcaption>>
<<if $playergender is "m">>
	<<if $playergender isnot $playergenderappearance>>
		<<if $breastindicator is 1>>
		Your exposed breasts will make people think you're a girl!

		<<else>>
		The way you're dressed, people will think you're a girl!

		<</if>>
	<</if>>
<<elseif $playergender is "f">>
	<<if $playergender isnot $playergenderappearance>>
		<<if $breastindicator is 0 and $upperexposed is 2>>
		Your exposed flat chest will make people think you're a boy!

		<<else>>
		The way you're dressed, people will think you're a boy!

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

<<clamp>>

<<if $daystate is "night">>
<<set $nightmod to 1.5>>
<<else>>
<<set $nightmod to 1>>
<</if>>

<<if $exposed gte 2>>
<<set $exposedmod to 1.5>>
<<elseif $exposed gte 1>>
<<set $exposedmod to 1.2>>
<<else>>
<<set $exposedmod to 1>>
<</if>>

<<set $allure to (($beauty / 3) + $hairlength / 4 + $upperreveal + $underreveal + $lowerreveal) * $nightmod * $exposedmod>>
<<if $collared gte 1>><<set $allure += 1000>><</if>>
<<if $wolfgirl gte 6>><<set $allure += 500>><</if>>
<<if $demon gte 6>><<set $allure += 500>><</if>>
<<if $angel gte 6>><<set $allure += 500>><</if>>
<<if $fallenangel gte 2>><<set $allure += 500>><</if>>
<<goocount>><<set $allure += ($goocount * 50) + ($semencount * 50)>>
<<if $legsacc is "stockings">><<set $allure += 300>><</if>>
<<if $legsacc is "fishnet stockings">><<set $allure += 300>><</if>>
<<set $allure -= $famescrap>>
	<<if $dev is 1>>
	<<set $allure -= $famegood>>
	<<set $allure -= $famepimp>>
	<<set $allure -= $famebusiness>>
	<</if>>
<<set $allure *= $alluremod>>
<<if $allure gte 8000 * $alluremod>><<set $allure to 8000 * $alluremod>><</if>>

<<set $attractiveness to ($beauty / 3) + $hairlength / 4 + $upperreveal + $underreveal + $lowerreveal>>
<<if $wolfgirl gte 6>><<set $attractiveness += 500>><</if>>
<<if $demon gte 6>><<set $attractiveness += 500>><</if>>
<<if $angel gte 6>><<set $attractiveness += 500>><</if>>
<<if $fallenangel gte 2>><<set $attractiveness += 500>><</if>>
<<if $legsacc is "stockings">><<set $attractiveness += 300>><</if>>
<<if $legsacc is "fishnet stockings">><<set $attractiveness += 300>><</if>>
<<set $rng to random(1, 100)>>

<<if $collared gte 1>>
A collar with a leash attached encases your neck.

<</if>>
<<if $vaginalchastityparasite isnot 0>>
You feel $vaginalchastityparasite squirming inside your vagina.

<</if>>
<<if $penilechastityparasite isnot 0>>
You feel $penilechastityparasite squirming around your penis.

<</if>>
<<if $analchastityparasite isnot 0>>
You feel $analchastityparasite squirming inside your lower intestine.

<</if>>
<<if $chestparasite isnot 0>>
The parasites clinging to your nipples suck and massage you.

<</if>>
<<if $penisparasite isnot 0>>
The parasite clinging to your penis sucks and massages you.

<</if>>
<<if $clitparasite isnot 0>>
The parasite clinging to your clit sucks and massages you.

<</if>>

<<if $leftarm is "bound" and $rightarm is "bound">>
Your arms are bound.

<<elseif $leftarm is "bound">>
Your left arm is bound.

<<elseif $rightarm is "bound">>
Your right arm is bound.

<</if>>
<<if $feetuse is "bound">>
Your legs are bound.

<</if>>
<<goo>>

<<if $gamemode isnot "soft">>
Pain: <<paincaption>>
<</if>>
Arousal: <<arousalcaption>>
Fatigue: <<tirednesscaption>>
Stress: <<stresscaption>>
<<if $innocencestate is 1>>
Innocence: <<innocencecaption>>
<<else>>
Trauma: <<traumacaption>>
<</if>>
<<if $gamemode isnot "soft">>
Control: <<controlcaption>>
<</if>>
Allure: <<allurecaption>>
<<if $underwater is 1>>
Air: <<oxygencaption>>
<</if>>
<<drunk>><<drugged>><<hallucinogen>>

<<if $tipdisable is "f">>
Tip: <<tips>>

<</if>>

<<silently>>

<<if $hungerenabled is 1>>
	<<if $hunger gte 2000>><<set $stress += ($hunger - 2000)>><<set $physique -= (($hunger - 2000) / 200)>>
	<</if>>
<</if>>
<<if $thirstenabled is 1>>
	<<if $thirst gte 2000>><<set $stress += ($thirst - 2000)>><<set $physique -= (($thirst - 2000) / 200)>>
	<</if>>
<</if>>

<<if $hygieneenabled is 1>>
	<<if $hygiene gte 2000>><<set $stress += ($hygiene - 2000)>>
	<</if>>
<</if>>

<</silently>>

<<if $debug is 1>>
	<<debug>>
<</if>>

<<else>>

<<versioninfo>>

<</if>>

<<if $menu is 1>>
__Colour Key__

Skill Up/Reward

Excellent/Safe

Good/Reliable

Decent/Hopeful

Okay/Unsure

Poor/Precarious

Bad/Risky

Terrible/Dangerous

Defiant

Bratty

Meek

Submissive/Assertive

<</if>>

:: StoryMenu
<<if $intro is 0 and $menu is 0 and $dancing is 0 and $combat is 0>>[[Characteristics]]
[[Traits]]
[[Social]]
[[Statistics]]
<<if $cheatdisable is "f">>[[Cheats]]<</if>>
<</if>>

:: Widgets Clothing Caption [widget]
<<widget "clothingcaption">><<nobr>>

<<if $upperclothes is "naked">>
	<<if $lowerclothes is "naked">>
		<<if $underclothes is "naked">>
		You are completely naked!
		<</if>>
		<<if $underclothes isnot "naked">>
		You are wearing nothing but a <<if $undertype isnot "chastity">>pair of <</if>><<underintegrity>> $undercolour $underclothes.
		<</if>>
	<</if>>
	<<if $lowerclothes isnot "naked">>
		<<if $underclothes is "naked">>
		You are topless and wearing no underwear but your lower half is covered by <<lowerword>> <<lowerintegrity>> $lowercolour $lowerclothes.
		<</if>>
		<<if $underclothes isnot "naked">>
		You are topless with <<lowerword>> <<lowerintegrity>> $lowercolour $lowerclothes and <<underword>> <<underintegrity>> $undercolour $underclothes.
		<</if>>
	<</if>>
<<elseif $upperclothes isnot "naked">>
	<<if $lowerclothes is "naked">>
		<<if $underclothes is "naked">>
			<<if $upperonepiece is 1 and $lowerset isnot $upperset>>
			You are wearing <<upperword>> <<upperintegrity>> $uppercolour $upperclothes that has been torn at the waist  leaving your bottom half completely exposed!
			<<else>>
		Your bottom half is completely exposed! You are wearing <<upperword>> <<upperintegrity>> $uppercolour $upperclothes.
			<</if>>
		<</if>>
		<<if $underclothes isnot "naked">>
			<<if $upperonepiece is 1 and $lowerset isnot $upperset>>
			You are wearing <<upperword>> <<upperintegrity>> $uppercolour $upperclothes that has been torn at the waist  leaving your <<underword>> <<underintegrity>> $undercolour $underclothes exposed.
			<<else>>
		You are wearing <<upperword>> <<upperintegrity>> $uppercolour $upperclothes and exposed <<underword>> <<underintegrity>> $undercolour $underclothes.
			<</if>>
		<</if>>
	<</if>>
	<<if $lowerclothes isnot "naked">>
		<<if $underclothes is "naked">>
		You are wearing <<upperword>> <<upperintegrity>> $uppercolour $upperclothes
		<<if $loweronepiece isnot 1>>and <<lowerword>> <<lowerintegrity>> $lowercolour $lowerclothes
		<</if>>
		<<if $lowertype is "swim">>and<<else>>but<</if>> you are not wearing underwear.
		<</if>>
		<<if $underclothes isnot "naked">><<nobr>>
		You are wearing <<upperword>> <<upperintegrity>> $uppercolour $upperclothes
		<<if $loweronepiece isnot 1>>with <<lowerword>> <<lowerintegrity>> $lowercolour $lowerclothes
		<</if>>and <<underword>> <<underintegrity>> $undercolour $underclothes.
		<</nobr>><</if>>
	<</if>>
<</if>>

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

<<widget "stripcaption">><<nobr>>

<<if $uppertype isnot "naked" and $upperwetstage gte 3 and $lowertype isnot "naked" and $lowerwetstage gte 3 and $undertype isnot "naked" and $undertype isnot "chastity" and $underwetstage gte 3>>
	<<if $upperset is $lowerset>>

Your $upperclothes, skirt and $underclothes are drenched, revealing your <<breasts>> and <<genitalsstop>>

	<<else>>

Your $upperclothes, $lowerclothes and $underclothes are drenched, revealing your <<breasts>> and <<genitalsstop>>

	<</if>>

<<elseif $uppertype isnot "naked" and $upperwetstage gte 3 and $lowerwetstage gte 3 and $lowertype isnot "naked">>
	<<if $upperset is $lowerset>>

Your $upperclothes and skirt are drenched, revealing your <<breasts>> and <<undiesstop>>

	<<else>>

Your $upperclothes and $lowerclothes are drenched, revealing your <<breasts>> and <<undiesstop>>

	<</if>>

<<elseif $uppertype isnot "naked" and $upperwetstage gte 3>>

Your $upperclothes <<upperplural>> drenched, revealing your <<breastsstop>>

<<elseif $lowertype isnot "naked" and $lowerwetstage gte 3 and $undertype isnot "naked" and $undertype isnot "chastity" and $underwetstage gte 3>>

Your $lowerclothes and $underclothes are drenched, revealing your <<genitalsstop>>

<<elseif $lowertype isnot "naked" and $lowerwetstage gte 3>>

Your $lowerclothes <<lowerplural>> drenched, revealing your <<undiesstop>>

<<elseif $undertype isnot "naked" and $undertype isnot "chastity" and $underwetstage gte 3>>

Your $underclothes <<underplural>> drenched, revealing your <<genitalsstop>>

<<elseif $uppertype isnot "naked" and $upperexposed is 2 and $lowertype isnot "naked" and $lowerexposed is 2 and $undertype isnot "naked" and $undertype isnot "chastity" and $understate isnot "waist">>
	<<if $upperset is $lowerset>>

Your $upperclothes, skirt and $underclothes have been pulled aside, revealing your <<breasts>> and <<genitalsstop>>

	<<else>>

Your $upperclothes, $lowerclothes and $underclothes have been pulled aside, revealing your <<breasts>> and <<genitalsstop>>

	<</if>>

<<elseif $uppertype isnot "naked" and $upperexposed is 2 and $lowerexposed is 2 and $lowertype isnot "naked">>
	<<if $upperset is $lowerset>>

Your $upperclothes and skirt have been pulled aside, revealing your <<breasts>> and <<undiesstop>>

	<<else>>

Your $upperclothes and $lowerclothes have been pulled aside, revealing your <<breasts>> and <<undiesstop>>

	<</if>>

<<elseif $uppertype isnot "naked" and $upperexposed is 2>>

Your $upperclothes <<upperhas>> been pulled aside, revealing your <<breastsstop>>

<<elseif $lowertype isnot "naked" and $lowerexposed is 2 and $undertype isnot "naked" and $undertype isnot "chastity" and $understate isnot "waist">>

Your $lowerclothes <<lowerhas>> been pulled aside and your $underclothes pulled down, revealing your <<genitalsstop>>

<<elseif $lowertype isnot "naked" and $lowerexposed is 2>>

Your $lowerclothes <<lowerhas>> been pulled aside, revealing your <<undiesstop>>

<<elseif $undertype isnot "naked" and $undertype isnot "chastity" and $understate isnot "waist">>

Your $underclothes <<underhas>> been pulled down to your $understate, revealing your <<genitalsstop>>

<</if>>

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


code:
:: Characteristics [nobr]
<<back>>

<<set $menu to 1>>

It is the $monthday<<monthday>> of <<month>> $year.

It has been $days days since the game started.

<<schoolterm>>

You are
<<if $wolfgirl gte 6>>
a wolf
<<elseif $angel gte 6>>
an angel
<<elseif $fallenangel gte 2>>
a fallen angel
<<elseif $demon gte 6>>
a demon
<<else>>
a
<</if>>
<<genderstop>>

You have $eyecolour eyes. <<if $breastsize gte 1>>You have <<breastsstop>><</if>>

<<if $hairlength gte 0 and $hairlength lt 100>>Your <<haircolourtext>> hair is short.
<<elseif $hairlength gte 100 and $hairlength lt 200>>Your <<haircolourtext>> hair passes your chin.
<<elseif $hairlength gte 200 and $hairlength lt 300>>Your <<haircolourtext>> hair comes down to your shoulders.
<<elseif $hairlength gte 300 and $hairlength lt 400>>Your <<haircolourtext>> hair is quite long, and comes down to the top of your chest.
<<elseif $hairlength gte 400 and $hairlength lt 500>>Your long <<haircolourtext>> hair hangs down to your nipples.
<<elseif $hairlength gte 500 and $hairlength lt 600>>Your long <<haircolourtext>> hair reaches the top of your tummy.
<<elseif $hairlength gte 600 and $hairlength lt 700>>Your long <<haircolourtext>> hair reaches your navel.
<<elseif $hairlength gte 700 and $hairlength lt 800>>Your very long <<haircolourtext>> hair reaches your thighs.
<<elseif $hairlength gte 800 and $hairlength lt 900>>Your very long <<haircolourtext>> hair reaches your knees.
<<elseif $hairlength gte 900 and $hairlength lte 999>>Your extremely long <<haircolourtext>> hair reaches your ankles.
<<elseif $hairlength gte 1000>>Your <<haircolourtext>> hair is so long you need be careful lest you trip on it!<</if>>

Awareness: <<if $awareness lte 0>>You are innocent.

	<<set $percent=Math.floor((($awareness + 200) / 200)*100)>>
	<<print '

'>>

<<elseif $awareness gte 1 and $awareness lt 100>>You are almost entirely innocent.

	<<set $percent=Math.floor(($awareness / 100)*100)>>
	<<print '

'>>

<<elseif $awareness gte 100 and $awareness lt 200>>You have a limited understanding of sexuality.

	<<set $percent=Math.floor((($awareness - 100) / 100)*100)>>
	<<print '

'>>

<<elseif $awareness gte 200 and $awareness lt 300>>You have a normal understanding of sexuality.

	<<set $percent=Math.floor((($awareness - 200) / 100)*100)>>
	<<print '

'>>

<<elseif $awareness gte 300 and $awareness lt 400>>Your knowledge of sexual depravity extends beyond that of most people.

	<<set $percent=Math.floor((($awareness - 300) / 100)*100)>>
	<<print '

'>>

<<elseif $awareness gte 400 and $awareness lt 500>>You have seen things that few are privy to.

	<<set $percent=Math.floor((($awareness - 400) / 100)*100)>>
	<<print '

'>>

<<elseif $awareness gte 500 and $awareness lte 999>>You have peered into the depths of depravity.

	<<set $percent=Math.floor((($awareness - 500) / 499)*100)>>
	<<print '

'>>

<<elseif $awareness gte 1000>>Your understanding is transcendental.
<</if>>

Purity: <<if $purity gte 1000>>You are angelic.

<<elseif $purity lte 999 and $purity gt 900>>You don't feel entirely pure.

	<<set $percent=Math.floor((($purity - 900) / 100)*100)>>
	<<print '

'>>

<<elseif $purity lte 900 and $purity gt 800>>You feel slightly soiled.

	<<set $percent=Math.floor((($purity - 800) / 100)*100)>>
	<<print '

'>>

<<elseif $purity lte 800 and $purity gt 700>>You feel soiled.

	<<set $percent=Math.floor((($purity - 700) / 100)*100)>>
	<<print '

'>>

<<elseif $purity lte 700 and $purity gt 600>>You feel somewhat defiled.

	<<set $percent=Math.floor((($purity - 600) / 100)*100)>>
	<<print '

'>>

<<elseif $purity lte 600 and $purity gt 500>>You feel defiled.

	<<set $percent=Math.floor((($purity - 500) / 100)*100)>>
	<<print '

'>>

<<elseif $purity lte 500 and $purity gte 1>>You feel utterly defiled.

	<<set $percent=Math.floor(($purity / 500)*100)>>
	<<print '

'>>

<<elseif $purity gte 0>>You are beyond defiled.
<</if>>

Physique: <<if $physique gte ($physiquesize / 7) * 6>>Your body is toned and powerful.

	<<set $percent=Math.floor((($physique - ($physiquesize / 7) * 6) / ($physiquesize / 7))*100)>>
	<<print '

'>>

<<elseif $physique gte ($physiquesize / 7) * 5>>Your body is toned and firm.

	<<set $percent=Math.floor((($physique - ($physiquesize / 7) * 5) / ($physiquesize / 7))*100)>>
	<<print '

'>>

<<elseif $physique gte ($physiquesize / 7) * 4>>Your body is slim and athletic.

	<<set $percent=Math.floor((($physique - ($physiquesize / 7) * 4) / ($physiquesize / 7))*100)>>
	<<print '

'>>

<<elseif $physique gte ($physiquesize / 7) * 3>>Your body is slim.

	<<set $percent=Math.floor((($physique - ($physiquesize / 7) * 3) / ($physiquesize / 7))*100)>>
	<<print '

'>>

<<elseif $physique gte($physiquesize / 7) * 2>>Your body is lithe and slender.

	<<set $percent=Math.floor((($physique - ($physiquesize / 7) * 2) / ($physiquesize / 7))*100)>>
	<<print '

'>>

<<elseif $physique gte ($physiquesize / 7)>>You are skinny.

	<<set $percent=Math.floor((($physique - ($physiquesize / 7) * 1) / ($physiquesize / 7))*100)>>
	<<print '

'>>

<<else>>You are emaciated.

	<<set $percent=Math.floor(($physique / ($physiquesize / 7))*100)>>
	<<print '

'>>

<</if>>

Beauty: <<if $beauty gte ($beautymax / 7) * 6>>Your beauty is divine.

	<<set $percent=Math.floor((($beauty - ($beautymax / 7) * 6) / ($beautymax / 7))*100)>>
	<<print '

'>>

<<elseif $beauty gte ($beautymax / 7) * 5>>You are ravishing.

	<<set $percent=Math.floor((($beauty - ($beautymax / 7) * 5) / ($beautymax / 7))*100)>>
	<<print '

'>>

<<elseif $beauty gte ($beautymax / 7) * 4>>You are beautiful.

	<<set $percent=Math.floor((($beauty - ($beautymax / 7) * 4) / ($beautymax / 7))*100)>>
	<<print '

'>>

<<elseif $beauty gte ($beautymax / 7) * 3>>You are charming.

	<<set $percent=Math.floor((($beauty - ($beautymax / 7) * 3) / ($beautymax / 7))*100)>>
	<<print '

'>>

<<elseif $beauty gte($beautymax / 7) * 2>>You are pretty.

	<<set $percent=Math.floor((($beauty - ($beautymax / 7) * 2) / ($beautymax / 7))*100)>>
	<<print '

'>>

<<elseif $beauty gte ($beautymax / 7)>>You are cute.

	<<set $percent=Math.floor((($beauty - ($beautymax / 7) * 1) / ($beautymax / 7))*100)>>
	<<print '

'>>

<<else>>You are plain.

	<<set $percent=Math.floor(($beauty / ($beautymax / 7))*100)>>
	<<print '

'>>

<</if>>

Promiscuity: <<if $promiscuity lt 1>>You are chaste and pure.

<<elseif $promiscuity lt 15>>You are prudish.

	<<set $percent=Math.floor(($promiscuity/15)*100)>>
	<<print '

'>>

<<elseif $promiscuity lt 35>>You are sexually curious.

	<<set $percent=Math.floor((($promiscuity - 15)/20)*100)>>
	<<print '

'>>

<<elseif $promiscuity lt 55>>The thought of sexual contact excites you.

	<<set $percent=Math.floor((($promiscuity - 35)/20)*100)>>
	<<print '

'>>

<<elseif $promiscuity lt 75>>You crave sexual contact.

	<<set $percent=Math.floor((($promiscuity - 55)/20)*100)>>
	<<print '

'>>

<<elseif $promiscuity lt 95>>You are a slut.

	<<set $percent=Math.floor((($promiscuity - 75)/20)*100)>>
	<<print '

'>>

<<else>>Your sexual appetite is insatiable.

	<<set $percent=Math.floor((($promiscuity - 95)/20)*100)>>
	<<print '

'>>

<</if>>

Exhibitionism: <<if $exhibitionism lt 1>>You are coy.

<<elseif $exhibitionism lt 15>>You are shy.

	<<set $percent=Math.floor(($exhibitionism/15)*100)>>
	<<print '

'>>

<<elseif $exhibitionism lt 35>>You like being sexualised.

	<<set $percent=Math.floor((($exhibitionism - 15)/20)*100)>>
	<<print '

'>>

<<elseif $exhibitionism lt 55>>You enjoy lewd attention.

	<<set $percent=Math.floor((($exhibitionism - 35)/20)*100)>>
	<<print '

'>>

<<elseif $exhibitionism lt 75>>Feeling exposed excites you.

	<<set $percent=Math.floor((($exhibitionism - 55)/20)*100)>>
	<<print '

'>>

<<elseif $exhibitionism lt 95>>You are shameless.

	<<set $percent=Math.floor((($exhibitionism - 75)/20)*100)>>
	<<print '

'>>

<<else>>The thought of exposure fills you with wild abandon.

	<<set $percent=Math.floor((($exhibitionism - 95)/20)*100)>>
	<<print '

'>>

<</if>>

Deviancy: <<if $deviancy lt 1>>You are squeamish.

<<elseif $deviancy lt 15>>You are conventional.

	<<set $percent=Math.floor(($deviancy/15)*100)>>
	<<print '

'>>

<<elseif $deviancy lt 35>>You are weird.

	<<set $percent=Math.floor((($deviancy - 15)/20)*100)>>
	<<print '

'>>

<<elseif $deviancy lt 55>>Your tastes are shocking.

	<<set $percent=Math.floor((($deviancy - 35)/20)*100)>>
	<<print '

'>>

<<elseif $deviancy lt 75>>Your desires are scandalous.

	<<set $percent=Math.floor((($deviancy - 55)/20)*100)>>
	<<print '

'>>

<<elseif $deviancy lt 95>>You crave acts others wouldn't even conceive of.

	<<set $percent=Math.floor((($deviancy - 75)/20)*100)>>
	<<print '

'>>

<<else>>You lust for the unspeakable.

	<<set $percent=Math.floor((($deviancy - 95)/20)*100)>>
	<<print '

'>>

<</if>>

Skulduggery: <<if $skulduggery lte 0>>None

<<elseif $skulduggery gte 1 and $skulduggery lt 100>>F <<print Math.floor($skulduggery)>>%

		<<set $percent=Math.floor(($skulduggery/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 100 and $skulduggery lt 200>>F+ <<print Math.floor($skulduggery - 100)>>%

		<<set $percent=Math.floor((($skulduggery - 100)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 200 and $skulduggery lt 300>>D <<print $skulduggery - 200>>%

		<<set $percent=Math.floor((($skulduggery - 200)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 300 and $skulduggery lt 400>>D+ <<print $skulduggery - 300>>%

		<<set $percent=Math.floor((($skulduggery - 300)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 400 and $skulduggery lt 500>>C <<print $skulduggery - 400>>%

		<<set $percent=Math.floor((($skulduggery - 400)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 500 and $skulduggery lt 600>>C+ <<print $skulduggery - 500>>%

		<<set $percent=Math.floor((($skulduggery - 500)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 600 and $skulduggery lt 700>>B <<print $skulduggery - 600>>%

		<<set $percent=Math.floor((($skulduggery - 600)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 700 and $skulduggery lt 800>>B+ <<print $skulduggery - 700>>%

		<<set $percent=Math.floor((($skulduggery - 700)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 800 and $skulduggery lt 900>>A <<print $skulduggery - 800>>%

		<<set $percent=Math.floor((($skulduggery - 800)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 900 and $skulduggery lt 1000>>A+ <<print $skulduggery - 900>>%

		<<set $percent=Math.floor((($skulduggery - 900)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 1000>>S

<</if>>

<<if $blackmoney gte 1>>
You are carrying £$blackmoney in stolen goods.

<</if>>

Dancing: <<if $danceskill lte 0>>None

<<elseif $danceskill gte 1 and $danceskill lt 200>>F <<print $danceskill / 2>>%

		<<set $percent=Math.floor(($danceskill / 200)*100)>>
		<<print '

'>>

<<elseif $danceskill gte 200 and $danceskill lt 400>>D <<print (($danceskill - 200) / 2)>>%

		<<set $percent=Math.floor((($danceskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $danceskill gte 400 and $danceskill lt 600>>C <<print (($danceskill - 400) / 2)>>%

		<<set $percent=Math.floor((($danceskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $danceskill gte 600 and $danceskill lt 800>>B <<print (($danceskill - 600) / 2)>>%

		<<set $percent=Math.floor((($danceskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $danceskill gte 800 and $danceskill lt 1000>>A <<print (($danceskill - 800) / 2)>>%

		<<set $percent=Math.floor((($danceskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $danceskill gte 1000>>S

<</if>>

Swimming: <<if $swimmingskill lte 0>>None

<<elseif $swimmingskill gte 1 and $swimmingskill lt 100>>F <<print $swimmingskill>>%

		<<set $percent=Math.floor(($swimmingskill/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 100 and $swimmingskill lt 200>>F+ <<print $swimmingskill - 100>>%

		<<set $percent=Math.floor((($swimmingskill - 100)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 200 and $swimmingskill lt 300>>D <<print $swimmingskill - 200>>%

		<<set $percent=Math.floor((($swimmingskill - 200)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 300 and $swimmingskill lt 400>>D+ <<print $swimmingskill - 300>>%

		<<set $percent=Math.floor((($swimmingskill - 300)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 400 and $swimmingskill lt 500>>C <<print $swimmingskill - 400>>%

		<<set $percent=Math.floor((($swimmingskill - 400)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 500 and $swimmingskill lt 600>>C+ <<print $swimmingskill - 500>>%

		<<set $percent=Math.floor((($swimmingskill - 500)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 600 and $swimmingskill lt 700>>B <<print $swimmingskill - 600>>%

		<<set $percent=Math.floor((($swimmingskill - 600)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 700 and $swimmingskill lt 800>>B+ <<print $swimmingskill - 700>>%

		<<set $percent=Math.floor((($swimmingskill - 700)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 800 and $swimmingskill lt 900>>A <<print $swimmingskill - 800>>%

		<<set $percent=Math.floor((($swimmingskill - 800)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 900 and $swimmingskill lt 1000>>A+ <<print $swimmingskill - 900>>%

		<<set $percent=Math.floor((($swimmingskill - 900)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 1000>>S

<</if>>

Seduction: <<if $seductionskill lte 0>>None

<<elseif $seductionskill gte 1 and $seductionskill lt 200>>F <<print $seductionskill / 2>>%

		<<set $percent=Math.floor(($seductionskill / 200)*100)>>
		<<print '

'>>

<<elseif $seductionskill gte 200 and $seductionskill lt 400>>D <<print (($seductionskill - 200) / 2)>>%

		<<set $percent=Math.floor((($seductionskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $seductionskill gte 400 and $seductionskill lt 600>>C <<print (($seductionskill - 400) / 2)>>%

		<<set $percent=Math.floor((($seductionskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $seductionskill gte 600 and $seductionskill lt 800>>B <<print (($seductionskill - 600) / 2)>>%

		<<set $percent=Math.floor((($seductionskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $seductionskill gte 800 and $seductionskill lt 1000>>A <<print (($seductionskill - 800) / 2)>>%

		<<set $percent=Math.floor((($seductionskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $seductionskill gte 1000>>S
<</if>>

Oral: <<if $oralskill lte 0>>None

<<elseif $oralskill gte 1 and $oralskill lt 200>>F <<print $oralskill / 2>>%

		<<set $percent=Math.floor(($oralskill / 200)*100)>>
		<<print '

'>>

<<elseif $oralskill gte 200 and $oralskill lt 400>>D <<print (($oralskill - 200) / 2)>>%

		<<set $percent=Math.floor((($oralskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $oralskill gte 400 and $oralskill lt 600>>C <<print (($oralskill - 400) / 2)>>%

		<<set $percent=Math.floor((($oralskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $oralskill gte 600 and $oralskill lt 800>>B <<print (($oralskill - 600) / 2)>>%

		<<set $percent=Math.floor((($oralskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $oralskill gte 800 and $oralskill lt 1000>>A <<print (($oralskill - 800) / 2)>>%

		<<set $percent=Math.floor((($oralskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $oralskill gte 1000>>S
<</if>>

<<if $vaginaexist is 1>>
Vaginal: <<if $vaginalskill lte 0>>None

<<elseif $vaginalskill gte 1 and $vaginalskill lt 200>>F <<print $vaginalskill / 2>>%

		<<set $percent=Math.floor(($vaginalskill / 200)*100)>>
		<<print '

'>>

<<elseif $vaginalskill gte 200 and $vaginalskill lt 400>>D <<print (($vaginalskill - 200) / 2)>>%

		<<set $percent=Math.floor((($vaginalskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $vaginalskill gte 400 and $vaginalskill lt 600>>C <<print (($vaginalskill - 400) / 2)>>%

		<<set $percent=Math.floor((($vaginalskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $vaginalskill gte 600 and $vaginalskill lt 800>>B <<print (($vaginalskill - 600) / 2)>>%

		<<set $percent=Math.floor((($vaginalskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $vaginalskill gte 800 and $vaginalskill lt 1000>>A <<print (($vaginalskill - 800) / 2)>>%

		<<set $percent=Math.floor((($vaginalskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $vaginalskill gte 1000>>S
<</if>>

<</if>>

<<if $penisexist is 1>>
Penile: <<if $penileskill lte 0>>None

<<elseif $penileskill gte 1 and $penileskill lt 200>>F <<print $penileskill / 2>>%

		<<set $percent=Math.floor(($penileskill / 200)*100)>>
		<<print '

'>>

<<elseif $penileskill gte 200 and $penileskill lt 400>>D <<print (($penileskill - 200) / 2)>>%

		<<set $percent=Math.floor((($penileskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $penileskill gte 400 and $penileskill lt 600>>C <<print (($penileskill - 400) / 2)>>%

		<<set $percent=Math.floor((($penileskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $penileskill gte 600 and $penileskill lt 800>>B <<print (($penileskill - 600) / 2)>>%

		<<set $percent=Math.floor((($penileskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $penileskill gte 800 and $penileskill lt 1000>>A <<print (($penileskill - 800) / 2)>>%

		<<set $percent=Math.floor((($penileskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $penileskill gte 1000>>S
<</if>>

<</if>>

Anal: <<if $analskill lte 0>>None

<<elseif $analskill gte 1 and $analskill lt 200>>F <<print $analskill / 2>>%

		<<set $percent=Math.floor(($analskill / 200)*100)>>
		<<print '

'>>

<<elseif $analskill gte 200 and $analskill lt 400>>D <<print (($analskill - 200) / 2)>>%

		<<set $percent=Math.floor((($analskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $analskill gte 400 and $analskill lt 600>>C <<print (($analskill - 400) / 2)>>%

		<<set $percent=Math.floor((($analskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $analskill gte 600 and $analskill lt 800>>B <<print (($analskill - 600) / 2)>>%

		<<set $percent=Math.floor((($analskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $analskill gte 800 and $analskill lt 1000>>A <<print (($analskill - 800) / 2)>>%

		<<set $percent=Math.floor((($analskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $analskill gte 1000>>S
<</if>>

Hands: <<if $handskill lte 0>>None

<<elseif $handskill gte 1 and $handskill lt 200>>F <<print $handskill / 2>>%

		<<set $percent=Math.floor(($handskill / 200)*100)>>
		<<print '

'>>

<<elseif $handskill gte 200 and $handskill lt 400>>D <<print (($handskill - 200) / 2)>>%

		<<set $percent=Math.floor((($handskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $handskill gte 400 and $handskill lt 600>>C <<print (($handskill - 400) / 2)>>%

		<<set $percent=Math.floor((($handskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $handskill gte 600 and $handskill lt 800>>B <<print (($handskill - 600) / 2)>>%

		<<set $percent=Math.floor((($handskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $handskill gte 800 and $handskill lt 1000>>A <<print (($handskill - 800) / 2)>>%

		<<set $percent=Math.floor((($handskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $handskill gte 1000>>S
<</if>>

Feet: <<if $feetskill lte 0>>None

<<elseif $feetskill gte 1 and $feetskill lt 200>>F <<print $feetskill / 2>>%

		<<set $percent=Math.floor(($feetskill / 200)*100)>>
		<<print '

'>>

<<elseif $feetskill gte 200 and $feetskill lt 400>>D <<print (($feetskill - 200) / 2)>>%

		<<set $percent=Math.floor((($feetskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $feetskill gte 400 and $feetskill lt 600>>C <<print (($feetskill - 400) / 2)>>%

		<<set $percent=Math.floor((($feetskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $feetskill gte 600 and $feetskill lt 800>>B <<print (($feetskill - 600) / 2)>>%

		<<set $percent=Math.floor((($feetskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $feetskill gte 800 and $feetskill lt 1000>>A <<print (($feetskill - 800) / 2)>>%

		<<set $percent=Math.floor((($feetskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $feetskill gte 1000>>S
<</if>>

Buttocks: <<if $bottomskill lte 0>>None

<<elseif $bottomskill gte 1 and $bottomskill lt 200>>F <<print $bottomskill / 2>>%

		<<set $percent=Math.floor(($bottomskill / 200)*100)>>
		<<print '

'>>

<<elseif $bottomskill gte 200 and $bottomskill lt 400>>D <<print (($bottomskill - 200) / 2)>>%

		<<set $percent=Math.floor((($bottomskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $bottomskill gte 400 and $bottomskill lt 600>>C <<print (($bottomskill - 400) / 2)>>%

		<<set $percent=Math.floor((($bottomskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $bottomskill gte 600 and $bottomskill lt 800>>B <<print (($bottomskill - 600) / 2)>>%

		<<set $percent=Math.floor((($bottomskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $bottomskill gte 800 and $bottomskill lt 1000>>A <<print (($bottomskill - 800) / 2)>>%

		<<set $percent=Math.floor((($bottomskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $bottomskill gte 1000>>S
<</if>>

Thighs: <<if $thighskill lte 0>>None

<<elseif $thighskill gte 1 and $thighskill lt 200>>F <<print $thighskill / 2>>%

		<<set $percent=Math.floor(($thighskill / 200)*100)>>
		<<print '

'>>

<<elseif $thighskill gte 200 and $thighskill lt 400>>D <<print (($thighskill - 200) / 2)>>%

		<<set $percent=Math.floor((($thighskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $thighskill gte 400 and $thighskill lt 600>>C <<print (($thighskill - 400) / 2)>>%

		<<set $percent=Math.floor((($thighskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $thighskill gte 600 and $thighskill lt 800>>B <<print (($thighskill - 600) / 2)>>%

		<<set $percent=Math.floor((($thighskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $thighskill gte 800 and $thighskill lt 1000>>A <<print (($thighskill - 800) / 2)>>%

		<<set $percent=Math.floor((($thighskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $thighskill gte 1000>>S
<</if>>

Chest: <<if $chestskill lte 0>>None

<<elseif $chestskill gte 1 and $chestskill lt 200>>F <<print $chestskill / 2>>%

		<<set $percent=Math.floor(($chestskill / 200)*100)>>
		<<print '

'>>

<<elseif $chestskill gte 200 and $chestskill lt 400>>D <<print (($chestskill - 200) / 2)>>%

		<<set $percent=Math.floor((($chestskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $chestskill gte 400 and $chestskill lt 600>>C <<print (($chestskill - 400) / 2)>>%

		<<set $percent=Math.floor((($chestskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $chestskill gte 600 and $chestskill lt 800>>B <<print (($chestskill - 600) / 2)>>%

		<<set $percent=Math.floor((($chestskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $chestskill gte 800 and $chestskill lt 1000>>A <<print (($chestskill - 800) / 2)>>%

		<<set $percent=Math.floor((($chestskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $chestskill gte 1000>>S
<</if>>

__School__

Science: <<if $science lte 99>>F <<print Math.floor($science)>>%

		<<set $percent=Math.floor(($science / 100)*100)>>
		<<print '

'>>

<<elseif $science gte 100 and $science lt 200>>E <<print Math.floor($science - 100)>>%

		<<set $percent=Math.floor((($science - 100)/ 100)*100)>>
		<<print '

'>>

<<elseif $science gte 200 and $science lt 300>>D <<print Math.floor($science - 200)>>%

		<<set $percent=Math.floor((($science - 200)/ 100)*100)>>
		<<print '

'>>

<<elseif $science gte 300 and $science lt 400>>C <<print Math.floor($science - 300)>>%

		<<set $percent=Math.floor((($science - 300)/ 100)*100)>>
		<<print '

'>>

<<elseif $science gte 400 and $science lt 500>>B <<print Math.floor($science - 400)>>%

		<<set $percent=Math.floor((($science - 400)/ 100)*100)>>
		<<print '

'>>

<<elseif $science gte 500 and $science lt 700>>A <<print Math.floor((($science - 500) / 2))>>%

		<<set $percent=Math.floor((($science - 500)/ 200)*100)>>
		<<print '

'>>

<<elseif $science gte 700>>A*

		<<set $percent=Math.floor((($science - 700)/ 300)*100)>>
		<<print '

'>>

<</if>>

Maths: <<if $maths lte 99>>F <<print Math.floor($maths)>>%

		<<set $percent=Math.floor(($maths / 100)*100)>>
		<<print '

'>>

<<elseif $maths gte 100 and $maths lt 200>>E <<print Math.floor($maths - 100)>>%

		<<set $percent=Math.floor((($maths - 100)/ 100)*100)>>
		<<print '

'>>

<<elseif $maths gte 200 and $maths lt 300>>D <<print Math.floor($maths - 200)>>%

		<<set $percent=Math.floor((($maths - 200)/ 100)*100)>>
		<<print '

'>>

<<elseif $maths gte 300 and $maths lt 400>>C <<print Math.floor($maths - 300)>>%

		<<set $percent=Math.floor((($maths - 300)/ 100)*100)>>
		<<print '

'>>

<<elseif $maths gte 400 and $maths lt 500>>B <<print Math.floor($maths - 400)>>%

		<<set $percent=Math.floor((($maths - 400)/ 100)*100)>>
		<<print '

'>>

<<elseif $maths gte 500 and $maths lt 700>>A <<print Math.floor((($maths - 500) / 2))>>%

		<<set $percent=Math.floor((($maths - 500)/ 200)*100)>>
		<<print '

'>>

<<elseif $maths gte 700>>A*

		<<set $percent=Math.floor((($maths - 700)/ 300)*100)>>
		<<print '

'>>

<</if>>

English: <<if $english lte 99>>F <<print Math.floor($english)>>%

		<<set $percent=Math.floor(($english / 100)*100)>>
		<<print '

'>>

<<elseif $english gte 100 and $english lt 200>>E <<print Math.floor($english - 100)>>%

		<<set $percent=Math.floor((($english - 100)/ 100)*100)>>
		<<print '

'>>

<<elseif $english gte 200 and $english lt 300>>D <<print Math.floor($english - 200)>>%

		<<set $percent=Math.floor((($english - 200)/ 100)*100)>>
		<<print '

'>>

<<elseif $english gte 300 and $english lt 400>>C <<print Math.floor($english - 300)>>%

		<<set $percent=Math.floor((($english - 300)/ 100)*100)>>
		<<print '

'>>

<<elseif $english gte 400 and $english lt 500>>B <<print Math.floor($english - 400)>>%

		<<set $percent=Math.floor((($english - 400)/ 100)*100)>>
		<<print '

'>>

<<elseif $english gte 500 and $english lt 700>>A <<print Math.floor((($english - 500) / 2))>>%

		<<set $percent=Math.floor((($english - 500)/ 200)*100)>>
		<<print '

'>>

<<elseif $english gte 700>>A*

		<<set $percent=Math.floor((($english - 700)/ 300)*100)>>
		<<print '

'>>

<</if>>

History: <<if $history lte 99>>F <<print Math.floor($history)>>%

		<<set $percent=Math.floor(($history / 100)*100)>>
		<<print '

'>>

<<elseif $history gte 100 and $history lt 200>>E <<print Math.floor($history - 100)>>%

		<<set $percent=Math.floor((($history - 100)/ 100)*100)>>
		<<print '

'>>

<<elseif $history gte 200 and $history lt 300>>D <<print Math.floor($history - 200)>>%

		<<set $percent=Math.floor((($history - 200)/ 100)*100)>>
		<<print '

'>>

<<elseif $history gte 300 and $history lt 400>>C <<print Math.floor($history - 300)>>%

		<<set $percent=Math.floor((($history - 300)/ 100)*100)>>
		<<print '

'>>

<<elseif $history gte 400 and $history lt 500>>B <<print Math.floor($history - 400)>>%

		<<set $percent=Math.floor((($history - 400)/ 100)*100)>>
		<<print '

'>>

<<elseif $history gte 500 and $history lt 700>>A <<print Math.floor((($history - 500) / 2))>>%

		<<set $percent=Math.floor((($history - 500)/ 200)*100)>>
		<<print '

'>>

<<elseif $history gte 700>>A*

		<<set $percent=Math.floor((($history - 700)/ 300)*100)>>
		<<print '

'>>

<</if>>

<<if $antiquemoney gt 0>>
You are carrying antiques worth £$antiquemoney.

<</if>>

Your overall performance is
<<if $school gte 2800>>
exemplary.
<<elseif $school gte 2000>>
excellent.
<<elseif $school gte 1600>>
good.
<<elseif $school gte 1200>>
okay.
<<elseif $school gte 800>>
bad.
<<elseif $school gte 400>>
awful.
<<else>>
appalling.
<</if>>