code:
:: Neighbors FS Adoption [nobr]

$arcologies[$i].name is prosperous enough that
<<switch $arcologies[$i].government>>
<<case "elected officials">>
	its elected officials consider
<<case "a committee">>
	the committee that controls it considers
<<case "an oligarchy" "your trustees">>
	its leading citizens consider
<<case "an individual">>
	its owner and its citizens consider
<<case "your agent">>
	your agent and its citizens consider
<<case "a corporation">>
	its board of directors considers
<<default>>
	its citizens consider
<</switch>>
societal development.
<<set $adopted = 0>>

/* PRIME RIVALRY FS ADOPTION */

<<if $arcologies[$i].rival == 1>>
<<if $arcologies[$i].government == "an individual">>
<<if $rivalryFSAdopted == 0>>

  <<set $rivalryFSAdopted = 1>>
  <<set $desc = "Its owner is">>
  <<switch $rivalryFS>>
  <<case "Racial Subjugationism">>
	<<if $arcologies[$i].FSSubjugationist != "unset">><<set $arcologies[$i].FSSubjugationist = "unset">><</if>>
	$desc preoccupied by belief in the superiority of the $arcologies[0].FSSubjugationistRace race, leading the arcology to @@.yellow;adopt $arcologies[0].FSSubjugationistRace Supremacy.@@
	<<set $arcologies[$i].FSSupremacist = 5>><<set $adopted = 1>>
	<<set $arcologies[$i].FSSupremacistRace = $arcologies[0].FSSubjugationistRace>>
  <<case "Racial Supremacism">>
	<<if $arcologies[$i].FSSupremacist != "unset">><<set $arcologies[$i].FSSupremacist = "unset">><</if>>
	$desc preoccupied by a racial animus towards $arcologies[0].FSSupremacistRace people, leading the arcology to @@.yellow;adopt $arcologies[0].FSSupremacistRace Subjugation.@@
	<<set $arcologies[$i].FSSubjugationist = 5>><<set $adopted = 1>>
	<<set $arcologies[$i].FSSubjugationistRace = $arcologies[0].FSSupremacistRace>>
  <<case "Repopulation Focus">>
	<<if $arcologies[$i].FSRepopulationFocus != "unset">><<set $arcologies[$i].FSRepopulationFocus = "unset">><</if>>
	$desc obsessed with building a new society based on its societal elite, leading the arcology to @@.yellow;adopt Eugenics.@@
	<<set $arcologies[$i].FSRestart = 5>><<set $adopted = 1>>
  <<case "Eugenics">>
	<<if $arcologies[$i].FSRestart != "unset">><<set $arcologies[$i].FSRestart = "unset">><</if>>
	$desc obsessed with breeding a new society, leading the arcology to @@.yellow;adopt Repopulationism.@@
	<<set $arcologies[$i].FSRepopulationFocus = 5>><<set $adopted = 1>>
  <<case "Gender Radicalism">>
	<<if $arcologies[$i].FSGenderRadicalist != "unset">><<set $arcologies[$i].FSGenderRadicalist = "unset">><</if>>
	$desc enthusiastic about knocking slaves up, leading the arcology to @@.yellow;adopt Gender Fundamentalism.@@
	<<set $arcologies[$i].FSGenderFundamentalist = 5>><<set $adopted = 1>>
  <<case "Gender Fundamentalism">>
	<<if $arcologies[$i].FSGenderFundamentalist != "unset">><<set $arcologies[$i].FSGenderFundamentalist = "unset">><</if>>
	$desc enthusiastic about fucking slaves in the butt, leading the arcology to @@.yellow;adopt Gender Radicalism.@@
	<<set $arcologies[$i].FSGenderRadicalist = 5>><<set $adopted = 1>>
  <<case "Paternalism">>
	<<if $arcologies[$i].FSPaternalist != "unset">><<set $arcologies[$i].FSPaternalist = "unset">><</if>>
	$desc partial to screaming and struggling, leading the arcology to @@.yellow;adopt Degradationism.@@
	<<set $arcologies[$i].FSDegradationist = 5>><<set $adopted = 1>>
  <<case "Degradationism">>
	<<if $arcologies[$i].FSDegradationist != "unset">><<set $arcologies[$i].FSDegradationist = "unset">><</if>>
	$desc devoted to their slaves' advancement, leading the arcology to @@.yellow;adopt Paternalism.@@
	<<set $arcologies[$i].FSPaternalist = 5>><<set $adopted = 1>>
  <<case "Body Purism">>
	<<if $arcologies[$i].FSBodyPurist != "unset">><<set $arcologies[$i].FSBodyPurist = "unset">><</if>>
	$desc fascinated with extreme surgery, leading the arcology to @@.yellow;adopt Transformation Fetishism.@@
	<<set $arcologies[$i].FSTransformationFetishist = 5>><<set $adopted = 1>>
  <<case "Transformation Fetishism">>
	<<if $arcologies[$i].FSTransformationFetishist != "unset">><<set $arcologies[$i].FSTransformationFetishist = "unset">><</if>>
	$desc concerned by trends in their slaves' health, leading the arcology to @@.yellow;adopt Body Purism.@@
	<<set $arcologies[$i].FSBodyPurist = 5>><<set $adopted = 1>>
  <<case "Youth Preferentialism">>
	<<if $arcologies[$i].FSYouthPreferentialist != "unset">><<set $arcologies[$i].FSYouthPreferentialist = "unset">><</if>>
	$desc devoted to time in bed with their MILF slaves, leading the arcology to @@.yellow;adopt Maturity Preferentialism.@@
	<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<set $adopted = 1>>
  <<case "Maturity Preferentialism">>
	<<if $arcologies[$i].FSMaturityPreferentialist != "unset">><<set $arcologies[$i].FSMaturityPreferentialist = "unset">><</if>>
	$desc devoted to fucking nubile young slaves, leading the arcology to @@.yellow;adopt Youth Preferentialism.@@
	<<set $arcologies[$i].FSYouthPreferentialist = 5>><<set $adopted = 1>>
  <<case "Slimness Enthusiasm">>
	<<if $arcologies[$i].FSSlimnessEnthusiast != "unset">><<set $arcologies[$i].FSSlimnessEnthusiast = "unset">><</if>>
	$desc loves boobs, the bigger, the better, leading the arcology to @@.yellow;adopt Asset Expansionism.@@
	<<set $arcologies[$i].FSAssetExpansionist = 5>><<set $adopted = 1>>
  <<case "Asset Expansionism">>
	<<if $arcologies[$i].FSAssetExpansionist != "unset">><<set $arcologies[$i].FSAssetExpansionist = "unset">><</if>>
	$desc loves a slim slave with tight holes, leading the arcology to @@.yellow;adopt Slimness Enthusiasm.@@
	<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<set $adopted = 1>>
  <<case "Chattel Religionism">>
	<<if $arcologies[$i].FSNull != "unset">><<set $arcologies[$i].FSNull = "unset">><</if>>
	$desc open minded, leading the arcology to @@.yellow;permit cultural freedom.@@
	<<set $arcologies[$i].FSNull = 5>><<set $adopted = 1>>
  <<case "Multiculturalism">>
	<<if $arcologies[$i].FSChattelReligionist != "unset">><<set $arcologies[$i].FSChattelReligionist = "unset">><</if>>
	$desc devoutly religious, and interested in a reformation, leading the arcology to @@.yellow;adopt Chattel Religionism.@@
	<<set $arcologies[$i].FSChattelReligionist = 5>><<set $adopted = 1>>
  <<case "Roman Revivalism">>
	<<if $arcologies[$i].FSRomanRevivalist != "unset">><<set $arcologies[$i].FSRomanRevivalist = "unset">><</if>>
	$desc fascinated by ancient Egyptian history, leading the arcology to @@.yellow;adopt Egyptian Revivalism.@@
	<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<set $adopted = 1>>
  <<case "Egyptian Revivalism">>
	<<if $arcologies[$i].FSEgyptianRevivalist != "unset">><<set $arcologies[$i].FSEgyptianRevivalist = "unset">><</if>>
	$desc fascinated by Arabian romanticism, leading the arcology to @@.yellow;adopt Arabian Revivalism.@@
	<<set $arcologies[$i].FSArabianRevivalist = 5>><<set $adopted = 1>>
  <<case "Edo Revivalism">>
	<<if $arcologies[$i].FSEdoRevivalist != "unset">><<set $arcologies[$i].FSEdoRevivalist = "unset">><</if>>
	$desc fascinated by the long tale of Chinese history, leading the arcology to @@.yellow;adopt Chinese Revivalism.@@
	<<set $arcologies[$i].FSChineseRevivalist = 5>><<set $adopted = 1>>
  <<case "Arabian Revivalism">>
	<<if $arcologies[$i].FSArabianRevivalist != "unset">><<set $arcologies[$i].FSArabianRevivalist = "unset">><</if>>
	$desc fascinated by classical Roman history, leading the arcology to @@.yellow;adopt Roman Revivalism.@@
	<<set $arcologies[$i].FSRomanRevivalist = 5>><<set $adopted = 1>>
  <<case "Chinese Revivalism">>
	<<if $arcologies[$i].FSChineseRevivalist != "unset">><<set $arcologies[$i].FSChineseRevivalist = "unset">><</if>>
	$desc fascinated by Japanese history, leading the arcology to @@.yellow;adopt Edo Revivalism.@@
	<<set $arcologies[$i].FSEdoRevivalist = 5>><<set $adopted = 1>>
  <</switch>>

<<else>>

/* RIVAL ADOPTION */

  <<set $desc = "Its owner is">>
  <<if $arcologies[0].FSSubjugationist > random(5,60)>>
	<<if ($arcologies[$i].FSSupremacist == "unset")>>
	<<if ($arcologies[$i].FSSubjugationist == "unset")>>
	$desc preoccupied by belief in the superiority of the $arcologies[0].FSSubjugationistRace race, leading the arcology to @@.yellow;adopt $arcologies[0].FSSubjugationistRace Supremacy.@@
	<<set $arcologies[$i].FSSupremacist = 5>><<set $adopted = 1>>
	<<set $arcologies[$i].FSSupremacistRace = $arcologies[0].FSSubjugationistRace>>
	<</if>>
	<</if>>
  <</if>>
  <<if $arcologies[0].FSSupremacist > random(5,60)>>
	<<if ($arcologies[$i].FSSubjugationist == "unset")>>
	<<if ($arcologies[$i].FSSupremacist == "unset")>>
	$desc preoccupied by a racial animus towards $arcologies[0].FSSupremacistRace people, leading the arcology to @@.yellow;adopt $arcologies[0].FSSupremacistRace Subjugation.@@
	<<set $arcologies[$i].FSSubjugationist = 5>><<set $adopted = 1>>
	<<set $arcologies[$i].FSSubjugationistRace = $arcologies[0].FSSupremacistRace>>
	<</if>>
	<</if>>
  <</if>>
  <<if $arcologies[0].FSRestart > random(5,60)>>
	<<if ($arcologies[$i].FSRestart == "unset") and ($arcologies[$i].FSRepopulationFocus == "unset")>>
	$desc obsessed with breeding a new society, leading the arcology to @@.yellow;adopt Repopulationism.@@
	<<set $arcologies[$i].FSRepopulationFocus = 5>><<set $adopted = 1>>
	<</if>>
  <<elseif $arcologies[0].FSRepopulationFocus > random(5,60)>>
	<<if ($arcologies[$i].FSRestart == "unset") and ($arcologies[$i].FSRepopulationFocus == "unset")>>
	$desc obsessed with creating a new, better society, leading the arcology to @@.yellow;adopt Eugenics.@@
	<<set $arcologies[$i].FSRestart = 5>><<set $adopted = 1>>
	<</if>>
  <</if>>
  <<if $arcologies[0].FSGenderRadicalist > random(5,60)>>
	<<if ($arcologies[$i].FSGenderRadicalist == "unset") && ($arcologies[$i].FSGenderFundamentalist == "unset")>>
	$desc enthusiastic about knocking slaves up, leading the arcology to @@.yellow;adopt Gender Fundamentalism.@@
	<<set $arcologies[$i].FSGenderFundamentalist = 5>><<set $adopted = 1>>
	<</if>>
  <<elseif $arcologies[0].FSGenderFundamentalist > random(5,60)>>
	<<if ($arcologies[$i].FSGenderRadicalist == "unset") && ($arcologies[$i].FSGenderFundamentalist == "unset")>>
	$desc enthusiastic about fucking slaves in the butt, leading the arcology to @@.yellow;adopt Gender Radicalism.@@
	<<set $arcologies[$i].FSGenderRadicalist = 5>><<set $adopted = 1>>
	<</if>>
  <</if>>
  <<if $arcologies[0].FSPaternalist > random(5,60)>>
	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	$desc partial to screaming and struggling, leading the arcology to @@.yellow;adopt Degradationism.@@
	<<set $arcologies[$i].FSDegradationist = 5>><<set $adopted = 1>>
	<</if>>
  <<elseif $arcologies[0].FSDegradationist > random(5,60)>>
	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	$desc devoted to their slaves' advancement, leading the arcology to @@.yellow;adopt Paternalism.@@
	<<set $arcologies[$i].FSPaternalist = 5>><<set $adopted = 1>>
	<</if>>
  <</if>>
  <<if $arcologies[0].FSBodyPurist > random(5,60)>>
	<<if ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	$desc fascinated with extreme surgery, leading the arcology to @@.yellow;adopt Transformation Fetishism.@@
	<<set $arcologies[$i].FSTransformationFetishist = 5>><<set $adopted = 1>>
	<</if>>
  <<elseif $arcologies[0].FSTransformationFetishist > random(5,60)>>
	<<if ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	$desc concerned by trends in their slaves' health, leading the arcology to @@.yellow;adopt Body Purism.@@
	<<set $arcologies[$i].FSBodyPurist = 5>><<set $adopted = 1>>
	<</if>>
  <</if>>
  <<if $arcologies[0].FSYouthPreferentialist > random(5,60)>>
	<<if ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
	$desc devoted to time in bed with their MILF slaves, leading the arcology to @@.yellow;adopt Maturity Preferentialism.@@
	<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<set $adopted = 1>>
  <<elseif $arcologies[0].FSMaturityPreferentialist > random(5,60)>>
	<<if ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
	$desc devoted to fucking nubile young slaves, leading the arcology to @@.yellow;adopt Youth Preferentialism.@@
	<<set $arcologies[$i].FSYouthPreferentialist = 5>><<set $adopted = 1>>
	<</if>>
	<</if>>
  <</if>>
  <<if $arcologies[0].FSSlimnessEnthusiast > random(5,60)>>
	<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
	$desc loves boobs, the bigger, the better, leading the arcology to @@.yellow;adopt Asset Expansionism.@@
	<<set $arcologies[$i].FSAssetExpansionist = 5>><<set $adopted = 1>>
	<</if>>
  <<elseif $arcologies[0].FSAssetExpansionist > random(5,60)>>
	<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
	$desc loves a slim slave with tight holes, leading the arcology to @@.yellow;adopt Slimness Enthusiasm.@@
	<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<set $adopted = 1>>
	<</if>>
  <</if>>
  <<if $arcologies[0].FSPastoralist > random(5,60)>>
	<<if ($arcologies[$i].FSPastoralist == "unset") && ($arcologies[$i].FSPhysicalIdealist == "unset")>>
	$desc addicted to breast milk straight from the nipple, leading the arcology to @@.yellow;adopt Pastoralism.@@
	<<set $arcologies[$i].FSPastoralist = 5>><<set $adopted = 1>>
	<</if>>
  <<elseif $arcologies[0].FSPhysicalIdealist > random(5,60)>>
	<<if ($arcologies[$i].FSPhysicalIdealist == "unset") && ($arcologies[$i].FSPastoralist == "unset")>>
	$desc pretty devoted to spending time in the gym, leading the arcology to @@.yellow;adopt Physical Idealism.@@
	<<set $arcologies[$i].FSPhysicalIdealist = 5>><<set $adopted = 1>>
	<</if>>
  <</if>>
  <<if $arcologies[0].FSRomanRevivalist > random(5,60)>>
	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
	$desc fascinated by Arabian romanticism, leading the arcology to @@.yellow;adopt Arabian Revivalism.@@
	<<set $arcologies[$i].FSArabianRevivalist = 5>><<set $adopted = 1>>
	<<break>>
	<</if>>
  <<elseif $arcologies[0].FSEgyptianRevivalist > random(5,60)>>
	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
	$desc fascinated by classical Roman history, leading the arcology to @@.yellow;adopt Roman Revivalism.@@
	<<set $arcologies[$i].FSRomanRevivalist = 5>><<set $adopted = 1>>
	<</if>>
  <<elseif $arcologies[0].FSEdoRevivalist > random(5,60)>>
	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
	$desc fascinated by the long tale of Chinese history, leading the arcology to @@.yellow;adopt Chinese Revivalism.@@
	<<set $arcologies[$i].FSChineseRevivalist = 5>><<set $adopted = 1>>
	<</if>>
  <<elseif $arcologies[0].FSArabianRevivalist > random(5,60)>>
	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
	$desc fascinated by ancient Egyptian history, leading the arcology to @@.yellow;adopt Egyptian Revivalism.@@
	<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<set $adopted = 1>>
	<</if>>
  <<elseif $arcologies[0].FSChineseRevivalist > random(5,60)>>
	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
	$desc fascinated by Japanese history, leading the arcology to @@.yellow;adopt Edo Revivalism.@@
	<<set $arcologies[$i].FSEdoRevivalist = 5>><<set $adopted = 1>>
	<</if>>
  <</if>>

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

/* AGENT ADOPTION*/

<<if ($arcologies[$i].government == "your agent")>>
<<for $j = 0; $j < $leaders.length; $j++>>
<<if $arcologies[$i].leadershipID == $leaders[$j].ID>>

<<if $adopted == 0>>
<<if ($arcologies[$i].FSRepopulationFocus == "unset")>>
<<if ($arcologies[$i].FSRestart == "unset")>>
	<<if $leaders[$j].fetish == "pregnancy">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Repopulationism@@, since as a pregnancy fetishist, she can't wait to see the female population's bellies swell with life.
		<<set $arcologies[$i].FSRepopulationFocus = 5>><<set $adopted = 1>>
	<<elseif $leaders[$j].preg < -1 || ($leaders[$j].ovaries == 0 && $leaders[$j].mpreg != 1)>>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Eugenics@@, since if no-one can get pregnant, she won't be alone.
		<<set $arcologies[$i].FSRestart = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if ($arcologies[$i].FSGenderRadicalist == "unset")>>
<<if ($arcologies[$i].FSGenderFundamentalist == "unset")>>
	<<if $leaders[$j].dick > 0>>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Gender Radicalism@@, since she's a walking, swinging argument for dickgirls.
		<<set $arcologies[$i].FSGenderRadicalist = 5>><<set $adopted = 1>>
	<<elseif $leaders[$j].preg > 0>>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Gender Fundamentalism@@, since its citizens find leadership by a pregnant woman fascinating.
		<<set $arcologies[$i].FSGenderFundamentalist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if ($arcologies[$i].FSPaternalist == "unset")>>
<<if ($arcologies[$i].FSDegradationist == "unset")>>
	<<if $leaders[$j].behavioralQuirk == "advocate">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Paternalism@@, since as an advocate for slavery, she believes in its benefits.
		<<set $arcologies[$i].FSPaternalist = 5>><<set $adopted = 1>>
	<<elseif $leaders[$j].fetish == "sadist">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Degradationism@@, since as a sexual sadist, she's excited by the idea of leading a society that applauds her cruelest impulses.
		<<set $arcologies[$i].FSDegradationist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if ($arcologies[$i].FSBodyPurist == "unset")>>
<<if ($arcologies[$i].FSTransformationFetishist == "unset")>>
	<<if $leaders[$j].chem > 50>>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Body Purism@@, since she knows what long term drug damage feels like, and doesn't want any slave to ever experience it again.
		<<set $arcologies[$i].FSBodyPurist = 5>><<set $adopted = 1>>
	<<elseif $leaders[$j].boobsImplant > 1000>>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Transformation Fetishism@@, out of a perverse desire to subject all slaves to massive implants like hers.
		<<set $arcologies[$i].FSTransformationFetishist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if ($arcologies[$i].FSYouthPreferentialist == "unset")>>
<<if ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
	<<if $leaders[$j].actualAge <= 25>>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Youth Preferentialism@@, to buttress acceptance of her own young age.
		<<set $arcologies[$i].FSYouthPreferentialist = 5>><<set $adopted = 1>>
	<<elseif $leaders[$j].actualAge > 35>>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Maturity Preferentialism@@, since she has a certain personal interest in promoting the idea that MILFs are sexy.
		<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
<<if ($arcologies[$i].FSAssetExpansionist == "unset")>>
	<<if $leaders[$j].behavioralQuirk == "insecure">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Slimness Enthusiasm@@, since her history of anorexia has deeply impacted her idea of beauty.
		<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<set $adopted = 1>>
	<<elseif $leaders[$j].fetish == "boobs">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Asset Expansionism@@, since she's a breast expansion fetishist in addition to being a mere breast fetishist.
		<<set $arcologies[$i].FSAssetExpansionist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if ($arcologies[$i].FSPastoralist == "unset")>>
<<if ($arcologies[$i].FSPhysicalIdealist == "unset")>>
	<<if $leaders[$j].fetish == "cumslut">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Pastoralism@@, since she already loves sucking down slaves' precious fluids.
		<<set $arcologies[$i].FSPastoralist = 5>><<set $adopted = 1>>
	<<elseif $leaders[$j].behavioralQuirk == "fitness">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Physical Idealism@@, since she's a fitness fanatic herself.
		<<set $arcologies[$i].FSPhysicalIdealist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if ($arcologies[$i].FSChattelReligionist == "unset")>>
<<if ($arcologies[$i].FSNull == "unset")>>
	<<if $leaders[$j].behavioralQuirk == "devout">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Chattel Religionism@@, to share and spread her deeply held beliefs about the holiness of sexual service.
		<<set $arcologies[$i].FSChattelReligionist = 5>><<set $adopted = 1>>
	<<elseif $leaders[$j].behavioralQuirk == "sinful">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Chattel Religionism@@, since she's excited by the prospect of getting away with horrible sins against old religions in public.
		<<set $arcologies[$i].FSChattelReligionist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<</if>>
<<if $familyTesting == 1>>
<<if $adopted == 0>>
<<if ($arcologies[$i].FSRomanRevivalist == "unset")>>
<<if ($arcologies[$i].FSEgyptianRevivalist == "unset")>>
<<if ($arcologies[$i].FSEdoRevivalist == "unset")>>
<<if ($arcologies[$i].FSArabianRevivalist == "unset")>>
<<if ($arcologies[$i].FSChineseRevivalist == "unset")>>
	<<if ($leaders[$j].relationshipTarget != 0)>>
		<<for $k = 0; $k < $slaves.length; $k++>>
			<<if $leaders[$j].mother == $slaves[$k].ID>>
				<<if $leaders[$j].relationshipTarget == $slaves[$k].ID>>
					Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Egyptian Revivalism@@, since she's already part of a gloriously incestuous relationship.
					<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<set $adopted = 1>>
				<</if>>
				<<break>>
			<<elseif $leaders[$j].father == $slaves[$k].ID>>
				<<if $leaders[$j].relationshipTarget == $slaves[$k].ID>>
					Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Egyptian Revivalism@@, since she's already part of a gloriously incestuous relationship.
					<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<set $adopted = 1>>
				<</if>>
				<<break>>
			<<elseif $leaders[$j].ID == $slaves[$k].father>>
				<<if $leaders[$j].relationshipTarget == $slaves[$k].ID>>
					Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Egyptian Revivalism@@, since she's already part of a gloriously incestuous relationship.
					<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<set $adopted = 1>>
				<</if>>
				<<break>>
			<<elseif $leaders[$j].ID == $slaves[$k].mother>>
				<<if $leaders[$j].relationshipTarget == $slaves[$k].ID>>
					Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Egyptian Revivalism@@, since she's already part of a gloriously incestuous relationship.
					<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<set $adopted = 1>>
				<</if>>
				<<break>>
			<<elseif areSisters($leaders[$j], $slaves[$k]) > 0>>
				<<if $leaders[$j].relationshipTarget == $slaves[$k].ID>>
					Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Egyptian Revivalism@@, since she's already part of a gloriously incestuous relationship.
					<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<set $adopted = 1>>
				<</if>>
				<<break>>
			<</if>>
		<</for>>
	<<elseif $leaders[$j].nationality == "Chinese">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Chinese Revivalism@@, since she's Chinese herself and can claim high honor in such a society.
		<<set $arcologies[$i].FSChineseRevivalist = 5>><<set $adopted = 1>>
	<<elseif $leaders[$j].nationality == "Japanese">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Edo Revivalism@@, since she's Japanese herself and can claim high honor in such a society.
		<<set $arcologies[$i].FSEdoRevivalist = 5>><<set $adopted = 1>>
	<<elseif $leaders[$j].behavioralQuirk == "confident">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Roman Revivalism@@, since it appeals to her confident, patrician nature.
		<<set $arcologies[$i].FSRomanRevivalist = 5>><<set $adopted = 1>>
	<<elseif $leaders[$j].fetish == "dom">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Arabian Revivalism@@, since she's sexually dominant and quite likes the idea of overseeing slave bazaars.
		<<set $arcologies[$i].FSArabianRevivalist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<</if>>
<</if>>
<</if>>
<</if>>
<<else>>
<<if $adopted == 0>>
<<if ($arcologies[$i].FSRomanRevivalist == "unset")>>
<<if ($arcologies[$i].FSEgyptianRevivalist == "unset")>>
<<if ($arcologies[$i].FSEdoRevivalist == "unset")>>
<<if ($arcologies[$i].FSArabianRevivalist == "unset")>>
<<if ($arcologies[$i].FSChineseRevivalist == "unset")>>
	<<if ($leaders[$j].relationshipTarget != 0) && ($leaders[$j].relationshipTarget == $leaders[$j].relationTarget)>>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Egyptian Revivalism@@, since she's already part of a gloriously incestuous relationship.
		<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<set $adopted = 1>>
	<<elseif $leaders[$j].nationality == "Chinese">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Chinese Revivalism@@, since she's Chinese herself and can claim high honor in such a society.
		<<set $arcologies[$i].FSChineseRevivalist = 5>><<set $adopted = 1>>
	<<elseif $leaders[$j].nationality == "Japanese">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Edo Revivalism@@, since she's Japanese herself and can claim high honor in such a society.
		<<set $arcologies[$i].FSEdoRevivalist = 5>><<set $adopted = 1>>
	<<elseif $leaders[$j].behavioralQuirk == "confident">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Roman Revivalism@@, since it appeals to her confident, patrician nature.
		<<set $arcologies[$i].FSRomanRevivalist = 5>><<set $adopted = 1>>
	<<elseif $leaders[$j].fetish == "dom">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Arabian Revivalism@@, since she's sexually dominant and quite likes the idea of overseeing slave bazaars.
		<<set $arcologies[$i].FSArabianRevivalist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<</if>>
<</if>>
<</if>>
<</if>>
<</if>> /* closes extended family mode */

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

/* CROSS-FS ADOPTION*/

<<if $adopted == 0>>
<<if $arcologies[$i].FSSubjugationist > random(50,200)>>
	<<if ($arcologies[$i].FSDegradationist == "unset") && ($arcologies[$i].FSPaternalist == "unset")>>
	The arcology's racial Subjugationist culture @@.yellow;pushes it towards Degradationism.@@
	<<set $arcologies[$i].FSDegradationist = 5>><<set $adopted = 1>>
	<<break>>
	<<elseif ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
	The arcology's racial Subjugationist culture @@.yellow;pushes it towards Egyptian Revivalism,@@ since the Ancient Egyptians are famous for keeping a race of slaves.
	<<set $arcologies[$i].FSRomanRevivalist = 5>><<set $adopted = 1>>
	<<break>>
	<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if $arcologies[$i].FSSupremacist > random(50,200)>>
	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	The arcology's racial Supremacist culture @@.yellow;pushes it towards Paternalism.@@
	<<set $arcologies[$i].FSPaternalist = 5>><<set $adopted = 1>>
	<<elseif ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSSupremacistRace == "asian")>>
	<<if random(0,1) == 0>>
		The arcology's racial Supremacist culture @@.yellow;pushes it towards Edo Revivalism,@@ since the beauty and grace of the Japanese people are watchwords there.
		<<set $arcologies[$i].FSEdoRevivalist = 5>><<set $adopted = 1>>
	<<else>>
		The arcology's racial Supremacist culture @@.yellow;pushes it towards Chinese Revivalism,@@ since the wisdom of the Middle Kingdom is admired there.
		<<set $arcologies[$i].FSChineseRevivalist = 5>><<set $adopted = 1>>
	<</if>>
	<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if $arcologies[$i].FSRepopulationFocus > random(50,200)>>
	<<if ($arcologies[$i].FSAssetExpationist == "unset") && ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
	The arcology's Repopulationist culture @@.yellow;pushes it towards Asset Expansionism,@@ since big pregnant bellies go great with huge tits and asses.
	<<set $arcologies[$i].FSAssetExpationist = 5>><<set $adopted = 1>>
	<<elseif ($arcologies[$i].FSGenderFundamentalist == "unset") && ($arcologies[$i].FSGenderRadicalist == "unset")>>
	The arcology's Repopulationist culture @@.yellow;pushes it towards Gender Fundamentalism,@@ since traditional women make better mothers.
	<<set $arcologies[$i].FSGenderFundamentalist = 5>><<set $adopted = 1>>
	<</if>>
<<elseif $arcologies[$i].Restart > random(50,200)>>
	<<if ($arcologies[$i].FSDegradationist == "unset") && ($arcologies[$i].FSPaternalist == "unset")>>
	The arcology's elite focused culture @@.yellow;pushes it towards Degradationism,@@ since its lowest class deserves nothing but misery.
	<<set $arcologies[$i].FSDegradationist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if $arcologies[$i].FSGenderRadicalist > random(50,200)>>
	<<if ($arcologies[$i].FSTransformationFetishist == "unset") && ($arcologies[$i].FSBodyPurist == "unset")>>
	The arcology's Gender Radicalist culture @@.yellow;pushes it towards Transformation Fetishism,@@ since surgery can turn a slave into anything.
	<<set $arcologies[$i].FSTransformationFetishist = 5>><<set $adopted = 1>>
	<<elseif ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
	The arcology's Gender Radicalist culture @@.yellow;pushes it towards Slimness Enthusiasm,@@ since that's the kind of body many of its slaves have.
	<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<set $adopted = 1>>
	<</if>>
<<elseif $arcologies[$i].FSGenderFundamentalist > random(50,200)>>
	<<if ($arcologies[$i].FSPastoralist == "unset")>>
	The arcology's Gender Fundamentalist culture @@.yellow;pushes it towards Pastoralism,@@ since its pregnant slaves are already giving milk.
	<<set $arcologies[$i].FSPastoralist = 5>><<set $adopted = 1>>
	<<elseif ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
	The arcology's Gender Fundamentalist culture @@.yellow;pushes it towards Youth Preferentialism,@@ since younger slaves are beautiful and fertile.
	<<set $arcologies[$i].FSYouthPreferentialist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if $arcologies[$i].FSPaternalist > random(50,200)>>
	<<if ($arcologies[$i].FSChattelReligionist == "unset")>>
	The arcology's Paternalist culture @@.yellow;pushes it towards Chattel Religionism,@@ since many of its slaves are already worshipful.
	<<set $arcologies[$i].FSChattelReligionist = 5>><<set $adopted = 1>>
	<<elseif ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	The arcology's Paternalist culture @@.yellow;pushes it towards Body Purism,@@ since giving slaves dangerous drugs is hardly good for them.
	<<set $arcologies[$i].FSBodyPurist = 5>><<set $adopted = 1>>
	<<elseif ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
	The arcology's Paternalist culture @@.yellow;pushes it towards Roman Revivalism,@@ since loyal service to the res publica bears similarity to their existing mores.
	<<set $arcologies[$i].FSRomanRevivalist = 5>><<set $adopted = 1>>
	<</if>>
<<elseif $arcologies[$i].FSDegradationist > random(50,200)>>
	<<if ($arcologies[$i].FSTransformationFetishist == "unset") && ($arcologies[$i].FSBodyPurist == "unset")>>
	The arcology's Degradationist culture @@.yellow;pushes it towards Transformation Fetishism,@@ the ultimate expression of power over slave bodies.
	<<set $arcologies[$i].FSTransformationFetishist = 5>><<set $adopted = 1>>
	<<elseif ($arcologies[$i].FSGenderRadicalist == "unset") && ($arcologies[$i].FSGenderFundamentalist == "unset")>>
	The arcology's Degradationist culture @@.yellow;pushes it towards Gender Radicalism,@@ since the joy of forcing a gender role on a slave is already popular.
	<<set $arcologies[$i].FSGenderRadicalist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if $arcologies[$i].FSBodyPurist > random(50,200)>>
	<<if ($arcologies[$i].FSPhysicalIdealist == "unset")>>
	The arcology's Body Purist culture @@.yellow;pushes it towards Physical Idealism,@@ since it already takes an intense interest in bodily perfection.
	<<set $arcologies[$i].FSPhysicalIdealist = 5>><<set $adopted = 1>>
	<<elseif ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	The arcology's Body Purist culture @@.yellow;pushes it towards Paternalism,@@ since it's become obvious that happiness is a necessary part of wellness.
	<<set $arcologies[$i].FSPaternalist = 5>><<set $adopted = 1>>
	<</if>>
<<elseif $arcologies[$i].FSTransformationFetishist > random(50,200)>>
	<<if ($arcologies[$i].FSAssetExpansionist == "unset") && ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
	The arcology's Transformation Fetishist culture @@.yellow;pushes it towards Asset Expansionism,@@ since it's already overrun with massive tits and asses.
	<<set $arcologies[$i].FSAssetExpansionist = 5>><<set $adopted = 1>>
	<<elseif ($arcologies[$i].FSDegradationist == "unset") && ($arcologies[$i].FSPaternalist == "unset")>>
	The arcology's Transformation Fetishist culture @@.yellow;pushes it towards Degradationism,@@ since it's already used to slaves whining about their latest surgeries.
	<<set $arcologies[$i].FSDegradationist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if $arcologies[$i].FSYouthPreferentialist > random(50,200)>>
	<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
	The arcology's Youth Preferentialist culture @@.yellow;pushes it towards Slimness Enthusiasm,@@ since that's the kind of body many of its slaves have.
	<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<set $adopted = 1>>
	<<elseif ($arcologies[$i].FSRepopulationFocus == "unset")>>
	The arcology's Youth Preferentialist culture @@.yellow;pushes it towards Repopulation,@@ since many of its slaves are deliciously ripe for breeding.
	<<set $arcologies[$i].FSRepopulationFocus = 5>><<set $adopted = 1>>
	<</if>>
<<elseif $arcologies[$i].FSMaturityPreferentialist > random(50,200)>>
	<<if ($arcologies[$i].FSAssetExpansionist == "unset") && ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
	The arcology's Maturity Preferentialist culture @@.yellow;pushes it towards Asset Expansionism,@@ since that's the kind of body many of its slaves have.
	<<set $arcologies[$i].FSAssetExpansionist = 5>><<set $adopted = 1>>
	<<elseif ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	The arcology's Maturity Preferentialist culture @@.yellow;pushes it towards Paternalism,@@ since its many older slaves have skills best applied by a happy woman.
	<<set $arcologies[$i].FSPaternalist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if $arcologies[$i].FSSlimnessEnthusiast > random(50,200)>>
	<<if ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
	The arcology's Slimness Enthusiast culture @@.yellow;pushes it towards Youth Preferentialism,@@ since younger slaves are often attractively slim.
	<<set $arcologies[$i].FSYouthPreferentialist = 5>><<set $adopted = 1>>
	<<elseif ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	The arcology's Slimness Enthusiast culture @@.yellow;pushes it towards Body Purism,@@ since the last thing they want is prettily slender girls with health trouble.
	<<set $arcologies[$i].FSBodyPurist = 5>><<set $adopted = 1>>
	<</if>>
<<elseif $arcologies[$i].FSAssetExpansionist > random(50,200)>>
	<<if ($arcologies[$i].FSMaturityPreferentialist == "unset") && ($arcologies[$i].FSYouthPreferentialist == "unset")>>
	The arcology's Asset Expansionist culture @@.yellow;pushes it towards Maturity Preferentialism,@@ since MILF slaves tend to come with nice big tits.
	<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<set $adopted = 1>>
	<<elseif ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	The arcology's Asset Expansionist culture @@.yellow;pushes it towards Body Purism,@@ since slaves on curatives are slaves not on growth hormones.
	<<set $arcologies[$i].FSBodyPurist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if $arcologies[$i].FSPastoralist > random(50,200)>>
	<<if ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	The arcology's Pastoralist culture @@.yellow;pushes it towards Body Purism,@@ since there have been concerns about milk purity.
	<<set $arcologies[$i].FSBodyPurist = 5>><<set $adopted = 1>>
	<<elseif ($arcologies[$i].FSAssetExpansionist == "unset") && ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
	The arcology's Pastoralist culture @@.yellow;pushes it towards Asset Expansionism,@@ since they're convinced that there's no such thing as udders that are too big.
	<<set $arcologies[$i].FSAssetExpansionist = 5>><<set $adopted = 1>>
	<</if>>
<<elseif $arcologies[$i].FSPhysicalIdealist > random(50,200)>>
	<<if ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	The arcology's Physical Idealist culture @@.yellow;pushes it towards Body Purism,@@ since it's already used to treating slaves' bodies as temples.
	<<set $arcologies[$i].FSBodyPurist = 5>><<set $adopted = 1>>
	<<elseif ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
	The arcology's Physical Idealist culture @@.yellow;pushes it towards Youth Preferentialism,@@ since beauty and athletic prowess do tend to peak early.
	<<set $arcologies[$i].FSYouthPreferentialist = 5>><<set $seed = 1>>
	<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if $arcologies[$i].FSChattelReligionist > random(50,200)>>
	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	The arcology's Chattel Religionist culture @@.yellow;pushes it towards Paternalism,@@ since charitable care for slaves' welfare has become widespread.
	<<set $arcologies[$i].FSPaternalist = 5>><<set $adopted = 1>>
	<<elseif ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
	The arcology's Chattel Religionist culture @@.yellow;pushes it towards Arabian Revivalism,@@ since such an intermingling of slavery and faith fascinates them.
	<<set $arcologies[$i].FSArabianRevivalist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if $arcologies[$i].FSRomanRevivalist > random(50,200)>>
	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	The arcology's Roman Revivalist culture @@.yellow;pushes it towards Paternalism,@@ since some Roman slaves were traditionally permitted limited rights.
	<<set $arcologies[$i].FSPaternalist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if $arcologies[$i].FSEgyptianRevivalist > random(50,200)>>
	<<if ($arcologies[$i].FSChattelReligionist == "unset")>>
	The arcology's Egyptian Revivalist culture @@.yellow;pushes it towards Chattel Religionism,@@ since worship is already becoming an established part of its life.
	<<set $arcologies[$i].FSChattelReligionist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if $arcologies[$i].FSEdoRevivalist > random(50,200)>>
	<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	The arcology's Edo Revivalist culture @@.yellow;pushes it towards Slimness Enthusiasm,@@ since slim and elegant slaves are already fashionable there.
	<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if $arcologies[$i].FSArabianRevivalist > random(50,200)>>
	<<if ($arcologies[$i].FSChattelReligionist == "unset")>>
	The arcology's Arabian Revivalist culture @@.yellow;pushes it towards Chattel Religionism,@@ since the word of God is already a matter of daily significance there.
	<<set $arcologies[$i].FSChattelReligionist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>
<<if $adopted == 0>>
<<if $arcologies[$i].FSChineseRevivalist > random(50,200)>>
	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	The arcology's Chinese Revivalist culture @@.yellow;pushes it towards Paternalism,@@ since traditional beliefs about duty and order have become accepted.
	<<set $arcologies[$i].FSPaternalist = 5>><<set $adopted = 1>>
	<</if>>
<</if>>
<</if>>

/* NEIGHBOR ADOPTION*/

<<for $j = 0; $j < $arcologies.length; $j++>>
	<<if $arcologies[$i].direction != $arcologies[$j].direction>>

	<<set $influenceBonus = 0>>
	<<if $arcologies[$i].direction == $arcologies[$j].influenceTarget>>
		$arcologies[$j].name's directed cultural influence gives it some input $arcologies[$i].name's choice of direction.
		<<set $influenceBonus = 20>>
	<</if>>

	<<set $activeArcology = $arcologies[$i]>>
	<<set $targetArcology = $arcologies[$j]>>

	<<include "Arcology Opinion">>
	<<if $opinion >= 50>>
		$arcologies[$i].name is already aligned with $arcologies[$j].name socially, encouraging it to consider adopting all its cultural values.
		<<set $influenceBonus += $opinion-50>>
	<<elseif $opinion <= -50>>
		$arcologies[$i].name is culturally opposed to $arcologies[$j].name, encouraging it to resist adopting its cultural values.
		<<set $influenceBonus += $opinion+50>>
	<</if>>

	<<if ($arcologies[$i].FSSubjugationist == "unset")>>
	<<if ($arcologies[$i].FSSupremacist == "unset") || ($arcologies[$i].FSSupremacistRace != $arcologies[$j].FSSubjugationistRace)>>
		<<if $arcologies[$j].FSSubjugationist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts $arcologies[$j].FSSubjugationistRace Subjugation@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSSubjugationist = 5>><<set $adopted = 1>>
		<<set $arcologies[$i].FSSubjugationistRace = $arcologies[$j].FSSubjugationistRace>>
		<<break>>
		<</if>>
	<</if>>
	<</if>>
	<<if ($arcologies[$i].FSSupremacist == "unset")>>
	<<if ($arcologies[$i].FSSubjugationist == "unset") || ($arcologies[$i].FSSubjugationistRace != $arcologies[$j].FSSupremacistRace)>>
		<<if $arcologies[$j].FSSupremacist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts $arcologies[$j].FSSupremacistRace Subjugation@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSSupremacist = 5>><<set $adopted = 1>>
		<<set $arcologies[$i].FSSupremacistRace = $arcologies[$j].FSSupremacistRace>>
		<<break>>
		<</if>>
	<</if>>
	<</if>>
	<<if ($arcologies[$i].FSRepopulationFocus == "unset") && ($arcologies[$i].FSRestart == "unset")>>
	  <<if $arcologies[$j].FSRepopulationFocus > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Repopulation@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSRepopulationFocus = 5>><<set $adopted = 1>>
		<<break>>
	  <</if>>
	  <<if $arcologies[$j].FSRestart > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Eugenics@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSRestart = 5>><<set $adopted = 1>>
		<<break>>
	  <</if>>
	<</if>>
	<<if ($arcologies[$i].FSGenderRadicalist == "unset") && ($arcologies[$i].FSGenderFundamentalist == "unset")>>
		<<if $arcologies[$j].FSGenderRadicalist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Gender Radicalism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSGenderRadicalist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
		<<if $arcologies[$j].FSGenderFundamentalist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Gender Fundamentalism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSGenderFundamentalist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
	<</if>>
	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
		<<if $arcologies[$j].FSPaternalist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Paternalism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSPaternalist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
		<<if $arcologies[$j].FSDegradationist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Degradationism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSDegradationist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
	<</if>>
	<<if ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
		<<if $arcologies[$j].FSBodyPurist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Body Purism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSBodyPurist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
		<<if $arcologies[$j].FSTransformationFetishist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Transformation Fetishism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSTransformationFetishist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
	<</if>>
	<<if ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
		<<if $arcologies[$j].FSYouthPreferentialist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Youth Preferentialism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSYouthPreferentialist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
		<<if $arcologies[$j].FSMaturityPreferentialist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Maturity Preferentialism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
	<</if>>
	<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
		<<if $arcologies[$j].FSSlimnessEnthusiast > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Slimness Enthusiasm@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
		<<if $arcologies[$j].FSAssetExpansionist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Asset Expansionism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSAssetExpansionist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
	<</if>>
	<<if ($arcologies[$i].FSPastoralist == "unset") && ($arcologies[$i].FSPhysicalIdealist == "unset")>>
		<<if $arcologies[$j].FSPastoralist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Pastoralism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSPastoralist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
		<<if $arcologies[$j].FSPhysicalIdealist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Physical Idealism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSPhysicalIdealist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
	<</if>>
	<<if ($arcologies[$i].FSChattelReligionist == "unset") && ($arcologies[$i].FSNull == "unset")>>
		<<if $arcologies[$j].FSChattelReligionist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Chattel Religionism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSChattelReligionist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
	<</if>>
	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
		<<if $arcologies[$j].FSRomanRevivalist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Roman Revivalism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSRomanRevivalist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
		<<if $arcologies[$j].FSEgyptianRevivalist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Egyptian Revivalism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
		<<if $arcologies[$j].FSEdoRevivalist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Edo Revivalism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSEdoRevivalist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
		<<if $arcologies[$j].FSArabianRevivalist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Arabian Revivalism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSArabianRevivalist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
		<<if $arcologies[$j].FSChineseRevivalist > random(0,200)+($adopted*100)-$influenceBonus>>
		It @@.yellow;adopts Chinese Revivalism@@ due to influence from its trading partner $arcologies[$j].name.
		<<set $arcologies[$i].FSChineseRevivalist = 5>><<set $adopted = 1>>
		<<break>>
		<</if>>
	<</if>>
	<</if>>
<</for>>

/* RANDOM ADOPTION*/

<<if $adopted == 0>>
<<if random(0,4) == 1>>
<<switch $arcologies[$i].government>>
<<case "elected officials">>
	<<set $desc = "Its elected leaders are">>
<<case "a committee">>
	<<set $desc = "A majority of its ruling committee is">>
<<case "an oligarchy" "your trustees">>
	<<set $desc = "Its leading citizens are">>
<<case "an individual">>
	<<set $desc = "Its owner is">>
<<case "your agent">>
	<<set $desc = "Your agent and its citizens are">>
<<case "a corporation">>
	<<set $desc = "Most of its board of directors are">>
<<default>>
	<<set $desc = "Its citizens are">>
<</switch>>
<<switch random(1,22)>>
<<case 1>>
	<<set $seed = either("white", "asian", "latina", "middle eastern", "black", "indo-aryan", "pacific islander", "malay", "amerindian", "southern european", "semitic", "mixed race")>>
	<<if ($arcologies[$i].FSSubjugationist == "unset")>>
	<<if ($arcologies[$i].FSSupremacist == "unset") || ($seed != $arcologies[$i].FSSupremacistRace)>>
	$desc preoccupied by a racial animus towards $seed people, leading the arcology to @@.yellow;adopt $seed Subjugation.@@
	<<set $arcologies[$i].FSSubjugationist = 5>><<set $adopted = 1>>
	<<set $arcologies[$i].FSSubjugationistRace = $seed>>
	<</if>>
	<</if>>
<<case 2>>
	<<set $seed = either("white", "asian", "latina", "middle eastern", "black", "indo-aryan", "pacific islander", "malay", "amerindian", "southern european", "semitic", "mixed race")>>
	<<if ($arcologies[$i].FSSupremacist == "unset")>>
	<<if ($arcologies[$i].FSSubjugationist == "unset") || ($seed != $arcologies[$i].FSSubjugationistRace)>>
	$desc preoccupied by belief in the superiority of the $seed race, leading the arcology to @@.yellow;adopt $seed Supremacy.@@
	<<set $arcologies[$i].FSSupremacist = 5>><<set $adopted = 1>>
	<<set $arcologies[$i].FSSupremacistRace = $seed>>
	<</if>>
	<</if>>
<<case 3>>
	<<if ($arcologies[$i].FSGenderRadicalist == "unset") && ($arcologies[$i].FSGenderFundamentalist == "unset")>>
	$desc enthusiastic about fucking slaves in the butt, leading the arcology to @@.yellow;adopt Gender Radicalism.@@
	<<set $arcologies[$i].FSGenderRadicalist = 5>><<set $adopted = 1>>
	<</if>>
<<case 4>>
	<<if ($arcologies[$i].FSGenderRadicalist == "unset") && ($arcologies[$i].FSGenderFundamentalist == "unset")>>
	$desc enthusiastic about knocking slaves up, leading the arcology to @@.yellow;adopt Gender Fundamentalism.@@
	<<set $arcologies[$i].FSGenderFundamentalist = 5>><<set $adopted = 1>>
	<</if>>
<<case 5>>
	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	$desc devoted to their slaves' advancement, leading the arcology to @@.yellow;adopt Paternalism.@@
	<<set $arcologies[$i].FSPaternalist = 5>><<set $adopted = 1>>
	<</if>>
<<case 6>>
	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	$desc partial to screaming and struggling, leading the arcology to @@.yellow;adopt Degradationism.@@
	<<set $arcologies[$i].FSDegradationist = 5>><<set $adopted = 1>>
	<</if>>
<<case 7>>
	<<if ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	$desc concerned by trends in their slaves' health, leading the arcology to @@.yellow;adopt Body Purism.@@
	<<set $arcologies[$i].FSBodyPurist = 5>><<set $adopted = 1>>
	<</if>>
<<case 8>>
	<<if ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	$desc fascinated with extreme surgery, leading the arcology to @@.yellow;adopt Transformation Fetishism.@@
	<<set $arcologies[$i].FSTransformationFetishist = 5>><<set $adopted = 1>>
	<</if>>
<<case 9>>
	<<if ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
	$desc devoted to fucking nubile young slaves, leading the arcology to @@.yellow;adopt Youth Preferentialism.@@
	<<set $arcologies[$i].FSYouthPreferentialist = 5>><<set $adopted = 1>>
	<</if>>
<<case 10>>
	<<if ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
	$desc devoted to time in bed with their MILF slaves, leading the arcology to @@.yellow;adopt Maturity Preferentialism.@@
	<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<set $adopted = 1>>
	<</if>>
<<case 11>>
	<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
	$desc loves a slim slave with tight holes, leading the arcology to @@.yellow;adopt Slimness Enthusiasm.@@
	<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<set $adopted = 1>>
	<</if>>
<<case 12>>
	<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
	$desc loves boobs, the bigger, the better, leading the arcology to @@.yellow;adopt Asset Expansionism.@@
	<<set $arcologies[$i].FSAssetExpansionist = 5>><<set $adopted = 1>>
	<</if>>
<<case 13>>
	<<if ($arcologies[$i].FSPastoralist == "unset")>>
	$desc addicted to breast milk straight from the nipple, leading the arcology to @@.yellow;adopt Pastoralism.@@
	<<set $arcologies[$i].FSPastoralist = 5>><<set $adopted = 1>>
	<</if>>
<<case 14>>
	<<if ($arcologies[$i].FSPhysicalIdealist == "unset")>>
	$desc pretty devoted to spending time in the gym, leading the arcology to @@.yellow;adopt Physical Idealism.@@
	<<set $arcologies[$i].FSPhysicalIdealist = 5>><<set $adopted = 1>>
	<</if>>
<<case 15>>
	<<if ($arcologies[$i].FSChattelReligionist == "unset")>>
	$desc is devoutly religious, and interested in a reformation, leading the arcology to @@.yellow;adopt Chattel Religionism.@@
	<<set $arcologies[$i].FSChattelReligionist = 5>><<set $adopted = 1>>
	<</if>>
<<case 16>>
	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
	$desc fascinated by classical Roman history, leading the arcology to @@.yellow;adopt Roman Revivalism.@@
	<<set $arcologies[$i].FSRomanRevivalist = 5>><<set $adopted = 1>>
	<</if>>
<<case 17>>
	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
	$desc fascinated by ancient Egyptian history, leading the arcology to @@.yellow;adopt Egyptian Revivalism.@@
	<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<set $adopted = 1>>
	<</if>>
<<case 18>>
	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
	$desc fascinated by Japanese history, leading the arcology to @@.yellow;adopt Edo Revivalism.@@
	<<set $arcologies[$i].FSEdoRevivalist = 5>><<set $adopted = 1>>
	<</if>>
<<case 19>>
	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
	$desc fascinated by Arabian romanticism, leading the arcology to @@.yellow;adopt Arabian Revivalism.@@
	<<set $arcologies[$i].FSArabianRevivalist = 5>><<set $adopted = 1>>
	<<break>>
	<</if>>
<<case 20>>
	<<if ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
	$desc fascinated by the long tale of Chinese history, leading the arcology to @@.yellow;adopt Chinese Revivalism.@@
	<<set $arcologies[$i].FSChineseRevivalist = 5>><<set $adopted = 1>>
	<</if>>
<<case 21>>
  <<if ($arcologies[$i].FSRepopulationFocus == "unset") && ($arcologies[$i].FSRestart == "unset")>>
	$desc concerned for the future, and partial to watching bellies swell, leading the arcology to @@.yellow;adopt Repopulation Efforts.@@
	<<set $arcologies[$i].FSRepopulationFocus = 5>><<set $adopted = 1>>
  <</if>>
<<case 22>>
  <<if ($arcologies[$i].FSRepopulationFocus == "unset") && ($arcologies[$i].FSRestart == "unset")>>
	$desc concerned for the future, and believing their elite could do a better job, leading the arcology to @@.yellow;adopt Eugenics.@@
	<<set $arcologies[$i].FSRestart = 5>><<set $adopted = 1>>
  <</if>>
<</switch>>
<</if>>
<</if>>

<<if $adopted == 0>>
	Its future is bitterly controversial, and no side is predominant this week. The dissention reduces the arcology's prosperity.
	<<set $arcologies[$i].prosperity -= 1>>
<</if>>

repo_name: azktaawc/fc


code:
:: New Game Plus [nobr]

<<set $ui = "start", $slavesToImport = 0>>

<<if ndef $slavesToImportMax>>
	<<set $slavesToImportMax = 5>>
<</if>>

<<if $releaseID >= 1000>><<else>>
	<<silently>><<include "Backwards Compatibility">><</silently>>
<</if>>

You have decided to start over. You'll be able to take a few things with you: a few slaves, a small fraction of your current reserves of money, and possibly even your experience as an arcology owner, which will give you a very powerful career background. Many of your other customizations and settings will be carried over as the defaults for your new game, but can be revised freely.

You have the funds to bring $slavesToImportMax slaves with you (or your equivalent) to a new arcology.
<<if $cash >= 50000+($slavesToImportMax*10000)>>
	It will cost <<print 50000+($slavesToImportMax*10000)>>¤ to insure another slave's safe transfer.
	[[Increase minimum transfered slaves by 1.|New Game Plus][$cash -= (50000+($slavesToImportMax*10000)), $slavesToImportMax++]]
<<else>>
	You lack the funds to bring more than $slavesToImportMax slaves with you (or your equivalent) to a new arcology. It would cost <<print 50000+($slavesToImportMax*10000)>>¤ to guarantee another's safe transfer.
<</if>>

<<if $freshPC == 0>>
	<<if $retainCareer == 1 && $PC.career != "arcology owner">>
		<<if $week > 52>>
			You have acquired a fair amount of knowledge regarding arcologies and their day-to-day management in your time spent as one's owner qualifying you as an @@.orange;"arcology owner"!@@ Benefits include:
			@@.lime;20% reduced cost of construction.@@
			@@.lime;Free additional starting rep along with easy rep maintenance.@@
			@@.lime;Reduced mercenary costs.@@
			@@.lime;An eye for gingered slaves.@@
			<<if $retainCareer == 1>>
				[[Change career.|New Game Plus][$retainCareer = 0]]
			<<elseif $retainCareer == 0>>
				[[Don't change career.|New Game Plus][$retainCareer = 1]]
			<</if>>
		<<else>>
			You lack the experience needed to qualify for a career change to "arcology owner".
		<</if>>
	<</if>>
	[[Start over with a new player character.|New Game Plus][$freshPC = 1, $retainCareer = 1]]
<<else>>
	[[Use existing player character.|New Game Plus][$freshPC = 0]]
<</if>>

Select up to $slavesToImportMax slaves to be imported into a new game and then [[click here.|init][$saveImported = 1]]

''These slaves will be imported into the new game:''
<<set $Flag = 1>>
<<include "Slave Summary">>

<<if $slavesToImport >= $slavesToImportMax>>
	//Maximum number of slaves for import selected.//
<<elseif ($slaves.length > $slavesToImport)>>
	''These slaves are available to be imported into the new game:''
	<<set $Flag = 0>>
	<<include "Slave Summary">>
<</if>>
<<unset $Flag>>


code:
:: Next Slave In Line

<<silently>>

<<for $i = 0; $i < $slaves.length; $i++>>
	<<if $activeSlave.ID == $slaves[$i].ID>>
	<<set $slaves[$i] = $activeSlave>>
	<<set $activeSlave = {}>>
	<<break>>
	<</if>>
<</for>>

<<if $place == $slavesInLine.length-1>>
	<<set $activeSlave = $slavesInLine[0]>>
<<else>>
	<<set $activeSlave = $slavesInLine[$place+1]>>
<</if>>

<<goto "Slave Interact">>

<</silently>>


code:
:: Next Week [silently]

<<if $rivalOwner != 0>>
	<<set _SL = $arcologies.length>>
	<<for _i = 0; _i < _SL; _i++>>
	<<if $arcologies[_i].rival == 1>>
		<<set $rivalOwner = $arcologies[_i].prosperity>>
	<</if>>
	<</for>>
<</if>>

<<if $playerAging != 0>>
	<<set $PC.birthWeek += 1>>
	<<if $PC.physicalAge >= 55 && ($PC.preg == -1 || $PC.preg == 0)>>
		<<set $PC.preg = -2>>
	<</if>>
	<<if $PC.birthWeek >= 52>>
		<<set $PC.birthWeek = 0>>
		<<if $playerAging == 2>>
			<<set $PC.physicalAge += 1, $PC.actualAge += 1, $PC.visualAge += 1>>
		<</if>>
	<</if>>
<</if>>

<<set $averageTrust = 0, $averageDevotion = 0, _slavesContributing = 0, _OldHG = -1, _NewHG = -1, _SL = $slaves.length>>
<<for _i = 0; _i < _SL; _i++>>
	<<if $seeAge != 0>>
	<<set $slaves[_i].birthWeek += 1>>
		<<if $slaves[_i].birthWeek >= 52>>
		<<set $slaves[_i].birthWeek to 0>>
		<<if $seeAge == 1>>
			<<set $slaves[_i].physicalAge += 1, $slaves[_i].actualAge += 1, $slaves[_i].visualAge += 1>>
			<<if $slaves[_i].physicalAge <= 18 && $loliGrow == 1>>
				<<set $i = _i>> /* tempfix */
				<<include "Physical Development">>
			<</if>>
		<</if>>
		<</if>>
	<</if>>
	<<if $slaves[_i].indenture > 0>>
		<<set $slaves[_i].indenture -= 1>>
	<</if>>
	<<set $slaves[_i].trust = Number($slaves[_i].trust.toFixed(1)), $slaves[_i].devotion = Number($slaves[_i].devotion.toFixed(1))>>
	<<set $slaves[_i].oldDevotion = $slaves[_i].devotion, $slaves[_i].oldTrust = $slaves[_i].trust, $slaves[_i].tired = 0, $slaves[_i].minorInjury = 0>>
	<<if $slaves[_i].sentence > 1>>
		<<set $slaves[_i].sentence -= 1>>
	<<elseif $slaves[_i].sentence == 1>>
		<<set $slaves[_i].sentence = 0, $slaves[_i].assignment = "rest", $slaves[_i].assignmentVisible = 1>>
	<</if>>
	<<if $slaves[_i].weekAcquired == 0>>
		<<set $slaves[_i].weekAcquired = $week>>
	<</if>>
	<<if $slaves[_i].relation == 0>>
		<<set $slaves[_i].relationTarget = 0>>
	<</if>>
	<<if $slaves[_i].relationship == 0>>
		<<set $slaves[_i].relationshipTarget = 0>>
	<</if>>
	<<if $slaves[_i].rivalry == 0>>
		<<set $slaves[_i].rivalryTarget = 0>>
	<</if>>
	/% Fix some possible floating point rounding errors, and bring precision to one decimal place. %/
	<<set $slaves[_i].energy = Math.clamp($slaves[_i].energy.toFixed(1), 0, 100)>>
	<<if $slaves[_i].fetishStrength > 95>>
		<<set $slaves[_i].fetishStrength = 100>>
	<<else>>
		<<set $slaves[_i].fetishStrength = Math.clamp($slaves[_i].fetishStrength.toFixed(1), 0, 100)>>
	<</if>>
	<<set $slaves[_i].weight = Math.clamp($slaves[_i].weight.toFixed(1), -100, 100)>>
	<<set $slaves[_i].health = Number($slaves[_i].health.toFixed(1))>>
	<<set $slaves[_i].butt = Number($slaves[_i].butt.toFixed(1))>>
	<<set $slaves[_i].muscles = Math.clamp($slaves[_i].muscles.toFixed(1), -100, 100)>>
	<<set $slaves[_i].lips = Math.clamp($slaves[_i].lips.toFixed(1), 0, 100)>>
	<<set $slaves[_i].oralSkill = Math.clamp($slaves[_i].oralSkill.toFixed(1), 0, 100)>>
	<<set $slaves[_i].vaginalSkill = Math.clamp($slaves[_i].vaginalSkill.toFixed(1), 0, 100)>>
	<<set $slaves[_i].analSkill = Math.clamp($slaves[_i].analSkill.toFixed(1), 0, 100)>>
	<<set $slaves[_i].whoreSkill = Math.clamp($slaves[_i].whoreSkill.toFixed(1), 0, 100)>>
	<<set $slaves[_i].entertainSkill = Math.clamp($slaves[_i].entertainSkill.toFixed(1), 0, 100)>>
	<<set $slaves[_i].lactationAdaptation = Math.clamp($slaves[_i].lactationAdaptation.toFixed(1), 0, 100)>>
	<<set $slaves[_i].intelligenceImplant = Number($slaves[_i].intelligenceImplant.toFixed(1))>>
	<<if ($HGSuiteEquality == 1) && ($HeadGirl != 0) && ($slaves[_i].devotion > 50)>>
		<<if ($slaves[_i].assignment == "live with your Head Girl")>>
			<<set _NewHG = _i>>
		<<elseif ($slaves[_i].ID == $HeadGirl.ID)>>
			<<set _OldHG = _i>>
		<</if>>
	<</if>>
	/* AVERAGE VALUES UPDATE */
	<<if $slaves[_i].assignmentVisible == 1>>
		<<set $averageTrust += $slaves[_i].trust, $averageDevotion += $slaves[_i].devotion, _slavesContributing++>>
	<<elseif ($slaves[_i].assignment != "be confined in the cellblock") && ($slaves[_i].assignment != "be confined in the arcade") && (($slaves[_i].assignment != "work in the dairy") || ($dairyRestraintsSetting < 2)) && $slaves[_i].assignment != "labor in the production line">>
		<<set $averageTrust += $slaves[_i].trust*0.5, $averageDevotion += $slaves[_i].devotion*0.5, _slavesContributing += 0.5>>
	<</if>>
<</for>>
<<set $averageTrust = $averageTrust/_slavesContributing>>
<<set $averageDevotion = $averageDevotion/_slavesContributing>>
<<set $enduringTrust = ($averageTrust+($enduringTrust*3))/4>>
<<set $enduringDevotion = ($averageDevotion+($enduringDevotion*3))/4>>

<<if (_OldHG != -1) && (_NewHG != -1)>>
	<<removeJob $slaves[_NewHG] "live with your Head Girl">>
	<<assignJob $slaves[_OldHG] "live with your Head Girl">>
	<<set $HeadGirl = $slaves[_NewHG], $slaves[_NewHG].assignment = "be your Head Girl", $slaves[_NewHG].diet = "healthy">>
<</if>>

<<if $PC.preg >= 40 && random(1,100) > 50>>
	<<set $PC.labor = 1>>
<<elseif $PC.preg >= 44>>
	<<set $PC.labor = 1>>
<</if>>

<<if $week == $oldWeek>>
	<<set $week += 1, $day += 7>>
	<<switch $month>>
	<<case "January">>
	<<if $day > 31>>
		<<set $day -= 31, $month = "February">>
	<</if>>
	<<case "February">>
	<<if $day > 28>>
		<<set $day -= 28, $month = "March">>
	<</if>>
	<<case "March">>
	<<if $day > 31>>
		<<set $day -= 31, $month = "April">>
	<</if>>
	<<case "April">>
	<<if $day > 30>>
		<<set $day -= 30, $month = "May">>
	<</if>>
	<<case "May">>
	<<if $day > 31>>
		<<set $day -= 31, $month = "June">>
	<</if>>
	<<case "June">>
	<<if $day > 30>>
		<<set $day -= 30, $month = "July">>
	<</if>>
	<<case "July">>
	<<if $day > 31>>
		<<set $day -= 31, $month = "August">>
	<</if>>
	<<case "August">>
	<<if $day > 31>>
		<<set $day -= 31, $month = "September">>
	<</if>>
	<<case "September">>
	<<if $day > 30>>
		<<set $day -= 30, $month = "October">>
	<</if>>
	<<case "October">>
	<<if $day > 31>>
		<<set $day -= 31, $month = "November">>
	<</if>>
	<<case "November">>
	<<if $day > 30>>
		<<set $day -= 30, $month = "December">>
	<</if>>
	<<default>>
	<<if $day > 31>>
		<<set $day -= 31, $month = "January", $year += 1>>
	<</if>>
	<</switch>>
<</if>>

<<if $playerSurgery > 0>>
	<<set $playerSurgery-->>
<</if>>

<<set _seed = random(1,10)>>
<<if $week < 25>>
	<<if _seed > 4>>
		<<set $weatherToday = $niceWeather.random()>>
	<<else>>
		<<set $weatherToday = $lightWeather.random()>>
	<</if>>
<<elseif $week < 50>>
	<<if _seed > 4>>
		<<set $weatherToday = $niceWeather.random()>>
	<<elseif _seed > 2>>
		<<set $weatherToday = $lightWeather.random()>>
	<<else>>
		<<set $weatherToday = $heavyWeather.random()>>
	<</if>>
<<elseif $week < 75>>
	<<if _seed > 6>>
		<<set $weatherToday = $niceWeather.random()>>
	<<elseif _seed > 3>>
		<<set $weatherToday = $lightWeather.random()>>
	<<else>>
		<<set $weatherToday = $heavyWeather.random()>>
	<</if>>
<<else>>
	<<if _seed > 8>>
		<<set $weatherToday = $niceWeather.random()>>
	<<elseif _seed > 6>>
		<<set $weatherToday = $lightWeather.random()>>
	<<elseif _seed > 2>>
		<<set $weatherToday = $heavyWeather.random()>>
	<<else>>
		<<set $weatherToday = $extremeWeather.random()>>
	<</if>>
<</if>>

<<set $coursed = 0, $eventDescription = 0, $manuallyRetired = 0, $pitFought = 0, $preOwnedViewed = 0, $prestigeAuctioned = 0, $repGain = 0, $shelterSlave = 0, $shelterSlaveBought = 0, $slaveMarketLimit = 10 + ($rep / 1000), $slavesSeen = 0>>

/% These are variables that either should be made into _temp vars or should be Zeroed out once done with them instead of here. This can also interfere with debugging or hide NaN's as zeroing things out would clear a NaN. Also could stop from NaN's getting worse? %/
/% Integer and float variables. No real need to zero them out but doesn't hurt to have them in a known state, though this might mask variables NaN'ing out. Takes up the least amount of Memory besides a "" string. %/
<<set $averageProsperity = 0, $beauty = 0, $beautyMultiplier = 0, $boobsID = -1, $boobsInterestTargetID = -1, $brideSlave = -1, $buttslutID = -1, $buttslutInterestTargetID = -1, $cumslutID = -1, $FResult = 0, $groomSlave = -1, $humiliationID = -1, $humiliationInterestTargetID = -1, $i = 0, $I = 0, $individualCosts = 0, $influenceBonus = 0, $j = 0, $learning = 0, $m = 0, $masochistID = -1, $masochistInterestTargetID = -1, $opinion = 0, $r = 0, $subID = -1, $submissiveInterestTargetID = -1, $weddingSlaveID = -1, $x = 0, $y = 0, $relationID = 0, $tempMF = 0, $relationType = 0>>

/% Other arrays %/
<<set $events = [], $FSAcquisitionEvents = [], $FSNonconformistEvents = [], $nurseMolestationSubIDs = [], $PESSevent = [], $PETSevent = [], $qualifiedNicknames = [], $REAnalCowgirlSubIDs = [], $REButtholeCheckinIDs = [], $RECIevent = [], $recruit = [], $RETasteTestSubIDs = [], $qualifiedFS = [], $recruitedType = []>>

/% Slave Objects using 0 instead of null. Second most memory eaten up. %/
<<set $activeSlave = 0, $displaySlave = 0, $domSlave = 0, $eventSlave = 0, $REBoobCollisionSub = 0, $REIfYouEnjoyItSub = 0, $RERelationshipSlave = 0, $RESadisticDescriptionSub = 0, $REShowerForceSub = 0, $secondSlave = 0, $slaveWithoutBonuses = 0, $subSlave = 0, $milkTap = 0, $relation = 0>>

/% Slave Objects that never get zeroed so null them here. Second most memory eaten up. %/
<<set $alphaTwin = null, $assayedSlave = null, $beforeGingering = null, $betaTwin = null, $mother = null, $olderSister = null, $recruiterMother = null, $recruiterSisterOlder = null, $recruiterSisterYoung = null, $recruiterTwin = null, $sibling = null, $tempLover = null, $tempRival = null, $tempSub = null>>

/% Slave Object Arrays. These can take up the most memory. %/
<<set $eligibleSlaves = [], $slavesInLine = []>>

/% Strings Memory varies. %/
<<set $analSkinDesc = "", $applyDesc = "", $bellyAccessory = "", $buyer = "", $desc = "", $event = "", $goto = "", $malefactor = "", $nickname = "", $notApplyDesc = "", $oldName = "", $situationDesc = "", $skinDesc = "", $k = "", $l = "", $j = "", $y = "", $relationType = "">>
/% Done with zeroing out, what should be for the most part Temps %/

/*HACKY EVENT WORKAROUNDS*/
<<if $eventID != -1>>
	<<set $slaves[$eventID].devotion -= 50, $eventID = -1>>
<</if>>

<<if $autosave != 0>>
	<<script>>Save.autosave.save("Week Start Autosave")<</script>>
<</if>>

<<goto "Main">>


code:
:: NGP Workaround [silently]

<<if $slavesToImport == 1>>
	<<set $slaves[$i].assignment = "be imported">>
<<else>>
	<<set $slaves[$i].assignment = "rest">>
<</if>>
<<goto "New Game Plus">>


code:
:: Nurse Select [nobr]

<<set $nextButton = "Back", $nextLink = "Clinic", $showEncyclopedia = 1, $encyclopedia = "Nurse">>

<<if ($Nurse != 0)>>
	''__@@.pink;$Nurse.slaveName@@__'' is serving as your Nurse.

She will help heal your slaves.
<<else>>
	You have not selected an Nurse.
<</if>>

''Appoint a Nurse from your devoted slaves:''
<<include "Slave Summary">>

[[None|Nurse Workaround][$i = -1]]


code:
:: Nurse Workaround [silently]

<<if $Nurse != 0>>
	<<set _ID = $Nurse.ID, _SL = $slaves.length>>
	<<for _i = 0; _i < _SL; _i++>>
		<<if (_ID == $slaves[_i].ID)>><<break>><</if>>
	<</for>>
	<<set $slaves[_i].assignment = "rest", $slaves[_i].assignmentVisible = 1>>
<</if>>
<<if $i > -1>>
	<<if $slaves[$i].ID == $HeadGirl.ID>>
		<<set $HeadGirl = 0>>
	<</if>>
	<<if $slaves[$i].ID == $Recruiter.ID>>
		<<set $Recruiter = 0>>
	<</if>>
	<<if $slaves[$i].ID == $Bodyguard.ID>>
		<<set $Bodyguard = 0>>
	<</if>>
	<<if $slaves[$i].ID == $personalAttention>>
		<<if $PC.career == "escort">>
		<<set $personalAttention = "whoring">>
		<<elseif $PC.career == "servant">>
		<<set $personalAttention = "upkeep">>
		<<else>>
		<<set $personalAttention = "business">>
		<</if>>
	<</if>>
	<<set $slaves[$i].assignment = "be the Nurse", $slaves[$i].assignmentVisible = 0, $slaves[$i].choosesOwnAssignment = 0, $slaves[$i].sentence = 0, $slaves[$i].livingRules = "luxurious">>
	<<if $slaves[$i].choosesOwnClothes == 1>><<include "SA chooses own clothes">><</if>>
	<<set $Nurse = $slaves[$i]>>
<<else>>
	<<set $Nurse = 0>>
<</if>>

<<goto "Clinic">>


code:
:: Office Description [nobr]

    //You are at your desk in your penthouse office. It has a glass top interface from which you can rule over $arcologies[0].name; $assistantName's avatar is visible in one corner.

<<include "Personal Assistant Appearance">>

<<if $clubAdsSpending >= 5000>>
	A corner of your desk is piled with sample merchandise from the campaign promoting your club.
	<<set $eventSlaves = []>>
	<<for _i = 0; _i < $slaves.length; _i++>>
	<<if ($slaves[_i].assignment == "serve in the club") && canWalk($slaves[_i])>>
		<<set $eventSlaves.push($slaves[_i])>>
	<</if>>
	<</for>>
	<<if $eventSlaves.length > 0>>
	<<set $activeSlave = $eventSlaves.random()>>
	<<if random(1,2) == 1>>
		This includes a sex toy based on $activeSlave.slaveName's
		<<if (random(1,3) == 1) && ($activeSlave.vaginalSkill >= 100)>>
		<<if $activeSlave.vagina > 3>>massive vagina<<elseif $activeSlave.vagina > 2>>gaping cunt<<elseif $activeSlave.vagina > 1>>hot cunt<<elseif $activeSlave.vagina > 0>>tight pussy<<else>>virgin pussy<</if>>.
		<<elseif (random(1,2) == 1) && ($activeSlave.oralSkill >= 100)>>
		<<if $activeSlave.lips > 40>>huge<<elseif $activeSlave.lips > 20>>pillowlike<<elseif $activeSlave.lips > 10>>pretty<<else>>thin<</if>> lips and throat.
		<<else>>
		<<if $activeSlave.anus > 3>>blown-out butthole<<elseif $activeSlave.anus > 2>>roomy anus<<elseif $activeSlave.anus > 1>>big butthole<<elseif $activeSlave.anus > 0>>tight asshole<<else>>virgin backdoor<</if>>.
		<</if>>
	<<else>>
		There is a figurine of $activeSlave.slaveName; she's depicted
		<<if (random(1,3) == 1) && ($activeSlave.vaginalSkill >= 100)>>
		lying nude on her back, spreading her legs to <<if $activeSlave.vagina > 3>>exhibit her massive vagina<<elseif $activeSlave.vagina > 2>>show off her gaping cunt<<elseif $activeSlave.vagina > 1>>offer her hot cunt<<elseif $activeSlave.vagina > 0>>display her tight pussy<<else>>tantalize with her virgin pussy<</if>>.
		<<elseif (random(1,2) == 1) && ($activeSlave.oralSkill >= 100)>>
		with her <<if $activeSlave.lips > 40>>huge<<elseif $activeSlave.lips > 20>>pillowlike<<elseif $activeSlave.lips > 10>>pretty<<else>>thin<</if>> lips parted, her tongue partway out.
		<<else>>
		bending at the waist and spreading her <<if $activeSlave.butt > 6>>gigantic buttocks<<elseif $activeSlave.butt > 4>>meaty asscheeks<<elseif $activeSlave.butt > 2>>healthy buttocks<<else>>cute butt<</if>> to show off her <<if $activeSlave.anus > 3>>blown-out butthole<<elseif $activeSlave.anus > 2>><<elseif $activeSlave.anus > 1>>big butthole<<elseif $activeSlave.anus > 0>>tight asshole<<else>>virgin backdoor<</if>>.
		<</if>>
	<</if>>
	<</if>>
<</if>>
<<if $brothelAdsSpending >= 5000>>
	<<if $clubAdsSpending >= 5000>>
	There's just as much from the similar campaign advertising $brothelName.
	<<else>>
	A corner of your desk is piled with sample merchandise from the campaign promoting $brothelName.
	<</if>>
	<<set $eventSlaves = []>>
	<<for _i = 0; _i < $slaves.length; _i++>>
	<<if ($slaves[_i].assignment == "work in the brothel") && canWalk($slaves[_i])>>
		<<set $eventSlaves.push($slaves[_i])>>
	<</if>>
	<</for>>
	<<if $eventSlaves.length > 0>>
	<<set $activeSlave = $eventSlaves.random()>>
	<<if random(1,2) == 1>>
		This includes a sex toy based on $activeSlave.slaveName's
		<<if (random(1,3) == 1) && ($activeSlave.vaginalSkill >= 100)>>
		<<if $activeSlave.vagina > 3>>massive vagina<<elseif $activeSlave.vagina > 2>>gaping cunt<<elseif $activeSlave.vagina > 1>>hot cunt<<elseif $activeSlave.vagina > 0>>tight pussy<<else>>virgin pussy<</if>>.
		<<elseif (random(1,2) == 1) && ($activeSlave.oralSkill >= 100)>>
		<<if $activeSlave.lips > 40>>huge<<elseif $activeSlave.lips > 20>>pillowlike<<elseif $activeSlave.lips > 10>>pretty<<else>>thin<</if>> lips and throat.
		<<else>>
		<<if $activeSlave.anus > 3>>blown-out butthole<<elseif $activeSlave.anus > 2>><<elseif $activeSlave.anus > 1>>big butthole<<elseif $activeSlave.anus > 0>>tight asshole<<else>>virgin backdoor<</if>>.
		<</if>>
	<<else>>
		This includes paired figurines of $activeSlave.slaveName with a faceless male figure;
		<<if (random(1,3) == 1) && ($activeSlave.vaginalSkill >= 100)>>
		she's shamelessly riding his dick.
		<<elseif (random(1,2) == 1) && ($activeSlave.oralSkill >= 100)>>
		she's on her knees with her <<if $activeSlave.lips > 40>>huge<<elseif $activeSlave.lips > 20>>pillowlike<<elseif $activeSlave.lips > 10>>pretty<<else>>thin<</if>> lips wrapped around his dick.
		<<else>>
		she's shown <<if $activeSlave.anus > 3>>blown-out butthole<<elseif $activeSlave.anus > 2>>looking up teasingly as she takes his dick up her roomy anus<<elseif $activeSlave.anus > 1>>looking up teasingly as she takes his dick in her big butthole<<elseif $activeSlave.anus > 0>>gasping as she takes his dick in her tight asshole<<else>>screaming as he fucks her virgin backdoor<</if>>.
		<</if>>
	<</if>>
	<</if>>
<</if>>
<br>    Next to your desk is a sturdy black leather couch. All the walls on this floor are glass, so you can see your <<if $slaves.length > 50>>innumerable<<elseif $slaves.length > 20>>many<<elseif $slaves.length > 10>>numerous<<elseif $slaves.length > 5>>handful of<<else>>few<</if>> slaves going about their business. The room is designed so that everyone must walk past the door to your office to get anywhere.
<<if $personalArms > 0>>
	Your custom armor rests in the corner of the room where visitors can admire it, and you can don it quickly if necessary.
	<<if ($week > (43-$nationHate)) && ($mercenaries >= 5)>>
		Its plates bear scarring won in victorious battle, and from its back rises a banner depicting you at the head of your $mercenariesTitle.
	<<elseif $week > (43-$nationHate)>>
		Its plates bear scarring fairly won.
	<</if>>
	<<if $assistant > 0>>
		The last time she had it maintained, $assistantName added
		<<switch $assistantAppearance>>
		<<case "monstergirl">>
			a pinup of herself to its plating: she's depicted with her fangs bared, each strand of her tentacle hair holding a lightning bolt, and both of her cocks ejaculating fire.
		<<case "shemale">>
			a pinup of herself to its plating: she's depicted straddling a battle rifle so closely that it looks like she's intimately entangled in the action.
		<<case "amazon">>
			a pinup of herself to its plating: she's depicted in a classic nude bodybuilder's pose, but with a cutely coquettish expression.
		<<case "businesswoman">>
			a pinup of herself to its plating: she's depicted wearing underwear, for once, and looking very severe as she straddles a cruise missile in a classic bombshell pose.
		<<case "fairy">>
			a pinup of herself to its plating: she's depicted naked as usual, standing on top of a large bullet and making finger guns with a grin on her face.
		<<case "pregnant fairy">>
			a pinup of herself to its plating: she's depicted naked as usual, straddling a large bullet and making peace signs with her tongue sticking out.
		<<case "goddess">>
			a pinup of herself to its plating: she's depicted demurely but barely covering her radiant body with a flowing ribbon, like a goddess about to burst with triplets.
		<<case "hypergoddess">>
			a pinup of herself to its plating: she's depicted barely covering her hugely pregnant, radiant body with a flowing ribbon, like a goddess about to burst open from her hundreds of children.
		<<case "loli">>
			a pinup of herself to its plating: she's cutely hugging a rifle to her flat chest.
		<<case "preggololi">>
			a pinup of herself to its plating: she's flashing her lewd preggo loli pussy.
		<<case "angel">>
			a pinup of herself to its plating: she's depicted wielding a flaming sword and golden shield.
		<<case "cherub">>
			a pinup of herself to its plating: she's depicted hugging a bow to her chest.
		<<case "incubus">>
			a pinup of herself to its plating: she's depicted mid-orgasm, a bullet rocketing from her dick amidst a blast of cum.
		<<case "succubus">>
			a pinup of herself to its plating:
			<<switch $assistantFSAppearance>>
			<<case "paternalist">>
				she's depicted hiking her skirt to flash her crotch.
			<<case "degradationist">>
				she's depicted striking a pose showing off her countless piercings.
			<<case "roman revivalist">>
				she's depicted in a stola, flashing her tits.
			<<case "egyptian revivalist">>
				she's depicted groping her perfect bronze breasts while blowing a kiss.
			<<case "edo revivalist">>
				she's depicted in a kimono, pulled open to flash her lovely breasts.
			<<case "arabian revivalist">>
				she's depicted wearing fine silks and striking a sexy pose, though they fail to cover anything on her.
			<<case "chinese revivalist">>
				she's depicted wearing colorful silk robes; she's pulled them open to flash her lovely body.
			<<case "chattel religionist">>
				she's depicted striking a sexy pose, chosen specifically to draw attention to the symbols of your relgion that adorn her nipples.
			<<case "repopulation focus">>
				she's depicted strinking a sexy pose made to draw the eye to her pregnant belly.
			<<case "eugenics">>
				she's depicted striking a sexy pose; she's so stunning you can't look away.
			<<case "physical idealist">>
				she's depicted flexing her tremendous musculature intimidatingly.
			<<case "gender radicalist">>
				she's depicted facing away from you, looking over her shoulder suggestively and presenting
				<<if $arcologies[0].FSGenderRadicalistLawFuta == 1>>
					her rear. A pair of balls hangs beneath her tight pussy.
				<<elseif $arcologies[0].FSGenderRadicalistLawFuta == 2>>
					her anus. A pair of heavy balls hangs from her crotch.
				<<elseif $arcologies[0].FSGenderRadicalistLawFuta == 3>>
					her gigantic ass.
				<<else>>
					her rear.
				<</if>>
			<<case "gender fundamentalist">>
				she's depicted with one hand on her supple breast and the other tracing the curve of her child-bearing hips.
			<<case "asset expansionist">>
				she's depicted cradling her own pair of ballistics; her gigantic breasts are painted like atom bombs.
			<<case "transformation fetishist">>
				she's depicted striking a pose with one arm supporting her enormous implants.
			<<case "pastoralist">>
				she's depicted striking a sexy pose, hands trying to relieve the pressure of her quarter of milk filled breasts.
			<<case "maturity preferentialist">>
				she's depicted in a pose not unlike something you'd see on a 60's pinup calander.
			<<case "youth preferentialist">>
				she's depicted in a pose fresh out of a popluar idol's newest video.
			<<case "slimness enthusiast">>
				she's depicted striking a sexy pose while running her hands across her
				<<if $arcologies[0].FSSlimnessEnthusiastLaw == 1>>
					flat chest.
				<<else>>
					slim assets.
				<</if>>
			<<case "body purist">>
				she's depicted striking a sexy pose that shows off every flawless inch of her body.
			<</switch>>
		<<case "imp">>
			a pinup of herself to its plating: she's depicted straddling a trident; pussy juices running down its shaft.
		<<case "witch">>
			a pinup of herself to its plating: she's depicted straddling a broom, winking.
		<<case "ERROR_1606_APPEARANCE_FILE_CORRUPT">>
			a pinup of herself to its plating: you have no idea what to make of it. Whatenver it is, it is devouring your enemies on one end and popping out proper slaves from the other.
		<<case "schoolgirl">>
			a pinup of herself to its plating: she's depicted up on tiptoe, back turned, with her schoolgirl skirt riding up to bare her bottom.
		<<default>>
			her own symbol to its insignia.
		<</switch>>
	<</if>>
<</if>>
<<if $trinkets.length > 0>>
There's a display case behind your desk,
<<if $trinkets.length > 2>>
	with
	<<for $i = 0; $i < $trinkets.length; $i++>>
	<<if $i < $trinkets.length-1>>
		$trinkets[$i],
	<<else>>
		and $trinkets[$i].
	<</if>>
	<</for>>
<<elseif $trinkets.length > 1>>
	with a couple of items: $trinkets[0], and $trinkets[1].
<<else>>
	with a single item: $trinkets[0].
<</if>>

A small mirror resides on your desk, facing you.
A $PC.visualAge year old face stares back at you.
<<if ($playerAging != 0)>><<if $PC.birthWeek is 51>>You'll be turning <<print $PC.actualAge+1>> next week.<</if>><</if>>
<<if $PC.boobsBonus > 2>>
	Your breasts are enormous. <<if $PC.boobsImplant == 1>>They are big, round, and obviously implants. They insist on maintaining their shape no matter how you move<<else>>They are all natural, heavy, and a bit saggy though they retain some perk. Every single move you make sends ripples through your cleavage. You catch yourself watching them move in the mirror every so often<</if>>.<<if $PC.preg > 30 || $PC.births > 0>> Your breasts feel even more enormous lately; likely a side effect of your lactation, though you could do without the wetspots forming over your nipples.<</if>>
<<elseif $PC.boobsBonus == 2>>
	Your breasts are huge. <<if $PC.boobsImplant == 1>>They are unaturally perky for their size. When you shake them, the barely move<<else>>They are all natural and a little heavy. They bounce lewdly when you shake them and take a little too long to calm down.<</if>>.<<if $PC.preg > 30 || $PC.births > 0>> Your breasts feel even more huge lately; likely a side effect of your lactation, though you could do without the wetspots forming over your nipples.<</if>>
<<elseif $PC.boobsBonus == 1>>
	Your breasts are pretty big. <<if $PC.boobsImplant == 1>>They are nice, perky and not obviously implants. They jiggle only slightly when you shake them though<<else>>They are nice and perky, dispite their size. They bounce lewdly when you shake them<</if>>.<<if $PC.preg > 30 || $PC.births > 0>> Your breasts feel bigger lately; likely a side effect of your lactation, though you could do without the wetspots forming over your nipples.<</if>>
<<elseif $PC.boobsBonus == -0.5>>
	Your breasts are certainly eye-catching. They are nice and perky, with just the right amount of bounce when you shake them.<<if $PC.preg > 30 || $PC.births > 0>> Your breasts feel bigger lately; likely a side effect of your lactation, though you could do without the wetspots forming over your nipples.<</if>>
<<elseif $PC.boobsBonus == -1>>
	Your breasts are fairly average, at least to old world standards. They are very perky, but aren't big enough to have a nice bounce when you shake them.<<if $PC.preg > 30 || $PC.births > 0>> Your breasts feel bigger lately; likely a side effect of your lactation, though you could do without the wetspots forming over your nipples.<</if>>
<<elseif $PC.boobs == 1>>
	Your breasts are on the larger side of things<<if $PC.preg > 30 || $PC.births > 0>>, though you could do without the wetspots forming over your nipples<</if>>.
<<else>>
	Your chest is quite masculine@@<<if $PC.preg > 30 || $PC.births > 0>>, though the pair of wetspots forming over your nipples suggest otherwise<</if>>.
<</if>>
<<if $PC.preg >= 42>>
	You don't know why you even bother getting out of bed; you are overdue and ready to drop at many time,  making your life as arcology owner very difficult. You try to relax and enjoy your slaves, but you can only manage so much in this state.
<<elseif $PC.preg >= 40>>
	You feel absolutely massive; your full-term belly makes your life as arcology owner very difficult. You try your best to not wander too far from your penthouse, not with labor and birth so close.
<<elseif $PC.preg >= 36>>
	You can barely wrap your arms around your huge pregnant belly, and when you do, your popped navel reminds you your bun is almost ready.
<<elseif $PC.preg >= 32>>
	Your pregnancy has gotten quite huge, none of your clothes fit it right.
<<elseif $PC.preg >= 28>>
	Your pregnant belly juts out annoyingly far, just getting dressed is a pain now.
<<elseif $PC.preg >= 24>>
	Half way there! Your belly has gotten quite large with child; it is beginning to get the way of sex and business.
<<elseif $PC.preg >= 20>>
	Your belly is now large enough that there is no hiding it.
<<elseif $PC.preg >= 16>>
	Your belly is rounded by your early pregnancy.
<<elseif $PC.preg >= 12>>
	Your lower belly is beginning to stick out, you're definitely pregnant.
<<elseif $PC.preg >= 8>>
	Your belly is slightly swollen; combined with your missed period, odds are you're pregnant.
<<elseif $PC.preg >= 3>>
	Your period hasn't happened in some time, you might be pregnant.
<</if>>
<<if $PC.ballsImplant > 2>>
	No matter how you sit, your enormous balls are never comfortable.
<<elseif $PC.ballsImplant == 2>>
	You shift in your seat and spread your legs to give your huge balls room.
<<elseif $PC.ballsImplant == 1>>
	You shift in your seat to make room for your big balls.
<</if>>
<<if $PC.butt > 2>>
	Your enormous butt makes for an extremely comfortable seat. You hope the chair doesn't follow you when you stand up this time.
<<elseif $PC.butt == 2>>
	Your huge butt makes for a very comfortable seat.
<<elseif $PC.butt == 1>>
	Your big butt makes for a comfortable seat.
<</if>>

<</if>>