code:
:: Widgets Clamp [widget]
<<widget "preclamp">><<nobr>>

<<if $trauma gte $traumamax>>
<<set $beauty -= (($trauma - $traumamax) / 5)>>
<</if>>
<<if $innocencestate is 1>>
<<set $innocencetrauma += $trauma>>
<<set $trauma to 0>>
<</if>>

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

<<widget "clamp">><<nobr>>

<<preclamp>>
<<npcclamp>>

<<if $devlevel lte 19>>
<<set $beauty = Math.clamp($beauty, 0, $beautymax)>>
<<set $physique = Math.clamp($physique, 0, $physiquesize)>>
<<else>>
<<set $beauty = Math.clamp($beauty, 0, $beautymax)>>
<<set $physique = Math.clamp($physique, 0, 20000)>>
<</if>>

<<set $upperwet = Math.clamp($upperwet, 0, 200)>>
<<set $lowerwet = Math.clamp($lowerwet, 0, 200)>>
<<set $underlowerwet = Math.clamp($underlowerwet, 0, 200)>>
<<set $underupperwet = Math.clamp($underupperwet, 0, 200)>>

<<set $demonbuild = Math.clamp($demonbuild, 0, 100)>>
<<set $angelbuild = Math.clamp($angelbuild, 0, 100)>>
<<set $wolfbuild = Math.clamp($wolfbuild, 0, 100)>>
<<set $catbuild = Math.clamp($catbuild, 0, 100)>>

<<set $seductionskill = Math.clamp($seductionskill, 0, 1000)>>
<<set $oralskill = Math.clamp($oralskill, 0, 1000)>>
<<set $vaginalskill = Math.clamp($vaginalskill, 0, 1000)>>
<<set $analskill = Math.clamp($analskill, 0, 1000)>>
<<set $handskill = Math.clamp($handskill, 0, 1000)>>
<<set $feetskill = Math.clamp($feetskill, 0, 1000)>>
<<set $bottomskill = Math.clamp($bottomskill, 0, 1000)>>
<<set $thighskill = Math.clamp($thighskill, 0, 1000)>>
<<set $chestskill = Math.clamp($chestskill, 0, 1000)>>
<<set $penileskill = Math.clamp($penileskill, 0, 1000)>>
<<set $hunger = Math.clamp($hunger, 0, 2000)>>
<<set $thirst = Math.clamp($thirst, 0, 2000)>>

<<set $hygiene = Math.clamp($hygiene, 0, 2000)>>
<<set $arousal = Math.clamp($arousal, 0, $arousalmax)>>
<<set $stress = Math.clamp($stress, 0, $stressmax)>>
<<set $hairlength = Math.clamp($hairlength, 0, 1000)>>
<<set $fringelength = Math.clamp($fringelength, 0, 1000)>>
<<set $trauma = Math.clamp($trauma, 0, $traumamax)>>
<<if $gamemode is "soft">>
<<set $control = Math.clamp($control, 1000, $controlmax)>>
<<else>>
<<set $control = Math.clamp($control, 0, $controlmax)>>
<</if>>
<<set $awareness = Math.clamp($awareness, -200, 1000)>>
<<set $submissive = Math.clamp($submissive, 0, 2000)>>
<<if $vaginalvirginity is 1 and $penilevirginity is 1>><<set $purity = Math.clamp($purity, 0, 1000)>><<else>><<set $purity = Math.clamp($purity, 0, 999)>><</if>>
<<set $time = Math.clamp($time, 0, 1440)>>
<<set $minute = Math.clamp($minute, 0, 1440)>>
<<set $orgasmcount = Math.clamp($orgasmcount, 0, 25)>>
<<set $willpower = Math.clamp($willpower, 0, $willpowermax)>>
<<set $orphan_hope = Math.clamp($orphan_hope, -50, 50)>>
<<set $orphan_reb = Math.clamp($orphan_reb, -50, 50)>>

<<set $english to Math.clamp($english, 0, 1000)>>
<<set $maths to Math.clamp($maths, 0, 1000)>>
<<set $science to Math.clamp($science, 0, 1000)>>
<<set $history to Math.clamp($history, 0, 1000)>>
<<set $school to Math.clamp($school, 0, 4000)>>
<<set $cool to Math.clamp($cool, 0, $coolmax)>>
<<set $delinquency to Math.clamp($delinquency, 0, 1000)>>

<<set $skulduggery to Math.clamp($skulduggery, 0, 1000)>>
<<set $danceskill to Math.clamp($danceskill, 0, 1000)>>
<<set $swimmingskill to Math.clamp($swimmingskill, 0, 1000)>>

<<set $enemyanger to Math.clamp($enemyanger, 0, 200)>>
<<set $audienceexcitement to Math.clamp($audienceexcitement, 0, 100)>>
<<set $audiencearousal to Math.clamp($audiencearousal, 0, 100)>>
<<if $gamemode is "soft">>
<<set $pain to Math.clamp($pain, 0, 0)>>
<<else>>
<<set $pain to Math.clamp($pain, 0, 200)>>
<</if>>

<<set $facebruise to Math.clamp($facebruise, 0, 100)>>
<<set $chestbruise to Math.clamp($chestbruise, 0, 100)>>
<<set $tummybruise to Math.clamp($tummybruise, 0, 100)>>
<<set $vaginabruise to Math.clamp($vaginabruise, 0, 100)>>
<<set $penisbruise to Math.clamp($penisbruise, 0, 100)>>
<<set $anusbruise to Math.clamp($anusbruise, 0, 100)>>
<<set $bottombruise to Math.clamp($bottombruise, 0, 100)>>
<<set $thighbruise to Math.clamp($thighbruise, 0, 100)>>
<<set $armbruise to Math.clamp($armbruise, 0, 100)>>
<<set $neckbruise to Math.clamp($neckbruise, 0, 100)>>
<<set $masochism to Math.clamp($masochism, 0, 1000)>>

<<set $breastsize to Math.clamp($breastsize, 0, 12)>>
<<set $bottomsize to Math.clamp($bottomsize, 0, 8)>>
<<set $penissize to Math.clamp($penissize, -1, 4)>>
<<set $ballssize to Math.clamp($ballssize, -1, 4)>>

<<set _tempmin = Math.min($breastsizemin, $breastsizemax)>>
<<set _tempmax = Math.max($breastsizemin, $breastsizemax)>>
<<set $breastsizemin = _tempmin>>
<<set $breastsizemax = _tempmax>>
<<set _tempmin = Math.min($bottomsizemin, $bottomsizemax)>>
<<set _tempmax = Math.max($bottomsizemin, $bottomsizemax)>>
<<set $bottomsizemin = _tempmin>>
<<set $bottomsizemax = _tempmax>>
<<set _tempmin = Math.min($penissizemin, $penissizemax)>>
<<set _tempmax = Math.max($penissizemin, $penissizemax)>>
<<set $penissizemin = _tempmin>>
<<set $penissizemax = _tempmax>>
<<set _tempmin = Math.min($ballssizemin, $ballssizemax)>>
<<set _tempmax = Math.max($ballssizemin, $ballssizemax)>>
<<set $ballssizemin = _tempmin>>
<<set $ballssizemax = _tempmax>>

<<set $exhibitionism to Math.clamp($exhibitionism, 0, 100)>>
<<set $promiscuity to Math.clamp($promiscuity, 0, 100)>>
<<set $deviancy to Math.clamp($deviancy, 0, 100)>>

<<set $hallucinogen to Math.clamp($hallucinogen, 0, 1000)>>
<<set $drunk to Math.clamp($drunk, 0, 1000)>>
<<set $drugged to Math.clamp($drugged, 0, 1000)>>

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

<<widget "fameclamp">><<nobr>>

<<set $famesex to Math.clamp($famesex, 0, 2000)>>
<<set $famerape to Math.clamp($famerape, 0, 2000)>>
<<set $famebestiality to Math.clamp($famebestiality, 0, 2000)>>
<<set $fameexhibitionism to Math.clamp($fameexhibitionism, 0, 2000)>>
<<set $fameprostitution to Math.clamp($fameprostitution, 0, 2000)>>
<<set $famescrap to Math.clamp($famescrap, 0, 2000)>>
<<set $famegood to Math.clamp($famegood, 0, 2000)>>
<<set $famebusiness to Math.clamp($famebusiness, 0, 2000)>>
<<set $famepimp to Math.clamp($famepimp, 0, 2000)>>

<<set $fame to ($famesex + $famerape + $famebestiality + $fameexhibitionism + $fameprostitution + $famescrap + $famegood + $famebusiness + $famepimp)>>

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

<<widget "npcclamp">><<nobr>>
<!-- This widget is used before below are defined. Investigate first usage and fix, for now commented out as of v2.5 -->

/% <<set _npc to $NPCNameList.indexOf(Darryl)>> %/
/% <<set $NPCName[_npc].love = Math.clamp($NPCName[_npc].love, -50, 50)>> %/
/% <<set $NPCName[_npc].dom = Math.clamp($NPCName[_npc].dom, -50, 50)>> %/

/% <<set _npc to $NPCNameList.indexOf(River)>> %/
/% <<set $NPCName[_npc].love = Math.clamp($NPCName[_npc].love, -50, 50)>> %/
/% <<set $NPCName[_npc].dom = Math.clamp($NPCName[_npc].dom, -50, 50)>> %/
<</nobr>><</widget>>


code:
:: Widgets containers [widget]
<<widget "creatureActivity">><<nobr>>
<<if $args[0]>>
	<<if $args[0] lte 50>>
	Perfect activity
	<<elseif $args[0] lte 70>>
	Amazing activity
	<<elseif $args[0] lte 100>>
	Good activity
	<<elseif $args[0] lte 150>>
	Decent activity
	<<elseif $args[0] lte 200>>
	Okay activity
	<<elseif $args[0] lte 250>>
	Poor activity
	<<elseif $args[0] lte 300>>
	Rare activity
	<<elseif $args[0] gt 350>>
	Very rare activity
	<</if>>
<</if>>
<</nobr>><</widget>>

<<widget "creatureContainersProgressDay">><<nobr>>
<<set _list to $container.list>>
<<for _i to 0; _i lt _list.length; _i++>>
	<<set _container to $container[_list[_i]]>>
	<<if _container.count is 0>>
		<<set _container.daysSinceFed to 0>>
		<<continue>>
	<</if>>
	<<if _list[_i] is "home">>
		<<if $NPCName[$NPCNameList.indexOf("Kylar")].love gte 75 and $NPCName[$NPCNameList.indexOf("Kylar")].state is "active">>
			<<set _container.kylarHelp to true>>
		<<else>>
			<<set _container.kylarHelp to false>>
		<</if>>
		<<if _container.kylarHelp is true and _container.kylarDelay is 0 and _container.daysSinceFed is _container.maxDaysWithoutFood>>
			<<npcincr Kylar love -1>>
			<<set _container.daysSinceFed -= 1>>
			<<set _container.kylarFed to true>>
		<<elseif _container.kylarHelp is true and _container.kylarDelay gt 0 and _container.daysSinceFed is 0>>
			<<set _container.kylarDelay-->>
			<<set _container.kylarFed to false>>
		<</if>>
	<</if>>
	<<set _container.daysSinceFed += 1>>
	<<if _container.daysSinceFed gt _container.maxDaysWithoutFood>>
		<<set _container.deadCreatures to _container.count>>
		<<set _container.count to 0>>
		<<set _container.creatures to {}>>
	<</if>>
	<<set _container.visited to false>>
<</for>>
<</nobr>><</widget>>

<<widget "creatureVisit">><<nobr>>
<<set _container to $container[$location]>>
<<set _container.visited to true>>
<<set _container.daysSinceFed to 0>>

/*stress, trauma, fatigue, purity, impurity*/
<<set _boosts to [false,false,false,false,false]>>
<<set _purityGain to 0>><<set _tenticles to 0>>
<<for _i to 0; _i lt _container.maxCount; _i++>>
	<<if _container.creatures[_i] is undefined>>
		<<continue>>
	<</if>>
	<<if _container.creatures[_i] isnot null>>
		<<set _value = Math.floor(5000 / _container.creatures[_i].stats.speed)>>
		<<if _container.upgrades.luxury gt 0>>
			<<set _value *= Math.floor(1 + (0.25 * _container.upgrades.luxury))>>
		<</if>>
		<<if _value gt 0>>
			<<set $stress -= _value>>
			<<set _boosts[0] to true>>
		<</if>>
		<<if Math.floor(_value / 8) gt 0>>
			<<set $trauma -= Math.floor(_value / 8)>>
			<<set _boosts[1] to true>>
		<</if>>
		<<if _container.creatures[_i].creature is "Slime">>
			<<set _purityGain += 0.5>>
		<</if>>
		<<if _container.creatures[_i].creature is "Worm">>
			<<set _purityGain -= 0.5>>
		<</if>>
		<<if _container.creatures[_i].creature is "Tentacle">>
			<<if Math.floor(_value / 4) gt 0>>
				<<set $tiredness -= Math.floor(_value / 4)>>
				<<set _boosts[2] to true>>
			<</if>>
			<<set _tenticles += 0.5>>
		<</if>>
	<</if>>
<</for>>

<<if _purityGain gt 0>>
	<<set _purityGain += _tenticles>>
<<elseif _purityGain lt 0>>
	<<set _purityGain -= _tenticles>>
<</if>>
<<if Math.floor(_purityGain) gt 0>>
	<<set _purityGain to Math.floor(_purityGain)>>
	<<set _boosts[3] to true>>
<<elseif Math.ceil(_purityGain) lt 0>>
	<<set _purityGain to Math.ceil(_purityGain)>>
	<<set _boosts[4] to true>>
<</if>>
<<set $purity += _purityGain>>

<<if _boosts[0]>> <<lstress>><</if>>
<<if _boosts[1]>> <<ltrauma>><</if>>
<<if _boosts[2]>> <<ltiredness>><</if>>
<<if _boosts[3]>> <<gpurity>><</if>>
<<if _boosts[4]>> <<lpurity>><</if>>
<</nobr>><</widget>>

:: Containers [nobr]
<<set $outside to 0>><<set $location to $container.lastLocation>><<effects>>
<<set _container to $container[$location]>>
<<set _pregnancy to $sexStats.anus.pregnancy>>
<<set $checkboxResult to {}>>

<<if _container.count is 0>>
	<<if _container.deadCreatures is 0>>
		You currently have no <<if _pregnancy.namesChildren is true>>children<<else>>parasites<</if>> inside the <<print _container.name>>.

	<<else>>
		After not checking and feeding <<if _pregnancy.namesChildren is true>>your children<<else>>the parasites<</if>>, it looks like some have died. You take your time in burying them. <<ggtrauma>>
		<<if _pregnancy.namesChildren is true>>
			<<set _traumaMulti to 2>>
		<<else>>
			<<set _traumaMulti to 1>>
		<</if>>
		<<set $trauma += 100 * _traumaMulti * _container.deadCreatures>>

		<<link [[Next (1:00)|$passage]]>><<set _container.deadCreatures to 0>><<pass 60>><</link>>
	<</if>>
<<else>>
	<<if _container.visited is false>>
		You check on <<if _pregnancy.namesChildren is true>>your children<<else>>the parasites<</if>>, and make sure they have everything they need inside <<print _container.name>>.

		<<creatureVisit>>
	<<else>>
	You watch your <<if _pregnancy.namesChildren is true>>children<<else>>parasites<</if>> inside <<print _container.name>>.
	<</if>>

	It has a max capacity of <<print _container.maxCount>> and <<if _pregnancy.namesChildren is true>>your children<<else>>the parasites<</if>> can survive <<print _container.maxDaysWithoutFood>> days without your attention<<if _container.feederName>>, thanks to your <<print _container.feederName>><</if>>. <<if _container.decorations>>You have <<print _container.decorations>> setup within the tank.<</if>>
<</if>>

<<if _container.count gt 0>>

		<<for _i to 0; _i lt _container.maxCount; _i++>>
			<<if _container.creatures[_i] is undefined>>
				<<continue>>
			<</if>>
			<<if _container.creatures[_i] isnot null>>

<<print '<<checkbox "$checkboxResult[' + clone(_i) + ']" false true>>'>> - <<print _container.creatures[_i].creature>> - <<print _container.creatures[_i].stats.gender>> - <<creatureActivity _container.creatures[_i].stats.speed>>

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

<</if>>

<<if _container.deadCreatures is 0>>
	<<if _pregnancy.feltMovement is true>>
		<<if $worn.under_lower.anal_shield is 1>>
			You're unable to deliver <<if _pregnancy.namesChildren is true>>your children<<else>>the parasites<</if>> while you have an anal shield.
		<<else>>
			<<if _pregnancy.namesChildren is true>>
				<<link [[Attempt to deliver you baby (1:00)|GiveBirth]]>><<pass 60>><</link>>
			<<else>>
				<<link [[Attempt to deliver the parasite (1:00)|GiveBirth]]>><<pass 60>><</link>>
			<</if>>
		<</if>>
	<<elseif _pregnancy.count - (_pregnancy.motherStatus is 2 ? 1 : 0) gt 0>>
		You don't think <<print (_pregnancy.namesChildren is true ? "your children" : "the parasites")>> are ready for delivery.
	<</if>>

	<<if _container.count gt 0>>
	<<link [[Transfer for selling|$passage]]>>
		<<for _i to 0; _i lt _container.maxCount;_i++>>
			<<if _container.creatures[_i] is undefined>>
				<<continue>>
			<</if>>
			<<if _container[_i] isnot null>>
				<<if $checkboxResult[_i] is true>>
					<<set $number to clone(_i)>>
					<<moveCreature $location "portable" _i>>
				<</if>>
			<</if>>
		<</for>>
	<</link>>

	<</if>>
	<<link [[Leave|$container[$location].leaveLink]]>><</link>>
<</if>>

repo_name: fizzyboi/degrees

license: mit


code:
:: Pregnancy Introduction [nobr]

<<set $outside to 0>><<set $location to "town">><<effects>>
<<set $sexStats.anus.pregnancy.seenDoctor to 2>>
<<if $hospitalintro is 0>>
	<<npc Harper>><<person1>>You don't have to wait long. A <<if $pronoun is "m">>man<<else>>woman<</if>> wearing a white medical coat and carrying a clipboard emerges from an adjacent room and beckons you over.

	<<He>> smiles at you. "Hello, I'm Doctor Harper." You enter <<his>> office and take a seat. <<He>> looks young, can't be older than 25.

<<else>>
	<<npc Harper>><<person1>>You don't have to wait long. Doctor Harper emerges from <<his>> office and beckons you over. You enter <<his>> office and take a seat.

<</if>>
"You're experiencing strange sensations in your abdomen?," <<he>> asks. You nod. <<He>> wheels <<his>> chair closer, and places <<his>> stethoscope to your tummy.

<<He>> listens for a moment, then wheels away and types something into <<his>> computer. "You have a parasite problem," <<he>> says. "They're using you as part of their reproductive cycle." <<He>> notices the look on your face, and smiles. "Don't be concerned. They won't harm you. They'll remove themselves when they're ready."

<<He>> spends several minutes explaining how to "birth" the creatures.. What to do, and what not to do. It sounds simple. Drop to all fours, and squeeze.

<<He>> turns back to <<his>> computer. "Species like this are of scientific interest," <<he>> continues. "If you're interested in making a bit of money, I'm able to pay you for them on behalf of a local company." <<He>> rises to <<his>> feet. "Is there anything else?"

You shake your head. <<He>> holds open the door for you, and you leave the office. "Be well," <<he>> says as you pass.

<<link [[Return to Foyer|Hospital Foyer]]>><<endevent>><</link>>

:: Pregnancy Discussion [nobr]

<<set $outside to 0>><<set $location to "town">><<effects>>
<<if $firstOption is undefined>><<set $firstOption to true>><</if>>
<<set _pregnancy to $sexStats.anus.pregnancy>>

<<if $firstOption is true>>
<<npc Harper>><<person1>>You don't have to wait long. Doctor Harper emerges from <<his>> office and beckons you over. You enter <<his>> office and take a seat.

"How can I help you?" <<He>> says.

<<else>>
You are in Doctor Harper's office. "Is there anything else I can help you with?" <<He>> says.

<</if>>

<<if $sexStats.anus.pregnancy.seenDoctor gte 2 and $container.portable.value gt 0>>
	<<if _pregnancy.namesChildren is true>>
		<<link [[Sell the children you're carrying (0:05)|Sell Children]]>><<pass 5>><<set $firstOption to false>><</link>>

	<<else>>
		<<link [[Sell the parasites you're carrying (0:05)|Sell Children]]>><<pass 5>><<set $firstOption to false>><</link>>

	<</if>>
<</if>>
<<if $sexStats.anus.pregnancy.seenDoctor is 3>>
	<<link [[Inquire about feeling something large in your stomach (0:10)|Pregnancy Futa Introduction]]>><<pass 10>><<set $firstOption to false>><</link>>

<</if>>
<<if $sexStats.anus.pregnancy.seenDoctor gte 4 and $sexStats.anus.pregnancy.motherStatus is 2>>
	<<link [[Inquire about anal futa removal (0:30)|Remove Futa Pregnancy]]>><<pass 10>><<set $futaCheck to true>><<set $firstOption to false>><</link>>

<</if>>

<<link [[Return to Foyer|Hospital Foyer]]>><<endevent>><<unset $firstOption>><</link>>

:: Sell Children [nobr]

<<set $outside to 0>><<set $location to "town">><<effects>>
Doctor Harper walks over to <<his>> office door, and locks it. <<He>> sits back down. "What have you brought me today?" <<he>> asks.

You pull out the small container <<he>> gave you. <<He>> looks inside. Seeming satisfied, <<he>> produces another, larger container from beneath <<his>> desk. <<He>> transfers the contents and hands the empty container to you. <<He>> opens a draw, and counts out £<<print $container.portable.value>><<set $money += $container.portable.value * 100>>. <<He>> hands it to you.

"The community thanks you," <<he>> says.

<<set $container.portable.value to 0>>
<<set $container.portable.creatures to []>>
<<link [[Next|Pregnancy Discussion]]>><</link>>

:: Pregnancy Futa Introduction [nobr]

<<set $outside to 0>><<set $location to "town">><<effects>>
<<set $sexStats.anus.pregnancy.seenDoctor to 4>>
"Strange," <<he>> says. "N-not that there's anything to be alarmed about." <<He>> pulls <<his>> chair back to <<his>> computer and types something in.

You wait as <<he>> reads the screen, occasionally tapping on the keyboard. <<He>> pulls a large book from a drawer, blows off dust, and flips through the pages. At last, <<he>> puts the book away and turns to face you.

"You have a parasite," <<he>> says. "An unusual one. It has both sex organs, and is able to mate with itself. We'll need to perform a procedure here in order to remove it. Until then, you'll contine to birth its offspring."

<<link [[Next|Pregnancy Discussion]]>><</link>>

:: Pregnancy Clear [nobr]

<<link [[Next|Pregnancy Discussion]]>><</link>>

:: Remove Futa Pregnancy [nobr]

<<set $outside to 0>><<set $location to "town">><<effects>>

<<set _pregnancy to $sexStats.anus.pregnancy>><<set _extra to false>>
<<for _i to 0; _i lt _pregnancy.maxCount; _i++>>
	<<if _pregnancy[_i] isnot null>>
		<<if _pregnancy[_i].stats.gender is "Futa">>
			<<moveCreature _i "destroy">>
			<<set _pregnancy.motherStatus to 1>>
			<<set _pregnancy.maxCount to 2>>
			<<break>>
		<</if>>
	<</if>>
<</for>>

<<set _slotsFree to [false, false]>>
<<for _i to 0; _i lt 4; _i++>>
	<<if _i lt 2 and _pregnancy[_i] is null>>
		<<set _slotsFree[_i] to true>>
	<<elseif _i gte 2 and _pregnancy[_i] isnot null>>
		<<if _slotsFree[0] is true>>
			<<set _pregnancy[0] to clone(_pregnancy[_i])>>
			<<set _slotsFree[0] to false>>
		<<elseif _slotsFree[1] is true>>
			<<set _pregnancy[1] to clone(_pregnancy[_i])>>
			<<set _slotsFree[1] to false>>
		<<else>>
			<<set _extra to true>>
		<</if>>
		<<set _pregnancy[_i] to null>>
	<</if>>
<</for>>

"Please undress and lie on the table," <<he>> says while pulling on a latex glove. "No need to be shy." <<He>> turns and rummages through a drawer.

You <<nervously>> remove your clothing while <<his>> back is turned. You lie down on the table, conscious of your <<lewdnessstop>> <<His>> face neutral, the doctor grasps your legs and pushes them against your shoulders, before tying them down with straps.

"It will be easier if you're still," <<he>> affirms as <<he>> ties down your wrists. You can barely move.

<<if $worn.under_lower.anal_shield is 1>>
<<He>> examines your $worn.under_lower.name, then produces a strange metal device from <<his>> coat. <<He>> taps the metal, and your anal shield falls loose. "I'll return it when I'm done," <<he>> says.

<</if>>

<<He>> opens another drawer, and pulls out a smooth white rod with a round ball on one end. <<He>> pushes the thin end against your <<bottomstop>> "Just relax," <<he>> says. It slides in without pain, as if lubricated. Harper twists the other side, and you feel it pulse within you.
<<garousal>><<arousal 12>>

Harper stares unblinking at your <<bottom>> as the pulsing increases in intensity. Just when you feel like you can't take any more, <<he>> eases it out. The <<if _pregnancy.namesChildren is true>>baby<<else>>parasite<</if>> is wrapped around the end<<if _extra is true>> alongside a smaller one<</if>>. <<He>> puts it in an opaque container, and seals it shut.

"All done," <<he>> says as <<he>> unties the straps. <<He>> turns away as you dress.

<<link [[Next|Pregnancy Discussion]]>><<unset $futaCheck>><</link>>

:: GiveBirth [nobr]

<<set $outside to 0>><<set $location to $container.lastLocation>><<effects>>
<<set _pregnancy to $sexStats.anus.pregnancy>>
<<set _pregnancy.feltMovement to false>>
<<set _container to $container[$location]>>
<<set $pregResult to "notReady">>
<<set _stressMulti to 2 - _pregnancy.motherStatus>>
<<set $checkboxResult to {}>>
<<set $checkboxReplace to {}>>
<<set $parasiteSelectionCount to 0>>

Following the directions from Doctor Harper, you get into position and attempt to deliver <<if _pregnancy.namesChildren is true>>your baby<<else>>the parasites<</if>>. <<if _stressMulti gt 0>><<gstress>><</if>><<set $stress += 250 * _stressMulti>>

<<for _i to 0; _i lt _pregnancy.maxCount; _i++>>
	<<if _pregnancy[_i] is null>>
		<<continue>>
	<</if>>
	<<if _pregnancy[_i].stats.gender isnot "Futa">>
		<<set _rand to random(0,100)>>
		<<if (_rand lte 80 and _pregnancy[_i].daysLeft is 0) or (_rand lte 50 and _pregnancy[_i].daysLeft lte 1) or (_rand lte 30 and _pregnancy[_i].daysLeft lte 2) or (_rand lte 10 and _pregnancy[_i].daysLeft lte 3)>>
			<<if $pregResult is "notReady">>
				<<set $pregResult to [clone(_i)]>>
			<<else>>
				<<set $pregResult.push(clone(_i))>>
			<</if>>
		<</if>>
	<</if>>
<</for>>

<<if $pregResult is "notReady">>
	Despite your efforts, none of <<if _pregnancy.namesChildren is true>>your children<<else>>the parasites<</if>> are ready to leave you.

	<<link [[Next|Containers]]>><<unset $pregResult>><</link>>
<<else>>
	Your body shudders, and to the floor falls <<if _pregnancy.namesChildren is true>><<print $pregResult.length>> <<print $pregResult.length gt 1 ? 'babies' : 'baby'>><<else>><<print $pregResult.length>> <<print $pregResult.length gt 1 ? 'parasites' : 'parasite'>><</if>>.

		<<for _i to 0; _i lt $pregResult.length; _i++>>

<<print '<<checkbox "$checkboxResult[' + clone($pregResult[_i]) + ']" false true checked>>'>> - <<print _pregnancy[$pregResult[_i]].creature>> - <<creatureActivity _pregnancy[$pregResult[_i]].stats.speed>>

		<</for>>

	<<if $pregResult.length gt (_container.maxCount - _container.count)>>
	Please select any required to replace, it will replace from top to bottom:

		<<for _i to 0; _i lt _container.maxCount; _i++>>
			<<if _container.creatures[_i] is undefined>>
				<<set $checkboxReplace[_i] to true>>
				<<continue>>
			<</if>>
			<<if _container.creatures[_i] isnot null>>

<<print '<<checkbox "$checkboxReplace[' + clone(_i) + ']" false true ($checkboxReplace[' + clone(_i) + '] ? "checked" : "")>>'>> - <<print _container.creatures[_i].creature>> - <<creatureActivity _container.creatures[_i].stats.speed>>

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

	<</if>>

<<PregEventsResult>>

<</if>>

:: Widgets PregEventsResult [widget]
<<widget "PregEventsResult">><<nobr>>
<<set $outside to 0>><<set $location to $container.lastLocation>><<effects>>
<<set _pregnancy to $sexStats.anus.pregnancy>>
<<set _container to $container[$location]>>
<<set $parasiteSelectionCount to 0>>
<<set $parasiteReplaceArray to []>>
<<set _avaliableStorage to (_container.maxCount - _container.count)>>
<<for _i to 0; _i lt $pregResult.length; _i++>>
	<<if $checkboxResult[$pregResult[_i]] is true>>
		<<set $parasiteSelectionCount += 1>>
	<</if>>
<</for>>
<<for _i to 0; _i lt _container.count; _i++>>
	<<if $checkboxReplace[_i] is true>>
		<<set $parasiteReplaceArray.push(clone(_i))>>
	<</if>>
<</for>>

<<if $debug is 1>>
	Debug - Keep selected babies result (ID - Checkbox - Result)

	<<for _i to 0; _i lt $pregResult.length;_i++>>
		<<if $checkboxResult[$pregResult[_i]] is true>>
			<<print $pregResult[_i]>> - <<print $checkboxResult[$pregResult[_i]]>> - Keep

		<<elseif $checkboxResult[$pregResult[_i]] is false>>
			<<print $pregResult[_i]>> - <<print $checkboxResult[$pregResult[_i]]>> - Sell

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

<</if>>

<<if $parasiteSelectionCount lte _avaliableStorage>>
	<<if $parasiteSelectionCount gt 0>>
		<<if _pregnancy.namesChildren is true>>
			<<link [[Keep selected babies|PregEventsResult2]]>>
				<<set $pregChoice to "KeepSelected">>
			<</link>>
		<<else>>
			<<link [[Keep selected parasites|PregEventsResult2]]>>
				<<set $pregChoice to "KeepSelected">>
			<</link>>
		<</if>>
	<</if>>
<<elseif $parasiteSelectionCount gt 0>>
	Not enough storage for selected amount. Please replace <<print $parasiteSelectionCount - _avaliableStorage>> <<if _pregnancy.namesChildren is true>><<print $parasiteSelectionCount - _avaliableStorage gt 1 ? 'babies' : 'baby'>><<else>><<print $parasiteSelectionCount - _avaliableStorage gt 1 ? 'parasites' : 'parasite'>><</if>>.

	<<if ($parasiteSelectionCount - $parasiteReplaceArray.length) is _avaliableStorage>>
		<<if _pregnancy.namesChildren is true>>
			<<link [[Replace selected babies|PregEventsResult2]]>>
				<<set $pregChoice to "ReplaceSelected">>
			<</link>>
		<<else>>
			<<link [[Replace selected parasites|PregEventsResult2]]>>
				<<set $pregChoice to "ReplaceSelected">>
			<</link>>
		<</if>>
	<</if>>
<</if>>
<<if $pregResult.length lte _avaliableStorage>>

	<<if _pregnancy.namesChildren is true>>
		<<link [[Keep all babies|PregEventsResult2]]>>
			<<set $pregChoice to "keepAll">>
		<</link>>
	<<else>>
		<<link [[Keep all parasites|PregEventsResult2]]>>
			<<set $pregChoice to "keepAll">>
		<</link>>
	<</if>>
<</if>>

<<if _pregnancy.namesChildren is true>>
	<<link [[Sell all babies|PregEventsResult2]]>>
		<<set $pregChoice to "sellAll">>
	<</link>>
<<else>>
	<<link [[Sell all parasites|PregEventsResult2]]>>
		<<set $pregChoice to "sellAll">>
	<</link>>
<</if>>
<</nobr>><</widget>>

<<widget "resetPregButtons">><<nobr>>

<<replace #pregResult>>
	<<PregEventsResult>>
<</replace>>

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

:: PregEventsResult2 [nobr]
<<set $outside to 0>><<set $location to $container.lastLocation>><<effects>>
<<set _pregnancy to $sexStats.anus.pregnancy>>

<<switch $pregChoice>>
	<<case "ReplaceSelected">>
		<<for _i to 0; _i lt $pregResult.length;_i++>>
			<<if $checkboxResult[$pregResult[_i]] is true>>
				<<if _i lt $parasiteReplaceArray.length>>
					<<moveCreature $pregResult[_i] "replace" $parasiteReplaceArray[_i]>>
				<<else>>
					<<moveCreature $pregResult[_i] "container">>
				<</if>>
			<<elseif $checkboxResult[$pregResult[_i]] is false>>
				<<moveCreature $pregResult[_i] "portable">>
			<</if>>
		<</for>>
		You decide to keep <<print $parasiteSelectionCount>> of <<if _pregnancy.namesChildren is true>>your children<<else>>the parasites<</if>> and so place them in your <<print $container[$location].name>> in place of <<print $parasiteReplaceArray.length>> others, while preparing the rest for Doctor Harper.

	<<case "KeepSelected">>
		<<for _i to 0; _i lt $pregResult.length;_i++>>
			<<if $checkboxResult[$pregResult[_i]] is true>>
				<<moveCreature $pregResult[_i] "container">>
			<<elseif $checkboxResult[$pregResult[_i]] is false>>
				<<moveCreature $pregResult[_i] "portable">>
			<</if>>
		<</for>>
		You decide to keep <<print $parasiteSelectionCount>> of <<if _pregnancy.namesChildren is true>>your children<<else>>the parasites<</if>> and so place them in your <<print $container[$location].name>> while preparing the rest for Doctor Harper.

	<<case "keepAll">>
		<<for _i to 0; _i lt $pregResult.length;_i++>>
			<<moveCreature $pregResult[_i] "container">>
		<</for>>
		You decide to keep all of <<if _pregnancy.namesChildren is true>>your children<<else>>the parasites<</if>> and so place them in your <<print $container[$location].name>>.

	<<case "sellAll">>
		<<for _i to 0; _i lt $pregResult.length;_i++>>
			<<moveCreature $pregResult[_i] "portable">>
		<</for>>
		You decide to sell all <<if _pregnancy.namesChildren is true>>your children<<else>>the parasites<</if>> and so prepare to take them to Doctor Harper.

<</switch>>

<<link [[Next|Containers]]>>
	<<unset $pregChoice>><<unset $pregResult>>
	<<unset $checkboxResult>><<unset $checkboxReplace>>
	<<unset $parasiteSelectionCount>><<unset $parasiteReplaceArray>>
<</link>>


code:
:: Pregnancy [widget]
<<widget "impregnate">><<nobr>>
<<if $args[0] and $analpregdisable is "f">>
	<<set _pregnancy to $sexStats.anus.pregnancy>>
	<<if _pregnancy.count lt _pregnancy.maxCount>>
		<<set $calc to [$rng, (1 + $args[1]) / (_pregnancy.count + 1)]>>
		<<if $calc[0] lte $calc[1] or $args[2]>>
			<<for _i to 0; _i lt _pregnancy.maxCount; _i++>>
				<<if _pregnancy[_i] is null>>
					<<switch $args[0]>>
						<<case "slimes">>
							<<set _creatureType to "Slime">>
						<<case "eels">>
							<<set _creatureType to "Eel">>
						<<case "worms">>
							<<set _creatureType to "Worm">>
						<<case "snakes">>
							<<set _creatureType to "Snake">>
						<<case "fish">>
							<<set _creatureType to "Fish">>
						<<case "spiders">>
							<<set _creatureType to "Spider">>
						<<case "tentacle">>
							<<set _creatureType to "Tentacle">>
					<</switch>>
					<<if $args[2]>>
						<<set _egg to {
							"creature": $args[0],
							"fertilized": true,
							"daysLeft": Math.floor($args[2].stats.growth * 0.8),
							"timeLeft": null,
							"stats":{
								"growth": Math.floor($args[2].stats.growth * 0.8),
								"speed": Math.floor($args[2].stats.speed * 0.8)
							}
						}>>
					<<else>>
						<<set _egg to {
							"creature": _creatureType,
							"fertilized": false,
							"daysLeft": 1,
							"timeLeft": null,
							"stats":{
								"growth": random(7,14),
								"speed": random(60,360)
							}
						}>>
						<<if _creatureType is "Tentacle">>
							<<set _egg.stats.speed to clone(_egg.stats.speed * 0.9)>>
						<</if>>
					<</if>>

					<<set _genderCheck to Math.random()>>
					<<if _genderCheck lt 0.7>>
						<<set _egg.stats.gender to "Female">>
					<<elseif _genderCheck lt 0.8 or _pregnancy.motherStatus is 0 or _pregnancy.motherStatus is 2>>
						<<set _egg.stats.gender to "Male">>
					<<else>>
						<<set _egg.stats.gender to "Futa">>
						<<set _egg.stats.lastEgg to Math.floor(_egg.stats.growth / 3)>>

					<</if>>

					<<set _pregnancy[_i] to clone(_egg)>>
					<<set _pregnancy.count++>>

					<<if $args[2] is undefined>>
						<<set _pregnancy.fertile to true>>
						<<set $impreg to true>>
					<</if>>
					<<break>>
				<</if>>
			<</for>>
		<</if>>
	<</if>>
<</if>>
<</nobr>><</widget>>

<<widget "fertilize">><<nobr>>
<<if $sexStats.anus.pregnancy.fertile is true and $analpregdisable is "f">>
	<<set _pregnancy to $sexStats.anus.pregnancy>>
	<<for _i to 0; _i lt _pregnancy.maxCount; _i++>>
		<<if _pregnancy[_i] isnot null>>
			<<if _pregnancy[_i].fertilized is false>>
				<<set _pregnancy[_i].fertilized to true>>
				<<set _pregnancy[_i].daysLeft to _pregnancy[_i].stats.growth>>
				<<if _pregnancy.lowestDaysLeft is null>>
					<<set _pregnancy.lowestDaysLeft to _pregnancy[_i].daysLeft>>
				<<else>>
					<<if _pregnancy[_i].daysLeft lt _pregnancy.lowestDaysLeft>>
						<<set _pregnancy.lowestDaysLeft to _pregnancy[_i].daysLeft>>
					<</if>>
				<</if>>
				<<if _pregnancy[_i].stats.gender is "Futa">>
					<<set _pregnancy.motherStatus to 2>>
					<<set _pregnancy.maxCount to 4>>
				<</if>>
			<</if>>
		<</if>>
	<</for>>
	<<set _pregnancy.fertile to false>>
	<<set _pregnancy.fertilized to true>>
	<<if _pregnancy.motherStatus is 0 and _pregnancy.givenBirth gt 2>>
		<<set _pregnancy.motherStatus to 1>>
		<<set _pregnancy.maxCount to 2>>
	<</if>>
<</if>>
<</nobr>><</widget>>

<<widget "pregProgressDay">><<nobr>>
<<if $analpregdisable is "f">>
	<<set _pregnancy to $sexStats.anus.pregnancy>>
	<<set _pregnancy.lowestDaysLeft to null>>
	<<if $deviancy gte 75>><<set _pregnancy.namesChildren to true>><<else>><<set _pregnancy.namesChildren to false>><</if>>
	<<for _i to 0; _i lt _pregnancy.maxCount; _i++>>
		<<if _pregnancy[_i] isnot null>>
			<<if _pregnancy[_i].daysLeft is 0 and _pregnancy[_i].fertilized is false>>
				<<set _remove to true>>
			<<else>>
				<<if _pregnancy[_i].daysLeft gt 0>>
					<<set _pregnancy[_i].daysLeft -= 1>>
				<</if>>
				<<if _pregnancy[_i].daysLeft lt _pregnancy.lowestDaysLeft and _pregnancy.fertilized is true>>
					<<set _pregnancy.lowestDaysLeft to _pregnancy[_i].daysLeft>>
				<</if>>
			<</if>>
			<<if _pregnancy[_i].stats.gender is "Futa" and _pregnancy[_i].daysLeft lte 3>>
				<<if _pregnancy[_i].stats.lastEgg gt 0>>
					<<set _pregnancy[_i].stats.lastEgg -= 1>>
				<<elseif _pregnancy.count lt _pregnancy.maxCount>>
					<<set _pregnancy[_i].stats.lastEgg to Math.floor(_pregnancy[_i].stats.growth / 3)>>
					<<impregnate _pregnancy[_i].creature null _pregnancy[_i]>>
				<</if>>
			<</if>>
			<<if _remove is true>>
				<<set _pregnancy[_i] to null>>
				<<set _pregnancy.count -= 1>>
			<</if>>
		<</if>>
	<</for>>
<</if>>
<</nobr>><</widget>>

<<widget "pregProgressTime">><<nobr>>
<<if $args[0] and $analpregdisable is "f">>
	<<set _pregnancy to $sexStats.anus.pregnancy>>
	<<set _pregnancy.lowestDaysLeft to null>>
	<<for _i to 0; _i lt _pregnancy.maxCount; _i++>>
		<<if _pregnancy[_i] isnot null>>
			<<if _pregnancy[_i].fertilized is true>>
				<<if _pregnancy[_i].timeLeft is null>>
					<<set _pregnancy[_i].timeLeft to _pregnancy[_i].stats.speed>>
				<<else>>
					<<set _pregnancy[_i].timeLeft -= $args[0]>>
				<</if>>
				<<if _pregnancy[_i].timeLeft lte 0>>
					<<set _pregnancy[_i].timeLeft to _pregnancy[_i].stats.speed>>
					<<if $dailyEvent is undefined>>
						<<set $dailyEvent to []>>
					<</if>>
					<<if $dailyEvent.length lt _pregnancy.count>>
						<<if _pregnancy[_i].stats.gender is "Futa" and _pregnancy[_i].daysLeft lte 3>>
							<<if (_pregnancy[_i].daysLeft lt 3 and $rng lt 20) or (_pregnancy[_i].daysLeft is 0 and $rng lt 50)>>
								<<if _pregnancy.seenDoctor is 2>><<set _pregnancy.seenDoctor to 3>><</if>>
								<<set $dailyEvent.pushUnique(0)>>
							<<elseif _pregnancy[_i].daysLeft is 0 or $rng lt 60>>
								<<set $dailyEvent.pushUnique(2)>>
							<</if>>
						<<else>>
							<<if (_pregnancy[_i].daysLeft is 0 and $rng lt 50) or (_pregnancy[_i].daysLeft lte 3 and $rng lt 20)>>
								<<set $dailyEvent.pushUnique(1)>>
								<<if _pregnancy.seenDoctor is 0>><<set _pregnancy.seenDoctor to 1>><</if>>
								<<if _pregnancy.seenDoctor gte 2>><<set _pregnancy.feltMovement to true>><</if>>
							<<elseif _pregnancy[_i].daysLeft is 0 or (_pregnancy[_i].daysLeft lte 3 and $rng lt 60)>>
								<<set $dailyEvent.pushUnique(2)>>
							<<elseif _pregnancy[_i].daysLeft lte 7 and $rng lt 50>>
								<<set $dailyEvent.pushUnique(3)>>
							<</if>>
						<</if>>
					<</if>>
				<</if>>
			<</if>>
		<</if>>
	<</for>>
<</if>>
<</nobr>><</widget>>

<<widget "moveCreature">><<nobr>>
/*0 -> _pregnancy[_i] or location (any but portable)*/
/*1 -> Type*/
/*2 -> locationId*/
<<if $args[0] isnot null and $args[1]>>
	<<set _portable to $container.portable>>
	<<set _container to $container[$location]>>
	<<set _pregnancy to $sexStats.anus.pregnancy>>

	<<set _result to $args[1]>>
	<<switch $args[0]>>
		<<case 0 1 2 3>>
			<<set _creature to clone(_pregnancy[$args[0]])>>
		<<default>>
			<<if $args[2] isnot null>>
				<<set _creature to clone($container[$args[0]].creatures[$args[2]])>>
			<</if>>
	<</switch>>

	<<if _creature>>
		<<if _result is "destroy">>
			<<set _creature to null>>
			<<removeCreature $args[0] $args[2]>>
		<<elseif _result is "portable">>
			<<set _portable.creatures.push(clone(_creature))>>
			<<set _value to Math.floor(1000 / _creature.stats.growth)>>
			<<set _portable.value += _value>>
			<<removeCreature $args[0] $args[2]>>
		<<elseif _result is "replace" and $args[2] isnot null and $args[0] gte 0 and $args[0] lte 3>>
			<<if _container.creatures[_i] isnot undefined>>
				<<if _container.creatures[_i] isnot null>>
					<<set _portable.creatures.push(clone(_container.creatures[$args[2]]))>>
					<<set _value to Math.floor(1000 / _container.creatures[$args[2]].stats.growth)>>
					<<set _portable.value += _value>>
					<<set _container.creatures[$args[2]] to clone(_creature)>>
					<<set _replaced to true>>
				<</if>>
			<</if>>
			<<if _replaced isnot true>>
				<<set _container.creatures[$args[2]] to clone(_creature)>>
				<<set _container.count += 1>>
			<</if>>
			<<removeCreature $args[0]>>
		<<elseif _result is "container">>
			<<for _i to 0; _i lt _container.maxCount; _i++>>
				<<if _container.creatures[_i] is undefined>>
					<<set _moveTo to true>>
				<<elseif _container.creatures[_i] is null>>
					<<set _moveTo to true>>
				<</if>>
				<<if _moveTo is true>>
					<<set $container[$location].creatures[_i] to clone(_creature)>>
					<<set $container[$location].count += 1>>
					<<removeCreature $args[0] $args[2]>>
					<<break>>
				<</if>>
			<</for>>
		<</if>>
	<</if>>
<</if>>
<</nobr>><</widget>>

<<widget "removeCreature">><<nobr>>
	<<if $args[0] isnot null>>
		<<set _pregnancy to $sexStats.anus.pregnancy>>
		<<switch $args[0]>>
			<<case 0 1 2 3>>
				<<set _pregnancy[$args[0]] to null>>
				<<set _pregnancy.count -= 1>>
				<<set _pregnancy.givenBirth += 1>>
			<<default>>
				<<if $args[1] isnot null>>
					<<set $container[$args[0]].creatures[$args[1]] to null>>
					<<set $container[$args[0]].count -= 1>>
				<</if>>
		<</switch>>
	<</if>>
<</nobr>><</widget>>


code:
:: Widgets Deviancy [widget]

<<widget "deviancy1">><<nobr>>
	<<if $control lt $controlmax>>
		<<if $deviancy lte 19>>
			<<set $deviancy += 2>>
			Performing such a lewd act excites you and restores your sense of control and self-worth, for now.
			<<ggcontrol>><<control 25>><<set $arousal += 100>><<set $stress -= 300>><<combattrauma -30>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $deviancy gte 20>>
			Performing such a lewd act excites you, but does nothing to lift the cloud hanging over you. You need to do something more extreme.
			<<set $arousal += 100>><<garousal>>
			<<if $deviancystress1 isnot 1>>
				<<set $deviancystress1 to 1>><<lstress>><<set $stress -= 100>>
			<</if>>
		<</if>>
	<<else>>
		<<if $deviancy lte 19>>
			<<set $deviancy += 1>>
			You already feel in control, but performing such a lewd act soothes and excites you.
			<<control 25>><<set $arousal += 100>><<set $stress -= 300>><<combattrauma -30>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $deviancy gte 20>>
			You already feel in control and the act is too tame to soothe, but it does excite you.
			<<set $arousal += 100>><<garousal>>
			<<if $deviancystress1 isnot 1>>
				<<set $deviancystress1 to 1>><<lstress>><<set $stress -= 100>>
			<</if>>
		<</if>>
	<</if>>

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

<<widget "deviancy2">><<nobr>>
	<<if $control lt $controlmax>>
		<<if $deviancy lte 39>>
			<<set $deviancy += 2>>
			Performing such a lewd act excites you and restores your sense of control and self-worth, for now.
			<<ggcontrol>><<control 25>><<set $arousal += 200>><<set $stress -= 600>><<combattrauma -60>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $deviancy gte 40>>
			Performing such a lewd act excites you, but does nothing to lift the cloud hanging over you. You need to do something more extreme.
			<<set $arousal += 200>><<garousal>>
			<<if $deviancystress2 isnot 1>>
				<<set $deviancystress2 to 1>><<lstress>><<set $stress -= 200>>
			<</if>>
		<</if>>
	<<else>>
		<<if $deviancy lte 39>>
			<<set $deviancy += 1>>
			You already feel in control, but performing such a lewd act soothes and excites you.
			<<control 25>><<set $arousal += 200>><<set $stress -= 600>><<combattrauma -60>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $deviancy gte 40>>
			You already feel in control and the act is too tame to soothe, but it does excite you.
			<<set $arousal += 200>><<garousal>>
			<<if $deviancystress2 isnot 1>>
				<<set $deviancystress2 to 1>><<lstress>><<set $stress -= 200>>
			<</if>>
		<</if>>
	<</if>>

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

<<widget "deviancy3">><<nobr>>
	<<if $control lt $controlmax>>
		<<if $deviancy lte 59>>
			<<set $deviancy += 2>>
			Performing such a lewd act excites you and restores your sense of control and self-worth, for now.
			<<ggcontrol>><<control 25>><<set $arousal += 300>><<set $stress -= 900>><<combattrauma -90>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $deviancy gte 60>>
			Performing such a lewd act excites you, but does nothing to lift the cloud hanging over you. You need to do something more extreme.
			<<set $arousal += 300>><<garousal>>
			<<if $deviancystress3 isnot 1>>
				<<set $deviancystress3 to 1>><<lstress>><<set $stress -= 300>>
			<</if>>
		<</if>>
	<<else>>
		<<if $deviancy lte 59>>
			<<set $deviancy += 1>>
			You already feel in control, but performing such a lewd act soothes and excites you.
			<<control 25>><<set $arousal += 300>><<set $stress -= 900>><<combattrauma -90>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $deviancy gte 60>>
			You already feel in control and the act is too tame to soothe, but it does excite you.
			<<set $arousal += 300>><<garousal>>
			<<if $deviancystress3 isnot 1>>
				<<set $deviancystress3 to 1>><<lstress>><<set $stress -= 300>>
			<</if>>
		<</if>>
	<</if>>

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

<<widget "deviancy4">><<nobr>>
	<<if $control lt $controlmax>>
		<<if $deviancy lte 79>>
			<<set $deviancy += 2>>
			Performing such a lewd act excites you and restores your sense of control and self-worth, for now.
			<<ggcontrol>><<control 25>><<set $arousal += 400>><<set $stress -= 1200>><<combattrauma -120>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $deviancy gte 80>>
			Performing such a lewd act excites you, but does nothing to lift the cloud hanging over you. You need to do something more extreme.
			<<set $arousal += 400>><<garousal>>
			<<if $deviancystress4 isnot 1>>
				<<set $deviancystress4 to 1>><<lstress>><<set $stress -= 400>>
			<</if>>
		<</if>>
	<<else>>
		<<if $deviancy lte 79>>
			<<set $deviancy += 1>>
			You already feel in control, but performing such a lewd act soothes and excites you.
			<<control 25>><<set $arousal += 400>><<set $stress -= 1200>><<combattrauma -120>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $deviancy gte 80>>
			You already feel in control and the act is too tame to soothe, but it does excite you.
			<<set $arousal += 400>><<garousal>>
			<<if $deviancystress4 isnot 1>>
				<<set $deviancystress4 to 1>><<lstress>><<set $stress -= 400>>
			<</if>>
		<</if>>
	<</if>>

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

<<widget "deviancy5">><<nobr>>
	<<if $control lt $controlmax>>
		<<if $deviancy lte 99>>
			<<set $deviancy += 2>>
			Performing such a lewd act excites you and restores your sense of control and self-worth, for now.
			<<ggcontrol>><<control 25>><<set $arousal += 500>><<set $stress -= 1500>><<combattrauma -150>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $deviancy gte 100>>
			Performing such a lewd act excites you, but does nothing to lift the cloud hanging over you. You need to do something more extreme.
			<<set $arousal += 500>><<garousal>>
			<<if $deviancystress5 isnot 1>>
				<<set $deviancystress5 to 1>><<lstress>><<set $stress -= 500>>
			<</if>>
		<</if>>
	<<else>>
		<<if $deviancy lte 99>>
			<<set $deviancy += 1>>
			You already feel in control, but performing such a lewd act soothes and excites you.
			<<control 25>><<set $arousal += 500>><<set $stress -= 1500>><<combattrauma -150>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $deviancy gte 100>>
			You already feel in control and the act is too tame to soothe, but it does excite you.
			<<set $arousal += 500>><<garousal>>
			<<if $deviancystress5 isnot 1>>
				<<set $deviancystress5 to 1>><<lstress>><<set $stress -= 500>>
			<</if>>
		<</if>>
	<</if>>

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

<<widget "combatdeviancy1">><<nobr>>
	<<if $consensual is 1>>
		<<if $control lt $controlmax>>
			<<if $deviancy lte 19>>
				<<set $deviancy += 2>>
				You prepare to perform a particularly lewd act, restoring your sense of control.
				<<ggcontrol>><<control 25>><<set $arousal += 100>><<set $stress -= 300>><<combattrauma -30>><<ltrauma>><<lstress>><<garousal>>
			<<elseif $deviancy gte 20>>
				You prepare to perform a particularly lewd act, though its too tame to soothe.
				<<set $arousal += 100>><<garousal>>
				<<if $deviancystress1 isnot 1>>
					<<set $deviancystress1 to 1>><<lstress>><<set $stress -= 100>>
				<</if>>
			<</if>>
		<<else>>
			<<if $deviancy lte 19>>
				<<set $deviancy += 1>>
				You prepare to perform a particularly lewd act, soothing and exciting you.
				<<control 25>><<set $arousal += 100>><<set $stress -= 300>><<combattrauma -30>><<ltrauma>><<lstress>><<garousal>>
			<<elseif $deviancy gte 20>>
				You prepare to perform a particularly lewd act, though it's too tame to soothe.
				<<set $arousal += 100>><<garousal>>
				<<if $deviancystress1 isnot 1>>
					<<set $deviancystress1 to 1>><<lstress>><<set $stress -= 100>>
				<</if>>
			<</if>>
		<</if>>
	<</if>>
<</nobr>><</widget>>

<<widget "combatdeviancy2">><<nobr>>
	<<if $consensual is 1>>
		<<if $control lt $controlmax>>
			<<if $deviancy lte 39>>
				<<set $deviancy += 2>>
				You prepare to perform a particularly lewd act, restoring your sense of control.
				<<ggcontrol>><<control 25>><<set $arousal += 200>><<set $stress -= 600>><<combattrauma -60>><<ltrauma>><<lstress>><<garousal>>
			<<elseif $deviancy gte 40>>
				You prepare to perform a particularly lewd act, though its too tame to soothe you.
				<<set $arousal += 200>><<garousal>>
				<<if $deviancystress2 isnot 1>>
					<<set $deviancystress2 to 1>><<lstress>><<set $stress -= 200>>
				<</if>>
			<</if>>
		<<else>>
			<<if $deviancy lte 39>>
				<<set $deviancy += 1>>
				You prepare to perform a particularly lewd act, soothing and exciting you.
				<<control 25>><<set $arousal += 200>><<set $stress -= 600>><<combattrauma -60>><<ltrauma>><<lstress>><<garousal>>
			<<elseif $deviancy gte 40>>
				You prepare to perform a particularly lewd act, though it's too tame to soothe.
				<<set $arousal += 200>><<garousal>>
				<<if $deviancystress2 isnot 1>>
					<<set $deviancystress2 to 1>><<lstress>><<set $stress -= 200>>
				<</if>>
			<</if>>
		<</if>>
	<</if>>
<</nobr>><</widget>>

<<widget "combatdeviancy3">><<nobr>>
	<<if $consensual is 1>>
		<<if $control lt $controlmax>>
			<<if $deviancy lte 59>>
				<<set $deviancy += 2>>
				You prepare to perform a particularly lewd act, restoring your sense of control.
				<<ggcontrol>><<control 25>><<set $arousal += 300>><<set $stress -= 900>><<combattrauma -90>><<ltrauma>><<lstress>><<garousal>>
			<<elseif $deviancy gte 60>>
				You prepare to perform a particularly lewd act, though its too tame to soothe you.
				<<set $arousal += 300>><<garousal>>
				<<if $deviancystress3 isnot 1>>
					<<set $deviancystress3 to 1>><<lstress>><<set $stress -= 300>>
				<</if>>
			<</if>>
		<<else>>
			<<if $deviancy lte 59>>
				<<set $deviancy += 1>>
				You prepare to perform a particularly lewd act, soothing and exciting you.
				<<control 25>><<set $arousal += 300>><<set $stress -= 900>><<combattrauma -90>><<ltrauma>><<lstress>><<garousal>>
			<<elseif $deviancy gte 60>>
				You prepare to perform a particularly lewd act, though it's too tame to soothe.
				<<set $arousal += 300>><<garousal>>
				<<if $deviancystress3 isnot 1>>
					<<set $deviancystress3 to 1>><<lstress>><<set $stress -= 300>>
				<</if>>
			<</if>>
		<</if>>
	<</if>>
<</nobr>><</widget>>

<<widget "combatdeviancy4">><<nobr>>
	<<if $consensual is 1>>
		<<if $control lt $controlmax>>
			<<if $deviancy lte 79>>
				<<set $deviancy += 2>>
				You prepare to perform a particularly lewd act, restoring your sense of control.
				<<ggcontrol>><<control 25>><<set $arousal += 400>><<set $stress -= 1200>><<combattrauma -120>><<ltrauma>><<lstress>><<garousal>>
				You prepare to perform a particularly lewd act, though its too tame to soothe you.
				<<set $arousal += 400>><<garousal>>
				<<if $deviancystress4 isnot 1>>
					<<set $deviancystress4 to 1>><<lstress>><<set $stress -= 400>>
				<</if>>
			<</if>>
		<<else>>
			<<if $deviancy lte 79>>
				<<set $deviancy += 1>>
				You prepare to perform a particularly lewd act, soothing and exciting you.
				<<control 25>><<set $arousal += 400>><<set $stress -= 1200>><<combattrauma -120>><<ltrauma>><<lstress>><<garousal>>
			<<elseif $deviancy gte 80>>
				You prepare to perform a particularly lewd act, though it's too tame to soothe.
				<<set $arousal += 400>><<garousal>>
				<<if $deviancystress4 isnot 1>>
					<<set $deviancystress4 to 1>><<lstress>><<set $stress -= 400>>
				<</if>>
			<</if>>
		<</if>>
	<</if>>
<</nobr>><</widget>>

<<widget "combatdeviancy5">><<nobr>>
	<<if $consensual is 1>>
		<<if $control lt $controlmax>>
			<<if $deviancy lte 99>>
				<<set $deviancy += 2>>
				You prepare to perform a particularly lewd act, restoring your sense of control.
				<<ggcontrol>><<control 25>><<set $arousal += 500>><<set $stress -= 1500>><<combattrauma -150>><<ltrauma>><<lstress>><<garousal>>
			<<elseif $deviancy gte 100>>
				You prepare to perform a particularly lewd act, though its too tame to soothe you.
				<<set $arousal += 500>><<garousal>>
				<<if $deviancystress5 isnot 1>>
					<<set $deviancystress5 to 1>><<lstress>><<set $stress -= 500>>
				<</if>>
			<</if>>
		<<else>>
			<<if $deviancy lte 99>>
				<<set $deviancy += 1>>
				You prepare to perform a particularly lewd act, soothing and exciting you.
				<<control 25>><<set $arousal += 500>><<set $stress -= 1500>><<combattrauma -150>><<ltrauma>><<lstress>><<garousal>>
			<<elseif $deviancy gte 100>>
				You prepare to perform a particularly lewd act, though it's too tame to soothe.
				<<set $arousal += 500>><<garousal>>
				<<if $deviancystress5 isnot 1>>
					<<set $deviancystress5 to 1>><<lstress>><<set $stress -= 500>>
				<</if>>
			<</if>>
		<</if>>
	<</if>>
<</nobr>><</widget>>


code:
:: Widgets Disable [widget]
<<widget "disable">><<nobr>>

<<if $penisuse is "cover">>
	<<set $penisuse to 0>>
<</if>>
<<if $anususe is "cover">>
	<<set $anususe to 0>>
<</if>>
<<if $vaginause is "cover">>
	<<set $vaginause to 0>>
<</if>>

<<if $penisuse is "clit">>
	<<set $penisuse to 0>><<set $penisstate to 0>>
	<<for _i = 0; _i < $NPCList.length; _i++>>
		<<if $NPCList[_i].vagina is "frot">>
			<<set $NPCList[_i].vagina to 0>>
		<</if>>
	<</for>>
<</if>>

<<if $penisuse is "otheranusrub">>
	<<set $penisuse to 0>>
	<<set $penisstate to 0>>
	<<for _i = 0; _i < $NPCList.length; _i++>>
		<<if $NPCList[_i].vagina is "otheranusfrot">>
			<<set $NPCList[_i].vagina to 0>>
		<</if>>
		<<if $NPCList[_i].penis is "otheranusfrot">>
			<<set $NPCList[_i].penis to 0>>
		<</if>>
	<</for>>
<</if>>

<<if $feetuse is "othervagina">>
	<<set $feetuse to 0>>
	<<for _i = 0; _i < $NPCList.length; _i++>>
		<<if $NPCList[_i].vagina is "feet">>
			<<set $NPCList[_i].vagina to 0>>
		<</if>>
	<</for>>
<</if>>

<<if $feetuse is "penis">>
	<<set $feetuse to 0>>
	<<for _i = 0; _i < $NPCList.length; _i++>>
		<<if $NPCList[_i].penis is "feet">>
			<<set $NPCList[_i].penis to 0>>
		<</if>>
	<</for>>
<</if>>

<<disablearms>>

<<if $bottomuse is "penis">>
	<<set $bottomuse to 0>><<set $anusstate to 0>>
	<<for _i = 0; _i < $NPCList.length; _i++>>
		<<if $NPCList[_i].penis is "cheeks">>
			<<set $NPCList[_i].penis to 0>>
		<</if>>
	<</for>>
<</if>>

<<if $bottomuse is "mouth">>
	<<set $bottomuse to 0>>
	<<for _i = 0; _i < $NPCList.length; _i++>>
		<<if $NPCList[0].mouth is "bottom">>
			<<set $NPCList[0].mouth to 0>>
			<<if $NPCList[_i].penis is "othermouth">>
				<<set $NPCList[_i].penis to 0>>
			<</if>>
			<<if $NPCList[_i].vagina is "othermouth">>
				<<set $NPCList[_i].vagina to 0>>
			<</if>>
		<</if>>
	<</for>>
<</if>>

<<if $thighuse is "penis">>
	<<set $thighuse to 0>>
	<<for _i = 0; _i < $NPCList.length; _i++>>
		<<if $NPCList[_i].penis is "thighs">>
			<<set $NPCList[_i].penis to 0>>
		<</if>>
	<</for>>
<</if>>

<<if $thighuse is "mouth">>
	<<set $thighuse to 0>>
	<<for _i = 0; _i < $NPCList.length; _i++>>
		<<if $NPCList[_i].mouth is "thigh">>
			<<set $NPCList[0].mouth to 0>>
			<<if $NPCList[_i].penis is "othermouth">>
				<<set $NPCList[_i].penis to 0>>
			<</if>>
			<<if $NPCList[_i].vagina is "othermouth">>
				<<set $NPCList[_i].vagina to 0>>
			<</if>>
		<</if>>
	<</for>>
<</if>>

<<if $chestuse isnot 0>>
	<<set $chestuse to 0>>
	<<for _i = 0; _i < $NPCList.length; _i++>>
		<<if $NPCList[_i].penis is "chest">>
			<<set $NPCList[_i].penis to 0>>
		<</if>>
	<</for>>
<</if>>

<<if $feetuse isnot "grappled" and $feetuse isnot "bound">>
<<set $feetuse to 0>>
<</if>>

<<for _i = 0; _i < $tentacles.max; _i++>>
	<<if $tentacles[_i].head is "feet">>
		<<set $leftleg to 0>>
		<<set $rightleg to 0>>
		<<set $tentacles[_i].head to 0>>
	<<elseif $tentacles[_i].head is "leftarm">>
		<<set $leftarm to 0>>
		<<set $tentacles[_i].head to 0>>
	<<elseif $tentacles[_i].head is "rightarm">>
		<<set $rightarm to 0>>
		<<set $tentacles[_i].head to 0>>
	<</if>>
<</for>>

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

<<widget "disablearms">><<nobr>>
	<<disableleftarm>>
	<<disablerightarm>>
<</nobr>><</widget>>

<<widget "disableleftarm">><<nobr>>
	<<if $leftarm is "othervagina">>
		<<for _i = 0; _i < $NPCList.length; _i++>>
			<<if $NPCList[_i].vagina is "leftarm">>
				<<set $NPCList[_i].vagina to 0>>
			<</if>>
		<</for>>
	<</if>>
	<<if $leftarm is "penis">>
		<<for _i = 0; _i < $NPCList.length; _i++>>
			<<if $NPCList[_i].penis is "leftarm">>
				<<set $NPCList[_i].penis to 0>>
			<</if>>
		<</for>>
	<</if>>
	<<if $leftarm isnot "grappled" and $leftarm isnot "bound">>
		<<set $leftarm to 0>>
	<</if>>
<</nobr>><</widget>>

<<widget "disablerightarm">><<nobr>>
	<<if $rightarm is "othervagina">>
		<<for _i = 0; _i < $NPCList.length; _i++>>
			<<if $NPCList[_i].vagina is "rightarm">>
				<<set $NPCList[_i].vagina to 0>>
			<</if>>
		<</for>>
	<</if>>
	<<if $rightarm is "penis">>
		<<for _i = 0; _i < $NPCList.length; _i++>>
			<<if $NPCList[_i].penis is "rightarm">>
				<<set $NPCList[_i].penis to 0>>
			<</if>>
		<</for>>
	<</if>>
	<<if $rightarm isnot "grappled" and $rightarm isnot "bound">>
		<<set $rightarm to 0>>
	<</if>>
<</nobr>><</widget>>


code:
:: Widgets Effects [widget]

<<widget "effectstime">><<nobr>>
	<<time>>
	<<if $time gte 1440>>
		<<set $time -= 1440>><<set $days += 1>><<set $weekday += 1>>
		<<if $weekday gte 8>><<set $weekday -= 7>><<week>><</if>>
		<<day>>
		<<set $physiquechange to 1>>
	<</if>>
	<<time>>
	<<if $minute gte 60>>
		<<hour>>
	<</if>>
<</nobr>><</widget>>

<<widget "effectswater">><<nobr>>
<<set $wetintro to 0>>

<<if $squidcount is 1>>
	You feel the squid tease your <<genitalsstop>>
	<<garousal>><<genitalarousal 1>>
<<elseif $squidcount is 2>>
	You feel the squids tease your <<genitals>> and chest.
	<<garousal>><<breastarousal 1>><<genitalarousal 1>>
<<elseif $squidcount is 3>>
	You feel the squids tease your <<genitals>> and <<breastsstop>>
	<<garousal>><<breastarousal 1>><<genitalarousal 2>>
<<elseif $squidcount is 4>>
	You feel the squids tease your <<genitalscomma>> <<breasts>> and <<bottomstop>>
	<<garousal>><<breastarousal 2>><<genitalarousal 2>>
<<elseif $squidcount gte 5>>
	You feel $squidcount squid tease your <<genitalscomma>> <<breastscomma>> <<bottomcomma>> and other parts of your body.
	<<garousal>><<breastarousal 2>><<genitalarousal 3>><<set $arousal += ($squidcount * 5 * $genitalsensitivity) + ($squidcount * 5 * $breastsensitivity)>>
<</if>>

<<if !$worn.upper.type.includes("naked") and !$worn.upper.type.includes("swim")>>
	<<if $upperwet gte 100 and $upperwetstage lt 3>>
		<<set $upperwetstage to 3>><<set $wetintro to 2>>
		Water soaks through your $worn.upper.name, exposing your <<breastsstop>>
	<<elseif $upperwet lt 90 and $upperwetstage gte 3>>
		<<set $upperwetstage to 2>>
		Your $worn.upper.name <<upperhas>> dried, concealing your <<breastsstop>>
	<<elseif $upperwet gte 80 and $upperwetstage lt 2>>
		<<set $upperwetstage to 2>><<set $wetintro to 1>>
		Your $worn.upper.name <<upperplural>> wet.
	<<elseif $upperwet lt 70 and $upperwetstage gte 2>>
		<<set $upperwetstage to 1>>
		Your $worn.upper.name <<upperplural>> drying out.
	<<elseif $upperwet gte 50 and $upperwetstage lt 1>>
		<<set $upperwetstage to 1>>
		Your $worn.upper.name <<upperplural>> damp.
	<<elseif $upperwet lt 40 and $upperwetstage gte 1>>
		<<set $upperwetstage to 0>>
		Your $worn.upper.name <<upperplural>> dry.
	<</if>>
<</if>>

<<if !$worn.lower.type.includes("naked") and !$worn.lower.type.includes("swim")>>
	<<if $lowerwet gte 100 and $lowerwetstage lt 3>>
		<<set $lowerwetstage to 3>><<set $wetintro to 2>>
		Water soaks through your $worn.lower.name, exposing your <<undiesstop>>
	<<elseif $lowerwet lt 90 and $lowerwetstage gte 3>>
		<<set $lowerwetstage to 2>>
		Your $worn.lower.name <<lowerhas>> dried, concealing your <<undiesstop>>
	<<elseif $lowerwet gte 80 and $lowerwetstage lt 2>>
		<<set $lowerwetstage to 2>><<set $wetintro to 1>>
		Your $worn.lower.name <<lowerplural>> wet.
	<<elseif $lowerwet lt 70 and $lowerwetstage gte 2>>
		<<set $lowerwetstage to 1>>
		Your $worn.lower.name <<lowerplural>> drying out.
	<<elseif $lowerwet gte 50 and $lowerwetstage lt 1>>
		<<set $lowerwetstage to 1>>
		Your $worn.lower.name <<lowerplural>> damp.
	<<elseif $lowerwet lt 40 and $lowerwetstage gte 1>>
		<<set $lowerwetstage to 0>>
		Your $worn.lower.name <<lowerplural>> dry.
	<</if>>
<</if>>

<<if !$worn.under_lower.type.includes("naked") and !$worn.under_lower.type.includes("chastity") and !$worn.under_lower.type.includes("swim")>>
	<<if $underlowerwet gte 100 and $underlowerwetstage lt 3>>
		<<set $underlowerwetstage to 3>><<set $wetintro to 2>>
		Water soaks through your $worn.under_lower.name, exposing your <<genitalsstop>>
	<<elseif $underlowerwet lt 90 and $underlowerwetstage gte 3>>
		<<set $underlowerwetstage to 2>>
		Your $worn.under_lower.name <<underlowerhas>> dried, concealing your <<genitalsstop>>
	<<elseif $underlowerwet gte 80 and $underlowerwetstage lt 2>>
		<<set $underlowerwetstage to 2>><<set $wetintro to 1>>
		Your $worn.under_lower.name <<underlowerplural>> wet.
	<<elseif $underlowerwet lt 70 and $underlowerwetstage gte 2>>
		<<set $underlowerwetstage to 1>>
		Your $worn.under_lower.name <<underlowerplural>> drying out.
	<<elseif $underlowerwet gte 50 and $underlowerwetstage lt 1>>
		<<set $underlowerwetstage to 1>>
		Your $worn.under_lower.name <<underlowerplural>> damp.
	<<elseif $underlowerwet lt 40 and $underlowerwetstage gte 1>>
		<<set $underlowerwetstage to 0>>
		Your $worn.under_lower.name <<underlowerplural>> dry.
	<</if>>
<</if>>

<<if !$worn.under_upper.type.includes("naked") and !$worn.under_upper.type.includes("chastity") and !$worn.under_upper.type.includes("swim")>>
	<<if $underupperwet gte 100 and $underupperwetstage lt 3>>
		<<set $underupperwetstage to 3>><<set $wetintro to 2>>
		Water soaks through your $worn.under_upper.name, exposing your <<breastsstop>>
	<<elseif $underupperwet lt 90 and $underupperwetstage gte 3>>
		<<set $underupperwetstage to 2>>
		Your $worn.under_upper.name <<underupperhas>> dried, concealing your <<genitalsstop>>
	<<elseif $underupperwet gte 80 and $underupperwetstage lt 2>>
		<<set $underupperwetstage to 2>><<set $wetintro to 1>>
		Your $worn.under_upper.name <<underupperplural>> wet.
	<<elseif $underupperwet lt 70 and $underupperwetstage gte 2>>
		<<set $underupperwetstage to 1>>
		Your $worn.under_upper.name <<underupperplural>> drying out.
	<<elseif $underupperwet gte 50 and $underupperwetstage lt 1>>
		<<set $underupperwetstage to 1>>
		Your $worn.under_upper.name <<underupperplural>> damp.
	<<elseif $underupperwet lt 40 and $underupperwetstage gte 1>>
		<<set $underupperwetstage to 0>>
		Your $worn.under_upper.name <<underupperplural>> dry.
	<</if>>
<</if>>

<<if $wetintro gte 2>>
	<<exposure>>
	<<if $exhibitionism gte 55>>
		You feel a lewd thrill as you look down and see your clothes cling tightly to your body, completely transparent.
	<<else>>
		You look down in horror at your clothes, which cling tight to your body and are completely transparent.
	<</if>>
	<<covered>>

<<elseif $wetintro gte 1>>

	<<if $exhibitionism gte 35>>
		You feel a lewd thrill as you look down and see your clothes cling tightly to your body, giving a hint of transparency.
	<<else>>
		You look down anxiously at your clothes, now clinging tightly to your body and giving a hint of transparency.
	<</if>>

<</if>>

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

<<widget "effects">><<nobr>>
<<compatibility>>

<<effectstime>>
<<effectswater>>

<<set $speechcycle += 1>>
<<if $speechcycle gte 7>>
	<<set $speechcycle to 0>>
<</if>>

<<if $inwater is 1>>
<<else>>
	<<if $squidcount gte 2>>
		The squid drop off you, seeking water.
	<<elseif $squidcount is 1>>
		The squid drops off you, seeking water.
	<</if>>
	<<set $squidcount to 0>>
<</if>>
<<set $inwater to 0>>

<<if $scienceproject is "ongoing" and $scienceprojectdays is 0 and $scienceprojectwarning isnot 1>>
	<<set $scienceprojectwarning to 1>>
	The science fair is being held in the town hall on Cliff Street today from 9:00 until 18:00.
<</if>>

<<if $innocencemessage is "start">>
	<<set $innocencemessage to "none">>
	A profound sense of peace falls on your mind. You were upset a moment ago, but you can't remember why. Your trauma has been replaced with innocence. Trauma will continue to accumulate, and will return should you run out of innocence.
<<elseif $innocencemessage is "end">>
	<<set $innocencemessage to "none">>
	You have a terrible epiphany. The abuse you've endured can be ignored no longer.Your innocence has been replaced by trauma.
<</if>>

<<if $eventskipoverrule is 1>>
	<<set $eventskipoverrule to 0>>
<</if>>

<<if $hour gte 8 and $hour lt 21>>
	<<set $openinghours to 1>>
<<else>>
	<<set $openinghours to 0>>
<</if>>

<<if $hour is 21>>
	<<set $closinghour to 1>>
<<else>>
	<<set $closinghour to 0>>
<</if>>

<<if $underwatercheck gt 0>>
	<<set $underwatercheck -= 1>>
<<elseif $underwater is 1>>
	<<set $underwater to 0>>
	<<oxygenrefresh>>
<</if>>

<<if $demonabsorb gte 1>>
	<<if $enemytype is "tentacles">>
		<<set $pain -= (20 * $demonabsorb)>>
		<<set $stress -= (300 * $demonabsorb)>>
	<<else>>
		<<set $trauma -= (150 * $demonabsorb)>>
	<</if>>
	You absorb the sexual essence. You feel soothed.
	<<set $demonabsorb to 0>>
<</if>>

<<if $control gte ($controlmax / 5) * 2>>
	<<set $controlled to 1>>
<<else>>
	<<set $controlled to 0>>
<</if>>

<<if $trauma gte 1>>
	<<set $sleeptrouble to 1>>
<<else>>
	<<set $sleeptrouble to 0>>
<</if>>

<<if $trauma gte ($traumamax / 10) * 1>>
	<<set $nightmares to 1>>
<<else>>
	<<set $nightmares to 0>>
<</if>>

<<if $trauma gte ($traumamax / 10) * 7>>
	<<set $anxiety to 2>>
<<elseif $trauma gte ($traumamax / 10) * 2>>
	<<set $anxiety to 1>>
<<else>>
	<<set $anxiety to 0>>
<</if>>

<<if $trauma gte ($traumamax / 10) * 8>>
	<<set $flashbacks to 1>>
<<else>>
	<<set $flashbacks to 0>>
<</if>>

<<if $trauma gte ($traumamax / 10) * 6>>
	<<set $panicattacks to 2>>
<<elseif $trauma gte ($traumamax / 10) * 4>>
	<<set $panicattacks to 1>>
<<else>>
	<<set $panicattacks to 0>>
<</if>>

<<if $trauma gte ($traumamax / 10) * 5>>
	<<set $hallucinations to 2>>
<<elseif $trauma gte ($traumamax / 10) * 3>>
	<<set $hallucinations to 1>>
<<else>>
	<<set $hallucinations to 0>>
<</if>>

<<if $awareness gte 400 or $hallucinogen gt 0>>
	<<set $hallucinations to 2>>
<<elseif $awareness gte 300 and $hallucinations lte 1>>
	<<set $hallucinations to 1>>
<</if>>

<<if $trauma gte $traumamax>>
	<<set $dissociation to 2>>
<<elseif $trauma gte ($traumamax / 10) * 9>>
	<<set $dissociation to 1>>
<<else>>
	<<set $dissociation to 0>>
<</if>>

<<if $location is "town">>
	<<if $flashbacktownready is 1 and $controlled is 0>>
		<<set $flashbacktownready to 0>>
		<<flashbacktown>>
	<</if>>
<</if>>

<<if $location is "home">>
	<<if $flashbackhomeready is 1 and $controlled is 0>>
		<<set $flashbackhomeready to 0>>
		<<flashbackhome>>
	<</if>>
<</if>>

<<if $location is "beach">>
	<<if $flashbackbeachready is 1 and $controlled is 0>>
		<<set $flashbackbeachready to 0>>
		<<flashbackbeach>>
	<</if>>
<</if>>

<<if $location is "underground">>
	<<if $flashbackundergroundready is 1 and $controlled is 0>>
		<<set $flashbackundergroundready to 0>>
		<<flashbackunderground>>
	<</if>>
<</if>>

<<if $location is "school">>
	<<if $flashbackschoolready is 1 and $controlled is 0>>
		<<set $flashbackschoolready to 0>>
		<<flashbackschool>>
	<</if>>
<</if>>

<<exposedcheck>>

<<if $effectsmessage is 1>><<set $effectsmessage to 0>>
	<<if $penisgrowthmessage>>
		<<switch $penisgrowthmessage>>
		<<case 4>>
			Your penis has grown to a prodigious size.
		<<case 3>>
			Your penis has grown larger.
		<<case 2>>
			Your penis has grown to an unremarkable size.
		<<case 1>>
			Your penis has grown, though it's still small.
		<<case 0>>
			Your penis looks like it's recovering.
		<</switch>>
		<<unset $penisgrowthmessage>>
	<</if>>
	<<if $penisshrinkmessage>>
		<<switch $penisshrinkmessage>>
		<<case 3>>
			Your penis has shrunk, though it's still of an impressive size.
		<<case 2>>
			Your penis has shrunk to an unremarkable size.
		<<case 1>>
			Your penis has become smaller.
		<<case 0>>
			Your penis has become tiny.
		<<case -1>>
			Your penis looks like it may shrivel up.
		<</switch>>
		<<unset $penisshrinkmessage>>
	<</if>>
	<<if $breastgrowthmessage>>
		<<switch $breastgrowthmessage>>
		<<case 12>>
			Your large breasts feel heavy and might get in the way.
		<<case 11>>
			Your large breasts feel heavy and impressive.
		<<case 9 10>>
			Your breasts feel heavy.
		<<case 7 8>>
			Your breasts feel a little heavier.
		<<case 5 6>>
			Your small breasts will be obvious to those around you.
		<<case 3 4>>
			Your small breasts might be obvious to others.
		<<case 1 2>>
			Your chest feels odd, it might be growing
		<</switch>>
		<<unset $breastgrowthmessage>>
	<</if>>
	<<if $breastshrinkmessage>>
		<<switch $breastshrinkmessage>>
		<<case 11>>
			Your large breasts feel lighter, but is still very large.
		<<case 9 10>>
			Your breasts feel light, and are looking less impressive.
		<<case 7 8>>
			Your breasts feel lighter.
		<<case 5 6>>
			Your small breasts feel a little lighter.
		<<case 3 4>>
			Your small breasts look less obvious.
		<<case 0 1 2>>
			Your chest looks flatter.
		<</switch>>
		<<unset $breastshrinkmessage>>
	<</if>>
	<<if $bottomgrowthmessage>>
		<<switch $bottomgrowthmessage>>
		<<case 8>>
			Your large butt has become even larger.
		<<case 7>>
			Your butt feels heavy.
		<<case 6>>
			Your butt feels plumper.
		<<case 5>>
			Your butt feels plump.
		<<case 4>>
			Your butt feels plush.
		<<case 3>>
			Your butt has gained a little weight.
		<<case 2>>
			Your small butt sticks out more than you remember.
		<<case 1>>
			Your butt doesn't feel so small any more.
		<</switch>>
		<<unset $bottomgrowthmessage>>
	<</if>>
	<<if $bottomshrinkmessage>>
		<<switch $bottomshrinkmessage>>
		<<case 7>>
			Your large butt feels a bit lighter.
		<<case 6>>
			Your butt feels lighter.
		<<case 5>>
			Your butt isn't quite as cushioned as before.
		<<case 4>>
			Your butt has lost weight.
		<<case 3>>
			Your butt feels small.
		<<case 2>>
			Your butt feels a lot sleeker.
		<<case 1>>
			Your butt feels small.
		<<case 0>>
			Your butt feels tiny.
		<</switch>>
		<<unset $bottomshrinkmessage>>
	<</if>>
	<<if $pillsTaken>>
		You take your daily pills.
		<<if $pillsTakenLast>>
			You have run out of some of them.
			<<unset $pillsTakenLast>>
		<</if>>
		<<unset $pillsTaken>>
	<</if>>
	<<if $exhibitionism_message is 1>>
		<<set $exhibitionism_message to 0>>
		You've spent time in public with no underwear on. You wonder if people can tell, and shiver at the thought.
		<<exhibitionism1>>
	<</if>>
	<<if $rebuy_success>>
		Your $rebuy_success signals for a replacement.
		<<set $rebuy_success to 0>>
	<</if>>
	<<if $rebuy_failure>>
		Your $rebuy_failure signals for a replacement, but you don't have enough money.
		<<set $rebuy_failure to 0>>
	<</if>>
	<<if $masochism_message is "up 1">><<unset $masochism_message>>
	Your thoughts wander over the attacks you've suffered. You shiver. You've become a masochist.
	<</if>>
	<<if $masochism_message is "up 2">><<unset $masochism_message>>
	Your thoughts turn to the attacks you've suffered. A thrill follows, unbeckoned. You've become a firm masochist.
	<</if>>
	<<if $masochism_message is "up 3">><<unset $masochism_message>>
	Your body yearns for more abuse. You've become a hardened masochist.
	<</if>>
	<<if $masochism_message is "up 4">><<unset $masochism_message>>
	Your body craves more abuse. You've become a drooling masochist.
	<</if>>
	<<if $masochism_message is "down 0">><<unset $masochism_message>>
	You are no longer a masochist.
	<</if>>
	<<if $masochism_message is "down 1">><<unset $masochism_message>>
	You are no longer so masochistic, and can only be considered a normal masochist.
	<</if>>
	<<if $masochism_message is "down 2">><<unset $masochism_message>>
	You are no longer so masochistic, and can only be considered a firm masochist.
	<</if>>
	<<if $masochism_message is "down 3">><<unset $masochism_message>>
	You are no longer so masochistic, and can only be considered a hardened masochist.
	<</if>>
<</if>>

<<if $dailyEvent>>
	<<set _pregnancy to $sexStats.anus.pregnancy>>
	<<set _stressMulti to 2 - _pregnancy.motherStatus>>
	<<set _arousalMulti to 1 + _pregnancy.motherStatus>>
	<<for _i to 0; _i lt $dailyEvent.length; _i++>>
		<<switch $dailyEvent[_i]>>
		<<case 0>>
			<<if _pregnancy.seenDoctor gte 4>>
				You feel <<if _pregnancy.namesChildren is true>>your grown child<<else>>the grown parasite<</if>> in your stomach.
				<<ggarousal>>
			<<else>>
				You feel something large move around in your stomach. Might be best to go to the hospital again.
				<<ggarousal>>
			<</if>>
			<<set $arousal += 2000>>
		<<case 1>>
			<<if _pregnancy.seenDoctor gte 2>>
				You feel one of <<if _pregnancy.namesChildren is true>>your children<<else>>the parasites<</if>> move around in your stomach.
				<<ggarousal>><<if _stressMulti gt 0>><<gstress>><</if>>
			<<else>>
				You feel something move around in your stomach. Might be best to go to the hospital.
				<<ggarousal>><<if _stressMulti gt 0>><<gstress>><</if>>
			<</if>>
			<<set $arousal += _arousalMulti * 500 / (_pregnancy.lowestDaysLeft + 1)>><<set $stress += 300 * _stressMulti>>
		<<case 2>>
			You stomach rumbles a little. You hope the noise hasn't attracted any attention.
			<<if _stressMulti gt 0>><<gstress>><</if>>
			<<set $arousal += _arousalMulti * 250 / (_pregnancy.lowestDaysLeft + 1)>><<set $stress += 200 * _stressMulti>>
		<<case 3>>
			You feel a little light-headed for a moment.
			<<if _stressMulti gt 0>><<gstress>><</if>>
			<<set $stress += 100 * _stressMulti>>
		<</switch>>
	<</for>>
	<<unset $dailyEvent>>
<</if>>

<<integritycheck>>
<<exposure>>

<<set $orgasmdown -= 1>>

<<if $exposed gte 1 and $exposedcheck is 1>>
	<<set $exposedcheck to 0>>
	You feel self-conscious about your <<nuditystop>>

<</if>>

<<exposure>>

<<if $timer gte 1>>
	<<set $timer -= 1>>
<</if>>

<<bindings>>

<<if $worn.under_lower.cursed is 1 and $worn.under_lower.integrity lte 0>>
	<<set $worn.under_lower.type.push("broken")>>
<</if>>

<<set $menu to 0>>
<</nobr>><</widget>>

:: Widgets Compatibility [widget]

<<widget "compatibility">><<nobr>>
<</nobr>><</widget>>