code:
:: Lake Underwater

<<set $outside to 0>><<set $location to "lake_ruin">><<set $bus to "lakeunderwater">><<underwater>><<effects>><<lakeeffects>>
<<if $stress gte $stressmax and !$possessed>>
	<<passoutlake>>
<<elseif $foresthunt gte 10>>
	<<foresthunt>>
<<elseif ($moonstate is "evening" and $hour gte 21 or $moonstate is "morning" and $hour lt 5) and $wraith and $wraith.state isnot "" and $wraith.hunt is 0 and $wraith.timer gte random(0, 10) and !$possessed>>
	<<wHunt "lake">>
<<else>>
	<<if $season is "winter">>
		You are beneath the lake. You swim beneath a crystal ceiling, between tall weeds.
		<<if $daystate is "night">>
			<<if $weather is "snow">>
				The ice is pitch black.
			<<elseif $weather is "clear">>
				Pale moonlight spills through.
			<<else>>
				The ice is black.
			<</if>>
		<<else>>
			<<if $weather is "snow">>
				The ice is white.
			<<elseif $weather is "clear">>
				Sunlight pierces through.
			<<else>>
				The ice is a dull grey.
			<</if>>
		<</if>>
	<<else>>
		You are beneath the lake. You swim over dark silt and between tall weeds.
		<<if $daystate is "night">>
			<<if $weather is "rain">>
				The water is black. It dulls the sound of the rain above.
			<<elseif $weather is "clear">>
				The plants glisten in moonlight.
			<<else>>
				The water is black.
			<</if>>
		<<else>>
			<<if $weather is "rain">>
				The water is dark. It dulls the sound of the rain above.
			<<elseif $weather is "clear">>
				Sunlight pierces the gloom.
			<<else>>
				The water is dark.
			<</if>>
		<</if>>
	<</if>>
	<<if $schoolday isnot 1 and $weather is "snow" and $daystate is "day" and $mason_ice_lake gte 1>>
		You glimpse Mason through the plants.
	<</if>>

	<<if $schoolday isnot 1 and $weather is "snow" and $daystate is "day" and $mason_ice_lake is undefined>>
		<<set $mason_ice_lake to 1>>
		<<npc Mason>><<person1>>
		A shape looms from the dark. Strong arms clutch you, pressing you against a sleek muscular body as you are carried back towards the light.

		You're pushed onto the ice. The figure climbs after you. It's Mason, clad in a wetsuit.

		<<if $exposed gte 1>>
			<<He>> grabs a towel from a bag on the swimming dock, and wraps it around you.
			<<towelup>>
		<</if>>
		<<He>> shivers in the cold air, but seems more concerned about you.

		"You shouldn't dive this time of year," <<he>> says. "It's dangerous."

		<<link [[Reassure|Lake Mason Reassure]]>><</link>><<swimmingdifficulty 600 1000>>

		<<link [[Thank|Lake Mason Thank]]>><<npcincr Mason love 1>><</link>><<glove>>

		<<link [[Get angry|Lake Mason Angry]]>><<def 1>><<npcincr Mason love -1>><</link>><<llove>>

	<<elseif $schoolday isnot 1 and $weather is "snow" and $daystate is "day" and $mason_ice_lake is 1 and random(1, 5) is 5>>
		<<npc Mason>><<person1>>
		Mason spots you, and speeds in your direction. <<He>> scoops you up in <<his>> arms, and kicks towards the light. You're pushed onto the ice.

		<<if $exposed gte 1>>
			<<He>> grabs a towel from a bag on the swimming dock, and wraps it around you.
			<<towelup>>
		<</if>>
		<<He>> shivers in the cold air, but seems more concerned about you.

		"I appreciate eagerness," <<he>> says. "But I meant what I said. It's dangerous. I can't let a student down there."

		<<link [[Reassure|Lake Mason Reassure]]>><</link>><<swimmingdifficulty 600 1000>>

		<<link [[Thank|Lake Mason Thank]]>><</link>>

		<<link [[Get angry|Lake Mason Angry]]>><</link>>

	<<else>>
		<<if $nextPassageCheck is "Lake Ruin">>
			<<link [[Swim inside ruin|Lake Ruin]]>><<wateraction>><</link>><<loxygen>>
		<<else>>
			<<link [[Swim inside ruin|Lake Ruin]]>><<wateraction>><</link>><<loxygen>>
		<</if>>

		<<if $schoolday isnot 1 and $weather is "snow" and $daystate is "day">>
			<<set $lake_ice_broken to 1>>
		<</if>>
		<<if $season is "winter">>
			<<if $lake_ice_broken is undefined>>
				<<link [[Surface|Lake Underwater Ice]]>><</link>>

			<<else>>
				<<link [[Surface|Lake Depths Ice]]>><</link>>

			<</if>>
		<<else>>
			<<link [[Surface|Lake Depths]]>><<set $lakesurface to 1>><</link>>

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

:: Lake Underwater Ice
<<underwater>><<effects>>

You swim up to the surface, but you can't find the hole in the ice. It's frozen over!<<ggstress>><<stress 18>>

<<link [[Smash through|Lake Underwater Ice Smash]]>><<wateraction>><<pain 4>><</link>><<physiquedifficulty 1 $physiquemax>><<loxygen>><<gpain>>

<<link [[Keep calm and search for the hole|Lake Underwater Ice Calm]]>><<wateraction>><</link>><<willpowerdifficulty 1 $willpowermax>><<loxygen>>

<<link [[Swim back down|Lake Underwater]]>><<wateraction>><</link>><<loxygen>>

:: Lake Underwater Ice Smash
<<underwater>><<effects>>

<<if $physiqueSuccess>>
	You smash your <<if $leftarm is "bound" and $rightarm is "bound">>feet<<else>>fists<</if>> against the ice. You hear it crack. You keep bashing away, your strength bolstered by panic, and manage to bash open a hole large enough to climb through.

	<<earnFeat "Under the Ice">>
	You haul yourself onto the surface of the lake.

	<<set $location to "lake">>
	<<set $lake_ice_broken to 2>>
	<<link [[Next|Lake Depths Ice]]>><<set $eventskip to 1>><</link>>

<<else>>
	Your <<if $leftarm is "bound" and $rightarm is "bound">>feet<<else>>fists<</if>> thud against the ice, but it remains solid.

	<<link [[Keep trying|Lake Underwater Ice Smash]]>><<wateraction>><<pain 4>><</link>><<physiquedifficulty 1 $physiquemax>><<loxygen>><<gpain>>

	<<link [[Keep calm and search for the hole|Lake Underwater Ice Calm]]>><<wateraction>><</link>><<willpowerdifficulty 1 $willpowermax>><<loxygen>>

	<<link [[Swim back down|Lake Underwater]]>><<wateraction>><</link>><<loxygen>>

<</if>>

:: Lake Underwater Ice Calm
<<underwater>><<effects>>

<<if $willpowerSuccess>>
	You can't breathe to focus yourself, but you can feel the current around you. The ice won't be solid. There hasn't been time.

	Now calm, you see it. A gap not far from you. You swim over, and push against the frozen ceiling. It breaks apart at your touch.

	<<earnFeat "Under the Ice">>
	You haul yourself onto the surface of the lake.

	<<set $location to "lake">>
	<<set $lake_ice_broken to 2>>
	<<link [[Next|Lake Depths Ice]]>><<set $eventskip to 1>><</link>>

<<else>>
	You'd normally breathe to stay calm, but you can't even do that. Frantic, you push yourself along the surface in an erratic and hopeless pattern.<<gtrauma>><<trauma 6>><<ggwillpower>><<willpower 3>>

	<<link [[Smash through|Lake Underwater Ice Smash]]>><<wateraction>><<pain 4>><</link>><<physiquedifficulty 1 $physiquemax>><<loxygen>><<gpain>>

	<<link [[Keep trying|Lake Underwater Ice Calm]]>><<wateraction>><</link>><<willpowerdifficulty 1 $willpowermax>><<loxygen>>

	<<link [[Swim back down|Lake Underwater]]>><<wateraction>><</link>><<loxygen>>

<</if>>

:: Lake Ruin

<<set $outside to 0>><<set $location to "lake_ruin">><<set $bus to "lake_ruin">><<underwater>><<effects>><<lakeeffects>>
You are in the submerged ruin beneath the lake. Glowing purple lichen covers ancient walls.
<<if $wraithPrison or $sciencelichenlake is 1 or $scienceproject is "won" or $scienceproject is "done">>
	A strange rune glimmers on a flat section of the wall.
<</if>>

<<if $stress gte $stressmax and !$possessed>>
	<<passoutlake>>
<<elseif $foresthunt gte 10>>
	<<foresthunt>>
<<elseif ($moonstate is "evening" and $hour gte 21 or $moonstate is "morning" and $hour lt 5) and $wraith and $wraith.state isnot "" and $wraith.hunt is 0 and $wraith.timer gte random(0, 10) and !$possessed>>
	<<wHunt "lake">>
<<else>>
	<<if $sciencelichenknown is 1 and $sciencelichenlake isnot 1 and $scienceproject is "ongoing">>
		<<link [[Retrieve lichen for your science project|Lake Lichen]]>><<set $sciencelichenlake to 1>><<wateraction>><</link>><<loxygen>>

	<</if>>
	<<if $nextPassageCheck is "Lake Ruin Prison Intro">>
		<<link [[Inspect the rune|Lake Ruin Prison Intro]]>><<wateraction>><</link>><<loxygen>>

	<<elseif $wraithPrison or $sciencelichenlake is 1 or $scienceproject is "won" or $scienceproject is "done">>
		<<link [[Inspect the rune|Lake Ruin Symbol]]>><<wateraction>><</link>><<loxygen>>

	<</if>>
	<<link [[Swim deeper|Lake Ruin Deep]]>><<wateraction>><</link>><<loxygen>>

	<<link [[Swim towards the surface|Lake Underwater]]>><<wateraction>><</link>><<loxygen>>

<</if>>

:: Lake Ruin Symbol
<<set $outside to 0>><<set $location to "lake_ruin">><<set $bus to "lake_ruin">><<underwater>><<effects>><<lakeeffects>>
You run your hand over the carved symbol in the wall. Nothing happens.

<<if $wraithPrison>>
	You shiver, knowing what's on the other side.

<</if>>
<<link [[Next|Lake Ruin]]>><</link>>

:: Lake Ruin Deep

<<set $outside to 0>><<set $location to "lake_ruin">><<set $bus to "lake_ruin_deep">><<underwater>><<effects>><<lakeeffects>>
You are deep in the submerged ruin beneath the lake. Pots of different sizes fill the room. There's an ancient door opposite the entrance.
<<if $lakeruinkey isnot 2>>
	It's closed.
<<else>>
	It's open.
<</if>>

<<if $stress gte $stressmax and !$possessed>>
	<<passoutlake>>
<<elseif $foresthunt gte 10>>
	<<foresthunt>>
<<elseif ($moonstate is "evening" and $hour gte 21 or $moonstate is "morning" and $hour lt 5) and $wraith and $wraith.state isnot "" and $wraith.hunt is 0 and $wraith.timer gte random(0, 10) and !$possessed>>
	<<wHunt "lake">>
<<else>>
	<<if $lakeruinkey is 1>>
		<<link [[Use bronze key|Lake Ruin Door]]>><<wateraction>><</link>><<loxygen>>

	<</if>>
	<<link [[Search pots|Lake Pots]]>><<wateraction>><</link>><<loxygen>>

	<<if $lakeruinkey is 2>>
		<<link [[Swim inside plinth room|Lake Ruin Plinth]]>><<wateraction>><</link>><<loxygen>>

	<</if>>

	<<if $nextPassageCheck is "Lake Ruin">>
		<<link [[Swim towards exit|Lake Ruin]]>><<wateraction>><</link>><<loxygen>>
	<<else>>
		<<link [[Swim towards exit|Lake Ruin]]>><<wateraction>><</link>><<loxygen>>
	<</if>>

<</if>>

:: Lake Ruin Door

<<set $outside to 0>><<set $location to "lake_ruin">><<underwater>><<effects>><<lakeeffects>>
<<set $lakeruinkey to 2>>
You hear the ancient mechanism creak and the door groans open. Beyond is a plinth, stood alone in a rubble-strewn room. Atop it sits an ivory necklace. It's studded with blue jewels.

<<link [[Take it|Lake Ruin Ivory]]>><<set $antiquemoney += 2000>><<museumAntiqueStatus "antiqueivorynecklace" "found">><</link>>

<<link [[Leave|Lake Ruin Deep]]>><</link>>

:: Lake Ruin Sit
<<set $outside to 0>><<set $location to "lake_ruin">><<underwater>><<effects>><<lakeeffects>>

You grip the plinth, and pull your <<bottom>> against it. The instant you do, a red light blazes into life, illuminating the room. Previously unseen statues stare down at you from above.

You jerk back, and convulse. The room shakes and trembles. A crack appears in the floor. It widens, letting in more of the red light.
<<if $parasite.left_ear.name is "slime" and $parasite.right_ear.name is "slime">>
	You feel the slimes squirm from your ears. They vanish into the crevice.
<<else>>
	You feel the slime squirm from your ear. It vanishes into the crevice.
<</if>>

<<set $corruption_slime to 1>>

<<if $slime_tf is 1>>
<<set $slime_tf to 0>>
<<set $physicalTransform to 0>>
<</if>>

<<if $parasite.left_ear.name is "slime" or $parasite.right_ear.name is "slime">>
	<<unset $alwaysSleepNaked>>
	<<unset $slimeEvent>>
<</if>>

<<if $parasite.left_ear.name is "slime">>
<<removeparasite left_ear>>
<</if>>
<<if $parasite.right_ear.name is "slime">>
<<removeparasite right_ear>>
<</if>>

<<if $tentacledisable is "f">>

The light fades, and all falls quiet. Yet you feel a presence. Something stayed behind.

Over a dozen tentacles curl up the side of the plinth, forming a prison around you.

<<link [[Next|Lake Ruin Sit Tentacles]]>><<set $molestationstart to 1>><</link>>

<<else>>

<<link [[Next|Lake Ruin Plinth]]>><</link>>

<</if>>

:: Lake Ruin Sit Tentacles

<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<set $combat to 1>>
	<<set $enemytype to "tentacles">>
	<<controlloss>>
	<<molested>>
	<<tentaclestart 16 16>>
<</if>>
<<statetentacles>>

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

:: Lake Ruin Sit Tentacles Finish

<<underwater>><<effects>>
The creature recoils from you and disappears into darkness. <<tearful>> you look around, but see no other threats.
<<clotheson>>
<<endcombat>>
<<link [[Next|Lake Ruin Plinth]]>><</link>>

:: Lake Ruin Plinth

<<set $outside to 0>><<set $location to "lake_ruin">><<underwater>><<effects>><<lakeeffects>>
You are deep in the lake ruin, in a small room with a plinth.
<<if $moonstate is "evening" and $hour gte 21 or $moonstate is "morning" and $hour lt 6>>
	<<if $wraith and $wraith.hunt>>
		You sense the presence following you come to a stop. It can't reach you in here.
	<</if>>
	Red moonlight filters down from cracks in the ceiling. There isn't much, but the plinth seems to glow where the light hits it.
	<<if $moonEvent is true and $parasite.left_ear.name is undefined and $parasite.right_ear.name is undefined and $worn.genitals.name is "gold chastity belt">>
		<<unset $moonEvent>><<set $worn.genitals.integrity *= 0.5>><<control 50>>
		You're drawn to the plinth, and feel an odd sense of peace.
		<<gggcontrol>>
	<</if>>
<</if>>
<<if $moonstate is "evening" and $hour gte 21 and ($parasite.left_ear.name is "slime" or $parasite.right_ear.name is "slime") or $moonstate is "morning" and $hour lt 6 and ($parasite.left_ear.name is "slime" or $parasite.right_ear.name is "slime")>>
	<<unset $moonEvent>>
	You feel it pull to you.

	<<link [[Sit on the plinth|Lake Ruin Sit]]>><</link>>

<<elseif $museumAntiques.antiques.antiqueivorynecklace is "notFound">>
	An ivory necklace sits atop it. It's studded with blue jewels.

	<<link [[Take it|Lake Ruin Ivory]]>><<set $antiquemoney += 2000>><<museumAntiqueStatus "antiqueivorynecklace" "found">><</link>>

<<elseif $tentacledisable is "f" and $hallucinations gte 2>>
	You look around the barren room. You don't see anything besides the plinth, but you hear a faint slithering sound. Something's watching you.

	<<link [[Search|Lake Ruin Deep Offer]]>><<loxygen>><</link>>

<<else>>

<</if>>
<<link [[Leave|Lake Ruin Deep]]>><</link>>

:: Lake Ruin Ivory
<<effects>>
You lift the necklace from the plinth. The craftsmanship is masterful, and you get the feeling that this meant a lot to someone.

<<if $moonstate is "evening" and $hour gte 21 or $moonstate is "morning" and $hour lt 6>>
	You suddenly hear pounding on the walls all around you. <<if $wraith and $wraith.seen gte 1>>A familiar<<else>>An unfamiliar<</if>> voice cries out, and it feels like something's grabbing at your arms and legs. You instinctively flail and push yourself backwards through the water. <<trauma 12>><<ggtrauma>>

	It dies down after a few moments, leaving you shaken.
	<<if $wraith and $wraith.hunt>>
		The dread slowly passes, and you no longer sense the presence hunting you. You're safe until the next blood moon.

	<</if>>
	<<if $wraith>>
		<<set $wraith.state to "">>
		<<clearWraith>>
		<<set $wraithSkip to true>>
	<</if>>
	<<tearful>> you exit the room.
<<elseif $wraith and $wraith.state isnot "">>
	You feel a twinge of dread as you look at your reflection in the blue gemstones. You look pale. <<stress 6>><<gstress>>

	You decide not to linger, and leave the room with the necklace in hand.
<<else>>
	You can see your reflection in the blue gemstones. This will fetch a high price.
<</if>>

<<link [[Next|Lake Ruin Deep]]>><</link>>

:: Lake Ruin Deep Offer

<<set $outside to 0>><<set $location to "lake_ruin">><<underwater>><<effects>><<lakeeffects>>
Whatever it is, it sounds like it's behind you. No matter what direction you face. You sense a thirst.

<<if $deviancy gte 55>>
	<<link [[Offer yourself|Lake Ruin Deep Offer 2]]>><<loxygen>><</link>><<deviant4>>

<</if>>
<<link [[Leave|Lake Ruin Deep]]>><</link>>

:: Lake Ruin Deep Offer 2

<<set $outside to 0>><<set $location to "lake_ruin">><<underwater>><<effects>><<lakeeffects>>
<<if $exposed gte 2>>
	You spread your arms and legs out, presenting your body to the thing in the room. <<deviancy4>>
<<else>>
	<<strip>>
	You strip naked and give a suggestive wiggle, trying to goad the presence.
	<<deviancy4>>
<</if>>
After a moment, you sense a number of tentacles approach you from behind. They prod you gently, testing your offer. Though underwater, your skin slickens at their touch.

Several of the tentacles begin to explore your body, trailing slime wherever they go. You feel two of them wrap around your ankles. Everywhere they make contact, a stimulating tingle electrifies your skin. You are filled with an intense excitement as the tendrils slide up your thighs and towards your <<genitals>>. <<ggarousal>><<arousal 1500>>

<<link [[Continue|Lake Ruin Deep Consentacles]]>><<loxygen>><<set $sexstart to 1>><</link>>

<<link [[Escape|Lake Ruin Deep Consentacles Leave]]>><<loxygen>><</link>><<swimmingdifficulty 1 1000>>

:: Lake Ruin Deep Offer 2 Leave

Sensing imminent danger, you decide not to take any risks and leave the room.

<<link [[Continue|Lake Ruin Deep]]>><<loxygen>><</link>>

:: Lake Ruin Deep Consentacles

<<if $sexstart is 1>>
	<<set $sexstart to 0>>
	<<consensual>>
	<<set $consensual to 1>>
	<<set $enemytype to "tentacles">>
	<<neutral 1>>

	<<set $enemytrust += 100>>
	<<tentaclestart 6 8>>
<</if>>

<<statetentacles>>

<<underwater>><<effects>>
<<effectstentacles>>
<<tentacles>>
<<actionstentacles>>
<<if $tentacles.active lte ($tentacles.max / 2)>>
	<<link [[Next|Lake Underwater Tentacles Finish]]>><</link>><<nexttext>>
<<else>>
	<<link [[Next|Lake Ruin Deep Consentacles]]>><</link>><<nexttext>>
<</if>>

:: Lake Ruin Deep Consentacles Leave

Deciding you've had enough, you attempt to unravel yourself and leave the room.

<<if $swimmingSuccess>>
	You free your ankles and make your escape. The tentacles grasp at you with increasing desperation. You narrowly avoid one shooting for your leg, and swim through the doorway. The tentacles protrude from the room and grope around the walls, but they refuse to chase you any further. They slink away.

	<<link [[Continue|Lake Ruin Deep]]>><<loxygen>><</link>>

<<else>>
	You try to swim towards the doorway, but you're unable to free yourself. The tentacles snaring your ankles drag you back into the centre of the room while the rest surround you from all sides.

	<<link [[Next|Lake Ruin Deep NonConsentacles]]>><<set $molestationstart to 1>><</link>>

<</if>>

:: Lake Ruin Deep NonConsentacles

<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<set $combat to 1>>
	<<set $enemytype to "tentacles">>
	<<controlloss>>
	<<molested>>
	<<tentaclestart 6 8>>
<</if>>
<<statetentacles>>

<<underwater>><<effects>>
<<effectstentacles>>
<<tentacles>>
<<actionstentacles>>
<<if $tentacles.active lte ($tentacles.max / 2)>>
	<<link [[Next|Lake Underwater Tentacles Finish]]>><</link>><<nexttext>>
<<else>>
	<<link [[Next|Lake Ruin Deep NonConsentacles]]>><</link>><<nexttext>>
<</if>>

:: Lake Pots

<<set $outside to 0>><<set $location to "lake_ruin">><<set $bus to "lake_ruin_deep">><<underwater>><<effects>><<lakeeffects>>
<<if $stress gte $stressmax and !$possessed>>
	<<passoutlake>>
<<elseif $foresthunt gte 10>>
	<<foresthunt>>
<<else>>
	<<if $rng gte 81>>
		You reach inside one of the pots, and find a small ivory box. It's sealed by a bronze lock.

		<<if $historytrait gte 4>>
			The box itself is very old. It must be valuable.

			<<link [[Just take the box|Lake Ruin Deep]]>><<set $antiquemoney += 20>><<museumAntiqueStatus "antiquebox" "found">><</link>>

		<</if>>
		<<set $skulduggerydifficulty to 300>>
		<<link [[Open it|Lake Ruin Box]]>><<wateraction>><</link>><<skulduggerydifficulty>><<loxygen>>

		<<if $lakeruinkey is 1>>
			<<link [[Use bronze key|Lake Ruin Door]]>><<wateraction>><</link>><<loxygen>>

		<</if>>
		<<link [[Search pots|Lake Pots]]>><<wateraction>><</link>><<loxygen>>

		<<if $lakeruinkey is 2>>
			<<link [[Swim inside plinth room|Lake Ruin Plinth]]>><<wateraction>><</link>><<loxygen>>

		<</if>>

		<<link [[Swim towards exit|Lake Ruin]]>><<wateraction>><</link>><<loxygen>>

	<<elseif $rng gte 78 and $swarmdisable is "f">>
		You reach inside one of the pots. Swarms of small fish surge out, surrounding you.

		<<link [[Next|Lake Swarm]]>><<set $molestationstart to 1>><</link>>

	<<elseif $rng gte 51>>
		You reach inside one of the pots. There's purple dust at the bottom. Your probing disturbs it, and it swirls around your arm. You feel heated.
		<<gstress>><<stress 3>><<garousal>><<arousal 600>>

		<<if $lakeruinkey is 1>>
			<<link [[Use bronze key|Lake Ruin Door]]>><<wateraction>><</link>><<loxygen>>

		<</if>>
		<<link [[Search pots|Lake Pots]]>><<wateraction>><</link>><<loxygen>>

		<<if $lakeruinkey is 2>>
			<<link [[Swim inside plinth room|Lake Ruin Plinth]]>><<wateraction>><</link>><<loxygen>>

		<</if>>

		<<link [[Swim towards exit|Lake Ruin]]>><<wateraction>><</link>><<loxygen>>

	<<elseif $rng gte 41 and $lakeruinkey is undefined>>
		You reach inside one of the pots. You find a decaying bronze key.

		<<set $lakeruinkey to 1>>
		<<link [[Open door with bronze key|Lake Ruin Door]]>><<wateraction>><</link>><<loxygen>>

		<<link [[Search pots|Lake Pots]]>><<wateraction>><</link>><<loxygen>>

		<<if $lakeruinkey is 2>>
			<<link [[Swim inside plinth room|Lake Ruin Plinth]]>><<wateraction>><</link>><<loxygen>>

		<</if>>

		<<link [[Swim towards exit|Lake Ruin]]>><<wateraction>><</link>><<loxygen>>

	<<else>>
		<<set $rng to random(1, 100)>>
		<<if $rng gte 81>>
			You reach inside one of the pots. It's full of broken ceramics.
		<<elseif $rng gte 61>>
			You reach inside one of the pots. Something inside snaps at you. You pull your hand away in time, but it was close.
			<<gstress>><<stress 3>>
		<<elseif $rng gte 41>>
			You reach inside one of the pots. It's full of mud.
		<<elseif $rng gte 21>>
			You reach inside one of the pots. It's full of pebbles.
		<<else>>
			You reach inside one of the pots. It's empty.
		<</if>>

		<<if $lakeruinkey is 1>>
			<<link [[Use bronze key|Lake Ruin Door]]>><<wateraction>><</link>><<loxygen>>

		<</if>>
		<<link [[Search pots|Lake Pots]]>><<wateraction>><</link>><<loxygen>>

		<<if $lakeruinkey is 2>>
			<<link [[Swim inside plinth room|Lake Ruin Plinth]]>><<wateraction>><</link>><<loxygen>>

		<</if>>

		<<link [[Swim towards exit|Lake Ruin]]>><<wateraction>><</link>><<loxygen>>

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

:: Lake Swarm

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

	<<set $enemytype to "swarm">>
	<<swarminit "fish" "container" "shaking" "shatter" "steady" 4 6>>
	<<set $swimdistance to 8>>
	<<set $water to 1>>
<</if>>
<<if $swimdistance gte 8>>
	You're caught in the middle of the swarm.
<<elseif $swimdistance gte 2>>
	You're escaping the swarm.
<<else>>
	You've almost escaped.
<</if>>
<<underwater>><<effects>><<swarmeffects>>
<<swarm>>
<<swarmactions>>
<<if $stress gte $stressmax>>
	<<link [[Next|Lake Swarm Finish]]>><</link>><<nexttext>>
<<elseif $swimdistance lte 0>>
	<<link [[Next|Lake Swarm Finish]]>><</link>><<nexttext>>
<<else>>
	<<link "Next">><><</link>><<nexttext>>
<</if>>

:: Lake Swarm Finish

<<set $outside to 0>><<set $location to "lake_ruin">><<underwater>><<effects>><<lakeeffects>>
<<if $stress gte $stressmax>>
	It's all just too much for you. You pass out.

	<<if $upperoff isnot 0>>
		<<upperruined>>
	<</if>>
	<<if $loweroff isnot 0>>
		<<lowerruined>>
	<</if>>
	<<if $underloweroff isnot 0>>
		<<underlowerruined>>
	<</if>>
	<<if $underupperoff isnot 0>>
		<<underupperruined>>
	<</if>>
	<<endcombat>>
	<<passoutlake>>
<<else>>
	<<tearful>> you swim away from the swarms of fish, who stay near their pots. They disappear inside them.

	<<clotheson>>
	<<endcombat>>
	<<link [[Swim towards exit|Lake Ruin]]>><<wateraction>><</link>><<loxygen>>

	<<link [[Search pots|Lake Pots]]>><<wateraction>><</link>><<loxygen>>

<</if>>

:: Lake Ruin Box

<<set $outside to 0>><<set $location to "lake_ruin">><<underwater>><<effects>><<lakeeffects>>

<<skulduggerycheck>>
<<if $skulduggerysuccess is 1>>
	<<if $skulduggery lte ($skulduggerydifficulty + 100)>>
		<<skulduggeryskilluse>>
	<<else>>
		That was too easy. You didn't learn anything.

	<</if>>
	<<if $rng gte 95>>
		<<if random(0,100) gte 80>>
			You find a gold chastity belt.
			<<set $antiquemoney += 2000>><<museumAntiqueStatus "antiquegoldchastitybelt" "found">>
			<<set _goldchastity to true>>

		<<else>>
			You find a gold necklace.
			<<set $antiquemoney += 500>><<museumAntiqueStatus "antiquegoldnecklace" "found">>

		<</if>>
	<<else>>
		You find a silver ring.
		<<set $antiquemoney += 30>><<museumAntiqueStatus "antiquesilverring" "found">>

	<</if>>
	<<if $historytrait gte 4>>
		You take the empty box too. It belongs in a museum.
		<<set $antiquemoney += 20>><<museumAntiqueStatus "antiquebox" "found">>

	<</if>>

	<<if $worn.genitals.name is "naked" and _goldchastity>>
		<<link [[Wear it|Lake Gold Chastity Belt]]>><<wateraction>><</link>><<loxygen>>

	<</if>>
	<<link [[Search pots|Lake Pots]]>>
	<<if _goldchastity>>
		<<set $gold_chastity_held to true>>
	<</if>>
	<<wateraction>><</link>><<loxygen>>

	<<link [[Swim towards exit|Lake Ruin]]>>
	<<if _goldchastity>>
		<<set $gold_chastity_held to true>>
	<</if>>
	<<wateraction>><</link>><<loxygen>>

<<else>>
	You fail to pick the lock.

	<<if $historytrait gte 4>>
		<<link [[Just take the box|Lake Ruin Deep]]>><<set $antiquemoney += 20>><<museumAntiqueStatus "antiquebox" "found">><</link>>

	<</if>>
	<<link [[Try again|Lake Ruin Box]]>><<wateraction>><</link>><<skulduggerydifficulty>><<loxygen>>

	<<link [[Swim towards exit|Lake Ruin]]>><<wateraction>><</link>><<loxygen>>

	<<link [[Search pots|Lake Pots]]>><<wateraction>><</link>><<loxygen>>

<</if>>

:: Lake Gold Chastity Belt

<<set $outside to 0>><<set $location to "lake_ruin">><<underwater>><<effects>><<lakeeffects>>
<<set $antiquemoney -= 2000>>

You examine the gold chastity belt in your hands. You think you see a faint glow emanating from it. You wonder what it felt like having something so beautiful protecting your <<genitals 1>>.

You feel an urge to try it on. You wrap it around your waist. As it clicks shut you wonder if there's a key somewhere.

<<clothesstrip>>
<<genitalswear 3>>
<<earnFeat "Locked In Gold">>
<<set $worn.genitals.origin to "Underwater Temple">>

<<link [[Search pots|Lake Pots]]>><<wateraction>><<clotheson>><</link>><<loxygen>>

<<link [[Swim towards exit|Lake Ruin]]>><<wateraction>><<clotheson>><</link>><<loxygen>>

:: Lake Lichen

<<set $outside to 0>><<set $location to "lake_ruin">><<underwater>><<effects>><<lakeeffects>>
<<set $hallucinogen += 180>>
The lichen crumbles at your touch, but you collect enough for your science project. <<if !$wraithPrison>>Where the lichen breaks, you notice a rune carved into the wall. <</if>>

You can add the lichen you found to your project in your room or the school library.

A warmth spreads through your fingers, up your arm and into the rest of your body. You feel light-headed.

You've been afflicted by a hallucinogen. You'll have the Hallucinations and Severe Hallucinations traits until it wears off. High trauma or awareness will also cause hallucinations.

<<generateWraith 1 true>>
<<if $wraith.state isnot "">>
	<<rainWraith>>
	You suddenly feel yourself yanked away, and you come face to face with a beautiful pale figure.
	<<if $wraith.state is "haunt">>
		"The thief returns to pilfer again."
	<<else>>
		"Trespasser..."
	<</if>>

	<<initWraith "abomination">>
	<<He>> has a hand wrapped around your neck.
	<<set $NPCList[0].lefthand to "throat">><<set $neckuse to "hand">>
	<<if $wraith.gen is "abomination">>
		<<He>> raises <<his>> other hand, and a swarm of pale tendrils rise from the shadows.
	<<else>>
		Several more pairs of arms creep around you.
	<</if>>

	<<if $wraith.state is "haunt" and ($moonstate is "evening" and $hour gte 21 or $moonstate is "morning" and $hour lt 6)>>
		<<link [[Next|Wraith Caught]]>><<set $wraith.exit to "lake_ruin">><</link>>
	<<else>>
		<<link [[Next|Wraith Underwater Rape]]>><<set $molestationstart to 1>><</link>>
	<</if>>

<<else>>
	<<initWraith "man">>
	You hear whispers, and turn to see a beautiful pale figure floating before you.
	<<if $museumAntiques.antiques.antiqueivorynecklace isnot "notFound">>
		<<Hes>> naked and has a hand pressed to <<his>> neck, regarding you with rage and disgust.
	<<else>>
		<<Hes>> naked, save a necklace of ivory around <<his>> neck.
	<</if>>
	<<if $tentacledisable is "f">>
		<<He>> raises <<his>> hand, and a mass of tendrils rise from the dark. They dart towards you.

		<<link [[Next|Lake Underwater Tentacles]]>><<set $molestationstart to 1>><</link>>

	<<else>>
		<<He>> shouts something unintelligible, then lunges for you.

		<<link [[Next|Lake Underwater Rape]]>><<set $molestationstart to 1>><</link>>

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

:: Lake Underwater Tentacles

<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<set $combat to 1>>
	<<set $enemytype to "tentacles">>
	<<controlloss>>
	<<molested>>
	<<tentaclestart 6 8>>
<</if>>
<<statetentacles>>

<<underwater>><<effects>><<speechWraith>>
<<effectstentacles>>
<<tentacles>>
<<actionstentacles>>
<<if $tentacles.active lte ($tentacles.max / 2)>>
	<<link [[Next|Lake Underwater Tentacles Finish Figure]]>><<set $phase2 to 1>><</link>><<nexttext>>
<<else>>
	<<link [[Next|Lake Underwater Tentacles]]>><</link>><<nexttext>>
<</if>>

:: Lake Underwater Tentacles Finish Figure

<<underwater>><<effects>>
The creature recoils from you and disappears into darkness. <<tearful>> you turn to the exit. When you look back, the pale figure has vanished.
<<clotheson>>
<<endcombat>>
<<link [[Next|Lake Ruin]]>><<endWraith>><</link>>

:: Lake Underwater Tentacles Finish

<<underwater>><<effects>>
The creature recoils from you and disappears into darkness. <<tearful>> you turn to the exit.
<<clotheson>>
<<endcombat>>
<<link [[Next|Lake Ruin]]>><</link>>

:: Lake Underwater Rape

<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<set $consensual to 0>>
	<<neutral 1>>

	<<controlloss>>
	<<molested>>
	<<maninit>>
<</if>>
<<underwater>><<effects>>
<<effectsman>><<man>><<speechWraith>>
<<stateman>>

<<actionsman>>
<<if $enemyarousal gte $enemyarousalmax>>
	<<link [[Next|Lake Underwater Rape Finish]]>><</link>><<nexttext>>
<<elseif $enemyhealth lte 0>>
	<<link [[Next|Lake Underwater Rape Finish]]>><</link>><<nexttext>>
<<else>>
	<<link [[Next|Lake Underwater Rape]]>><</link>><<nexttext>>
<</if>>

:: Lake Underwater Rape Finish

<<set $outside to 1>><<set $location to "lake_ruin">><<underwater>><<effects>><<lakeeffects>>
<<if $enemyhealth lte 0>>
	<<He>> recoils from you and disappears into darkness. <<tearful>> you turn to the exit.

	<<clotheson>>
	<<endcombat>>
<<else>>
	<<silently>><<ejaculation>><</silently>>
	<<He>> giggles and disappears into darkness. <<tearful>> you turn to the exit.

	<<clotheson>>
	<<endcombat>>
<</if>>
<<link [[Next|Lake Ruin]]>><<endWraith>><</link>>

:: Lake Depths Swarm

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

	<<set $enemytype to "swarm">>
	<<if $slimedisable is "f" and ($moonstate is "evening" and $hour gte 21 or $moonstate is "morning" and $hour lt 6)>>
		<<swarminit "pale slimes" "slime mass" "moving towards you" "encircle you" "fend off" 8 0>>
	<<else>>
		<<swarminit "fish" "swarm" "moving towards you" "encircle you" "fend off" 1 7>>
	<</if>>
	<<set $swimdistance to 12>>
	<<set $water to 1>>
<</if>>
<<if $swimdistance gte 8>>
	You're caught in the middle of the swarm.
<<elseif $swimdistance gte 2>>
	You're escaping the swarm.
<<else>>
	You've almost escaped.
<</if>>
<<water>><<effects>><<swarmeffects>>
<<swarm>>
<<swarmactions>>
<<if $stress gte $stressmax>>
	<<link [[Next|Lake Depths Swarm Finish]]>><</link>><<nexttext>>
<<elseif $swimdistance lte 0>>
	<<link [[Next|Lake Depths Swarm Finish]]>><</link>><<nexttext>>
<<else>>
	<<link "Next">><><</link>><<nexttext>>
<</if>>

:: Lake Depths Swarm Finish

<<effects>>
<<if $stress gte $stressmax>>
	It's all just too much for you. You pass out.

	<<if $upperoff isnot 0>>
		<<upperruined>>
	<</if>>
	<<if $loweroff isnot 0>>
		<<lowerruined>>
	<</if>>
	<<if $underloweroff isnot 0>>
		<<underlowerruined>>
	<</if>>
	<<if $underupperoff isnot 0>>
		<<underupperruined>>
	<</if>>
	<<endcombat>>
	<<passoutlake>>
<<else>>
	<<tearful>> you escape the swarms of <<if $slimedisable is "f" and ($moonstate is "evening" and $hour gte 21 or $moonstate is "morning" and $hour lt 6)>>pale slimes<<else>>fish<</if>>. They don't pursue.

	<<clotheson>>
	<<endcombat>>
	<<link [[Next|Lake Depths]]>><<set $eventskip to 1>><</link>>

<</if>>


code:
:: Widgets Lake [widget]
<<widget "lakeeffects">>
<<if $schoolday is 1>>
	<<if $daystate is "day" or $daystate is "dusk">>
		<<if $hour gte 15 and $weather isnot "rain" and $weather isnot "snow">>
			<<set $laketeenspresent to 1>>
		<<else>>
			<<set $laketeenspresent to 0>>
		<</if>>
	<<else>>
		<<set $laketeenspresent to 0>>
	<</if>>
<<else>>
	<<if $daystate is "day" or $daystate is "dusk">>
		<<if $weather isnot "rain" and $weather isnot "snow">>
			<<set $laketeenspresent to 1>>
		<<else>>
			<<set $laketeenspresent to 0>>
		<</if>>
	<<else>>
		<<set $laketeenspresent to 0>>
	<</if>>
<</if>>

<<if $weather isnot "rain" and $weather isnot "snow" and $hour gte 18>>
	<<set $laketeensfire to 1>>
<<else>>
	<<set $laketeensfire to 0>>
<</if>>

<<wPersist "forest">><<getTarget true>>

<</widget>>

<<widget "destinationlake">>

<<if $bus is "lakeshallows">>
<<link [[Next|Lake Shallows]]>><</link>>

<<elseif $bus is "lakedepths">>
<<link [[Next|Lake Depths]]>><</link>>

<<elseif $bus is "lakefirepit">>
<<link [[Next|Lake Firepit]]>><</link>>

<<elseif $bus is "lakefishingrock">>
<<link [[Next|Lake Fishing Rock]]>><</link>>

<<elseif $bus is "lakecampsite">>
<<link [[Next|Lake Campsite]]>><</link>>

<<elseif $bus is "lakewaterfall">>
<<link [[Next|Lake Waterfall]]>><</link>>

<<else>>
<<link [[Next|Lake Shore]]>><</link>>

<</if>>

<</widget>>

<<widget "passoutlake">>
/*ToDo: Pregnancy, remove $pregnancyTesting to properly enable*/
<<if $sexStats.vagina.pregnancy.waterBreaking is true and $pregnancyTesting>>
	<<pregnancyWatersBrokenPassout "lake">>
<<else>>
	You've pushed yourself too much.

	<<passout>>

	<<set $danger to random(1, 10000)>>

	<<if ($loveInterest.primary is "Eden" or $loveInterest.secondary is "Eden" or $loveInterest.tertiary is "Eden") and random(1,2) is 2>>
		<<link [[Next|Eden Passout Lake Rescue]]>><</link>>
	<<elseif $danger gte (9900 - $allure)>>
		<<if $laketeenspresent is 1 and $season isnot "winter">>
			<<link [[Next|Lake Mermaid]]>><</link>>

		<<else>>
			<<link [[Next|Lake Ritual]]>><</link>>

		<</if>>
	<<else>>
		<<set $foresthunt to 0>>
		<<ambulance>>
	<</if>>
	<<pass 1 hour>>
	<<trauma 6>><<set $stress -= 2000>>
<</if>>
<</widget>>

<<widget "lakejourney">>
<<beastNEWinit 1 wolf>>
Someone screams. Everyone turns and backs away from the newcomer, a <<beasttype>>.
<<if $monster is 1>>
	<<bHis>> nude body leaves little to the imagination, <<bhis>> genitals on full display to the crowd. <<bHe>> makes no attempt to cover <<bhimself>> up. Some laugh nervously, while others shield their eyes.
<</if>>
<<bHe>> stands some way apart and watches.

<<if $deviancy gte 15 and ($monster is 1 or $bestialitydisable is "f")>>
	<<link [[Deal with it|Lake Wolf Sex]]>><<set $sexstart to 1>><</link>><<deviant2>><<gcool>>

<</if>>

<<link [[Run away|Lake Wolf Run]]>><<stress 3>><</link>><<gstress>>

<</widget>>

<<widget "lakereturnjourney">>

<<if $laketeenspresent is 1 and $hour is 20>>
	It's getting late, and the shadows of the forest grow longer. People are preparing to return to town. No one wants to be left to travel alone.

	<<if $exposed lte 0>>
		<<link [[Go with them (0:30)|Lake Return Journey]]>><<set $foresthunt to 0>><<pass 30>><</link>>

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

<</widget>>

<<widget "eventlakesafe">>

<<if random(1, 20) is 1 and !$possessed>>
	<<eventAmbient>>
<</if>>

<</widget>>

<<widget "eventlakewater">>

<<if ($moonstate is "evening" and $hour gte 21 or $moonstate is "morning" and $hour lt 5) and $wraith and $wraith.state isnot "" and $wraith.hunt is 0 and $wraith.timer gte random(0, 10)>>
	<<wHunt "lake">>
<<elseif $bus is "lakeshallows">>
	<<if $laketeenspresent is 1>>
		<<generatey1>><<person1>> A <<person>> watches you from the bank.

		<<link [[Wave (0:01)|Lake Wave]]>><<stress -2>><</link>><<lstress>>

		<<link [[Ignore|Lake Shallows]]>><<endevent>><<set $eventskip to 1>><</link>>

		<<if $player.gender_appearance is "f" and $exhibitionism gte 35>>
			<<link [[Flash|Lake Flash]]>><</link>><<exhibitionist3>>

		<</if>>
	<<else>>
		Your leg gets tangled in some weeds. It takes a few minutes of struggling to free yourself.
		<<gtiredness>><<tiredness 2>>

		<<pass 3>>
		<<link [[Next|Lake Shallows]]>><<set $eventskip to 1>><</link>>

	<</if>>
<<else>>
	<<if $rng gte 91 and $weather is "rain" and $bestialitydisable is "f" and $voredisable is "f" and $hallucinations gte 2 and $controlled is 0>>
	Something large surges through the water beneath you. A gaping maw grips your thighs.

	<<link [[Next|Lake Vore]]>><<set $molestationstart to 1>><</link>>

	<<elseif $rng gte 81 and $swarmdisable is "f">>
		<<if $slimedisable is "f" and ($moonstate is "evening" and $hour gte 21 or $moonstate is "morning" and $hour lt 6)>>
			The water is agitated. Swarms of pale slimes encircle you.
		<<else>>
			The water is agitated. Swarms of small fish encircle you.
		<</if>>

		<<link [[Next|Lake Depths Swarm]]>><<set $molestationstart to 1>><</link>>

	<<else>>
		<<if $daystate is "night" and $weather is "rain">>
		Something brushes your leg and startles you. You look beneath the dark and violent water, but can't see anything. You feel strange.
		<<garousal>><<arousal 600>><<gstress>><<stress 6>>

		<<else>>
		Something brushes your leg and startles you. You look beneath the water, but can't see anything.
		<<garousal>><<arousal 600>><<gstress>><<stress 6>>

		<</if>>

	<<link [[Next|Lake Depths]]>><<set $eventskip to 1>><</link>>

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

<</widget>>

<<widget "eventlakeice">>
<<set $rng to random(1, 100)>>
<<if ($moonstate is "evening" and $hour gte 21 or $moonstate is "morning" and $hour lt 5) and $wraith and $wraith.state isnot "" and $wraith.hunt is 0 and $wraith.timer gte random(0, 10)>>
	<<wHunt "lake">>
<<elseif $rng gte 81>>
	<<dancedifficulty 1 1000 true>>
	<<if $danceSuccess>>
		The wind picks up, almost knocking you over, but you manage to keep your footing.

	<<else>>
		The wind picks up, and you lose your footing, slipping on the ice.<<gstress>><<gpain>><<stress 6>><<pain 4>>

	<</if>>
	<<destination_lake_ice>>
<<elseif $rng gte 61>>
	You're struck by a sudden terror. You feel watched.
	<<if $laketeenspresent is 1>>
		The voices of the teens fade, until you're alone.
	<</if>>

	There's something below.

	<<link [[Ignore|Lake Ice Ignore]]>><<def 1>><</link>><<willpowerdifficulty 1 $willpowermax>>

	<<link [[Look down|Lake Ice Look]]>><</link>>

<<elseif $rng gte 41>>
	You hear a heavy groan. Then another. The ice might be unsafe.

	<<link [[Be careful (0:10)|Lake Ice Careful]]>><</link>>

	<<link [[Walk normally|Lake Ice Normal]]>><</link>>

<<elseif $rng gte 21>>
	<<if $weather is "snow">>
		The snow falls heavy, and conceals the trees around the lake.
		<<if $history gte random(1, 1000)>>
			It soon passes.

		<<else>>
			Without the trees to orient yourself, you lose your direction, though the heavy snow soon passes.<<gstress 6>>

		<</if>>
	<<elseif $weather is "clear">>
		<<if $daystate is "night">>
			<<if $moonstate is "evening" and $hour gte 21 or $moonstate is "morning" and $hour lt 6>>
				The red moon reflects off the ice. Dread stabs at you.<<gtrauma>><<gstress>><<trauma 6>><<stress 6>>

			<<else>>
				The moon reflects off the ice. It's cold and beautiful.<<lstress>><<stress 6>>

			<</if>>
		<<else>>
			The sun's glare reflects off the ice. You shield your eyes.

		<</if>>
	<<else>>
		<<if $daystate is "night">>
			You see a fox rummaging in the snow at the lake's edge. It's ears perk, and it bounds between the trees.

		<<else>>
			The surrounding trees are almost invisible in the dark.<<gstress>><<stress 6>>

		<</if>>
	<</if>>
	<<destination_lake_ice>>
<<else>>
	You slip on the ice!<<gstress>><<stress 6>>

	<<link [[Brace yourself|Lake Ice Brace]]>><<status -10>><</link>><<if $laketeenspresent is 1 and $bus is "lakeshallows">><<lcool>><</if>><<gstress>>

	<<link [[Try to stay upright|Lake Ice Stay]]>><</link>><<dancedifficulty 1 600>>

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

<<widget "destination_lake_ice">>
<<if $bus is "lakedepths">>
	<<link [[Next|Lake Depths Ice]]>><<set $eventskip to 1>><</link>>

<<else>>
	<<link [[Next|Lake Shallows Ice]]>><<set $eventskip to 1>><</link>>

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

<<widget "eventlake">>
<<if ($moonstate is "evening" and $hour gte 21 or $moonstate is "morning" and $hour lt 5) and $wraith and $wraith.state isnot "" and $wraith.hunt is 0 and $wraith.timer gte random(0, 10)>>
	<<wHunt "lake">>
<<elseif $rng gte 81>>

	<<beastNEWinit 1 boar>>
	You see a <<beasttype>> rifling through litter at the base of a tree. It spots you.

	<<if $monster is 1 or $bestialitydisable is "f">>
		<<link [[Stand your ground|Lake Boar Stand]]>><</link>>

		<<link [[Run|Lake Boar Run]]>><</link>><<athleticsdifficulty>>

	<<else>>
		You turn and run into the forest. Branches tear at you until you trip and collapse in a heap. You think you got away, but your heart continues to pound.<<beastescape>>

		<<endevent>>
		<<destinationlake>>
	<</if>>
<<elseif $rng gte 51>>
	<<if $wraith and $wraith.state isnot "" or $hallucinations gte 1>>
	You thought you heard someone call your name, but there's no one there.
	<<gtrauma>><<trauma 3>>
	<<else>>
	The wind makes a low howl as it passes through the trees. <<if $awarelevel gte 1>>For a moment, it looks as though the trees are all blowing away from the lake.<</if>>
	<<gstress>><<stress 1>>
	<</if>>

<<set $eventskip to 1>>
<<destinationlake>>
<<else>>
A pair of eyes stares at you from between the trees, then vanishes.
<<gstress>><<stress 6>>

<<set $eventskip to 1>>
<<destinationlake>>
<</if>>

<</widget>>

<<widget "meditateoptions">>

<<link [[Still your thoughts (1:00)|Lake Meditate]]>><<pass 60>><<set $phase to 2>><<willpower 1>>
		<<if $willpower gte (($willpowermax / 7) * 6)>>
		<<stress -6>><<awareness -2>><<arousal -1200>>
		<<elseif $willpower gte (($willpowermax / 7) * 5)>>
		<<stress -6>><<awareness -1>><<arousal -1000>>
		<<elseif $willpower gte (($willpowermax / 7) * 4)>>
		<<stress -5>><<awareness -1>><<arousal -800>>
		<<elseif $willpower gte (($willpowermax / 7) * 3)>>
		<<stress -4>><<awareness -1>><<arousal -600>>
		<<elseif $willpower gte (($willpowermax / 7) * 2)>>
		<<stress -3>><<awareness -1>><<arousal -500>>
		<<elseif $willpower gte (($willpowermax / 7) * 1)>>
		<<stress -2>><<awareness -1>><<arousal -400>>
		<<else>>
		<<stress -1>><<awareness -1>><<arousal -300>>
		<</if>>
		<</link>><<lawareness>><<gwillpower>><<lstress>><<larousal>>

<<if $insecurity_penis_tiny gte 1 and $penissize lte 0 and $acceptance_penis_tiny lte 999 and $lake_meditate isnot 1>>
<<link [[Meditate on your small penis (1:00)|Lake Meditate]]>><<pass 60>><<set $phase to 4>><<willpower 1>><<set $lake_meditate to 1>>
	<<if $willpower gte (($willpowermax / 7) * 6)>>
	<<stress 5>><<acceptance "penis_tiny" 20>>
	<<elseif $willpower gte (($willpowermax / 7) * 5)>>
	<<stress 5>><<acceptance "penis_tiny" 18>>
	<<elseif $willpower gte (($willpowermax / 7) * 4)>>
	<<stress 6>><<acceptance "penis_tiny" 16>>
	<<elseif $willpower gte (($willpowermax / 7) * 3)>>
	<<stress 7>><<acceptance "penis_tiny" 14>>
	<<elseif $willpower gte (($willpowermax / 7) * 2)>>
	<<stress 8>><<acceptance "penis_tiny" 12>>
	<<elseif $willpower gte (($willpowermax / 7) * 1)>>
	<<stress 10>><<acceptance "penis_tiny" 10>>
	<<else>>
	<<stress 12>><<acceptance "penis_tiny" 8>>
	<</if>>
<</link>><<gstress>><<gwillpower>><<gacceptance>>

<</if>>
<<if $insecurity_penis_small gte 1 and $penissize is 1 and $acceptance_penis_small lte 999 and $lake_meditate isnot 1>>
<<link [[Meditate on your small penis (1:00)|Lake Meditate]]>><<pass 60>><<set $phase to 5>><<willpower 1>><<set $lake_meditate to 1>>
	<<if $willpower gte (($willpowermax / 7) * 6)>>
	<<stress 5>><<acceptance "penis_small" 20>>
	<<elseif $willpower gte (($willpowermax / 7) * 5)>>
	<<stress 5>><<acceptance "penis_small" 18>>
	<<elseif $willpower gte (($willpowermax / 7) * 4)>>
	<<stress 6>><<acceptance "penis_small" 16>>
	<<elseif $willpower gte (($willpowermax / 7) * 3)>>
	<<stress 7>><<acceptance "penis_small" 14>>
	<<elseif $willpower gte (($willpowermax / 7) * 2)>>
	<<stress 8>><<acceptance "penis_small" 12>>
	<<elseif $willpower gte (($willpowermax / 7) * 1)>>
	<<stress 10>><<acceptance "penis_small" 10>>
	<<else>>
	<<stress 12>><<acceptance "penis_small" 8>>
	<</if>>
<</link>><<gstress>><<gwillpower>><<gacceptance>>

<</if>>
<<if $player.gender is "m">>
	<<if $insecurity_penis_big gte 1 and $penissize gte 4 and $acceptance_penis_big lte 999 and $lake_meditate isnot 1>>
	<<link [[Meditate on your big penis (1:00)|Lake Meditate]]>><<pass 60>><<set $phase to 6>><<willpower 1>><<set $lake_meditate to 1>>
		<<if $willpower gte (($willpowermax / 7) * 6)>>
		<<stress 5>><<acceptance "penis_big" 20>>
		<<elseif $willpower gte (($willpowermax / 7) * 5)>>
		<<stress 5>><<acceptance "penis_big" 18>>
		<<elseif $willpower gte (($willpowermax / 7) * 4)>>
		<<stress 6>><<acceptance "penis_big" 16>>
		<<elseif $willpower gte (($willpowermax / 7) * 3)>>
		<<stress 7>><<acceptance "penis_big" 14>>
		<<elseif $willpower gte (($willpowermax / 7) * 2)>>
		<<stress 8>><<acceptance "penis_big" 12>>
		<<elseif $willpower gte (($willpowermax / 7) * 1)>>
		<<stress 10>><<acceptance "penis_big" 10>>
		<<else>>
		<<stress 12>><<acceptance "penis_big" 8>>
		<</if>>
	<</link>><<gstress>><<gwillpower>><<gacceptance>>

	<</if>>
<<else>>
	<<if $insecurity_penis_big gte 1 and $penissize gte 2 and $acceptance_penis_big lte 999 and $lake_meditate isnot 1>>
	<<link [[Meditate on your big penis (1:00)|Lake Meditate]]>><<pass 60>><<set $phase to 6>><<willpower 1>><<set $lake_meditate to 1>>
		<<if $willpower gte (($willpowermax / 7) * 6)>>
		<<stress 5>><<acceptance "penis_big" 20>>
		<<elseif $willpower gte (($willpowermax / 7) * 5)>>
		<<stress 5>><<acceptance "penis_big" 18>>
		<<elseif $willpower gte (($willpowermax / 7) * 4)>>
		<<stress 6>><<acceptance "penis_big" 16>>
		<<elseif $willpower gte (($willpowermax / 7) * 3)>>
		<<stress 7>><<acceptance "penis_big" 14>>
		<<elseif $willpower gte (($willpowermax / 7) * 2)>>
		<<stress 8>><<acceptance "penis_big" 12>>
		<<elseif $willpower gte (($willpowermax / 7) * 1)>>
		<<stress 10>><<acceptance "penis_big" 10>>
		<<else>>
		<<stress 12>><<acceptance "penis_big" 8>>
		<</if>>
	<</link>><<gstress>><<gwillpower>><<gacceptance>>

	<</if>>
<</if>>
<<if $insecurity_breasts_tiny gte 1 and $breastsize lte 0 and $player.gender is "f" and $acceptance_breasts_tiny lte 999 and $lake_meditate isnot 1>>
<<link [[Meditate on your flat chest (1:00)|Lake Meditate]]>><<pass 60>><<set $phase to 7>><<willpower 1>><<set $lake_meditate to 1>>
	<<if $willpower gte (($willpowermax / 7) * 6)>>
	<<stress 5>><<acceptance "breasts_tiny" 20>>
	<<elseif $willpower gte (($willpowermax / 7) * 5)>>
	<<stress 5>><<acceptance "breasts_tiny" 18>>
	<<elseif $willpower gte (($willpowermax / 7) * 4)>>
	<<stress 6>><<acceptance "breasts_tiny" 16>>
	<<elseif $willpower gte (($willpowermax / 7) * 3)>>
	<<stress 7>><<acceptance "breasts_tiny" 14>>
	<<elseif $willpower gte (($willpowermax / 7) * 2)>>
	<<stress 8>><<acceptance "breasts_tiny" 12>>
	<<elseif $willpower gte (($willpowermax / 7) * 1)>>
	<<stress 10>><<acceptance "breasts_tiny" 10>>
	<<else>>
	<<stress 12>><<acceptance "breasts_tiny" 8>>
	<</if>>
<</link>><<gstress>><<gwillpower>><<gacceptance>>

<</if>>
<<if $insecurity_breasts_small gte 1 and $breastsize gte 1 and $breastsize lte 5 and $acceptance_breasts_small lte 999 and $lake_meditate isnot 1>>
<<link [[Meditate on your small breasts (1:00)|Lake Meditate]]>><<pass 60>><<set $phase to 8>><<willpower 1>><<set $lake_meditate to 1>>
	<<if $willpower gte (($willpowermax / 7) * 6)>>
	<<stress 5>><<acceptance "breasts_small" 20>>
	<<elseif $willpower gte (($willpowermax / 7) * 5)>>
	<<stress 5>><<acceptance "breasts_small" 18>>
	<<elseif $willpower gte (($willpowermax / 7) * 4)>>
	<<stress 6>><<acceptance "breasts_small" 16>>
	<<elseif $willpower gte (($willpowermax / 7) * 3)>>
	<<stress 7>><<acceptance "breasts_small" 14>>
	<<elseif $willpower gte (($willpowermax / 7) * 2)>>
	<<stress 8>><<acceptance "breasts_small" 12>>
	<<elseif $willpower gte (($willpowermax / 7) * 1)>>
	<<stress 10>><<acceptance "breasts_small" 10>>
	<<else>>
	<<stress 12>><<acceptance "breasts_small" 8>>
	<</if>>
<</link>><<gstress>><<gwillpower>><<gacceptance>>

<</if>>
<<if $player.gender is "f">>
	<<if $insecurity_breasts_big gte 1 and $breastsize gte 8 and $acceptance_breasts_big lte 999 and $lake_meditate isnot 1>>
		<<link [[Meditate on your big breasts (1:00)|Lake Meditate]]>><<pass 60>><<set $phase to 9>><<willpower 1>><<set $lake_meditate to 1>>
		<<if $willpower gte (($willpowermax / 7) * 6)>>
		<<stress 5>><<acceptance "breasts_big" 20>>
		<<elseif $willpower gte (($willpowermax / 7) * 5)>>
		<<stress 5>><<acceptance "breasts_big" 18>>
		<<elseif $willpower gte (($willpowermax / 7) * 4)>>
		<<stress 6>><<acceptance "breasts_big" 16>>
		<<elseif $willpower gte (($willpowermax / 7) * 3)>>
		<<stress 7>><<acceptance "breasts_big" 14>>
		<<elseif $willpower gte (($willpowermax / 7) * 2)>>
		<<stress 8>><<acceptance "breasts_big" 12>>
		<<elseif $willpower gte (($willpowermax / 7) * 1)>>
		<<stress 10>><<acceptance "breasts_big" 10>>
		<<else>>
		<<stress 12>><<acceptance "breasts_big" 8>>
		<</if>>
		<</link>><<gstress>><<gwillpower>><<gacceptance>>

	<</if>>
<<else>>
	<<if $insecurity_breasts_big gte 1 and $breastsize gte 6 and $acceptance_breasts_big lte 999 and $lake_meditate isnot 1>>
	<<link [[Meditate on your big breasts (1:00)|Lake Meditate]]>><<pass 60>><<set $phase to 9>><<willpower 1>><<set $lake_meditate to 1>>
		<<if $willpower gte (($willpowermax / 7) * 6)>>
		<<stress 5>><<acceptance "breasts_big" 20>>
		<<elseif $willpower gte (($willpowermax / 7) * 5)>>
		<<stress 5>><<acceptance "breasts_big" 18>>
		<<elseif $willpower gte (($willpowermax / 7) * 4)>>
		<<stress 6>><<acceptance "breasts_big" 16>>
		<<elseif $willpower gte (($willpowermax / 7) * 3)>>
		<<stress 7>><<acceptance "breasts_big" 14>>
		<<elseif $willpower gte (($willpowermax / 7) * 2)>>
		<<stress 8>><<acceptance "breasts_big" 12>>
		<<elseif $willpower gte (($willpowermax / 7) * 1)>>
		<<stress 10>><<acceptance "breasts_big" 10>>
		<<else>>
		<<stress 12>><<acceptance "breasts_big" 8>>
		<</if>>
		<</link>><<gstress>><<gwillpower>><<gacceptance>>

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

<<link [[Observe your thoughts (1:00)|Lake Meditate]]>><<pass 60>><<set $phase to 3>><<willpower 1>>
		<<if $willpower gte (($willpowermax / 7) * 6)>>
		<<stress 5>><<awareness 2>>
		<<elseif $willpower gte (($willpowermax / 7) * 5)>>
		<<stress 5>><<awareness 1>>
		<<elseif $willpower gte (($willpowermax / 7) * 4)>>
		<<stress 6>><<awareness 1>>
		<<elseif $willpower gte (($willpowermax / 7) * 3)>>
		<<stress 7>><<awareness 1>>
		<<elseif $willpower gte (($willpowermax / 7) * 2)>>
		<<stress 8>><<awareness 1>>
		<<elseif $willpower gte (($willpowermax / 7) * 1)>>
		<<stress 10>><<awareness 1>>
		<<else>>
		<<stress 12>><<awareness 1>>
		<</if>>
		<</link>><<gawareness>><<gstress>><<gwillpower>>

<<link [[Stop|Lake Fishing Rock]]>><</link>>

<</widget>>

<<widget "lakeclothes">>
<<if !$possessed>>
	<<wearoutfit>>

	Swimming sets:

	<<listswimoutfits "lakeshore">>

	<<storeactions "lakeshore">>
	<<temperature>>
<</if>>
<</widget>>

<<widget "destinationlakeruin">>
<<switch $bus>>
	<<case "lakeunderwater">>
		<<link [[Next|Lake Underwater]]>><<endevent>><<set $eventskip to 1>><</link>>
	<<case "lake_ruin">>
		<<link [[Next|Lake Ruin]]>><<endevent>><<set $eventskip to 1>><</link>>
	<<case "lake_ruin_deep">>
		<<link [[Next|Lake Ruin Deep]]>><<endevent>><<set $eventskip to 1>><</link>>
	<<case "lake_ruin_prison">>
		<<link [[Next|Lake Ruin Prison]]>><<endevent>><<set $eventskip to 1>><</link>>
	<<default>>
		<<link [[Next|Lake Ruin Deep]]>><<endevent>><<set $eventskip to 1>><</link>>
<</switch>>

<</widget>>

<<widget "schoolpoolclothes">>
<<set $wardrobe_location to $args[0]>>
<<wardrobeSelection true>>
<<wearoutfit>>

<<storeon "school pool" "check">>
<<if _store_check is 1>>
	<<link [[Get dressed|$passage]]>><<storeon "school pool">><</link>>
<</if>>

Swimming sets:

<<listswimoutfits $wardrobe_location>>

Normal sets:

<<listoutfitsPassage $wardrobe_location>>

<<temperature>>
<</widget>>

repo_name: Area/degrees

license: mit


code:
:: Doppel Plains Taken
<<location "tentworld">>
<<effects>>
<<tentacleworldintro>>
<<generateDoppel>>
You collapse in a strange world of swaying purple tendrils. The sky watches as your doppelganger looms over you. <<if $angel gte 6>>Its halo blackens and bends, mocking your own.<</if>>

<<if $angel gte 6>>
	<<if $submissiveness gte 1150>>
		"I-I'd let you be, to experience this haven, but... I-I know you'd just leave. I need your halo." It raises a hand, and a number of tentacles react, lunging for you. "Just fall with me... I-I know you want to."
	<<elseif $submissiveness lte 850>>
		"Now, if I were you, and I am, I'd be thinking about using that fancy halo of yours to float on outta here." It raises a hand, and a number of tentacles react, lunging for you. "I'm not letting that happen."
	<<else>>
		"I see that halo." It raises a hand, and a number of tentacles react, lunging for you. "I won't let you leave so easily."
	<</if>>

	<<link [[Next|Tentacle Doppel Fight]]>><<set $molestationstart to 1>><</link>>
<<else>>
	<<if $submissiveness gte 1150>>
		"Won't you stay?" It smiles. "Th-this is what you're fighting for... isn't it?"
	<<elseif $submissiveness lte 850>>
		"Can't believe I'm such a fucking loser," it sneers. "Get up, and look at what you've been fighting for."
	<<else>>
		"Look around," it begins. "Isn't this what you've been looking for?"
	<</if>>

	The sky blinks, and the thing that looks like you is gone. You are in the tentacle plains. An orgasm here could be dangerous.

	<<link [[Next|Tentacle Plains]]>><<set $tentacleEntrance to "doppel">><<endevent>><</link>>
<</if>>

:: Tentacle Doppel Fight
<<if $sexstart is 1>>
	<<set $sexstart to 0>>
	<<consensual>>
	<<set $consensual to 1>>
	<<neutral 1>>
	<<maninit>>
	<<set $enemytype to "doppel">>
	<<promiscuity1>>
<<elseif $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<controlloss>>
	<<violence 1>>
	<<molested>>

	<<maninit>>
	<<set $enemytype to "doppel">>
<</if>>
<<set _randomtentacles to random(6, 10)>>
<<makeAbomination _randomtentacles 10 "tentacle" "tentacle" true>>

<<effects>>
<<effectsabomination>><<abomination>>
<<stateabomination>>

<<actionsabomination>>
<<if $enemyarousal gte $enemyarousalmax>>
	<<link [[Next|Tentacle Doppel Fight End]]>><</link>><<nexttext>>
<<elseif $enemyhealth lte 0>>
	<<link [[Next|Tentacle Doppel Fight End]]>><</link>><<nexttext>>
<<else>>
	<<link [[Next|Tentacle Doppel Fight]]>><</link>><<nexttext>>
<</if>>

:: Tentacle Doppel Fight End
<<effects>><<endevent>>
<<generateDoppel>>
<<if $fallenangel gte 2>>
	<<if $enemyarousal gte $enemyarousalmax>>
	The tendrils around you fall, spent, but you are broken.

	<<if $submissiveness gte 1150>>
		"Y-you probably think I'm cruel, don't you...? I understand..." It holds you in an embrace and, <<tearful lower>> you can't help but clutch back. Your halo is broken, and the light within you dies. "But trust me when I say... In this darkness, you can find heaven."
	<<elseif $submissiveness lte 850>>
		"You're probably thinking the world is cruel," it says, as it catches you from falling. <<tearful lower>> you find yourself clutching onto it. It's silent for a long moment. Your halo is broken, and the light within you dies. "You get used to it. Eventually, you rely on it. In darkness, you can find heaven."
	<<else>>
		"That's right... Embrace me, and embrace this broken world." It holds you in an embrace and, <<tearful lower>> you clutch back. Your halo is broken, and the light within you dies. "In the darkness, you may find heaven."
	<</if>>

	Before you have enough time to truly recover, you find yourself collapsing into a heap. The thing that looks like you is gone, and you are alone in the tentacle plains.

	<<link [[Next|Tentacle Plains]]>><<set $tentacleEntrance to "doppel">><<endevent>><</link>>
	<<elseif $enemyhealth lt 0>>
	<<if $submissiveness gte 1150>>
		Your double's face warps into fractals as you beat it back, the tendrils falling away, defeated. You hear your voice laughing from every direction.

		"Y-you didn't really win!" It laughs as it stumbles. Its body starts to split. "Y-your halo... your wings... We really are one in the same!" As it collapses, tentacles wrap around your broken reflection and it's dragged under the ground. You hear its laughter rise to a fever pitch before slowly fading underneath you.
	<<else $submissiveness lte 850>>
		Your double's face warps into fractals as you beat it back, the tendrils falling away, defeated. It glares at you through too many sets of your own eyes.

		"You put up a fight, But... your halo, your wings... Who do you think really won this?" It starts to chuckle, then laughs, then its body starts to split. "Fuckin' idiot! You can't fight it, you're me!"

		Tentacles grab at your broken reflection from all directions and drag it into the ground. You hear its laughter rise to a fever pitch before slowly fading underneath you.
	<<else>>
		Your double's face warps into fractals as you beat it back, the tendrils falling away, defeated. It looks to you through too many pairs of your own eyes as it kneels.

		"You didn't win this fight. Your halo has shattered. You'll be back. You're me." It suddenly laughs as tentacles rise to seize it. Your broken reflection's laugh rises to a fever pitch as it's dragged into the ground, and the sound slowly fades beneath you.
	<</if>>

	You are left in silence on the tentacle plains, broken and alone.

	<<link [[Next|Tentacle Plains]]>><<set $tentacleEntrance to "doppel">><<endevent>><</link>>
	<</if>>
<<else>>
	<<if $enemyarousal gte $enemyarousalmax>>
		The thing that looks like you <<if $submissiveness gte 1150>>moans<<else>>groans<</if>> in exasperation as it orgasms, the tentacles it commanded collapsing from exertion. <<tearful>> you shove yourself aside, ignoring it's shout and preparing to face the tentacle plains alone, but still pure.

		<<link [[Next|Tentacle Plains]]>><<set $tentacleEntrance to "doppel">><<endevent>><</link>>
	<<elseif $enemyhealth lt 0>>
		<<tearful>> you beat back the thing that looks like you, trying to put your own sounds of pain outside of your mind. You take the chance to run away as it and the tentacles it commands collapse from pain. You prepare to face the tentacle plains, alone but still pure.

		<<link [[Next|Tentacle Plains]]>><<set $tentacleEntrance to "doppel">><<endevent>><</link>>
	<</if>>
<</if>>


code:
:: Widgets Tentacle World [widget]
<<widget "passouttentacleworld">>
/*ToDo: Pregnancy, remove $pregnancyTesting to properly enable*/
<<if $sexStats.vagina.pregnancy.waterBreaking is true and $pregnancyTesting>>
	<<pregnancyWatersBrokenPassout "tentacleworld">>
<<else>>
	<<passout>>
	[[Everything fades to black...->Passout Tentacle World]]
<</if>>
<</widget>>

<<widget "tentacleworldintro">>

<<set $tentnorth to 0>>
<<set $tenteast to 0>>
<<if $rng gte 51>>
	<<set $tentportalnorth to either(-5, -4, 4, 5)>>
	<<set $tentportaleast to random(-5, 5)>>
<<else>>
	<<set $tentportalnorth to random(-5, 5)>>
	<<set $tentportaleast to either(-5, -4, 4, 5)>>
<</if>>

<</widget>>

<<widget "tentacleworldend">>

<<unset $tentacleadmire>>
<<unset $tentaclewolf>>
<<unset $tentacleangel>>
<<unset $tentaclefallenangel>>
<<unset $tentacleEntrance>>
<<unset $tentaclecat>>
<<unset $tentaclecow>>
<<unset $tentacleorgasmignore>>

<</widget>>

<<widget "tentaclewolf">>
<<if $wolfgirl gte 6 and $syndromewolves gte 1>>
	<<if $tentaclewolf is undefined>>
		<<set $tentaclewolf to 0>>
		You hear something familiar in the distance, but you aren't sure what it is. It breaks through the fog and reminds you of the forest.
		<<lstress>><<larousal>><<stress -6>><<arousal -6>>

	<<elseif $tentaclewolf is 0>>
		<<set $tentaclewolf to 1>>
		You hear it again. It came from <<tentacledirection>>
		<<lstress>><<larousal>><<stress -6>><<arousal -6>>

	<<elseif $tentaclewolf is 1>>
		<<set $tentaclewolf to 2>>
		The familiar sound is louder now. It sounds like howling. It's coming from <<tentacledirection>>
		<<lstress>><<larousal>><<stress -6>><<arousal -6>>

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

<<widget "tentacledirection">>

<<if $tentportalnorth gt $tentnorth>>
	<<if $tentportaleast gt $tenteast>>
		the Northeast.
	<<elseif $tentportaleast lt $tenteast>>
		the Northwest.
	<<else>>
		the North.
	<</if>>
<<elseif $tentportalnorth lt $tentnorth>>
	<<if $tentportaleast gt $tenteast>>
		the Southeast.
	<<elseif $tentportaleast lt $tenteast>>
		the Southwest.
	<<else>>
		the South.
	<</if>>
<<else>>
	<<if $tentportaleast gt $tenteast>>
		the East.
	<<elseif $tentportaleast lt $tenteast>>
		the West.
	<<else>>
		nearby.
	<</if>>
<</if>>

<</widget>>

:: Tentacle World Intro
<<location "tentworld">><<effects>><<set $phase to 0>>
<<tentacleworldintro>>

You open the door, revealing an alien landscape. Giant tentacles writhe against the sky. An orgasm here could be dangerous.

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

:: Passout Tentacle World
<<location "tentworld">><<effects>>
<<strip>>
You wake, realising with horror that you are trapped naked within a mass of tentacles. They hold you several feet above the ground, your limbs
and torso secure in their gentle but unyielding embrace. Struggling to escape, you move your arms and legs in hopes of disrupting the tentacles'
grip. You fail, as every movement is countered effortlessly by the unconcerned appendages. Your desperation rises as your thrashing has no effect.

But desperation is not the only thing to rise. As you continue to breathe in the musky air and feel your captor's wriggling flesh pressing
against your arms and hips and calves, you find your body flush with growing arousal. Your genitals react. Sweat breaks out across your
skin. Your <<nipples>> harden. Unsatisfied by your previous climaxes, your body yearns to be touched. To be toyed with. To be pleasured.

And yet your <<genitals_are 1>> not assaulted. Your ass remains unmolested. Instead, the tentacles seem only interested in holding you in this
bondage. It's maddening, the pleasure rising within you like the tide. Though you wish to be free, your body wants to be used. Closing your
eyes, you moan with frustrated lust even as you ponder escape.

That sound spurs the tentacles into movement. Several begin to caress your chest and back, thighs and tummy. Far from your most sensitive
areas, they nevertheless drive you wild as you find yourself bucking against them. You ache with arousal, your mind drifting in a sea of desire.

It's too much. Though unable to get yourself off, or perhaps because of it, you find your body tingling as your climax begins to build.
You moan as the tentacles increase their speed, the dam within you breaking. It is slow, the pleasure building upon itself as the orgasmic
energy pours into your pelvis and you suck in deep ragged breaths. It's too much.

You cum, twitching against your captor as you groan through your climax. It lasts for many seconds, the tentacles gliding over your flesh
as the pleasure pulses brighter and brighter within you. Your stiff body collapses and you let out a long exhausted exhale.
<<orgasmstat>><<set $orgasmcount += 1>>

<<link [[Next|Passout Tentacle World 2]]>><</link>>

:: Passout Tentacle World 2
<<location "tentworld">><<effects>>

But it's not over. Before you can regain your senses, two naughty tentacles find your <<nipples>> and begin to vigorously grind against them.
You squeal at this spike of pleasure, your eyes flying open as you look down at your chest. Instead of feeling your orgasm dissipate, it
seems that this new assault has created an echo chamber within your nervous system and you realise with horror and anticipation that a new
climax is beginning to build within you.

Before it peaks, however, a third tentacle slides between your bottom and rubs aggressively over your hole, eliciting an even louder squeal
from you as the pleasure in your <<nipples>> and asshole merge into a tsunami that crashes against you. Your climax speeds towards you and you
open your mouth to scream.

Instead you cry out as the tentacles force you to cum hard. You buck and writhe against your bindings. Your eyes flutter open and closed.
Moans escape your throat as you endure the orgasm, the time growing indistinct as you cum and cum and cum.
<<orgasmstat>><<set $orgasmcount += 1>>

Eventually, the powerful feelings start to fade. Despite the tentacles still teasing your body, you feel the effects of this newest climax
receding. Your mind, soaked for so long in a fog of unrelenting pleasure, starts to clear.

<<link [[Next|Passout Tentacle World 3]]>><</link>>

:: Passout Tentacle World 3
<<location "tentworld">><<effects>>

Then a tentacle flicks the tip of your <<print ($player.penisExist ? "penis" : "clit")>> hard, sending a jolt right to your brain. With
tentacles torturing your ass and nipples, this lone strike against your most sensitive place, which up until now had not been subjected
to any sensations, overloads your system. You cum suddenly, your body unprepared for the unstoppable pleasure. The explosion within you
causes your body to spasm, your hands clenched tight and your feet kicking out spastically.
<<orgasmstat>><<set $orgasmcount += 1>>

Before this newest climax can properly fade, your <<genitals_are 1>> subjected to another hard slap that sends you spiralling into a fourth
orgasm. You scream as the tingling breaks down your mental barriers.
<<orgasmstat>><<set $orgasmcount += 1>>

Another slap.
<<set $arousal to 10000>><<orgasm>>

Another.
<<set $arousal to 10000>><<orgasm>>

It goes on and on and on, your body no longer distinguishing one peak from the next. Your breathing ragged, your body fights the losing
battle against the pleasure being forced upon you and your mind begins to shatter.

Overwhelmed with unending orgasms, you eventually crash into unconsciousness.

<<link [[Next|Passout Tentacle World 4]]>><<clotheson>><</link>>

:: Passout Tentacle World 4

<<set $outside to 0>><<effects>>
<<if $tentacleEntrance is "mirror">><<set $location to "home">>
	You wake up on the floor next to your mirror. That was quite the nightmare.

	<<tentacleworldend>>
	<<link [[Next|Bedroom]]>><</link>>
<<else>>
	<<set $location to "asylum">>
	You wake in darkness. You're back in the asylum, in the tiny room.<<endevent>><<npc Harper>><<person1>>

	<<tentacleworldend>>
	<<link [[Next|Asylum Room 2]]>><</link>>
<</if>>

:: Tentacle Plains

<<location "tentworld">><<effects>>
<<if $tentacleorgasmignore is undefined>><<set $tentacleorgasmignore to 0>><</if>>
You are on the tentacle plains. Tendrils growing from the ground strain to reach your <<genitals>>, caressing your thighs and
whatever else they can reach. The air is sweet.
<<set $drugged += 10>><<ggarousal>><<arousal 1200>>
	<<if $tentnorth gte 5>>

		Far in the distance, you see a mass of crimson tentacles tower into the sky. Eyes peak out of the mass, staring at you. It seems wounded, somehow.

		<<if $parasite.left_ear.name is "slime" and $parasite.right_ear.name is "slime">>
			You feel a pleasant buzzing in your ears. <<garousal>><<arousal 9>>
			<<if $rng gte 33>>

				Words sear themselves into your mind as you stare at the mass in the distance.

				<<set _output to ["Curious.","Interesting.","Peculiar.","A visitor."]>>
				<<if $angel gte 6>>
					<<set _output.pushUnique("Unwelcome.","Leave.","Fall.","Blacken your wings.","Descend.","Break.")>>
				<<elseif $fallenangel gte 2>>
					<<set _output.pushUnique("Familiar.","Descend ever further.","Let go.","Bittersweet.","Reminisce.","Fade.")>>
				<<elseif $demon gte 6>>
					<<set _output.pushUnique("Blessed be.","Welcome.","Embrace carnality.","Become one.","Lust for us.")>>
				<</if>>
				<<vogni-speech _output.pluck()>>

			<</if>>
		<<elseif $parasite.left_ear.name is "slime" or $parasite.right_ear.name is "slime">>

			You feel a pleasant buzzing in your ear. <<garousal>><<arousal 6>>

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

<<if $phase is 1>>
	You walk north.

<</if>>
<<if $phase is 2>>
	You walk south.

<</if>>
<<if $phase is 3>>
	You walk east.

<</if>>
<<if $phase is 4>>
	You walk west.

<</if>>
<<if $phase is 11>>
	You sprint north, hopping over tentacles and kicking them aside when you need to.

<</if>>
<<if $phase is 12>>
	You sprint south, hopping over tentacles and kicking them aside when you need to.

<</if>>
<<if $phase is 13>>
	You sprint east, hopping over tentacles and kicking them aside when you need to.

<</if>>
<<if $phase is 14>>
	You sprint west, hopping over tentacles and kicking them aside when you need to.

<</if>>
<<tentaclewolf>>
<<set $phase to 0>>
<<if $stress gte $stressmax>>
	<<passouttentacleworld>>
<<elseif $arousal gte $arousalmax and $eventskip isnot 1 and $tentacleorgasmignore lte 0>>
	<<orgasm>>
	Energised, the tentacles around you dart higher than normal. They wrap around your arms and drag you to the ground.

	<<link [[Next|Tentacle Rape]]>><<set $molestationstart to 1>><</link>>

<<else>>
	<<if $arousal gte $arousalmax and $tentacleorgasmignore gte 1>>
		<<orgasm>><<set $tentacleorgasmignore -= 1>>
		The tentacles don't take advantage of your vulnerability.

	<</if>>
	<<if $tentnorth is 0 and $tenteast is 0>>
		<<if $tentacleEntrance is "mirror">>
			You stand in front of your mirror.

			<<link [[Walk through|Tentacle Home Return]]>><</link>>
		<<elseif $tentacleEntrance is "doppel">>
			The thing that looks like you is nowhere to be found. Getting out won't be so easy.
		<<else>>
			The door to the asylum is nearby.

			<<link [[Return to asylum|Tentacle Return]]>><</link>>
		<</if>>

	<</if>>
	<<if $tentnorth is $tentportalnorth and $tenteast is $tentportaleast>>
		<<if $wolfgirl gte 6 and $syndromewolves gte 1>>
			You see another door in the distance, similar to the one that led you here. It's surrounded by tentacles. The door is wide open, and the forest lies on the other side, promising escape. You see a black blur shift before snapping and snarling at one of the tendrils.

			<<link [[Run for the door|Tentacle Wolf Escape]]>><</link>>

		<<else>>
			A door stands open here. There's a forest beyond.

			<<link [[Enter|Tentacle Escape]]>><</link>>

		<</if>>
	<</if>>
	<<if $tentnorth gte 5 or $tentnorth lte -5 or $tenteast gte 5 or $tenteast lte -5>>
		The plains stretch to the horizon. You don't want to wander too far from <<if $tentacleEntrance is "doppel">>where you started.<<else>>the portal.<</if>>

	<</if>>
	<<if $tentnorth is 4 and $tenteast is 4 and $tentspray isnot 1>>
		A red light hovers in the air at chest-height, held aloft by thin tendrils.

		<<link [[Touch|Tentacle Plains Spray]]>><<set $spraymax += 1>><<set $tentspray to 1>><<spray 5>><</link>><<gspraymax>>

	<</if>>
	<<if $tentnorth lt 5>>
		<<if $bunny gte 5>>
			<<link [[Sprint North (0:05)|Tentacle Plains]]>><<pass 5>><<gtiredness>><<tiredness 10>><<silently>><<set $drugged -= 5>><<arousal -600>><</silently>><<set $tentnorth += 1>><<set $phase to 11>><</link>><<bunny>>
		<</if>>
		<<link [[North (0:10)|Tentacle Plains]]>><<pass 10>><<set $tentnorth += 1>><<set $phase to 1>><</link>>

	<</if>>
	<<if $tentnorth gt -5>>
		<<if $bunny gte 5>>
			<<link [[Sprint South (0:05)|Tentacle Plains]]>><<pass 5>><<gtiredness>><<tiredness 10>><<silently>><<set $drugged -= 5>><<arousal -600>><</silently>><<set $tentnorth -= 1>><<set $phase to 12>><</link>><<bunny>>
		<</if>>
		<<link [[South (0:10)|Tentacle Plains]]>><<pass 10>><<set $tentnorth -= 1>><<set $phase to 2>><</link>>

	<</if>>
	<<if $tenteast lt 5>>
		<<if $bunny gte 5>>
			<<link [[Sprint East (0:05)|Tentacle Plains]]>><<pass 5>><<gtiredness>><<tiredness 10>><<silently>><<set $drugged -= 5>><<arousal -600>><</silently>><<set $tenteast += 1>><<set $phase to 13>><</link>><<bunny>>
		<</if>>
		<<link [[East (0:10)|Tentacle Plains]]>><<pass 10>><<set $tenteast += 1>><<set $phase to 3>><</link>>

	<</if>>
	<<if $tenteast gt -5>>
		<<if $bunny gte 5>>
			<<link [[Sprint West (0:05)|Tentacle Plains]]>><<pass 5>><<gtiredness>><<tiredness 10>><<silently>><<set $drugged -= 5>><<arousal -600>><</silently>><<set $tenteast -= 1>><<set $phase to 14>><</link>><<bunny>>
		<</if>>
		<<link [[West (0:10)|Tentacle Plains]]>><<pass 10>><<set $tenteast -= 1>><<set $phase to 4>><</link>>

	<</if>>
	<<if $demon gte 6 and $tentacleadmire gte 1>>
		<<link [[Offer yourself|Tentacle Plains Admire]]>><</link>><<demon>>

	<<elseif $demon gte 6>>
		<<link [[Admire|Tentacle Plains Admire]]>><</link>><<demon>>

	<</if>>
	<<if $tentaclewolf gte 2>>
		<<link [[Howl|Tentacle Plains Howl]]>><<transform wolf 1>><</link>><<wolfgirl>>

	<</if>>
	<<if $angel gte 6 and $tentacleangel gte 2>>
		<<link [[Resist|Tentacle Plains Resist]]>><</link>><<angel>>

	<<elseif $angel gte 6>>
		<<link [[Focus|Tentacle Plains Resist]]>><</link>><<angel>>

	<</if>>
	<<if $fallenangel gte 2>>
		<<link [[Despair|Tentacle Plains Despair]]>><</link>><<fallenangel>>

	<</if>>
		<<if $cat gte 6>>
		<<link [[Pounce|Tentacle Plains Cat]]>><<transform cat 1>><</link>><<cat>>

	<</if>>
	<<if $cow gte 6 and $breastfeedingdisable is "f">>
		<<link [[Let the tentacles milk your breasts|Tentacle Cow Breasts]]>><<transform cow 1>><</link>><<cow>>

	<</if>>
	<<if $cow gte 6 and $player.penisExist and !$worn.genitals.type.includes("chastity")>>
		<<link [[Let the tentacles milk your penis|Tentacle Cow Penis]]>><<transform cow 1>><</link>><<cow>>

	<</if>>
	<<if $harpy gte 6>>
		<<link [[Get a bird's eye view|Tentacle Bird]]>><<transform bird 1>><</link>><<flight_text>>

	<</if>>
<</if>>
<<set $eventskip to 0>>

:: Tentacle Home Return

<<set $location to "home">><<set $outside to 0>><<effects>>
You step through the mirror, and you're back in your room. The eerie light fades, as if it were never there.

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

:: Tentacle Plains Despair

<<location "tentworld">><<effects>>
<<if $tentaclefallenangel is undefined>>
	<<set $tentaclefallenangel to 0>>
	You growl at the unfairness of the situation. Flashbacks of the last few days play out through your head, filling you with anger and dread. What did you do to deserve this? The world robbed you of your purity, and has now dumped you here. You deliver a vicious kick to one of the tentacles at your feet. You have fallen so far. Your anger distracts you from the lewd warmth within you.
	<<gstress>><<larousal>><<stress 6>><<arousal -600>>

	<<link [[Next|Tentacle Plains]]>><</link>>

<<elseif $tentaclefallenangel is 0>>
	<<set $tentaclefallenangel to 1>>
	The anger keeps building. The injustices committed against you all come rushing back. Memories of the pain you've experienced resurface at full force, opening wounds that should have long since healed. The pain is as real as when you first felt it, driving you to keel over in agony. The tentacles around you recoil.
	<<gpain>><<llarousal>><<pain 20>><<arousal -1200>>

	<<link [[Next|Tentacle Plains]]>><</link>>

<<elseif $tentaclefallenangel is 1>>
	<<set $tentaclefallenangel to 2>>
	You remember the faces of everyone who wronged you. Every single one is floating around you, laughing at your torment and mocking you for your weakness. They jeer into the sickeningly sweet air in unison. Each word is another scar on your tattered existence. You fall to the ground, writhing in pain. The tears sting your face.
	<<gpain>><<lllarousal>><<pain 20>><<arousal -1800>>

	<<link [[Next|Tentacle Plains]]>><</link>>

<<elseif $tentaclefallenangel is 2>>
	<<set $tentaclefallenangel to 3>>
	The world has wronged you. You've been forsaken in an alien land. As the pain overwhelms you, your vision begins to fade. The tendrils creep closer.

	"No." Surprised by your own voice, you snap back to full attention. You get back to your feet. The pain is almost too much to bear. Almost. You throw your head back, and release an agonised scream. It carries the lifetime of torment that tortures you.

	The tentacles retreat. The world thinks it can just dump you here to be forgotten and used by alien creatures like a toy. Maybe you deserve it, but you're not going to let it happen.

	Whether this world is real or not, you're determined to make it back to your own out of pure spite alone. You'll show them all. Nobody has seen the last of you, but they're going to wish they had.
	<<gpain>><<lltrauma>><<llstress>><<lllarousal>><<pain 30>><<trauma -18>><<stress -18>><<arousal -2400>>

	<<link [[Next|Tentacle Plains]]>><</link>>

<<else>>
	Each memory is more pain, and you have no shortage of them. It drives you to keep moving, and the sting keeps you alert as you search for a way out.
	<<gpain>><<llarousal>><<pain 10>><<arousal -1800>>

	<<link [[Next|Tentacle Plains]]>><</link>>

<</if>>

:: Tentacle Plains Resist

<<location "tentworld">><<effects>>
<<if $tentacleangel is undefined>>
	<<set $tentacleangel to 0>>
	You kneel and reflect upon the events that led you to this place. Completely disgusted by your surroundings, you find the willpower to continue. These horrors will not hold you.
	<<llarousal>><<arousal -1200>>

	<<link [[Next|Tentacle Plains]]>><</link>>

<<elseif $tentacleangel is 0>>
	<<set $tentacleangel to 1>>
	As you meditate in the barren Plains, the ground around you almost seems to get brighter. You feel better about your situation.
	<<lstress>><<stress -6>><<llarousal>><<arousal -1200>>

	<<link [[Next|Tentacle Plains]]>><</link>>

<<elseif $tentacleangel is 1>>
	<<set $tentacleangel to 2>>
	In the depths of your mind, you hear a distant choir sing a single note. The halo above your head is getting brighter, and the lewd warmth within you melts away. This place will not hold you.
	<<lllarousal>><<arousal -2400>>

	<<link [[Next|Tentacle Plains]]>><</link>>

<<elseif $tentacleangel is 2>>
	<<set $tentacleangel to 3>>
	You are a beacon of light. The tentacles grasping your feet retract away from you. You are above this wasteland, it does not deserve your radiant presence. You keep repeating that to yourself. This place will not hold you.
	<<lllarousal>><<arousal -2400>>

	<<link [[Next|Tentacle Plains]]>><</link>>

<<else>>
	The light from your halo is blinding. You are above this place. You are above this place. You repeat the mantra out loud. The floor falls away from beneath you. You can't see the tentacles. The light from your halo encompasses all. You feel yourself rising higher and higher, the dark sky offering no resistance to your ascent. You rise and rise.

	<<if $tentacleEntrance is "asylum">>
		<<asylumescape>>
	<</if>>
	<<endevent>><<tentacleworldend>>
	<<set $forest to random(50, 100)>>
	<<link [[Next|Mirror]]>><<set $location to "home">><</link>>

<</if>>

:: Tentacle Wolf Escape

<<location "tentworld">><<effects>>
You make a mad dash for the door, pushing every muscle to its limits. The black wolf turns and sees you. It howls into the air in triumph at your approach. The tendrils shift their attention to you. A stray tentacle grabs you by the leg, tripping you.

You twist yourself over and bite the tentacle, piercing it with your fangs. It recoils and retreats. You get to your feet and keep going.

The door is within arm's reach. You jump forward to cover the final distance as a surge of tendrils chase you. A few gain purchase around your legs, but the Black Wolf grabs your neck<<npc "Black Wolf">><<if $monster isnot 1>> in its jaws<</if>> and pulls you through the door.

You fall forward and kick the remaining tentacles off. The door slams shut behind you, and vanishes. You are deep in the forest. The asylum stands before you. The Black Wolf gruffs and licks your face.
<<if $monster is 1>>
	"Heard you, smelled you. Knew trouble. Bad land. Safe now. Home." <<bHe>> lifts you up, and you journey to the cave.
<<else>>
	The wolf lets you climb on to its back, and together you journey to the cave.
<</if>>
<<lstress>><<ltrauma>><<stress -6>><<trauma -6>>

<<if $tentacleEntrance is "asylum">>
	<<asylumescape>>
<</if>>
<<endevent>><<tentacleworldend>>
<<set $forest to random(50, 100)>>
<<link [[Next (0:30)|Wolf Cave Clearing]]>><<pass 30>><</link>>

:: Tentacle Plains Howl

<<location "tentworld">><<effects>>
You rear your head back and howl to the bleak sky. A much louder, more energetic howl responds from <<tentacledirection>> You can feel the adrenaline as your wild spirit ignites. You don't know how, but you feel like escape is at hand, and the thought drives you to continue.

<<link [[Next|Tentacle Plains]]>><</link>>

:: Tentacle Plains Cat
<<location "tentworld">><<effects>>
<<if $tentaclecat is undefined>>
	<<set $tentaclecat to 1>>
	Your eyes focus. There are so many writhing, slippery little things here. One small tentacle catches your attention as it brushes against your foot. You swipe at it, and it recoils.
	<<larousal>><<lstress>><<arousal -120>><<stress -6>>

	<<link [[Next|Tentacle Plains]]>><</link>>

<<elseif $tentaclecat is 1>>
	<<set $tentaclecat to 2>>
	You pounce after another tentacle. Other tentacles begin to slither away from you. This is fun!
	<<larousal>><<llstress>><<arousal -120>><<stress -12>>

	<<link [[Next|Tentacle Plains]]>><</link>>

<<elseif $tentaclecat is 2>>
	<<set $tentaclecat to 3>>
	You pounce, catching a small tentacle and biting down on it. You catch another. And another. You make a small bundle of tentacles and paw it around.
	<<larousal>><<llstress>><<arousal -120>><<stress -12>>

	<<link [[Next|Tentacle Plains]]>><</link>>

<<else>>
	<<unset $tentaclecat>>
	You pounce and grab onto a larger tentacle, biting into it and wrestling it to the ground. It quickly retreats from you.
	<<set $tentacleorgasmignore += 1>>There are no other tentacles nearby. Your next orgasm might not be so dangerous.

	<<link [[Next|Tentacle Plains]]>><</link>>

<</if>>

:: Tentacle Cow Breasts
<<location "tentworld">><<effects>>
<<if $tentaclecow is undefined>>
	<<set $tentaclecow to 1>>
	You think you know a way to satisfy the tentacles.
<<else>>
	You prepare to satisfy the tentacle's thirst.
<</if>>
You drop to all fours, and they begin slithering up your arms.
<<if $worn.upper.name isnot "naked">>
	<<if $leftarm is "bound" or $rightarm is "bound">>
		A pair of tentacles
	<<else>>
		You
	<</if>>
	displace your $worn.upper.name<<if $worn.under_upper.name isnot "naked">> and $worn.under_upper.name<<underupperstrip>><</if>>.<<upperstrip>>
<<else>>
	<<if !$worn.under_upper.type.includes("naked")>>
		<<if $leftarm is "bound" or $rightarm is "bound">>
			A pair of tentacles
		<<else>>
			You
		<</if>>
		displace your $worn.under_upper.name.<<underupperstrip>>
	<</if>>
<</if>>
You wiggle in place, drawing attention to your <<breasts>>. The response is almost immediate. The tentacles latch on to your chest, and begin sucking.

Milk leaks from your buds, and your body shakes. Your fluid is sucked away by the tentacles. You remain on your hands and knees, two tentacles clinging to your <<breasts>>. <<arousal 1000>><<ggarousal>>

<<if $lactating is 1>>
	<<set _tentacles_milk to ($milk_amount / 2)>>
	<<set $milk_amount -= _tentacles_milk>>
	<<set $milk_produced_stat += Math.trunc(_tentacles_milk)>>

	<<if _tentacles_milk gte 50>>
		<<set $tentacleorgasmignore += 1>>
		Full, the tentacles release you and scatter. They seem satisfied. Your next orgasm might not be so dangerous.
	<<else>>
		The tentacles keep sucking. They aren't satisfied by the amount of milk you produce. Eventually, their sucking becomes painful, forcing you to pull them off. <<pain 10>><<gpain>>
	<</if>>
<<else>>
	You fail to produce any milk. The tentacles aren't satisfied.
<</if>>
<<purity -5>>
<<clotheson>>
<<endcombat>>

<<link [[Next|Tentacle Plains]]>><<endevent>><</link>>

:: Tentacle Cow Penis
<<location "tentworld">><<effects>>
<<if $tentaclecow is undefined>>
	<<set $tentaclecow to 1>>
	You think you know a way to satisfy the tentacles.
<<else>>
	You prepare to satisfy the tentacle's thirst.
<</if>>
You drop to all fours, and they begin slithering up your legs.
<<if $worn.lower.name isnot "naked">>
	<<if $feetuse is "bound">>
		A pair of tentacles
	<<else>>
		You
	<</if>>
	displace your $worn.lower.name<<if $worn.under_lower.name isnot "naked">> and $worn.under_lower.name<<underlowerstrip>><</if>>.<<lowerstrip>>
<<else>>
	<<if $worn.under_lower.name isnot "naked">>
		<<if $feetuse is "bound">>
			A pair of tentacles
		<<else>>
			You
		<</if>>
		displace your $worn.under_lower.name.<<underlowerstrip>>
	<</if>>
<</if>>
<<set $penisuse to "tentacle">><<set $tentaclePenis to "tentacle">>
<<set _tentacles_semen to ($semen_amount / 2)>>
You wiggle your <<bottom>>, drawing attention to your <<penis>>. The response is almost immediate. A tentacle latches on to you, and begins sucking.

You gasp at the sensation. The tentacle expands and shrinks while sucking. <<arousal 10000>><<ggarousal>>
<<orgasm>>

Your semen is sucked away, and the tentacle releases you. Another one takes its place before you can react.
<<orgasm>>

<<set $semen_amount -= _tentacles_semen>>
<<set $semen_produced_stat += _tentacles_semen>>

<<if _tentacles_semen gte 100>>
	<<set $tentacleorgasmignore += 1>>
	Full, the tentacles release you and scatter. They seem satisfied. Your next orgasm might not be so dangerous.
<<else>>
	The tentacle keeps sucking. It isn't satisfied by the amount of semen you produce. Eventually, its sucking becomes painful, forcing you to pull it off. <<pain 10>><<gpain>>
<</if>>

<<purity -20>>
<<clotheson>>
<<endcombat>>

<<link [[Next|Tentacle Plains]]>><<endevent>><</link>>

:: Tentacle Plains Admire

<<location "tentworld">><<effects>>
<<if $tentacleadmire is undefined>>
	<<set $tentacleadmire to 0>>
	As your eyes scan the unending horizon, everything seems to slow down. The smooth sway of the tentacles becomes almost hypnotic to you. Before long you're swaying in place, too. The tentacles at your feet tickle you.
	<<ltrauma>><<lstress>><<garousal>>

	<<trauma -6>><<stress -6>><<arousal 600>>
	<<link [[Next|Tentacle Plains]]>><</link>>

<<elseif $tentacleadmire is 0>>
	<<set $tentacleadmire to 1>>
	Everything begins to melt away as you focus on the landscape. Nothing else seems to matter. The world outside holds no meaning. Your only thoughts are of the immense pleasure this realm could offer you. Your tail moves in a phantom breeze, and a tentacle gently creeps up your leg.
	<<ltrauma>><<lstress>><<garousal>>

	<<trauma -6>><<stress -6>><<arousal 600>>
	<<link [[Next|Tentacle Plains]]>><</link>>

<<elseif $tentacleadmire is 1>>
	<<set $tentacleadmire to 2>>
	You feel no guilt or self-loathing as the heat builds within you. Every tentacle seems to provocatively motion for you to just come one step closer. You can't help yourself any longer. You fall to your knees and present yourself to the countless tentacles surrounding you. They respond to your offering and snake up your arms, legs, and tail.
	<<gcontrol>><<control 25>><<ltrauma>><<lstress>><<ggarousal>>

	<<trauma -6>><<stress -6>><<arousal 1200>>
	<<if $leftarm is "bound" or $rightarm is "bound" or $feetuse is "bound">>
		A pair of tentacles reach your <<if $leftarm is "bound" or $rightarm is "bound">>arms<</if>><<if ($leftarm is "bound" or $rightarm is "bound") and $feetuse is "bound">> and <</if>><<if $feetuse is "bound">>legs<</if>> and squirt a viscous liquid onto your bindings, slowly dissolving them.<<unbind>>

	<</if>>
	<<link [[Next|Tentacle Plains Admire Sex]]>><<set $sexstart to 1>><</link>>
<<else>>
	Just thinking about what's to come is driving you mad with lust. You could leave at any time, and yet here you remain. You crouch low to the ground, taking a tentacle in each hand. They respond to your touch eagerly, and an entire swarm of tentacles is soon upon you.
	<<gcontrol>><<control 25>><<ltrauma>><<lstress>><<ggarousal>>

	<<trauma -6>><<stress -6>><<arousal 1200>>
	<<link [[Next|Tentacle Plains Admire Sex]]>><<set $sexstart to 1>><</link>>
<</if>>

:: Tentacle Plains Admire Sex

<<location "tentworld">>

<<if $sexstart is 1>><<set $sexstart to 0>>
	<<set $combat to 1>>
	<<set $enemytype to "tentacles">>
	<<consensual>>
	<<set $consensual to 1>>
	<<tentaclestart 6 8>>
	<<set $tentacles[0].shaft to "waist">>
<</if>>
<<statetentacles>>

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

:: Tentacle Plains Admire Sex Finish

<<effects>>
As your body is completely covered by the warm, writhing masses, you take another look at the land around you. This twisted world is a perversion of all that is right, a vile mockery of the world you know. It's defiled, it's corrupt, it's evil. It's just like you.

<<set $eventskip to 1>>
<<clotheson>>
<<endcombat>>
<<link [[Next|Tentacle Plains]]>><</link>>

:: Tentacle Escape

<<location "tentworld">><<effects>>

You step through the door. It seals shut behind you. You're in the forest.

<<if $tentacleEntrance is "asylum">>
	<<asylumescape>>
<</if>>
<<endevent>><<tentacleworldend>>
<<set $forest to random(50, 100)>>
<<link [[Next|Forest]]>><</link>>

:: Tentacle Return

<<location "tentworld">><<effects>>
You go through the door back to the asylum. It seals shut behind you.

<<endevent>><<npc Harper>><<person1>><<tentacleworldend>>
<<link [[Next|Asylum Room 2]]>><</link>>

:: Tentacle Rape

<<location "tentworld">>

<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<set $combat to 1>>
	<<set $enemytype to "tentacles">>
	<<controlloss>>
	<<molested>>
	<<tentaclestart 12 15>>
	<<set $tentacles[0].shaft to "waist">>
<</if>>

<<statetentacles>>

<<effects>>
<<effectstentacles>>
<<tentacles>>
<<actionstentacles>>

<<if $tentacles.active lte ($tentacles.max / 2)>>
	<<link [[Next|Tentacle Rape Finish]]>><</link>><<nexttext>>
<<else>>
	<<link [[Next|Tentacle Rape]]>><</link>><<nexttext>>
<</if>>

:: Tentacle Rape Finish

<<effects>>
The tentacles lose interest in you, for now. <<tearful>> you struggle to your feet.

<<set $eventskip to 1>>
<<clotheson>>
<<endcombat>>
<<arousal -1000>>
<<link [[Next|Tentacle Plains]]>><</link>>

:: Tentacle Plains Spray

<<location "tentworld">><<effects>>
The light pulses and fades at your touch. The tendrils fall away. Your pepper spray feels warm.

You've gained an additional pepper spray charge.

<<link [[Next|Tentacle Plains]]>><</link>>

:: Tentacle Bird
<<effects>>

You take to the air, leaving the writhing tentacles far below. Your wings soon tire, but you're able to get a good view.

<<set _tent_portal_north to $tentnorth - $tentportalnorth>>
<<set _tent_portal_east to $tenteast - $tentportaleast>>

<<set _tent_spray_north to $tentnorth - 4>>
<<set _tent_spray_east to $tenteast - 4>>

<<if _tent_portal_north lte 2 and _tent_portal_north gte -2 and _tent_portal_east lte 2 and _tent_portal_east gte -2>>
	<<set _tent_found to true>>
	You see a green door.
	<<if _tent_portal_north is 0>>
	<<elseif _tent_portal_north gte 1>>
		<<Number _tent_portal_north*10>> minutes to the south.
	<<elseif _tent_portal_north lt 0>>
		<<Number _tent_portal_north*-10>> minutes to the north.
	<</if>>
	<<if _tent_portal_east is 0>>
	<<elseif _tent_portal_east gte 1>>
		<<Number _tent_portal_east*10>> minutes to the west.
	<<elseif _tent_portal_east lt 0>>
		<<Number _tent_portal_east*-10>> minutes to the east.
	<</if>>

<</if>>
<<if $tentnorth gte -2 and $tentnorth lte 2 and $tenteast gte -2 and $tenteast lte 2>>
	<<set _tent_found to true>>
	<<if $tentacleEntrance is "mirror">>
		You see the mirror to your bedroom.
	<<else>>
		You see the door to the asylum.
	<</if>>
	<<if $tentnorth is 0>>
	<<elseif $tentnorth gte 1>>
		<<Number $tentnorth*10>> minutes to the south.
	<<elseif $tentnorth lt 0>>
		<<Number $tentnorth*-10>> minutes to the north.
	<</if>>
	<<if $tenteast is 0>>
	<<elseif $tenteast gte 1>>
		<<Number $tenteast*10>> minutes to the west.
	<<elseif $tenteast lt 0>>
		<<Number $tenteast*-10>> minutes to the east.
	<</if>>

<</if>>
<<if _tent_spray_north gte -2 and _tent_spray_north lte 2 and _tent_spray_east gte -2 and _tent_spray_east lte 2>>
	<<set _tent_found to true>>
	You see a strange object.
	<<if _tent_spray_north is 0>>
	<<elseif _tent_spray_north gte 1>>
		<<Number _tent_spray_north*10>> minutes to the south.
	<<elseif _tent_spray_north lt 0>>
		<<Number _tent_spray_north*-10>> minutes to the north.
	<</if>>
	<<if _tent_spray_east is 0>>
	<<elseif _tent_spray_east gte 1>>
		<<Number _tent_spray_east*10>> minutes to the west.
	<<elseif _tent_spray_east lt 0>>
		<<Number _tent_spray_east*-10>> minutes to the east.
	<</if>>

<</if>>
<<if _tent_found isnot true>>
	You don't see anything interesting.

<</if>>

<<link [[Next|Tentacle Plains]]>><<set $eventskip to 1>><</link>>


code:
:: Widgets Vogni [widget]

<<widget "vogni-speech">>

        <<print $args[0]>>

<</widget>>