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 to 0>>

/* PRIME RIVALRY FS ADOPTION */

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

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

<<else>>

/* RIVAL ADOPTION */

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

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

/* AGENT ADOPTION*/

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

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

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

/* CROSS-FS ADOPTION*/

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

/* NEIGHBOR ADOPTION*/

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

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

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


code:
:: New Game Plus

<<nobr>>
<<set $ui to "start">>
<<set $slavesToImport to 0>>
<<if ndef $slavesToImportMax>>
	<<set $slavesToImportMax = 5>>
<</if>>

<<if $ver.indexOf("0.9") == -1>>
<<silently>>
<<include "Mod_Backwards Compatibility">>
<</silently>>
<</if>>

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 @@color:orange;"arcology owner"!@@ Benefits include:
			@@color:lime;20% reduced cost of construction.@@
			@@color:lime;Free additional starting rep along with easy rep maintenance.@@
			@@color:lime;Reduced mercenary costs.@@
			@@color:lime;An eye for gingered slaves.@@
			<<if $retainCareer == 1>>
				[[Change career.|New Game Plus][$retainCareer to 0]]
			<<elseif $retainCareer == 0>>
				[[Don't change career.|New Game Plus][$retainCareer to 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 to 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 to 1]]

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

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

<<unset $Flag>>
<</nobr>>


code:
:: Next Slave In Line

<<silently>>

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

<<if $place is $slavesInLine.length-1>>
	<<set $activeSlave to $slavesInLine[0]>>
<<else>>
	<<set $activeSlave to $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 to 0>>
		<<if $playerAging == 2>>
			<<set $PC.physicalAge += 1>>
			<<set $PC.actualAge += 1>>
			<<set $PC.visualAge += 1>>
		<</if>>
	<</if>>
<</if>>

<<set $averageTrust to 0>>
<<set $averageDevotion to 0>>
<<set _slavesContributing = 0>>
<<set _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>>
			<<set $slaves[_i].actualAge += 1>>
			<<set $slaves[_i].visualAge += 1>>
			<<if $slaves[_i].physicalAge lte 18 && $loliGrow == 1>>
				<<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 to "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(Number($slaves[_i].energy.toFixed(1)), 0, 100)>>
	<<if $slaves[_i].fetishStrength > 95>>
		<<set $slaves[_i].fetishStrength = 100>>
	<<else>>
		<<set $slaves[_i].fetishStrength = Math.clamp(Number($slaves[_i].fetishStrength.toFixed(1)), 0, 100)>>
	<</if>>
	<<set $slaves[_i].weight = Math.clamp(Number($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(Number($slaves[_i].muscles.toFixed(1)), -100, 100)>>
	<<set $slaves[_i].lips = Math.clamp(Number($slaves[_i].lips.toFixed(1)), 0, 100)>>
	<<set $slaves[_i].oralSkill = Math.clamp(Number($slaves[_i].oralSkill.toFixed(1)), 0, 100)>>
	<<set $slaves[_i].vaginalSkill = Math.clamp(Number($slaves[_i].vaginalSkill.toFixed(1)), 0, 100)>>
	<<set $slaves[_i].analSkill = Math.clamp(Number($slaves[_i].analSkill.toFixed(1)), 0, 100)>>
	<<set $slaves[_i].whoreSkill = Math.clamp(Number($slaves[_i].whoreSkill.toFixed(1)), 0, 100)>>
	<<set $slaves[_i].entertainSkill = Math.clamp(Number($slaves[_i].entertainSkill.toFixed(1)), 0, 100)>>
	<<set $slaves[_i].lactationAdaptation = Math.clamp(Number($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 += 1>>
	<<else>>
		<<if $slaves[$i].assignment != "be confined in the cellblock">>
		<<if $slaves[$i].assignment != "be confined in the arcade">>
		<<if $slaves[$i].assignment != "labor in the production line">>
		<<if ($slaves[$i].assignment != "work in the dairy") || ($dairyRestraintsSetting < 2)>>
			<<set $averageTrust += $slaves[$i].trust*0.5, $averageDevotion += $slaves[$i].devotion*0.5, _slavesContributing += 0.5>>
		<</if>>
		<</if>>
		<</if>>
		<</if>>
	<</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)>>
	<<set $slaves[_OldHG].assignment = "live with your Head Girl", $slaves[_OldHG].assignmentVisible = 0>>
	<<if $slaves[_OldHG].ID == $personalAttention>>
		<<if $PC.career == "escort">>
		<<set $personalAttention to "whoring">>
		<<elseif $PC.career == "servant">>
		<<set $personalAttention to "upkeep">>
		<<else>>
		<<set $personalAttention to "business">>
		<</if>>
	<</if>>
	<<set $slaves[_NewHG].assignment = "be your Head Girl", $slaves[_NewHG].assignmentVisible = 1, $HeadGirl = $slaves[_NewHG], $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 is $oldWeek>>
	<<set $week += 1, $day += 7>>
	<<switch $month>>
	<<case "January">>
	<<if $day > 31>>
		<<set $day -= 31, $month to "February">>
	<</if>>
	<<case "February">>
	<<if $day > 28>>
		<<set $day -= 28, $month to "March">>
	<</if>>
	<<case "March">>
	<<if $day > 31>>
		<<set $day -= 31, $month to "April">>
	<</if>>
	<<case "April">>
	<<if $day > 30>>
		<<set $day -= 30, $month to "May">>
	<</if>>
	<<case "May">>
	<<if $day > 31>>
		<<set $day -= 31, $month to "June">>
	<</if>>
	<<case "June">>
	<<if $day > 30>>
		<<set $day -= 30, $month to "July">>
	<</if>>
	<<case "July">>
	<<if $day > 31>>
		<<set $day -= 31, $month to "August">>
	<</if>>
	<<case "August">>
	<<if $day > 31>>
		<<set $day -= 31, $month to "September">>
	<</if>>
	<<case "September">>
	<<if $day > 30>>
		<<set $day -= 30, $month to "October">>
	<</if>>
	<<case "October">>
	<<if $day > 31>>
		<<set $day -= 31, $month to "November">>
	<</if>>
	<<case "November">>
	<<if $day > 30>>
		<<set $day -= 30, $month to "December">>
	<</if>>
	<<default>>
	<<if $day > 31>>
		<<set $day -= 31, $month to "January", $year += 1>>
	<</if>>
	<</switch>>
<</if>>

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

<<set _seed to 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, $costs = 0, $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 to [], $recruitedType to []>>

/% 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 to -1>>
<</if>>

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

<<goto "Main">>

<</silently>>


code:
:: NGP Workaround

<<if $slavesToImport == 1>>
	<<set $activeSlave.assignment to "be imported">>
	<<for $i to 0; $i < $slaves.length; $i++>>
	<<if $activeSlave.ID == $slaves[$i].ID>>
		<<set $slaves[$i] to $activeSlave>>
		<<break>>
	<</if>>
	<</for>>
	<<goto "New Game Plus">>
<<else>>
	<<set $activeSlave.assignment to "rest">>
	<<for $i to 0; $i < $slaves.length; $i++>>
	<<if $activeSlave.ID == $slaves[$i].ID>>
		<<set $slaves[$i] to $activeSlave>>
		<<break>>
	<</if>>
	<</for>>
	<<goto "New Game Plus">>
<</if>>


code:
:: Nurse Select

<<nobr>>
<<set $nextButton to "Back">>
<<set $nextLink to "Clinic">>
<<set $showEncyclopedia to 0>>

<<for _i to 0; _i < $slaves.length; _i++>>
<<if $Nurse.ID == $slaves[_i].ID>>
	''__@@color:pink;$slaves[_i].slaveName@@__'' is serving as your Nurse.
	<<set $slaves[_i].assignment to "be the Nurse">>
	<<set $slaves[_i].assignmentVisible to 0>>

She will help heal and care for your slaves.
	<<break>>
<</if>>
<</for>>
<<if ($Nurse == 0)>>
	You have not selected an Nurse.
<</if>>

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

[[None|Nurse Workaround][$Nurse to 0]]
<</nobr>>


code:
:: Nurse Workaround

<<for $i to 0; $i < $slaves.length; $i++>>
	<<if ($slaves[$i].assignment is "be the Nurse") && ($slaves[$i].ID != $Nurse.ID)>>
		<<set $slaves[$i].assignment to "rest">>
		<<set $slaves[$i].assignmentVisible to 1>>
		<<break>>
	<</if>>
	<</for>>

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

<<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 to []>>
	<<for _i to 0; _i < $slaves.length; _i++>>
	<<if ($slaves[_i].assignment is "serve in the club") and canWalk($slaves[_i])>>
		<<set $eventSlaves.push($slaves[_i])>>
	<</if>>
	<</for>>
	<<if $eventSlaves.length > 0>>
	<<set $activeSlave to $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 to []>>
	<<for _i to 0; _i < $slaves.length; _i++>>
	<<if ($slaves[_i].assignment is "work in the brothel") and canWalk($slaves[_i])>>
		<<set $eventSlaves.push($slaves[_i])>>
	<</if>>
	<</for>>
	<<if $eventSlaves.length > 0>>
	<<set $activeSlave to $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 "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 to 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>>