code:
:: Tutorial [nobr]

<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<controlloss>>
	<<violence 1>>
	<<neutral 1>>
	<<molested>>
	<<set $event to "molestationhome">>
	<<set $rescue to 1>>
	<<man1init>>
	<<set $NPCList[0].chest to "none">>
	<<He>> reaches toward you.
<</if>>
<<effects>>
<<effectsman>><<man>>
<<stateman>>

__Combat Tutorial__

<<if $gamemode is "soft">>

Your character will be quite passive at first. More actions will become available as you become more promiscuous and comfortable being assertive.

Assertive and meek actions will arouse your partner, bringing them closer to orgasm. They'll also make them trust you more.

Bratty acts will irritate your partner. Use them too frequently and they will become rougher and less trusting.

Some actions have only a chance of working, based on your skill with the bodypart being used and how trusting your partner is.

Each part of your body can perform one action per turn. Choose your actions, then click next or press enter to continue.

<<else>>
There are three common ways to escape an attacker; fight them off, sexually satisfy them, or be rescued.

Defiant acts will hurt them. Hurt them enough and you'll escape. However, defiant acts will anger them, making them more violent.

They'll be happy to use you as a passive toy, but submissive acts will make them cum faster. Once spent, they'll usually leave you alone. Some submissive acts will occupy their genitals, so they can't use them in more dangerous ways.

Meek acts will endear you to them without being directly sexual. Meek acts will make them trust you more, and often have effects which may help you.

Bratty acts protect you in ways that defies your attacker's will without hurting them. Bratty acts will reduce trust and increase anger.

Finally, you could scream for help. Whether it will help or make things worse depends on who's around to hear. Screaming at night or in the wilderness will only anger your attacker. You won't be able to scream (or speak) if your attacker has you gagged.

For this encounter, screaming will get you rescued. Each part of your body can perform one action per turn. Choose your actions, then click next or press enter to continue.

<</if>>

<<actionsman>>

<<if $alarm is 1 and $rescue is 1>>
<<link [[Next|Tutorial Finish]]>><</link>><<nexttext>>
<<elseif $enemyarousal gte $enemyarousalmax>>
<<link [[Next|Tutorial Finish]]>><</link>><<nexttext>>
<<elseif $enemyhealth lte 0>>
<<link [[Next|Tutorial Finish]]>><</link>><<nexttext>>
<<else>>
<<link [[Next|Tutorial]]>><</link>><<nexttext>>
<</if>>

:: Tutorial Finish [nobr]

<<effects>><<set $eventskip to 1>>
<<if $enemyarousal gte $enemyarousalmax>>
	<<ejaculation>>
	<<if $enemyanger gte 60>>
		"That's what you get, slut." <<He>> leaves you lying on the ground.

	<<else>>
		"Good <<girlstop>> Here's a little something for the trouble." <<He>> leaves you lying on the ground.

		<<tearful>> you climb to your knees. You've gained £5.

		<<set $money += 500>>
	<</if>>

	<<clotheson>>
	<<endcombat>>
	<<if $gamemode is "soft">>
		<<generate1>><<person1>>A <<person>> rushes over to you. "Are you okay?" <<He>> offers an arm to help you up.

	<<else>>
		<<generate1>><<person1>>A <<person>> rushes over to you. "I saw what that fiend did. Are you okay?" <<He>> offers an arm to help you up.

	<</if>>
	Being attacked will damage your sense of control. You will become more vulnerable to trauma as your control fails.
	Actions marked as "promiscuity", "exhibitionism" or "deviancy" will lower stress and trauma. They will also restore your sense of control. Committing these actions with enough frequency will unlock lewder actions of the same type, but make weaker actions lose effectiveness. If you're not careful, you'll be unable to reach the controlled state without shameless and outrageous acts.

	<<link [[Flirt|Tutorial Flirt]]>><</link>><<promiscuous1>>

	<<link [[Thank them|Tutorial Thank]]>><</link>>

<<elseif $enemyhealth lte 0>>
	The <<person>> recoils in pain. "You're fucking nuts," <<he>> says, limping away. <<tearful>> you climb to your knees.

	<<clotheson>>
	<<endcombat>>
	<<if $gamemode is "soft">>
		<<generate1>><<person1>>A <<person>> rushes over to you. "Are you okay?" <<He>> offers an arm to help you up.

	<<else>>
		<<generate1>><<person1>>A <<person>> rushes over to you. "I saw what that fiend did. Are you okay?" <<He>> offers an arm to help you up.

	<</if>>
	Being attacked will damage your sense of control. You will become more vulnerable to trauma as your control fails.
	Actions marked as "promiscuity", "exhibitionism" or "deviancy" will lower stress and trauma. They will also restore your sense of control. Committing these actions with enough frequency will unlock lewder actions of the same type, but make weaker actions lose effectiveness. If you're not careful, you'll be unable to reach the controlled state without shameless and outrageous acts.

	<<link [[Flirt|Tutorial Flirt]]>><</link>><<promiscuous1>>

	<<link [[Thank them|Tutorial Thank]]>><</link>>

<<elseif $rescue is 1 and $alarm is 1>>
	<<set $rescued += 1>>
	<<He>> notices several heads turning in response to your cry, and relents in <<his>> assault before making a hurried escape.

	<<tearful>> you climb to your knees.

	<<clotheson>>
	<<endcombat>>
	<<if $gamemode is "soft">>
		<<generate1>><<person1>>A <<person>> rushes over to you. "Are you okay?" <<He>> offers an arm to help you up.

	<<else>>
		<<generate1>><<person1>>A <<person>> rushes over to you. "I saw what that fiend did. Are you okay?" <<He>> offers an arm to help you up.

	<</if>>
	Being attacked will damage your sense of control. You will become more vulnerable to trauma as your control fails.
	Actions marked as "promiscuity", "exhibitionism" or "deviancy" will lower stress and trauma. They will also restore your sense of control. Committing these actions with enough frequency will unlock lewder actions of the same type, but make weaker actions lose effectiveness. If you're not careful, you'll be unable to reach the controlled state without shameless and outrageous acts.

	<<link [[Flirt|Tutorial Flirt]]>><</link>><<promiscuous1>>

	<<link [[Thank them|Tutorial Thank]]>><</link>>

<</if>>

:: Tutorial Flirt [nobr]

<<set $outside to 1>><<set $location to "town">><<effects>><<set $bus to "domus">>
You take <<his>> arm and hoist yourself up and against <<himcomma>> forcing <<him>> to catch you in an embrace to stop you falling. You look <<him>> in the eyes. "I feel safe now," you say.<<promiscuity1>>

<<He>> blushes. "I-I'm glad you're alright," <<he>> says as <<he>> slowly withdraws <<his>> arms from you, making sure you're steady. <<He>> glances around. "Here," <<he>> hands you a small cylinder. "Be discreet. It's not legal, and there's only enough for one use."
<<gspraymax>><<set $spraymax to 1>><<spray 5>>

"I need to get going. You be careful."

<<link [[Next|Domus Street]]>><<endevent>><<set $eventskip to 1>><</link>>

:: Tutorial Thank [nobr]

<<set $outside to 1>><<set $location to "town">><<effects>><<set $bus to "domus">>
You take <<his>> arm and <<he>> helps lift you to your feet. "Thank you," you say. "I'll be okay now."

<<He>> glances around. "Here," <<he>> hands you a small cylinder. "Be discreet. It's not legal, and there's only enough for one use."
<<gspraymax>><<set $spraymax to 1>><<spray 5>>

"I need to get going. You be careful."

<<link [[Next|Domus Street]]>><<endevent>><<set $eventskip to 1>><</link>>


code:
:: Widgets Vore [widget]

<<widget "vore">><<nobr>>
<<set $rng to random(1, 100)>>

<<if $vorestage is 1>>
Your thighs are gripped by the $vorecreature's mouth, your shins and feet at the mercy of its probing tongue.
<<neutral 5>>
<<elseif $vorestage is 2>>
Your waist is gripped by the $vorecreature's mouth, your delicate parts at the mercy of its probing tongue.
<<neutral 5>>
<<elseif $vorestage is 3>>
Your chest is gripped by the $vorecreature's mouth, your body at the mercy of its probing tongue.
<<neutral 10>>
<<elseif $vorestage is 4>>
Your shoulders are gripped by the $vorecreature's mouth, your body at the mercy of its probing tongue.<<neutral 10>>
<<elseif $vorestage is 5>>
Your entire body is in the $vorecreature's mouth.
<<neutral 15>>
<<elseif $vorestage is 6>>
You are in the $vorecreature's gullet, pushed along by movements in the walls.
<<neutral 15>>
<<elseif $vorestage is 7>>
You are in the $vorecreature's stomach, it's a struggle to keep your head above the slimy liquid.
<<neutral 20>>
<</if>>

<<if $vorestage is 1>>
	<<if ($vorestruggle * $physique) gte $vorestrength>>
		<<if $vorestruggle is 2>>
		You push down on the $vorecreature's maw with both your arms, preventing it from swallowing you further.
		<<elseif $vorestruggle is 1>>
		You push down on the $vorecreature's maw with one arm, preventing it from swallowing you further.
		<<else>>
		There's nothing preventing the $vorecreature from swallowing you further, but it doesn't take advantage of your vulnerability.
		<</if>>
	<<else>>
	<<set $vorestage += 1>>
		<<if $vorestruggle is 2>>
		You push down on the $vorecreature's maw with both your arms, but it isn't enough. You slide deeper into its mouth, until it swallows you up to the waist.
		<<elseif $vorestruggle is 1>>
		You push down on the $vorecreature's maw with one arm, but it isn't enough. You slide deeper into its mouth, until it swallows you up to the waist.
		<<else>>
		There's nothing preventing the $vorecreature from swallowing you further, and it takes advantage of your vulnerability. You slide deeper into its mouth, until it swallows you up to the waist.
		<</if>>
	<</if>>

<<elseif $vorestage is 2>><<set $worn.lower.integrity -= 1>><<if $worn.lower.integrity lte 0>><<set $worn.under_lower.integrity -= 1>><</if>>
	<<if ($vorestruggle * $physique) gte $vorestrength>>
		<<if $vorestruggle is 2>>
		You push down on the $vorecreature's maw with both your arms, preventing it from swallowing you further.
		<<elseif $vorestruggle is 1>>
		You push down on the $vorecreature's maw with one arm, preventing it from swallowing you further.
		<<else>>
		There's nothing preventing the $vorecreature from swallowing you further, but it doesn't take advantage of your vulnerability.
		<</if>>
	<<else>>
	<<set $vorestage += 1>>
		<<if $vorestruggle is 2>>
		You push down on the $vorecreature's maw with both your arms, but it isn't enough. You slide deeper into its mouth, until it swallows you up to your chest.
		<<elseif $vorestruggle is 1>>
		You push down on the $vorecreature's maw with one arm, but it isn't enough. You slide deeper into its mouth, until it swallows you up to your chest.
		<<else>>
		There's nothing preventing the $vorecreature from swallowing you further, and it takes advantage of your vulnerability. You slide deeper into its mouth, until it swallows you up to your chest.
		<</if>>
	<</if>>

<<elseif $vorestage is 3>>
<<set $worn.lower.integrity -= 1>><<if $worn.lower.integrity lte 0>><<set $worn.under_lower.integrity -= 1>><</if>><<set $worn.upper.integrity -= 1>>
	<<if ($vorestruggle * $physique) gte $vorestrength>>
		<<if $vorestruggle is 2>>
		You push down on the $vorecreature's maw with both your arms, preventing it from swallowing you further.
		<<elseif $vorestruggle is 1>>
		You push down on the $vorecreature's maw with one arm, preventing it from swallowing you further.
		<<else>>
		There's nothing preventing the $vorecreature from swallowing you further, but it doesn't take advantage of your vulnerability.
		<</if>>
	<<else>>
	<<set $vorestage += 1>>
		<<if $vorestruggle is 2>>
		You push down on the $vorecreature's maw with both your arms, but it isn't enough. You slide deeper into its mouth, until it swallows you up to your neck.
		<<elseif $vorestruggle is 1>>
		You push down on the $vorecreature's maw with one arm, but it isn't enough. You slide deeper into its mouth, until it swallows you up to your neck.
		<<else>>
		There's nothing preventing the $vorecreature from swallowing you further, and it takes advantage of your vulnerability. You slide deeper into its mouth, until it swallows you up to your neck.
		<</if>>
	<</if>>

<<elseif $vorestage is 4>>
<<set $worn.lower.integrity -= 1>><<if $worn.lower.integrity lte 0>><<set $worn.under_lower.integrity -= 1>><</if>><<set $worn.upper.integrity -= 1>>
	<<if ($vorestruggle * $physique) gte $vorestrength>>
		<<if $vorestruggle is 2>>
		You grab the inside of the $vorecreature's maw with both arms, preventing it from swallowing you further.
		<<elseif $vorestruggle is 1>>
		You grab the inside of the $vorecreature's maw with one arm, preventing it from swallowing you further.
		<<else>>
		There's nothing preventing the $vorecreature from swallowing you further, but it doesn't take advantage of your vulnerability.
		<</if>>
	<<else>>
	<<set $vorestage += 1>>
		<<if $vorestruggle is 2>>
		You grab the inside of the $vorecreature's maw with both your arms, but it isn't enough. The last of your body slides into its mouth, its lips closing behind you.
		<<elseif $vorestruggle is 1>>
		You grab the inside of the $vorecreature's maw with one arm, but it isn't enough. The last of your body slides into its mouth, its lips closing behind you.
		<<else>>
		There's nothing preventing the $vorecreature from swallowing you further, and it takes advantage of your vulnerability. The last of your body slides into its mouth, its lips closing behind you.
		<</if>>
	<</if>>

<<elseif $vorestage is 5>>
<<set $worn.lower.integrity -= 1>><<if $worn.lower.integrity lte 0>><<set $worn.under_lower.integrity -= 1>><</if>><<set $worn.upper.integrity -= 1>>
	<<if ($vorestruggle * $physique) gte $vorestrength>>
		<<if $vorestruggle is 2>>
		You grab the inside of the $vorecreature's maw with both arms, preventing it from swallowing you further.
		<<elseif $vorestruggle is 1>>
		You grab the inside of the $vorecreature's maw with one arm, preventing it from swallowing you further.
		<<else>>
		There's nothing preventing the $vorecreature from swallowing you further, but it doesn't take advantage of your vulnerability.
		<</if>>
	<<else>>
	<<set $vorestage += 1>>
		<<if $vorestruggle is 2>>
		You grab the inside of the $vorecreature's maw with both your arms, but it isn't enough. The $vorecreature sucks you further down, sliding you into its gullet.
		<<elseif $vorestruggle is 1>>
		You grab the inside of the $vorecreature's maw with one arm, but it isn't enough. The $vorecreature sucks you further down, sliding you into its gullet.
		<<else>>
		There's nothing preventing the $vorecreature from swallowing you further, and it takes advantage of your vulnerability. The $vorecreature sucks you further down, sliding you into its gullet.
		<</if>>
	<</if>>

<<elseif $vorestage is 6>>
<<set $worn.lower.integrity -= 1>><<if $worn.lower.integrity lte 0>><<set $worn.under_lower.integrity -= 1>><</if>><<set $worn.upper.integrity -= 1>>
	<<if ($vorestruggle * $physique) gte $vorestrength>>
		<<if $vorestruggle is 2>>
		You grab the inside of the $vorecreature's maw with both arms, preventing it from swallowing you further.
		<<elseif $vorestruggle is 1>>
		You grab the inside of the $vorecreature's maw with one arm, preventing it from swallowing you further.
		<<else>>
		There's nothing preventing the $vorecreature from swallowing you further, but it doesn't take advantage of your vulnerability.
		<</if>>
	<<else>>
	<<set $vorestomach to 0>>
	<<set $vorestage += 1>>
		<<if $vorestruggle is 2>>
		You grab the inside of the $vorecreature's maw with both your arms, but it isn't enough. The $vorecreature sucks you further down, depositing you in a fleshy chamber.
		<<if $leftarm is "grappled">><<set $leftarm to 0>><</if>><<if $rightarm is "grappled">><<set $rightarm to 0>><<swallowed>><</if>>
		<<elseif $vorestruggle is 1>>
		You grab the inside of the $vorecreature's maw with one arm, but it isn't enough. The $vorecreature sucks you further down, depositing you in a fleshy chamber.
		<<if $leftarm is "trapped">><<set $leftarm to 0>><</if>><<if $rightarm is "trapped">><<set $rightarm to 0>><<swallowed>><</if>>
		<<else>>
		There's nothing preventing the $vorecreature from swallowing you further, and it takes advantage of your vulnerability. The $vorecreature sucks you further down, depositing you in a fleshy chamber.
		<<if $leftarm is "trapped">><<set $leftarm to 0>><</if>><<if $rightarm is "trapped">><<set $rightarm to 0>><</if>><<swallowed>>
		<</if>>
	<</if>>
<<else>>
	<<set $worn.lower.integrity -= 5>>
	<<if $worn.lower.integrity lte 0>><<set $worn.under_lower.integrity -= 5>><</if>>
	<<set $worn.upper.integrity -= 5>>
<</if>>

<<set $vorestruggle to 0>>
<<set $rng to random(1, 100)>>
<<if $vorestage is 1>>
	<<if $rng gte 66>>
		You feel the $vorecreature licking your feet.
		<<neutral 5>>
	<<elseif $rng gte 33>>
		The $vorecreature's tongue protrudes from its maw, and licks your inner thighs.
		<<neutral 5>>
	<<else>>
		The $vorecreature's tongue protrudes from its maw, and licks your butt.
		<<neutral 5>>
	<</if>>
<<elseif $vorestage is 2>>
	<<if $rng gte 66>>
		You feel the $vorecreature licking your butt.
		<<neutral 5>>
	<<elseif $rng gte 33>>
		The $vorecreature gently licks your <<groinstop>>
		<<neutral 10>>
	<<else>>
		The $vorecreature's tongue wraps around your pelvis, and rubs up and down the length of your thighs.
		<<neutral 5>>
	<</if>>
<<elseif $vorestage is 3>>
	<<if $rng gte 66>>
		The $vorecreature's tongue presses your body against the roof of its maw.
		<<neutral 5>>
	<<elseif $rng gte 33>>
		The $vorecreature gently prods your <<groinstop>>
		<<neutral 10>>
	<<else>>
		The $vorecreature's tongue caresses your inner thighs.
		<<neutral 5>>
	<</if>>
<<elseif $vorestage is 4>>
	<<if $rng gte 66>>
		The $vorecreature runs the tip of its tongue down the length of your body.
		<<neutral 5>>
	<<elseif $rng gte 33>>
		The $vorecreature gently prods your <<groinstop>>
		<<neutral 10>>
	<<else>>
		The $vorecreature's tongue caresses your inner thighs.
		<<neutral 10>>
	<</if>>
<<elseif $vorestage is 5>>
	<<if $rng gte 66>>
		The $vorecreature runs the tip of its tongue down the length of your body.
		<<neutral 10>>
	<<elseif $rng gte 33>>
		The $vorecreature wraps its tongue around your body.
		<<neutral 10>>
	<<else>>
		The $vorecreature flicks your <<groin>> with the tip of its tongue.
		<<neutral 15>>
	<</if>>
<<elseif $vorestage is 6>>
	<<if $rng gte 81 and $leftarm is 0>>
		A groove in the side of the gullet constricts around your left arm, trapping it.
		<<set $leftarm to "trapped">><<neutral 10>>
	<<elseif $rng gte 61 and $rightarm is 0>>
		A groove in the side of the gullet constricts around your right arm, trapping it.
		<<set $rightarm to "trapped">><<neutral 10>>
	<<elseif $rng gte 41>>
		The gullet tightens around your entire body, holding you in place.
		<<neutral 10>>
	<<elseif $rng gte 21>>
		Valves open at the side of the tube and release a warm liquid, coating you in a slimy goo.
		<<neutral 15>>
	<<elseif $rng gte 1>>
		The sides of the gullet push against you, sliding you along the tube.
		<<neutral 15>>
	<</if>>
<<elseif $vorestage is 7>>
	<<if $rng gte 81 and $rightarm is 0>>
		A groove in the side of the chamber constricts around your right arm, trapping it.
		<<set $rightarm to "trapped">><<neutral 15>>
	<<elseif $rng gte 61>>
		More liquid squirts out the side of the chamber, covering you in a slimy goo.
		<<neutral 15>><<outergoo>>
	<<elseif $rng gte 41 and $leftarm is 0>>
		A groove in the side of the chamber constricts around your left arm, trapping it.
		<<set $leftarm to "trapped">><<neutral 15>>
	<<elseif $rng gte 21>>
		The chamber pulses to a gentle rhythm.
		<<neutral 15>>
	<<elseif $rng gte 1>>
		The entire chamber pulsates and rubs against you.
		<<neutral 20>>
	<</if>>
	<<if $vorestomach is 0>>
		<<set $vorestomach to 1>>
		The walls close in around you.
	<<elseif $vorestomach is 1>>
		<<set $vorestomach to 2>>
		The walls close in around you.
	<<elseif $vorestomach is 2>>
		<<set $vorestomach to 3>>
		The walls close in around you, squeezing your body and stealing your breath.
	<<elseif $vorestomach is 3>>
		<<set $vorestomach to 4>>
		The walls close in around you. You soon won't be able to move at all.
	<<else>>
		<<set $vorestomach to 5>>
		The walls close in around you. The world starts to fade.
	<</if>>
<</if>>

<<set $rng to random(1, 100)>>
<<if $vorestage lte 5>>
	<<if $rng gte 75>>
		<<set $vorestrength to random(0, 0)>>
		The $vorecreature seems content to savour your taste, for now.
	<<elseif $rng gte 50>>
		<<set $vorestrength to random(-5000, 10000)>>
		The $vorecreature salivates in anticipation.
	<<elseif $rng gte 25>>
		<<set $vorestrength to random(-5000, 20000)>>
		The $vorecreature prepares to suck you in.
	<<elseif $rng gte 1>>
		<<set $vorestrength to random(1, 20000)>>
		The $vorecreature prepares to gulp you down.
	<</if>>

<<else>>
	<<if $rng gte 75>>
		<<set $vorestrength to random(0, 0)>>
	<<elseif $rng gte 50>>
		<<set $vorestrength to random(-5000, 10000)>>
	<<elseif $rng gte 25>>
		<<set $vorestrength to random(-5000, 20000)>>
	<<elseif $rng gte 1>>
		<<set $vorestrength to random(1, 20000)>>
	<</if>>
<</if>>
<<if $voretrait gte 1>>
<<set $vorestrength -= 2500>>
<</if>>

<<if $enemytype isnot "tentacles">>
	<<if $panicattacks gte 1 and $panicviolence is 0 and $panicparalysis is 0 and $controlled is 0>>
		<<set $rng to random(1, 100)>>
		<<if $rng is 100>>
		<<set $panicparalysis to 10>>
		<</if>>
	<</if>>

	<<if $panicattacks gte 2 and $panicviolence is 0 and $panicparalysis is 0 and $controlled is 0>>
		<<set $rng to random(1, 100)>>
		<<if $rng is 100>>
		<<set $panicviolence to 3>>
		<</if>>
	<</if>>

	<<if $arousal gte 10000>>

	<<orgasmpassage>>

	<</if>>

	<<set $seconds += 10>>
	<<if $seconds gte 60>>
	<<set $seconds to 0>>
	<<pass 1>>
	<</if>>
<</if>>

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

<<widget "swallowedstat">><<nobr>>
<<set $swallowedstat += 1>>
<</nobr>><</widget>>

<<widget "swallowed">><<nobr>>

<<if $swallowed isnot 1>><<set $swallowed to 1>>
<<swallowedstat>>
<</if>>

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

:: Widgets Vore Actions [widget]
<<widget "voreactions">><<nobr>>

<<if $images is 1>><<timed 100ms>>
<<combatimg>>

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

<<if $enemytype isnot "tentacles">>
<<willpowerpain>>
<<willpowerorgasm>>
<<actioncarry>>
<<actioncarrydrop>>
<</if>>

<<if $trance lte 0>>
<<if $dissociation lte 1>>
<<if $panicparalysis is 0>>
<<if $panicviolence is 0>>
<<if $orgasmdown lte 0>>
<<if $pain lt 100 or $willpowerpain is undefined>>

<<if $leftarm is "bound">>
Your left arm is bound and helpless.

<<elseif $leftarm is "trapped">>
Your left arm is trapped by the $vorecreature.

<<elseif $leftarm is 0>>
Your left arm is free.

	<<if $leftactiondefault is "leftescape">>
Escape <<radiobutton "$leftaction" "leftescape" checked>> |
	<<else>>
Escape <<radiobutton "$leftaction" "leftescape">> |
	<</if>>
	<<if $vorestage lte 6>>
		<<if $leftactiondefault is "lefthold">>
Hold on <<radiobutton "$leftaction" "lefthold" checked>> |
		<<else>>
Hold on <<radiobutton "$leftaction" "lefthold">> |
		<</if>>
	<</if>>
	<<if $rightarm is "trapped">>
	Free your right arm <<radiobutton "$leftaction" "leftvorefree">> |
	<</if>>
	<<if $leftactiondefault is "vorerest">>
Rest <<radiobutton "$leftaction" "vorerest" checked>> |
	<<else>>
Rest <<radiobutton "$leftaction" "vorerest">> |
	<</if>>

<</if>>

<<if $rightarm is "bound">>
Your right arm is bound and helpless.

<<elseif $rightarm is "trapped">>
Your right arm is trapped by the $vorecreature.

<<elseif $rightarm is 0>>
Your right arm is free.

	<<if $rightactiondefault is "rightescape">>
Escape <<radiobutton "$rightaction" "rightescape" checked>> |
	<<else>>
Escape <<radiobutton "$rightaction" "rightescape">> |
	<</if>>
	<<if $vorestage lte 6>>
		<<if $rightactiondefault is "righthold">>
Hold on <<radiobutton "$rightaction" "righthold" checked>> |
		<<else>>
Hold on <<radiobutton "$rightaction" "righthold">> |
		<</if>>
	<</if>>
	<<if $leftarm is "trapped">>
	Free your left arm <<radiobutton "$rightaction" "rightvorefree">> |
	<</if>>
	<<if $rightactiondefault is "vorerest">>
Rest <<radiobutton "$rightaction" "vorerest" checked>> |
	<<else>>
Rest <<radiobutton "$rightaction" "vorerest">> |
	<</if>>

<</if>>

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

<<if $enemytype isnot "tentacles">>
<<combatstate>>
<<carryblock>>
<</if>>

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

:: Widgets Vore Effects [widget]
<<widget "voreeffects">><<nobr>>
<<set $rng to random(1, 100)>>

<<effectspain>>
<<effectsorgasm>>
<<effectsdissociation>>

<<if $leftaction is "leftescape" and $rightaction is "rightescape">><<set $leftaction to 0>><<set $rightaction to 0>><<set $leftactiondefault to "leftescape">><<set $rightactiondefault to "rightescape">><<set $attackstat += 2>><<set $leftactiondefault to "leftescape">><<set $rightactiondefault to "rightescape">>
	<<if $rng gte 40>>
	<<if $leftarm is "trapped">><<set $leftarm to 0>><</if>><<if $rightarm is "trapped">><<set $rightarm to 0>><</if>>
		<<if $vorestage is 1>><<set $vorestage -= 1>>
		You hit the $vorecreature's maw with both arms, and make it spit you out.
		<<elseif $vorestage is 2>><<set $vorestage -= 1>>
		You hit the $vorecreature's mouth with both arms. It gags, letting you slide your body out, freeing your <<genitals>> from its maw.
		<<elseif $vorestage is 3>><<set $vorestage -= 1>>
		You hit the $vorecreature's mouth with both arms. It gags, letting you slide your body out, freeing your <<breasts>> from its maw.
		<<elseif $vorestage is 4>><<set $vorestage -= 1>>
		You hit the inside of the $vorecreature's mouth with both arms. It gags, letting you slide your body out, freeing your arms from its maw.
		<<elseif $vorestage is 5>><<set $vorestage -= 1>>
		You hit the inside of the $vorecreature's mouth with both arms. It gags, letting you slide your head back out.
		<<elseif $vorestage is 6>><<set $vorestage -= 1>>
		You hit the walls of the $vorecreature's gullet with both arms. It convulses, violently pushing you up into its mouth.
		<<elseif $vorestage is 7>><<set $vorestage -= 1>>
		You pound the walls of the $vorecreature's stomach with both arms. It convulses, violently pushing you up into its gullet.
		<</if>>
	<<else>>
		<<if $vorestage is 1>>
		You hit the $vorecreature's maw with both arms, but it doesn't react.
		<<elseif $vorestage is 2>>
		You hit the $vorecreature's mouth with both arms, but it doesn't react.
		<<elseif $vorestage is 3>>
		You hit the $vorecreature's mouth with both arms, but it doesn't react.
		<<elseif $vorestage is 4>>
		You hit the inside of the $vorecreature's mouth with both arms, but it doesn't react.
		<<elseif $vorestage is 5>>
		You hit the inside of the $vorecreature's mouth with both arms, but it doesn't react.
		<<elseif $vorestage is 6>>
		You hit the walls of the $vorecreature's gullet with both arms, but it doesn't react.
		<<elseif $vorestage is 7>>
		You pound the walls of the $vorecreature's stomach with both arms, but it doesn't react.
		<</if>>
	<</if>>
<<elseif $leftaction is "leftescape">><<set $leftaction to 0>><<set $leftactiondefault to "leftescape">><<set $attackstat += 1>><<set $leftactiondefault to "leftescape">>
	<<if $rng gte 20>>
	<<if $leftarm is "trapped">><<set $leftarm to 0>><</if>><<if $rightarm is "trapped">><<set $rightarm to 0>><</if>>
		<<if $vorestage is 1>><<set $vorestage -= 1>>
		You hit the $vorecreature's maw with your left arm, and make it spit you out.
		<<elseif $vorestage is 2>><<set $vorestage -= 1>>
		You hit the $vorecreature's mouth with your left arm. It gags, letting you slide your body out, freeing your <<genitals>> from its maw.
		<<elseif $vorestage is 3>><<set $vorestage -= 1>>
		You hit the $vorecreature's mouth with your left arm. It gags, letting you slide your body out, freeing your <<breasts>> from its maw.
		<<elseif $vorestage is 4>><<set $vorestage -= 1>>
		You hit the inside of the $vorecreature's mouth with your left arm. It gags, letting you slide your body out, freeing your arms from its maw.
		<<elseif $vorestage is 5>><<set $vorestage -= 1>>
		You hit the inside of the $vorecreature's mouth with your left arm. It gags, letting you slide your head back out.
		<<elseif $vorestage is 6>><<set $vorestage -= 1>>
		You hit the walls of the $vorecreature's gullet with your left arm. It convulses, violently pushing you up into its mouth.
		<<elseif $vorestage is 7>><<set $vorestage -= 1>>
		You pound the walls of the $vorecreature's stomach with your left arm. It convulses, violently pushing you up into its gullet.
		<</if>>
	<<else>>
		<<if $vorestage is 1>>
		You hit the $vorecreature's maw with your left arm, but it doesn't react.
		<<elseif $vorestage is 2>>
		You hit the $vorecreature's mouth with your left arm, but it doesn't react.
		<<elseif $vorestage is 3>>
		You hit the $vorecreature's mouth with your left arm, but it doesn't react.
		<<elseif $vorestage is 4>>
		You hit the inside of the $vorecreature's mouth with your left arm, but it doesn't react.
		<<elseif $vorestage is 5>>
		You hit the inside of the $vorecreature's mouth with your left arm, but it doesn't react.
		<<elseif $vorestage is 6>>
		You hit the walls of the $vorecreature's gullet with your left arm, but it doesn't react.
		<<elseif $vorestage is 7>>
		You pound the walls of the $vorecreature's stomach with your left arm, but it doesn't react.
		<</if>>
	<</if>>
<<elseif $rightaction is "rightescape">><<set $rightaction to 0>><<set $rightactiondefault to "rightescape">><<set $attackstat += 1>><<set $rightactiondefault to "rightescape">>
	<<if $rng gte 20>>
	<<if $leftarm is "trapped">><<set $leftarm to 0>><</if>><<if $rightarm is "trapped">><<set $rightarm to 0>><</if>>
		<<if $vorestage is 1>><<set $vorestage -= 1>>
		You hit the $vorecreature's maw with your right arm, and make it spit you out.
		<<elseif $vorestage is 2>><<set $vorestage -= 1>>
		You hit the $vorecreature's mouth with your right arm. It gags, letting you slide your body out, freeing your <<genitals>> from its maw.
		<<elseif $vorestage is 3>><<set $vorestage -= 1>>
		You hit the $vorecreature's mouth with your right arm. It gags, letting you slide your body out, freeing your <<breasts>> from its maw.
		<<elseif $vorestage is 4>><<set $vorestage -= 1>>
		You hit the inside of the $vorecreature's mouth with your right arm. It gags, letting you slide your body out, freeing your arms from its maw.
		<<elseif $vorestage is 5>><<set $vorestage -= 1>>
		You hit the inside of the $vorecreature's mouth with your right arm. It gags, letting you slide your head back out.
		<<elseif $vorestage is 6>><<set $vorestage -= 1>>
		You hit the walls of the $vorecreature's gullet with your right arm. It convulses, violently pushing you up into its mouth.
		<<elseif $vorestage is 7>><<set $vorestage -= 1>>
		You pound the walls of the $vorecreature's stomach with your right arm. It convulses, violently pushing you up into its gullet.
		<</if>>
	<<else>>
		<<if $vorestage is 1>>
		You hit the $vorecreature's maw with your right arm, but it doesn't react.
		<<elseif $vorestage is 2>>
		You hit the $vorecreature's mouth with your right arm, but it doesn't react.
		<<elseif $vorestage is 3>>
		You hit the $vorecreature's mouth with your right arm, but it doesn't react.
		<<elseif $vorestage is 4>>
		You hit the inside of the $vorecreature's mouth with your right arm, but it doesn't react.
		<<elseif $vorestage is 5>>
		You hit the inside of the $vorecreature's mouth with your right arm, but it doesn't react.
		<<elseif $vorestage is 6>>
		You hit the walls of the $vorecreature's gullet with your right arm, but it doesn't react.
		<<elseif $vorestage is 7>>
		You pound the walls of the $vorecreature's stomach with your right arm, but it doesn't react.
		<</if>>
	<</if>>
<</if>>

<<if $leftaction is "lefthold" and $rightaction is "righthold">><<set $leftaction to 0>><<set $rightaction to 0>><<set $leftactiondefault to "lefthold">><<set $rightactiondefault to "righthold">><<set $vorestruggle to 2>>
	<<if $vorestage is 1>>
	You grab hold of the $vorecreature's maw with both arms.
	<<elseif $vorestage is 2>>
	You grab hold of the $vorecreature's maw with both arms.
	<<elseif $vorestage is 3>>
	You grab hold of the $vorecreature's maw with both arms.
	<<elseif $vorestage is 4>>
	You cling to the side of the $vorecreature's mouth with both arms.
	<<elseif $vorestage is 5>>
	You cling to the side of the $vorecreature's mouth with both arms.
	<<elseif $vorestage is 6>>
	You cling to the side of the $vorecreature's gullet with both arms.
	<</if>>
<<elseif $leftaction is "lefthold">><<set $leftaction to 0>><<set $leftactiondefault to "lefthold">><<set $vorestruggle to 1>>
	<<if $vorestage is 1>>
	You grab hold of the $vorecreature's maw with your left arm.
	<<elseif $vorestage is 2>>
	You grab hold of the $vorecreature's maw with your left arm.
	<<elseif $vorestage is 3>>
	You grab hold of the $vorecreature's maw with your left arm.
	<<elseif $vorestage is 4>>
	You cling to the side of the $vorecreature's mouth with your left arm.
	<<elseif $vorestage is 5>>
	You cling to the side of the $vorecreature's mouth with your left arm.
	<<elseif $vorestage is 6>>
	You cling to the side of the $vorecreature's gullet with your left arm.
	<</if>>
<<elseif $rightaction is "righthold">><<set $rightaction to 0>><<set $rightactiondefault to "righthold">><<set $vorestruggle to 1>>
	<<if $vorestage is 1>>
	You grab hold of the $vorecreature's maw with your right arm.
	<<elseif $vorestage is 2>>
	You grab hold of the $vorecreature's maw with your right arm.
	<<elseif $vorestage is 3>>
	You grab hold of the $vorecreature's maw with your right arm.
	<<elseif $vorestage is 4>>
	You cling to the side of the $vorecreature's mouth with your right arm.
	<<elseif $vorestage is 5>>
	You cling to the side of the $vorecreature's mouth with your right arm.
	<<elseif $vorestage is 6>>
	You cling to the side of the $vorecreature's gullet with your right arm.
	<</if>>
<</if>>

<<if $leftaction is "leftvorefree">><<set $leftaction to 0>>
<<set $rightarm to 0>>Using all your strength, you manage to free your right arm from the side of the gullet.
<</if>>

<<if $rightaction is "rightvorefree">><<set $rightaction to 0>>
<<set $leftarm to 0>>Using all your strength, you manage to free your left arm from the side of the gullet.
<</if>>

<<if $leftaction is "vorerest">><<set $leftaction to 0>><<set $leftactiondefault to "vorerest">>
<</if>>

<<if $rightaction is "vorerest">><<set $rightaction to 0>><<set $rightactiondefault to "vorerest">>
<</if>>

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

:: Widgets Vore Img [widget]
<<widget "voreimg">><<nobr>>

<<if $vorestage is 1>>

<<elseif $vorestage is 2>>

<<elseif $vorestage is 3>>

<<elseif $vorestage is 4>>

<<elseif $vorestage is 5>>

<<elseif $vorestage is 6>>

<<elseif $vorestage is 7>>

<</if>>

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

license: mit


code:
:: Widgets Combat Woman-Combat Disjoint [widget]
<!-- Usage: -->
<!-- <<woman-combat $npcFightList.length>> -->
<<widget "woman-combat">><<nobr>>

<<set _ppbigreaction to ["Your body feels weak at the sight.","You shudder at the sight.","You moan involuntarily at its size","You gasp at its massive girth.","Your thighs feel weak as you look on."]>>
<<set _ppsmallreaction to ["You stifle a laugh at the sight.","You smirk at the sight.","You stifle a chuckle at the sight.","You stifle a giggle at the sight.","You try not to laugh."]>>
<<set _pprng to random(0, 4)>>

<<switch $npcFightList[_i]>>
<</switch>>

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


code:
:: Widgets Debug [widget]
<<widget "debug">><<nobr>>
<<button DEBUG>>
<>
<</button>>

<<if $debugMenu is undefined>>
	<<set $debugMenu to [false, 'debugMain']>>
<</if>>

<<if $debugMenu[0] is true>>

		<<debugContents>>

<<else>>

		<<debugContents>>

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

<<widget "debugContents">><<nobr>>

<input type="button" class="close" value="Close" onclick="overlayShowHide('debugOverlay')"/>

<input type="button" value="Main" onclick="overlayMenu('debugMain', 'debug')"/>

<input type="button" value="Character" onclick="overlayMenu('debugCharacter', 'debug')"/>

<input type="button" value="Events" onclick="overlayMenu('debugEvents', 'debug')"/>

<<if $debugMenu[1] is "debugMain">>

Main

		<<debugMain>>

<<else>>

Main

		<<debugMain>>

<</if>>

<<if $debugMenu[1] is "debugCharacter">>

Character

		<<debugCharacter>>

<<else>>

Character

		<<debugCharacter>>

<</if>>

<<if $debugMenu[1] is "debugEvents">>

Events

		<<debugEvents>>

<<else>>

Events

		<<debugEvents>>

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

<<widget "debugMain">><<nobr>>

Allure: <<print $allure>>

Rng: <<print $rng>>

Danger: <<print $danger>>

<input type="button" id="backwords" value="Back" onclick="SugarCube.State.backward()"/>

<<link [[test|Test]]>><<set $molestationstart to 0>><</link>>

[[Home|Bedroom]]

<<link [[Strip|$passage]]>><<undressclothes "wardrobe">><</link>>

<<link [[Pass 1 hour|$passage]]>><<pass 60>><</link>>

<<link [[Pass 3 hours|$passage]]>><<pass 3 hours>><</link>>

<<link [[Pass 6 hours|$passage]]>><<pass 6 hours>><</link>>

<<link [[Pass 12 hours|$passage]]>><<pass 12 hours>><</link>>

<<link [[Pass 18 hours|$passage]]>><<pass 18 hours>><</link>>

<<link [[Pass 23 hours|$passage]]>><<pass 23 hours>><</link>>

<<link [[Pass 24 hours|$passage]]>><<pass 24 hours>><</link>>

<<link [[Trust me|$passage]]>><<set $enemytrust += 2000>><</link>>

<<link [[Hate me|$passage]]>><<set $enemytrust -= 2000>><<set $enemyanger += 1000>><</link>>

<<link [[Super Punch|$passage]]>><<set $enemyhealth to 0>><</link>>

<<link [[Super Stroke|$passage]]>><<set $enemyarousal to $enemyarousalmax>><</link>>

<<link [[Frigify|$passage]]>><<set $enemyarousal to 0>><</link>>

<<link [[RNG 1|$passage]]>><<set $rng to 1>><</link>>

<<link [[RNG 21|$passage]]>><<set $rng to 21>><</link>>

<<link [[RNG 41|$passage]]set $rng to 41>><</link>>

<<link [[RNG 61|$passage]]set $rng to 61>><</link>>

<<link [[RNG 81|$passage]]set $rng to 81>><</link>>

<<link [[RNG 100|$passage]]>><<set $rng to 100>><</link>>

<<link [[Wear sundress|$passage]]>><<upperwear 1>><</link>>

<<link [[Wear swimsuit|$passage]]>><<underlowerwear 6>><</link>>

<<link [[Testing Room]]>><<upperstrip>><<lowerstrip>><<underlowerstrip>><</link>>

<<link [[End Event|$passage]]>><<endevent>><</link>>

<<link [[Enable basic Pregnancy features|$passage]]>><<set $sexStats.anus.pregnancy.seenDoctor to 2>><<set $sexStats.anus.pregnancy.maxCount to 2>><</link>>

<<link [[Get Initial Mother Trait|$passage]]>><<set $sexStats.anus.pregnancy.motherStatus to 1>><</link>>

<<link [[Fertilize New Eggs|$passage]]>><<fertilize>><</link>>

<<link [[Pregnancy Progress Day|$passage]]>><<pregProgressDay>><</link>>

<<link [[Pregnancy Progress Week|$passage]]>>
	<<pregProgressDay>>
	<<pregProgressDay>>
	<<pregProgressDay>>
	<<pregProgressDay>>
	<<pregProgressDay>>
	<<pregProgressDay>>
	<<pregProgressDay>>
<</link>>

<<link [[Set all pregnancy events to next $pass|$passage]]>>
	<<set _pregnancy to $sexStats.anus.pregnancy>>
	<<if _pregnancy[0] isnot null>><<set _pregnancy[0].timeLeft to 1>><</if>>
	<<if _pregnancy[1] isnot null>><<set _pregnancy[1].timeLeft to 1>><</if>>
	<<if _pregnancy[2] isnot null>><<set _pregnancy[2].timeLeft to 1>><</if>>
	<<if _pregnancy[3] isnot null>><<set _pregnancy[3].timeLeft to 1>><</if>>
<</link>>

These still require Fertilize

<<link [[Get Pregnant with a eel|$passage]]>><<impregnate "eels" 1000>><</link>>

<<link [[Get Pregnant with a slime|$passage]]>><<impregnate "slimes" 1000>><</link>>

<<link [[Get Pregnant with a worm|$passage]]>><<impregnate "worms" 1000>><</link>>

<<link [[Get Pregnant with a tentacle|$passage]]>><<impregnate "tentacle" 1000>><</link>>

<<link [[Repair Pregnancy Objects|$passage]]>><<prenancyObjectRepair>><</link>>

<<link [[Reset Pregnancy Objects|$passage]]>><<unset $container>><<unset $sexStats.anus>><<physicalAdjustmentsInit>><<containersInit>><</link>>

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

<<widget "debugCharacter">><<nobr>>

<<if $alluretest is 1>>
<<link [[Stop Being Alluring|$passage]]>><<set $alluretest to 0>><</link>>

<<else>>
<<link [[Become Alluring|$passage]]>><<set $alluretest to 1>><</link>>

<</if>>
<<link [[Fame|$passage]]>><<set $fame += 4000>><<famescrap 1000>><<famebusiness 1000>><<famegood 1000>><<famepimp 1000>><<set $fameexhibitionism += 1000>><<set $famesex += 1000>><<set $famerape += 1000>><<set $famebestiality += 1000>><<set $fameprostitution += 1000>><</link>>

<<link [[Fame Sex|$passage]]>><<set $fame += 4000>><<set $famesex += 4000>><</link>>

<<link [[Timer|$passage]]>><<set $timer -= 60>><</link>>

<<link [[Size Up|$passage]]>><<set $devlevel += 1>><</link>>

<<link [[Stress|$passage]]>><<set $stress to $stress + 5000>><</link>>

<<link [[Destress|$passage]]>><<set $stress to $stress - 5000>><</link>>

<<link [[Traumatise me|$passage]]>><<set $trauma to $trauma + 2000>><</link>>

<<link [[DeTraumatise me|$passage]]>><<set $trauma to $trauma - 2000>><</link>>

<<link [[Exhibitionism|$passage]]>><<set $exhibitionism to $exhibitionism + 20>><</link>>

<<link [[Promiscuity|$passage]]>><<set $promiscuity to $promiscuity + 20>><</link>>

<<link [[Deviancy|$passage]]>><<set $deviancy to $deviancy + 20>><</link>>

<<link [[Full Lewd|$passage]]>><<set $promiscuity to $promiscuity + 100>><<set $exhibitionism to $exhibitionism + 100>><<set $deviancy += 100>><</link>>

<<link [[Beauty|$passage]]>><<set $beauty to $beauty + 10000>><</link>>

<<link [[Physique|$passage]]>><<set $physique to $physique + 2000>><</link>>

<<link [[Sunlight|$passage]]>><<set $weather to "clear">><</link>>

<<link [[Booze|$passage]]>><<set $drunk += 60>><</link>>

<<link [[Drugged|$passage]]>><<set $drugged += 600>><</link>>

<<link [[Hallucinogen|$passage]]>><<set $hallucinogen += 600>><</link>>

<<link [[Seduction|$passage]]>><<set $seductionskill to $seductionskill + 200>><</link>>

<<link [[Skulduggery|$passage]]>><<set $skulduggery to $skulduggery + 200>><</link>>

<<link [[Crime|$passage]]>><<set $crime to $crime + 500>><<set $crimehistory += 500>><</link>>

<<link [[Bind|$passage]]>><<set $leftarm to "bound">><<set $rightarm to "bound">><</link>>

<<link [[UnBind|$passage]]>>
<<set $leftarm to 0>><<set $rightarm to 0>>
<<set $leftboundcarry to 0>>><<set $rightboundcarry to 0>>
<</link>>

<<link [[Breasts up|$passage]]>><<set $breastsize += 1>><</link>>

<<link [[Breasts down|$passage]]>><<set $breastsize -= 1>><</link>>

<<link [[Butt up|$passage]]>><<set $bottomsize += 1>><</link>>

<<link [[Butt down|$passage]]>><<set $bottomsize -= 1>><</link>>

<<link [[Penis up|$passage]]>><<set $penissize += 1>><</link>>

<<link [[Penis down|$passage]]>><<set $penissize -= 1>><</link>>

<<link [[Balls up|$passage]]>><<set $ballssize += 1>><</link>>

<<link [[Balls down|$passage]]>><<set $ballssize -= 1>><</link>>

<<link [[Fame|$passage]]>><<set $fame += 4000>><<set $fameexhibitionism += 1000>><<set $famesex += 1000>><<set $famerape += 1000>><<set $famebestiality += 1000>><<set $fameprostitution += 1000>><</link>>

<<link [[Fame Sex|$passage]]>><<set $fame += 4000>><<set $famesex += 4000>><</link>>

<<link [[Timer|$passage]]>><<set $timer -= 60>><</link>>

<<link [[Stress|$passage]]>><<set $stress += 5000>><</link>>

<<link [[Destress|$passage]]>><<set $stress -= 5000>><</link>>

<<link [[Traumatise me|$passage]]>><<set $trauma += 2000>><</link>>

<<link [[DeTraumatise me|$passage]]>><<set $trauma -= 2000>><</link>>

<<link [[Exhibitionism|$passage]]>><<set $exhibitionism += 20>><</link>>

<<link [[Promiscuity|$passage]]>><<set $promiscuity += 20>><</link>>

<<link [[Full Lewd|$passage]]>><<set $promiscuity += 100>><<set $exhibitionism += 100>><<set $deviancy += 100>><</link>>

<<link [[Beauty|$passage]]>><<set $beauty += 10000>><</link>>

<<link [[Physique|$passage]]>><<set $physique += 2000>><</link>>

<<link [[Sunlight|$passage]]>><<set $weather to "clear">><</link>>

<<link [[Booze|$passage]]>><<set $drunk += 60>><</link>>

<<link [[Drugged|$passage]]>><<set $drugged += 600>><</link>>

<<link [[Hallucinogen|$passage]]>><<set $hallucinogen += 600>><</link>>

<<link [[Seduction|$passage]]>><<set $seductionskill += 200>><</link>>

<<link [[Skulduggery|$passage]]>><<set $skulduggery += 200>><</link>>

<<link [[Crime|$passage]]>><<set $crime += 500>><</link>>

<<link [[Chastity Belt|$passage]]>><<underlowerwear 5>><</link>>

<<link [[Collar|$passage]]>><<neckwear 1>><</link>>

<<link [[Bind|$passage]]>><<set $leftarm to "bound">><<set $rightarm to "bound">><</link>>

<<link [[Money|$passage]]>><<set $money += 500000>><</link>>

<<link [[Grow hair|$passage]]>><<set $hairlength += 100>><</link>>

<<link [[Grow fringe|$passage]]>><<set $fringelength += 100>><</link>>

<<link [[Arousal|$passage]]>><<set $arousal += 10000>><</link>>

<<link [[Arousal down|$passage]]>><<set $arousal -= 10000>><</link>>

<<link [[Parasite|$passage]]>><<parasite nipples urchin>><</link>>

<<link [[Chastity Parasite|$passage]]>><<set $analchastityparasite to "worms">><</link>>

<<link [[Month|$passage]]>><<set $monthday += 31>><<day>><</link>>

<<link [[Delinquency|$passage]]>><<set $delinquency += 1000>><</link>>

<<link [[Detention|$passage]]>><<set $detention += 10>><</link>>

<<link [[School Marks|$passage]]>><<set $school += 8000>><<set $science += 800>><<set $maths += 800>><<set $english += 800>><<set $history += 800>><</link>>

<<link [[All Skills|$passage]]>><<set $school += 448>><<set $science += 112>><<set $maths += 112>><<set $english += 112>><<set $history += 112>><<set $skulduggery += 112>><<set $danceskill += 112>><<set $swimmingskill += 112>><<set $bottomskill += 112>><<set $seductionskill += 112>><<set $handskill += 112>><<set $feetskill += 112>><<set $chestskill += 112>><<set $thighskill += 112>><<set $oralskill += 112>><<set $analskill += 112>><<set $vaginalskill += 112>><<set $penileskill += 112>><</link>>

<<link [[All Skills Super|$passage]]>><<set $school += 4000>><<set $science += 1000>><<set $maths += 1000>><<set $english += 1000>><<set $history += 1000>><<set $skulduggery += 1000>><<set $danceskill += 1000>><<set $swimmingskill += 1000>><<set $bottomskill += 1000>><<set $seductionskill += 1000>><<set $handskill += 1000>><<set $feetskill += 1000>><<set $chestskill += 1000>><<set $thighskill += 1000>><<set $oralskill += 1000>><<set $analskill += 1000>><<set $vaginalskill += 1000>><<set $penileskill += 1000>><</link>>

<<link [[Status|$passage]]>><<set $cool += 400>><</link>>

<<link [[Status Down|$passage]]>><<set $cool -= 400>><</link>>

<<link [[Destroy Swimming Outfits|$passage]]>><<set $upperschoolswimsuitno to 0>><<set $lowerschoolswimsuitno to 0>><<set $schoolswimshortsno to 0>><</link>>

<<link [[Towels|$passage]]>><<clothesontowel>><</link>>

<<link [[Submission|$passage]]>><<set $submissive += 250>><</link>>

<<link [[Defiance|$passage]]>><<set $submissive -= 250>><</link>>

<<link [[Imprison Me|Underground Intro2]]>><<generate1>><<person1>><</link>>

<<link [[Towels Please|$passage]]>><<towelup>><</link>>

<<link [[Pain Up|$passage]]>><<set $pain += 50>><</link>>

<<link [[Pain Down|$passage]]>><<set $pain -= 50>><</link>>

<<link [[Robin Love|$passage]]>><<set $NPCName[$NPCNameList.indexOf("Robin")].love += 100>><<set $NPCName[$NPCNameList.indexOf("Robin")].lust += 100>><</link>>

<<link [[Robin Note|$passage]]>><<set $robinnote to 1>><</link>>
<<link [[Robin Romance|$passage]]>><<set $robinromance to 1>><</link>>

<<link [[Stats Up|$passage]]>>
<<set $orgasmstat += 2000>>
<<set $ejacstat += 2000>>
<<set $moleststat += 2000>>
<<set $rapestat += 1000>>
<<set $beastrapestat += 500>>
<<set $tentaclerapestat += 200>>
<<set $swallowedstat += 100>>
<<set $prostitutionstat += 10>>
<</link>>

<<link [[Almost Destroy Lowerclothes|$passage]]>><<set $worn.lower.integrity to 1>><</link>>

<<link [[Almost Destroy Upperclothes|$passage]]>><<set $worn.upper.integrity to 1>><</link>>

<<link [[Almost Destroy Underclothes|$passage]]>><<set $worn.under_lower.integrity to 1>><</link>>

<<link [[Almost Destroy Underupperclothes|$passage]]>><<set $worn.under_upper.integrity to 1>><</link>>

<<link [[Damage Lowerclothes|$passage]]>><<set $worn.lower.integrity -= 200>><</link>>

<<link [[Damage Upperclothes|$passage]]>><<set $worn.upper.integrity -= 200>><</link>>

<<link [[Damage Underupperclothes|$passage]]>><<set $worn.under_upper.integrity -= 200>><</link>>

<<link [[Damage Underclothes|$passage]]>><<set $worn.under_lower.integrity -= 200>><</link>>

<<link [[Swimming Skill|$passage]]>><<set $swimmingskill += 100>><</link>>

<<link [[Disable Hands|$passage]]>><<set $NPCList[0].lefthand to 0>><<set $NPCList[0].righthand to 0>><</link>>

<<link [[Purity Down|$passage]]>><<set $purity -= 500>><</link>>

<<if $wolfgirl is 6>>
<<link [[Wolf off|$passage]]>><<set $wolfgirl to 0>><</link>>

<<else>>
<<link [[Wolf up|$passage]]>><<set $wolfgirl += 1>><</link>>

<</if>>

<<link [[Wolf build up|$passage]]>><<set $wolfbuild += 40>><</link>>

<<link [[Wolf build down|$passage]]>><<set $wolfbuild -= 40>><</link>>

<<link [[Angel build up|$passage]]>><<set $angelbuild += 40>><</link>>

<<link [[Angel build down|$passage]]>><<set $angelbuild -= 40>><</link>>

<<link [[Demon build up|$passage]]>><<set $demonbuild += 40>><</link>>

<<link [[Demon build down|$passage]]>><<set $demonbuild -= 40>><</link>>

<<link [[Awareness up|$passage]]>><<set $awareness += 200>><</link>>

<<link [[Awareness down|$passage]]>><<set $awareness -= 200>><</link>>

<<link [[Goo Me|$passage]]>><<set $necksemen += 4>><<set $anussemen += 5>><<set $anusgoo += 5>><<set $bottomsemen += 5>><<set $bottomgoo += 5>><</link>>

<<link [[Goo Me Small|$passage]]>><<set $necksemen += 1>><</link>>

<<link [[Undertemp off|$passage]]>><<set $undertemp to 0>><</link>>

<<link [[Drench me|$passage]]>><<set $upperwet to 200>><<set $lowerwet to 200>><<set $underwet to 200>><</link>>

<<link [[Bully Timer|$passage]]>><<set $bullytimer to 100>><<set $bullytimeroutside to 100>><</link>>

<<link [[Whitney Lower Dominance|$passage]]>><<set $NPCName[$NPCNameList.indexOf("Whitney")].dom -= 20>><</link>>

<<link [[Whitney Raise Dominance|$passage]]>><<set $NPCName[$NPCNameList.indexOf("Whitney")].dom += 20>><</link>>

<<link [[Whitney Love|$passage]]>><<set $NPCName[$NPCNameList.indexOf("Whitney")].love += 20>><<set $NPCName[$NPCNameList.indexOf("Whitney")].lust += 20>><</link>>

<<link [[Pub Whore|$passage]]>><<set $pubwhore += 10>><</link>>

<<link [[Make Creature|$passage]]>><<beasttype bear>><</link>>

<<link [[Full Spray|$passage]]>><<set $spraymax to 5>><<spray 5>><</link>>

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

<<widget "debugEvents">><<nobr>>

<<link [[Start Robin Event|$passage]]>><<set $robindebt to 9>><</link>>

<<link [[School Start|Oxford Street]]>><<pass 1 day>><</link>>

<<link [[Rape Me->Molestation]]>><<set $molestationstart to 1>><</link>>

<<link [[Double Rape Me->Forest Molestation]]>><<set $molestationstart to 1>><</link>>

<<link [[Gang Rape Me w/ Audience->Brothel Dance Rape]]>><<generate1>><<generate2>><<generate3>><<generate4>><<generate5>><<generate6>><<person1>><<set $molestationstart to 1>><</link>>

<<link [[Gang Rape Me w/ Students->Brothel Dance Rape]]>><<generatey1>><<generatey2>><<generatey3>><<generatey4>><<generatey5>><<generatey6>><<person1>><<set $molestationstart to 1>><</link>>

<<link [[Sex Me|Beach Day Encounter Sex]]>><<generate1>><<person1>><<set $sexstart to 1>><</link>>

<<link [[Gang Sex Me with Audience->Maths Lesson Gang Bang]]>><<set $sexstart to 1>><</link>>

<<link [[DP Test]]>><<set $molestationstart to 1>><</link>>

<<link [[Bus Rape->Bus move]]>><<generate1>><<person1>><<set $molestationstart to 1>><</link>>

<<link [[Monster Rape Me->Monster Test]]>><<set $molestationstart to 1>><</link>>

<<link [[Beast Rape Me|Street Dogs]]>><<set $molestationstart to 1>><</link>>

<<link [[Beast Sex Me|Sea Dolphins Sex]]>><<set $sexstart to 1>><</link>>

<<link [[Tentacle Rape Me|Sea Tentacles]]>><<set $molestationstart to 1>><</link>>

<<link [[Bailey Test->Bus move]]>><<set $molestationstart to 1>><<npc Bailey>><<person1>><</link>>

<<link [[Leighton Test->Bus move]]>><<set $molestationstart to 1>><<npc Leighton>><<person1>><</link>>

<<link [[Enslave Me->Underground Intro]]>><<generate1>><<generate2>><<person1>><</link>>

<<link [[Work as a dancer|Brothel Dance]]>><<set $dancing to 1>><<set $venuemod to 3>><<stress -4>><<tiredness 4>><<set $dancelocation to "brothel">><</link>>

<<link [[Eden Start|Eden Cabin]]>><<set $syndromeeden to 1>><<set $NPCName[$NPCNameList.indexOf("Eden")].lust to 0>><<set $edenshrooms to 0>><<set $edengarden to 0>><<set $edenspring to 0>><</link>>

<<link [[Kylar Basement Rape|Kylar Basement Rape]]>><<set $molestationstart to 1>><<npc Kylar>><<person1>><</link>>

<<link [[Kylar Sex|Street Kylar Sex]]>><<set $sexstart to 1>><<set $location to "town">><<npc Kylar>><<person1>><</link>>

<<link [[Robin Sex Start|Bed Robin Sex]]>><<set $sexstart to 1>><<npc Robin>><<person1>><</link>>

<<link [[Briar Pay Refuse|Brothel Pay Refuse]]>><<set $molestationstart to 1>><<npc Briar>><<generate2>><<generate3>><<person1>><</link>>

<<link [[Leighton Sex|Head's Office Photoshoot Sex]]>><<set $sexstart to 1>><<set $phase to 1>><<npc Leighton>><<person1>><</link>>

<<link [[Leighton Forced|Head's Office Blackmail Rape]]>><<set $molestationstart to 1>><<npc Leighton>><<person1>><</link>>

<<link [[Avery Date|Domus Street]]>><<set $averydate to 1>><<set $time to 1200>><</link>>

<<link [[Black Wolf Forced|Forest Wolf Molestation]]>><<set $molestationstart to 1>><</link>>

<<link [[Police Pillory Start|Police Pillory Start]]>><<set $crime to 5000>><<generate1>><<person1>><</link>>

<<link [[Brothel Punishment]]>><</link>>

<<link [[Brothel Gloryhole]]>><</link>>

<<link [[Clothing Shop|Clothing Shop]]>><</link>>

<<link [[Wolf Pack|Forest Wolf Cave]]>><<set $wolfpacktrust to 12>><</link>>

<<link [[Halloween|$passage]]>><<set $days to 47>><<set $monthday to 21>><<set $month to "october">><</link>>

<<link [[Test|$passage]]>><<set $month to "october">><</link>>

<<link [[Wake up|Ambulance rescue]]>><<pass 1 hour>><</link>>

<<link [[Appointment|Hospital Foyer]]>><<set $weekday to 6>><<set $time to 960>><</link>>

<<link [[Deep forest|Forest]]>><<set $forest to 80>><</link>>

<<link [[Penis Inspection|Penis Inspection]]>><<pass 1 week>><<pass 1 week>><<npc Leighton>><<person1>><</link>>

<<link [[Breast Inspection|Breast Inspection]]>><<pass 1 week>><<pass 1 week>><<npc Leighton>><<person1>><</link>>

<<link [[Science Class Exposure|Science Event3]]>><<set $scienceprogression to 3>><<set $delinquency to 600>><</link>>

<<link [[History Class Pillory|History Lesson Pillory]]>><</link>>

<<link [[Water Balloon]]>><</link>>

<<link [[NNPC Parade]]>><</link>>

Turn beast into: <<link [[Creature|$passage]]>><<set $beasttype to "creature">><</link>>

<<link [[Dog|$passage]]>><<set $beasttype to "dog">><</link>>

<<link [[Wolf|$passage]]>><<set $beasttype to "wolf">><</link>>

<<link [[Dolphin|$passage]]>><<set $beasttype to "dolphin">><</link>>

<<link [[Bear|$passage]]>><<set $beasttype to "bear">><</link>>

<<link [[Boar|$passage]]>><<set $beasttype to "boar">><</link>>

<<link [[Pig|$passage]]>><<set $beasttype to "pig">><</link>>

<<link [[Lizard|$passage]]>><<set $beasttype to "lizard">><</link>>

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


code:
:: NNPC Parade [nobr]

TOTAL NAMED NPCS: $NPCName.length

/% <<npc Robin>> %/
/% In walks $npc, and takes a bow. <<He>> has more Trauma now. And out <<he>> goes.
 %/
/% <<npcset $npc trauma 80>> %/
/% <<npcincr $npc trauma 100>> %/
/% <<set $robinromance to 1>> %/
/% <<npcrelationship Robin>> %/
/% <<endnpc>> %/
/%
 %/
/% <<npcrelationship Charlie>> %/
/%
 %/

<<for _i = 0; _i lt $NPCName.length; _i++>>
	<<npc $NPCName[_i].nam>>

	Introducing NPC Number <<print _i>>: $NPCName[_i].nam the $NPCName[_i].title

	PRONOUN: $NPCName[_i].pronoun GENDER: $NPCName[_i].gender

	PPSize,Desc: $NPCName[_i].penissize, $NPCName[_i].penisdesc BREASTSize,Desc: $NPCName[_i].breastsize, $NPCName[_i].breastsdesc

	TYPE: <<if $NPCName[_i].adult>>Adult<<elseif $NPCName[_i].teen>>Teen<<else>>???<</if>>  INSECURITY: $NPCName[_i].insecurity

	TRUST: $NPCName[_i].trust LOVE: $NPCName[_i].love DOM: $NPCName[_i].dom LUST $NPCName[_i].lust RAGE: $NPCName[_i].rage TRAUMA $NPCName[_i].trauma

	STATE: $NPCName[_i].state

	You have <<if $NPCName[_i].init is 1>>been introduced to <<himstop>><<else>>not been introduced to <<himstop>><</if>>

	<<endnpc $NPCName[_i].nam>>
<</for>>

/% <<npcSettings-ALT>> %/

[[Next|Bedroom]]

:: Water Balloon [nobr]

<<street10>>
[[Next|Domus Street]]

:: 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>>
		<<link [[Next->Abomination]]>><</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->Abomination]]>><</link>><<nexttext>>
		<<else>>
			<<link [[Next->Abomination]]>><</link>><<nexttext>>
		<</if>>
	<</if>>
<<elseif $enemyarousal gte $enemyarousalmax>>
	<<link [[Next->Abomination]]>><</link>><<nexttext>>
<<elseif $enemyhealth lte 0>>
	<<link [[Next->Abomination]]>><</link>><<nexttext>>
<<else>>
	<<link [[Next->Abomination]]>><</link>><<nexttext>>
<</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">>
<<tentaclestart 6 15>>

<<set $vorestage to 1>>
<<set $vorecreature to "whale">>
<<set $vorestrength to 1>><<set $position to "doggy">>
	<<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 $NPCList[0].penis to "vagina">><<set $vaginause to "penis">><<set $vaginastate to "penetrated">>
<<set $NPCList[1].penis 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>>
		<<link [[Next->Wolf Pack Alarm]]>><</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|Wolf Pack Ejaculation]]>><</link>><<nexttext>>
			<<elseif $enemyhealth lte 0>>
			<<link [[Next->Wolf Pack Escape]]>><</link>><<nexttext>>
			<<else>>
			<<link [[Next|Wolf Pack]]>><</link>><<nexttext>>
			<</if>>
		<</if>>
	<<elseif $enemyarousal gte $enemyarousalmax>>
	<<link [[Next->Wolf Pack Ejaculation]]>><</link>><<nexttext>>
	<<elseif $enemyhealth lte 0>>
	<<link [[Next->Wolf Pack Escape]]>><</link>><<nexttext>>
	<<else>>
	<<link [[Next->Wolf Pack]]>><</link>><<nexttext>>
	<</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 "Sex">><<if $player.gender is "f">>
<<set $vaginaexist to 0>><<set $player.gender to "m">><<set $penisexist to 1>>
<<else>><<set $penisexist to 0>><<set $player.gender to "f">><<set $vaginaexist to 1>><</if>>
<<goto "Testing Room">><</link>> |
<<link "Gender">><<if $player.sex is "f">>
<<set $vaginaexist to 0>><<set $player.sex to "m">><<set $penisexist to 1>>
<<else>><<set $penisexist to 0>><<set $player.sex 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 $parasite.nipples.name is undefined>><<parasite nipples urchin>>
<<else>><<removeparasite nipples>><</if>>
<<goto "Testing Room">><</link>> |
<<link "Penis">>
<<if $parasite.penis.name is undefined>><<parasite penis urchin>>
<<else>><<removeparasite penis>><</if>>
<<goto "Testing Room">><</link>> |
<<link "Clit">>
<<if $parasite.clit.name is undefined>><<parasite clit urchin>>
<<else>><<removeparasite clit>><</if>>
<<goto "Testing Room">><</link>>

Upper Clothes: <<link "<<">><<set $worn.upper.integrity -= 10>><<goto "Testing Room">><</link>>
<<link "<">><<set $worn.upper.integrity -= 1>><<goto "Testing Room">><</link>>
Integrity (<<= $worn.upper.integrity>>)
<<link ">">><<set $worn.upper.integrity += 1>><<goto "Testing Room">><</link>>
<<link ">>">><<set $worn.upper.integrity += 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 $worn.lower.integrity -= 10>><<goto "Testing Room">><</link>>
<<link "<">><<set $worn.lower.integrity -= 1>><<goto "Testing Room">><</link>>
Integrity (<<= $worn.lower.integrity>>)
<<link ">">><<set $worn.lower.integrity += 1>><<goto "Testing Room">><</link>>
<<link ">>">><<set $worn.lower.integrity += 10>><<goto "Testing Room">><</link>> |
<<link "<">><<set $lowerwet -= 100>><<goto "Testing Room">><</link>>
Wet (<<= $lowerwet>>)
<<link ">">><<set $lowerwet += 1>><<goto "Testing Room">><</link>>

Under Bottoms: <<link "<<">><<set $worn.under_lower.integrity -= 10>><<goto "Testing Room">><</link>>
<<link "<">><<set $worn.under_lower.integrity -= 1>><<goto "Testing Room">><</link>>
Integrity (<<= $worn.under_lower.integrity>>)
<<link ">">><<set $worn.under_lower.integrity += 1>><<goto "Testing Room">><</link>>
<<link ">>">><<set $worn.under_lower.integrity += 10>><<goto "Testing Room">><</link>> |
<<link "<">><<set $underlowerwet -= 100>><<goto "Testing Room">><</link>>
Wet (<<= $underlowerwet>>)
<<link ">">><<set $underlowerwet += 1>><<goto "Testing Room">><</link>>

Under Top: <<link "<<">><<set $worn.under_upper.integrity -= 10>><<goto "Testing Room">><</link>>
<<link "<">><<set $worn.under_upper.integrity -= 1>><<goto "Testing Room">><</link>>
Integrity (<<= $worn.under_upper.integrity>>)
<<link ">">><<set $worn.under_upper.integrity += 1>><<goto "Testing Room">><</link>>
<<link ">>">><<set $worn.under_upper.integrity += 10>><<goto "Testing Room">><</link>> |
<<link "<">><<set $underupperwet -= 100>><<goto "Testing Room">><</link>>
Wet (<<= $underupperwet>>)
<<link ">">><<set $underupperwet += 1>><<goto "Testing Room">><</link>>

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

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


code:
:: 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 $endeventerror isnot undefined>>
	<<if $debugdisable is "f">>
<<if $images is 1>><</if>>Error: An NPC generated on the "$endeventerror" passage broke free. Please inform Vrelnir. <<if $cheatdisable is "f">>Disregard this if you've just used a cheat.<</if>>

	<</if>>
<<unset $endeventerror>>
<</if>>

<<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 !$lessonmissedtext>>
<<else>>
	<<if $lessonmissedtext is 1>>
	You missed a lesson yesterday.
	<<elseif $lessonmissedtext gte 2>>
	You missed $lessonmissedtext lessons yesterday.
	<</if>>
	<<if $lessonmissed gte 50>>
	You've missed many lessons. The police have been informed.<<crimeup 25>>
	<</if>>
	<<set $lessonmissedtext to 0>>

<</if>>
<<if $images is 1>>

	<<if $dev is 1>>
	<<set $money = Math.trunc($money)>>
	£<<print ($money / 100)>>.
	<<else>>
	£<<print Math.trunc($money / 100)>>.<<if $money % 100 lte 9>>0<</if>><<print $money % 100>>
	<</if>>

	<<effectstime>>

	<<if $timestyle is "ampm">>
		<<if $hour gte 13>>
		<<print ($hour - 12)>>:<<print ($time - $hour * 60).toString().padStart(2, "0")>> pm.
		<<else>>
		$hour:<<print ($time - $hour * 60).toString().padStart(2, "0")>> <<if $hour is 12>>pm<<else>>am.<</if>>
		<</if>>
	<<else>>
	<<if $hour lt 10>>0<</if>>$hour:<<print ($time - $hour * 60).toString().padStart(2, "0")>>
	<</if>>

	<<switch $weekday>>
	<<case 1>>Sun<<case 2>>Mon<<case 3>>Tue<<case 4>>Wed<<case 5>>Thu<<case 6>>Fri<<case 7>>Sat
	<</switch>>

<<else>>
	<<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>>
	<<if $timestyle is "ampm">>
		<<if $hour gte 13>>
		It is <<print ($hour - 12)>>:<<print ($time - $hour * 60).toString().padStart(2, "0")>> pm

		<<else>>
		It is $hour:<<print ($time - $hour * 60).toString().padStart(2, "0")>> <<if $hour is 12>>pm<<else>>am<</if>>

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

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

<</if>>
<<schoolday>>

<<clothingcaption>>

<<stripcaption>>
<<if $player.gender is "m">>
	<<if $player.gender isnot $player.appearance>>
		<<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 $player.gender is "f">>
	<<if $player.gender isnot $player.appearance>>
		<<if $breastindicator is 0 and $worn.upper.exposed is 2 and $worn.under_upper.exposed gte 1>>
		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.4>>
<<elseif $exposed gte 1>>
<<set $exposedmod to 1.2>>
<<else>>
<<set $exposedmod to 1>>
<</if>>

<<set $allure to (($beauty / 3) + $hairlength / 4 + $worn.upper.reveal + $worn.lower.reveal)>>
<<if $worn.upper.type.includes("naked")>><<set $allure += $worn.under_upper.reveal>><</if>>
<<if $worn.lower.type.includes("naked")>><<set $allure += $worn.under_lower.reveal>><</if>>
<<set $allure *= $nightmod>>
<<set $allure *= $exposedmod>>
<<set $allure += $worn.head.reveal>>
<<set $allure += $worn.face.reveal>>
<<set $allure += $worn.neck.reveal>>
<<set $allure += $worn.legs.reveal>>
<<set $allure += $worn.feet.reveal>>
<<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>>
<<if $cat gte 6>><<set $allure += 500>><</if>>
<<goocount>><<set $allure += ($goocount * 50) + ($semencount * 50)>>

<<set $allure -= $famescrap>>
<<set $allure -= $famegood>>
	<<if $dev is 1>>
	<<set $allure -= $famepimp>>
	<<set $allure -= $famebusiness>>
	<</if>>
<<if $moonstate is "evening" and $hour gte 21 or $moonstate is "morning" and $hour lte 6>>
<<set $allure += 2000>>
<</if>>
<<set $allure *= $alluremod>>
<<if $allure gte 8000 * $alluremod>><<set $allure to 8000 * $alluremod>><</if>>

<<set $attractiveness to (($beauty / 3) + $hairlength / 4 + $worn.upper.reveal + $worn.lower.reveal)>>
<<if $worn.upper.type.includes("naked")>><<set $attractiveness += $worn.under_upper.reveal>><</if>>
<<if $worn.lower.type.includes("naked")>><<set $attractiveness += $worn.under_lower.reveal>><</if>>
<<set $attractiveness += $worn.head.reveal>>
<<set $attractiveness += $worn.face.reveal>>
<<set $attractiveness += $worn.neck.reveal>>
<<set $attractiveness += $worn.legs.reveal>>
<<set $attractiveness += $worn.feet.reveal>>
<<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 $cat gte 6>><<set $attractiveness += 500>><</if>>
<<set $rng to random(1, 100)>>

<<if $worn.neck.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 $parasite.nipples.name>>
The $parasite.nipples.name parasites clinging to your nipples suck and massage you.

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

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

<</if>>
<<if $parasite.bottom.name>>
The $parasite.bottom.name parasite clinging to your bottom 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>>

<<button CHARACTERISTICS>>
	<<overlayReplace "characteristics">>
<</button>>

<<button TRAITS>>
	<<overlayReplace "traits">>
<</button>>

<<button SOCIAL>>
	<<overlayReplace "social">>
<</button>>

<<button STATISTICS>>
	<<overlayReplace "statistics">>
<</button>>

<<if $dancing is 0 and $combat is 0 and $cheatdisable is "f">>
	<<button CHEATS>>
		<<overlayReplace "cheats">>
	<</button>>
<</if>>

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

<<else>>

<<versioninfo>>

<</if>>

<<button SAVES/OPTIONS>>
	<<overlayReplace "options">>
<</button>>
<<if $enabledOldSaveMenu is true>>
	<<button SAVE/LOAD>>
		<>
	<</button>>
<</if>>

<<set $currentOverlay to null>>

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

<<if $worn.upper.name is "naked">>
	<<if $worn.lower.name is "naked">>
		<<if $worn.under_lower.name is "naked">>
			<<if $worn.under_upper.name is "naked">>
			You are completely naked!
			<<else>>
			Your bottom half is completely exposed! Your <<underupperintegrity>> <<underupperclothescolour>> $worn.under_upper.name <<if $worn.under_upper.plural is 1>>give<<else>>gives<</if>> little comfort.
			<</if>>
		<</if>>
		<<if $worn.under_lower.name isnot "naked">>
			<<if $worn.under_upper.name is "naked">>
			You are wearing nothing but a <<if !$worn.under_lower.type.includes("chastity")>>pair of <</if>><<underlowerintegrity>> <<underlowerclothescolour>> $worn.under_lower.name.
			<<else>>
				<<if $worn.under_lower.set is $worn.under_upper.set>>
				You are wearing nothing but <<underupperword>> <<underupperintegrity>> <<underupperclothescolour>> $worn.under_upper.name.
				<<else>>
				You are wearing a <<if !$worn.under_lower.type.includes("chastity")>>pair of <</if>><<underlowerintegrity>> <<underlowerclothescolour>> $worn.under_lower.name and <<underupperword>> <<underupperintegrity>> <<underupperclothescolour>> $worn.under_upper.name.
				<</if>>
			<</if>>
		<</if>>
	<</if>>
	<<if $worn.lower.name isnot "naked">>
		<<if $worn.under_lower.name is "naked">>
			<<if $worn.under_upper.name is "naked">>
			You are topless and wearing no underwear but your lower half is covered by <<lowerword>> <<lowerintegrity>> <<lowerclothescolour>> $worn.lower.name.
			<<else>>
			You are wearing <<underupperword>> <<underupperintegrity>> <<underupperclothescolour>> $worn.under_upper.name and <<lowerword>> <<lowerintegrity>> <<lowerclothescolour>> $worn.lower.name, with nothing underneath.
			<</if>>
		<</if>>
		<<if $worn.under_lower.name isnot "naked">>
			<<if $worn.under_upper.name is "naked">>
			You are topless with <<lowerword>> <<lowerintegrity>> <<lowerclothescolour>> $worn.lower.name and <<underlowerword>> <<underlowerintegrity>> <<underlowerclothescolour>> $worn.under_lower.name.
			<<else>>
			Your lower half is covered by <<lowerword>> <<lowerintegrity>> <<lowerclothescolour>> $worn.lower.name and <<underlowerword>> <<underlowerintegrity>> <<underlowerclothescolour>> $worn.under_lower.name, but only <<underupperword>> <<underupperintegrity>> <<underupperclothescolour>> $worn.under_upper.name protects your chest.
			<</if>>
		<</if>>
	<</if>>
<<elseif $worn.upper.name isnot "naked">>
	<<if $worn.lower.name is "naked">>
		<<if $worn.under_lower.name is "naked">>
			<<if $worn.upper.one_piece is "broken" and $worn.lower.set isnot $worn.upper.set>>
				<<if $worn.under_upper.name is "naked">>
				You are wearing just <<upperword>> <<upperintegrity>> <<upperclothescolour>> $worn.upper.name that <<upperhas>> been torn at the waist  leaving your bottom half completely exposed!
				<<else>>
				You are wearing <<underupperword>> <<underupperintegrity>> <<underupperclothescolour>> $worn.under_upper.name beneath <<upperword>> <<upperintegrity>> <<upperclothescolour>> $worn.upper.name that <<upperhas>> been torn at the waist  leaving your bottom half completely exposed!
				<</if>>
			<<else>>
				<<if $worn.under_upper.name is "naked">>
				Your bottom half is completely exposed! Your top half is covered by <<upperword>> <<upperintegrity>> <<upperclothescolour>> $worn.upper.name, with nothing beneath.
				<<else>>
				Your bottom half is completely exposed! Your top half is covered by <<upperword>> <<upperintegrity>> <<upperclothescolour>> $worn.upper.name, with <<underupperword>> <<underupperintegrity>> <<underupperclothescolour>> $worn.under_upper.name beneath.
				<</if>>
			<</if>>
		<</if>>
		<<if $worn.under_lower.name isnot "naked">>
			<<if $worn.upper.one_piece is "broken" and $worn.lower.set isnot $worn.upper.set>>
				<<if $worn.under_upper.name is "naked">>
				You are wearing <<upperword>> <<upperintegrity>> <<upperclothescolour>> $worn.upper.name that has been torn at the waist  leaving your <<underlowerword>> <<underlowerintegrity>> <<underlowerclothescolour>> $worn.under_lower.name exposed.
				<<else>>
				You are wearing <<underupperword>> <<underupperintegrity>> <<underupperclothescolour>> $worn.under_upper.name beneath <<upperword>> <<upperintegrity>> <<upperclothescolour>> $worn.upper.name that has been torn at the waist  leaving your <<underlowerword>> <<underlowerintegrity>> <<underlowerclothescolour>> $worn.under_lower.name exposed.
				<</if>>
			<<else>>
				<<if $worn.under_upper.name is "naked">>
				You are wearing <<upperword>> <<upperintegrity>> <<upperclothescolour>> $worn.upper.name and <<underlowerword>> exposed <<underlowerintegrity>> <<underlowerclothescolour>> $worn.under_lower.name.
				<<else>>
					<<if $worn.under_upper.one_piece is 1>>
					You are wearing <<underupperword>> <<underupperintegrity>> <<underupperclothescolour>> $worn.under_upper.name beneath <<upperword>> <<upperintegrity>> <<upperclothescolour>> $worn.upper.name. Your $worn.under_upper.name is visible beneath your waist.
					<<else>>
					You are wearing <<underupperword>> <<underupperintegrity>> <<underupperclothescolour>> $worn.under_upper.name beneath <<upperword>> <<upperintegrity>> <<upperclothescolour>> $worn.upper.name and <<underlowerword>> exposed <<underlowerintegrity>> <<underlowerclothescolour>> $worn.under_lower.name.
					<</if>>
				<</if>>
			<</if>>
		<</if>>
	<</if>>
	<<if $worn.lower.name isnot "naked">>
		<<if $worn.under_lower.name is "naked">>
			<<if $worn.under_upper.name is "naked">>
			You are wearing <<upperword>> <<upperintegrity>> <<upperclothescolour>> $worn.upper.name
				<<if $worn.lower.one_piece isnot 1>>
				and <<lowerword>> <<lowerintegrity>> <<lowerclothescolour>> $worn.lower.name
				<</if>>
			<<if $worn.lower.type.includes("swim")>>and<<else>>but<</if>> you are not wearing underwear.
			<<else>>
				You are wearing <<upperword>> <<upperintegrity>> <<upperclothescolour>> $worn.upper.name
				<<if $worn.lower.one_piece isnot 1>>
				and <<lowerword>> <<lowerintegrity>> <<lowerclothescolour>> $worn.lower.name
				<</if>>
				<<if $worn.under_upper.one_piece is "broken">>
				with just <<underupperword>> <<underupperintegrity>> <<underupperclothescolour>> $worn.under_upper.name that has been torn at the waist beneath.
				<<else>>
				with just <<underupperword>> <<underupperintegrity>> <<underupperclothescolour>> $worn.under_upper.name beneath.
				<</if>>
			<</if>>
		<</if>>
		<<if $worn.under_lower.name isnot "naked">>
			<<if $worn.under_upper.name is "naked">>
			You are wearing <<upperword>> <<upperintegrity>> <<upperclothescolour>> $worn.upper.name
				<<if $worn.lower.one_piece isnot 1>>
				and <<lowerword>> <<lowerintegrity>> <<lowerclothescolour>> $worn.lower.name
				<</if>>
			with just <<underlowerword>> <<underlowerintegrity>> <<underlowerclothescolour>> $worn.under_lower.name beneath.
			<<else>>
			You are wearing <<upperword>> <<upperintegrity>> <<upperclothescolour>> $worn.upper.name
				<<if $worn.lower.one_piece isnot 1>>
				and <<lowerword>> <<lowerintegrity>> <<lowerclothescolour>> $worn.lower.name
				<</if>>
				<<if $worn.under_lower.one_piece is 1>>
				with <<underupperword>> <<underupperintegrity>> <<underupperclothescolour>> $worn.under_upper.name beneath.
				<<else>>
				with <<underlowerword>> <<underlowerintegrity>> <<underlowerclothescolour>> $worn.under_lower.name and <<underupperword>> <<underupperintegrity>> <<underupperclothescolour>> $worn.under_upper.name beneath.
				<</if>>
			<</if>>
		<</if>>
	<</if>>
<</if>>

<<if $worn.face.type.includes("mask")>>

Your identity is concealed by your $worn.face.name.
<</if>>

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

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

<<if !$worn.upper.type.includes("naked") and $upperwetstage gte 3 and !$worn.lower.type.includes("naked") and $lowerwetstage gte 3 and !$worn.under_lower.type.includes("naked") and !$worn.under_lower.type.includes("chastity") and $underlowerwetstage gte 3 and !$worn.under_upper.type.includes("naked") and $underupperwetstage gte 3>>
	<<if $worn.under_upper.set is $worn.under_lower.set>>
		<<if $worn.upper.set is $worn.lower.set>>

	Your $worn.upper.name and $worn.under_upper.name are drenched, revealing your <<breasts>> and <<genitalsstop>>

		<<else>>

	Your $worn.upper.name, $worn.lower.name and $worn.under_upper.name are drenched, revealing your <<breasts>> and <<genitalsstop>>

		<</if>>

	<<else>>
		<<if $worn.upper.set is $worn.lower.set>>

	Your $worn.upper.name, $worn.under_lower.name and $worn.under_upper.name are drenched, revealing your <<breasts>> and <<genitalsstop>>

		<<else>>

	Your $worn.upper.name, $worn.lower.name, $worn.under_lower.name and $worn.under_upper.name are drenched, revealing your <<breasts>> and <<genitalsstop>>

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

<<elseif !$worn.upper.type.includes("naked") and $upperwetstage gte 3 and !$worn.lower.type.includes("naked") and $lowerwetstage gte 3 and !$worn.under_lower.type.includes("naked") and !$worn.under_lower.type.includes("chastity") and $underlowerwetstage gte 3>>
	<<if $worn.upper.set is $worn.lower.set>>

Your $worn.upper.name, and $worn.under_lower.name are drenched, revealing your <<undertop>> and <<genitalsstop>>

	<<else>>

Your $worn.upper.name, $worn.lower.name and $worn.under_lower.name are drenched, revealing your <<undertop>> and <<genitalsstop>>

	<</if>>

<<elseif !$worn.upper.type.includes("naked") and $upperwetstage gte 3 and !$worn.under_upper.type.includes("naked") and $underupperwetstage gte 3 and $lowerwetstage gte 3 and !$worn.lower.type.includes("naked")>>
	<<if $worn.upper.set is $worn.lower.set>>

	Your $worn.upper.name and $worn.under_upper.name are drenched, revealing your <<breasts>> and <<undiesstop>>

	<<else>>

	Your $worn.upper.name, $worn.lower.name and $worn.under_upper.name are drenched, revealing your <<breasts>> and <<undiesstop>>

	<</if>>

<<elseif !$worn.upper.type.includes("naked") and $upperwetstage gte 3 and $lowerwetstage gte 3 and !$worn.lower.type.includes("naked")>>
	<<if $worn.upper.set is $worn.lower.set>>

Your $worn.upper.name is drenched, revealing your <<undertop>> and <<undiesstop>>

	<<else>>

Your $worn.upper.name and $worn.lower.name are drenched, revealing your <<undertop>> and <<undiesstop>>

	<</if>>

<<elseif !$worn.upper.type.includes("naked") and $upperwetstage gte 3>>

Your $worn.upper.name <<upperplural>> drenched, revealing your <<breastsstop>>

<<elseif !$worn.lower.type.includes("naked") and $lowerwetstage gte 3 and !$worn.under_lower.type.includes("naked") and !$worn.under_lower.type.includes("chastity") and $underlowerwetstage gte 3>>

Your $worn.lower.name and $worn.under_lower.name are drenched, revealing your <<genitalsstop>>

<<elseif !$worn.lower.type.includes("naked") and $lowerwetstage gte 3>>

Your $worn.lower.name <<lowerplural>> drenched, revealing your <<undiesstop>>

<<elseif !$worn.under_lower.type.includes("naked") and !$worn.under_lower.type.includes("chastity") and $underlowerwetstage gte 3>>

Your $worn.under_lower.name <<underlowerplural>> drenched, revealing your <<genitalsstop>>

<<elseif !$worn.under_upper.type.includes("naked") and $underupperwetstage gte 3>>

Your $worn.under_upper.name <<underupperplural>> drenched, revealing your <<breastsstop>>

<<elseif !$worn.upper.type.includes("naked") and $worn.upper.exposed is 2 and !$worn.lower.type.includes("naked") and $worn.lower.exposed is 2 and !$worn.under_lower.type.includes("naked") and !$worn.under_lower.type.includes("chastity") and $worn.under_lower.state isnot "waist" and !$worn.under_upper.type.includes("naked") and $worn.under_upper.state isnot $worn.under_upper.state_base>>
	<<if $worn.under_upper.set is $worn.under_lower.set>>
		<<if $worn.upper.set is $worn.lower.set>>

	Your $worn.upper.name, skirt and $worn.under_upper.name have been pulled aside, revealing your <<breasts>> and <<genitalsstop>>

		<<else>>

	Your $worn.upper.name, $worn.lower.name and $worn.under_upper.name have been pulled aside, revealing your <<breasts>> and <<genitalsstop>>

		<</if>>
	<<else>>
		<<if $worn.upper.set is $worn.lower.set>>

	Your $worn.upper.name, skirt, $worn.under_upper.name and $worn.under_lower.name have been pulled aside, revealing your <<breasts>> and <<genitalsstop>>

		<<else>>

	Your $worn.upper.name, $worn.lower.name, $worn.under_upper.name and $worn.under_lower.name have been pulled aside, revealing your <<breasts>> and <<genitalsstop>>

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

<<elseif !$worn.upper.type.includes("naked") and $worn.upper.exposed is 2 and !$worn.lower.type.includes("naked") and $worn.lower.exposed is 2 and !$worn.under_lower.type.includes("naked") and !$worn.under_lower.type.includes("chastity") and $worn.under_lower.state isnot "waist">>
	<<if $worn.upper.set is $worn.lower.set>>

Your $worn.upper.name, skirt and $worn.under_lower.name have been pulled aside, revealing your <<undertop>> and <<genitalsstop>>

	<<else>>

Your $worn.upper.name, $worn.lower.name and $worn.under_lower.name have been pulled aside, revealing your <<undertop>> and <<genitalsstop>>

	<</if>>

<<elseif !$worn.upper.type.includes("naked") and $worn.upper.exposed is 2 and $worn.lower.exposed is 2 and !$worn.lower.type.includes("naked") and !$worn.under_upper.type.includes("naked") and $worn.under_upper.state isnot $worn.under_upper.state_base>>
	<<if $worn.upper.set is $worn.lower.set>>

Your $worn.upper.name, skirt and $worn.under_upper.name have been pulled aside, revealing your <<breasts>> and <<undiesstop>>

	<<else>>

Your $worn.upper.name, $worn.lower.name and $worn.under_upper.name have been pulled aside, revealing your <<breasts>> and <<undiesstop>>

	<</if>>

<<elseif !$worn.upper.type.includes("naked") and $worn.upper.exposed is 2 and $worn.lower.exposed is 2 and !$worn.lower.type.includes("naked")>>
	<<if $worn.upper.set is $worn.lower.set>>

Your $worn.upper.name and skirt have been pulled aside, revealing your <<undertop>> and <<undiesstop>>

	<<else>>

Your $worn.upper.name and $worn.lower.name have been pulled aside, revealing your <<undertop>> and <<undiesstop>>

	<</if>>

<<elseif !$worn.upper.type.includes("naked") and $worn.upper.exposed is 2>>

Your $worn.upper.name <<upperhas>> been pulled aside, revealing your <<breastsstop>>

<<elseif !$worn.lower.type.includes("naked") and $worn.lower.exposed is 2 and !$worn.under_lower.type.includes("naked") and !$worn.under_lower.type.includes("chastity") and $worn.under_lower.state isnot "waist">>

Your $worn.lower.name <<lowerhas>> been pulled aside and your $worn.under_lower.name pulled down, revealing your <<genitalsstop>>

<<elseif !$worn.lower.type.includes("naked") and $worn.lower.exposed is 2>>

Your $worn.lower.name <<lowerhas>> been pulled aside, revealing your <<undiesstop>>

<<elseif !$worn.under_lower.type.includes("naked") and !$worn.under_lower.type.includes("chastity") and $worn.under_lower.state isnot $worn.under_lower.state_base>>

Your $worn.under_lower.name <<underlowerhas>> been pulled down to your $worn.under_lower.state, revealing your <<genitalsstop>>

<<elseif !$worn.under_upper.type.includes("naked") and $worn.under_upper.state isnot $worn.under_upper.state_base>>

Your $worn.under_upper.name <<underupperhas>> been pulled down to your $worn.under_upper.state, revealing your <<breastsstop>>

<</if>>

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

:: StoryRightSidebar

Testing