code:
:: Economics [nobr]

<<set $nextButton = "Continue">>
<<set $nextLink = "Scheduled Event">>

<<if $cash > -10000>>
	<<set $debtWarned = 0>>
<</if>>

//FC Markets Report://

<<set $assetAffected = either("general", "slaves", "entrapment", "capture", "training", "surgical", "drugs")>>
<<set $assetDirection = either("up", "down")>>

<<if $assetAffected == "general">>
	<<if $assetDirection == "up">>
	<<if random(1,100) > 50>>
		...rising energy costs drove @@.yellowgreen;rising prices@@ of several market baskets...
	<<else>>
		...conflict-driven increases in transportation costs increase @@.yellowgreen;price indices@@...
	<</if>>
	<<set $generalAssetPrice += 2>>
	<<else>>
	<<if random(1,100) > 50>>
		...increasing Free Cities slave labor effects @@.gold;general prices@@...
	<<else>>
		...Antarctic oil shale pushing down energy prices, driving down major @@.gold;price indices@@...
	<</if>>
	<<set $generalAssetPrice -= 2>>
	<</if>>
<<elseif $assetAffected == "slaves">>
	<<if $assetDirection == "up">>
	<<if random(1,100) > 50>>
		...heavy demand for fashionable varieties drove @@.yellowgreen;rising slave prices@@ last...
	<<else>>
		...study suggested the sexual revolution would continue to drive up @@.yellowgreen;slave prices@@...
	<</if>>
	<<set $slaveAssetPrice += 2>>
	<<else>>
	<<if random(1,100) > 50>>
		...increased supply due to bush wars drove down @@.gold;slave prices@@...
	<<else>>
		...@@.gold;slave prices@@ continue to fall due to major improvements in training...
	<</if>>
	<<set $slaveAssetPrice -= 2>>
	<</if>>
<<elseif $assetAffected == "entrapment">>
	<<if $assetDirection == "up">>
	<<if random(1,100) > 50>>
		...prospect of deregulation drove a @@.yellowgreen;scramble@@ for means of enslavement...
	<<else>>
		...law would legalize enslavement, driving @@.yellowgreen;high prices@@ for associated...
	<</if>>
	<<set $entrapmentAssetPrice += 2>>
	<<else>>
	<<if random(1,100) > 50>>
		...reactionism produced lower demand and @@.gold;lower prices@@ for legal enslavement...
	<<else>>
		...report on low success rates @@.gold;drove down@@ value of legal enslavement methods...
	<</if>>
	<<set $entrapmentAssetPrice -= 2>>
	<</if>>
<<elseif $assetAffected == "capture">>
	<<if $assetDirection == "up">>
	<<if random(1,100) > 50>>
		...declaration of war @@.yellowgreen;pushed up@@ average mercenary wage...
	<<else>>
		...advancing technology to blame for @@.yellowgreen;rising costs@@ of assets for wet work...
	<</if>>
	<<set $captureAssetPrice += 2>>
	<<else>>
	<<if random(1,100) > 50>>
		...rumored peace treaty @@.gold;pushed down@@ mercenary contract clearing rate...
	<<else>>
		...demobilization of the cash-strapped army expected to produce mercenary @@.gold;glut@@...
	<</if>>
	<<set $captureAssetPrice -= 2>>
	<</if>>
<<elseif $assetAffected == "training">>
	<<if $assetDirection == "up">>
	<<if random(1,100) > 50>>
		...rising demand in turn @@.yellowgreen;pushing up@@ prices for most means of slave training...
	<<else>>
		...public demand for ever-better slave training inevitably @@.yellowgreen;increase@@ training costs...
	<</if>>
	<<set $trainingAssetPrice += 2>>
	<<else>>
	<<if random(1,100) > 50>>
		...competition from low-cost slave breaking firms @@.gold;reducing@@ asking price for...
	<<else>>
		...increased automation of slave training @@.gold;negatively impacting@@ training contracts...
	<</if>>
	<<set $trainingAssetPrice -= 2>>
	<</if>>
<<elseif $assetAffected == "surgical">>
	<<if $assetDirection == "up">>
	<<if random(1,100) > 50>>
		...fashionable extravagant implant procedures @@.yellowgreen;driving prices@@ of remote surgical...
	<<else>>
		...near-universal breast implants producing corresponding @@.yellowgreen;price inflation@@ of surgery...
	<</if>>
	<<set $surgicalAssetPrice += 2>>
	<<else>>
	<<if random(1,100) > 50>>
		...vastly reduced overhead with remote surgery @@.gold;hitting prices@@ of surgery hard...
	<<else>>
		...oversupply after major manufacturers converted lines to @@.gold;low-cost@@ implant production...
	<</if>>
	<<set $surgicalAssetPrice -= 2>>
	<</if>>
<<elseif $assetAffected == "drugs">>
	<<if $assetDirection == "up">>
	<<if random(1,100) > 50>>
		...intense demand for curatives in conflict zones @@.yellowgreen;increasing prices@@...
	<<else>>
		...setbacks in growth hormone human testing expected to @@.yellowgreen;increase prices@@ of traditional formula...
	<</if>>
	<<set $drugAssetPrice += 2>>
	<<else>>
	<<if random(1,100) > 50>>
		...new formula @@.gold;cut costs@@ of common curatives by an unprecedented...
	<<else>>
		...glut caused by big pharma reorienting towards @@.gold;cheap,@@ mass-produced aphros...
	<</if>>
	<<set $drugAssetPrice -= 2>>
	<</if>>
<</if>>

<<include "Neighbors Development">>

__Personal Business__

<<if $cash < 0>>
	@@.red;You are in debt.@@ This week, interest came to ¤<<print (1+Math.trunc(Math.abs($cash)/100))>>.
	<<set $cash -= (1+Math.trunc(Math.abs($cash)/100))>>
	<<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>>
		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>>
	<<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 ($personalAttention == "whoring")>>
	<<if $PC.preg >= 16>>
		<<if $arcologies[0].FSRepopulationFocus != "unset">>
			<<set $seed = random(2000,4500)>>
			You focus on finding a "date" this week and earn @@.yellowgreen;¤<<print Math.trunc(($seed*($rep/500))+($PC.preg*100))>>@@ 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@@.
			<<set $cash += Math.trunc(($seed*($rep/500))+($PC.preg*100))>>
			<<set $rep = Math.trunc($rep*.90)>>
		<<elseif $arcologies[0].FSRestart != "unset">>
			<<if $PC.pregSource != -1>>
				You focus on finding a "date" this week and earn @@.yellowgreen;¤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@@.
				<<set $cash += 25>>
				<<set $rep = Math.trunc($rep*.25)>>
				<<set $failedElite += 25>>
			<<else>>
				<<set $seed = random(2000,4500)>>
				You focus on finding a "date" this week and earn @@.yellowgreen;¤<<print Math.trunc($seed*($rep/500))>>@@ for your body. However, doing such things @@.red;damages your reputation@@.
				<<set $cash += Math.trunc($seed*($rep/500))>>
				<<set $rep = Math.trunc($rep*.75)>>
			<</if>>
		<<else>>
			<<set $seed = random(5,2500)>>
			You focus on finding a "date" this week and earn @@.yellowgreen;¤<<print Math.trunc($seed*($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@@.
			<<set $cash += Math.trunc($seed*($rep/800))>>
			<<set $rep = Math.trunc($rep*.75)>>
		<</if>>
	<<else>>
		<<set $seed = random(2000,4500)>>
		You focus on finding a "date" this week and earn @@.yellowgreen;¤<<print Math.trunc($seed*($rep/500))>>@@ for your body. However, doing such things @@.red;damages your reputation@@.
		<<set $cash += Math.trunc($seed*($rep/500))>>
		<<set $rep = Math.trunc($rep*.75)>>
		<<if $PC.preg == 0 && ($PC.vagina == 1)>>
			<<if random(1,100) > 80>>
				<<set $PC.preg = 1>>
				<<set $PC.pregSource = -2>>
			<</if>>
		<</if>>
	<</if>>
<<elseif ($personalAttention == "upkeep")>>
	<<if $PC.preg >= 20>>
		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 ($cash > 1000) && ($personalAttention == "business")>>
	<<if $PC.preg >= 20>>
		<<set $seed = random(500,1000)>>
	<<else>>
		<<set $seed = random(1000,1500)>>
	<</if>>
	<<if $PC.trading >= 100>>
		You focus on business and leverage your @@.springgreen;venture capital experience@@ to make good money:
		<<set $seed += random(500,1000)>>
	<<elseif $PC.career == "arcology owner">>
		You focus on business and leverage your @@.springgreen;Free Cities experience@@ to make good money:
		<<set $seed += random(500,1000)>>
	<<else>>
		You focus on business this week and make money:
	<</if>>
	@@.yellowgreen;¤<<print ($seed+Math.trunc(Math.abs($cash)/40))>>.@@
	<<set $cash += ($seed+Math.trunc(Math.abs($cash)/40))>>
	<<if $arcologies[0].FSRomanRevivalist != "unset">>
		Society @@.green;approves@@ of your close attention to your own affairs; this advances your image as a <<if def $PC.customTitle>>$PC.customTitle<<elseif $PC.title == 1>>well-rounded Roman man<<else>>responsible Roman lady<</if>>.
		<<FSChange "RomanRevivalist" 2>>
	<</if>>
<<elseif ($cash > 1000)>>
	You have significant assets. This week, your business endeavors made you @@.yellowgreen;¤<<print (1+Math.trunc(Math.abs($cash)/50))>>.@@
	<<set $cash += (1+Math.trunc(Math.abs($cash)/50))>>
<<else>>
	You have enough cash to manage your affairs, but not enough to do much business.
<</if>>

<<if ($personalAttention == "trading")>>
	<<set _oldSkill = $PC.trading>>
	<<set $PC.trading += random(5,10)>>
	<<if _oldSkill <= 10>>
		<<if $PC.trading > 10>>
			You now have @@.green;basic knowledge@@ about how to be a venture capitalist.
		<</if>>
	<<elseif _oldSkill <= 30>>
		<<if $PC.trading > 30>>
			You now have @@.green;some skill@@ as a venture capitalist.
		<</if>>
	<<elseif _oldSkill <= 60>>
		<<if $PC.trading > 60>>
			You are now an @@.green;expert venture capitalist.@@
		<</if>>
	<<else>>
		<<if $PC.trading >= 100>>
			<<set $personalAttention = "business">>
			You are now a @@.green;master venture capitalist.@@
		<</if>>
	<</if>>

<<elseif ($personalAttention == "warfare")>>
	<<set _oldSkill = $PC.warfare>>
	<<set $PC.warfare += random(5,10)>>
	<<if _oldSkill <= 10>>
		<<if $PC.warfare > 10>>
			You now have @@.green;basic knowledge@@ about how to be a mercenary.
		<</if>>
	<<elseif _oldSkill <= 30>>
		<<if $PC.warfare > 30>>
			You now have @@.green;some skill@@ as a mercenary.
		<</if>>
	<<elseif _oldSkill <= 60>>
		<<if $PC.warfare > 60>>
			You are now an @@.green;expert mercenary.@@
		<</if>>
	<<else>>
		<<if $PC.warfare >= 100>>
			<<set $personalAttention = "business">>
			You are now a @@.green;master mercenary.@@
		<</if>>
	<</if>>

<<elseif ($personalAttention == "slaving")>>
	<<set _oldSkill = $PC.slaving>>
	<<set $PC.slaving += random(5,10)>>
	<<if _oldSkill <= 10>>
		<<if $PC.slaving > 10>>
			You now have @@.green;basic knowledge@@ about how to be a slaver.
		<</if>>
	<<elseif _oldSkill <= 30>>
		<<if $PC.slaving > 30>>
			You now have @@.green;some skill@@ as a slaver.
		<</if>>
	<<elseif _oldSkill <= 60>>
		<<if $PC.slaving > 60>>
			You are now an @@.green;expert slaver.@@
		<</if>>
	<<else>>
		<<if $PC.slaving >= 100>>
			<<set $personalAttention = "business">>
			You are now a @@.green;master slaver.@@
		<</if>>
	<</if>>

<<elseif ($personalAttention == "engineering")>>
	<<set _oldSkill = $PC.engineering>>
	<<set $PC.engineering += random(5,10)>>
	<<if _oldSkill <= 10>>
		<<if $PC.engineering > 10>>
			You now have @@.green;basic knowledge@@ about how to be an arcology engineer.
		<</if>>
	<<elseif _oldSkill <= 30>>
		<<if $PC.engineering > 30>>
			You now have @@.green;some skill@@ as an arcology engineer.
		<</if>>
	<<elseif _oldSkill <= 60>>
		<<if $PC.engineering > 60>>
			You are now an @@.green;expert arcology engineer.@@
		<</if>>
	<<else>>
		<<if $PC.engineering >= 100>>
			<<set $personalAttention = "business">>
			You are now a @@.green;master arcology engineer.@@
		<</if>>
	<</if>>

<<elseif ($personalAttention == "medicine")>>
	<<set _oldSkill = $PC.medicine>>
	<<set $PC.medicine += random(5,10)>>
	<<if _oldSkill <= 10>>
		<<if $PC.medicine > 10>>
			You now have @@.green;basic knowledge@@ about how to be a slave surgeon.
		<</if>>
	<<elseif _oldSkill <= 30>>
		<<if $PC.medicine > 30>>
			You now have @@.green;some skill@@ as a slave surgeon.
		<</if>>
	<<elseif _oldSkill <= 60>>
		<<if $PC.medicine > 60>>
			You are now an @@.green;expert slave surgeon.@@
		<</if>>
	<<else>>
		<<if $PC.medicine >= 100>>
			<<set $personalAttention = "business">>
			You are now a @@.green;master slave surgeon.@@
		<</if>>
	<</if>>

<</if>>

<<if $cash > 1000>>
<<if $CashForRep == 1>>
	This week you gave up business opportunities worth ¤$policyCost to help deserving citizens, @@.green;burnishing your reputation.@@
	<<set $rep += 100, $cash -= $policyCost>>
<</if>>
<</if>>
<<if $rep > 100>>
<<if $RepForCash == 1>>
	This week you used your position to secure business opportunities worth ¤$policyCost at the expense of citizens, @@.red;damaging your reputation.@@
	<<set $rep -= 100, $cash += $policyCost>>
<</if>>
<</if>>
<<if $rep <= 18000>>
<<if $rep > 100>>
<<if $RegularParties != 1>>
	Your @@.red;reputation is damaged@@ by your not hosting regular social events for your leading citizens.
	<<set $rep -= 100>>
<</if>>
<</if>>
<</if>>

Routine upkeep of your demesne costs @@.yellow;¤$costs.@@
<<if $plot == 1>>
<<if $week > 10>>
<<if $weatherToday.severity-$weatherCladding > 2>>
	<<set $weatherAwareness = 1>>
	<<if $weatherCladding == 1>>
	<<set $seed = Math.trunc((($weatherToday.severity-3)*($arcologies[0].prosperity*random(50,100)))+random(1,100))>>
	$arcologies[0].name's hardened exterior only partially resisted the extreme weather this week, and it requires repairs costing @@.yellow;¤$seed.@@ 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 $seed to Math.trunc((($weatherToday.severity-4)*($arcologies[0].prosperity*random(50,100)))+random(1,100))>>
	$arcologies[0].name's hardened exterior only partially resisted the extreme weather this week, and it requires repairs costing @@.yellow;¤$seed.@@ 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 $seed = Math.trunc((($weatherToday.severity-2)*($arcologies[0].prosperity*random(50,100)))+random(1,100))>>
	Severe weather damaged the arcology this week, requiring repairs costing @@.yellow;¤$seed.@@ Your citizens are @@.red;unhappy@@ that the arcology has proven vulnerable to the terrible climate.
	<<set $rep -= 100>>
	<</if>>
	<<if $cash > 0>>
	<<set $cash -= $seed>>
	<<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 rep is left intact. The Societal Elite @@.red;are troubled by your failure@@.
	<<if $arcologies[0].prosperity > 50>>
		<<set $arcologies[0].prosperity -= random(5,10)>>
	<</if>>
	<<set $failedElite += 100>>
	<<set $cash -= Math.trunc($seed/4)>>
	<<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)>>
	<</if>>
	<<set $rep = Math.trunc($rep*0.8)>>
	<<set $cash -= Math.trunc($seed/4)>>
	<</if>>
<<elseif $weatherToday.severity-$weatherCladding == 2>>
	<<if $weatherCladding == 1>>
	<<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 $cash -= $costs>>

<<set $seed = random(1,100)>>
<<if $arcologies[0].FSRomanRevivalist > random(1,150)>>
	<<if $slaveCostFactor > 0.6>>
	@@.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.

	<<set $slaveCostFactor -= 0.1>>
	<<else>>
	@@.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.

	<</if>>
<<elseif ($slaveCostFactor > 1.3)>>
	@@.yellow;Natural market forces drive the very high price of slaves down.@@

	<<set $slaveCostFactor -= 0.2>>
<<elseif ($slaveCostFactor < 0.7)>>
	@@.yellow;Natural market forces drive the very low price of slaves up.@@

	<<set $slaveCostFactor += 0.2>>
<<elseif ($seed > 30)>>
	<<if ($slaveCostFactor > 1)>>
		@@.yellow;Natural market forces drive the high price of slaves slowly down.@@

		<<set $slaveCostFactor -= 0.1>>
	<<elseif ($slaveCostFactor < 1)>>
		@@.yellow;Natural market forces drive the low price of slaves slowly up.@@

		<<set $slaveCostFactor += 0.1>>
	<<else>>
		<<if $seed > 80>>
		@@.yellow;The price of slaves has naturally risen slightly.@@

		<<set $slaveCostFactor += 0.1>>
	<<elseif $seed > 60>>
		@@.yellow;The price of slaves has naturally fallen slightly.@@

		<<set $slaveCostFactor -= 0.1>>
	<</if>>
	<</if>>
<</if>>

<<if $menialDemandFactor != 0>>
<<if Math.abs($menialDemandFactor) > 100>>
<<if ($menialDemandFactor > 1000) && ($slaveCostFactor <= 1.2)>>
	Your dealings in menial slaves have had a major impact on the slave market, @@.yellow;greatly increasing slave prices.@@
	<<set $menialDemandFactor = 0>>
	<<set $slaveCostFactor += 0.3>>

<<elseif ($menialDemandFactor > 500) && ($slaveCostFactor <= 1.3)>>
	Your dealings in menial slaves have had a noticeable impact on the slave market, @@.yellow;significantly increasing slave prices.@@
	<<set $menialDemandFactor = 0>>
	<<set $slaveCostFactor += 0.2>>

<<elseif ($menialDemandFactor > 250) && ($slaveCostFactor <= 1.4)>>
	Your dealings in menial slaves have had a minor impact on the slave market, @@.yellow;slightly increasing slave prices.@@
	<<set $menialDemandFactor = 0>>
	<<set $slaveCostFactor += 0.1>>

<<elseif ($menialDemandFactor < -1000) && ($slaveCostFactor >= 0.8)>>
	Your dealings in menial slaves have had a major impact on the slave market, @@.yellow;greatly reducing slave prices.@@
	<<set $menialDemandFactor = 0>>
	<<set $slaveCostFactor -= 0.3>>

<<elseif ($menialDemandFactor < -500) && ($slaveCostFactor >= 0.7)>>
	Your dealings in menial slaves have had a noticeable impact on the slave market, @@.yellow;significantly reducing slave prices.@@
	<<set $menialDemandFactor = 0>>
	<<set $slaveCostFactor -= 0.2>>

<<elseif ($menialDemandFactor < -250) && ($slaveCostFactor >= 0.6)>>
	Your dealings in menial slaves have had a minor impact on the slave market, @@.yellow;slightly reducing slave prices.@@
	<<set $menialDemandFactor = 0>>
	<<set $slaveCostFactor -= 0.1>>

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

<<if $corpAnnounced == 1>>

	<<if $corpIncorporated == 0>>

	You have not yet committed funds to create a publicly traded slave trading corporation. <<link "Lay the groundwork for incorporation">><<set $corpIncorporated = 1>><<set $sharePrice = 20>><<set $oldSharePrice = $sharePrice>><<set $personalShares = 2000>><<set $cash -= 30000>><<set $publicShares = 1000>><<set $corpCash = 20000>><<set $generalAssets = 500>><<set $slaveAssets = 1000>><<set $entrapmentAssets = 500>><<set $captureAssets = 500>><<set $trainingAssets = 500>><<set $surgicalAssets = 500>><<set $drugAssets = 500>><<replace "#incorporate">><<print "The groundwork has been laid for the incorporation of a publicly traded slave trading concern. The IPO will involve 1000 shares at ¤20/share.">><</replace>><</link>> //Costs ¤30000//

	<<else>>
	<<include "Corporation Developments">>
	<</if>>

<</if>>

<<if $securityForceActive == 1>>
	<<include "Security Force EOW Report">>
<</if>>

__Reputation__

<<PCTitle>>

On formal occasions, you are announced as $PCTitle.

<<if $arcologies[0].FSChattelReligionist != "unset">>
<<if $arcologies[0].FSChattelReligionistCreed == 1>>
	$arcologies[0].name keeps the creed of the $nicaeaName. The faithful
	<<if $nicaeaAchievement == "slaves">>
		<<if $slaves.length > 50>>
			@@.green;strongly approve@@ of the large
			<<FSChange "ChattelReligionist" 5>>
		<<elseif $slaves.length > 20>>
			@@.green;approve@@ of the good
			<<FSChange "ChattelReligionist" 2>>
		<<elseif $slaves.length > 20>>
			are not impressed by the
		<</if>>
		number of people you're giving the honor of sexual servitude.
	<<elseif $nicaeaAchievement == "devotion">>
		<<if $averageDevotion > 80>>
			@@.green;strongly approve@@ of the worshipfulness
			<<FSChange "ChattelReligionist" 5>>
		<<elseif $averageDevotion > 50>>
			@@.green;approve@@ of the devotion
			<<FSChange "ChattelReligionist" 2>>
		<<elseif $slaves.length > 20>>
			are not impressed by the devotion
		<</if>>
		of your slaves.
	<<else>>
		<<if $averageTrust > 50>>
			@@.green;strongly approve@@ of the great trust your slaves place in you.
			<<FSChange "ChattelReligionist" 5>>
		<<elseif $averageTrust > 20>>
			@@.green;approve@@ of the trust your slaves place in you.
			<<FSChange "ChattelReligionist" 2>>
		<<elseif $slaves.length > 20>>
			are not impressed by fear many of your slaves feel towards you.
		<</if>>
	<</if>>
<</if>>
<</if>>

<<set $repDecay = 0.2>>
<<if $arcologies[0].FSChattelReligionistLaw == 1>>
	<<set $repLoss = 0>>
	Since you are the Prophet, your reputation no longer degrades at all.
<<elseif $arcologies[0].FSRestartDecoration == 100>>
	<<set $repLoss = 0>>
	Since you are an established member of the Societal Elite, your public reputation no longer decays.
<<elseif $rep > $enduringRep>>
	<<if $arcologies[0].FSMaturityPreferentialistLaw == 1>>
	<<if $PC.actualAge >= 65>>
		Since you're getting on in years and have an impressive list of accomplishments, and $arcologies[0].name's society respects age, your reputation degrades quite slowly.
		<<set $repLoss = Math.trunc(($rep-$enduringRep)*($repDecay-0.025))>>
	<<elseif $PC.actualAge >= 50>>
		Since you're well into middle age and have an impressive list of accomplishments, and $arcologies[0].name's society respects age, your reputation degrades quite slowly.
		<<set $repLoss = Math.trunc(($rep-$enduringRep)*($repDecay-0.025))>>
	<<elseif $PC.actualAge < 35>>
		Since you're unusually young for an arcology owner, and $arcologies[0].name's society respects age, your reputation degrades quite quickly.
		<<set $repLoss = Math.trunc(($rep-$enduringRep)*($repDecay+0.025))>>
	<<else>>
		Since you're only entering middle age, and $arcologies[0].name's society respects age, your reputation degrades fairly quickly.
		<<set $repLoss = Math.trunc(($rep-$enduringRep)*($repDecay))>>
	<</if>>
	<<elseif $arcologies[0].FSYouthPreferentialistLaw == 1>>
	<<if $PC.actualAge >= 65>>
		Since you're getting on in years and have an impressive list of accomplishments, but $arcologies[0].name's society is coming to prefer youth to experience, so your reputation degrades fairly quickly.
		<<set $repLoss = Math.trunc(($rep-$enduringRep)*($repDecay-0.025))>>
	<<elseif $PC.actualAge >= 50>>
		You're well into middle age and have an impressive list of accomplishments, but $arcologies[0].name's society is coming to prefer youth to experience, so your reputation degrades fairly quickly.
		<<set $repLoss = Math.trunc(($rep-$enduringRep)*($repDecay+0.025))>>
	<<elseif $PC.actualAge < 35>>
		You're unusually young for an arcology owner, but $arcologies[0].name's society doesn't mind.
		<<set $repLoss = Math.trunc(($rep-$enduringRep)*($repDecay))>>
	<<else>>
		Since you're entering middle age, and $arcologies[0].name's society respects youth, your reputation degrades fairly quickly.
		<<set $repLoss = Math.trunc(($rep-$enduringRep)*($repDecay+0.025))>>
	<</if>>
	<<else>>
	<<if $PC.actualAge >= 65>>
		Since you're getting on in years and have an impressive list of accomplishments, and $arcologies[0].name's society respects age, your reputation degrades quite slowly.
		<<set $repLoss = Math.trunc(($rep-$enduringRep)*($repDecay-0.025))>>
	<<elseif $PC.actualAge >= 50>>
		Since you're well into middle age and have an impressive list of accomplishments, your reputation degrades fairly slowly.
		<<set $repLoss = Math.trunc(($rep-$enduringRep)*($repDecay-0.025))>>
	<<elseif $PC.actualAge < 35>>
		Since you're unusually young for an arcology owner, your reputation degrades fairly quickly.
		<<set $repLoss = Math.trunc(($rep-$enduringRep)*($repDecay+0.025))>>
	<<else>>
		<<set $repLoss = Math.trunc(($rep-$enduringRep)*($repDecay))>>
	<</if>>
	<</if>>
	<<if $enduringRep > 8000>>
	However, you have been a figure of renown for so long that much of your reputation has become permanent.
	<<elseif $enduringRep > 5000>>
	However, you have been a figure of repute for enough time that part of your reputation has become permanent.
	<<elseif $enduringRep > 2000>>
	However, you have been a figure of regard for long enough that some of your reputation has become permanent.
	<</if>>
	<<set $enduringRep += Math.trunc($repLoss*0.025)>>
<<else>>
	<<set $repLoss = 0>>
	<<if $enduringRep > 8000>>
	You have been a figure of renown for so long that your reputation does not decay past its present level.
	<<elseif $enduringRep > 5000>>
	You have been a figure of repute for enough time that your reputation does not decay past its present level.
	<<elseif $enduringRep > 2000>>
	You have been a figure of regard for long enough that your reputation does not decay past its present level.
	<</if>>
<</if>>

<<if ($weatherAwareness == 0) && ($weatherCladding == 2)>>
	The public @@.green;is awestruck@@ of the beautiful weather hardening you have applied to the arcology's exterior, though they do not understand why you would waste so much money first ruining your arcology's appearance before doing this.
	<<set $rep += 10>>
<<elseif ($weatherAwareness == 0) && ($weatherCladding == 1)>>
	The public @@.red;disapproves@@ of the ugly weather hardening you have applied to the arcology's exterior, not understanding what you're worried about.
	<<set $rep -= 100>>
<</if>>

<<if $arcologies[0].FSRestartDecoration == 100>>
	As a member of the societal elite, your appearance has no bearing on your reputation.
<<else>>
<<if ($PC.dick == 0) && ($PC.boobs == 1)>>
	<<if $rep > 18000>>
		Your reputation is so well-established that society has accepted your notoriously feminine appearance despite how unusual it is for a prominent slaveowner to look like you do.
		<<if $arcologies[0].FSGenderRadicalist > 30>>
			Indeed, society sees you as entirely male, since you are powerful, and @@.green;strongly approves@@ of your nonconformity; this advances the redefinition of gender around power.
			<<FSChange "GenderRadicalist" 5>>
		<<elseif $arcologies[0].FSGenderFundamentalist > 30>>
			Indeed, society has been reconciled to female leadership, preferring to see you as a mother figure.
		<</if>>
	<<elseif $arcologies[0].FSGenderRadicalist > 40>>
		Society accepts you as an arcology owner, since it has become open-minded about power and gender.
		<<if $arcologies[0].FSGenderRadicalist > 50>>
			Indeed, society sees you as fundamentally male, since you are powerful, and @@.green;strongly approves@@ of your audacity; this advances the redefinition of gender around power.
			<<FSChange "GenderRadicalist" 5>>
		<</if>>
	<<else>>
		Most prominent slaveowners are male, and your obviously feminine appearance makes it @@.red;harder for you to maintain your reputation.@@
		<<set $repLoss += Math.trunc($rep*0.05)>>
		<<if $arcologies[0].FSGenderFundamentalist > 10>>
			Society @@.red;strongly resents@@ your being an arcology owner; this damages the idea that women should not be in positions of responsibility.
			<<FSChange "GenderFundamentalist" -5>>
		<</if>>
	<</if>>
<<elseif ($PC.boobs == 1)>>
	<<if $rep > 15000>>
		Your reputation is so strong that society has accepted your feminine appearance despite how unusual it is for a prominent slaveowner to look like you do.
		<<if $arcologies[0].FSGenderRadicalist > 30>>
			Indeed, society sees you as entirely male, since you are powerful, and @@.green;strongly approves@@ of your nonconformity; this advances the redefinition of gender around power.
			<<FSChange "GenderRadicalist" 5>>
		<<elseif $arcologies[0].FSGenderFundamentalist > 30>>
			Indeed, society has been reconciled to your feminine appearance, seeing you as a person apart.
		<</if>>
	<<elseif $arcologies[0].FSGenderRadicalist > 20>>
		Society accepts you as an arcology owner, since it has become open-minded anyone who has a cock and fucks.
		<<if $arcologies[0].FSGenderRadicalist > 30>>
			Indeed, society sees you as dominant, since you fuck bitches, and @@.green;strongly approves@@ of your nonconformity; this advances the redefinition of gender around power.
			<<FSChange "GenderRadicalist" 5>>
		<</if>>
	<<else>>
		Most prominent slaveowners are very masculine, and your feminine appearance makes it @@.red;harder for you to maintain your reputation.@@
		<<set $repLoss += Math.trunc($rep*0.03)>>
		<<if $arcologies[0].FSGenderFundamentalist > 30>>
			Society @@.red;strongly resents@@ your being an arcology owner; this damages the idea that feminine people should not be in positions of responsibility.
			<<FSChange "GenderFundamentalist" -5>>
		<</if>>
	<</if>>
<<elseif ($PC.dick == 0) || ($PC.vagina == 1)>>
	<<if $rep > 15000>>
		Your reputation is so strong that society has accepted your unorthodox arrangement downstairs, for an arcology owner.
		<<if $arcologies[0].FSGenderRadicalist > 30>>
			Indeed, society sees you as entirely male, since you are powerful, and @@.green;strongly approves@@ of your nonconformity; this advances the redefinition of gender around power.
			<<FSChange "GenderRadicalist" 5>>
		<<elseif $arcologies[0].FSGenderFundamentalist > 30>>
			Indeed, society has been reconciled to your strangeness, seeing you as a person apart.
		<</if>>
	<<elseif $arcologies[0].FSGenderRadicalist > 20>>
		Society accepts you as an arcology owner, since it has become open-minded about the exact genital layout of powerful people.
		<<if $arcologies[0].FSGenderRadicalist > 30>>
			Indeed, society sees you as dominant, since you are powerful, and @@.green;strongly approves@@ of your nonconformity; this advances the redefinition of gender around power.
			<<FSChange "GenderRadicalist" 5>>
		<</if>>
	<<else>>
		Most prominent slaveowners are very masculine, and though your unorthodox arrangement downstairs isn't obvious when you're clothed, the rumors are unavoidable and it's @@.red;harder for you to maintain your reputation.@@
		<<set $repLoss += Math.trunc($rep*0.03)>>
		<<if $arcologies[0].FSGenderFundamentalist > 30>>
			Society @@.red;strongly resents@@ your being an arcology owner; this damages the idea that people who are not men should not be in positions of responsibility.
			<<FSChange "GenderFundamentalist" -5>>
		<</if>>
	<</if>>
<</if>>
<</if>>

<<if $arcologies[0].FSSupremacist != "unset">>
	<<if ($PC.race == $arcologies[0].FSSupremacistRace)>>
		Since you are a member of the $PC.race, society @@.green;strongly approves@@ of your ownership of the arcology.
		<<FSChange "Supremacist" 5>>
	<</if>>
<<elseif $arcologies[0].FSSubjugationist != "unset">>
	<<if ($PC.race == $arcologies[0].FSSubjugationistRace)>>
		<<if $rep > 15000>>
			Your reputation is so strong that society has accepted your <<print $PC.race>>ness despite you being an inferior race.
		<<else>>
			Society @@.red;loathes;@@ being lead by an inferior $PC.race, believeing that any other race would make a far better leader than you.
			<<set $rep -= 200*($arcologies[0].FSSubjugationist/$FSLockinLevel)>>
		<</if>>
	<</if>>
<</if>>

<<if $arcologies[0].FSAssetExpansionist != "unset">>
	<<if $PC.boobsBonus == 3>>
		Society loves enormous breasts and you are no exception; your <<if $PC.boobsImplant == 1>>chest balloons<<else>>cow tits<</if>> @@.green;improve@@ your public image.
		<<set $rep += 10>>
	<</if>>
	<<if $PC.butt == 3>>
		Society loves big butts and you are no exception; your <<if $PC.buttImplant == 1>>inflated ass<<else>>fat ass<</if>> @@.green;improves@@ your public image.
		<<set $rep += 10>>
	<</if>>
	<<if $PC.ballsImplant > 1>>
		Society loves big things and the bulge in your crotch is no exception; your swollen balls @@.green;improve@@ your public image.
		<<set $rep += (5*$PC.ballsImplant)>>
	<</if>>
<<elseif $arcologies[0].FSSlimnessEnthusiast != "unset">>
	<<if $PC.boobsBonus > 1>>
		Society finds big breasts unsightly and you are no exception; your <<if $PC.boobsImplant == 1>>chest balloons<<else>>fat tits<</if>> @@.red;harm@@ your public image.
		<<set $rep -= (10*$PC.boobsBonus)>>
	<</if>>
	<<if $PC.butt == 3>>
		Society finds big butts unsightly and you are no exception; your <<if $PC.buttImplant == 1>>inflated ass<<else>>fat ass<</if>> @@.red;harms@@ your public image.
		<<set $rep -= (10*$PC.butt)>>
	<</if>>
<</if>>

<<if $arcologies[0].FSTransformationFetishist != "unset">>
	<<if $PC.boobsImplant == 1>>
		Society loves fake breasts and yours are no exception; your breast implants @@.green;improve@@ your public image.
		<<set $rep += (7*$PC.boobsBonus)>>
	<</if>>
	<<if $PC.buttImplant == 1>>
		Society loves fake butts and yours are no exception; your ass implants @@.green;improve@@ your public image.
		<<set $rep += (7*$PC.butt)>>
	<</if>>
	<<if $PC.ballsImplant > 1>>
		Society loves everything augmented and the bulge in your crotch is no exception; your swollen balls @@.green;improve@@ your public image.
		<<set $rep += (5*$PC.ballsImplant)>>
	<</if>>
<<elseif $arcologies[0].FSBodyPurist != "unset">>
	<<if $PC.boobsImplant == 1>>
		Society finds fake breasts repuslive and yours are no exception; your balloon-like breasts @@.red;harm@@ your public image.
		<<set $rep -= (10*$PC.boobsBonus)>>
	<</if>>
	<<if $PC.butt == 3>>
		Society finds fake butts unsightly and yours is no exception; your inflated ass @@.red;harms@@ your public image.
		<<set $rep -= (10*$PC.butt)>>
	<</if>>
	<<if $PC.ballsImplant > 1>>
		Society finds everything unnatural disgusting and the grotesque bulge in your crotch is no exception; your gel filled balls @@.red;harm@@ your public image.
		<<set $rep -= (10*$PC.ballsImplant)>>
	<</if>>
<</if>>

<<if ($PC.preg >= 20) || ($PC.career == "escort" && $PC.preg >= 16)>>
	<<if $arcologies[0].FSRestart != "unset">>
		<<if $arcologies[0].FSRestartDecoration == 100>>
			<<if $PC.pregSource != -1>>
				Most prominent female owners avoid being penetrated on principle; your fecund figure exposes not only your willingness to be penetrated, but your breach of eugenics. Your citizens are @@.red;livid@@ over your actions and are calling for your removal.
				<<set $rep -= 500>>
				<<set $failedElite += 100>>
			<<else>>
				Since it is public knowledge that you are carrying a child in the name of eugenics; society views you as a bearer of the future and @@.green;celebrates@@ your contributions to society.
				<<set $rep += 200>>
				<<set $failedElite -= 10>>
			<</if>>
		<<else>>
			Most prominent female owners avoid being penetrated on principle; your fecund figure exposes not only your willingness to be penetrated, but your breach of the eugenics you are pushing for. Your citizens are @@.red;disgusted@@ by both your body and your lack of commitment.
			<<set $rep -= 500>>
			<<set $failedElite += 50>>
		<</if>>
	<<elseif $arcologies[0].FSRepopulationFocus >= 60>>
		Most prominent female owners avoid being penetrated on principle, but your arcology values motherhood so much that it is more @@.green;pleased@@ with your dedication than it is dissapointed in your penetration.
		<<set $rep += 10>>
	<<else>>
		Most prominent female owners avoid being penetrated on principle; your fecund figure exposes your willingness to be penetrated, making it @@.red;harder for you to maintain your reputation.@@
		<<set $rep -= 200>>
	<</if>>
<</if>>

<<if $PC.career == "escort" && $rep < 16000>>
	Society @@.red;frowns@@ over being run by an ex-whore. The presence of porn of you on the net doesn't aid your reputation either.
	<<set $rep -= ($rep*0.1)>>
<<elseif $PC.career == "escort">>
	Your reputation is so strong that society has accepted your previous endeavors despite how unusual it is for a prominent slaveowner to have once nearly been a slave.
<</if>>
<<if $PC.career == "servant" && $rep < 12000>>
	Society @@.red;frowns@@ over being run by an ex-<<if $PC.title == 1>>butler<<else>>maid<</if>>, despite how prominent their previous owner was.
	<<set $rep -= ($rep*0.1)>>
<<elseif $PC.career == "servant">>
	Your reputation is so strong that society has accepted your previous vocation despite how unusual it is for a prominent slaveowner to have once been nothing more than a lowly servant.
<</if>>
<<if $PC.career == "gang" && $rep < 15000>>
	Society @@.red;frowns@@ over being run by an ex-gang leader, no matter how strong they might have been.
	<<set $rep -= ($rep*0.1)>>
<<elseif $PC.career == "gang">>
	Your reputation is strong enough that society has come to accept your background as part of your image.
<</if>>

<<if $arcologies[0].FSRomanRevivalist != "unset">>
	<<if $mercenaries > 0>>
		Society @@.green;approves@@ of how you are providing for the defense of the state, as should all citizens of the new Rome.
		<<FSChange "RomanRevivalist" $mercenaries>>
	<</if>>
		<<if ($slaves.length > 20) && ($cash > 50000)>>
		Society @@.green;strongly approves@@ of your wealth and prosperity, fit goals for the <<if def $PC.customTitle>>$PC.customTitle<<elseif $PC.title == 1>>new Roman man<<else>>rising Roman lady<</if>>.
		<<FSChange "RomanRevivalist" 5>>
	<</if>>
	<<if $language != "Latin">>
		Continuing to use $language as the lingua franca of $arcologies[0].name rather than the storied Latin @@.red;disappoints@@ society and causes doubt about your revivalist project.
		<<FSChange "RomanRevivalist" -2>>
	<</if>>
<<elseif $arcologies[0].FSEgyptianRevivalist != "unset">>
	<<if $racialVarieties.length > 4>>
		Society @@.green;strongly approves@@ of how you own a cornucopia of different races, which advances the ancient Egyptian ideal of cosmopolitan sex slavery.
		<<FSChange "EgyptianRevivalist" 5>>
	<</if>>
	<<if $language != "Ancient Egyptian">>
		Continuing to use $language as the lingua franca of $arcologies[0].name rather than revived Ancient Egyptian @@.red;disappoints@@ society and causes doubt about your revivalist project.
		<<FSChange "EgyptianRevivalist" -2>>
	<</if>>
<<elseif $arcologies[0].FSEdoRevivalist != "unset">>
	<<set $seed = Math.trunc($rep/5000)>>
	<<if $publicServants < $seed>>
		Society @@.red;disapproves@@ of your failure to provide for cultural development by offering public servants or club slaves in a number that befits your reputation.
		<<FSChange "EdoRevivalist" -2>>
	<<elseif $publicServants > $seed>>
		Society @@.green;approves@@ of your provision for cultural development by offering public servants and club slaves in a number that befits your reputation.
		<<FSChange "EdoRevivalist" 2>>
	<</if>>
	<<if $language != "Japanese">>
		Continuing to use $language as the lingua franca of $arcologies[0].name rather than pure Japanese @@.red;disappoints@@ society and causes doubt about your revivalist project.
		<<FSChange "EdoRevivalist" -2>>
	<</if>>
<<elseif $arcologies[0].FSArabianRevivalist != "unset">>
	<<if $fuckSlaves < $rep/3500>>
		Society @@.red;disapproves@@ of the small size of your harem, feeling that you do not have enough fucktoys or slaves in your master suite for your reputation.
		<<FSChange "ArabianRevivalist" -2>>
	<<else>>
		Society @@.green;approves@@ of the size of your harem, feeling that you have a good number of fucktoys and slaves in your master suite for your reputation.
		<<FSChange "ArabianRevivalist" 2>>
	<</if>>
	<<if $language != "Arabic">>
		Continuing to use $language as the lingua franca of $arcologies[0].name rather than the Arabic in which the word of God was passed to Muhammad @@.red;disappoints@@ society and causes doubt about your revivalist project.
		<<FSChange "ArabianRevivalist" -2>>
	<</if>>
<<elseif $arcologies[0].FSChineseRevivalist != "unset">>
	<<if $HeadGirl == 0>>
		Society @@.red;disapproves@@ of your failure to rely on a Head Girl, as proper imperial administration requires,
		<<FSChange "ChineseRevivalist" -2>>
	<<else>>
		Society @@.green;approves@@ of your reliance on a Head Girl, as proper imperial administration requires,
		<<FSChange "ChineseRevivalist" 2>>
	<</if>>
	<<if $Recruiter == 0>>
		@@.red;disapproves@@ of your failure to maintain a Recruiter to expand the Middle Kingdom,
		<<FSChange "ChineseRevivalist" -2>>
	<<else>>
		@@.green;approves@@ of your maintaining a Recruiter to expand the Middle Kingdom,
		<<FSChange "ChineseRevivalist" 2>>
	<</if>>
	<<if $Bodyguard == 0>>
		and @@.red;disapproves@@ of your failure to keep a Bodyguard as befits a proper imperial palace.
		<<FSChange "ChineseRevivalist" -2>>
	<<else>>
		and @@.green;approves@@ of your keeping a Bodyguard, as befits a proper imperial palace.
		<<FSChange "ChineseRevivalist" 2>>
	<</if>>
	<<if $language != "Chinese">>
		Continuing to use $language as the lingua franca of $arcologies[0].name rather than the Chinese of the Middle Kingdom @@.red;disappoints@@ society and causes doubt about your revivalist project.
		<<FSChange "ChineseRevivalist" -2>>
	<</if>>
<</if>>

<<if ($arcologies[0].FSRepopulationFocus != "unset")>>
	<<if $IntelligenceEugenicsSMR == 1 || $HeightEugenicsSMR == 1 || $FaceEugenicsSMR == 1>>
	  Society @@.red;disapproves@@ of your policies sterilizing potential mothers.  Your insistence on eugenics hinders adoption of your new society.
	  <<set _noEugenics = -1*($IntelligenceEugenicsSMR+$HeightEugenicsSMR+$FaceEugenicsSMR)>>
	  <<FSChange "Repopulationist"  _noEugenics>>
	<</if>>
<<elseif ($arcologies[0].FSRestart != "unset")>>
	<<if ($IntelligenceEugenicsSMR == 1 || $HeightEugenicsSMR == 1 || $FaceEugenicsSMR == 1) && $arcologies[0].FSRestartSMR != 1>>
		Society @@.green; approves@@ of your slave eugenics policies, easing them into more thorough eugenics.
		 <<set _yesEugenics = ($IntelligenceEugenicsSMR+$HeightEugenicsSMR+$FaceEugenicsSMR)>>
		<<FSChange "Eugenics" _yesEugenics>>
		<<set $failedElite -= 1*($IntelligenceEugenicsSMR+$HeightEugenicsSMR+$FaceEugenicsSMR)>>
	<<elseif $arcologies[0].FSRestartSMR == 1>>
		<<set $failedElite -= 2*($IntelligenceEugenicsSMR+$HeightEugenicsSMR+$FaceEugenicsSMR)>>
	<</if>>
<</if>>

<<if ($arcologies[0].FSRepopulationFocus != "unset") && ($birthsTotal > 0)>>
	The number of children you've bought into the world @@.green;pleases@@ your citizens.
	<<if $birthsTotal < 1000>>
		<<set $rep += $birthsTotal>>
	<<else>>
		<<set $rep += 1000>>
	<</if>>
<</if>>

<<if $shelterAbuse > 5>>
	<<if $arcologies[0].FSPaternalist != "unset">>
		You are on the Slave Shelter's public list of abusive slaveowners. Society @@.red;disapproves@@ of your falling foul of such a well regarded charity.
		<<FSChange "Paternalist" -2>>
	<<elseif $arcologies[0].FSDegradationist != "unset">>
		You are on the Slave Shelter's public list of abusive slaveowners. Your citizens find this hilarious, and @@.green;approve@@ of your taking advantage of a pack of idiots.
		<<FSChange "Degradationist" 2>>
	<</if>>
<</if>>

<<if $Cash4Babies == 1>>
	<<if $arcologies[0].FSDegradationist != "unset">>
		Society @@.green;approves@@ of your poor treatment of slave infants.
		<<set $rep += 5*$FSSingleSlaveRep*($arcologies[0].FSDegradationist/$FSLockinLevel)>>
	<<elseif $arcologies[0].FSRestart != "unset">>
	<<elseif $arcologies[0].FSPaternalist != "unset">>
		Society @@.red;greatly despises@@ your poor treatment of slave infants.
		<<set $rep -= (25*$FSSingleSlaveRep*($arcologies[0].FSPaternalist/$FSLockinLevel))+($rep/20)>>
	<<elseif $arcologies[0].FSRepopulationFocus != "unset">>
		Society @@.red;disapproves@@ of your poor treatment of your future population, holding back acceptance of your new society.
		<<set $arcologies[0].FSRepopulationFocus -= 0.05*$FSSingleSlaveRep>>
		<<set $rep -= (5*$FSSingleSlaveRep*($arcologies[0].FSRepopulationFocus/$FSLockinLevel))+($rep/20)>>
	<<else>>
		Your citizens @@.red;disapprove@@ of your poor treatment of slave children.
		<<set $rep -= ($rep/20)>>
	<</if>>
<</if>>

<<if $MixedMarriage == 1>>
	Your citizens
	<<if $arcologies[0].FSPaternalist >= 80>>
		are so paternalistic that they @@.green;approve@@ of
		<<FSChange "Paternalist" 2>>
	<<elseif $arcologies[0].FSPaternalist >= 40>>
		are paternalistic enough to tolerate
	<<else>>
		@@.red;disapprove@@ of
		<<set $rep -= 50>>
	<</if>>
	your support for marriage between citizens and slaves.
<</if>>

<<if $arcologies[0].FSNull != "unset">>
	Your cultural openness @@.green;helps your reputation,@@ since few citizens have disputes with your permissive approach.
	<<set $rep += 50*$FSSingleSlaveRep*($arcologies[0].FSNull/$FSLockinLevel)>>
<</if>>

<<if $arcologies[0].FSRestartLaw == 1>>
	Your laws requiring the non-elite to pay additional taxes or be sterilized @@.red;agitates@@ some of your citizens, but they don't matter. Only your @@.green;pleased@@ elite do.
	<<set $rep -= 100>>
	<<set $failedElite -= 1>>
<</if>>

<<if $FrigiditySMR == 1>>
	Your market regulations regarding slave sex drives @@.red;outrages@@ your citizens seeking sex slaves, since only slaves disinterested in sex are available.
	<<set $rep -= 250>>
<</if>>

<<if $PC.degeneracy > 0>>
	<<if $PC.degeneracy > 100>>
		There are @@.red;severe and devastating rumors@@ about you spreading across the arcology.
		<<set $rep -= 100*$PC.degeneracy>>
	<<elseif $PC.degeneracy > 75>>
		There are @@.red;severe rumors@@ about you spreading across the arcology.
		<<set $rep -= 10*($PC.degeneracy*2)>>
	<<elseif $PC.degeneracy > 50>>
		There are @@.red;bad rumors@@ about you spreading across the arcology.
		<<set $rep -= 10*$PC.degeneracy>>
	<<elseif $PC.degeneracy > 25>>
		There are @@.red;rumors@@ about you spreading across the arcology.
		<<set $rep -= 5*$PC.degeneracy>>
	<<elseif $PC.degeneracy > 10>>
		There are @@.red;minor rumors@@ about you spreading across the arcology.
		<<set $rep -= $PC.degeneracy*2>>
	<<else>>
		The occasional rumor about you can be heard throughout the arcology.
		<<set $rep -= $PC.degeneracy>>
	<</if>>
<</if>>

<<set $rep -= $repLoss>>
<<set $rep += $repGain>>

<<if $repGain > $repLoss>>
	@@.green;Your reputation increased this week.@@
<<elseif $repGain < $repLoss>>
	@@.red;Your reputation decreased this week.@@
<</if>>

<<if $rep > 19000>>
	Your reputation is capped.
	<<set $rep = 20000>>
<<elseif $rep-$enduringRep > 7500>>
	Your base rate of reputation decay is very high.
<<elseif $rep-$enduringRep > 5000>>
	Your base rate of reputation decay is high.
<<elseif $rep-$enduringRep > 2500>>
	Your base rate of reputation decay is moderate.
<<elseif $rep-$enduringRep > 0>>
	Your base rate of reputation decay is low.
<</if>>
<<if $enduringRep >= 10000>>
	Your legend is perfected, reducing reputation decay to its lowest possible level.
	<<set $enduringRep = 10000>>
<</if>>

<<if $alwaysSubsidizeRep == 1>>
<<if $rep <= 19900>>
	<<set $rep += 100>>
	Reputation subsidized as planned.
<<else>>
	<<set $cash += 1000>>
	Reputation subsidy reclaimed this week since your reputation is capped.
<</if>>
<</if>>

<<if $failedElite > 1>>
	<<set $failedElite -= 1>>
<</if>>
<<if $PC.degeneracy > 0>>
	<<set $PC.degeneracy -= 1>>
<</if>>

<<if $arcologies[0].FSRestartDecoration == 100>>
	<<if $failedElite > 300>>
		The Societal Elite @@.red;are plotting your demise@@.
		<<set $ui = "start">>
		<<set $gameover to "you failed">><<goto "Gameover">>
	<<elseif $failedElite > 250>>
		The Societal Elite @@.red;are openly discussing about your failures@@. It would be in your best interests to appease them.
	<<elseif $failedElite > 200>>
		The Societal Elite @@.red;are avoiding you@@. Getting back on their good side is a good idea, lest you want to disappear.
	<<elseif $failedElite > 150>>
		The Societal Elite @@.red;stop their conversations around you@@. You may want to consider your actions more.
	<<elseif $failedElite > 50>>
		The Societal Elite @@.red;mutter about you@@.
	<</if>>
<<elseif $arcologies[0].FSRestart != "unset">>
	<<if $failedElite > 300>>
		The Societal Elite @@.red;have left@@.
		<<set $arcologies[0].FSRestart = "unset">>
		<<set $arcologies[0].FSRestartDecoration = 20>>
		<<set $arcologies[0].FSRestartLaw = 0>>
		<<set $FSCredits += 1>>
		<<set $failedElite = 0>>
		<<set $rep -= 10000>>
		<<set $ACitizens -= random(30,100)>>
		<<if $arcologies[0].prosperity > 50>>
		<<set $arcologies[0].prosperity -= random(20,40)>>
		<</if>>
	<<elseif $failedElite > 250>>
		The Societal Elite @@.red;are openly discussing leaving@@. It would be in your best interests to appease them.
	<<elseif $failedElite > 200>>
		The Societal Elite @@.red;are avoiding you@@. Getting back on their good side is a good idea, lest you want to disappear.
	<<elseif $failedElite > 150>>
		The Societal Elite @@.red;stop their conversations around you@@. You may want to consider your actions more.
	<<elseif $failedElite > 50>>
		The Societal Elite @@.red;mutter about you@@.
	<</if>>
<</if>>

<<if ($PC.boobs == 1 && $PC.boobsBonus > 0) || $PC.preg >= 8 || $playerAging != 0>>

__Personal Notes__

<<if ($playerAging != 0)>>Your birthday is <<if $PC.birthWeek is 51>>next week<<if $playerAging == 2>>; you'll be turning <<print $PC.actualAge+1>><</if>><<else>>in <<print 52-$PC.birthWeek>> weeks<</if>>.<</if>>
<<if $PC.career == "servant">>
<<if $PC.boobs == 1 && $PC.boobsBonus > 0>>
	<<if $PC.boobsBonus > 2>>
		You've gotten your dress let out to accommodate your huge bust.
	<<elseif $PC.boobsBonus == 2>>
		Your dress bulges with your big breasts.
	<<elseif $PC.boobsBonus == 1>>
		Your dress feels tight around your breasts.
	<</if>>
<</if>>
<<if $PC.preg >= 42>>
	Your baby is overdue and your master isn't here anymore to comfort your exhausted body. You try your best, <<if $PC.pregSource == -3>>drawing strength from the knowledge that you carry your late master's legacy within you<<else>>but deep down you are saddened that your child isn't his<</if>>.<<if $PC.pregMood == 1>> However, thanks to all your mothering, your slaves are more than happy to do everything they can for you.<<elseif $PC.pregMood == 2>> Your dicked slaves are terrified of being seen by you, knowing full well that they will be bearing the full weight of your body as you try to fill the hole left by your late master.<</if>>
<<elseif $PC.preg >= 40>>
	Your dress is at its capacity, any bigger and you'd risk tearing it at the seams, though your late master did make sure his girls were well dressed even when they were fully rounded with his child. Every action you take is exhausting, and even though your slaves are more than capable of serving your every desire, you refuse to slow down with your duties.<<if $PC.pregMood == 1>> Though you definatly appreciate their aid.<<elseif $PC.pregMood == 2>> Your hormones practically rule you, leading you to demand your slaves to be prepared to pleasure you at a moments notice. Your needy cunt hungers for dick and you don't care what it is attached to right now.<</if>>
<<elseif $PC.preg >= 36>>
	Your child happily kicks away inside your womb, and each time a small bump apears on the outside of your dress.<<if $PC.pregMood == 1>> While hormones may have you demanding and needy, you do everything you can to treat your slaves as if they were your own children.<<elseif $PC.pregMood == 2>> You know it's unbecoming for an arcology owner, but your former master loved to fuck you while you were pregnant with his children and your body misses his touch.<</if>>
<<elseif $PC.preg >= 32>>
	Your huge pregnant belly is tiring to carry around, but your well versed with moving about with a rounded middle.<<if $PC.pregMood == 1>> You can't help but enjoy having a slave suckle from you while you relax with her in your lap.<<elseif $PC.pregMood == 2>> You know how to have sex while pregnant, and as such, so will your slaves.<</if>>
<<elseif $PC.preg >= 28>>
	You've stopped bothering to tie your apron behind you, allowing your dress the freedom to stretch with your growing child.<<if $PC.pregMood == 1>> You catch yourself babying your slaves from time to time.<<elseif $PC.pregMood == 2>>Your sex drive has become unquenchable as of late.<</if>>
<<elseif $PC.preg >= 24>>
	Your maid's outfit is filled out by your baby-filled belly; not only is it obvious, but it is slowing you down in your day to day affairs.
<<elseif $PC.preg >= 22>>
	Something startling happened this week; while enjoying a slave, your belly button popped out!
<<elseif $PC.preg >= 20>>
	Your belly is now large enough that there is no hiding it. After you've let out your apron, your dress fits nicely again.
<<elseif $PC.preg >= 16>>
	Your dress tightly clings to your early pregnancy, though it, your apron, and your previous experience hide it well.
<<elseif $PC.preg >= 12>>
	Your apron holds your dress tightly to your bloated middle.
<<elseif $PC.preg >= 8>>
	Your dress and apron feel tight around your middle.
<</if>>
<<if $PC.ballsImplant > 2>>
	Your dress and apron bulges with your enormous balls.
<<elseif $PC.ballsImplant == 2>>
	Your dress hides your huge balls, but it does nothing to hide your altered gait.
<<elseif $PC.ballsImplant == 1>>
	Your dress hides your big balls.
<</if>>
<<if $PC.butt > 2>>
	<<if $PC.buttImplant == 1>>
		You had to get your dress let out to contain your enormous rear. It can't hide how big and fake it is though.
	<<else>>
		You had to get your dress let out to contain your enormous rear.
	<</if>>
<<elseif $PC.butt == 2>>
	Your dress is starting to feel tight around your huge rear.
<<elseif $PC.butt == 1>>
	Your dress is filled out by your big butt.
<</if>>
<<elseif $PC.career == "escort">>
<<if $PC.boobs == 1 && $PC.boobsBonus > 0>>
	<<if $PC.boobsBonus > 2>>
		You top strains as it struggles to cover your nipples, letting your huge bust bulge lewdly around it.
	<<elseif $PC.boobsBonus == 2>>
		Your top can barely contain your big breasts, leaving you looking sluttier than ever.
	<<elseif $PC.boobsBonus == 1>>
		Your breasts spill over your slutty top.
	<</if>>
<</if>>
<<if $PC.preg >= 42>>
	You can barely pull yourself and your overdue child out of bed; every action is a chore, you keep bumping things, and your child just won't calm down.<<if $PC.pregMood == 1>> However, thanks to all your tenderness, your slaves are more than happy to do everything they can for you.<<elseif $PC.pregMood == 2>> Your dicked slaves are terrified of being seen by you, knowing full well that they will be bearing the full weight of your body as you satisfy your desires.<</if>>
<<elseif $PC.preg >= 40>>
	You don't even bother to try to be slutty anymore, your full-term globe of a belly just steals all the attention away from your other assets. Every action you take is exhausting; though your slaves are more than capable of serving your every whim.<<if $PC.pregMood == 1>> Even in the final stages of pregnancy, you make sure the slaves attending you are treated as if the were your favorite clients.<<elseif $PC.pregMood == 2>> Your hormones practically rule you, leading you to demand your slaves to be prepared to pleasure you at a moments notice. Your needy cunt hungers for dick and you don't care what it is attached to right now.<</if>>
<<elseif $PC.preg >= 36>>
	Your huge pregnant belly hides your crotch and every kick from your eager child threatens to dislodge your breasts from your struggling top.<<if $PC.pregMood == 1>> While you may be demanding and needy, you do everything you can to treat them as if they were a virgin client.<<elseif $PC.pregMood == 2>> You know it's unbecoming for an arcology owner, but you need a dick in you even more than usual.<</if>>
<<elseif $PC.preg >= 32>>
	Your huge pregnant belly is tiring to carry around and is beginning to draw attention away from your other features.<<if $PC.pregMood == 1>> You can't help but enjoy having a slave, or client, suckle from you while you relax with them in your lap.<<elseif $PC.pregMood == 2>> You don't let your pregnancy get in the way when it comes to sex; you make sure your slaves, and clients, learn just how much you know about sex.<</if>>
<<elseif $PC.preg >= 28>>
	You've switched to even skimpier clothing to show off your pregnant belly.<<if $PC.pregMood == 1>> You catch yourself playfully teasing your slaves from time to time.<<elseif $PC.pregMood == 2>>Your sex drive has become unquenchable as of late.<</if>>
<<elseif $PC.preg >= 24>>
	Your outfit is only enhanced by your baby-filled belly; mostly because it adds to your slutty appearance. Though it definitly is impacting your business.
<<elseif $PC.preg >= 22>>
	Something startling happened this week; while enjoying a slave, your belly button popped out!
<<elseif $PC.preg >= 20>>
	Your slutty pants are begining to get hidden by your rounded middle.
<<elseif $PC.preg >= 16>>
	Your exposed midriff bulges out enough to give away your growing pregnancy.
<<elseif $PC.preg >= 12>>
	Your exposed midriff is noticeably bloated.
<<elseif $PC.preg >= 8>>
	When you look down, you can't help but notice your belly sticking out a little.
<</if>>
<<if $PC.ballsImplant > 2>>
	You've swapped up to a larger pair of slutty pants, specially designed with extra sack room. They draw the eye right to your bulge<<if $PC.preg >= 28>>; you can do without people thinking you are giving birth into your pants, though<</if>>.
<<elseif $PC.ballsImplant == 2>>
	Your slutty pants are really tight around the groin, but they hold your huge balls in place quite nicely.
<<elseif $PC.ballsImplant == 1>>
	Your slutty pants bulge more than ever with your big balls.
<</if>>
<<if $PC.dick == 1>>
	<<if $PC.butt > 2>>
		<<if $PC.buttImplant == 1>>
			You had to get your slutty pants let out to contain your enormous rear. It still feels really tight, however, thanks to the implants.
		<<else>>
			You had to get your slutty pants let out to contain your enormous rear. It still overflows scandalously, however.
		<</if>>
	<<elseif $PC.butt == 2>>
		Your huge rear spills out from the top of your slutty pants.
	<<elseif $PC.butt == 1>>
		Your slutty pants are strained by your big butt.
	<</if>>
<<else>>
	<<if $PC.butt > 2>>
		<<if $PC.buttImplant == 1>>
			Your ass has completely devoured your slutty shorts. You look like you are wearing a thong leaving your overly round cheeks to hang free.
		<<else>>
			Your ass has completely devoured your slutty shorts. You look like you are wearing a thong leaving your cheeks to jiggle freely.
		<</if>>
	<<elseif $PC.butt == 2>>
		Your slutty shorts are are filled to bursting by your rear. Roughly half of your ass is actually in your bottoms, the rest is bulging out scandalously.
	<<elseif $PC.butt == 1>>
		Your slutty shorts are strained by your big butt. It spills out every gap it can.
	<</if>>
<</if>>
<<else>>
<<if $PC.boobs == 1 && $PC.boobsBonus > 0>>
	<<if $PC.boobsBonus > 2>>
		You've gotten your top retailored to fit your huge bust.
	<<elseif $PC.boobsBonus == 2>>
		Your top strains against your big breasts.
	<<elseif $PC.boobsBonus == 1>>
		Your top feels tight around your breasts.
	<</if>>
<</if>>
<<if $PC.preg >= 42>>
	You can barely pull yourself and your overdue child out of bed; every action is a chore, you keep bumping things, and your child just won't calm down.<<if $PC.pregMood == 1>> However, thanks to all your mothering, your slaves are more than happy to do everything they can for you.<<elseif $PC.pregMood == 2>> Your dicked slaves are terrified of being seen by you, knowing full well that they will be bearing the full weight of your body as you satisfy your desires.<</if>>
<<elseif $PC.preg >= 40>>
	You don't even bother to try to cover your full-term pregnancy, opting to just let it hang out of your old clothing. Every action you take is exhausting; though your slaves are more than capable of serving your every desire.<<if $PC.pregMood == 1>> Even in the final stages of pregnancy, you make sure the slaves attending you are treated as if the were your children.<<elseif $PC.pregMood == 2>> Your hormones practically rule you, leading you to demand your slaves to be prepared to pleasure you at a moments notice. Your needy cunt hungers for dick and you don't care what it is attached to right now.<</if>>
<<elseif $PC.preg >= 36>>
	Your huge pregnant belly strains the buttons on your maternity suit. Every kick from your eager child threatens to send your buttons flying.<<if $PC.pregMood == 1>> While you may be demanding and needy, you do everything you can to treat them as if they were your own children.<<elseif $PC.pregMood == 2>> You know it's unbecoming for an arcology owner, but you need a dick in you and you don't care from where.<</if>>
<<elseif $PC.preg >= 32>>
	Your huge pregnant belly is tiring to carry around and is beginning to stretch out your new clothes.<<if $PC.pregMood == 1>> You can't help but enjoy having a slave suckle from you while you relax with her in your lap.<<elseif $PC.pregMood == 2>> You don't let your pregnancy get in the way when it comes to sex; you make sure your slaves learn new positions to accommodate your bulk.<</if>>
<<elseif $PC.preg >= 28>>
	You've switched to using what can only be called formal maternity wear to cover your pregnant belly.<<if $PC.pregMood == 1>> You catch yourself babying your slaves from time to time.<<elseif $PC.pregMood == 2>>Your sex drive has become unquenchable as of late.<</if>>
<<elseif $PC.preg >= 24>>
	You can barely cover your baby filled belly; not only is it obvious, but it is getting in the way of your business.
<<elseif $PC.preg >= 22>>
	Something startling happened this week; while enjoying a slave, your belly button popped out!
<<elseif $PC.preg >= 20>>
	Your belly is now large enough that there is no hiding it. Your top strains to cover it.
<<elseif $PC.preg >= 16>>
	Your top tightly clings to your early pregnancy, though you manage to conceal it well enough.
<<elseif $PC.preg >= 12>>
	Your top tightly clings to your bloated middle.
<<elseif $PC.preg >= 8>>
	Your top feels oddly tight around your middle.
<</if>>
<<if $PC.ballsImplant > 2>>
	You've had to get your suit pants retailored again to fit your enormous balls. It is obvious that the bulge in your pants is not your penis<<if $PC.preg >= 28>>; you've had several people rush to your aid under the mistaken belief that your child was crowing into your pants<</if>>.
<<elseif $PC.ballsImplant == 2>>
	You've had to get your suit pants retailored to fit your huge balls. It gives you a strinking figure, though.
<<elseif $PC.ballsImplant == 1>>
	Your suit pants bulge more than ever with your big balls.
<</if>>
<<if $PC.dick == 1>>
	<<if $PC.butt > 2>>
		<<if $PC.buttImplant == 1>>
			You had to get your suit pants let out to contain your enormous rear. It does nothing to hide how big and round your asscheeks are, though.
		<<else>>
			You had to get your suit pants let out to contain your enormous rear. It can clearly be seen jiggling within them.
		<</if>>
	<<elseif $PC.butt == 2>>
		Your huge rear threatens to tear apart your suit pants. You'll need to get them let out soon.
	<<elseif $PC.butt == 1>>
		Your suit pants are strained by your big butt.
	<</if>>
<<else>>
	<<if $PC.butt > 2>>
		<<if $PC.buttImplant == 1>>
			Your skirt covers your enormous butt but does nothing to hide its size and shape; you're beginning to show too much leg again, it might be time for a longer skirt.
		<<else>>
			Your skirt covers your enormous butt but does nothing to hide its size and fluidity; your rear is soft enough to fill out your skirt but not lift it up too far, it also translates every motion to the fabric, however.
		<</if>>
	<<elseif $PC.butt == 2>>
		Your skirt covers your huge butt but does nothing to hide its size; in fact, you've had to start wearing a longer one to make up for the extra surface area.
	<<elseif $PC.butt == 1>>
		Your skirt covers your big butt but does nothing to hide its size.
	<</if>>
<</if>>
<</if>>
<<if $PC.boobs == 1 && $PC.boobsImplants == 0>>
	<<if $PC.preg == 31>>
		<<if $PC.boobsBonus == 0>>
			<<if random(1,100) > 75>>
				Your breasts have @@.lime;grown larger@@ to feed your coming child. Quick measurements show you've gone up a cup size over the course of your pregnancy.
				<<set $PC.boobsBonus++>>
			<</if>>
		<<elseif $PC.boobsBonus == -1>>
			<<if random(1,100) > 80>>
				Your breasts have been really @@.lime;swollen@@ lately with your new pregnancy. Quick measurements show you've gone up nearly two cup sizes. You may want to consider getting a breast reduction.
				<<set $PC.boobsBonus++>>
			<</if>>
		<<elseif $PC.boobsBonus == 1>>
			<<if random(1,100) > 75>>
				Your already large breasts have @@.lime;grown even larger@@ with your new pregnancy. Quick measurements show you've gone up another cup size or so over the course of your pregnancy.
				<<set $PC.boobsBonus++>>
			<</if>>
		<<elseif $PC.boobsBonus == 2>>
			<<if random(1,100) > 90>>
				Your already huge breasts have @@.lime;grown even more enormous@@ with your new pregnancy. Quick measurements show you've gone up yet another a cup size over the course of your pregnancy.
				<<set $PC.boobsBonus++>>
			<</if>>
		<</if>>
	<</if>>
<</if>>
<</if>>

__Arcology Management__

<<if $ASlaves < 100>>
	<<set $ASlaves = random(90,110)>>
<<else>>
	<<set $ASlaves += random(-10,10)>>
<</if>>
<<if $AHelots < 100>>
	<<set $AHelots = random(90,110)>>
<<else>>
	<<set $AHelots += random(-10,10)>>
<</if>>
<<if $ACitizens < 100>>
	<<set $ACitizens = random(90,110)>>
<<else>>
	<<set $ACitizens += random(-10,10)>>
<</if>>

<<if $ProImmigrationRep == 1>>
	Your welcome program for new citizens helps encourage wealthy people from the old world to immigrate, but @@.red;annoys some longstanding citizens.@@
	<<set $ACitizens += random(10,20)>>
	<<set $rep -= 100>>
<<elseif $AntiImmigrationCash == 1>>
	You covertly @@.yellowgreen;sell@@ the private information of potential arcology immigrants on the old world black market.
	<<set $cash += random(500,1500)>>
	<<set $ACitizens -= random(5,15)>>
<</if>>
<<if $arcologies[0].FSRestartLaw == 1>>
	Your sterilization program drives several disloyal citizens out of the arcology.
	<<set $ACitizens -= random(3,10)>>
<</if>>
<<if $arcologies[0].FSRepopulationFocusLaw == 1>>
	The rent promotion for pregnant women attracts several gravid ladies and a few girls eager to become mothers to enroll as citizens in your arcology.
	<<set $ACitizens += random(5,10)>>
<</if>>
<<if $ProImmigrationCash == 1>>
	The rent promotion for new immigrants brings new citizens to the arcology.
	<<set $ACitizens += random(10,20)>>
<<elseif $AntiImmigrationRep == 1>>
	You allow citizens input on potential immigrants, a @@.green;popular@@ program.
	<<set $rep += 100>>
	<<set $AHelots += random(5,15)>>
<</if>>

<<if $ProRefugees == 1>>
	Your propaganda in the old world encourages desperate refugees to come here and become menial slaves.
	<<set $AHelots += random(5,10)>>
<</if>>

<<if $ACitizens+$ASlaves < ($arcologies[0].prosperity+200)*16>>
	<<set $ACitizens = Math.trunc($ACitizens*1.05)>>
	<<set $ASlaves = Math.trunc($ASlaves*(1/$slaveCostFactor))>>
<<elseif $ACitizens+$ASlaves > ($arcologies[0].prosperity+200)*20>>
	<<set $ACitizens = Math.trunc($ACitizens*0.95)>>
	<<set $ASlaves = Math.trunc($ASlaves*0.9)>>
<</if>>

<<if $AHelots > $ASlaves*2>>
	<<set $AHelots = Math.trunc($AHelots*0.95)>>
<<elseif $arcologies[0].FSEgyptianRevivalist != "unset">>
	<<set $AHelots += random(10,100)>>
<<elseif $arcologies[0].FSDegradationist != "unset">>
	<<set $AHelots += random(10,100)>>
<<elseif $arcologies[0].FSPastoralist != "unset">>
	<<set $AHelots += random(10,80)>>
<<elseif $arcologies[0].FSRomanRevivalist != "unset">>
	<<set $AHelots += random(10,80)>>
<<elseif $arcologies[0].FSChattelReligionist != "unset">>
	<<set $AHelots += random(10,20)>>
<<elseif $arcologies[0].FSPaternalist != "unset">>
	<<set $AHelots += random(10,20)>>
<<else>>
	<<set $AHelots += random(10,50)>>
<</if>>

<<set $seed = random(20,50)>>
<<if $arcologies[0].FSPaternalist != "unset">>
	Poor citizens can rely on their better-off peers in $arcologies[0].name.
	<<set $seed -= Math.trunc($arcologies[0].FSPaternalist/10)>>
<<elseif $arcologies[0].FSDegradationist != "unset">>
	The arcology is a cutthroat place in which falling into slavery is very easy.
	<<set $seed += Math.trunc($arcologies[0].FSDegradationist/10)>>
<</if>>
<<if $arcologies[0].FSEgyptianRevivalist != "unset">>
	Egyptian Revivalism is benevolent in some ways, and charity is common here.
	<<set $seed -= Math.trunc($arcologies[0].FSEgyptianRevivalist/10)>>
<<elseif $arcologies[0].FSRomanRevivalist != "unset">>
	Your citizens take pride in looking after each other.
	<<set $seed -= Math.trunc($arcologies[0].FSRomanRevivalist/10)>>
<</if>>
<<if $arcologies[0].FSChattelReligionist != "unset">>
	Chattel Religionism helps some poor citizens see slavery as a spiritually pure fate.
	<<set $seed += Math.trunc($arcologies[0].FSChattelReligionist/10)>>
<<elseif $arcologies[0].FSNull != "unset">>
	Your arcology's vibrant, open culture helps everyone succeed, preventing many struggling citizens from falling into slavery.
	<<set $seed -= Math.trunc($arcologies[0].FSNull/5)>>
<</if>>
<<if $arcologies[0].FSPastoralist != "unset">>
	The pastoralization of $arcologies[0].name helps concentrate wealth in the hands of a few.
	<<set $seed += Math.trunc($arcologies[0].FSPastoralist/10)>>
<</if>>
<<if $AntiEnslavementCash == 1>>
	Your charity purse prevents a few citizens from falling into slavery.
	<<set $seed -= 10>>
<<elseif $ProEnslavementCash == 1>>
	You @@.yellowgreen;take kickbacks@@ for ignoring enslavement of citizens.
	<<set $seed += 10>>
	<<set $cash += random(500,1500)>>
<</if>>
<<if $AntiEnslavementRep == 1>>
	You use your personal influence to help struggling citizens.
	<<set $seed -= 10>>
	<<set $rep -= 100>>
<<elseif $ProEnslavementRep == 1>>
	You @@.green;make friends@@ by tacitly supporting enslavement of upstart citizens.
	<<set $seed += 10>>
	<<set $rep += 100>>
<</if>>
<<if $seed < 0>>
	<<if $ACitizens < $ASlaves*5>>
	<<set $ACitizens -= $seed>>
	<<set $ASlaves += $seed>>
	<</if>>
<<else>>
	<<if $ACitizens > $ASlaves*0.1>>
	<<if $ACitizens > 200>>
		<<set $ACitizens -= $seed>>
		<<set $ASlaves += $seed>>
	<</if>>
	<</if>>
<</if>>

$ACitizens citizens, $ASlaves sex slaves, and <<print $AHelots+$helots>> menial slaves live in your arcology.
<<if $arcologies[0].FSSupremacistLawME == 1>>The citizenry is entirely $arcologies[0].FSSupremacistRace.<</if>>
<<if $arcologies[0].FSRomanRevivalistLaw == 1>>The citizens take pride in their martial duties, preferring to wear utilitarian clothing even when off duty.<</if>>
<<if $arcologies[0].FSGenderRadicalistLaw == 1>>Every single one of the slaves is female by virtue of her fuckable asshole.
<<elseif $arcologies[0].FSGenderFundamentalistSMR == 1>>Almost every citizen is an upstanding man, while the slave population is almost completely female.<</if>>
<<if $arcologies[0].FSEgyptianRevivalistLaw == 1>>Close relationships between citizens and slaves, especially slave siblings, are common.<</if>>
<<if $arcologies[0].FSSubjugationistLawME == 1>>$arcologies[0].FSSubjugationistRace subhumans form a majority of the slaves.<</if>>
<<if $arcologies[0].FSChattelReligionistLaw == 1>>The slave population as a whole is unusually accepting of its station.<</if>>
<<if $arcologies[0].FSPaternalistLaw == 1>>The slaves are well cared for, and it can sometimes be difficult to tell slaves from citizens.
<<elseif $arcologies[0].FSDegradationistLaw == 1>>Most of the slaves are recent captures, since the vicious society that's taken root here uses people up quickly.<</if>>
<<if $arcologies[0].FSBodyPuristLaw == 1>>The average slave is quite healthy.
<<elseif $arcologies[0].FSTransformationFetishistResearch == 1>>Breast implants are almost universal; an M cup bust is below average among the slave population.
<<elseif $arcologies[0].FSTransformationFetishistLaw == 1>>Breast implants are almost universal; a D cup bust is below average among the slave population.<</if>>
<<if $arcologies[0].FSSlimnessEnthusiastSMR == 1>>Most of the slave population is quite slim and physically fit.
<<elseif $arcologies[0].FSAssetExpansionistSMR == 1>>The arcology's consumption of pharmaceuticals is impressive, since slave growth hormones are nearly ubiquitous.<</if>>
<<if $arcologies[0].FSRepopulationFocusLaw == 1>>Many of the women in the arcology are pregnant.<<elseif $arcologies[0].FSRepopulationFocusSMR == 1>>Most of the slaves in the arcology are pregnant.<<elseif $arcologies[0].FSRestartLaw == 1>>Many of your civilians have agreed to be sterilized.<<elseif $arcologies[0].FSRestartSMR == 1>>Many of slave slaves in your arcology are infertile.<</if>>
<<if $arcologies[0].FSPastoralistLaw == 1>>Much of the menial slave labor force works to service the arcology's hundreds of human cattle.<</if>>
<<if $arcologies[0].FSPhysicalIdealistSMR == 1>>The arcology must import a very large quantity of nutritive protein to nourish its slaves.<</if>>

<<if $ACitizens > $ASlaves*2>>
	Since most citizens cannot afford their own sex slaves, @@.yellowgreen;demand for sexual services is intense.@@
<<elseif $ACitizens > $ASlaves>>
	Since many citizens cannot afford their own sex slaves, @@.yellowgreen;demand for sexual services is healthy.@@
<<elseif $ACitizens > $ASlaves*0.5>>
	Since many citizens can afford to keep a sex slave, @@.yellow;demand for sexual services is only moderate.@@
<<elseif $ACitizens > $ASlaves*0.25>>
	Since most citizens can afford to keep at least one sex slaves, @@.gold;local demand for sexual services is low,@@ though visitors to the arcology will always keep it above a certain minimum.
<<else>>
	Since most of your citizens now keep private harems of sex slaves, @@.gold;local demand for sexual services is very low,@@ though visitors to the arcology will always keep it above a certain minimum.
<</if>>

<<set $rents = ($arcologies[0].prosperity*$arcologies[0].ownership*2)+random(1,100)>>
<<set $rentalMultiplier = 1>>
<<if $arcologies[0].FSPaternalistLaw == 1>>
	<<set $rentalMultiplier -= 0.1>>
	Slaveowners who can prove that they abstain from certain practices are given a reduction to their rent.
<</if>>
<<if $arcologies[0].FSYouthPreferentialistLaw == 1>>
	<<set $rentalMultiplier -= 0.1>>
	Younger citizens are offered subsidized rent to encourage young people to join the free population of your arcology.
<</if>>
<<if $arcologies[0].FSMaturityPreferentialistLaw == 1>>
	<<set $rentalMultiplier -= 0.1>>
	Older citizens are offered subsidized rent to encourage mature people to join the free population of your arcology.
<</if>>
<<if $arcologies[0].FSRepopulationFocusLaw == 1>>
	<<set $rentalMultiplier -= 0.1>>
	Pregnant citizens are offered subsidized rent to encourage free women to become pregnant and pregnant women to join the free population of your arcology.
<<elseif $arcologies[0].FSRestartLaw == 1>>
	<<set $rentalMultiplier += 0.1>>
	Non-elite citizens who refuse to be sterilized face a moderate tax and the looming possibility of expulsion or enslavement.
<</if>>
<<if $arcologies[0].FSArabianRevivalistLaw == 1>>
	<<set $rentalMultiplier += 0.1>>
	Those of your citizens who have not yet subscribed to the society you are building are permitted to live and do business here, but must pay a moderate jizya tax for the privilege as part of their rent.
<</if>>
<<set $rents = Math.trunc($rents*$rentalMultiplier)>>

<<set $cash += $rents>>

This week, rents from $arcologies[0].name came to
<<if $rents > 0>>
	@@.yellowgreen;¤$rents.@@
<<else>>
	@@.red;¤$rents.@@
<</if>>

<<if $economy > 1>>
	<<set $rents = ($week*100)+random(-100,100)>>
	<<if $cash > 1000>>
			<<set $rents += Math.trunc($cash/10)>>
	<</if>>
	The @@.red;degenerating world economy@@ makes supplying and maintaining $arcologies[0].name extremely difficult. This week, bribes and other costs to keep it running came to @@.yellowgreen;¤$rents.@@
	<<set $cash -= $rents>>
<</if>>

<<if $helots+$menialBioreactors+$fuckdolls > 0>>
<<set $seed = 0>>
You own
<<if $helots > 0>>
	<<set $seed += Math.trunc($helots*(random(90,110)/100)*20)>>
	<<if $helots > 1>>
	$helots 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>>
	<<set $seed += Math.trunc($menialBioreactors*(random(90,110)/100)*(15+(10*$arcologies[0].FSPastoralistLaw)))>>
	<<if $menialBioreactors > 1>>
	$menialBioreactors standard bioreactors,
	<<else>>
	one standard bioreactor,
	<</if>>
	<<if $fuckdolls > 0>>and<</if>>
<</if>>
<<if $fuckdolls > 0>>
	<<set $seed += Math.trunc($fuckdolls*(random(90,110)/100)*(25+(10*$arcologies[0].FSDegradationistLaw)))>>
	<<if $fuckdolls > 1>>
	$fuckdolls standard fuckdolls,
	<<else>>
	one fuckdoll,
	<</if>>
<</if>>
<<set $cash += $seed>>
earning you @@.yellowgreen;¤$seed.@@
<</if>>

<<set $seed = 0>>
<<if $terrain == "urban">>
	<<set $seed += random(0,5)>>
<<elseif $terrain == "rural">>
	<<set $seed += random(0,3)>>
<<elseif $terrain == "marine">>
	<<set $seed += random(0,1)>>
<</if>>
<<if $ProRefugees == 1>>
	<<set $seed += random(0,1)>>
<</if>>
<<for $i = 0; $i < 3; $i++>>
	<<if $rep > random(0,30000)>>
	<<set $seed += 1>>
	<</if>>
<</for>>
<<if $seed > 0>>
	Some desperate people filtered into the arcology during the week: as owner, you were able to enslave $seed of them.
	<<set $helots += $seed>>
<</if>>

<<set _AWeekGrowth = $AGrowth>>
<<if _AWeekGrowth+$arcologies[0].prosperity > $AProsperityCap>>
	@@.yellow;$arcologies[0].name is at its maximum prosperity, so rents will not increase until it is upgraded.@@
<<elseif (2*_AWeekGrowth)+$arcologies[0].prosperity >= $AProsperityCap>>
	@@.yellow;Your arcology is nearly at its maximum prosperity.@@
	<<set $arcologies[0].prosperity += _AWeekGrowth>>
<<else>>
	<<if $arcologies[0].ownership >= 100>>
		Your controlling interest in $arcologies[0].name allows you to lead it economically, @@.green;supercharging growth.@@
		<<set _AWeekGrowth += 3>>
	<<elseif $arcologies[0].ownership >= random(40,100)>>
		Your interest in $arcologies[0].name allows you to lead it economically, @@.green;boosting growth.@@
		<<set _AWeekGrowth++>>
	<</if>>
	<<if $arcologies[0].prosperity < ($rep/100)>>
		Your impressive reputation relative to $arcologies[0].name's prosperity @@.green;drives an increase in business.@@
		<<set _AWeekGrowth++>>
	<<elseif $rep > 18000>>
	<<elseif $arcologies[0].prosperity > ($rep/60)>>
		Your low reputation relative to $arcologies[0].name's prosperity @@.red;seriously impedes business growth.@@
		<<set _AWeekGrowth -= 2>>
	<<elseif $arcologies[0].prosperity > ($rep/80)>>
		Your unimpressive reputation relative to $arcologies[0].name's prosperity @@.yellow;slows business growth.@@
		<<set _AWeekGrowth-->>
	<</if>>
	<<if $personalAttention == "business">>
		<<if ($PC.trading >= 100) || ($PC.career == "arcology owner")>>
			Your @@.springgreen;business focus and your experience@@ allow you to greatly assist in advancing the arcology's prosperity.
			<<set _AWeekGrowth += 2>>
		<<else>>
			Your business focus allows you to help improve the arcology's prosperity.
			<<set _AWeekGrowth++>>
		<</if>>
		<<if $PC.actualAge >= 50>>
			<<if $arcologies[0].FSMaturityPreferentialistLaw == 1>>
				You are able to leverage your long seniority in the business community using the arcology's favorable laws to further advance prosperity.
				<<set _AWeekGrowth++>>
			<</if>>
		<<elseif $PC.actualAge < 35>>
			<<if $arcologies[0].FSYouthPreferentialistLaw == 1>>
				You are able to leverage your freshness in the business community using the arcology's favorable laws to further advance prosperity.
				<<set _AWeekGrowth++>>
			<</if>>
		<</if>>
	<</if>>
	<<if $arcologies[0].FSNull != "unset">>
		Your cultural openness is a powerful driver of economic activity.
		<<set _AWeekGrowth += Math.trunc($arcologies[0].FSNull/25)>>
	<</if>>
	<<if $arcologies[0].FSRestart != "unset">>
		Your powerful connections open many avenues of economic expansion.
		<<set _AWeekGrowth += Math.trunc($arcologies[0].FSRestart/10)>>
	<</if>>
	<<if $arcologies[0].FSPaternalist >= random(1,100)>>
		This week, the careful attention to slave welfare your new society emphasizes has been a driver of prosperity.
		<<set _AWeekGrowth++>>
	<</if>>
	<<if $arcologies[0].FSChattelReligionistCreed == 1>>
	<<if $nicaeaFocus == "owners">>
		The focus on slaveowners' whims in the creed of $nicaeaName interests the rich and powerful, increasing prosperity.
		<<set _AWeekGrowth += $nicaeaPower>>
	<</if>>
	<</if>>
	<<if $arcologies[0].FSRomanRevivalist >= random(1,100)>>
		This week, intense interest in your project to revive Roman values has driven prosperity.
		<<set _AWeekGrowth++>>
	<<elseif $arcologies[0].FSChineseRevivalist != "unset">>
		<<if ($HeadGirl != 0) && ($Recruiter != 0) && ($Bodyguard != 0)>>
			This week, your imperial administration, staffed with a Head Girl, a Recruiter, and a Bodyguard, has improved prosperity.
			<<set _AWeekGrowth += 2>>
		<</if>>
	<</if>>
	<<if $PC.trading >= 100>>
		Your @@.springgreen;business skills@@ drive increased prosperity.
		<<set _AWeekGrowth++>>
	<<elseif $PC.career == "arcology owner">>
		Your @@.springgreen;experience in the Free Cities@@ helps increase prosperity.
		<<set _AWeekGrowth++>>
	<</if>>
	<<set _schools = $TSS.schoolPresent+$GRI.schoolPresent+$SCP.schoolPresent+$LDE.schoolPresent+$TGA.schoolPresent+$TFS.schoolPresent>>
	<<if _schools == 1>>
		The presence of a slave school in the arcology improves the local economy.
	<<elseif _schools > 0>>
		The presence of slave schools in the arcology greatly improves the local economy.
	<<elseif $arcologies[0].prosperity > 80>>
		The lack of a branch campus from a reputable slave school is slowing further development of the local economy.
		<<set _AWeekGrowth-->>
	<</if>>
	<<set _AWeekGrowth += _schools>>
	<<if $arcologies[0].FSDegradationistLaw == 1>>
		Requiring menials to be given time to fuck human sex toys in the arcade reduces labor efficiency, slowing growth.
		<<set _AWeekGrowth-->>
	<</if>>
	<<if $arcologies[0].FSBodyPuristLaw == 1>>
		The drug surcharge used to fund the purity regime reduces growth.
		<<set _AWeekGrowth-->>
	<</if>>
	<<if $arcologies[0].FSPastoralistLaw == 1>>
		Prosperity improvement is slowed by the regulations on animal products.
		<<set _AWeekGrowth-->>
	<</if>>
	<<if $arcologies[0].FSPaternalistSMR == 1>>
		Your slave market regulations slow the flow of chattel through the arcology.
		<<set _AWeekGrowth-->>
	<</if>>
	<<if $terrain == "urban">>
		Since your arcology is located in the heart of an urban area, its commerce is naturally vibrant.
		<<set _AWeekGrowth++>>
	<</if>>
	<<if $terrain == "ravine">>
		Since your arcology is located in the heart of a ravine, its commerce is hindered by a lack of accessability.
		<<set _AWeekGrowth -= 1>>
	<</if>>
	<<if def $arcologies[0].embargoTarget && $arcologies[0].embargoTarget != -1>>
		The local economy is hurt by the double edged sword of your economic warfare.
		<<set _AWeekGrowth -= $arcologies[0].embargo*2>>
	<</if>>
	<<set $desc = []>>
	<<set $descNeg = []>>
	<<for $i = 1; $i < $arcologies.length; $i++>>
		<<set $activeArcology = $arcologies[0]>>
		<<set $targetArcology = $arcologies[$i]>>
		<<include "Arcology Opinion">>
		<<if $opinion >= 100>>
			<<set $desc.push($arcologies[$i].name)>>
		<<elseif $opinion <= -100>>
			<<set $descNeg.push($arcologies[$i].name)>>
		<</if>>
	<</for>>
	<<if $desc.length > 0>>
		Your arcology's economy benefits from close social alignment with
		<<if $desc.length > 2>>
		''$desc[0]'',
		<<for $k = 1; $k < $desc.length; $k++>>
			<<if $k < $desc.length-1>>
			''$desc[$k]'',
			<<else>>
			and ''$desc[$k]''<<if $descNeg.length > 0>>, but<<else>>.<</if>>
			<</if>>
		<</for>>
		<<elseif $desc.length == 2>>
		''$desc[0]'' and ''$desc[1]''<<if $descNeg.length > 0>>, but<<else>>.<</if>>
		<<else>>
		''$desc[0]''<<if $descNeg.length > 0>>, but<<else>>.<</if>>
		<</if>>
		<<set _AWeekGrowth += $desc.length>>
	<</if>>
	<<if $descNeg.length > 0>>
		<<if $desc.length > 0>>Your arcology's economy<</if>>
		is hindered by social conflicts with
		<<if $descNeg.length > 2>>
		''$descNeg[0]'',
		<<for $k = 1; $k < $descNeg.length; $k++>>
			<<if $k < $descNeg.length-1>>
			''$descNeg[$k]'',
			<<else>>
			and ''$descNeg[$k]''.
			<</if>>
		<</for>>
		<<elseif $descNeg.length == 2>>
		''$descNeg[0]'' and ''$descNeg[1]''.
		<<else>>
		''$descNeg[0]''.
		<</if>>
		<<set _AWeekGrowth -= $descNeg.length>>
	<</if>>
	<<if $alwaysSubsidizeGrowth == 1>>
		Growth was subsidized as planned.
		<<set _AWeekGrowth++>>
	<</if>>
	<<set _AWeekGrowth = Math.trunc(0.5*_AWeekGrowth)>>
	<<if _AWeekGrowth > 0>>
		Since $arcologies[0].name can support more citizens and more activity, @@.green;its prosperity improved this week.@@
	<<elseif _AWeekGrowth == 0>>
		Though $arcologies[0].name can support more citizens and more activity, @@.yellow;growth was moribund this week.@@
	<<else>>
		Though $arcologies[0].name can support more citizens and more activity, @@.red;it lost prosperity this week.@@
	<</if>>
	<<set $arcologies[0].prosperity += _AWeekGrowth>>
<</if>>

<<if $TSS.schoolPresent+$GRI.schoolPresent+$SCP.schoolPresent+$LDE.schoolPresent+$TGA.schoolPresent+$TFS.schoolPresent > 0>>

<<if $TSS.schoolPresent == 1>>

The Slave School has a <<if $TSS.schoolProsperity > 4>>very prosperous<<elseif $TSS.schoolProsperity < -4>>struggling<<else>>thriving<</if>> branch campus in $arcologies[0].name.
<<if $TSS.schoolProsperity >= 10>>
	It is one of the finest slave schools in the world<<if $rep > 19000>>.<<else>>, @@.green;improving your reputation.@@<<set $rep += 200>><</if>>
	<<set $TSS.subsidize = 0>>
	<<set $TSS.schoolProsperity = 10>>
<</if>>
<<if $TSS.subsidize == 1>>
	You have a policy of subsidizing them.
	<<set $TSS.schoolProsperity++>>
<<elseif $TSS.subsidize == -1>>
	You have a policy of covertly undermining them.
	<<set $TSS.schoolProsperity-->>
<</if>>
<</if>>

<<if $GRI.schoolPresent == 1>>

The Growth Research Institute has a <<if $GRI.schoolProsperity > 4>>very prosperous<<elseif $GRI.schoolProsperity < -4>>struggling<<else>>thriving<</if>> subsidiary lab in $arcologies[0].name.
<<if $GRI.schoolProsperity >= 10>>
	It is one of the finest research facilities in the world<<if $rep > 19000>>.<<else>>, @@.green;improving your reputation.@@<<set $rep += 200>><</if>>
	<<set $GRI.subsidize = 0, $GRI.schoolProsperity = 10>>
<</if>>
<<if $GRI.subsidize == 1>>
	You have a policy of subsidizing them.
	<<set $GRI.schoolProsperity++>>
<<elseif $GRI.subsidize == -1>>
	You have a policy of covertly undermining them.
	<<set $GRI.schoolProsperity-->>
<</if>>
<</if>>

<<if $SCP.schoolPresent == 1>>

St. Claver Preparatory has a <<if $SCP.schoolProsperity > 4>>very prosperous<<elseif $SCP.schoolProsperity < -4>>struggling<<else>>thriving<</if>> branch campus in $arcologies[0].name.
<<if $SCP.schoolProsperity >= 10>>
	It is one of the finest slave schools in the world<<if $rep > 19000>>.<<else>>, @@.green;improving your reputation.@@<<set $rep += 200>><</if>>
	<<set $SCP.subsidize = 0, $SCP.schoolProsperity = 10>>
<</if>>
<<if $SCP.subsidize == 1>>
	You have a policy of subsidizing them.
	<<set $SCP.schoolProsperity++>>
<<elseif $SCP.subsidize == -1>>
	You have a policy of covertly undermining them.
	<<set $SCP.schoolProsperity-->>
<</if>>
<</if>>

<<if $LDE.schoolPresent == 1>>

L'Ecole des Enculees has a <<if $LDE.schoolProsperity > 4>>very prosperous<<elseif $LDE.schoolProsperity < -4>>struggling<<else>>thriving<</if>> branch campus in $arcologies[0].name.
<<if $LDE.schoolProsperity >= 10>>
	It is one of the finest slave schools in the world<<if $rep > 19000>>.<<else>>, @@.green;improving your reputation.@@<<set $rep += 200>><</if>>
	<<set $LDE.subsidize = 0, $LDE.schoolProsperity = 10>>
<</if>>
<<if $LDE.subsidize == 1>>
	You have a policy of subsidizing them.
	<<set $LDE.schoolProsperity++>>
<<elseif $LDE.subsidize == -1>>
	You have a policy of covertly undermining them.
	<<set $LDE.schoolProsperity-->>
<</if>>
<</if>>

<<if $TGA.schoolPresent == 1>>

The Gymnasium-Academy has a <<if $TGA.schoolProsperity > 4>>very prosperous<<elseif $TGA.schoolProsperity < -4>>struggling<<else>>thriving<</if>> branch campus in $arcologies[0].name.
<<if $TGA.schoolProsperity >= 10>>
	It is one of the finest slave schools in the world<<if $rep > 19000>>.<<else>>, @@.green;improving your reputation.@@<<set $rep += 200>><</if>>
	<<set $TGA.subsidize = 0, $TGA.schoolProsperity = 10>>
<</if>>
<<if $TGA.subsidize == 1>>
	You have a policy of subsidizing them.
	<<set $TGA.schoolProsperity++>>
<<elseif $TGA.subsidize == -1>>
	You have a policy of covertly undermining them.
	<<set $TGA.schoolProsperity-->>
<</if>>
<</if>>

<<if $TFS.schoolPresent == 1>>

The Futanari Sisters have a <<if $TFS.schoolProsperity > 4>>very prosperous<<elseif $TFS.schoolProsperity < -4>>struggling<<else>>thriving<</if>> community in $arcologies[0].name.
<<if $TFS.schoolProsperity >= 10>>
	They are one of the most renowned futa societies in the world<<if $rep > 19000>>.<<else>>, @@.green;improving your reputation.@@<<set $rep += 200>><</if>>
	<<set $TFS.subsidize = 0, $TFS.schoolProsperity = 10>>
<</if>>
<<if $TFS.subsidize == 1>>
	You have a policy of subsidizing them<<if ($PC.dick == 1) && ($PC.vagina == 1) && ($PC.boobs == 1)>>, which is more effective due to your close relationship with them and your physical resemblance to them<<set $TFS.schoolProsperity++>><</if>>.
	<<set $TFS.schoolProsperity++>>
<<elseif $TFS.subsidize == -1>>
	You have a policy of covertly undermining them.
	<<set $TFS.schoolProsperity-->>
<</if>>
<</if>>

<</if>>

<<if $marketAssistantLimit != 0>>
<<set $seed = Math.clamp($slaveCostFactor*1000, 500, 1500)>>

Your ''business assistant'' manages the menial slave market.
<<if $seed <= 800+$marketAssistantAggressiveness>>/* BUY */
	<<if $helots+$fuckdolls+$menialBioreactors >= 100*Math.trunc(($arcologies[0].ownership*$AProsperityCap)/1000)>>
	There is no room in the parts of your arcology you own for more menial slaves.
	<<else>>
	<<if $cash > $marketAssistantLimit+$seed>>
		<<if $assistant == 0>>It<<else>>She<</if>> acquires more chattel, since it's a buyers' market.
		<<if ($arcologies[0].FSPastoralist != "unset") && ($arcologies[0].FSPaternalist == "unset")>>
			<<set $menialBioreactors += Math.trunc(($cash-$marketAssistantLimit)/($seed-100)), $cash -= Math.trunc(($cash-$marketAssistantLimit)/($seed-100))*($seed-100)>>
		<<elseif ($arcologies[0].FSDegradationist != "unset")>>
			<<set $fuckdolls += Math.trunc(($cash-$marketAssistantLimit)/($seed*2)), $cash -= Math.trunc(($cash-$marketAssistantLimit)/($seed*2))*($seed*2)>>
		<<else>>
			<<set $helots += Math.trunc(($cash-$marketAssistantLimit)/($seed)), $cash -= Math.trunc(($cash-$marketAssistantLimit)/($seed))*($seed)>>
		<</if>>
	<</if>>
	<</if>>
<<elseif $seed >= 1200-$marketAssistantAggressiveness>>/* SELL */
	<<if $helots+$fuckdolls+$menialBioreactors > 0>>
		<<if $assistant == 0>>It<<else>>She<</if>> liquidates your chattel holdings, since it's a sellers' market.
	<</if>>
	<<if $helots > 0>>
		<<set $cash+=$helots*($seed),$helots = 0>>
	<</if>>
	<<if $fuckdolls > 0>>
		<<set $cash+=$fuckdolls*($seed),$fuckdolls = 0>>
	<</if>>
	<<if $menialBioreactors > 0>>
		<<set $cash+=$menialBioreactors*($seed),$menialBioreactors = 0>>
	<</if>>
<<else>>
	Prices are average, so <<if $assistant == 0>>It<<else>>She<</if>> does not make any significant moves.
<</if>>
<<silently>><<MenialPopCap>><</silently>>
<</if>>

<<if $FSAnnounced > 0>>

	<<include "FS Developments">>
<</if>>


code:
:: End Week [nobr]

<<set $gingering = 0>>

<<set $oralUseWeight = 5>>
<<set $vaginalUseWeight = 5>>
<<set $analUseWeight = 5>>

<<if $OralEncouragement == 1>>
	<<set $oralUseWeight += 2>>
	<<set $vaginalUseWeight -= 1>>
	<<set $analUseWeight -= 1>>
<<elseif $VaginalEncouragement == 1>>
	<<set $oralUseWeight -= 1>>
	<<set $vaginalUseWeight += 2>>
	<<set $analUseWeight -= 1>>
<<elseif $AnalEncouragement == 1>>
	<<set $oralUseWeight -= 1>>
	<<set $vaginalUseWeight -= 1>>
	<<set $analUseWeight += 2>>
<</if>>
<<if $OralDiscouragement == 1>>
	<<set $oralUseWeight -= 2>>
	<<set $vaginalUseWeight += 1>>
	<<set $analUseWeight += 1>>
<</if>>
<<if $VaginalDiscouragement == 1>>
	<<set $oralUseWeight += 1>>
	<<set $vaginalUseWeight -= 2>>
	<<set $analUseWeight += 1>>
<</if>>
<<if $AnalDiscouragement == 1>>
	<<set $oralUseWeight += 1>>
	<<set $vaginalUseWeight += 1>>
	<<set $analUseWeight -= 2>>
<</if>>

<<set $inflatedSlavesMilk = 0>>
<<set $inflatedSlavesCum = 0>>
<<for _i = 0; _i < $slaves.length; _i++>>
	<<if $slaves[_i].inflationMethod == 1 || $slaves[_i].inflationMethod == 2>>
		<<if $slaves[_i].inflationType == "milk">>
			<<set $inflatedSlavesMilk++>>
		<<elseif $slaves[_i].inflationType == "cum">>
			<<set $inflatedSlavesCum++>>
		<</if>>
	<</if>>
<</for>>

<<set $organsCompleted = 0>>
<<if $organs.length > 0>>
<<for _i = 0; _i < $organs.length; _i++>>
	<<if $organs[_i].weeksToCompletion > 0>>
		<<if $organFarmUpgrade == 3>>
			<<set $organs[_i].weeksToCompletion -= 4>>
		<<elseif $organFarmUpgrade == 2>>
			<<set $organs[_i].weeksToCompletion -= 2>>
		<<else>>
			<<set $organs[_i].weeksToCompletion-->>
		<</if>>
	<</if>>
	<<if $organs[_i].weeksToCompletion <= 0>>
		<<set $organsCompleted++>>
	<</if>>
<</for>>
<</if>>

<<if $limbs.length > 0>>
<<for _i = 0; _i < $limbs.length; _i++>>
	<<if $limbs[_i].weeksToCompletion > 0>>
		<<set $limbs[_i].weeksToCompletion-->>
	<</if>>
	<<if $limbs[_i].weeksToCompletion == 0>>
		<<set $limbsCompleted++>>
	<</if>>
<</for>>
<</if>>

/% Begin section: ensure minimum age is set (game may have been loaded from a non-modded version). %/
<<if $minimumSlaveAge <= 18 && $minimumSlaveAge > 0>>
<<else>>
  <<set $minimumSlaveAge = 18>>
  <<set $pedo_mode = 0>>
  <<if $fertilityAge <= 18 && $fertilityAge > 0>>
  <<else>>
	<<set $fertilityAge = 13>>
  <</if>>
  <<if $potencyAge <= 18 && $potencyAge > 0>>
  <<else>>
	<<set $potencyAge = 13>>
  <</if>>
<</if>>
/% End section: ensure minimum age is set. %/

<<set $TSS.schoolSale = 0, $GRI.schoolSale = 0, $SCP.schoolSale = 0, $LDE.schoolSale = 0, $TGA.schoolSale = 0, $TFS.schoolSale = 0, $independenceDay = 0, $showEncyclopedia = 0, $racialVarieties = [], $shelterGirlsIDs = [], $oldWeek = $week, $cashLastWeek = $cash>>

<<if $manuallyRetired == 0>><<set $retiree = 0>><</if>>
<<set $expiree = 0>>

<<set $PC.sexualEnergy = 4>>
<<if $personalAttention == "sex">>
	<<set $PC.sexualEnergy += 2>>
<</if>>
<<if $PC.physicalAge >= 65>>
	<<set $PC.sexualEnergy -= 4>>
<<elseif $PC.physicalAge >= 50>>
	<<set $PC.sexualEnergy -= 2>>
<<elseif $PC.physicalAge < 35>>
	<<set $PC.sexualEnergy += 2>>
<</if>>
<<if $PC.preg > 20>>
	<<if $PC.pregMood == 2>>
		<<set $PC.sexualEnergy += 4>>
	<<else>>
		<<set $PC.sexualEnergy -= 3>>
	<</if>>
<<elseif $PC.preg > 0>>
	<<set $PC.sexualEnergy -= 1>>
<</if>>
<<if $PC.preg > 0>>
	<<set $PC.preg++>>
<</if>>

<<set $HGEnergy = 0, $HGCum = 0, $HGSlaveSuccess = 0, $HeadGirl = 0, $HGBalls = 0, $HGRelease = 1, $Recruiter = 0, $Madam = 0, $madamCashBonus = 0, $DJ = 0, $DJRepBonus = 0, $Milkmaid = 0, $Collectrix = 0, $Stewardess = 0, $Schoolteacher = 0, $Wardeness = 0, $Concubine = 0, $Attendant = 0, $Nurse = 0, $Bodyguard = 0, $bedSlaves = 0, $fuckSlaves = 0, $freeSexualEnergy = 0, $publicServants = 0, $cumSlaves = 0, $averageDick = 0, $slavesWithWorkingDicks = 0>>

/* GAMEOVERS */
<<if $slaves.length < 1>>
	<<set $gameover = "no slaves">><<goto "Gameover">>
<<elseif $arcologies[0].ownership < $arcologies[0].minority>>
	<<set $gameover = "ownership">><<goto "Gameover">>
<<else>>
	<<goto "Slave Assignments Report">>
<</if>>