code:
:: Eerie Mirror

<<effects>>
You walk up to the mirror and gaze into its depths. It no longer reflects, but glows with a curious light. It's purple, or pink, or maybe red.

The light takes shape and extends into the space in front of you. A single tentacle. It dances closer.

<<link [[Watch|Eerie Mirror 2]]>><</link>><<deviant1>>

<<link [[Step away|Eerie Mirror Stop]]>><</link>>

:: Eerie Mirror Stop

<<effects>>
You pull away from the mirror. The light goes out at once.

<<link [[Step away|Bedroom]]>><<unset $mirrorMenu>><<unset $bodywritingSet>><</link>>
<<mirror>>

:: Eerie Mirror 2

<<effects>>
The tentacle caresses your cheek. It pulses. Each wave enters your skin and ripples down your body. You shiver. It smells so sweet.
<<deviancy1>>
<<link [[Lick|Eerie Mirror 3]]>><</link>><<deviant1>>

<<link [[Step away|Eerie Mirror Stop]]>><</link>>

:: Eerie Mirror 3

<<effects>>
Your heart flutters as you stick out your tongue, and the tentacle wiggles closer. It flicks the tip before weaving around until
it nudges your lips. It's kissing you. <<takeKissVirginity "Eerie Mirror Tentacle" "tentacle">>
<<deviancy1>>
A pink liquid drips from the tip.

<<if $deviancy gte 15>>
	<<link [[Lick|Eerie Mirror 4]]>><</link>><<drugs 60>><<deviant2>>

<</if>>
<<link [[Step away|Eerie Mirror Stop]]>><</link>>

:: Eerie Mirror 4

<<effects>>
You lick the tip of the tentacle, and taste the pink liquid. It's sweet, and warm. You lap it up and feel the shuddering warmth
spread down your mouth and throat.
<<deviancy2>>
Several other tentacles form from the light. They dance closer.

<<if $deviancy gte 15>>
	<<link [[Lick|Eerie Mirror 5]]>><<drugs 60>><</link>><<deviant2>>

<</if>>
<<link [[Step away|Eerie Mirror Stop]]>><</link>>

:: Eerie Mirror 5
<<effects>>
<<if $moonstate is "morning">>
	You continue to lick the tip of the tentacle, and taste the sweet liquid. It pushes against your tongue, as if it wants to
	enter your mouth.
	<<deviancy2>>
	The light brightens to an eerie red, and other tentacles twist around your arms, legs and hips. Shivers of pleasure emanate
	from wherever they touch. They squeeze and caress to a gentle rhythm.

	<<if $deviancy gte 75>>
		<<if $player.virginity.oral is true>>
			<<link [[Swallow|Eerie Mirror 6]]>><<takeVirginity "Eerie Mirror Tentacle" "oral">><<set $lostOral to true>><</link>> |
			 This action will take your oral virginity <<deviant5>>
		<<else>>
			<<link [[Swallow|Eerie Mirror 6]]>><</link>><<deviant5>>
		<</if>>

	<</if>>
	<<link [[Step away|Eerie Mirror Stop]]>><</link>>

<<else>>
	The first tentacle retracts, leaving you with a deep longing. It doesn't last. The other tentacles twist around your arms, legs
	and hips. Shivers of pleasure emanate from wherever they touch.
	They squeeze and caress to a gentle rhythm.
	<<deviancy2>>
	The light fades, and the tentacles fade with it.

	<<link [[Step away|Bedroom]]>><<unset $mirrorMenu>><<unset $bodywritingSet>><</link>>

	<<mirror>>
<</if>>

:: Eerie Mirror 6
<<effects>>
You take the first tentacle into your
<<if $lostOral>>
	<<unset $lostOral>>
	virgin mouth
<<else>>
	mouth
<</if>>
and start sucking. You gulp down the sweet and warm liquid.
<<deviancy5>>
<<undress "wardrobe">>
The other tentacles remove your clothing with a precise dexterity. They further twist around your arms, legs
and hips while wiggling closer to your <<genitals>>.

<<link [[Next|Eerie Mirror Tentacles]]>><<set $sexstart to 1>><</link>>

:: Eerie Mirror Tentacles
<<if $sexstart is 1>>
	<<set $sexstart to 0>>
	<<consensual>>
	<<set $consensual to 1>>
	<<neutral 1>>

	<<set $enemytrust += 100>>
	<<tentaclestart 10 15>>
	<<set $mouthstate to "tentacledeep">><<set $mouthuse to "tentacle">><<set $tentacles[0].shaft to "shoulders">><<set $tentacles[0].head to "mouthdeep">><<set $mouthtarget to "tentacles">>
<</if>>
A red mist is coming from the mirror, and it's making you feel funny.<<drugs 1>>

<<statetentacles>>

<<effects>>
<<effectstentacles>>
<<tentacles>>
<<actionstentacles>>
<<if $tentacles.active lte ($tentacles.max / 2)>>
	<<link [[Next|Eerie Mirror Tentacles Finish]]>><</link>><<nexttext>>
<<else>>
	<<link [[Next|Eerie Mirror Tentacles]]>><</link>><<nexttext>>
<</if>>

:: Eerie Mirror Tentacles Finish
<<effects>>

Without warning, the tentacles tighten their grip and pull you towards the mirror.

You try to scream for help, but the aphrodisiacs make it sound like a lewd moan. Some rub against your <<genitals>>, but most keep pulling you.

<<endcombat>>

<<link [[Next|Eerie Mirror Tentacle Plains]]>><<set $sexstart to 1>><</link>>

:: Eerie Mirror Tentacle Plains
<<location "tentworld">><<effects>>
<<tentacleworldintro>>
On being pulled through the mirror, you find yourself on an alien landscape.
Giant tentacles writhe against the sky. An orgasm here could be dangerous.

<<link [[Next|Tentacle Plains]]>><<set $tentacleEntrance to "mirror">><</link>>

repo_name: Area/degrees

license: mit


code:
:: Widgets managePill [widget]
<<widget "managePill">>
<<if $args[0] and $args[1] and $args[2]>>
	<<if $args[3] isnot true or $sexStats.pills[$args[0]].owned[$args[1]] gt 0>>
		<<set $sexStats.pills[$args[0]].owned[$args[1]] += $args[2]>>
		<<if $args[3] is true>>
			<<set $sexStats.pills[$args[0]].type to $args[1]>>
			<<set $sexStats.pills[$args[0]].doseTaken++>>
		<</if>>
	<</if>>
<</if>>
<</widget>>

:: PillCollection
<<set $outside to 0>><<effects>>
<<set _pills to $sexStats.pills>>
<<set _pillNames to ["Growth", "Reduction", "Blocker", "None"]>>
<<set _pillTypes to ["growth", "reduction", "blocker", null]>>

<<if $pillstaken is 1>>
	<<unset $pillstaken>>
	You take the pills Doctor Harper prescribed. You feel dizzy.
	<<awareness -1>><<control 10>>

<</if>>
<<if $asylumpillstaken is 1>>
	<<unset $asylumpillstaken>>
	You take the pills prescribed in the asylum. You feel hazy.
	<<awareness -5>><<control 25>>

<</if>>
<<if $pills gte 1 and $medicated is 0 or $asylumpills gte 1 and $asylummedicated is 0>>
	Medication

<</if>>
<<if $pills gte 1 and $medicated is 0>>
	<<icon "pills">><<link "Take pills">><<set $medicated += 1>><<set $pillstaken to 1>><><</link>><<gcontrol>><<lawareness>>

<</if>>
<<if $asylumpills gte 1 and $asylummedicated is 0>>
	<<icon "strong pills">><<link "Take strong pills">><<set $asylummedicated += 1>><<set $asylumpillstaken to 1>><><</link>><<ggcontrol>><<llawareness>>

<</if>>

__Breast Pills__

<<if _pills.breast.owned[_pillTypes[0]] gt 0 or _pills.breast.owned[_pillTypes[1]] gt 0>>
	There are warning labels on the <<if _pills.breast.owned[_pillTypes[0]] gt 0>>growth <</if>><<if _pills.breast.owned[_pillTypes[0]] gt 0 and _pills.breast.owned[_pillTypes[1]] gt 0>>and reduction <<elseif _pills.breast.owned[_pillTypes[1]] gt 0>>reduction <</if>> cases, they mention severe side effects if you take too many doses per day, however, you don't understand what the complicated words mean.
<</if>>

	<<for _i to 0; _i lt _pillNames.length; _i += 1>>
		<<if _pills.breast.owned[_pillTypes[_i]] isnot 0>>

				<<if _pillNames[_i] is "None">>
					<<ind>>
				<<else>>
					<<icon `"breast" + _pillNames[_i]`>>
				<</if>>
				<<print '<<radiobutton "_checked" _i ' + (_pills.breast.type is _pillTypes[_i] ? "checked" : "") + '>>'>>
				<<print _pillNames[_i]>>
				<<if _pillNames[_i] isnot "None">><<print '['+_pills.breast.owned[_pillTypes[_i]]+']'>><</if>>
				<<if _pills.breast.type is _pillTypes[_i] and _pillTypes[_i] isnot null>>
					<<print '[Taken ' + _pills.breast.doseTaken + ' dose' + (_pills.breast.doseTaken gt 1 ? "s" : "") +']'>>
				<</if>>
				<<if _pills.breast.autoTake is _pillTypes[_i] and _pillTypes[_i] isnot null>>[Auto]<</if>>

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

<<if _pills.breast.type is null>>
	<<link [[Take pills|PillCollection]]>><<managePill "breast" _pillTypes[_checked] -1 true false>><</link>>
<<elseif _pills.breast.doseTaken is 1 and _pills.breast.type isnot "blocker" and _pills.breast.owned[_pills.breast.type] gt 0>>
	<<print'<<link [[Take a second dose of '+ _pills.breast.type +' pills|PillCollectionSecondDose]]>><<managePill "breast" _pills.breast.type -1 true false>><<set $secondDose to "breast">><</link>>'>>
<<elseif _pills.breast.type is "blocker" or _pills.breast.owned[_pills.breast.type] is 0>>
	You have already taken a dose of breast growth <<print _pills.breast.type>> pills today.
<<else>>
	You have already taken two doses of breast <<print _pills.breast.type>> pills today.
<</if>>

<<link [[Take every morning|PillCollection]]>><<set _pills.breast.autoTake to clone(_pillTypes[_checked])>><</link>>

<<if $player.penisExist>>

	__Penis Pills__

	<<if _pills.penis.owned[_pillTypes[0]] gt 0 or _pills.penis.owned[_pillTypes[1]] gt 0>>
		There are warning labels on the <<if _pills.penis.owned[_pillTypes[0]] gt 0>>growth <</if>><<if _pills.penis.owned[_pillTypes[0]] gt 0 and _pills.penis.owned[_pillTypes[1]] gt 0>>and reduction <<elseif _pills.penis.owned[_pillTypes[1]] gt 0>>reduction <</if>> cases, they mention severe side effects if you take too many doses per day, however, you don't understand what the complicated words mean.
	<</if>>

		<<for _i to 0; _i lt _pillNames.length; _i += 1>>
			<<if _pills.penis.owned[_pillTypes[_i]] isnot 0>>

				<<if _pillNames[_i] is "None">>
					<<ind>>
				<<else>>
					<<icon `"penis" + _pillNames[_i]`>>
				<</if>>
				<<print '<<radiobutton "_checked2" _i ' + (_pills.penis.type is _pillTypes[_i] ? "checked" : "") + '>>'>>
				<<print _pillNames[_i]>>
				<<if _pillNames[_i] isnot "None">><<print '['+_pills.penis.owned[_pillTypes[_i]]+']'>><</if>>
				<<if _pills.penis.type is _pillTypes[_i] and _pillTypes[_i] isnot null>>
					<<print '[Taken ' + _pills.penis.doseTaken + ' dose' + (_pills.penis.doseTaken gt 1 ? "s" : "") +']'>>
				<</if>>
				<<if _pills.penis.autoTake is _pillTypes[_i] and _pillTypes[_i] isnot null>>[Auto]<</if>>

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

	<<if _pills.penis.type is null>>
		<<link [[Take pills|PillCollection]]>><<managePill "penis" _pillTypes[_checked2] -1 true false>><</link>>
	<<elseif _pills.penis.doseTaken is 1 and _pills.penis.type isnot "blocker" and _pills.penis.owned[_pills.penis.type] gt 0>>
		<<print'<<link [[Take a second dose of '+ _pills.penis.type +' pills|PillCollectionSecondDose]]>><<managePill "penis" _pills.penis.type -1 true false>><<set $secondDose to "penis">><</link>>'>>
	<<elseif _pills.penis.type is "blocker" or _pills.penis.owned[_pills.penis.type] is 0>>
		You have already taken a dose of penis growth <<print _pills.penis.type>> pills today.
	<<else>>
		You have already taken two doses of penis growth <<print _pills.penis.type>> pills today.
	<</if>>

	<<link [[Take every morning|PillCollection]]>><<set _pills.penis.autoTake to clone(_pillTypes[_checked2])>><</link>>

<</if>>

__Butt Pills__

<<if _pills.bottom.owned[_pillTypes[0]] gt 0 or _pills.bottom.owned[_pillTypes[1]] gt 0>>
	There are warning labels on the <<if _pills.bottom.owned[_pillTypes[0]] gt 0>>growth <</if>><<if _pills.bottom.owned[_pillTypes[0]] gt 0 and _pills.bottom.owned[_pillTypes[1]] gt 0>>and reduction <<elseif _pills.bottom.owned[_pillTypes[1]] gt 0>>reduction <</if>> cases, they mention severe side effects if you take too many doses per day, however, you don't understand what the complicated words mean.
<</if>>

	<<for _i to 0; _i lt _pillNames.length; _i += 1>>
		<<if _pills.bottom.owned[_pillTypes[_i]] isnot 0>>

				<<if _pillNames[_i] is "None">>
					<<ind>>
				<<else>>
					<<icon `"bottom" + _pillNames[_i]`>>
				<</if>>
				<<print '<<radiobutton "_checked" _i ' + (_pills.bottom.type is _pillTypes[_i] ? "checked" : "") + '>>'>>
				<<print _pillNames[_i]>>
				<<if _pillNames[_i] isnot "None">><<print '['+_pills.bottom.owned[_pillTypes[_i]]+']'>><</if>>
				<<if _pills.bottom.type is _pillTypes[_i] and _pillTypes[_i] isnot null>>
					<<print '[Taken ' + _pills.bottom.doseTaken + ' dose' + (_pills.bottom.doseTaken gt 1 ? "s" : "") +']'>>
				<</if>>
				<<if _pills.bottom.autoTake is _pillTypes[_i] and _pillTypes[_i] isnot null>>[Auto]<</if>>

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

<<if _pills.bottom.type is null>>
	<<link [[Take pills|PillCollection]]>><<managePill "bottom" _pillTypes[_checked] -1 true false>><</link>>
<<elseif _pills.bottom.doseTaken is 1 and _pills.bottom.type isnot "blocker" and _pills.bottom.owned[_pills.bottom.type] gt 0>>
	<<print'<<link [[Take a second dose of '+ _pills.bottom.type +' pills|PillCollectionSecondDose]]>><<managePill "bottom" _pills.bottom.type -1 true false>><<set $secondDose to "bottom">><</link>>'>>
<<elseif _pills.bottom.type is "blocker" or _pills.bottom.owned[_pills.bottom.type] is 0>>
	You have already taken a dose of butt growth <<print _pills.bottom.type>> pills today.
<<else>>
	You have already taken two doses of butt <<print _pills.bottom.type>> pills today.
<</if>>

<<link [[Take every morning|PillCollection]]>><<set _pills.bottom.autoTake to clone(_pillTypes[_checked])>><</link>>

/*ToDo: Pregnancy, remove check to properly enable*/
<<if $pregnancyTesting>>
	<<set _pregnancy to $sexStats.vagina.pregnancy>>
	<<if $player.vaginaExist and _pregnancy.awareOf isnot true>>

		<<set _pillNames2 to ["Fertility", "Contraceptive", "None"]>>
		<<set _pillTypes2 to ["fertility", "contraceptive", null]>>
		__Pregnancy__

		<<if _pills.pregnancy.owned[_pillTypes2[0]] gt 0 or _pills.pregnancy.owned[_pillTypes2[1]] gt 0>>
			There are warning labels on the <<if _pills.pregnancy.owned[_pillTypes2[0]] gt 0>>fertility <</if>><<if _pills.pregnancy.owned[_pillTypes2[0]] gt 0 and _pills.pregnancy.owned[_pillTypes2[1]] gt 0>>and contraceptive <<elseif _pills.pregnancy.owned[_pillTypes2[1]] gt 0>>contraceptive <</if>> cases, they mention severe side effects if you take too many doses per day, however, you don't understand what the complicated words mean.
		<</if>>

			<<for _i to 0; _i lt _pillNames2.length; _i += 1>>
				<<if _pills.pregnancy.owned[_pillTypes2[_i]] isnot 0>>

						<<if _pillNames2[_i] is "None">>
							<<ind>>
						<<else>>
							/*<<icon `"pregnancy" + _pillNames2[_i]`>>*/
							<<ind>>
						<</if>>
						<<print '<<radiobutton "_checked" _i ' + (_pills.pregnancy.type is _pillTypes2[_i] ? "checked" : "") + '>>'>>
						<<print _pillNames2[_i]>>
						<<if _pillNames2[_i] isnot "None">><<print '['+_pills.pregnancy.owned[_pillTypes2[_i]]+']'>><</if>>
						<<if _pills.pregnancy.type is _pillTypes2[_i] and _pillTypes2[_i] isnot null>>
							<<print '[Taken ' + _pills.pregnancy.doseTaken + ' dose' + (_pills.pregnancy.doseTaken gt 1 ? "s" : "") +']'>>
						<</if>>
						<<if _pills.pregnancy.autoTake is _pillTypes2[_i] and _pillTypes2[_i] isnot null>>[Auto]<</if>>

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

		<<if _pills.pregnancy.type is null>>
			<<link [[Take pills|PillCollection]]>><<managePill "pregnancy" _pillTypes2[_checked] -1 true false>><</link>>
		<<elseif _pills.pregnancy.doseTaken is 1 and _pills.pregnancy.owned[_pills.pregnancy.type] gt 0>>
			<<print'<<link [[Take a second dose of '+ _pills.pregnancy.type +' pills|PillCollectionSecondDosePregnancy]]>><<managePill "pregnancy" _pills.pregnancy.type -1 true false>><<set $secondDose to "pregnancy">><</link>>'>>
		<<elseif _pills.pregnancy.owned[_pills.pregnancy.type] is 0>>
			You have already taken a dose of pregnancy <<print _pills.pregnancy.type>> pills today.
		<<else>>
			You have already taken 2 doses of pregnancy <<print _pills.pregnancy.type>> pills today.
		<</if>>

		<<link [[Take every morning|PillCollection]]>><<set _pills.pregnancy.autoTake to clone(_pillTypes2[_checked])>><</link>>
	<<elseif $player.vaginaExist and _pregnancy.awareOf is true>>
		You don't dare take any of the fertility pills while your pregnant.
	<</if>>
<</if>>

<<link [[Step away|$pillsExitPassage]]>><</link>>

:: PillCollectionSecondDose
<<set $outside to 0>><<set $location to "home">><<effects>>

<<set _pills to $sexStats.pills>>
<<set _secondDoses to 0>>
<<set _breastDoses to false>>
<<set _penisDoses to false>>
<<set _bottomDoses to false>>
<<if _pills.breast.doseTaken is 2>>
	<<set _secondDoses += 1>>
	<<set _breastDoses to true>>
<</if>>
<<if _pills.penis.doseTaken is 2>>
	<<set _secondDoses += 1>>
	<<set _penisDoses to true>>
<</if>>
<<if _pills.bottom.doseTaken is 2>>
	<<set _secondDoses += 1>>
	<<set _bottomDoses to true>>
<</if>>
<<if _secondDoses is 3>>
	<<set _risk to random(10,40)>>
<<elseif _secondDoses is 2>>
	<<set _risk to random(5,20)>>
<<else>>
	<<set _risk to 0>>
<</if>>
Disregarding the warning label, you take a second dose of <<print ($secondDose is "bottom" ? "butt" : $secondDose)>> <<print _pills[$secondDose].type>> pills.

<<set _result to random(0, 100)>>
<<if _result gte 80 + _risk>>
	<<set $timePassed to 2>> Despite the warning, nothing wrong seems to happen.
<<elseif _result gte 70 + _risk>>
	<<set $timePassed to 2>> Your <<print ($secondDose is "breast" ? "breasts feel" : $secondDose + " feels")>> a little odd for a few minutes but feel fine afterwards.
<<elseif _result gte 60 + _risk>>
	<<set $timePassed to 10>> Your <<print ($secondDose is "breast" ? "breasts feel" : $secondDose + " feels")>> a little warm for a few minutes but feel fine afterwards.
	<<garousal>><<arousal 500>>
<<elseif _result gte 40 + _risk>>
	<<set $timePassed to 20>> Your <<print ($secondDose is "breast" ? "breasts" : $secondDose)>> suddenly starts to feel really warm and itchy which makes you unable to concentrate on anything else till it passes.
	<<garousal>><<gpain>><<set $pain += 10>><<arousal 2000>>
<<elseif _result gte 5 + _risk>>
	<<set $timePassed to 30>>
	<<switch _secondDoses>>
		<<case 1>>
			You feel a sharp pain in your <<print ($secondDose is "breast" ? "breasts" : $secondDose)>>.
		<<case 2>>
			<<set _secondaryPill to ($secondDose is "breast" ? (_penisDoses ? "penis" : "bottom") : ($secondDose is "penis" ? (_breastDoses ? "breasts" : "bottom") : (_breastDoses ? "breasts" : "penis")))>>
			You feel a sharp pain in your <<print ($secondDose is "breast" ? "breasts" : $secondDose)>>, followed by another sharp pain in your <<print _secondaryPill>><<set $pain += 50>><<set $timePassed += 30>>.
		<<case 3>>
			You feel a sharp pain in your <<print ($secondDose is "breast" ? "breasts" : $secondDose)>>, followed by more sharp pains in your <<print ($secondDose is "breast" ? "penis and bottom" : ($secondDose is "penis" ? "breasts and bottom" : "breasts and penis"))>><<set $pain += 50>><<set $timePassed += 30>>.
	<</switch>>
	<<gpain>><<set $pain += 50>>

	It takes some time but you gradually feel better.
<<else>>
	<<set $timePassed to random(120, 420)>>
	<<switch _secondDoses>>
		<<case 1>>
			You feel a sharp pain in your <<print ($secondDose is "breast" ? "breasts" : $secondDose)>>. It continues to get worse until you pass out.
		<<case 2>>
			<<set _secondaryPill to ($secondDose is "breast" ? (_penisDoses ? "penis" : "bottom") : ($secondDose is "penis" ? (_breastDoses ? "breasts" : "bottom") : (_breastDoses ? "breasts" : "penis")))>>
			You feel a sharp pain in your <<print ($secondDose is "breast" ? "breasts" : $secondDose)>>, followed by another sharp pain in your <<print _secondaryPill>><<set $pain += 50>><<set $timePassed += 30>>. It continues to get worse until you pass out.
		<<case 3>>
			You feel a sharp pain in your <<print ($secondDose is "breast" ? "breasts" : $secondDose)>>, followed by more sharp pains in your <<print ($secondDose is "breast" ? "penis and bottom" : ($secondDose is "penis" ? "breasts and bottom" : "breasts and penis"))>><<set $pain += 50>><<set $timePassed += 30>>. It continues to get worse until you pass out.
	<</switch>>
	<<ggstress>><<gtrauma>><<gpain>>
	<<set $pain += 400>><<set $stress += 4000>><<trauma 100>>
	<<set _passout to true>>
<</if>>

<<set _hoursPassed to Math.floor($timePassed / 60)>>
<<set _minutesPassed to $timePassed - (_hoursPassed * 60)>>

<<if _passout is true>>
	<<link [[Next|PillCollectionPassOut]]>><<pass $timePassed>><</link>>
<<else>>
	<<print '<<link [[Next ('+_hoursPassed+':'+ (_minutesPassed lt 10 ? "0" : "") + _minutesPassed + ')|PillCollection]]>><<unset $secondDose>><<pass $timePassed>><<unset $timePassed>><</link>>'>>
<</if>>

:: PillCollectionPassOut
<<set $outside to 0>><<effects>>
<<set _pills to $sexStats.pills>><<set $pain += 300>>
You end up waking in agony and wondering what had happened to you. After a brief feel around your body, you shriek in pain after briefly touching your <<print ($secondDose is "breast" ? "breasts" : $secondDose)>>. You end up spending more time lying down till you feel like you can move without something else happening to you.

As you get up, you check the time to find that<<if $timePassed gt 240>> many <<else>> only a couple of <</if>>hours have passed since you took that pill.

<<set _change to random(100, 500)>>
<<if _change gte 200>>
	You give your <<print ($secondDose is "breast" ? "breasts" : $secondDose)>> a check over, you think something might have changed about <<print ($secondDose is "breast" ? "them" : "it")>>.
<</if>>
<<if $secondDose is "breast">>
	<<if _pills.breast.type is "growth">>
		<<set $breastgrowthtimer -= _change>>
	<<else>>
		<<set $breastgrowthtimer += _change>>
	<</if>>
<<elseif $secondDose is "penis">>
	<<if _pills.penis.type is "growth">>
		<<set $penisgrowthtimer -= _change>>
		<<set $sexStats.pills.penis.overdose.growth += 5>>
	<<else>>
		<<set $penisgrowthtimer += _change>>
		<<set $sexStats.pills.penis.overdose.reduction += 5>>
	<</if>>
<<else>>
	<<if _pills.bottom.type is "growth">>
		<<set $bottomgrowthtimer -= _change>>
	<<else>>
		<<set $bottomgrowthtimer += _change>>
	<</if>>
<</if>>
<<if $genitalsensitivity lt 6>>
	<<set $genitalsensitivity += 0.25>>
<</if>>
<<if $breastsensitivity lt 6>>
	<<set $breastsensitivity += 0.25>>
<</if>>

<<link [[Next (1:00)|PillCollection]]>><<unset $secondDose>><<pass 60>><<unset $timePassed>><</link>>

:: PillCollectionSecondDosePregnancy [nobr]
<<set $outside to 0>><<effects>>
<<cleareventpool>>
<<set _pills to $sexStats.pills>>
<<set _menstruation to $sexStats.vagina.menstruation>>
<<if _pills.pregnancy.type is "fertility">>
	Disregarding the warning label, you take a second dose of the fertility pills.

	<<addinlineevent "no fertility overdose" 10>>
		Despite the warning, nothing wrong seems to happen.

		<<link [[Next (0:02)|PillCollection]]>><<pass 2>><</link>>
	<</addinlineevent>>
	<<addinlineevent "simple fertility overdose" 5>>
		Despite the warning, you only feel a little warm for a few minutes but feel fine afterwards. <<garousal>><<arousal 100>>

		<<link [[Next (0:02)|PillCollection]]>><<pass 2>><</link>>
	<</addinlineevent>>
	<<addinlineevent "simple fertility overdose 2" 4>>
		You start to feel an odd warmth around your vagina for a few minutes but feel fine afterwards. It was oddly comforting. <<garousal>><<arousal 200>>
		<<if _pills.pregnancy.doseTaken lt 3>>
			<<set _pills.pregnancy.doseTaken to 3>>
		<</if>>

		<<link [[Next (0:05)|PillCollection]]>><<pass 5>><</link>>
	<</addinlineevent>>
	<<addinlineevent "advanced fertility overdose" 2>>
		You start feeling an odd warmth around your vagina, however, it doesn't seem to stop until at one point you feel like it's burning you. The heat seems to start expanding to other areas of your body but then begins to subside. <<garousal>><<arousal 1000>><<gpain>><<pain 10>>
		<<if _pills.pregnancy.doseTaken lt 4>>
			<<set _pills.pregnancy.doseTaken to 4>>
		<</if>>
		<<if _menstruation.currentState is "normal">>
			<<for _i to 0; _i lt 2; _i++>>
				<<if _menstruation.currentDay lt _menstruation.stages[3] - 1.5>>
					<<set _menstruation.currentDay += 1>>
				<</if>>
			<</for>>
		<</if>>
		<<if _menstruation.baseDays gte 28>>
			<<set _menstruation.baseDays-->>
		<</if>>

		<<link [[Next (0:15)|PillCollection]]>><<pass 15>><</link>>
	<</addinlineevent>>
	<<addinlineevent "advanced fertility overdose" 2>>
		You feel an odd warmth around your vagina. It intensifies, until it almost burns. The head expands, covering your body until it reaches your head, forcing you into the fetal position. You remain that way until you recover from the overdose. <<garousal>><<arousal 1000>><<ggpain>><<pain 100>>
		<<if _pills.pregnancy.doseTaken lt 4>>
			<<set _pills.pregnancy.doseTaken to 4>>
		<</if>>
		<<if _menstruation.currentState is "normal">>
			<<for _i to 0; _i lt 6; _i++>>
				<<if _menstruation.currentDay lt _menstruation.stages[3] - 1.5>>
					<<set _menstruation.currentDay += 1>>
				<</if>>
			<</for>>
		<</if>>
		<<if _menstruation.baseDays gte 24>>
			<<set _menstruation.baseDays-->>
		<</if>>

		<<link [[Next (1:00)|PillCollection]]>><<pass 60>><</link>>
	<</addinlineevent>>
	<<addinlineevent "advanced fertility overdose 2" 2>>
		You feel an odd warmth around your vagina. It intensifies, until it almost burns. The head expands, covering your body until it reaches your head, forcing you into the fetal position. The pain forces you to pass out. <<garousal>><<arousal 1000>><<ggpain>><<pain 100>>
		<<if _pills.pregnancy.doseTaken lt 4>>
			<<set _pills.pregnancy.doseTaken to 4>>
		<</if>>
		<<if _menstruation.currentState is "normal">>
			<<set _menstruation.currentDay to _menstruation.stages[3] - 0.5>>
			<<menstruationCycle>>
			<<set _menstruation.currentDay to _menstruation.stages[3] - 0.5>>
		<</if>>
		<<if _menstruation.baseDays gte 18>>
			<<set _menstruation.baseDays-->>
		<</if>>

		<<link [[Next (3:00)|PillCollectionFertilityPassOut]]>><<pass 3 hours>><</link>>
	<</addinlineevent>>
<<elseif _pills.pregnancy.type is "contraceptive">>
	Disregarding the warning label, you take a second dose of the contraceptive pills.

	<<addinlineevent "no contraceptive overdose" 10>>
		Despite the warning, nothing wrong seems to happen.

		<<link [[Next (0:02)|PillCollection]]>><<pass 2>><</link>>
	<</addinlineevent>>
	<<addinlineevent "simple contraceptive overdose" 5>>
		Despite the warning, you only feel a little cold for a few minutes but feel fine afterwards. <<garousal>><<arousal -100>>

		<<link [[Next (0:02)|PillCollection]]>><<pass 2>><</link>>
	<</addinlineevent>>
<</if>>

<<runeventpool>>

:: PillCollectionFertilityPassOut
<<set $outside to 0>><<effects>>

You end up waking in with your vagina feeling rather warm. At least compared to before you passed out, it contains an oddly comfort, making you wonder what effect the two pills had on you was.

<<link [[Next (0:02)|PillCollection]]>><<pass 2>><</link>>


code:
:: Widgets Rent [widget]
<<widget "rentdue">>

<<npc Bailey>><<person1>>"Time to pay up," <<he>> says.

<<if $baileydefeatedchain gte 1>>
	<<generate2>><<person2>>A rough-looking <<person>> stands with <<person1>><<him>>. <<person2>><<He>> cracks <<his>> knuckles.<<person1>>

<</if>>

<<if $baileyOfficeSeduced is 1>>
	<<unset $baileyOfficeSeduced>>
	<<set _rentSeduceAlt to true>>
<</if>>

<<if $money gte $rentmoney>>

	<<link [[Pay|Rent Pay]]>><</link>>

	<<link [[Refuse|Rent Refuse]]>><<def 1>><</link>>

	<<if $baileyseduced isnot 1>>
		<<if $promiscuity gte 15>>
			<<link [[Seduce|Rent Seduce]]>><<if _rentSeduceAlt>><<set $phase to 1>><</if>><<trauma 3>><</link>><<promiscuous2>><<gtrauma>>

		<<elseif $uncomfortable.prostituting is false>>
			<<link [[Seduce|Rent Seduce]]>><<if _rentSeduceAlt>><<set $phase to 1>><</if>><<trauma 12>><<set $desperateaction to 1>><</link>><<promiscuous2>><<ggtrauma>>

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

	<<if $submissive lte 850>>
		You stare at <<him>> in defiance. "I don't have your money. And wouldn't give it to you if I did."
	<<elseif $submissive gte 1150>>
		You hang your head, unable to pay and afraid of what's to come.
	<<else>>
		"I don't have it," you say, afraid of what's to come.
	<</if>>

	"That's okay," <<he>> says, smiling. "I've already made arrangements. I don't know what they intend for you, and frankly I don't care." <<He>> produces a hood and length of rope. "Hold still."

	<<link [[Submit|Rent Intro]]>><<endevent>><</link>>

	<<if $bus is "hospital">>
		<<link [[Fight|Rent Hospital Fight]]>><<set $fightstart to 1>><</link>>

	<<else>>
		<<link [[Fight|Rent Fight]]>><<set $fightstart to 1>><</link>>

	<</if>>
	<<if $baileyseduced isnot 1>>
		<<if $promiscuity gte 15>>
			<<link [[Seduce|Rent Seduce]]>><<trauma 3>><</link>><<promiscuous2>><<gtrauma>>

		<<elseif $uncomfortable.prostituting is false>>
			<<link [[Seduce|Rent Seduce]]>><<trauma 12>><<set $desperateaction to 1>><</link>><<promiscuous2>><<ggtrauma>>

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

<<set $renttime to 7>><<set $rentday to $weekday>>

<</widget>>

<<widget "rentmod">>
<<set $rentmoney to Math.floor($rentmoney * $rentmod)>>
<<if $robinpaid is 1>>
	<<set $rentmoney *= 2>>
<</if>>
<</widget>>

<<widget "rentpay">>
<<set $money -= $rentmoney>>
Bailey snatches the money from your hand and starts counting. "Good," <<nnpc_he "Bailey">> says, satisfied. "You came through.
<<set $baileydefeatedchain to 0>>
<<unset $bailey_encroach>>

<<if $rentstage is 1>>
	<<set $rentmoney to 30000>><<rentmod>>

	Next week I want <<printmoney $rentmoney true>>. You didn't think it would get any easier did you?"
<<elseif $rentstage is 2>>
	<<set $rentmoney to 50000>><<rentmod>>

	Next week I want <<printmoney $rentmoney true>>."
<<elseif $rentstage is 3>>
	<<set $rentmoney to 70000>><<rentmod>>

	Next week I want <<printmoney $rentmoney true>>."
<<elseif $rentstage is 4>>
	<<set $rentmoney to 100000>><<rentmod>>

	Next week I want <<printmoney $rentmoney true>>."
<<elseif $rentstage is 5>>
	<<set $rentmoney to 150000>><<rentmod>>

	Next week I want <<printmoney $rentmoney true>>."
<<else>>
	<<set $rentmoney to 200000>><<rentmod>>

	Next week I want <<printmoney $rentmoney true>>."
<</if>>

<<set $rentstage += 1>>
<</widget>>

:: Rent Pay
<<effects>>

<<rentpay>>

<<if $bus is "hospital">>
	<<if $crime gte 1000>>
		<<link [[Next|Hospital Arrest]]>><<pass 10>><<endevent>><</link>>

	<<else>>
		<<link [[Next->Hospital front]]>><<pass 10>><<endevent>><</link>>

	<</if>>
<<else>>
	<<link [[Next|Bedroom]]>><<endevent>><</link>>

<</if>>

:: Rent Refuse
<<effects>>

<<if $submissive lte 850>>
	You stare at <<him>> in defiance. "I'm not paying you. I don't care what you do to me."
<<elseif $submissive gte 1150>>
	"N-no," you stutter, surprised by your bravery. "I-I won't."
<<else>>
	"The money isn't yours," you say, "I'm keeping it."
<</if>>

"That's okay," <<he>> says, smiling. "I've already made arrangements. I don't know what they intend for you, and frankly I don't care." <<He>> produces a hood and length of rope. "Hold still."

<<link [[Submit|Rent Intro]]>><<endevent>><</link>>

<<if $bus is "hospital">>
	<<link [[Fight|Rent Hospital Fight]]>><<set $fightstart to 1>><</link>>

<<else>>
	<<link [[Fight|Rent Fight]]>><<set $fightstart to 1>><</link>>

<</if>>

:: Rent Seduce
<<effects>>
<<set $baileyseduced to 1>>

<<if $submissive gte 1150>>
	"P-please, <<sir>>," you plead. "Can't I p-pay you some other way?" You bite your lip.
<<elseif $submissive lte 850>>
	"You know," you say, running your hands over your body, "I could pay you in a different way. A much better way."
<<else>>
	"Can't I pay you some other way?" you ask, licking your lips. "I'll make it worth it."
<</if>>
<<promiscuity2>>

<<if $phase is 1>>
	Bailey smirks. <<His>> cold hand snakes over your shoulder, around the back of your head, and <<he>> begins to stroke your hair.

	Then, without warning, <<he>> grabs a fistful of your hair and yanks you close, your face inches from <<his>> own.

	"Nice try," <<he>> hisses. "But that's not going to save your ass. Not this time."

	<<He>> releases you and presses <<his>> hand on your chest, shoving you. You stumble backwards as Bailey takes a menacing step towards you
	<<if $money gte $rentmoney>>
		with <<his>> palm open expectantly. "Your payment. Now."

		<<link [[Pay|Rent Pay]]>><</link>>

		<<link [[Refuse|Rent Refuse]]>><<set $submissive -= 1>><</link>>

	<<else>>
		and begins unwinding the rope. "Don't worry," <<he>> taunts. "I'll put in a good word for you."

		<<link [[Submit|Rent Intro]]>><<endevent>><</link>>

		<<if $bus is "hospital">>
			<<link [[Fight|Rent Hospital Fight]]>><<set $fightstart to 1>><</link>>

		<<else>>
			<<link [[Fight|Rent Fight]]>><<set $fightstart to 1>><</link>>

		<</if>>
	<</if>>
<<else>>
	"You can pay me," <<he>> sneers. "With money. £<<print $rentmoney / 100>>. That's what your body's worth."

	<<if $baileydefeatedchain gte 1>>
		<<person2>>"I'll take that as payment," the <<person>> beside <<nnpc_him Bailey>> says.

		Bailey cows <<him>> with a glare, and <<he>> looks away.
		<<person1>>

	<</if>>
	It's too late to negotiate with Bailey. <<He>> wants <<his>> payment.

	<<if $money gte $rentmoney>>
		<<He>> holds out <<his>> hand.

		<<link [[Pay|Rent Pay]]>><</link>>

		<<link [[Refuse|Rent Refuse]]>><<set $submissive -= 1>><</link>>

	<<else>>
		"Now like I said." <<He>> brandishes the rope at you. "Hold still."

		<<link [[Submit|Rent Intro]]>><<endevent>><</link>>

		<<if $bus is "hospital">>
			<<link [[Fight|Rent Hospital Fight]]>><<set $fightstart to 1>><</link>>

		<<else>>
			<<link [[Fight|Rent Fight]]>><<set $fightstart to 1>><</link>>

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

:: Rent Intro
<<effects>>
<<set $baileydefeatedchain to 0>><<set $soldCount += 1>>
<<unset $bailey_encroach>>
<<npc Bailey>><<person1>>With your head covered by a hood and your arms bound behind your back you are led down a flight of stairs and along a tunnel. You trip a couple of times, prompting Bailey to drag you back to your feet and slap your face in anger.
<<pass 20>>

<<if $rentsale is 3>><<set $rentsale to 0>>
	After journeying for some time you hear another set of footsteps.
	<<generate2>><<person2>>"Hand <<phim>> over," says a <<personsimple>>'s voice.

	"Money first," responds Bailey. "Will I get <<phim>> back?"

	"You won't want <<phim>> when we're done."

	You hear a rustle of paper before being dragged further along the tunnel.

	<<link [[Next|Underground Intro]]>><<set $baileySold to true>><</link>>

<<elseif $rentsale is 2>><<set $rentsale += 1>>
	<<leash 21>><<generate2>><<generate3>><<person2>>
	You journey for some time, until you hear the sound of engines up ahead. The sound echoes, becoming closer, until you hear it all around you. "Good stock," says an unfamiliar voice. "Would make a fine breeder."

	"The money," Bailey responds, impatient.

	"Ah. Here." There's a rustle to one side, then someone tugs on your leash, pulling you forward.

	"A pleasure," Bailey says, already walking away.

	"Watch the step," says the unfamiliar voice. Whatever you've stepped onto is rumbling. "Sit." You fumble around your knees, and find what feels like a bench. You sit, then hear the slam of doors, and a few moment later you lurch as the floor moves beneath you. You're in a vehicle.

	<<link [[Next|Street Van Bailey]]>><<set $baileySold to true>><</link>>

<<elseif $rentsale is 1>><<set $rentsale += 1>>
	After journeying for some time you emerge outside. You hear wind rustling through leaves. Bailey lifts you and hooks your bindings on something behind you, leaving you suspended in the air. "Don't go anywhere, you'll be picked up shortly," <<he>> says. You hear <<him>> walk away, leaving you alone.

	<<endevent>>
	<<npc Eden>><<person1>>
	You aren't left hanging there for long. Your hood is yanked off your head as a<<if $syndromeeden gte 1>> familiar<</if>> <<personsimple>>'s voice appears beside you.

	<<if $edenfreedom gte 2 and $edendays gte 8>>
		"I trusted you," Eden says as <<he>> cuts your bindings. You fall to the floor in a heap. "This is what happens if you don't obey me. It's for your own protection." <<He>> pulls you to your feet. "Let's go home."

		<<link [[Next (0:30)|Eden Recaptured]]>><<pass 30>><</link>>

	<<elseif $edenfreedom is 1 and $edendays gte 2>>
		"I trusted you," Eden says as <<he>> cuts your bindings. You fall to the floor in a heap. "This is what happens if you don't obey me. It's for your own protection." <<He>> pulls you to your feet. "Let's go home."

		<<link [[Next (0:30)|Eden Recaptured]]>><<pass 30>><</link>>

	<<elseif $edenfreedom gte 1>>
		"I knew you'd end up like this. The town is dangerous," Eden says, cutting your bindings. <<He>> catches you as you fall. "Let's go home."

		<<He>> takes you back to <<his>> cabin.

		<<endevent>>
		<<link [[Next (0:30)|Eden Cabin]]>><<pass 30>><</link>>

	<<else>>
		<<if $hunterintro is 1>>
			"I knew I'd get you back."
		<<else>>
			"I'm not used to my prey being so helpless. Not that I'm complaining."
		<</if>>
		<<He>> crept up on you without making a sound.

		<<endevent>>

		<<link [[Next|Forest Hunter Intro]]>><</link>>

	<</if>>
<<else>>
	<<set $rentsale to 1>>

	After journeying for some time you hear another set of footsteps. <<generate2>><<person2>>"This is the merchandise?" says a <<personsimple>>'s voice.

	"No, I'm just taking my <<girl>> for a walk," says Bailey, <<nnpc_his "Bailey">> temper barely concealed beneath the sarcasm. "Just give me the cash. And I want it back in one piece, you're not paying enough..." <<nnpc_He "Bailey">> presses something against your mouth and your consciousness fades.

	<<arousal 6000>>
	<<link [[Next|Danube Meal]]>><<endevent>><</link>>

<</if>>

:: Rent Fight
<<if $fightstart is 1>>
	<<set $fightstart to 0>>

	<<neutral 1>>

	<<maninit>>
	<<set $enemyhealthmax += 200>>
	<<set $enemyhealth += 200>>
	<<set $enemyanger += 200>>
	<<npcidlegenitals>>
	"You think I won't beat it out of you?" Bailey says.

	<<set $phase to 1>>
<</if>>

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

<<if $phase is 1>><<set $phase to 2>>
Orphans arrive to watch the fight, drawn by the noise.

<</if>>

<<stateman>>

<<actionsman>>

<<if $enemyhealth lte 0>>
	<<link [[Next|Rent Fight Finish]]>><</link>><<nexttext>>
<<elseif $enemyarousal gte $enemyarousalmax>>
	<<link [[Next|Rent Fight Finish]]>><</link>><<nexttext>>
<<elseif $pain gte 100 and $willpowerpain is 0>>
	<<link [[Next|Rent Fight Finish]]>><</link>><<nexttext>>
<<else>>
	<<link [[Next|Rent Fight]]>><</link>><<nexttext>>
<</if>>

:: Rent Fight Finish
<<effects>>

<<if $enemyarousal gte $enemyarousalmax>>
	<<ejaculation>><<set $baileydefeatedlewd += 1>><<set $baileydefeatedchain += 1>><<earnFeat "Bailey's Trouble Maker">>

	<<person1>>One of the watching orphans giggles. Bailey spins to find the culprit, but another laughs behind <<him>>. Soon the whole room is filled with laughter. <<He>> looks back at you. "You'll pay for this," <<he>> says, before storming from the room.

	<<if $baileydefeatedchain gte 2>>
		The <<person2>><<person>> slinks out after <<person1>><<him>>.

	<</if>>

	The orphans cheer your defeat of the tyrant. <<He>> will be back, but for now you're in the clear.
	<<greb>><<ghope>><<reb 1>><<hope 1>><<ltrauma>><<lstress>><<trauma -6>><<stress -12>>

	<<clotheson>>
	<<endcombat>>

	<<link [[Next|Bedroom]]>><</link>>
<<elseif $enemyhealth lte 0>>
	<<set $baileydefeated += 1>><<set $baileydefeatedchain += 1>>

	<<person1>><<He>> backs off for a moment, surprised by your aggression and nursing a bruise. <<He>> notices the crowd formed around the hall. "You'll pay for this. Mark my words." <<He>> storms out.

	<<if $baileydefeatedchain gte 2>>
		The <<person2>><<person>> slinks out after <<person1>><<him>>.

	<</if>>

	<<His>> departure lifts a weight from the watching orphans, who cheer your defeat of the tyrant. <<He>> will be back, but for now you're in the clear.
	<<greb>><<ghope>><<reb 1>><<hope 1>><<ltrauma>><<lstress>><<trauma -6>><<stress -12>>

	<<clotheson>>
	<<endcombat>>

	<<link [[Next|Bedroom]]>><</link>>

<<else>>
<<set $baileydefeatedchain to 0>>
<<unset $bailey_encroach>>

	You fall to the ground, too hurt to move.
	<<lreb>><<reb -1>>

	<<set $upperoff to 0>>
	<<set $loweroff to 0>>
	<<set $underloweroff to 0>>
	<<set $underupperoff to 0>>
	<<endcombat>>

	<<link [[Next|Rent Intro]]>><</link>>
<</if>>


code:
:: Widgets Home [widget]
<<widget "home_outside">>

<<if $exposed gte 2>>
	<<if $daystate is "night">>
		<<if $exhibitionism gte 55>>
			<<doubledoorsicon>><<link [[Sneak outside (0:02)|Home Leave Naked]]>><</link>><<if $ex_fence isnot 1>><<exhibitionist4>><</if>>
		<</if>>
	<<else>>
		<<if $exhibitionism gte 75>>
			<<doubledoorsicon>><<link [[Sneak outside (0:05)|Home Leave Naked Day]]>><</link>><<if $ex_fence isnot 1>><<exhibitionist5>><</if>>
		<</if>>
	<</if>>
<<elseif $exposed gte 1>>
	<<if $daystate is "night">>
		<<if $exhibitionism gte 15>>
			<<doubledoorsicon>><<link [[Sneak outside (0:02)|Home Leave Undies]]>><</link>><<if $ex_fence isnot 1>><<exhibitionist2>><</if>>
		<</if>>
	<<else>>
		<<if $exhibitionism gte 35>>
			<<doubledoorsicon>><<link [[Sneak outside (0:05)|Home Leave Undies Day]]>><</link>><<if $ex_fence isnot 1>><<exhibitionist3>><</if>>
		<</if>>
	<</if>>
<<else>>
	<<if $hour gte 18 and $hour lte 20 and $NPCName[$NPCNameList.indexOf("Robin")].trauma gte 40 and $robinmissing isnot 1 and !$robinTraumaVisit>>
		<<doubledoorsicon>><<link [[Leave orphanage (0:01)|Robin Trauma Visit]]>><<set $phase to 2>><<pass 1>><</link>>
	<<else>>
		<<doubledoorsicon>><<link [[Leave orphanage (0:01)|Domus Street]]>><<pass 1>><</link>>
		<br>
	<</if>>
<</if>>

<</widget>>

<<widget "home_effects">>
<<if $home_gone lte 167>>
	<<set $home_gone to 0>>
<</if>>
<</widget>>


code:
:: Abduction Hospital Water
<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<controlloss>>
	<<violence 1>>
	<<neutral 1>>
	<<molested>>
	<<beastCombatInit>>
	<<beastTrainGenerate>>

	<<set $water to 1>>
	As you reach the water you hear a sharp buzz and the sound of grinding metal. The water looks foreboding but there's no going back now. You ease yourself into the water and start swimming towards the exit. You spare a glance at the top of the hole. A group of <<wolf_cave_plural>> stand at the top, glaring down at you. Two prove more daring than the rest, and jump in after you.

<</if>>

<<effects>>
<<effectsman>>

<<beast $enemyno>>

<<stateman>>

<<actionsman>>

<<if $enemyhealth lte 0>>
	<<link [[Next|Abduction Hospital Water Finish]]>><</link>><<nexttext>>
<<elseif $enemyarousal gte $enemyarousalmax>>
	<<link [[Next|Abduction Hospital Water Finish]]>><</link>><<nexttext>>
<<else>>
	<<link "Next">><><</link>><<nexttext>>
<</if>>

:: Abduction Hospital Corridor
<<effects>><<set $lock to random(0, 1000)>>

You run down the corridor. As you reach the door you hear a sharp buzz and the sound of grinding metal.
<<beastNEWinit 6 wolf>>

<<if $rng gte 81 or ($monster isnot 1 and $bestialitydisable is "t")>>
	You pull on the handle, and the door aches open. You dash through and shut it behind you, seeing a number of <<beastsplural>> bounding down the corridor as you do.

	<<nightingaleeventend>>
<<else>>
	<<if $skulduggery gte $lock>>
		You pull on the handle, but the door won't budge. There's a padlock keeping it sealed. You spare a glance behind you, and see a number of <<beastsplural>> racing closer. You try to pick the lock, and succeed! You dash through and shut the door behind you.

		<<nightingaleeventend>>
	<<else>>
		You pull on the handle, but the door won't budge. There's a padlock keeping it sealed. You spare a glance behind you, and see a number of <<beastsplural>> racing closer. You try to pick the lock, but fail. The <<beastsplural>> are upon you.

		<<link [[Next|Abduction Hospital Corridor Wolves]]>><<set $molestationstart to 1>><</link>>
	<</if>>
<</if>>

:: Abduction Hospital Hole
<<effects>>

<<beastNEWinit 6 wolf>>
<<if $physiquesize lte 6000>>
	Dropping to your hands and knees, you squeeze through the gap. It's a tight fit, but your small frame proves an advantage.<<small_text>>

	<<set $stripintegrity to 10>><<set $stripobject to "steel wire">><<stripobject>>
	You see light penetrating the ceiling up ahead. After a short journey, you find a manhole leading outside.

	<<endevent>>
	<<commercialquick>>
<<elseif $monster isnot 1 and $bestialitydisable is "t">>
	Dropping to your hands and knees, you squeeze through the gap. It's a tight fit, but you're able to fit.

	<<set $stripintegrity to 10>><<set $stripobject to "steel wire">><<stripobject>>
	You see light penetrating the ceiling up ahead. After a short journey, you find a manhole leading outside.

	<<endevent>>
	<<commercialquick>>
<<else>>
	Dropping to your hands and knees, you squeeze through the gap. It goes well at first, you manage to get your stomach through before becoming stuck. You hear a sharp buzz and the sound of grinding metal as you try to pull out, but you're stuck tight. Something pokes your rear!

	<<link [[Next|Abduction Hospital Hole Wolves]]>><<set $molestationstart to 1>><</link>>
<</if>>

:: Abduction Hospital Water Finish
<<effects>>

<<if $enemyhealth lte 0>>
	<<beastwound>>
	<<if $combatTrain.length gt 0>>
		The <<beasttype>> recoils in pain and fear, but another is eager for a go.
		<<combatTrainAdvance>>

		[[Next|Abduction Hospital Water]]
	<<else>>
		The <<beasttype>> recoils in pain and fear.
		<<combatTrainAdvance>>

		The <<beastsplural>> disappear beneath the surface, headed somewhere unknown.

		<<clotheson>>
		<<endcombat>>

		<<tearful>> you swim down the tunnel, helped along by the flow of water. The tunnel dips and you rush downward, exiting into a storm drain.
		<<set $stress -= 1000>>

		<<link [[Next|Drain Water]]>><<set $bus to "commercialdrain">><</link>>
	<</if>>
<<elseif $enemyarousal gte $enemyarousalmax>>
	<<beastejaculation>>
	<<if $combatTrain.length gt 0>>
		Satisfied, the <<beasttype>> moves and another takes its turn.
		<<combatTrainAdvance>>

		[[Next|Abduction Hospital Water]]
	<<else>>
		Satisfied, the <<beasttype>> moves away from you.
		<<combatTrainAdvance>>

		The <<beastsplural>> disappear beneath the surface, headed somewhere unknown.

		<<clotheson>>
		<<endcombat>>

		<<tearful>> you swim down the tunnel, helped along by the flow of water. The tunnel dips and you rush downward, exiting into a storm drain.
		<<set $stress -= 1000>>

		<<link [[Next|Drain Water]]>><<set $bus to "commercialdrain">><</link>>
	<</if>>
<</if>>

:: Abduction Hospital Corridor Wolves
<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<controlloss>>
	<<violence 1>>
	<<neutral 1>>
	<<molested>>
	<<beastCombatInit>>
	<<beastTrainGenerate>>
<</if>>

<<effects>>
<<effectsman>>

<<beast $enemyno>>

<<stateman>>

<<actionsman>>

<<if $enemyhealth lte 0>>
	<<link [[Next|Abduction Hospital Corridor Finish]]>><</link>><<nexttext>>
<<elseif $enemyarousal gte $enemyarousalmax>>
	<<link [[Next|Abduction Hospital Corridor Finish]]>><</link>><<nexttext>>
<<else>>
	<<link "Next">><><</link>><<nexttext>>
<</if>>

:: Abduction Hospital Corridor Finish
<<effects>>

<<if $enemyhealth lte 0>>
	<<beastwound>>
	<<if $combatTrain.length gt 0>>
		The <<beasttype>> recoils in pain and fear, but another is eager for a go.
		<<combatTrainAdvance>>

		[[Next|Abduction Hospital Corridor Wolves]]
	<<else>>
		The <<beasttype>> recoils in pain and fear.
		<<combatTrainAdvance>>

		<<if $enemywounded gte 2 and $enemyejaculated is 0>>
			Feeling that you're more trouble than you're worth, the <<beastsplural>> flee.
		<<elseif $enemywounded is 0 and $enemyejaculated gte 2>>
			The <<beastsplural>> leave you spent and shivering on the metallic floor.
		<<elseif $enemywounded gte 1 and $enemyejaculated gte 1>>
			The <<beastsplural>> leave you spent and shivering on the metallic floor.
		<</if>>

		<<clotheson>>
		<<endcombat>>

		<<passouthospital>>
	<</if>>
<<elseif $enemyarousal gte $enemyarousalmax>>
	<<beastejaculation>>
	<<if $combatTrain.length gt 0>>
		Satisfied, the <<beasttype>> moves and another takes its turn.
		<<combatTrainAdvance>>

		[[Next|Abduction Hospital Corridor Wolves]]
	<<else>>
		Satisfied, the <<beasttype>> moves away from you.
		<<combatTrainAdvance>>

		<<if $enemywounded gte 2 and $enemyejaculated is 0>>
			Feeling that you're more trouble than you're worth, the <<beastsplural>> flee.
		<<elseif $enemywounded is 0 and $enemyejaculated gte 2>>
			The <<beastsplural>> leave you spent and shivering on the metallic floor.
		<<elseif $enemywounded gte 1 and $enemyejaculated gte 1>>
			The <<beastsplural>> leave you spent and shivering on the metallic floor.
		<</if>>

		<<clotheson>>
		<<endcombat>>

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

:: Abduction Hospital Hole Wolves
<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<controlloss>>
	<<violence 1>>
	<<neutral 1>>
	<<molested>>
	<<beastCombatInit>>
	<<beastTrainGenerate>>
	<<set $position to "wall">><<set $leftarm to "bound">><<set $rightarm to "bound">><<set $head to "bound">>
<</if>>

<<effects>>
<<effectsman>>

<<beast $enemyno>>

<<stateman>>

<<actionsman>>

<<if $enemyhealth lte 0>>
	<<link [[Next|Abduction Hospital Hole Finish]]>><</link>><<nexttext>>
<<elseif $enemyarousal gte $enemyarousalmax>>
	<<link [[Next|Abduction Hospital Hole Finish]]>><</link>><<nexttext>>
<<else>>
	<<link "Next">><><</link>><<nexttext>>
<</if>>

:: Abduction Hospital Hole Finish
<<effects>>

<<if $enemyhealth lte 0>>
	<<beastwound>>
	<<if $combatTrain.length gt 0>>
		You keep the <<beasttype>> at bay with your feet, but another is eager for a go.
		<<combatTrainAdvance>>

		[[Next|Abduction Hospital Hole Wolves]]
	<<else>>
		You keep the <<beasttype>> at bay with your feet, it recoils in pain and fear.
		<<combatTrainAdvance>>

		<<if $enemywounded gte 2 and $enemyejaculated is 0>>
			Feeling that you're more trouble than you're worth, the <<beastsplural>> flee.
		<<elseif $enemywounded is 0 and $enemyejaculated gte 2>>
			The <<beastsplural>> leave you spent and shivering in the wall.
		<<elseif $enemywounded gte 1 and $enemyejaculated gte 1>>
			The <<beastsplural>> leave you spent and shivering in the wall.
		<</if>>

		<<set $position to 0>>
		<<clotheson>>
		<<endcombat>>

		<<passouthospital>>
	<</if>>
<<elseif $enemyarousal gte $enemyarousalmax>>
	<<beastejaculation>>
	<<if $combatTrain.length gt 0>>
		Satisfied, the <<beasttype>> moves and another takes its turn with your helpless rear.
		<<combatTrainAdvance>>

		[[Next|Abduction Hospital Hole Wolves]]
	<<else>>
		Satisfied, the <<beasttype>> moves away from you.
		<<combatTrainAdvance>>

		<<if $enemywounded gte 2 and $enemyejaculated is 0>>
			Feeling that you're more trouble than you're worth, the <<beastsplural>> flee.
		<<elseif $enemywounded is 0 and $enemyejaculated gte 2>>
			The <<beastsplural>> leave you spent and shivering in the wall.
		<<elseif $enemywounded gte 1 and $enemyejaculated gte 1>>
			The <<beastsplural>> leave you spent and shivering in the wall.
		<</if>>

		<<set $position to 0>>
		<<clotheson>>
		<<endcombat>>

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


code:
:: Doctor Harper's Office
<<set $outside to 0>><<set $location to "hospital">><<effects>>

<<npc Harper>><<person1>>

You knock on the door, and hear Harper's voice on the other side. "Come in." You enter.

<<if $harperintro isnot 1>>
	<<set $harperintro to 1>>
	<<He>> sits at <<his>> desk in front of a computer. <<He>> looks away from the screen, "It's good that you've come." <<He>> motions for you to take a seat, you do so. "Don't worry, we won't be doing anything too invasive today."

	<<set $pills to 1>>

	You wonder what <<he>> means by "invasive". <<He>> interrupts your musing. "I'd like to prescribe some medication. I'll have it sent to your home." <<He>> starts filling out a form, but doesn't stop speaking. "There's something else I'd like to try. Please, sit back and relax."

	<<He>> puts down the paper and swivels to face you. <<His>> voice has taken on a soothing quality. "I want you to breathe deeply." <<He>> holds up <<his>> pen. "Focus on the pen. There's nothing in the universe except this pen, my voice, and your own breath."

	This continues for several minutes. Harper somehow picks up on whenever your mind starts to wander, and brings you back to focus. You start to feel something shift in your consciousness, as if you're entering a trance.

	<<link [[This feels nice|Doctor Harper's Office Trance]]>><<pass 10>><<set $phase to 1>><<npcincr Harper dom 5>><<control 25>><<set $trance to 1>><<trauma -6>><<stress -12>><<awareness -10>><</link>><<ggcontrol>><<llawareness>><<ltrauma>><<lstress>>

	<<link [[Resist|Doctor Harper's Office Trance]]>><<pass 10>><<set $phase to 0>><<stress 6>><<npcincr Harper dom -5>><</link>><<gstress>>

<<elseif $rng gte 51>>

	"Please, sit down and relax." You do so, and <<he>> swivels to face you. <<His>> voice takes on a soothing quality. "I want you to breathe deeply." <<He>> holds up <<his>> pen. "Focus on the pen. There's nothing in the universe except this pen, my voice, and your own breath."

	This continues for several minutes. Harper somehow picks up on whenever your minds starts to wander, and brings you back to focus. You start to feel something shift in your consciousness, as if you're entering a trance.

	<<link [[This feels nice|Doctor Harper's Office Trance]]>><<pass 10>><<control 25>><<set $trance to 1>><<set $phase to 1>><<npcincr Harper dom 5>><<trauma -6>><<stress -12>><<awareness -10>><</link>><<ggcontrol>><<llawareness>><<ltrauma>><<lstress>>

	<<link [[Resist|Doctor Harper's Office Trance]]>><<pass 10>><<set $phase to 0>><<stress 6>><<npcincr Harper dom -5>><</link>><<gstress>>

<<else>>

	<<if $harperexam is 0>>
		<<set $harperexam to 1>><<upperstrip>><<lowerstrip>>

		<<if !$worn.under_lower.type.includes("naked")>>
			"Please strip down to your underwear and lie down on the bed." You hesitate. <<He>> notices your trepidation and smiles at you. "Don't worry, it's normal to be embarrassed, but there's no reason to be." Despite your anxiety, you remove your clothes and lie on the bed. Harper rolls <<his>> chair over to your side. "I'm going to examine you, just relax." <<He>> smiles. "I promise I'll be gentle."

		<<else>>
			"Please strip down to your underwear and lie down on the bed." You hesitate. <<He>> notices your trepidation and smiles at you. "Don't worry, it's normal to be embarrassed, but there's no reason to be." You can't help but feel conscious of your lack of underwear.

			Harper looks about to speak again when you blurt out.
			<<if $worn.genitals.type.includes("naked")>>
				"I'm not wearing anything underneath this!"
			<<else>>
				"I've only got a $worn.genitals.name underneath this!"
			<</if>>

			<<He>> looks at you blankly for a moment, then laughs. "I didn't realise you were that sort of person." You shift uncomfortably. "It's okay though, you need to get used to your doctor seeing those parts of you anyway. Come on, don't be shy."

			You remove your clothing with shaking fingers, then lie on the bed with your hands covering your <<genitals>>. Harper rolls <<his>> chair over to your side. "I'm going to examine you, just relax." <<He>> smiles. "I promise I'll be gentle."

		<</if>>

		<<He>> rubs <<his>> fingers against your shoulders, slowly working <<his>> way down your chest. <<He>> gives your <<nipples>> extra attention for some reason. It's hard not to squirm at the sensation.

		<<He>> continues further down your body, inching closer to <<if !$worn.under_lower.type.includes("naked")>>your $worn.under_lower.name.<<elseif $worn.genitals.type.includes("chastity")>>your $worn.genitals.name.<<else>>where your hands protect your <<genitals 1>>. <<He>> looks at you and asks. "Could you move your hands for me? It's important I check beneath them." You move your hands aside, exposing yourself. You stare at the ceiling and try to stay calm.<</if>>

		<<link [[Next|Doctor Harper's Office Exam]]>><<set $phase to 1>><</link>>

	<<elseif $harperexam is 1>>
		<<set $harperexam to 2>><<strip>>
		"I need to be more thorough this time. Please remove your clothing and lie down on the bed." You hesitate. All your clothing? <<He>> notices your trepidation and smiles at you. "Don't worry, it's normal to be embarrassed, but there's really no reason to be."

		You remove your clothing with shaking fingers, then lie on the bed with your hands covering your <<genitals>>. Harper rolls <<his>> chair over to your side. "I'm going to examine you, just relax." <<He>> smiles. "I promise I'll be gentle."

		<<He>> rubs <<his>> fingers against your shoulders, slowly working <<his>> way down your chest. <<He>> gives your <<nipples>> extra attention for some reason. It's hard not to squirm at the sensation.

		<<He>> continues further down your body, inching closer to where your hands protect your <<genitals>>. <<He>> looks at you and asks. "Could you move your hands for me? It's important I check beneath them." You move your hands aside, exposing yourself. You stare at the ceiling and try to stay calm.

		<<link [[Next|Doctor Harper's Office Exam]]>><<set $phase to 1>><</link>>

	<<else>>
		<<strip>>

		<<generate2>>You and the doctor aren't alone. A young <<person2>><<person>> sits in the corner of the room, looking slightly nervous. Harper introduces <<him>>. "This is a med student, <<he>> will be helping me today."

		Harper doesn't wait for a response. "Please remove your clothing and lie down on the bed." You feel embarrassed to be undressing in front of two people, but you assure yourself that it's fine. This is a medical check-up after all.

		<<person1>>You remove your clothing with shaking fingers, then lie on the bed with your hands covering your <<genitals>>. Harper rolls <<his>> chair over to your side. "I'm going to examine you, just relax." <<He>> smiles. "I promise I'll be gentle." You can feel the <<person2>><<person>> staring at your exposed skin.

		<<person1>>Harper commences <<his>> usual probing. As <<he>> reaches your pelvis, <<he>> asks "Could you move your hands for me?" You move your hands aside, exposing yourself. You stare at the ceiling and try to stay calm.

		<<link [[Next|Doctor Harper's Office Exam]]>><<set $phase to 2>><</link>>

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

:: Doctor Harper's Office Trance
<<set $outside to 0>><<set $location to "hospital">><<effects>>

<<if $phase is 0>>
	You shake yourself free of the effect. Harper doesn't change the tone of <<his>> voice. "That's enough for today. Remember, don't be afraid to relax." <<He>> holds open the door for you. "Same time next week. Be well."

	<<link [[Next|Hospital Foyer]]>><<endevent>><</link>>
<<elseif $phase is 1>>
	<<if $hypnosis is 0>><<set $hypnosis to 1>><<hypnotised 1>>

		You slip deeper into the trance. You don't remember ever feeling so tranquil. You hear Harper's voice drifting toward you. "That's very good. Now, the next time you feel overwhelmed by it all, I want you to remember this feeling, and..." <<He>> gives you instructions. "...you won't remember this. "When I drop this pen, you will awaken."

		The pen clatters to the floor. You blink. You're back in reality, but feeling better than you were before you entered the office. You recall Harper talking to you while you were entranced, but can't recall what was said.

		<<He>> smiles at you. "Today was a success. Well done." <<He>> holds open the door for you. "Same time next week. Be well."

		<<link [[Next|Hospital Foyer]]>><<endevent>><</link>>

	<<elseif $hypnosis is 1>>
		You slip deeper into the trance. You return to the familiar state of tranquillity. You hear Harper's voice drifting toward you. "That's very good." <<He>> rummages through the drawer on <<his>> desk and produces a camera. "Now, take off your clothes."

		<<link [[Take off your clothes|Doctor Harper's Office Camera]]>><<pass 20>><<npcincr Harper dom 5>><<set $hypnosis to 2>><<hypnotised 1>><<set $phase to 1>><<strip>><</link>>

		<<link [[Refuse|Doctor Harper's Office Camera]]>><<npcincr Harper dom -5>><<set $phase to 0>><<stress 6>><</link>><<gstress>>

	<<elseif $hypnosis is 2>>
		You slip deeper into the trance and return to the familiar state of tranquillity. You hear Harper's voice drifting toward you. "That's very good." <<He>> walks briskly over to the window. <<He>> opens it, and a <<generate2>><<person2>><<person>> climbs through, carrying a large camera and tripod.

		While <<he>> sets it up, <<person1>>Harper turns to you and softly speaks. "Take off your clothes."

		<<link [[Take off your clothes|Doctor Harper's Office Camera2]]>><<pass 20>><<npcincr Harper dom 5>><<set $hypnosis to 3>><<set $phase to 1>><<hypnotised 1>><<strip>><</link>>

		<<link [[Refuse|Doctor Harper's Office Camera2]]>><<npcincr Harper dom -5>><<stress 6>><<set $phase to 0>><</link>><<gstress>>

	<<elseif $hypnosis gte 3>>

		You slip deeper into the trance and return to the familiar state of tranquillity. You hear Harper's voice drifting toward you. "That's very good." <<He>> walks briskly over to the window. <<He>> opens it, and a <<generate2>><<person2>><<person>> climbs through, carrying a large camera and tripod. <<generate3>><<generate4>><<generate5>><<generate6>><<He>> is closely followed by four others, a <<person3>><<person>>, a <<person4>><<person>>, a <<person5>><<person>> and a <<person6>><<person>>.

		<<person2>>While the <<person>> sets up the camera, the other four start handing Harper money.<<person1>> <<He>> counts it, then hides it away in <<his>> drawer before turning to face you. "Take off your clothes," <<he>> says softly.

		<<link [[Take off your clothes|Doctor Harper's Office Camera3]]>><<pass 20>><<npcincr Harper dom 5>><<set $phase to 1>><<hypnotised 1>><<strip>><</link>>

		<<link [[Refuse|Doctor Harper's Office Camera3]]>><<npcincr Harper dom -5>><<stress 6>><<set $phase to 0>><</link>><<gstress>>

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

:: Doctor Harper's Office Camera
<<set $outside to 0>><<set $location to "hospital">><<effects>>

<<if $phase is 0>>
	You shake yourself free of the effect. Harper quickly hides the camera behind <<his>> back. "That's enough for today. Remember, don't be afraid to relax." <<He>> holds open the door for you. "Same time next week. Be well."

	<<link [[Next|Hospital Foyer]]>><<endevent>><</link>>
<<elseif $phase is 1>>
	You remove your clothing, the flicker of resistance unable to break through the haze. "Very good." Harper says. The softness in <<his>> voice is still present, but there is now also a distinct quavering. "Just keep focusing on your breath." <<He>> starts circling you with the camera, which produces a clicking sound whenever <<he>> momentarily stops.
	<<fameexhibitionism 10 pic>>

	This continues for several minutes. <<He>> places the camera back in the drawer. "Put your clothes back on," <<he>> says, as <<he>> sits back down and sighs. You dress yourself with robotic motions while Harper watches. After, <<he>> drops <<his>> pen on the ground and brings you back to reality.

	<<He>> smiles at you, <<his>> face blushing. "Today was a success. Well done." <<He>> holds open the door for you. "Same time next week. Be well."

	<<link [[Next|Hospital Foyer]]>><<clotheson>><<endevent>><</link>>
<</if>>

:: Doctor Harper's Office Camera2
<<set $outside to 0>><<set $location to "hospital">><<effects>>

<<if $phase is 0>>
	You shake yourself free of the effect. The <<person2>><<person>> doesn't notice, but Harper jumps to action.<<person1>> <<He>> addresses the <<person2>><<person>>.<<person1>> "Now's not the time for maintenance! Can't you see I have a patient?"

	<<person2>>The <<person>> looks at Harper blankly for a moment, before realisation dawns on <<his>> face. <<He>> grabs the tripod and leaves via the window. Harper turns to you. "I don't know why <<he>> didn't just use the door. <<person1>>Nevermind, that's enough for today. Remember, don't be afraid to relax." <<He>> holds open the door for you. "Same time next week. Be well."

	<<link [[Next|Hospital Foyer]]>><<endevent>><</link>>
<<elseif $phase is 1>>
	You take off your clothes. As you do so, a green light winks into existence on the front of the camera. Once completely nude, Harper speaks. "Very good. Next, I want you to twirl on the spot..."

	For the next several minutes you obey Harper's instructions. You turn, bend over, and strike numerous poses for the lens of the camera, leaving no inch of your skin unexplored.
	<<fameexhibitionism 50 vid>>

	<<person2>>The <<person>> exchanges a look with Harper, then the green light flickers out. <<He>> begins dismantling the apparatus while Harper <<person1>>retrieves <<his>> own camera and starts snapping pictures.

	<<person2>>When done, the <<person>> leaves via the window. <<person1>>Harper puts away <<his>> camera and turns back to you. "Put on your clothes." You dress yourself with robotic motions while Harper watches. When you are finished, <<he>> drops <<his>> pen on the ground and brings you back to reality.

	<<He>> smiles at you, <<his>> face blushing. "Today was a success. Well done." <<He>> holds open the door for you. "Same time next week. Be well."

	<<link [[Next|Hospital Foyer]]>><<clotheson>><<endevent>><</link>>
<</if>>

:: Doctor Harper's Office Camera3
<<set $outside to 0>><<set $location to "hospital">><<effects>>

<<if $phase is 0>>
	You shake yourself free of the effect. The atmosphere of the room becomes tense and awkward.<<person1>> Harper speaks, sounding exasperated. "Thank you for letting these students observe the examination. That'll be all for today. Same time next week." <<He>> hurries you from the room and promptly closes the door behind you.

	<<link [[Next|Hospital Foyer]]>><<endevent>><</link>>
<<elseif $phase is 1>>
	<<if $hypnosis is 3>>
		<<set $hypnosis to 4>>
		You take off your clothes. As you do so, a green light winks into existence on the front of the camera. Once completely nude, Harper speaks. "Very good. Next, I want you to twirl on the spot..."

		For the next several minutes you obey Harper's instructions. You turn, bend over, and strike numerous poses for the lens of the camera, leaving no inch of your skin unexplored. The audience watches intently, looking increasingly flustered. The <<person3>><<person>> gets <<his>> phone out and starts filming.<<fameexhibitionism 50 vid>>

		<<person2>>The <<person>> exchanges a look with Harper, then the green light flickers out. <<He>> begins dismantling the apparatus while Harper <<person1>>retrieves <<his>> own camera and starts snapping pictures.

		When done, the group leaves via the window. <<person1>>Harper puts away <<his>> camera and turns back to you. "Put on your clothes." You dress yourself with robotic motions while Harper watches. When you are finished, <<he>> drops <<his>> pen on the ground and brings you back to reality.

		<<He>> smiles at you, <<his>> face blushing. "Today was a success. Well done." <<He>> holds open the door for you. "Same time next week. Be well."

		<<link [[Next|Hospital Foyer]]>><<clotheson>><<endevent>><</link>>
	<<elseif $hypnosis is 4>>
		You take off your clothes. As you do so, a green light winks into existence on the front of the camera. Once completely nude, Harper speaks. "Very good. Next, I want you to twirl on the spot..."

		For the next several minutes you obey Harper's instructions. You turn, bend over, and strike numerous poses for the lens of the camera, leaving no inch of your skin unexplored. The audience watches intently, looking increasingly flustered. The <<person3>><<person>> gets <<his>> phone out and starts filming.<<fameexhibitionism 50 vid>>

		<<person2>>The <<person>> exchanges a look with Harper, then the green light flickers out. <<He>> begins dismantling the apparatus while Harper <<person1>>retrieves <<his>> own camera and starts snapping pictures.

		You hear the <<person3>><<person>> say something, but you can't make it out. <<person1>>Everyone looks at Harper expectantly. <<He>> pauses for a moment, then nods. Immediately, a salacious feeling fills the room, and the audience move closer.

		<<link [[Next|Doctor Harper's Office Camera Molestation]]>><<set $molestationstart to 1>><</link>>
	<</if>>
<</if>>

:: Doctor Harper's Office Camera Molestation
<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<violence 1>>
	<<neutral 1>>
	<<molested>>

	<<maninit>><<npcstrip>>
	<<if $player.virginity.vaginal isnot true or $player.virginity.penile isnot true>>
	<<else>>
		<<npcidlegenitals>>
	<</if>>
<</if>>

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

<<stateman>>

<<actionsman>>

<<if $enemyarousal gte $enemyarousalmax>>
	<<link [[Next|Doctor Harper's Office Camera Molestation Finish]]>><</link>><<nexttext>>
<<elseif $enemyhealth lte 0>>
	<<link [[Next|Doctor Harper's Office Camera Molestation Finish]]>><</link>><<nexttext>>
<<elseif $orgasmdown gte 1>>
	<<link [[Next|Doctor Harper's Office Camera Molestation Finish]]>><</link>><<nexttext>>
<<else>>
	<<link [[Next|Doctor Harper's Office Camera Molestation]]>><</link>><<nexttext>>
<</if>>

:: Doctor Harper's Office Camera Molestation Finish
<<set $outside to 0>><<set $location to "hospital">><<effects>>

<<if $enemyarousal gte $enemyarousalmax>>
	<<ejaculation>>
<<elseif $enemyhealth lte 0>>
	<<famescrap 6>>
	The audience back away from you, surprised by your aggression.

<</if>>
	"That's enough," Harper announces. "We can't overdo it. Everyone back off." The audience does so, albeit reluctantly. They watch you spasm on the floor, until your orgasm recedes completely.

The group soon leaves via the window. <<person1>> Harper closes it then turns to face you. "Put on your clothes." You dress yourself with robotic motions while Harper watches. When you are finished, <<he>> drops <<his>> pen on the ground and brings you back to reality.

<<clotheson>>

<<He>> smiles at you, <<his>> face blushing. "Today was a success. Well done." <<He>> holds open the door for you. "Same time next week. Be well." You feel strangely drained.

<<endcombat>>

<<link [[Next|Hospital Foyer]]>><<clotheson>><</link>>

:: Doctor Harper's Office Exam
<<if $phase is 1>>

	<<He>> gently probes your <<genitals>> with <<his>> fingers.
	<<if $worn.genitals.type.includes("naked") and setup.bodyliquid.combined("vagina") gte 2>>
		Cum and other lewd fluids
		<<if setup.bodyliquid.combined("vagina") gte 4>>
			gush
		<<else>>
			dribble
		<</if>>
		out <<if $player.penisExist>>of your pussy <</if>>and Harper's hands snap back.

		"Sexual activity is perfectly normal, but it is crucial to look after your hygiene," Harper rebukes.

		Harper grabs a glass beaker from a nearby cupboard and holds it under your butt. With the other hand <<he>> holds open your vagina,
		allowing the lewd fluids to drain out into the beaker.

		<<if setup.bodyliquid.combined("vagina") gte 4>>
			"There's still more," Harper says. A moment later, a finger is pushed deep inside your vagina. A final wave of fluids run out.

		<</if>>
		<<set $player.bodyliquid.vagina to {"goo": 0, "semen": 0}>>
		"There," <<he>> says. "I'll take this away for... for testing. Now let's resume."

		Harper resumes the exam.
	<</if>>
	Almost as soon as <<he>> touches you, you feel a distinct warmth spread through your groin. You try to resist, but you don't have any control over it.
	<<if $player.penisExist and $worn.genitals.type.includes("naked")>>
		Your penis soon stands conspicuously erect. Harper continues as if nothing is amiss.
	<<elseif $player.penisExist>>
		Your penis soon attempts to form an erection despite the lack of space. Harper continues as if nothing is amiss.
	<<else>>
		You can feel the fluid leaking from your slit. Harper lifts <<his>> hand up to <<his>> eyes, and you see the liquid drip from <<his>> fingers.
	<</if>>

	"There's no need to be ashamed. This is a perfectly natural and normal response," <<he>> says in a dry tone.
	<<He>> continues <<his>> systematic investigation of your <<genitals 1>>.
	<<arousal 2000>>

	<<if $arousal gte $arousalmax>><<arousal -8000>><<set $stress -= 200>>
		The warmth within you continues to build, but Harper shows no sign of letting up. You feel yourself pass the point of no return, and you whimper softly.
		"Please, no." Harper is looking at you puzzled when it hits you. The orgasm emerges and your back immediately arcs.
		Uncontrollable moans escape your lips and you grip the side of the bed to stop your arms flailing.
		<<orgasmstat>><<set $orgasmcount += 1>>

		<<if $player.penisExist and $orgasmcount lte 23 and $devstate is 1>>
			<<if !$worn.genitals.type.includes("naked")>>
				You ejaculate, generating a large wet patch and filling the inside of your $worn.genitals.name with your fluids.
			<<elseif !$worn.under_lower.type.includes("naked")>>
				You ejaculate, generating a large wet patch and filling the inside of your $worn.under_lower.name with your fluids.
			<<else>>
				Semen spurts from the tip of your penis, rising into the air and splattering all over your thighs and torso.
			<</if>>
		<</if>>

		Despite it all, Harper continues as if absolutely nothing is amiss. You lie there, spent and humiliated, as <<he>> finishes <<his>> examination. Finally, <<he>> grabs some paper towels and starts cleaning up your fluids. You pretend to be elsewhere.

	<</if>>

	"There we go, all done." <<He>> pushes <<his>> chair back over to <<his>> desk and starts typing something. "You can put your clothes back on." You do so without delay. "You seem to be perfectly healthy." <<He>> shows you to the door as soon as you're dressed. "Same time next week. Be well."

	<<link [[Next|Hospital Foyer]]>><<clotheson>><<endevent>><</link>>
<<elseif $phase is 2>>
	<<person1>><<He>> gently probes your <<genitals>> with <<his>> fingers.
	<<if $worn.genitals.type.includes("naked") and setup.bodyliquid.combined("vagina") gte 2>>
		Cum and other lewd fluids
		<<if setup.bodyliquid.combined("vagina") gte 4>>
			gush
		<<else>>
			leak
		<</if>>
		out <<if $player.penisExist>>of your pussy<</if>>.
		Harper's hands snap back and you hear the <<person2>><<person>> gasp.

		"Sexual activity is perfectly normal, but it is crucial to look after your hygiene," Harper rebukes. "Hey you, uhh... Student. Bring over a beaker. No, a beaker. The glass thing in that cupboard there. There! That's it."

		The <<person>> walks over with a glass beaker.

		"Hold it here," Harper indicates just under your pussy. You feel the cold glass press against your butt.

		"Good," Harper puts two fingers in your <<genitals>> and spreads, allowing the lewd fluids to drain out into the beaker.

		<<arousal 500>>
		<<if setup.bodyliquid.combined("vagina") gte 4>>
			"I can still see more," the <<person>> says.

			"Go on then."

			A moment later, a finger is pushed deep inside your vagina.
			<<arousal 1000>>
			A final wave of fluids run out.

			"Good work, that's it,"
		<<else>>
			"That's it,"
		<</if>>
		<<set $player.bodyliquid.vagina to {"goo": 0, "semen": 0}>>
		Harper says. "Put the beaker over there for later. For testing that is. Let's resume."

		<<person1>>Harper resumes the exam.
	<</if>>
	Almost as soon as <<he>> touches you, you feel a distinct warmth spread through your groin. You try to resist, but you don't have any control over it.
	<<if $player.penisExist and $worn.genitals.type.includes("naked")>>
		Your penis soon stands conspicuously erect. Harper continues as if nothing is amiss.
	<<elseif $player.penisExist>>
		Your penis soon attempts to form erection despite the lack of space. Harper continues as if nothing is amiss.
	<<else>>
		You can feel the fluid leaking from your slit. Harper lifts <<his>> hand up to <<his>> eyes, and you see the liquid drip from <<his>> fingers.
	<</if>>

	"There's no need to be ashamed. This is a perfectly natural and normal response," <<he>> says in a dry tone. "Student, come give me a hand." <<person2>>The <<person>> arrives at your side, looking nervous but eager.<<person1>> Together, they continue the systematic investigation of your <<genitals 1>>.
	<<arousal 2000>>

	<<if $arousal gte $arousalmax>><<arousal -8000>><<set $stress -= 200>>
		The warmth within you continues to build, but Harper and the <<person2>><<person>><<person1>> show no sign of letting up. You feel yourself pass the point of no return, and you whimper softly. "Please, no." Harper is looking at you puzzled when it hits you. The orgasm emerges and your back immediately arcs. Uncontrollable moans escape your lips and you grip the side of the bed to stop your arms flailing. The <<person2>><<person>> gasps.<<person1>>
		<<orgasmstat>><<set $orgasmcount += 1>>

		<<if $player.penisExist and $orgasmcount lte 23 and $devstate is 1>>
			<<if !$worn.genitals.type.includes("naked")>>
				You ejaculate, generating a large wet patch and filling the inside of your $worn.genitals.name with your fluids.
			<<elseif !$worn.under_lower.type.includes("naked")>>
				You ejaculate, generating a large wet patch and filling the inside of your $worn.under_lower.name with your fluids.
			<<else>>
				Semen spurts from the tip of your penis, rising into the air and splattering all over your thighs and torso.
			<</if>>
		<</if>>

		Despite it all, Harper continues as if absolutely nothing is amiss. You lie there, spent and humiliated, as <<he>> finishes <<his>> examination. Finally, <<he>> grabs some paper towels and starts cleaning up your fluids. You pretend to be elsewhere.

	<</if>>

	"There we go, all done." <<He>> pushes <<his>> chair back over to <<his>> desk and starts typing something. "You can put your clothes back on." You do so without delay. "You seem to be perfectly healthy." <<He>> shows you to the door as soon as you're dressed. "Same time next week. Be well."

	<<link [[Next|Hospital Foyer]]>><<clotheson>><<endevent>><</link>>
<</if>>