code:
:: PE concubine interview [nobr]

<<set $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "RIE Eligibility Check", $activeSlave = $Concubine, $oldRep = $rep>>
<<run Enunciate($activeSlave)>>
<<setLocalPronouns $activeSlave>>
<<set _belly = bellyAdjective($activeSlave)>>
<<if SlaveStatsChecker.checkForLisp($activeSlave)>>
	<<set _lisps = 1>>
<<else>>
	<<set _lisps = 0>>
<</if>>
<<setPlayerPronouns>>
<<setSpokenPlayerPronouns $activeSlave>>

You receive an official communication from a popular talk show e-hosted in one of the old world's still-thriving first world countries. Your fame has become known even in the old world, and they'd like to interview <<EventNameLink $activeSlave>> about you. They frankly warn you that you'll have no right to review the interview and no ability to control what $he says, and that they'll be asking about anything the interviewer thinks is juicy. This could be great for your reputation, but it could be hazardous, too.

<<link "Decline">>
	<<EventNameDelink $activeSlave>>
	<<replace "#result">>
	You decline. The media representative of the show is understanding. "I'll be sure to contact you if we ever have another opening," she says. "You're pretty interesting, you know."
	<</replace>>
<</link>>

<<link "Accept">>
	<<EventNameDelink $activeSlave>>
	<<replace "#result">>

	The show is broadcast live; you head out onto a balcony to watch it on a big screen. It's been impossible to hide, and many of your citizens have taken a proprietary attitude towards your fame: they see your success as their success, too, and want to see $activeSlave.slaveName do well. The show introduction plays, introducing the host, a swishy, rail-thin gentleman with impeccable sartorial style and a close-cropped salt-and-pepper beard. He reviews who you are, giving equal time to your accomplishments and the inevitable criticisms from old world antislavery activists, and then calls $activeSlave.slaveName out.

	$He
	<<if $activeSlave.bellyPreg >= 1000000>>
		barely waddles out, arms resting atop $his _belly belly,
	<<elseif $activeSlave.bellyPreg >= 750000>>
		barely waddles out, arms struggling to lift $his _belly, absolutely child stuffed belly as $he lewdly caresses it,
	<<elseif $activeSlave.bellyPreg >= 600000>>
		waddles out, arms cradling $his _belly, absolutely child stuffed belly as best $he can as $he lewdly caresses its sides,
	<<elseif $activeSlave.bellyPreg >= 450000>>
		waddles out, arms cradling $his _belly, absolutely child stuffed belly as $he lewdly sways it side to side,
	<<elseif $activeSlave.bellyPreg >= 300000>>
		strides out, arms cradling $his _belly, absolutely child stuffed belly as $he lewdly sways it side to side,
	<<elseif $activeSlave.bellyPreg >= 150000>>
		strides out with an exaggerated gait, purposefully swaying $his _belly, child stuffed belly from side to side,
	<<elseif $activeSlave.belly >= 150000>>
		strides out, $his _belly belly swaying side to side lewdly,
	<<elseif $activeSlave.belly >= 5000>>
		strides out, sensually swaying $his round belly side to side,
	<<else>>
		strides out
	<</if>>
	<<if $activeSlave.clothes == "none">>
		in magnificent nudity. It's a shock to old world values, no doubt, but the titillation should counterbalance that.
	<<else>>
		resplendent in $activeSlave.clothes.
	<</if>>
	<<if $activeSlave.entertainSkill >= 60>>
		$He's @@.green;graceful and sensual,@@ and entirely at home.
		<<set $rep += 100>>
	<<elseif $activeSlave.entertainSkill <= 30>>
		$He's @@.red;clumsy and nervous,@@ but does $his best to rally.
		<<set $rep -= 100>>
	<<else>>
		$He manages $his entrance reasonably well, and conceals any nervousness.
	<</if>>
	<<if $activeSlave.face > 95>>
		"Oh my God," exclaims the host reverently. "Honey, @@.green;you are gorgeous.@@" He turns to the camera. "Isn't $he just gorgeous?"
		<<set $rep += 100>>
	<<elseif $activeSlave.face <= 10>>
		There is a distinct lack of response from the host; perhaps he was @@.red;expecting $him to be prettier.@@
		<<set $rep -= 100>>
	<<else>>
		The host gives $him a perfunctory compliment on $his beauty.
	<</if>>
	They seat themselves in comfortable leather chairs and the interview begins in earnest.

	The host asks $him some soft, nonjudgmental questions about $his life and how $he became your slave. Then he hits $him: "So, $activeSlave.slaveName. Tell us about <<= PlayerName()>>."
	<<if $activeSlave.devotion > 95>>
		@@.green;Without a moment's hesitation,@@ $he <<if _lisps>>lisps<<else>>proclaims<</if>>, "I love _himP. <<HeP>>'<<s>> so <<if $PC.title != 0>>hand<<s>>ome<<else>>pretty<</if>>, and," $he manages to blush prettily, "<<heP>>'<<s>> <<s>>o good to me."
		<<set $rep += 100>>
	<<elseif $activeSlave.devotion <= 60>>
		$He struggles for an instant and then says @@.red;unconvincingly@@ that $he loves you.
		<<set $rep -= 100>>
	<<else>>
		$He recovers quickly and responds that $he loves you.
	<</if>>

	The host glances at the camera. "Wow." He presses on. "But you're _hisP slave, $activeSlave.slaveName. _HeP owns you. Isn't that hard for you?"

	$He shakes $his head.
	<<if $activeSlave.trust > 95>>
		@@.green;$He responds confidently,@@ "My life with _himP i<<s>> very different from anything you might find here in the old world. But I'm happy with _himP, and there'<<s>> no one I'd rather be with, a<<s>> a <<s>>lave or not."
		<<set $rep += 100>>
	<<elseif $activeSlave.trust < 60>>
		$He explains that it isn't hard to trust someone like you, but this @@.red;falls a little flat.@@
		<<set $rep -= 100>>
	<<else>>
		$He explains earnestly that it isn't hard to trust someone like you, and explains some of the blander details about life as your slave.
	<</if>>
	<<if $activeSlave.belly >= 1500>>
		The host places a hand on $his belly,
		<<if $activeSlave.bellyPreg >= 450000>>
			gasping at the tautness and the feeling of the children distending the skin beneath his hand.
		<<elseif $activeSlave.bellyPreg >= 100000>>
			gasping at the flurry of kicks in response.
		<<elseif $activeSlave.belly >= 15000>>
			giving it a good groping.
		<<elseif $activeSlave.belly >= 5000>>
			giving it a good pat.
		<<else>>
			giving it a good feel.
		<</if>>
		"Now I'm sure our viewers are wondering," he says, patting the firm dome. "Is it <<= PlayerName()>>'s?"
		<<if $activeSlave.pregSource == -1>>
			<<if $activeSlave.bellyPreg >= 450000>>
				"Of cour<<s>>e they are!" $He proclaims proudly as $he runs $his hands across $his quivering mass. "All $activeSlave.pregType of them!"
			<<elseif $activeSlave.bellyPreg >= 100000>>
				"Of cour<<s>>e they are!" $He proclaims proudly as $he runs $his hands across $his belly. "All $activeSlave.pregType of them!"
			<<elseif $activeSlave.bellyImplant >= 1500>>
				"It'<<s>> fake. Pretty hard to tell though, i<<s>>n't it?"
			<<elseif $activeSlave.bellyPreg >= 1500>>
				Of cour<<s>>e
				<<if $activeSlave.pregType > 1>>
					they are!"
				<<else>>
					it i<<s>>!"
				<</if>>
			<<elseif $activeSlave.bellyFluid > 100>>
				<<if _lisps>>
					<<set _fluid = lispReplace($activeSlave.inflationType)>>
				<<else>>
					<<set _fluid = $activeSlave.inflationType>>
				<</if>>
				"Nah. It'<<s>> all _fluid in<<s>>ide me."
			<<elseif $activeSlave.bellyImplant > -1>>
				"It'<<s>> fake. Pretty hard to tell though, i<<s>>n't it?"
			<<else>>
				Of cour<<s>>e it i<<s>>!"
			<</if>>
		<<else>>
			"That'<<s>> for me and my <<Master>> only," $he teases, sticking out $his tongue.
		<</if>>
	<</if>>
	<<if $activeSlave.broodmother == 2 && $activeSlave.preg > 37>>
		$He grunts and struggles to spread $his legs. "I'm <<s>>orry, another one i<<s>> coming out right now..." $he <<say>>s, turning red. The host, at a loss for words, can only watch as
		<<if $activeSlave.clothes == "none" || $activeSlave.clothes == "body oil">>
			a child is born into the world, live on screen.
		<<else>>
			a child is born into $his
			<<switch $activeSlave.clothes>>
			<<case "a toga">>
				toga.
			<<case "a huipil">>
				huipil.
			<<case "a slutty qipao">>
				slutty qipao.
			<<case "a penitent nuns habit">>
				habit.
			<<case "a slave gown" "a ball gown">>
				gown.
			<<case "a comfortable bodysuit">>
				bodysuit.
			<<case "a leotard">>
				leotard.
			<<case "a bunny outfit">>
				bunny outfit.
			<<case "a nice nurse outfit">>
				nurse outfit.
			<<case "a slutty nurse outfit">>
				slutty nurse outfit.
			<<case "a schoolgirl outfit">>
				school clothes.
			<<case "a hijab and abaya" "a niqab and abaya">>
				abaya.
			<<case "a klan robe">>
				robe.
			<<case "a hijab and blouse">>
				skirt.
			<<case "a burqa">>
				burqa.
			<<case "a burkini">>
				burkini.
			<<case "a kimono">>
				kimono.
			<<case "a hanbok">>
				hanbok.
			<<case "a nice maid outfit">>
				maid outfit.
			<<case "a slutty maid outfit">>
				skimpy maid outfit.
			<<case "a halter top dress" "a mini dress" "a maternity dress">>
				dress.
			<<case "a latex catsuit">>
				latex catsuit.
			<<case "a military uniform">>
				uniform.
			<<case "a schutzstaffel uniform">>
				uniform.
			<<case "a slutty schutzstaffel uniform">>
				slutty uniform.
			<<case "a red army uniform">>
				uniform.
			<<case "spats and a tank top">>
				spats.
			<<case "a monokini">>
				monokini.
			<<case "a cybersuit">>
				cybersuit.
			<<case "a long qipao" "a gothic lolita dress">>
				dress.
			<<case "battlearmor">>
				armor.
			<<case "a dirndl">>
				dress.
			<<case "a mounty outfit" "a police uniform">>
				uniform.
			<<case "lederhosen">>
				shorts.
			<<case "a biyelgee costume">>
				dress.
			<<default>>
				$activeSlave.clothes.
			<</switch>>
		<</if>>
	<</if>>

	The interview winds on, gradually descending into prurient territory. $activeSlave.slaveName answers readily, giving everyone watching quite a window into an oversexed slave society.
	<<if $activeSlave.intelligence+$activeSlave.intelligenceImplant > 15>>
		$He's clever enough to @@.green;shock and titillate@@ at the same time; in response to a probing question about whether $he has any plans for the rest of the night, $he <<say>>s, "Of cour<<s>>e my <<Master>> make<<s>> the plan<<s>>. But I hope I can get back to the arcology early." $He shifts suggestively in $his chair. "I'm looking forward to getting fucked tonight."
		<<set $rep += 100>>
	<<else>>
		$He's rather blunt in $his responses, answering with a little too much detail; not that the audience minds.
	<</if>>
	The host, taken off guard, laughs in surprise and says he envies you that. He asks a follow up question that hints at $his sexual preferences without coming straight out and asking how $he likes it.
	<<if $activeSlave.intelligence + $activeSlave.intelligenceImplant + $activeSlave.entertainSkill >= 130 && $activeSlave.tankBaby == 0>>
		$He has enough knowledge of the old world to be able to answer without going too far, and @@.green;subtly alludes@@ to how much $he enjoys
		<<if ($activeSlave.fetish == "submissive")>>
			submitting to you in bed.
		<<elseif ($activeSlave.fetish == "cumslut")>>
			<<if $PC.dick == 0>>
				eating you out.
			<<else>>
				sucking you off.
			<</if>>
		<<elseif ($activeSlave.fetish == "humiliation")>>
			it when you show $him off in public.
		<<elseif ($activeSlave.fetish == "buttslut")>>
			anal sex.
		<<elseif ($activeSlave.fetish == "boobs")>>
			anything that involves $his breasts.
		<<elseif ($activeSlave.fetish == "sadist")>>
			it whenever you share a reluctant girl with $him.
		<<elseif ($activeSlave.fetish == "masochist")>>
			a good spanking.
		<<elseif ($activeSlave.fetish == "dom")>>
			sharing a submissive girl with you.
		<<elseif ($activeSlave.fetish == "pregnancy")>>
			<<if $activeSlave.pregKnown == 1>>
				sex while pregnant.
			<<elseif $activeSlave.vagina > 0>>
				bareback.
			<<else>>
				sharing a pregnant girl with you.
			<</if>>
		<<elseif ($activeSlave.energy > 95)>>
			sex, regardless of what kind it is.
		<<else>>
			sex in the missionary position.
		<</if>>
		<<set $rep += 100>>
	<<else>>
		$His answer betrays how <<if $activeSlave.tankBaby > 0>>little $he knows<<else>>much $he's forgotten<</if>> about the old world: $he mildly shocks the studio audience by describing
		<<if ($activeSlave.fetish == "submissive")>>
			how good it feels when you hold $him down and fuck $him
		<<elseif ($activeSlave.fetish == "cumslut")>>
			<<if $PC.dick == 0>>
				how much fun sucking your cock is
			<<else>>
				how much fun polishing your pearl is
			<</if>>
		<<elseif ($activeSlave.fetish == "humiliation")>>
			how hot it is to get fucked in public
		<<elseif ($activeSlave.fetish == "buttslut")>>
			how much $he loves the feeling of you stretching $his anal ring
		<<elseif ($activeSlave.fetish == "boobs")>>
			how much $he loves having $his nipples tugged
		<<elseif ($activeSlave.fetish == "sadist")>>
			how much $he loves molesting other slaves with you
		<<elseif ($activeSlave.fetish == "masochist")>>
			how good it feels to be forced
		<<elseif ($activeSlave.fetish == "dom")>>
			how much $he loves holding other slaves down for you
		<<elseif ($activeSlave.fetish == "pregnancy")>>
			<<if $activeSlave.pregKnown == 1 || $activeSlave.births > 0>>
				how good sex feels while pregnant
			<<elseif $activeSlave.vagina > 0>>
				how good cum feels inside $him
			<<else>>
				how much fun it is to fuck pregnant slaves
			<</if>>
		<<elseif ($activeSlave.energy > 95)>>
			the average number of sexual encounters $he has in a week
		<<else>>
			$his sex life with you
		<</if>>
		in a matter-of-fact tone of voice.
	<</if>>
	<<if $activeSlave.intelligence+$activeSlave.intelligenceImplant > 50>>

		Only because you know $him so well are you able to perceive the instant of cold calculation before $he makes a @@.green;perfect tactical decision@@ and turns directly to the camera. "Whatever you want," $he <<say>>s confidently, "You can find it in a Free <<C>>itie<<s>> arcology like my <<Master>>'<<s>>. Where I live, there'<<s>>
		<<if $arcologies[0].FSRestart > 0>>
			the mo<<s>>t intere<<s>>ting people,
		<</if>>
		<<if $arcologies[0].FSPaternalist > 0>>
			wonderful opportunitie<<s>> for everyone,
		<</if>>
		<<if $arcologies[0].FSAssetExpansionist > 0>>
			boob<<s>> the <<s>>i<<z>>e of beach ball<<s>>,
		<</if>>
		<<if $arcologies[0].FSRepopulationFocus > 0>>
			lot<<s>> of bellie<<s>> of all <<s>>i<<z>>e<<s>>,
		<</if>>
		<<if $arcologies[0].FSBodyPurist == "unset">>
			gorgeou<<s>> tattoo<<s>> and pier<<c>>ing<<s>>,
		<<elseif $arcologies[0].FSTransformationFetishist > 0>>
			new a<<ss>>et<<s>> every day,
		<</if>>
		<<if $arcologies[0].FSPastoralist > 0>>
			milk <<s>>traight from the nipple,
		<</if>>
		<<if $arcologies[0].FSPhysicalIdealist > 0>>
			the mo<<s>>t incredible oiled-up mu<<s>>cle<<s>>,
		<<elseif $arcologies[0].FSHedonisticDecadence > 0>>
			the <<s>>ofte<<s>>t, mo<<s>>t laid-back girl<<s>>,
		<</if>>
		<<if $arcologies[0].FSRomanRevivalist > 0>>
			Rome come again,
		<<elseif $arcologies[0].FSAztecRevivalist > 0>>
			Blood empire reborn,
		<<elseif $arcologies[0].FSEgyptianRevivalist > 0>>
			the land of the Pharaoh<<s>> reborn,
		<</if>>
		<<if $arcologies[0].FSGenderRadicalist > 0>>
			more a<<ss>> than you can po<<ss>>ibly fuck,
		<<elseif $arcologies[0].FSGenderFundamentalist > 0>>
			so much pu<<ss>>y it'<<s>> unbelievable,
		<</if>>
		<<if $arcologies[0].FSChattelReligionist > 0>>
			a fulfilling <<s>>e<<x>>ual and <<s>>piritual life,
		<</if>>
		<<if $arcologies[0].FSDegradationist > 0>>
			bitche<<s>> you can ju<<s>>t hold down and u<<s>>e,
		<</if>>
		<<if $arcologies[0].FSSupremacist > 0>>
			<<if _lisps>>
				<<set _race = lispReplace($arcologies[0].FSSupremacistRace)>>
			<<else>>
				<<set _race = $arcologies[0].FSSupremacistRace>>
			<</if>>
			_race power,
		<</if>>
		<<if $arcologies[0].FSSubjugationist > 0>>
			<<if _lisps>>
				<<set _race = lispReplace($arcologies[0].FSSubjugationistRace)>>
			<<else>>
				<<set _race = $arcologies[0].FSSubjugationistRace>>
			<</if>>
			_race girl<<s>> to cater to your whim,
		<</if>>
		girl<<s>> in pretty dre<<ss>>e<<s>> and girl<<s>> in <<s>>tring bikini<<s>> and girl<<s>> who haven't worn clothe<<s>> in year<<s>>,
		<<if $seeDicks != 0>>
			girl<<s>> with huge dick<<s>> you can a<<ss>>fuck until they cum bucket<<s>>, girl<<s>> with <<s>>oft dick<<s>> and no ball<<s>>,
		<</if>>
		<<if $seeDicks != 0 && $seeDicks != 100>>
			girl<<s>> with dick<<s>> the <<s>>i<<z>>e of clit<<s>> and girl<<s>> with clit<<s>> the <<s>>i<<z>>e of dick<<s>>,
		<</if>>
		<<if $seeDicks != 100>>
			young girl<<s>> on their fir<<s>>t pregnan<<c>>y, MILF<<s>> on their tenth,
		<</if>>
		lip<<s>>, tongue<<s>>,
		<<if $arcologies[0].FSEgyptianRevivalistIncestPolicy == 1>>
			in<<c>>e<<s>>t,
		<</if>>
		<<if $arcologies[0].FSSlimnessEnthusiast == "unset">>
			huge breast<<s>> and plu<<sh>> a<<ss>>e<<s>>,
		<<elseif $arcologies[0].FSAssetExpansionist == "unset">>
			pert tit<<s>> and cute butt<<s>>,
		<</if>>
		and more. I wouldn't trade it for anything."
		<<set $rep += 300>>
		The host politely regains control of his show, but there's a cautious respect in the rest of his questions.
	<</if>>
	<<if $activeSlave.intelligence+$activeSlave.intelligenceImplant > 50 && $PC.title == 0>>

		$activeSlave.slaveName even manages to @@.green;respond well@@ to a probing question about your gender.
		$He <<if _lisps>>lisps<<else>>explains<</if>>, "You have to under<<s>>tand that all that non<<s>>en<<s>>e about men and women mean<<s>> le<<ss>> to u<<s>> in the Free <<C>>itie<<s>>. My <<Master>> i<<s>> a <<s>>u<<cc>>e<<ss>>ful and powerful woman.
		<<if $PC.dick == 0>>
			We ju<<s>>t pay the right amount of attention to the <<s>>u<<cc>>e<<ss>> and the power." $He quirks a corner of $his mouth. "I know //I// do."
		<<else>>
			$He quirks a corner of $his mouth. "And <<heP>> ha<<s>> a //wonderful// cock."
		<</if>>
		<<set $rep += 100>>
	<</if>>

	At the conclusion, the host
	<<if $rep - $oldRep > 200>>
		seems @@.green;impressed@@ and says sincerely,
		<<set $rep += 100>>
	<<elseif $rep - $oldRep < 0>>
		seems @@.red;unimpressed@@ and says mockingly,
		<<set $rep -= 100>>
	<<else>>
		says jokingly,
	<</if>>
	"My dear it's been a pleasure. If all Free Cities <<print $girl>>s are like you I might have to look into immigrating. Ladies and gentlemen, good night!"
	<</replace>>
<</link>>


code:
:: PE lonely bodyguard [nobr]

<<set $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Random Nonindividual Event">>

<<set $activeSlave = $Bodyguard, _targetSlaveIndex = []>>
<<for _i = 0; _i < $slaves.length; _i++>>
	<<if $slaves[_i].devotion >= -20 && $slaves[_i].relationship == 0 && $slaves[_i].ID != $Bodyguard.ID>>
		<<set _targetSlaveIndex.push(_i)>>
	<</if>>
<</for>>
<<set $j = _targetSlaveIndex.random()>>
<<run Enunciate($activeSlave)>>
<<setLocalPronouns $activeSlave>>
<<setLocalPronouns $slaves[$j] 2>>

You take an unusually close interest in $activeSlave.slaveName's health and mental well-being, since your health and mental well-being may rely on $his combat effectiveness. $He performs $his duties acceptably, difficult though they are. $Hers is a life of long hours and constant vigilance, and $he has very little time to $himself. The daily wear hasn't really affected $him yet, but it may.

On a whim, you ask $him whether $he feels lonely. Caught off guard, $he <<if !canTalk($activeSlave)>>says in hesitant gestures that $he's all right, and that $his <<= WrittenMaster()>>'s companionship is enough for $him.<<else>><<say>>s hesitantly "I'm all right, <<Master>>. I love being near you; that'<<s>> enough for me."<</if>> The slight hesitation is explained the next time $slaves[$j].slaveName comes to your office. $activeSlave.slaveName watches everyone who sees you, of course, but you catch $his eye running appreciatively up and down $slaves[$j].slaveName's body as _he2 leaves.

<<link "Make no mention of it">>
	<<replace "#result">>
	$activeSlave.slaveName is a big $girl and can look after $himself, you reflect. You take no particular action to favor $his interest in $slaves[$j].slaveName.
	<</replace>>
<</link>>

<<link "Set them up">>
	<<replace "#result">>
	You decide to amuse yourself by engaging in a game of subtle matchmaking. You carefully rearrange $slaves[$j].slaveName's schedule and duties so _he2 and $activeSlave.slaveName spend as much time as possible with one another. At the same time, you gradually reduce $slaves[$j].slaveName's access to sexual outlets. After letting the situation marinate for a few days, you decide that the time is ripe, and without any further explanation assign $slaves[$j].slaveName to spend the day in $activeSlave.slaveName's armory. It's barely midmorning before they're making out on $activeSlave.slaveName's workout mat, and by the afternoon $slaves[$j].slaveName is under $activeSlave.slaveName's workbench, orally servicing _his2 new @@.lightgreen;fuckbuddy@@ as $he maintains $his machine pistol.
	<<set $slaves[$j].relationship = 3>>
	<<set $slaves[$j].relationshipTarget = $activeSlave.ID>>
	<<set $activeSlave.relationship = 3>>
	<<set $activeSlave.relationshipTarget = $slaves[$j].ID>>
	<<set $oralTotal += 1>>
	<</replace>>
<</link>>

<<link "Marry them">>
	<<replace "#result">>
	You order $slaves[$j].slaveName in and brusquely inform _him2 _he2'll be marrying $activeSlave.slaveName. $slaves[$j].slaveName is too surprised to react much, and even $activeSlave.slaveName looks shocked, but there is a gleam of wild glee in $his eyes. You give them a few minutes to get dressed in special outfits you make available: they're lacy lingerie designed to resemble old world wedding dresses, but without concealing anything.

	$activeSlave.slaveName is
		<<if ($activeSlave.vagina == 0)>>a virgin, so $he's wearing white<<elseif ($activeSlave.vagina < 0) && ($activeSlave.dick > 0)>>a sissy slave, so $he's wearing light blue<<elseif ($activeSlave.vagina < 0) && ($activeSlave.dick < 1)>>a null, so it's wearing black<<else>>is an experienced sex slave, so $he's wearing light pink<</if>> against $his $activeSlave.skin skin.
		<<if canPenetrate($activeSlave)>>The sight of $slaves[$j].slaveName has $him stiffly erect, and $he's wearing a little bow around $his cockhead.<<elseif canAchieveErection($activeSlave)>>$He's wearing a little bow over $his caged girldick.<<elseif ($activeSlave.dick > 0)>>$He's impotent, but $he's wearing a little bow around $his useless cockhead.<<elseif ($activeSlave.clit > 0)>>$His prominent clit is engorged, and $he's wearing a tiny bow on it.<<elseif ($activeSlave.vagina >= 0)>>$He's wearing a demure little bow just over $his pussy.<</if>>
		<<if ($activeSlave.anus > 1)>> $His lacy panties are designed to spread $his buttocks a little and display $his big butthole.<<elseif ($activeSlave.anus == 0)>> $His lacy panties cover $his virgin anus, for once.<</if>>
		<<if ($activeSlave.boobs > 1000)>>$His bra makes no attempt to cover or even support $his huge breasts, simply letting them through holes in the lace to jut proudly out.<<elseif ($activeSlave.boobs > 500)>>$His bra supports and presents $his big breasts, leaving $his stiffening nipples bare.<<else>>$His bra supports and presents $his breasts, giving $him more cleavage than $he usually displays.<</if>>

	$slaves[$j].slaveName is
		<<if ($slaves[$j].vagina == 0)>>a virgin, so _he2's wearing white<<elseif ($slaves[$j].vagina < 0) && ($slaves[$j].dick > 0)>>a sissy slave, so _he2's wearing light blue<<elseif ($slaves[$j].vagina < 0) && ($slaves[$j].dick < 1)>>a null, so it's wearing black<<else>>is an experienced sex slave, so _he2's wearing light pink<</if>> against _his2 $slaves[$j].skin skin.
		<<if canPenetrate($slaves[$j])>>The sight of $activeSlave.slaveName has _him2 stiffly erect, and _he2's wearing a little bow around _his2 cockhead.<<elseif canAchieveErection($slaves[$j])>>_He2's wearing a little bow over _his2 caged girldick.<<elseif ($slaves[$j].dick > 0)>>_He2's impotent, but _he2's wearing a little bow around _his2 useless cockhead.<<elseif ($slaves[$j].clit > 0)>>_His2 prominent clit is engorged, and _he2's wearing a tiny bow on it.<<elseif ($slaves[$j].vagina >= 0)>>_He2's wearing a demure little bow just over _his2 pussy.<</if>>
		<<if ($slaves[$j].anus > 1)>> _His2 lacy panties are designed to spread _his2 buttocks a little and display _his2 big butthole.<<elseif ($slaves[$j].anus == 0)>> _His2 lacy panties cover _his2 virgin anus, for once.<</if>>
		<<if ($slaves[$j].boobs > 1000)>>_His2 bra makes no attempt to cover or even support _his2 huge breasts, simply letting them through holes in the lace to jut proudly out.<<elseif ($slaves[$j].boobs > 500)>>_His2 bra supports and presents _his2 big breasts, leaving _his2 stiffening nipples bare.<<else>>_His2 bra supports and presents _his2 breasts, giving _him2 more cleavage than _he2 usually displays.<</if>>

	The procedure is simple. The two of them prostrate themselves on the ground and beg your indulgence, though $slaves[$j].slaveName is running on pure autopilot by this point. You state that you grant it, and hand each of them a simple gold band to be worn on the little finger in advertisement of the inferiority of their union. In turn, each of them gives the other a ring, and $activeSlave.slaveName kisses $his stunned bride. You pronounce them @@.lightgreen;slave wives,@@ and send them to the armory for their honeymoon. $activeSlave.slaveName is so enthusiastic that in the coming days $his obvious devotion @@.hotpink;wins $slaves[$j].slaveName over to the arrangement.@@
	<<set $slaves[$j].devotion = Math.max(20, $slaves[$j].devotion + 10)>> /* to accepting or better */
	<<set $slaves[$j].relationship = 5>>
	<<set $slaves[$j].relationshipTarget = $activeSlave.ID>>
	<<set $activeSlave.relationship = 5>>
	<<set $activeSlave.relationshipTarget = $slaves[$j].ID>>
	<<set $oralTotal += 2>>
	<</replace>>
<</link>>

repo_name: oxone/fc


code:
:: PE pit fight [nobr]

<<set $nextButton = "Continue", $nextLink = "AS Dump", $returnTo = "Random Nonindividual Event">>

<<set $activeSlave = $Bodyguard>>
<<setLocalPronouns $activeSlave>>

<<set $deadliness = Deadliness($activeSlave)>>

<<set $PPit = 0>>

It's time for the fight. It will take place in a back room of a well respected club. There is a ring set into the floor, and space for a handful of spectators, but the setup is quite Spartan. The sport is just getting off the ground. <<EventNameLink $activeSlave>> is first to walk into the ring. $He's stark naked and is carrying a simple single-edged straight sword, identical to the one $his opponent will be using. The fight will be fair.

Across the ring, $his opponent's owner nods civilly to you and examines $activeSlave.slaveName.

<<if $activeSlave.combatSkill > 0>>
	$His combat skills greatly increase $his deadliness.
<</if>>

<<if $activeSlave.muscles > 95 && $activeSlave.height >= 185>>
	$His huge muscles are an intimidating sight and, despite their massive size, $he is tall enough to not be hindered by them.
<<elseif $activeSlave.muscles > 95>>
	$His huge muscles are an intimidating sight, but may hinder $his flexibility.
<<elseif $activeSlave.muscles > 30>>
	$His muscles are a trim and powerful sight.
<<elseif $activeSlave.muscles < -95>>
	$He can barely stand, let alone ready $his weapon. $His feeble attempts elicit a roar of laughter from the spectators.
<<elseif $activeSlave.muscles < -30>>
	$He struggles to raise $his weapon. $His feeble attempts elicit a roar of laughter from the spectators.
<<elseif $activeSlave.muscles < -5>>
	$He is rather unfit; $he will likely be outmatched by near any real opponent.
<</if>>

<<if $activeSlave.height >= 170>>
	$His height gives $him a reach advantage with $his sword.
<</if>>

<<if $activeSlave.health > 50>>
	$His shining health makes $him a better combatant.
<</if>>

<<if $activeSlave.weight > 190>>
	$His extreme weight nearly immobilizes $him. $He struggles to move let alone fight.
<<elseif $activeSlave.weight > 160>>
	$His extreme weight limits $his mobility and range of motion, making $him an easy target.
<<elseif $activeSlave.weight > 130>>
	$His extreme weight holds $him back as a pit fighter.
<<elseif $activeSlave.weight > 30>>
	$His heavy weight is an impediment as a pit fighter.
<<elseif $activeSlave.weight < -10>>
	$His light weight is an impediment as a pit fighter.
<</if>>

<<if $activeSlave.health < -50>>
	$His poor health makes $him a weaker combatant.
<</if>>

<<if $activeSlave.pregKnown == 1 || $activeSlave.bellyPreg >= 1500>>
	<<if $activeSlave.bellyPreg >= 750000>>
		$His monolithic pregnancy guarantees $his loss; not only is $he on the verge of splitting open, but it is an unmissable, indefensible target that threatens to drag $him to the ground. $He has no hope of attacking around the straining mass, let alone stopping $his opponent.
	<<elseif $activeSlave.bellyPreg >= 600000>>
		$His titanic pregnancy is practically a guaranteed loss; $he can barely stand let alone fight.
	<<elseif $activeSlave.bellyPreg >= 450000>>
		$His gigantic pregnancy is nearly a guaranteed loss; it presents an unmissable, indefensible target for $his adversary.
	<<elseif $activeSlave.bellyPreg >= 300000>>
		$His massive pregnancy obstructs $his movement and greatly hinders $him. $He struggles to think of how $he could even begin to defend $his bulk.
	<<elseif $activeSlave.bellyPreg >= 150000>>
		$His giant pregnancy obstructs $his movement and greatly slows $him down.
	<<elseif $activeSlave.bellyPreg >= 100000>>
		$His giant belly gets in $his way and weighs $him down.
	<<elseif $activeSlave.bellyPreg >= 10000>>
		$His huge belly is unwieldy and hinders $his efforts.
	<<elseif $activeSlave.bellyPreg >= 5000>>
		$His advanced pregnancy makes $him much less effective.
	<<elseif $activeSlave.bellyPreg >= 1500>>
		$His growing pregnancy distracts $him from the fight.
	<<else>>
		The life just beginning to grow inside $him distracts $him from the fight.
	<</if>>
<<elseif $activeSlave.bellyImplant >= 1500>>
	<<if $activeSlave.bellyImplant >= 750000>>
		$His monolithic, <<print $activeSlave.bellyImplant>>cc implant filled belly guarantees $his loss; not only is $he on the verge of splitting open, but it is an unmissable, indefensible target that threatens to drag $him to the ground. $He has no hope of attacking around the straining mass, let alone stopping $his opponent.
	<<elseif $activeSlave.bellyImplant >= 600000>>
		$His titanic, <<print $activeSlave.bellyImplant>>cc implant filled belly is practically a guaranteed loss; $he can barely stand let alone fight. Not only is it cripplingly heavy, unwieldy and an easy target, but $he can feel it straining to hold the sheer amount of filler forced into it.
	<<elseif $activeSlave.bellyImplant >= 450000>>
		$His gigantic, <<print $activeSlave.bellyImplant>>cc implant filled belly is nearly a guaranteed loss; it presents an unmissable, indefensible target for $his adversary.
	<<elseif $activeSlave.bellyImplant >= 300000>>
		$His massive, <<print $activeSlave.bellyImplant>>cc implant filled belly is extremely heavy, unwieldy and an easy target, practically damning $him in combat.
	<<elseif $activeSlave.bellyImplant >= 150000>>
		$His giant, <<print $activeSlave.bellyImplant>>cc implant filled belly obstructs $his movement and greatly slows $him down.
	<<elseif $activeSlave.bellyImplant >= 100000>>
		$His giant, <<print $activeSlave.bellyImplant>>cc implant filled belly is very heavy and unwieldy, throwing off $his weight and making $him far less effective.
	<<elseif $activeSlave.bellyImplant >= 10000>>
		$His huge, <<print $activeSlave.bellyImplant>>cc implant filled belly is very heavy and unwieldy, throwing off $his weight and making $him far less effective.
	<<elseif $activeSlave.bellyImplant >= 5000>>
		$His large, <<print $activeSlave.bellyImplant>>cc implant filled belly is heavy and unwieldy, rendering $him less effective.
	<<elseif $activeSlave.bellyImplant >= 1500>>
		$His swollen, <<print $activeSlave.bellyImplant>>cc implant filled belly is heavy and makes $him less effective.
	<</if>>
<</if>>
<<if $activeSlave.labor == 1>>
	$He's feeling labor pains. $His child<<if $activeSlave.pregType > 1>>ren are<<else>> is<</if>> ready to be born.
<<elseif $activeSlave.preg >= $activeSlave.pregData.normalBirth && $activeSlave.pregControl != "labor suppressors">>
	$He'll be going into labor any time now and $he knows it.
<</if>>

<<if $activeSlave.bellyFluid >= 10000>>
	$His hugely bloated, <<print $activeSlave.inflationType>>-filled belly is taut and painful, hindering $his ability to fight.
<<elseif $activeSlave.bellyFluid >= 5000>>
	$His bloated, <<print $activeSlave.inflationType>>-stuffed belly is constantly jiggling and moving, distracting $him and throwing off $his weight.
<<elseif $activeSlave.bellyFluid >= 2000>>
	$His distended, <<print $activeSlave.inflationType>>-belly is uncomfortable and heavy, distracting $him.
<</if>>

<<if $slaves[$i].teeth == "pointy">>
	$His sharp teeth add nothing to $his actual effectiveness, but they're certainly intimidating.
<</if>>

<<if !canSee($slaves[$i])>>
	$His lack of eyesight means certain death.
<<elseif (($slaves[$i].eyes == -1) && ($slaves[$i].eyewear != "corrective glasses") && ($slaves[$i].eyewear != "corrective contacts")) || ($slaves[$i].eyes == 1 && ($slaves[$i].eyewear == "blurring glasses" || $slaves[$i].eyewear == "blurring contacts"))>>
	$His poor eyesight makes $him a weaker fighter.
<</if>>

<<if !canHear($slaves[$i])>>
	$His lack of hearing is a major detriment.
<<elseif (($slaves[$i].hears == -1) && ($slaves[$i].earwear != "hearing aids")) || ($slaves[$i].hears == 0 && ($slaves[$i].earwear == "muffling ear plugs"))>>
	$His lack of hearing is a minor detriment.
<</if>>

<<if $deadliness > 5>>
	$activeSlave.slaveName seems supremely confident, even eager to please you.
<<elseif $deadliness > 3>>
	$activeSlave.slaveName seems nervous, but steels $himself to fight for you.
<<elseif $deadliness > 1>>
	$activeSlave.slaveName seems terrified, and barely controls $himself.
<<else>>
	$activeSlave.slaveName is obviously terrified, and might flee if there were a way out of the pit.
<</if>>

Finally, $his opponent enters as well.

<<set _randomOpponent = random(1,120)>>
<<setNonlocalPronouns $seeDicks>>
<<if _randomOpponent > 100>>
	_HeU is a hulking, musclebound _girlU with a wasp waist and immense rear. _HeU seems nothing short of excited.
	<<set _opponent = 6>>
<<elseif _randomOpponent > 80>>
	_HeU is a huge, muscular Amazon filled with confidence.
	<<set _opponent = 5>>
<<elseif _randomOpponent > 60>>
	_HeU is a short but muscular _girlU, trying _hisU best to look confident.
	<<set _opponent = 4>>
<<elseif _randomOpponent > 40>>
	_HeU is a tall, thin _womanU covered in ropy muscle, trying to hide _hisU terror.
	<<set _opponent = 3>>
<<elseif _randomOpponent > 20>>
	_HeU is a decent-looking slave, physically fit but obviously scared.
	<<set _opponent = 2>>
<<else>>
	_HeU is an average looking slave, so frightened there's urine running down _hisU leg. _HeU must have really annoyed _hisU master to earn this.
	<<set _opponent = 1>>
<</if>>

The umpire announces gravely that the fight is to the death and rings a bell.

<<if $deadliness > (_opponent + 1)>>
	$activeSlave.slaveName senses that $he is greatly superior, and decides to make a quick end before $his opponent can try something foolish. $He feints high and stabs low; $his enemy just manages to parry the low stab, but is so much weaker that $activeSlave.slaveName simply overpowers _himU, so that _heU falls onto _hisU back with the force of the clash. $activeSlave.slaveName takes one step forward and runs $his sword through the prostrate slave's heart. This victory has @@.green;won you some renown@@ and @@.yellowgreen;a sum of money@@ from each of the spectators.
	<<set $rep += 500>>
	<<run cashX(5000, "pit", $activeSlave)>>
	<<set $activeSlave.pitKills += 1>>
	<<set $pitKillsTotal += 1>>
<<elseif $deadliness > (_opponent)>>
	The combat is long and exhausting. $activeSlave.slaveName and $his opponent are closely matched in terms of skill, so neither takes foolish risks and a protracted, bloody fight results as both slaves take horrible but non-life-threatening cuts. Finally, $activeSlave.slaveName's superior physical condition wins out and $his opponent falls from exhaustion and blood loss. $activeSlave.slaveName stumbles over to open _hisU throat. This victory has @@.green;won you some renown@@ and @@.yellowgreen;a sum of money@@ from each of the spectators, though $activeSlave.slaveName is @@.red;badly hurt.@@
	<<set $rep += 500>>
	<<run cashX(5000, "pit", $activeSlave)>>
	<<set $activeSlave.health = -50>>
	<<set $activeSlave.pitKills += 1>>
	<<set $pitKillsTotal += 1>>
<<elseif $deadliness > (_opponent-1)>>
	The combat is long and exhausting. $activeSlave.slaveName and $his opponent are closely matched in terms of skill, so neither takes foolish risks and a protracted, bloody fight results as both slaves take horrible but non-life-threatening cuts. Finally, $activeSlave.slaveName's inferior physical condition fails $him and $he falls from exhaustion and blood loss. As $he slumps $he catches your eye with a look of apology. $His opponent stumbles over to open $his throat. $activeSlave.slaveName @@.red;has been killed.@@
	<<set $activeSlave.health -= 1000>>
<<else>>
	$activeSlave.slaveName is outmatched from the start. In the first pass, $his opponent moves beyond $him, opening a long gash in $his thigh as _heU goes. Thus injured, $activeSlave.slaveName fails to block a slash that severs $his Achilles tendon on the other side. On $his knees, $he barely manages to ward off one more blow before the second one opens $his belly. $activeSlave.slaveName @@.red;has been killed.@@
	<<set $activeSlave.health -= 1000>>
<</if>>

<<if $activeSlave.health < -90>>
	<<include "Remove activeSlave">>
<</if>>


code:
:: PE pit fight invite [nobr]

<<set $nextButton = "Continue">>
<<set $nextLink = "RIE Eligibility Check">>

<<set $PPit = 0>>
<<setLocalPronouns $Bodyguard>>

Gladiatorial combat between slaves has not yet reached the level of social acceptability it once enjoyed in Rome, but it's growing in popularity. For now, most fights are discreet affairs limited to select guests. Displaying a slave bodyguard is an excellent way to get yourself invited to participate, and $assistantName has just passed on an invitation to a private fight next week, should you be willing to hazard a bodyguard.

<<link "Enter your bodyguard as a gladiatrix">>
	<<replace "#result">>
	You receive a brief confirmation. It looks like $he's got a fight.
	<<set $PPit = 1>>
	<</replace>>
<</link>>

<<link "Politely decline">>
	<<replace "#result">>
	You decline the invitation.
	<</replace>>
<</link>>


code:
:: Pens [nobr]

<<set $nextButton = "Back", $nextLink = "Main">>

This is a space in the arcology's service areas, designed to house hundreds of slaves for paying owners. You control this part of the arcology. If you own menial slaves, they will be kept here; otherwise, unused space will be rented to other slave brokers.
<<SectorSell>>

<<if $menials+$menialBioreactors+$fuckdolls > 0>>

	You own
	<<if $menials > 0>>
		<<if $menials > 1>><<print commaNum($menials)>> menial slaves<<if ($menialBioreactors > 0) && ($fuckdolls == 0)>> and<<else>>,<</if>><<else>>one menial slave<<if ($menialBioreactors > 0) && ($fuckdolls == 0)>> and<<else>>,<</if>><</if>>
	<</if>>
	<<if $menialBioreactors > 0>>
		<<if $menialBioreactors > 1>><<print commaNum($menialBioreactors)>> standard bioreactors,<<else>>one standard bioreactor,<</if>>
		<<if $fuckdolls > 0>>and<</if>>
	<</if>>
	<<if $fuckdolls > 0>>
		<<if $fuckdolls > 1>><<print commaNum($fuckdolls)>> standard Fuckdolls,<<else>>one Fuckdoll,<</if>>
	<</if>>
	<<if $menials+$menialBioreactors+$fuckdolls > 0>>partially<</if>>
	housed in this sector.
	<<if $menials > 0>>
	<<if $Sweatshops>>
		The simple labor slaves toil in $arcologies[0].name's sweatshops, and only return here to sleep.
	<</if>>
	<</if>>
	<<if $fuckdolls > 0>>
	<<if $arcadeUpgradeMenials>>
		The menial Fuckdolls are endlessly cycled through $arcadeName. They're restrained there and used by the public until their holes are no longer appealing, and then cycled back down here to rest until they've tightened up again.
	<</if>>
	<</if>>
	<<if $menialBioreactors > 0>>
	<<if $dairyUpgradeMenials>>
		Whenever there's space in $dairyName, menial Bioreactors are taken out of storage here and restrained there, with $dairyName's powerful hookups draining them of their useful fluids and feeding them generously so they can produce more.
	<</if>>
	<</if>>
<</if>>

[[Convert this sector into a manufacturing district|Main][cashX(forceNeg(Math.trunc(10000*$upgradeMultiplierArcology)), "capEx"), $sectors[$AS].type = "Manufacturing"]]
//Costs <<print cashFormat(Math.trunc(10000*$upgradeMultiplierArcology))>>//


code:
:: Penthouse Report [nobr]

<<SlaveSort $HGSuiteiIDs>>
<<set _SL = $slaves.length>>

<<for $i = 0; $i < _SL; $i++>>
	<<if $slaves[$i].assignmentVisible == 1>>

''__@@.pink;<<= SlaveFullName($slaves[$i])>>@@__''
		<<if $slaves[$i].choosesOwnAssignment == 2>>
			<<include "SA chooses own job">>
			$He
		<</if>>
		<<include "Full Report">>

		<<if ($slaves[$i].assignment == "be your Head Girl") && ($HGSuiteSlaves > 0)>>
			/% We found the Head Girl, now let's find her slave %/
			<<set _iTemp = $i>>
			<<set _ID = $HGSuiteiIDs[0], $i = $slaveIndices[_ID]>>

			<<if $slaves[$i].assignment != "live with your Head Girl">>

@@.red;$slaves[$i].slaveName had been assigned to live with your Head Girl, but this week $he was assigned to $slaves[$i].assignment. $He has been released to your penthouse for reassignment.@@
				<<= removeJob($slaves[$i], "live with your Head Girl")>>
			<<else>>
				''__@@.pink;<<= SlaveFullName($slaves[$i])>>@@__''
				<<if $slaves[$i].choosesOwnAssignment == 2>>
					<<include "SA chooses own job">>
					$He
				<</if>>
				<<include "SA live with HG">>

			<</if>>

			<<set $i = _iTemp>>
		<</if>>

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

/* count open spots in facilities after all assignments have been decided for the week */
<<set $brothelSpots = $brothel - $brothelSlaves, $clubSpots = $club - $clubSlaves, $dairySpots = $dairy - $dairySlaves, $servantsQuartersSpots = $servantsQuarters - $servantsQuartersSlaves>>


code:
:: Personal Business [nobr]

<<if $useTabs == 0>>__Personal Business__<</if>>
<br>
<<if $secExp == 1>>
	<<if $PCWounded == 1>>
		<<set $PCWoundCooldown-->>
		<<if $PCWoundCooldown > 0>>
			The injuries received in the recent battle prevents you from engaging in tiring endeavors.
		<</if>>
		<<if $PCWoundCooldown == 1>>
			You are starting to feel better. It's very likely you will be back to full working order within the next week.
		<<elseif $PCWoundCooldown == 0>>
			<<set $PCWounded = 0>>
			You have finally recovered from your injuries.
		<<else>>
			Your trusted physician believes it will still take a few weeks to fully recover.
		<</if>>
	<</if>>
<</if>>

<<if $cash < 0>>
	<<set _cashX = cashX(forceNeg(1+Math.trunc(Math.abs($cash)/100)), "personalBusiness")>>
	@@.red;You are in debt.@@ This week, interest came to <<print cashFormat(_cashX, "personalBusiness")>>.
	<<if $arcologies[0].FSRomanRevivalist != "unset">>
		Society @@.red;very strongly disapproves@@ of your being in debt; this damages the idea that you model yourself on what a Roman leader should be.
		<<= FSChange("RomanRevivalist", -10)>>
	<</if>>
	<<if $cash < 0 && $cash > -25000 && $arcologies[0].FSRestartDecoration == 100>>
	<<if $eugenicsFullControl != 1>>
		Money is quickly shifted to bring you out of debt, though @@.red;the Societal Elite are left doubting@@ your worth.
		<<set $cash = 0>>
		<<set $failedElite += 100>>
	<<else>>
		Money is quickly shifted to bring you out of debt, though the Societal Elite grumble all the while.
		<<set $cash = 0>>
	<</if>>
	<<elseif $cash < -9000>>
		@@.red;WARNING: you are dangerously indebted.@@ Immediately acquire more liquid assets or you will be in danger of being enslaved yourself.
		<<set $debtWarned += 1>>
		<<if $debtWarned > 1>>
			<<set $ui = "start">>
			<<set $gameover = "debt">><<goto "Gameover">>
		<</if>>
	<</if>>
<<elseif $PCWounded == 1 && $secExp == 1>>
	/* does nothing for this week */
<<elseif ($personalAttention == "whoring")>>
	<<set _income = random(2000,4500)>>
	<<if $PC.belly >= 1500>>
		<<if $arcologies[0].FSRepopulationFocus != "unset">>
			You focus on finding "dates" this week and earn @@.yellowgreen;<<print cashFormat(Math.trunc((_income*($rep/500))+($PC.belly)))>>@@ for your body, much more than usual; guess your pregnancy focused population wants your baby rounded body more than ever. However, doing such things @@.red;damages your reputation@@.
			<<run cashX(Math.trunc((_income*($rep/500))+($PC.belly)), "personalBusiness")>>
			<<set $rep = Math.trunc($rep*.90)>>
		<<elseif $arcologies[0].FSRepopulationFocusPregPolicy == 1>>
			You focus on finding "dates" this week and earn @@.yellowgreen;<<print cashFormat(Math.trunc((_income*($rep/500))+($PC.belly/2)))>>@@ for your body, more than usual; but that's to be expected, after all, pregnancy is trendy right now. Event still, doing such things @@.red;damages your reputation@@.
			<<run cashX(Math.trunc((_income*($rep/500))+($PC.belly/2)), "personalBusiness")>>
			<<set $rep = Math.trunc($rep*.90)>>
		<<elseif $arcologies[0].FSRestart != "unset">>
			<<if $PC.pregSource != -1 && $PC.pregSource != -6>>
				You focus on finding "dates" this week and earn @@.yellowgreen;<<print cashFormat(25)>>,@@ barely enough to cover the abortion the john that gave it to you told you to get. Showing off your gravid body @@.red;infuriates your citizens and cripples your reputation@@.
				<<run cashX(25, "personalBusiness")>>
				<<set $rep = Math.trunc($rep*.25)>>
				<<if $eugenicsFullControl != 1>>
					<<set $failedElite += 25>>
				<</if>>
			<<else>>
				You focus on finding "dates" this week and earn @@.yellowgreen;<<print cashFormat(Math.trunc(_income($rep/500)))>>@@ for your body. However, doing such things @@.red;damages your reputation@@.
				<<run cashX(Math.trunc(_income*($rep/500)), "personalBusiness")>>
				<<set $rep = Math.trunc($rep*.75)>>
			<</if>>
		<<else>>
			<<set _income = random(5,2500)>>
			You focus on finding "dates" this week and earn @@.yellowgreen;<<print cashFormat(Math.trunc(_income*($rep/800)))>>@@ for your body, much less than usual; your pregnancy must be turning off potential clients. However, doing such things @@.red;damages your reputation@@.
			<<run cashX(Math.trunc(_income*($rep/800)), "personalBusiness")>>
			<<set $rep = Math.trunc($rep*.75)>>
		<</if>>
	<<else>>
		You focus on finding "dates" this week and earn @@.yellowgreen;<<print cashFormat(Math.trunc(_income*($rep/500)))>>@@ for your body. However, doing such things @@.red;damages your reputation@@.
		<<run cashX(Math.trunc(_income*($rep/500)), "personalBusiness")>>
		<<set $rep = Math.trunc($rep*.75)>>
		<<if isPlayerFertile($PC)>>
			<<if $arcologies[0].FSRepopulationFocus != "unset" && random(1,100) > 80>>
				A horny client offered you an extra @@.yellowgreen;<<print cashFormat(1000)>>@@ for downing some fertility drugs. You're already forgoing birth control, so what harm could an extra baby do?
				<<run cashX(1000, "personalBusiness")>>
				<<set $PC.forcedFertDrugs += 2>>
			<<elseif random(1,100) > 90>>
				Your client this week offered you some free pills to make sex more fun. He was right; it made bareback sex feel amazing.
				<<set $PC.forcedFertDrugs += 2>>
			<</if>>
			<<= knockMeUp($PC, 20, 0, -5)>>
		<</if>>
	<</if>>
	<<set $enduringRep *= .5>>
<<elseif ($personalAttention == "upkeep")>>
	<<if $PC.belly >= 5000>>
		You spend your free time hustling around your penthouse, cleaning and making sure everything is in order. You manage to reduce your upkeep by 20%. Your pregnancy slows you down some, but you're used to working around it.
	<<else>>
		You spend your free time hustling around your penthouse, cleaning and making sure everything is in order. You manage to reduce your upkeep by 25%. <<if $PC.vagina == 1>>This is much easier to do without a big baby bump in the way.<</if>>
	<</if>>
<<elseif ($personalAttention == "proclamation")>>
	/* handled after this if chain */
<<elseif ($personalAttention == "smuggling")>>
	<<set $qualifiedFS = []>>
	<<if $arcologies[0].FSDegradationistDecoration >= 80>>
		<<set $qualifiedFS.push("degradationist")>>
	<</if>>
	<<if $arcologies[0].FSPaternalistDecoration >= 80>>
		<<set $qualifiedFS.push("paternalist")>>
	<</if>>
	<<if $arcologies[0].FSHedonisticDecadenceDecoration >= 80>>
		<<set $qualifiedFS.push("hedonistic")>>
	<</if>>
	<<if $arcologies[0].FSPastoralistDecoration >= 80 && $arcologies[0].FSPastoralistLaw == 1>>
		<<set $qualifiedFS.push("pastoralist")>>
	<</if>>
	<<if $arcologies[0].FSSupremacistDecoration >= 80>>
		<<set $qualifiedFS.push("supremacist")>>
	<</if>>
	<<if $arcologies[0].FSBodyPuristDecoration >= 80>>
		<<set $qualifiedFS.push("body purist")>>
	<</if>>
	<<if $arcologies[0].FSRestartDecoration >= 80>>
		<<set $qualifiedFS.push("eugenics")>>
	<</if>>
	<<if $arcologies[0].FSRepopulationFocusDecoration >= 80>>
		<<set $qualifiedFS.push("repopulation")>>
	<</if>>
	<<if $arcologies[0].FSGenderFundamentalistDecoration >= 80>>
		<<set $qualifiedFS.push("fundamentalist")>>
	<</if>>
	<<if $arcologies[0].FSSubjugationistDecoration >= 80>>
		<<set $qualifiedFS.push("subjugationist")>>
	<</if>>
	<<if $arcologies[0].FSGenderRadicalistResearch == 1>>
		<<set $qualifiedFS.push("radicalist")>>
	<</if>>
	<<if $arcologies[0].FSTransformationFetishistResearch == 1>>
		<<set $qualifiedFS.push("transformation")>>
	<</if>>
	<<if $arcologies[0].FSYouthPreferentialistDecoration >= 80>>
		<<set $qualifiedFS.push("youth")>>
	<</if>>
	<<if $arcologies[0].FSMaturityPreferentialistDecoration >= 80>>
		<<set $qualifiedFS.push("maturity")>>
	<</if>>
	<<if $arcologies[0].FSSlimnessEnthusiastDecoration >= 80>>
		<<set $qualifiedFS.push("slimness")>>
	<</if>>
	<<if $arcologies[0].FSAssetExpansionistResearch == 1>>
		<<set $qualifiedFS.push("expansionist")>>
	<</if>>
	<<if $arcologies[0].FSPhysicalIdealistDecoration >= 80>>
		<<set $qualifiedFS.push("idealist")>>
	<</if>>
	<<if $arcologies[0].FSChattelReligionistLaw == 1>>
		<<set $qualifiedFS.push("religion")>>
	<</if>>
	<<if $arcologies[0].FSRomanRevivalistLaw == 1>>
		<<set $qualifiedFS.push("roman law")>>
	<<elseif $arcologies[0].FSRomanRevivalistDecoration >= 80>>
		<<set $qualifiedFS.push("roman")>>
	<<elseif $arcologies[0].FSEgyptianRevivalistDecoration >= 80>>
		<<set $qualifiedFS.push("egyptian")>>
	<<elseif $arcologies[0].FSAztecRevivalistLaw == 1>>
		<<set $qualifiedFS.push("aztec law")>>
	<<elseif $arcologies[0].FSAztecRevivalistDecoration >= 80>>
		<<set $qualifiedFS.push("aztec")>>
	<<elseif $arcologies[0].FSArabianRevivalistLaw == 1>>
		<<set $qualifiedFS.push("arabian law")>>
	<<elseif $arcologies[0].FSArabianRevivalistDecoration >= 80>>
		<<set $qualifiedFS.push("arabian")>>
	<<elseif $arcologies[0].FSEdoRevivalistLaw == 1>>
		<<set $qualifiedFS.push("edo law")>>
	<<elseif $arcologies[0].FSEdoRevivalistDecoration >= 80>>
		<<set $qualifiedFS.push("edo")>>
	<<elseif $arcologies[0].FSChineseRevivalistLaw == 1>>
		<<set $qualifiedFS.push("chinese law")>>
	<<elseif $arcologies[0].FSChineseRevivalistDecoration>>
		<<set $qualifiedFS.push("chinese")>>
	<</if>>
	<<set _caught = 0>>
	<<if $rep >= 18000>> /* prestigious */
		<<set _income = random(8500,9000)>>
	<<elseif $rep >= 9000>> /* well known */
		<<set _income = random(4500,5000)>>
	<<else>>
		<<set _income = random(1500,2000)>>
	<</if>>
	<<switch $qualifiedFS.random()>>
	<<case "eugenics">>
		<<set _income += random(2500,4000)>>
		<<if $eugenicsFullControl != 1>>
			You are smuggling <<if $PC.dick != 0>>your<<else>>one of the Societal Elite's<</if>> semen to allow some desperate girls to be pregnant. Anonymity is really hard to attain, and it is easy to find out what you've been doing. Even if you did manage to make @@.yellowgreen;<<print cashFormat(_income)>>,@@ the Societal Elite are @@.red;quite displeased@@ by your actions.
			<<set $failedElite += 50, _caught = 1>>
		<<else>>
			You are smuggling <<if $PC.dick != 0>>your<<else>>one of the Societal Elite's<</if>> semen to allow some desperate girls to be pregnant. Anonymity is really hard to attain, and it is easy to find out what you've been doing. Even if you did manage to make @@.yellowgreen;<<print cashFormat(_income)>>,@@ the Societal Elite are @@.red;quite displeased@@ by your actions, even though they know how little they can do about it now.
			<<set _caught = 1>>
		<</if>>
	<<case "paternalist">>
		<<set _income += random(1000,1500)>>
		You manage to find a few low-standards slavers without any problem, but when you actually try to do business, you are quickly recognized. You only manage to make @@.yellowgreen;<<print cashFormat(_income)>>@@ before you are sent away. The people of your arcology are @@.red;outraged by your lack of respect@@ for slave rights.
		<<set _caught = 1>>
	<<case "supremacist">>
		<<set _income += random(2000,3000)>>
		When it comes to smuggling in your arcology, there is no better target than $arcologies[0].FSSupremacistRace slaves, and there is a high demand for them, making you a nice @@.yellowgreen;<<print cashFormat(_income)>>.@@ Participating in this slave trade means you can control who is set. Your people do not see things in the same light though, and @@.red;your reputation takes a big hit.@@
		<<set _caught = 1>>
	<<case "degradationist">>
		<<set _income += random(2000,3000)>>
		During your free time, you make business with a few low-standards slavers and manage to buy stolen slaves and sell them at a profit. Even if people recognized you, such treatment of slaves is normal, and only a few people would really complain about it. Your dealings have made you @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<case "repopulation">>
		<<set _income += random(1500,2500)>>
		You manage to discreetly rent out your remote surgery services for abortions. You make sure the people do not recognize your penthouse, having them come blindfolded or unconscious, should the abortion request does not come from themselves. With this, you make @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<case "fundamentalist">>
		<<set _income += random(1500,2500)>>
		You manage to arrange a few sex-changes and geldings in your own remote surgery for some powerful people to accommodate your arcology's sense of power, but also for people who want to transform others into females so that they lose all the power they have. This makes you @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<case "hedonistic">>
		<<set _income += random(1500,2500)>>
		Since most of what the Old World considered to be illegal is legal in your arcology, "smuggling" is quite common, and you easily find people ready to pay for your help with dealing with their competition. With this, you manage to make @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<case "pastoralist">>
		<<set _income += random (1500,2500)>>
		You take advantage of your own laws, making sure that animal products still come into your arcology. But you also make sure to make them as disgusting as possible so that people would rather turn to slave-produced ones instead. This allows you to make @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<case "body purist">>
		<<set _income += random(1500,2500)>>
		In your arcology, people are expected to be all natural, but this doesn't mean the same thing applies outside. By buying slaves, giving them implants and quickly selling them before anyone notices, you manage to make @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<case "subjugationist">>
		<<set _income += random(1500,2500)>>
		You manage to work with some slavers that deal exclusively in $arcologies[0].FSSubjugationistRace slaves, and you export them from the arcology at a cost, bringing in @@.yellowgreen;<<print cashFormat(_income)>>.@@ Considering most people do not care about the fate of the slaves, they are simply mildly annoyed at the short-term raise of prices due to the exportation.
	<<case "radicalist">>
		<<set _income += random(2500,4000)>>
		Anal pregnancy may be accepted in your arcology, but seeing how it goes against the laws of nature makes it a gold mine for dirty businesses; you have rich slaveowners and well-known slavers come to you with their best sissies so that you can implant them with artificial uteri. This flourishing business made you @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<case "transformation">>
		<<set _income += random(2500,4000)>>
		Your arcology is well known for its implants, and usually, one would have to pay a fortune simply to have a clinic implant them with normal implants. You take advantage of this trend to rent your remote surgery and your knowledge of gigantic implants to slavers for a cut of their profit. This gets you @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<case "youth">>
		<<set _income += random(1500,2500)>>
		Youth is more important than anything in your arcology, yet some people who are not really in their prime are rich and powerful, enough that renting your remote surgery to them for age lifts and total body rework is quite worth it, both for them and for you. You get paid @@.yellowgreen;<<print cashFormat(_income)>>@@ for these services.
	<<case "maturity">>
		<<set _income += random(1500,2500)>>
		In your arcology, the older the slave, the better. This also means that your arcology deals a lot in curatives and preventatives, as well as less-than-legal drugs that are supposed to extend one's lifespan. You manage to ship in a few of these drugs and sell them at a high price, making you @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<case "slimness">>
		<<set _income += random(1500,2500)>>
		Your arcology treats chubby people quite poorly, so they are ready to spend a lot of money on surgeries and supposed "miracle" solutions. When they can't afford legal and efficient methods, they have to turn to other drugs. The sales bring you @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<case "expansionist">>
		<<set _income += random(2500,4000)>>
		Your arcology likes its slaves nice and stacked and you have exactly the drugs for it. But you always make sure to produce just a bit more, enough to not alarm anybody who might be watching, but also enough to sell to other prominent slaveowners outside your arcology, who pay you @@.yellowgreen;<<print cashFormat(_income)>>@@ for them.
	<<case "idealist">>
		<<set _income += random(1500,2500)>>
		Your society's obsession with fit and muscular slaves has developed a particular interest in steroids and all kinds of drugs to tone one's body. As an arcology owner, you always have access to the most potent of them, but this is not the case for lower class citizens; some of them just aren't willing to pay a lot for them, so they buy experimental drugs off the black market. Participating in these activities made you @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<case "religion">>
		<<set _income += random(2000,3000)>>
		The best smugglers know how to use the law to its advantage, and not only are you a really good smuggler, you're also the law itself. You have word spread that some company has done something blasphemous, and have them pray and pay for forgiveness. Panicked at the word of their Prophet, the higher-ups of the company give you @@.yellowgreen;<<print cashFormat(_income)>>@@ for salvation.
	<<case "roman law">>
		<<set _income += random(2000,3000)>>
		Every citizen of your arcology is trained in the art of war and supposed to defend its arcology when the time comes. This, of course, also means that people are supposed to be able to defend themselves. By arranging with the best fighters around, you manage to make some citizens face outrageous losses; so bad, in fact, that they are forced to pay @@.yellowgreen;<<print cashFormat(_income)>>@@ for you to forget the shame they've put on your arcology.
	<<case "roman">>
		<<set _income += random(1500,2500)>>
		Slaveowners from all around your arcology are rushing to the pit, eager to show their most recent training. Some of them, having more cunning than experience, are ready to sway the fight in their direction, no matter what it takes. You make sure to catch such people, and only agree to let them do their dirty tricks if they pay you. By the times the bribes and betting are done, you have made @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<case "egyptian">>
		<<set _income += random(1500,2500)>>
		Having a society that likes incest often means that people are ready to go to great lengths to get their hands on people related to their slaves. In the smuggling business, this means that kidnapped relatives are common, and as an arcology owner with access to data on most of the slaves, you are able to control this trade a bit in exchange for @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<case "aztec law">>
		<<set _income += random(2000,3000)>>
		People that inherit trades are sometimes too lazy to take classes in an academy, but at the same time, they fear what might happen were they to go against you. To solve both problems, you arrange a trade of fake diplomas, making sure that there is always a small detail to recognize them, so that they will get exposed in due time. This has made you @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<case "aztec">>
		<<set _income += random(1500,2500)>>
		There are a lot of slaveowners in your arcology that tend to grow quickly attached to the slaves they planned on sacrificing to sate the blood thirst of other important citizens, and such owners often come to you, begging you to swap two of their slaves' appearance. You accept, but not for free. After the surgery, this has made you @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<case "arabian law">>
		<<set _income += random(2000,3000)>>
		You have a lot of persons scared of the consequences of not being a part of your society; even if they pay the Jizya, other citizens are not forced to accept them. So if they were to get mugged in some dark alley, people would not get outraged, and there probably wouldn't be any investigations. After buying everyone's silence, you still had @@.yellowgreen;<<print cashFormat(_income)>>@@ to put in your pockets.
	<<case "arabian">>
		<<set _income += random(1500,2500)>>
		People in your arcology are supposed to keep a myriad of slaves as their personal harem, and failure to do so is considered to be highly dishonorable. This opens up some opportunities for smuggling, as people are ready to go to great length to get an edge against their competitors. Becoming a part for this business has made you @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<case "edo law">>
		<<set _income += random(2000,3000)>>
		Outside culture is banned in your arcology. Your citizens do not need anything other than what you have inside. But this doesn't help with their curiosity — they always want to discover what the outside world is like. So you let some news and a few books from other cultures slip in, but not before you made sure they would disgust your citizens and reinforce their love for the Edo culture. The sales brought you @@.yellowgreen;<<print cashFormat(_income)>>@@.
	<<case "edo">>
		<<set _income += random(1500,2500)>>
		During important meetings with higher society, it is wise to have a lot of slaves to put at the disposition of others. But some slaveowners grow really attached to their slaves, and so they'd much rather rent out unknown slaves from an anonymous owner's stock than use their own. This is a good opportunity to make some money, as shown by the @@.yellowgreen;<<print cashFormat(_income)>>@@ you managed to make.
	<<case "chinese law">>
		<<set _income += random(2000,3000)>>
		This time, you have a good idea that will also make use of your Head Girl. You coax her into thinking she should accept bribes for the time being, making up a good reason on the spot, and she ends up bringing back @@.yellowgreen;<<print cashFormat(_income)>>@@ from all the bribes people gave for her to turn the other way.
	<<case "chinese">>
		<<set _income += random(1500,2500)>>
		Being under what people call the Mandate of Heaven means you have a crucial importance in society, and some desperate people are willing to pay just for you to throw a word or small gesture in their direction, such as simply acknowledging a child or a slave, thinking that such things will make sure the Heavens smile upon them. For these services, you get @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<default>>
		<<set _income += random(500,2000)>>
		You use former contacts to get you some opportunities in your arcology and deal with them. You make little money, only @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<</switch>>
	/* reputation effects */
	<<if $rep >= 18000>> /* prestigious */
		Your strong reputation makes it both really easy to find opportunities to gain quite a bit of money, but at the same time, it makes it hard to do so anonymously.
		<<if _caught || random(1,100) >= 25>>
			Even with your attempts at discretion, people somehow manage to recognize you, and @@.red;rumors that you're back in the gang business@@ are spreading through your arcology like wildfire.
			<<set $rep = Math.trunc($rep*.25)>>
			<<set $enduringRep *= .5>>
		<<elseif random(1,100) >= 50>>
			You are as discreet as possible, but yet some people seem to have doubts about who you are, and for quite some time, you can hear whispers @@.red;that you may be helping the more shady businesses in your arcology@@.
			<<set $rep = Math.trunc($rep*.5)>>
			<<set $enduringRep *= .75>>
		<<else>>
			You fool almost everyone with your <<if ($PC.actualAge >= 30)>>experience and <</if>>cunning, but the sole fact that smugglers are in your arcology @@.red;damages your reputation@@.
			<<set $rep = Math.trunc($rep*.75)>>
			<<set $enduringRep *= .9>>
		<</if>>
	<<elseif $rep >= 9000>> /* well known */
		Your reputation helps you find opportunities that need people who have proved discreet. But even when taking precautions, nothing guarantees you can stay anonymous.
		<<if _caught || random(1,100) >= 40>>
			Try as you might, people notice who you are, and the next day, @@.red;rumors about your business affairs@@ are already spreading everywhere in your arcology.
			<<set $rep = Math.trunc($rep*.4)>>
			<<set $enduringRep *= .65>>
		<<elseif random(1,100) >= 50>>
			You manage to fool some people, but not everyone, and soon enough, people are @@.red;discussing whether you're smuggling or not@@.
			<<set $rep = Math.trunc($rep*.65)>>
			<<set $enduringRep *= .9>>
		<<else>>
			You somehow manage to hide your identity for all but the most cunning of people, so the only thing that really @@.red;damages your reputation@@ is the fact that people associate you with gangs all the time.
			<<set $rep = Math.trunc($rep*.9)>>
		<</if>>
	<<else>> /* low reputation */
		<<if !_caught && random(1,100) >= 90>>
			You work efficiently, not spending any time talking to people more than you need. Your efficiency even managed to earn you @@.green;quite a few good words@@ from some people who were leading double lives like you were, and they made sure to get a word in about you in their business conversations.
			<<set $rep = Math.trunc($rep*1.05)>>
		<<elseif !_caught && random(1,100) >= 50>>
			You get a few curious glances from some people here and there, but most people do not care about who you are, or maybe they don't know, and it's better this way. Though your regular absences have @@.red;not gone unnoticed@@ and some baseless rumors are spreading.
			<<set $rep = Math.trunc($rep*.8)>>
			<<set $enduringRep *= .95>>
		<<else>>
			Some people whisper when you pass by them. They seem to know who you are, and you know that @@.red;after a bit of alcohol, their tongue will come loose,@@ and you can't afford to shut them up right here, right now.
			<<set $rep = Math.trunc($rep*.55)>>
			<<set $enduringRep *= .8>>
		<</if>>
	<</if>>
	<<set _income += Math.trunc(Math.min(3000 * Math.log($cash+1), $cash * 0.07))>>
	This week, your illicit and legitimate business dealings earned you a combined total of @@.yellowgreen;<<print cashFormat(_income)>>@@.
	<<run cashX(_income, "personalBusiness")>>
<<elseif ($cash > 1000) && ($personalAttention == "business")>>
	<<if $PC.belly >= 1500>>
		<<set _income = random(500,1000)>>
	<<else>>
		<<set _income = random(1000,1500)>>
	<</if>>
	<<if $PC.trading >= 100>>
		You focus on business and leverage your @@.springgreen;venture capital experience@@ to make good money:
		<<set _income += random(5000,10000) + Math.trunc(Math.min(4000 * Math.log($cash), $cash * 0.07))>>
	<<elseif $PC.career == "arcology owner">>
		You focus on business and leverage your @@.springgreen;Free Cities experience@@ to make good money:
		<<set _income += random(5000,10000) + Math.trunc(Math.min(4000 * Math.log($cash), $cash * 0.07))>>
	<<else>>
		You focus on business this week and make money
		<<set _income += Math.trunc(Math.min(3500 * Math.log($cash), $cash * 0.07))>>
	<</if>>
	@@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<run cashX(_income, "personalBusiness")>>
	<<if $arcologies[0].FSRomanRevivalist != "unset">>
		Society @@.green;approves@@ of your close attention to your own affairs; this advances your image as a <<if $PC.title == 1>>well-rounded Roman man<<else>>responsible Roman lady<</if>>.
		<<= FSChange("RomanRevivalist", 2)>>
	<</if>>
<<elseif ($cash > 1000)>>
	<<set _income = Math.trunc(Math.min(3000 * Math.log($cash), $cash * 0.07))>>
	This week, your business endeavors made you @@.yellowgreen;<<print cashFormat(_income)>>.@@
	<<run cashX(_income, "personalBusiness")>>
<<else>>
	You have enough cash to manage your affairs, but not enough to do much business.
<</if>>

<<if ($personalAttention == "proclamation")>>
	After several days of preparation you are ready to issue the proclamation. You announce to the arcology your plans and in short order you use <<if $proclamationCurrency == "authority">>control over the arcology<<elseif $proclamationCurrency == "reputation">>great influence<<elseif $proclamationCurrency == "cash">> vast financial means<</if>> to
	<<if $proclamationType == "security">>
		gather crucial information for your security department. In just a few many hours holes are plugged and most moles are eliminated. @@.green;Your security greatly increased@@.
		<<set $security = Math.clamp($security + 25,0,100)>>
		<<if $proclamationCurrency == "authority">>
			<<set $authority = Math.clamp($authority - 2000,0,20000)>>
		<<elseif $proclamationCurrency == "reputation">>
			<<set $rep = Math.clamp($rep - 4000,0,20000)>>
		<<else>>
			<<run cashX(-8000, "personalBusiness")>>
		<</if>>
	<<elseif $proclamationType == "crime">>
		force the arrest of many suspected citizens. Their personal power allowed them to avoid justice for a long time, but this day is their end. @@.green;Your crime greatly decreased@@.
		<<set $crime = Math.clamp($crime - 25,0,100)>>
		<<if $proclamationCurrency == "authority">>
			<<set $authority = Math.clamp($authority - 2000,0,20000)>>
		<<elseif $proclamationCurrency == "reputation">>
			<<set $rep = Math.clamp($rep - 4000,0,20000)>>
		<<else>>
			<<run cashX(-8000, "personalBusiness")>>
		<</if>>
	<</if>>
	<<set $proclamationsCooldown = 4, $personalAttention = "business">>
<</if>>

<<if $PC.actualAge >= $IsInPrimePC && $PC.actualAge < $IsPastPrimePC>>
	<<set _Cal = Math.ceil(random($AgeTrainingLowerBoundPC,$AgeTrainingUpperBoundPC)*$AgeEffectOnTrainerEffectivenessPC)>>
	<<set _X = 1>>
<</if>>
/* <<if $PC.actualAge >= $IsPastPrimePC>> */
/* <<set _Cal = Math.ceil(random($AgeTrainingLowerBoundPC,$AgeTrainingUpperBoundPC)*$AgeEffectOnTrainerEffectivenessPC)>> */
/* <<set _X = 0>> */
/* <</if>> */

<<if $PCWounded != 1>>
<<switch $personalAttention>>
<<case "trading">>
	<<set _oldSkill = $PC.trading>>
	<<if _X == 1>>
		<<set $PC.trading += _Cal>>
	<<else>>
		<<set $PC.trading -= _Cal>>
	<</if>>
	<<if _oldSkill <= 10>>
		<<if $PC.trading > 10>>
			You now have @@.green;basic knowledge@@ about how to be a venture capitalist.
		<<else>>
			You have made progress towards a basic knowledge of venture capitalism.
		<</if>>
	<<elseif _oldSkill <= 30>>
		<<if $PC.trading > 30>>
			You now have @@.green;some skill@@ as a venture capitalist.
		<<else>>
			You have made progress towards being skilled in venture capitalism.
		<</if>>
	<<elseif _oldSkill <= 60>>
		<<if $PC.trading > 60>>
			You are now an @@.green;expert venture capitalist.@@
		<<else>>
			You have made progress towards being an expert in venture capitalism.
		<</if>>
	<<else>>
		<<if $PC.trading >= 100>>
			<<set $personalAttention = "sex">>
			You are now a @@.green;master venture capitalist.@@
		<<else>>
			You have made progress towards mastering venture capitalism.
		<</if>>
	<</if>>

<<case "warfare">>
	<<set _oldSkill = $PC.warfare>>
	<<if _X == 1>>
		<<set $PC.warfare += _Cal>>
	<<else>>
		<<set $PC.warfare -= _Cal>>
	<</if>>
	<<if _oldSkill <= 10>>
		<<if $PC.warfare > 10>>
			You now have @@.green;basic knowledge@@ about how to be a mercenary.
		<<else>>
			You have made progress towards a basic knowledge of mercenary work.
		<</if>>
	<<elseif _oldSkill <= 30>>
		<<if $PC.warfare > 30>>
			You now have @@.green;some skill@@ as a mercenary.
		<<else>>
			You have made progress towards being skilled in mercenary work.
		<</if>>
	<<elseif _oldSkill <= 60>>
		<<if $PC.warfare > 60>>
			You are now an @@.green;expert mercenary.@@
		<<else>>
			You have made progress towards being an expert in mercenary work.
		<</if>>
	<<else>>
		<<if $PC.warfare >= 100>>
			<<set $personalAttention = "sex">>
			You are now a @@.green;master mercenary.@@
		<<else>>
			You have made progress towards mastering mercenary work.
		<</if>>
	<</if>>

<<case "slaving">>
	<<set _oldSkill = $PC.slaving>>
	<<if _X == 1>>
		<<set $PC.slaving += _Cal>>
	<<else>>
		<<set $PC.slaving -= _Cal>>
	<</if>>
	<<if _oldSkill <= 10>>
		<<if $PC.slaving > 10>>
			You now have @@.green;basic knowledge@@ about how to be a slaver.
		<<else>>
			You have made progress towards a basic knowledge of slaving.
		<</if>>
	<<elseif _oldSkill <= 30>>
		<<if $PC.slaving > 30>>
			You now have @@.green;some skill@@ as a slaver.
		<<else>>
			You have made progress towards being skilled in slaving.
		<</if>>
	<<elseif _oldSkill <= 60>>
		<<if $PC.slaving > 60>>
			You are now an @@.green;expert slaver.@@
		<<else>>
			You have made progress towards being an expert in slaving.
		<</if>>
	<<else>>
		<<if $PC.slaving >= 100>>
			<<set $personalAttention = "sex">>
			You are now a @@.green;master slaver.@@
		<<else>>
			You have made progress towards mastering slaving.
		<</if>>
	<</if>>

<<case "engineering">>
	<<set _oldSkill = $PC.engineering>>
	<<if _X == 1>>
		<<set $PC.engineering += _Cal>>
	<<else>>
		<<set $PC.engineering -= _Cal>>
	<</if>>
	<<if _oldSkill <= 10>>
		<<if $PC.engineering > 10>>
			You now have @@.green;basic knowledge@@ about how to be an arcology engineer.
		<<else>>
			You have made progress towards a basic knowledge of arcology engineering.
		<</if>>
	<<elseif _oldSkill <= 30>>
		<<if $PC.engineering > 30>>
			You now have @@.green;some skill@@ as an arcology engineer.
		<<else>>
			You have made progress towards being skilled in arcology engineering.
		<</if>>
	<<elseif _oldSkill <= 60>>
		<<if $PC.engineering > 60>>
			You are now an @@.green;expert arcology engineer.@@
		<<else>>
			You have made progress towards being an expert in arcology engineering.
		<</if>>
	<<else>>
		<<if $PC.engineering >= 100>>
			<<set $personalAttention = "sex">>
			You are now a @@.green;master arcology engineer.@@
		<<else>>
			You have made progress towards mastering arcology engineering.
		<</if>>
	<</if>>

<<case "medicine">>
	<<set _oldSkill = $PC.medicine>>
	<<if _X == 1>>
		<<set $PC.medicine += _Cal>>
	<<else>>
		<<set $PC.medicine -= _Cal>>
	<</if>>
		<<if _oldSkill <= 10>>
		<<if $PC.medicine > 10>>
			You now have @@.green;basic knowledge@@ about how to be a slave surgeon.
		<<else>>
			You have made progress towards a basic knowledge of slave surgery.
		<</if>>
	<<elseif _oldSkill <= 30>>
		<<if $PC.medicine > 30>>
			You now have @@.green;some skill@@ as a slave surgeon.
		<<else>>
			You have made progress towards being skilled in slave surgery.
		<</if>>
	<<elseif _oldSkill <= 60>>
		<<if $PC.medicine > 60>>
			You are now an @@.green;expert slave surgeon.@@
		<<else>>
			You have made progress towards being an expert in slave surgery.
		<</if>>
	<<else>>
		<<if $PC.medicine >= 100>>
			<<set $personalAttention = "sex">>
			You are now a @@.green;master slave surgeon.@@
		<<else>>
			You have made progress towards mastering slave surgery.
		<</if>>
	<</if>>

<<case "hacking">>
	<<set _oldSkill = $PC.hacking>>
	<<if _X == 1>>
		<<set $PC.hacking += _Cal>>
	<<else>>
		<<set $PC.hacking -= _Cal>>
	<</if>>
	<<if _oldSkill <= 10>>
		<<if $PC.hacking > 10>>
			You now have @@.green;basic knowledge@@ about how to hack and manipulate data.
		<<else>>
			You have made progress towards a basic knowledge of hacking and data manipulation.
		<</if>>
	<<elseif _oldSkill <= 30>>
		<<if $PC.hacking > 30>>
			You now have @@.green;some skill@@ as a hacker.
		<<else>>
			You have made progress towards being skilled in hacking and data manipulation.
		<</if>>
	<<elseif _oldSkill <= 60>>
		<<if $PC.hacking > 60>>
			You are now an @@.green;expert hacker.@@
		<<else>>
			You have made progress towards being an expert in hacking and data manipulation.
		<</if>>
	<<else>>
		<<if $PC.hacking >= 100>>
			<<set $personalAttention = "sex">>
			You are now a @@.green;master hacker.@@
		<<else>>
			You have made progress towards mastering hacking and data manipulation.
		<</if>>
	<</if>>

<<case "technical accidents">> /* needs work */
	<<set _windfall = (150*$PC.hacking)+random(100,2500), _X = 0>>
	<<if $PC.hacking == -100>>
		<<set _Catchtchance = 10>>
	<<elseif $PC.hacking <= -75>>
		<<set _Catchtchance = 30>>
	<<elseif $PC.hacking <= -50>>
		<<set _Catchtchance = 40>>
	<<elseif $PC.hacking <= -25>>
		<<set _Catchtchance = 45>>
	<<elseif $PC.hacking == 0>>
		<<set _Catchtchance = 50>>
	<<elseif $PC.hacking <= 25>>
		<<set _Catchtchance = 60>>
	<<elseif $PC.hacking <= 50>>
		<<set _Catchtchance = 70>>
	<<elseif $PC.hacking <= 75>>
		<<set _Catchtchance = 85>>
	<<elseif $PC.hacking >= 100>>
		<<set _Catchtchance = 100>>
	<</if>>
	This week your services to the highest bidder earned you @@.yellowgreen;<<print cashFormat(_windfall)>>.@@
	<<if random(0,100) >= _Catchtchance>>
		However, since the source of the attack was traced back to your arcology, your
		<<if $secExp == 1>> <<set _X = 1>>
			@@.red;authority,@@ <<set $authority -= random(100,500)>> @@.red;crime rate@@ <<set $crime += random(10,25)>> and
		<</if>>
		@@.red;reputation@@ <<set $rep -= random (100,500)>>
		<<if _X != 1>>
			has
		<<else>>
			have all
		<</if>>
		been negatively affected.
	<</if>>
	<<if $PC.hacking < 100>>
		<<set $PC.hacking += .5>>
	<</if>>
	<<run cashX(_windfall, "personalBusiness")>>

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

<<if $CashForRep == 1>>
	<<if $cash > 1000>>
		This week you gave up business opportunities worth <<print cashFormat($policyCost)>> to help deserving citizens, @@.green;burnishing your reputation.@@
		<<set $rep += 100>>
		<<run cashX(forceNeg($policyCost), "policies")>>
		<<if $PC.degeneracy > 1>>
			This also helps @@.green;offset any rumors@@ about your private actions.
			<<set $PC.degeneracy -= 1>>
		<</if>>
	<<else>>
		Money was too tight this week to risk giving up any business opportunities.
	<</if>>
<</if>>
<<if $goodImageCampaign == 1>>
	<<if $cash > 5000>>
		This week you paid <<print cashFormat($policyCost)>> to have positive rumors spread about you, @@.green;making you look good<<if $PC.degeneracy > 1>> and weakening existing undesirable rumors<<set $PC.degeneracy -= 2>><</if>>.@@
		<<set $rep += 50>>
		<<run cashX(forceNeg($policyCost), "policies")>>
	<<else>>
		You lacked enough extra ¤ to pay people to spread positive rumors about you this week.
	<</if>>
<</if>>
<<if $rep > 100>>
	<<if $RepForCash == 1>>
		This week you used your position to secure business opportunities worth <<print cashFormat($policyCost)>> at the expense of citizens, @@.red;damaging your reputation.@@
		<<set $rep -= 100>>
		<<run cashX($policyCost, "personalBusiness")>>
	<</if>>
<</if>>
<<if $rep <= 18000>>
	<<if $RegularParties != 1>>
		<<if $rep > 1500>>
			Your @@.red;reputation is damaged@@ by your not hosting regular social events for your leading citizens.
			<<set $rep -= 100>>
		<<else>>
			Though you are not hosting regular social events for your leading citizens, your lack of renown prevents this from damaging your reputation; they don't expect someone so relatively unknown to be throwing parties.
		<</if>>
	<</if>>
<</if>>

<<if $secExp == 1>>
	<<if $smilingManFate == 0 && random(1,100) >= 85>>
		This week one of the offside adventures of The Smiling Man produced a copious amount of money, of which @@.yellowgreen;you receive your share@@.
		<<run cashX(random(10,20) * 1000, "personalBusiness")>>
	<</if>>

	<<if $sellData == 1>>
		<<set _upgradeCount = 0>>
		<<if $secUpgrades.nanoCams == 1>>
			<<set _upgradeCount += 1>>
		<</if>>
		<<if $secUpgrades.cyberBots == 1>>
			<<set _upgradeCount += 1>>
		<</if>>
		<<if $secUpgrades.eyeScan == 1>>
			<<set _upgradeCount += 1>>
		<</if>>
		<<if $secUpgrades.cryptoAnalyzer == 1>>
			<<set _upgradeCount += 1>>
		<</if>>
		<<if $crimeUpgrades.autoTrial == 1>>
			<<set _upgradeCount += 1>>
		<</if>>
		<<if $crimeUpgrades.autoArchive == 1>>
			<<set _upgradeCount += 1>>
		<</if>>
		<<if $crimeUpgrades.worldProfiler == 1>>
			<<set _upgradeCount += 1>>
		<</if>>
		<<if $crimeUpgrades.advForensic == 1>>
			<<set _upgradeCount += 1>>
		<</if>>
		<<if $intelUpgrades.sensors == 1>>
			<<set _upgradeCount += 1>>
		<</if>>
		<<if $intelUpgrades.radar == 1>>
			<<set _upgradeCount += 1>>
		<</if>>
		<<if $intelUpgrades.signalIntercept == 1>>
			<<set _upgradeCount += 1>>
		<</if>>
		<<set _dataGain = _upgradeCount * 200>>
		<<if !isInt(_dataGain)>>
			<br>@@.red;Error, dataGain is NaN@@
		<<else>>
			You are selling the data collected by your security department, which earns a discreet sum of @@.yellowgreen;<<print cashFormat(_dataGain)>>@@.
			<<run cashX(_dataGain, "personalBusiness")>>
			Many of your citizens are not enthusiastic of this however, @@.red;damaging your authority@@.
			<<set $authority -= 50>>
		<</if>>
	<</if>>

	<<if $marketInfiltration == 1>>
		<<set _blackMarket = random(7000,8000)>>
		Your secret service makes use of black markets and illegal streams of goods to make a profit, making you @@.yellowgreen;<<print cashFormat(_blackMarket)>>.@@ This however allows @@.red;crime to flourish@@ in the underbelly of the arcology.
		<<set $crime += random(1,3)>>
	<</if>>

	<<if $arcRepairTime > 0>>
		The recent rebellion left the arcology wounded and it falls to its owner to fix it. It will still take <<if $arcRepairTime > 1>>$arcRepairTime weeks<<else>>a week<</if>> to finish repair works.
		<<run cashX(-5000, "personalBusiness")>>
		<<set $arcRepairTime--, $PC.engineering += .1>>
	<</if>>
<</if>>

Routine upkeep of your demesne costs @@.yellow;<<print cashFormat($costs)>>.@@
<<if $plot == 1>>
	<<if $week > 10>>
		<<if $weatherToday.severity-$weatherCladding > 2>>
			<<set $weatherAwareness = 1>>
			<<if $weatherCladding == 1>>
				<<set _weatherRepairCost = Math.trunc((($weatherToday.severity-3)*($arcologies[0].prosperity*random(50,100)))+random(1,100)), $PC.engineering += .1>>
				$arcologies[0].name's hardened exterior only partially resisted the extreme weather this week, and it requires repairs costing @@.yellow;<<print cashFormat(_weatherRepairCost)>>.@@ Your citizens are @@.green;grateful@@ to you for upgrading $arcologies[0].name to provide a safe haven from the terrible climate.
				<<set $rep += 100>>
			<<elseif $weatherCladding == 2>>
				<<set _weatherRepairCost to Math.trunc((($weatherToday.severity-4)*($arcologies[0].prosperity*random(50,100)))+random(1,100)), $PC.engineering += .1>>
				$arcologies[0].name's hardened exterior only partially resisted the extreme weather this week, and it requires repairs costing @@.yellow;<<print cashFormat(_weatherRepairCost)>>.@@ Your citizens are @@.green;grateful@@ to you for upgrading $arcologies[0].name to provide a safe haven from the terrible climate.
				<<set $rep += 100>>
			<<else>>
				<<set _weatherRepairCost = Math.trunc((($weatherToday.severity-2)*($arcologies[0].prosperity*random(50,100)))+random(1,100)), $PC.engineering += .1>>
				Severe weather damaged the arcology this week, requiring repairs costing @@.yellow;<<print cashFormat(_weatherRepairCost)>>.@@ Your citizens are @@.red;unhappy@@ that the arcology has proven vulnerable to the terrible climate.
				<<set $rep -= 100>>
			<</if>>
			<<if $cash > 0>>
				<<run cashX(_weatherRepairCost, "weather")>>
			<<elseif $arcologies[0].FSRestartDecoration == 100>>
				Since you lack the resources to effect prompt repairs yourself, the Societal Elite cover for you. The arcology's prosperity is @@.red;is damaged,@@ but your public reputation is left intact.
				<<if $eugenicsFullControl != 1>>
					The Societal Elite @@.red;are troubled by your failure@@.
					<<set $failedElite += 100>>
				<</if>>
				<<if $arcologies[0].prosperity > 50>>
					<<set $arcologies[0].prosperity -= random(5,10), $PC.engineering += .1>>
				<</if>>
				<<run cashX(forceNeg(Math.trunc(_weatherRepairCost/4)), "weather")>>
			<<else>>
				Since you lack the resources to effect prompt repairs yourself, prominent citizens step in to repair their own parts of the arcology. This is @@.red;terrible for your reputation,@@ and it also @@.red;severely reduces the arcology's prosperity.@@
				<<if $arcologies[0].prosperity > 50>>
					<<set $arcologies[0].prosperity -= random(5,10), $PC.engineering += .1>>
				<</if>>
				<<set $rep = Math.trunc($rep*0.8)>>
				<<set $PC.engineering += .1>>
				<<run cashX(forceNeg(Math.trunc(_weatherRepairCost/4)), "weather")>>
			<</if>>
		<<elseif $weatherToday.severity-$weatherCladding <= 2>>
			<<if $weatherToday.severity > 2>>
				<<set $weatherAwareness = 1>>
				The arcology's hardened exterior resisted severe weather this week. Your citizens are @@.green;grateful@@ to you for maintaining the arcology as a safe haven from the terrible climate.
				<<set $rep += 100>>
			<</if>>
		<</if>>
	<</if>>
<</if>>
<<set $costs = Math.trunc(Math.abs(getCost($slaves)) * 100)/100>> /*overwrite the prediction and actually pay the bill.  GetCost should return a negative. Round to two decimal places.*/
<<if isNaN($costs)>>
	<br>@@.red;Error, costs is NaN@@
<</if>>

<<if $secExp == 1>>
	<<if $weapManu == 1>>
		<br>
		<br>
		The weapons manufacturing complex produces armaments
		<<if $weapProductivity <= 2>>
			at a steady pace.
		<<else>>
			with great efficiency.
		<</if>>
		<<set _income = 0>>
		<<set _price = Math.trunc(Math.clamp(random(1,2) + ($arcologies[0].prosperity / 15) - ($week / 30), 2, 8))>>
		<<set _factoryMod = Math.round(1 + ($weapProductivity + $weapLab) / 2 + ($weapMenials / 100))>>
		<<if $sellTo.citizen == 1>>
			<<if $weaponsLaw == 3>>
				Your lax regulations regarding weapons allows your citizens to buy much of what you are capable of producing.
				<<set _income += Math.round(($ACitizens * 0.1) * _price * _factoryMod)>>
			<<elseif $weaponsLaw >= 1>>
				Your policies allow your citizen to buy your weaponry and they buy much of what you are capable of producing.
				<<set _income += Math.round((($ACitizens * 0.1) * _price * _factoryMod) / (3 - $weaponsLaw))>>
			<<else>>
				Your policies do allow your citizen to buy weaponry, meaning all your income will come from exports.
			<</if>>
		<</if>>
		<<if $sellTo.raiders == 1>>
			Some weapons are sold to the various raider gangs infesting the wastelands.
			<<set _income += Math.round($week / 3 * (_price / 2) * 10 * _factoryMod)>>
		<</if>>
		<<if $sellTo.oldWorld == 1>>
			Part of our production is sold to some old world nations.
			<<set _income += Math.round($week / 3 * _price * 10 * _factoryMod)>>
		<</if>>
		<<if $sellTo.raiders == 1>>
			A share of our weapons production is sold to other free cities.
			<<set _income += Math.round($week / 3 * _price * 10 * _factoryMod)>>
		<</if>>
		<<if $peacekeepers.strength >= 50>>
			The peacekeeping force is always in need of new armaments and is happy to be supplied by their ally.
			<<set _income += Math.round($peacekeepers.strength * _price * 10 * _factoryMod)>>
		<</if>>
		<<set _income = Math.trunc(_income * 0.5)>>
		This week we made @@.yellowgreen;<<print cashFormat(_income)>>.@@
		<<if !isInt(_income)>>
			<br>@@.red;Error failed to calculate income@@
		<<else>>
			<<run cashX(_income, "personalBusiness")>>
		<</if>>
	<</if>>

	<<if $taxTrade == 1>> <<set _tradeTax = Math.ceil($trade * random(80,120))>>
		<br>Fees on transitioning goods this week made @@.yellowgreen;<<print cashFormat(_tradeTax)>>.@@
		<<run cashX(Math.ceil(_tradeTax), "personalBusiness")>>
	<</if>>
	<br>
<</if>>

/*Adding random changes to slave demand and supply*/
/*Without events triggering and a relatively average supply/demand situation, the best case scenario is an increase/decrease in the price of slaves of 10 in one week. Chance of these conditions happening are 1/25. For demand or supply to go from average to their maximum will take 25 weeks if rolling highest growth each time a roll is made and all other luck is average. Because of the properties of the market and how it develops the likely prices one will encounter are distributed in a bellshaped fashion, centered around 1000. Minimum possible price is 750, maximum 1250. At +/- 35000 chances of supply or demand getting even more extreme are reduced.*/
<<set _demandSlaveVar = random(-10,10)*10>>
<<set _supplySlaveVar = random(-10,10)*10>>
<<set $slaveCostRandom = random(-3,3)>>
<<if $menialDemandFactor <= -50000>>
	<<set $deltaDemand = random(1,3) * 1000>>
	<<set $demandTimer = random(7,12)>>
	<<set $elapsedDemandTimer = 1>>
	<<set $menialDemandFactor += $deltaDemand + _demandSlaveVar>>
<<elseif $menialDemandFactor >= 50000>>
	<<set $deltaDemand = random(-3,-1) * 1000>>
	<<set $demandTimer = random(7,12)>>
	<<set $elapsedDemandTimer = 1>>
	<<set $menialDemandFactor += $deltaDemand + _demandSlaveVar>>
<<elseif $demandTimer - $elapsedDemandTimer <= 0>>
	<<set $demandTimer = random(7,12)>>
	<<set $elapsedDemandTimer = 1>>
	<<if $menialDemandFactor > 35000>>
		<<set $deltaDemand = random(-3,1) * 1000>>
	<<elseif $menialDemandFactor < -35000>>
		<<set $deltaDemand = random(-1,3) * 1000>>
	<<else>>
		<<set $deltaDemand = random(-2,2) * 1000>>
	<</if>>
	<<set $menialDemandFactor += $deltaDemand + _demandSlaveVar>>
	<<if $menialDemandFactor <= -35000>>
		<br>Demand for slaves is approaching a @@.red;''historic low'',@@ forecasts predict
		<<if $deltaDemand > 0>>
			the market will turn and @@.green;''demand will rise''.@@
		<<elseif $deltaDemand < 0>>
			@@.red;''demand will continue to weaken'',@@ but warn the bottom is in sight.
		<<else>>
			the current demand will @@.yellow;''remain stable''@@ for the coming months.
		<</if>>
	<<elseif $menialDemandFactor <= 20000>>
		<br>Demand for slaves is @@.red;''very low'',@@ forecasts predict
		<<if $deltaDemand > 0>>
			the market will turn and @@.green;''demand will rise''.@@
		<<elseif $deltaDemand < 0>>
			@@.red;''demand will continue to weaken''.@@
		<<else>>
			the current demand will @@.yellow;''remain stable''@@ for the coming months.
		<</if>>
	<<elseif $menialDemandFactor >= 35000>>
		<br>Demand for slaves is approaching a @@.green;''historic high'',@@ forecasts predict
		<<if $deltaDemand > 0>>
			@@.green;''demand will continue to rise'',@@ but warn the peak is in sight.
		<<elseif $deltaDemand < 0>>
			the market will turn and @@.red;''demand will weaken''.@@
		<<else>>
			the current demand will @@.yellow;''remain stable''@@ for the coming months.
		<</if>>
	<<elseif $menialDemandFactor >= 20000>>
		<br>Demand for slaves is @@.green;''very high'',@@ forecasts predict
		<<if $deltaDemand > 0>>
			@@.green;''demand will continue to rise''.@@
		<<elseif $deltaDemand < 0>>
			the market will turn and @@.red;''demand will weaken''.@@
		<<else>>
			the current demand will @@.yellow;''remain stable''@@ for the coming months.
		<</if>>
	<<else>>
		<br>Demand for slaves is @@.yellow;''average'',@@ forecasts predict
		<<if $deltaDemand > 0>>
			the market will see @@.green;''rising demand''.@@
		<<elseif $deltaDemand < 0>>
			the market will see @@.red;''weakening demand''.@@
		<<else>>
			@@.yellow;''no change''@@ for the coming months.
		<</if>>
	<</if>>
<<else>>
	<<set $elapsedDemandTimer += 1>>
	<<set $menialDemandFactor += $deltaDemand + _demandSlaveVar>>
	<<set $menialDemandFactor = Math.clamp($menialDemandFactor,-50000,50000)>>
<</if>>

<<if $menialSupplyFactor <= -50000>>
	<<set $deltaSupply = random(1,3) * 1000>>
	<<set $supplyTimer = random(7,12)>>
	<<set $elapsedSupplyTimer = 1>>
	<<set $menialSupplyFactor += $deltaSupply + _demandSlaveVar>>
<<elseif $menialSupplyFactor >= 50000>>
	<<set $deltaSupply = random(-3,-1) * 1000>>
	<<set $supplyTimer = random(7,12)>>
	<<set $elapsedSupplyTimer = 1>>
	<<set $menialSupplyFactor += $deltaSupply + _demandSlaveVar>>
<<elseif $supplyTimer - $elapsedSupplyTimer <= 0>>
	<<set $supplyTimer = random(7,12)>>
	<<set $elapsedSupplyTimer = 1>>
	<<if $menialSupplyFactor > 35000>>
		<<set $deltaSupply = random(-3,1) * 1000>>
	<<elseif $menialSupplyFactor < -35000>>
		<<set $deltaSupply = random(-1,3) * 1000>>
	<<else>>
		<<set $deltaSupply = random(-2,2) * 1000>>
	<</if>>
	<<set $menialSupplyFactor += $deltaSupply + _supplySlaveVar>>
	<<if $menialSupplyFactor <= -35000>>
		<br>Supply of slaves is approaching a @@.green;''historic low'',@@ forecasts predict
		<<if $deltaSupply > 0>>
			the market will turn and @@.red;''supply will rise''.@@
		<<elseif $deltaSupply < 0>>
			@@.green;''supply will continue to weaken'',@@ but warn the bottom is in sight.
		<<else>>
			the current supply will @@.yellow;''remain stable''@@ for the coming months.
		<</if>>
	<<elseif $menialSupplyFactor <= 20000>>
		<br>Supply for slaves is @@.green;''very low'',@@ forecasts predict
		<<if $deltaSupply > 0>>
			the market will turn and @@.red;''supply will rise''.@@
		<<elseif $deltaSupply < 0>>
			@@.green;''supply will continue to weaken''.@@
		<<else>>
			the current supply will @@.yellow;''remain stable''@@ for the coming months.
		<</if>>
	<<elseif $menialSupplyFactor >= 35000>>
		<br>Supply for slaves is approaching a @@.red;''historic high'',@@ forecasts predict
		<<if $deltaSupply > 0>>
			@@.red;''supply will continue to rise'',@@ but warn the peak is in sight.
		<<elseif $deltaSupply < 0>>
			the market will turn and @@.green;''supply will weaken''.@@
		<<else>>
			the current supply will @@.yellow;''remain stable''@@ for the coming months.
		<</if>>
	<<elseif $menialSupplyFactor >= 20000>>
		<br>Supply for slaves is @@.red;''very high'',@@ forecasts predict
		<<if $deltaSupply > 0>>
			@@.red;''supply will continue to rise''.@@
		<<elseif $deltaSupply < 0>>
			the market will turn and @@.green;''supply will weaken''.@@
		<<else>>
			the current supply will @@.yellow;''remain stable''@@ for the coming months.
		<</if>>
	<<else>>
		<br>Supply for slaves is @@.yellow;''average'',@@ forecasts predict
		<<if $deltaSupply > 0>>
			the market will see @@.red;''rising supply''.@@
		<<elseif $deltaSupply < 0>>
			the market will see @@.green;''weakening supply''.@@
		<<else>>
			@@.yellow;''no change''@@ for the coming months.
		<</if>>
	<</if>>
<<else>>
	<<set $elapsedSupplyTimer += 1>>
	<<set $menialSupplyFactor += $deltaSupply + _supplySlaveVar>>
	<<set $menialSupplyFactor = Math.clamp($menialSupplyFactor,-50000,50000)>>
<</if>>

/* Menial and regular slave markets are part of the same market, e.a. if (menial)slave supply goes up, all slave prices fall.
The RomanFS may need further tweaking (it probably got weaker). Could increase the slave supply cap if this FS is chosen to fix. */

<<set $slaveCostFactor = menialSlaveCost()/1000>>
<<if $arcologies[0].FSRomanRevivalist > random(1,150)>>
	<<if $slaveCostFactor > 0.8>>
	<br><br>@@.yellow;Your Roman Revivalism is having an effect on the slave market and has driven local prices down@@ by convincing slave traders that this is a staunchly pro-slavery area.<br>
	<<set $menialSupplyFactor += 2000>>
	<<else>>
	<br><br>@@.yellow;Your Roman Revivalism is having an effect on the slave market and is holding local prices down@@ by convincing slave traders that this is a staunchly pro-slavery area.<br>
	<</if>>
<</if>>

<<if $difficultySwitch == 1>>
<<if $econWeatherDamage > 0>>
	<<set _repairSeed = random(1,3)>>
	<<if $disasterResponse == 0>>
		<<if _repairSeed == 3>>
			<<set $econWeatherDamage -= 1>>
			<<set $localEcon += 1>>
		<</if>>
	<<elseif $disasterResponse == 1>>
		<<if _repairSeed > 1>>
			<<set $econWeatherDamage -= 1>>
			<<set $localEcon += 1>>
		<</if>>
	<<else>>
		<<if _repairSeed == 3>>
			<<if $econWeatherDamage > 1>>
				<<set $econWeatherDamage -= 2>>
				<<set $localEcon += 2>>
			<<else>>
				<<set $econWeatherDamage -= 1>>
				<<set $localEcon += 1>>
			<</if>>
		<<else>>
			<<set $econWeatherDamage -= 1>>
			<<set $localEcon += 1>>
		<</if>>
	<</if>>
<</if>>
<<if $terrain != "oceanic">>
	<<if $weatherToday.severity == 3>>
		<<set $localEcon -= 1>>
		<<set $econWeatherDamage += 1>>
		<br><br>This week's terrible weather did a number on the region, @@.red;hurting the local economy.@@ <<if $disasterResponse == 0>>//Investing in a disaster response unit will speed up recovery//<</if>>
	<<elseif $weatherToday.severity > 3>>
		<<set $localEcon -= 3>>
		<<set $econWeatherDamage += 3>>
		<br><br>This week's extreme weather ravaged the region, @@.red;the local economy is seriously disrupted.@@ <<if $disasterResponse == 0>>//Investing in a disaster response unit will speed up recovery//<</if>>
	<</if>>
<</if>>
<</if>>

<<if $SF.Toggle && $SF.Active >= 1>> <<= SFReport()>> <</if>>
<br>