code:
:: Neighbors FS Adoption [nobr]

'' $arcologies[$i].name'', your <<if $arcologies[$i].direction == 0>>arcology<<else>>neighbor to the $arcologies[$i].direction<</if>>,
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">>
	@@.deeppink;your agent@@ and its citizens consider
<<case "a corporation">>
	its board of directors considers
<<default>>
	its citizens consider
<</switch>>
societal development.
<<set _adopted = 0>>

/* PRIME RIVALRY FS ADOPTION */

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

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

<<else>>

/* RIVAL ADOPTION */

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

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

/* AGENT ADOPTION*/

<<for _adopted == 0>>
<<if ($arcologies[$i].government == "your agent")>>
<<set _adopted = 1>> /* breaking out of the for loop will preserve this */
<<set $j = $leaders.findIndex(function(s) { return s.ID == $arcologies[$i].leaderID; })>>

<<if ($arcologies[$i].FSRepopulationFocus == "unset")>>
<<if ($arcologies[$i].FSRestart == "unset")>>
	<<if $leaders[$j].fetish == "pregnancy">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Repopulationism@@, since as a pregnancy fetishist, she can't wait to see the female population's bellies swell with life.
		<<set $arcologies[$i].FSRepopulationFocus = 5>><<break>>
	<<elseif ($leaders[$j].preg < -1 || ($leaders[$j].ovaries == 0 && $leaders[$j].mpreg != 1)) && $leaders[$j].genes == "XX">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Eugenics@@, since if no-one can get pregnant, she won't be alone.
		<<set $arcologies[$i].FSRestart = 5>><<break>>
	<</if>>
<</if>>
<</if>>
<<if ($arcologies[$i].FSGenderRadicalist == "unset")>>
<<if ($arcologies[$i].FSGenderFundamentalist == "unset")>>
	<<if $leaders[$j].dick > 0>>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Gender Radicalism@@, since she's a walking, swinging argument for dickgirls.
		<<set $arcologies[$i].FSGenderRadicalist = 5>><<break>>
	<<elseif $leaders[$j].pregKnown == 1 || $leaders[$j].bellyPreg > 1500>>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Gender Fundamentalism@@, since its citizens find leadership by a pregnant woman fascinating.
		<<set $arcologies[$i].FSGenderFundamentalist = 5>><<break>>
	<</if>>
<</if>>
<</if>>
<<if ($arcologies[$i].FSPaternalist == "unset")>>
<<if ($arcologies[$i].FSDegradationist == "unset")>>
	<<if $leaders[$j].behavioralQuirk == "advocate">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Paternalism@@, since as an advocate for slavery, she believes in its benefits.
		<<set $arcologies[$i].FSPaternalist = 5>><<break>>
	<<elseif $leaders[$j].fetish == "sadist">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Degradationism@@, since as a sexual sadist, she's excited by the idea of leading a society that applauds her cruelest impulses.
		<<set $arcologies[$i].FSDegradationist = 5>><<break>>
	<</if>>
<</if>>
<</if>>
<<if ($arcologies[$i].FSBodyPurist == "unset")>>
<<if ($arcologies[$i].FSTransformationFetishist == "unset")>>
	<<if $leaders[$j].chem > 50>>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Body Purism@@, since she knows what long term drug damage feels like, and doesn't want any slave to ever experience it again.
		<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
	<<elseif $leaders[$j].boobsImplant > 1000>>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Transformation Fetishism@@, out of a perverse desire to subject all slaves to massive implants like hers.
		<<set $arcologies[$i].FSTransformationFetishist = 5>><<break>>
	<</if>>
<</if>>
<</if>>
<<if ($arcologies[$i].FSYouthPreferentialist == "unset")>>
<<if ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
	<<if $leaders[$j].actualAge <= 25>>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Youth Preferentialism@@, to buttress acceptance of her own young age.
		<<set $arcologies[$i].FSYouthPreferentialist = 5>><<break>>
	<<elseif $leaders[$j].actualAge > 35>>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Maturity Preferentialism@@, since she has a certain personal interest in promoting the idea that MILFs are sexy.
		<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<break>>
	<</if>>
<</if>>
<</if>>
<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
<<if ($arcologies[$i].FSAssetExpansionist == "unset")>>
	<<if $leaders[$j].behavioralQuirk == "insecure">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Slimness Enthusiasm@@, since her history of anorexia has deeply impacted her idea of beauty.
		<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<break>>
	<<elseif $leaders[$j].fetish == "boobs">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Asset Expansionism@@, since she's a breast expansion fetishist in addition to being a mere breast fetishist.
		<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
	<</if>>
<</if>>
<</if>>
<<if ($arcologies[$i].FSPastoralist == "unset")>>
<<if ($arcologies[$i].FSCummunism == "unset")>>
	<<if $leaders[$j].fetish == "cumslut">> /* this will become the cum focused condition, being replaced with breast focus for milk */
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Cummunism@@, since she already loves sucking down huge loads of cum.
		<<set $arcologies[$i].FSCummunism = 5>><<break>>
	<<elseif $leaders[$j].fetish == "boobs">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Pastoralism@@, since she loves boobs and adores suckling them.
		<<set $arcologies[$i].FSPastoralist = 5>><<break>>
	<</if>>
<</if>>
<</if>>
<<if ($arcologies[$i].FSHedonisticDecadence == "unset")>>
<<if ($arcologies[$i].FSPhysicalIdealist == "unset")>>
	<<if $leaders[$j].behavioralFlaw == "gluttonous">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Decadent Hedonism@@, since she already loves over-eating.
		<<set $arcologies[$i].FSHedonisticDecadence = 5>><<break>>
	<<elseif $leaders[$j].behavioralQuirk == "fitness">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Physical Idealism@@, since she's a fitness fanatic herself.
		<<set $arcologies[$i].FSPhysicalIdealist = 5>><<break>>
	<<elseif $leaders[$j].fetish != "none" && $leaders[$j].fetishStrength >= 100>>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Decadent Hedonism@@, since she seeks to satisfy her powerful fetish.
		<<set $arcologies[$i].FSHedonisticDecadence = 5>><<break>>
	<</if>>
<</if>>
<</if>>
<<if ($arcologies[$i].FSIncestFetishist == "unset")>>
	<<if $familyTesting == 1>>
		<<set _lover = $slaves.find(function(s) { return s.ID == $leaders[$j].relationshipTaget && areRelated(s, $leaders[$j]) && s.assignment == "live with your agent"; })>>
	<<else>>
		<<set _lover = $slaves.find(function(s) { return s.ID == $leaders[$j].relationshipTaget && s.ID == $leaders[$j].relationTaget && s.assignment == "live with your agent"; })>>
	<</if>>
	<<if ($leaders[$j].behavioralQuirk == "sinful" || $leaders[$j].sexualQuirk == "perverted") && def _lover>>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Incest Festishism@@, to share the love and joy she holds with her relativeTerm($leaders[$j], _lover).
		<<set $arcologies[$i].FSIncestFetishist = 5>><<break>>
	<</if>>
<</if>>
<<if ($arcologies[$i].FSChattelReligionist == "unset")>>
<<if ($arcologies[$i].FSNull == "unset")>>
	<<if $leaders[$j].behavioralQuirk == "devout">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Chattel Religionism@@, to share and spread her deeply held beliefs about the holiness of sexual service.
		<<set $arcologies[$i].FSChattelReligionist = 5>><<break>>
	<<elseif $leaders[$j].behavioralQuirk == "sinful">>
		Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Chattel Religionism@@, since she's excited by the prospect of getting away with horrible sins against old religions in public.
		<<set $arcologies[$i].FSChattelReligionist = 5>><<break>>
	<</if>>
<</if>>
<</if>>
<<if $familyTesting == 1>>
	<<if ($arcologies[$i].FSRomanRevivalist == "unset")>>
	<<if ($arcologies[$i].FSAztecRevivalist == "unset")>>
	<<if ($arcologies[$i].FSEgyptianRevivalist == "unset")>>
	<<if ($arcologies[$i].FSEdoRevivalist == "unset")>>
	<<if ($arcologies[$i].FSArabianRevivalist == "unset")>>
	<<if ($arcologies[$i].FSChineseRevivalist == "unset")>>
		<<if ($leaders[$j].relationshipTarget != 0)>>
			<<set _lover = $slaves.findIndex(function(s) { return areRelated(s, $leaders[$j]) && $leaders[$j].relationshipTarget == s.ID; })>>
			<<if _lover != -1>>
				Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Egyptian Revivalism@@, since she's already part of a gloriously incestuous relationship.
				<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<break>>
			<</if>>
		<<elseif $leaders[$j].nationality == "Chinese">>
			Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Chinese Revivalism@@, since she's Chinese herself and can claim high honor in such a society.
			<<set $arcologies[$i].FSChineseRevivalist = 5>><<break>>
		<<elseif $leaders[$j].nationality == "Japanese">>
			Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Edo Revivalism@@, since she's Japanese herself and can claim high honor in such a society.
			<<set $arcologies[$i].FSEdoRevivalist = 5>><<break>>
		<<elseif $leaders[$j].nationality == "Mexican">>
			Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Aztec Revivalism@@, since she's Mexican herself and can claim high honor in such a society.
			<<set $arcologies[$i].FSAztecRevivalist = 5>><<break>>
		<<elseif $leaders[$j].behavioralQuirk == "confident">>
			Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Roman Revivalism@@, since it appeals to her confident, patrician nature.
			<<set $arcologies[$i].FSRomanRevivalist = 5>><<break>>
		<<elseif $leaders[$j].fetish == "dom">>
			Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Arabian Revivalism@@, since she's sexually dominant and quite likes the idea of overseeing slave bazaars.
			<<set $arcologies[$i].FSArabianRevivalist = 5>><<break>>
		<</if>>
	<</if>>
	<</if>>
	<</if>>
	<</if>>
	<</if>>
	<</if>>
<<else>>
	<<if ($arcologies[$i].FSRomanRevivalist == "unset")>>
	<<if ($arcologies[$i].FSAztecRevivalist == "unset")>>
	<<if ($arcologies[$i].FSEgyptianRevivalist == "unset")>>
	<<if ($arcologies[$i].FSEdoRevivalist == "unset")>>
	<<if ($arcologies[$i].FSArabianRevivalist == "unset")>>
	<<if ($arcologies[$i].FSChineseRevivalist == "unset")>>
		<<if ($leaders[$j].relationshipTarget != 0) && ($leaders[$j].relationshipTarget == $leaders[$j].relationTarget)>>
			Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Egyptian Revivalism@@, since she's already part of a gloriously incestuous relationship.
			<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<break>>
		<<elseif $leaders[$j].nationality == "Chinese">>
			Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Chinese Revivalism@@, since she's Chinese herself and can claim high honor in such a society.
			<<set $arcologies[$i].FSChineseRevivalist = 5>><<break>>
		<<elseif $leaders[$j].nationality == "Japanese">>
			Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Edo Revivalism@@, since she's Japanese herself and can claim high honor in such a society.
			<<set $arcologies[$i].FSEdoRevivalist = 5>><<break>>
		<<elseif $leaders[$j].nationality == "Mexican">>
			Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Aztec Revivalism@@, since she's Mexican herself and can claim high honor in such a society.
			<<set $arcologies[$i].FSAztecRevivalist = 5>><<break>>
		<<elseif $leaders[$j].behavioralQuirk == "confident">>
			Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Roman Revivalism@@, since it appeals to her confident, patrician nature.
			<<set $arcologies[$i].FSRomanRevivalist = 5>><<break>>
		<<elseif $leaders[$j].fetish == "dom">>
			Your agent @@.pink;$leaders[$j].slaveName@@ successfully pushes it to @@.yellow;adopt Arabian Revivalism@@, since she's sexually dominant and quite likes the idea of overseeing slave bazaars.
			<<set $arcologies[$i].FSArabianRevivalist = 5>><<break>>
		<</if>>
	<</if>>
	<</if>>
	<</if>>
	<</if>>
	<</if>>
	<</if>>
<</if>> /* closes extended family mode */

<<set _adopted = 0>> /* did not break out of the for loop, so no FS was adopted */
<</if>>
<<break>>
<</for>>

/* CROSS-FS ADOPTION*/

<<for _adopted == 0>>
<<set _adopted = 1>> /* breaking out of the for loop will preserve this */

<<if $arcologies[$i].FSSubjugationist > random(50,200)>>
	<<if ($arcologies[$i].FSDegradationist == "unset") && ($arcologies[$i].FSPaternalist == "unset")>>
	The arcology's racial Subjugationist culture @@.yellow;pushes it towards Degradationism.@@
	<<set $arcologies[$i].FSDegradationist = 5>><<break>>
	<<elseif ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
		<<if random(0,1) == 0>>
			The arcology's racial Subjugationist culture @@.yellow;pushes it towards Egyptian Revivalism,@@ since the Ancient Egyptians are famous for keeping a race of slaves.
			<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<break>>
		<<else>>
			The arcology's racial Supremacist culture @@.yellow;pushes it towards Aztec Revivalism,@@ since the enslavement and sacrifice of slaves was fundamental to the culture.
			<<set $arcologies[$i].FSAztecRevivalist = 5>><<break>>
		<</if>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSSupremacist > random(50,200)>>
	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	The arcology's racial Supremacist culture @@.yellow;pushes it towards Paternalism.@@
	<<set $arcologies[$i].FSPaternalist = 5>><<break>>
	<<elseif ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset") && ($arcologies[$i].FSSupremacistRace == "asian")>>
	<<if random(0,1) == 0>>
		The arcology's racial Supremacist culture @@.yellow;pushes it towards Edo Revivalism,@@ since the beauty and grace of the Japanese people are watchwords there.
		<<set $arcologies[$i].FSEdoRevivalist = 5>><<break>>
	<<else>>
		The arcology's racial Supremacist culture @@.yellow;pushes it towards Chinese Revivalism,@@ since the wisdom of the Middle Kingdom is admired there.
		<<set $arcologies[$i].FSChineseRevivalist = 5>><<break>>
	<</if>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSRepopulationFocus > random(50,200)>>
	<<if ($arcologies[$i].FSAssetExpationist == "unset") && ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
	The arcology's Repopulationist culture @@.yellow;pushes it towards Asset Expansionism,@@ since big pregnant bellies go great with huge tits and asses.
	<<set $arcologies[$i].FSAssetExpationist = 5>><<break>>
	<<elseif ($arcologies[$i].FSGenderFundamentalist == "unset") && ($arcologies[$i].FSGenderRadicalist == "unset")>>
	The arcology's Repopulationist culture @@.yellow;pushes it towards Gender Fundamentalism,@@ since traditional women make better mothers.
	<<set $arcologies[$i].FSGenderFundamentalist = 5>><<break>>
	<</if>>
<<elseif $arcologies[$i].FSRestart > random(50,200)>>
	<<if ($arcologies[$i].FSDegradationist == "unset") && ($arcologies[$i].FSPaternalist == "unset")>>
	The arcology's elite focused culture @@.yellow;pushes it towards Degradationism,@@ since its lowest class deserves nothing but misery.
	<<set $arcologies[$i].FSDegradationist = 5>><<break>>
	<<elseif ($arcologies[$i].FSHedonisticDecadence == "unset") && ($arcologies[$i].FSPhysicalIdealist == "unset")>>
	The arcology's wide range of imports @@.yellow;pushes it towards Decadent Hedonism,@@ since it has access to so many undiscovered pleasures.
	<<set $arcologies[$i].FSDegradationist = 5>><<break>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSGenderRadicalist > random(50,200)>>
	<<if ($arcologies[$i].FSTransformationFetishist == "unset") && ($arcologies[$i].FSBodyPurist == "unset")>>
	The arcology's Gender Radicalist culture @@.yellow;pushes it towards Transformation Fetishism,@@ since surgery can turn a slave into anything.
	<<set $arcologies[$i].FSTransformationFetishist = 5>><<break>>
	<<elseif ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
	The arcology's Gender Radicalist culture @@.yellow;pushes it towards Slimness Enthusiasm,@@ since that's the kind of body many of its slaves have.
	<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<break>>
	<<elseif ($arcologies[$i].FSPastoralist == "unset") && ($arcologies[$i].FSCummunism == "unset")>>
	The arcology's Gender Radicalist culture @@.yellow;pushes it towards Cummunism,@@ since many of its slaves are capable of giving cum.
	<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<break>>
	<</if>>
<<elseif $arcologies[$i].FSGenderFundamentalist > random(50,200)>>
	<<if ($arcologies[$i].FSPastoralist == "unset") && ($arcologies[$i].FSCummunism == "unset")>>
	The arcology's Gender Fundamentalist culture @@.yellow;pushes it towards Pastoralism,@@ since its pregnant slaves are already giving milk.
	<<set $arcologies[$i].FSPastoralist = 5>><<break>>
	<<elseif ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
	The arcology's Gender Fundamentalist culture @@.yellow;pushes it towards Youth Preferentialism,@@ since younger slaves are beautiful and fertile.
	<<set $arcologies[$i].FSYouthPreferentialist = 5>><<break>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSPaternalist > random(50,200)>>
	<<if ($arcologies[$i].FSChattelReligionist == "unset")>>
	The arcology's Paternalist culture @@.yellow;pushes it towards Chattel Religionism,@@ since many of its slaves are already worshipful.
	<<set $arcologies[$i].FSChattelReligionist = 5>><<break>>
	<<elseif ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	The arcology's Paternalist culture @@.yellow;pushes it towards Body Purism,@@ since giving slaves dangerous drugs is hardly good for them.
	<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
	<<elseif ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
	The arcology's Paternalist culture @@.yellow;pushes it towards Roman Revivalism,@@ since loyal service to the res publica bears similarity to their existing mores.
	<<set $arcologies[$i].FSRomanRevivalist = 5>><<break>>
	<</if>>
<<elseif $arcologies[$i].FSDegradationist > random(50,200)>>
	<<if ($arcologies[$i].FSTransformationFetishist == "unset") && ($arcologies[$i].FSBodyPurist == "unset")>>
	The arcology's Degradationist culture @@.yellow;pushes it towards Transformation Fetishism,@@ the ultimate expression of power over slave bodies.
	<<set $arcologies[$i].FSTransformationFetishist = 5>><<break>>
	<<elseif ($arcologies[$i].FSGenderRadicalist == "unset") && ($arcologies[$i].FSGenderFundamentalist == "unset")>>
	The arcology's Degradationist culture @@.yellow;pushes it towards Gender Radicalism,@@ since the joy of forcing a gender role on a slave is already popular.
	<<set $arcologies[$i].FSGenderRadicalist = 5>><<break>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSBodyPurist > random(50,200)>>
	<<if ($arcologies[$i].FSPhysicalIdealist == "unset") && ($arcologies[$i].FSHedonisticDecadence == "unset")>>
	The arcology's Body Purist culture @@.yellow;pushes it towards Physical Idealism,@@ since it already takes an intense interest in bodily perfection.
	<<set $arcologies[$i].FSPhysicalIdealist = 5>><<break>>
	<<elseif ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	The arcology's Body Purist culture @@.yellow;pushes it towards Paternalism,@@ since it's become obvious that happiness is a necessary part of wellness.
	<<set $arcologies[$i].FSPaternalist = 5>><<break>>
	<</if>>
<<elseif $arcologies[$i].FSTransformationFetishist > random(50,200)>>
	<<if ($arcologies[$i].FSAssetExpansionist == "unset") && ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
	The arcology's Transformation Fetishist culture @@.yellow;pushes it towards Asset Expansionism,@@ since it's already overrun with massive tits and asses.
	<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
	<<elseif ($arcologies[$i].FSDegradationist == "unset") && ($arcologies[$i].FSPaternalist == "unset")>>
	The arcology's Transformation Fetishist culture @@.yellow;pushes it towards Degradationism,@@ since it's already used to slaves whining about their latest surgeries.
	<<set $arcologies[$i].FSDegradationist = 5>><<break>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSYouthPreferentialist > random(50,200)>>
	<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSAssetExpansionist == "unset")>>
	The arcology's Youth Preferentialist culture @@.yellow;pushes it towards Slimness Enthusiasm,@@ since that's the kind of body many of its slaves have.
	<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<break>>
	<<elseif ($arcologies[$i].FSRepopulationFocus == "unset") && ($arcologies[$i].FSRestart == "unset")>>
	The arcology's Youth Preferentialist culture @@.yellow;pushes it towards Repopulationism,@@ since many of its slaves are deliciously ripe for breeding.
	<<set $arcologies[$i].FSRepopulationFocus = 5>><<break>>
	<</if>>
<<elseif $arcologies[$i].FSMaturityPreferentialist > random(50,200)>>
	<<if ($arcologies[$i].FSAssetExpansionist == "unset") && ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
	The arcology's Maturity Preferentialist culture @@.yellow;pushes it towards Asset Expansionism,@@ since that's the kind of body many of its slaves have.
	<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
	<<elseif ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	The arcology's Maturity Preferentialist culture @@.yellow;pushes it towards Paternalism,@@ since its many older slaves have skills best applied by a happy woman.
	<<set $arcologies[$i].FSPaternalist = 5>><<break>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSSlimnessEnthusiast > random(50,200)>>
	<<if ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
	The arcology's Slimness Enthusiast culture @@.yellow;pushes it towards Youth Preferentialism,@@ since younger slaves are often attractively slim.
	<<set $arcologies[$i].FSYouthPreferentialist = 5>><<break>>
	<<elseif ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	The arcology's Slimness Enthusiast culture @@.yellow;pushes it towards Body Purism,@@ since the last thing they want is prettily slender girls with health trouble.
	<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
	<</if>>
<<elseif $arcologies[$i].FSAssetExpansionist > random(50,200)>>
	<<if ($arcologies[$i].FSMaturityPreferentialist == "unset") && ($arcologies[$i].FSYouthPreferentialist == "unset")>>
	The arcology's Asset Expansionist culture @@.yellow;pushes it towards Maturity Preferentialism,@@ since MILF slaves tend to come with nice big tits.
	<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<break>>
	<<elseif ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	The arcology's Asset Expansionist culture @@.yellow;pushes it towards Body Purism,@@ since slaves on curatives are slaves not on growth hormones.
	<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSPastoralist > random(50,200)>>
	<<if ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	The arcology's Pastoralist culture @@.yellow;pushes it towards Body Purism,@@ since there have been concerns about milk purity.
	<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
	<<elseif ($arcologies[$i].FSAssetExpansionist == "unset") && ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
	The arcology's Pastoralist culture @@.yellow;pushes it towards Asset Expansionism,@@ since they're convinced that there's no such thing as udders that are too big.
	<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
	<<elseif ($arcologies[$i].FSRepopulationFocus == "unset") && ($arcologies[$i].FSRestart == "unset")>>
	The arcology's Pastoralist culture @@.yellow;pushes it towards Repopulationisn,@@ since pregnancy stimulates milk flow.
	<<set $arcologies[$i].FSRepopulationFocus = 5>><<break>>
	<</if>>
<<elseif $arcologies[$i].FSCummunism > random(50,200)>>
	<<if ($arcologies[$i].FSPhysicalIdealist == "unset") && ($arcologies[$i].FSHedonisticDecadence == "unset")>>
	The arcology's Cummunist culture @@.yellow;pushes it towards Physical Idealism,@@ since big balls and huge loads go hand in hand with masculine muscles.
	<<set $arcologies[$i].FSPhysicalIdealist = 5>><<break>>
	<<elseif ($arcologies[$i].FSAssetExpansionist == "unset") && ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
	The arcology's Cummunist culture @@.yellow;pushes it towards Asset Expansionism,@@ since they're convinced that there's no such thing as balls that are too big.
	<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
	<<elseif ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	The arcology's Cummunist culture @@.yellow;pushes it towards Body Purism,@@ since there have been concerns about cum purity.
	<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSHedonisticDecadence > random(50,200)>>
	<<if ($arcologies[$i].FSPastoralist == "unset") && ($arcologies[$i].FSCummunism == "unset")>>
	The arcology's Hedonistic culture @@.yellow;pushes it towards Pastoralism,@@ since nothing beats a nice glass of fresh squeezed milk with your cake.
	<<set $arcologies[$i].FSPastoralist = 5>><<break>>
	<<elseif ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	The arcology's Hedonistic culture @@.yellow;pushes it towards Paternalism,@@ since happiness is infectious.
	<<set $arcologies[$i].FSPaternalist = 5>><<break>>
	<</if>>
<<elseif $arcologies[$i].FSPhysicalIdealist > random(50,200)>>
	<<if ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	The arcology's Physical Idealist culture @@.yellow;pushes it towards Body Purism,@@ since it's already used to treating slaves' bodies as temples.
	<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
	<<elseif ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
	The arcology's Physical Idealist culture @@.yellow;pushes it towards Youth Preferentialism,@@ since beauty and athletic prowess do tend to peak early.
	<<set $arcologies[$i].FSYouthPreferentialist = 5>><<break>>
	<<elseif ($arcologies[$i].FSCummunism == "unset") && ($arcologies[$i].FSPastoralist == "unset")>>
	The arcology's Physical Idealist culture @@.yellow;pushes it towards Cummunism,@@ since muscular, testosterone filled slaves make admirable cumshots.
	<<set $arcologies[$i].FSCummunism = 5>><<break>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSIncestFetishist > random(50,200)>>
	<<if ($arcologies[$i].FSRepopulationFocus == "unset") && ($arcologies[$i].FSRestart == "unset")>>
		The arcology's Incest Fetishizing culture @@.yellow;pushes it towards Repopulationism,@@ in order to create many new future loving couples.
		<<set $arcologies[$i].FSRepopulationFocus = 5>><<break>>
	<<elseif ($arcologies[$i].FSBodyPurist == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
		The arcology's Incest Fetishizing culture @@.yellow;pushes it towards Body Purism,@@ in order to keep its bloodlines pure.
		<<set $arcologies[$i].FSBodyPurist = 5>><<break>>
	<<elseif ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
		The arcology's Incest Fetishizing culture @@.yellow;pushes it towards Paternalism,@@ as healthy slaves live longer allowing relationships to span generations.
		<<set $arcologies[$i].FSPaternalist = 5>><<break>>
	<<elseif ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
		The arcology's Incest Fetishizing culture @@.yellow;pushes it towards Egyptian Revivalism,@@ as they naturally seek even more incestuous fun.
		<<set $arcologies[$i].FSEgyptianRevivalist = 5>><<break>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSChattelReligionist > random(50,200)>>
	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	The arcology's Chattel Religionist culture @@.yellow;pushes it towards Paternalism,@@ since charitable care for slaves' welfare has become widespread.
	<<set $arcologies[$i].FSPaternalist = 5>><<break>>
	<<elseif ($arcologies[$i].FSRomanRevivalist == "unset") && ($arcologies[$i].FSAztecRevivalist == "unset") && ($arcologies[$i].FSEgyptianRevivalist == "unset") && ($arcologies[$i].FSEdoRevivalist == "unset") && ($arcologies[$i].FSArabianRevivalist == "unset") && ($arcologies[$i].FSChineseRevivalist == "unset")>>
	The arcology's Chattel Religionist culture @@.yellow;pushes it towards Arabian Revivalism,@@ since such an intermingling of slavery and faith fascinates them.
	<<set $arcologies[$i].FSArabianRevivalist = 5>><<break>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSRomanRevivalist > random(50,200)>>
	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	The arcology's Roman Revivalist culture @@.yellow;pushes it towards Paternalism,@@ since some Roman slaves were traditionally permitted limited rights.
	<<set $arcologies[$i].FSPaternalist = 5>><<break>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSAztecRevivalist > random(50,200)>>
	<<if ($arcologies[$i].FSDegradationist == "unset") && ($arcologies[$i].FSPaternalist == "unset")>>
	The arcology's Aztec Revivalist culture @@.yellow;pushes it towards Degradation,@@ since most Aztec war slaves were tortured and sacrificed.
	<<set $arcologies[$i].FSPaternalist = 5>><<break>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSEgyptianRevivalist > random(50,200)>>
	<<if ($arcologies[$i].FSChattelReligionist == "unset")>>
		The arcology's Egyptian Revivalist culture @@.yellow;pushes it towards Chattel Religionism,@@ since worship is already becoming an established part of its life.
		<<set $arcologies[$i].FSChattelReligionist = 5>><<break>>
	<<elseif $arcologies[$i].FSIncestFetishist == "unset">>
		The arcology's Egyptian Revivalist culture @@.yellow;pushes it towards Incest Fetishism,@@ since more incest is only a good thing in its eyes.
		<<set $arcologies[$i].FSIncestFetishist = 5>><<break>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSEdoRevivalist > random(50,200)>>
	<<if ($arcologies[$i].FSSlimnessEnthusiast == "unset") && ($arcologies[$i].FSTransformationFetishist == "unset")>>
	The arcology's Edo Revivalist culture @@.yellow;pushes it towards Slimness Enthusiasm,@@ since slim and elegant slaves are already fashionable there.
	<<set $arcologies[$i].FSSlimnessEnthusiast = 5>><<break>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSArabianRevivalist > random(50,200)>>
	<<if ($arcologies[$i].FSChattelReligionist == "unset")>>
	The arcology's Arabian Revivalist culture @@.yellow;pushes it towards Chattel Religionism,@@ since the word of God is already a matter of daily significance there.
	<<set $arcologies[$i].FSChattelReligionist = 5>><<break>>
	<</if>>
<</if>>
<<if $arcologies[$i].FSChineseRevivalist > random(50,200)>>
	<<if ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
	The arcology's Chinese Revivalist culture @@.yellow;pushes it towards Paternalism,@@ since traditional beliefs about duty and order have become accepted.
	<<set $arcologies[$i].FSPaternalist = 5>><<break>>
	<</if>>
<</if>>

<<set _adopted = 0>> /* did not break out of the for loop, so no FS was adopted */
<<break>>
<</for>>

/* NEIGHBOR ADOPTION*/

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

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

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

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

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

/* RANDOM ADOPTION*/

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

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

repo_name: drakeashordcataclysm/fc


code:
:: New Game Plus [nobr]

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

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

<<silently>><<include "Backwards Compatibility">><</silently>>

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

You have the funds to bring $slavesToImportMax slaves with you (or your equivalent) to a new arcology.
<<if $cash >= 50000+($slavesToImportMax*10000)>>
	It will cost <<print cashFormat(50000+($slavesToImportMax*10000))>> to insure another slave's safe transfer. You have <<print cashFormat($cash)>> to spend.

[[Increase minimum transferred 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 cashFormat(50000+($slavesToImportMax*10000))>> to guarantee another's safe transfer.
<</if>>

<<if $freshPC == 0>>
	<<if $retainCareer == 1 && $PC.career != "arcology owner">>
		<<if $week > 52 || ($PC.slaving >= 100 && $PC.trading >= 100 && $PC.warfare >= 100 && $PC.engineering >= 100 && $PC.medicine >= 100 && $PC.hacking >= 100)>>
			You have acquired a fair amount of knowledge regarding arcologies and their day-to-day management in your time spent as one's owner qualifying you as an @@.orange;"arcology owner"!@@ Benefits include:

@@.lime;20% reduced cost of construction.@@

@@.lime;Free additional starting rep along with easy rep maintenance.@@

@@.lime;Reduced mercenary costs.@@

@@.lime;An eye for gingered slaves.@@

@@.lime;An edge in all things data.@@

			<<if $retainCareer == 1>>
				[[Change career.|New Game Plus][$retainCareer = 0]]
			<<elseif $retainCareer == 0>>
				[[Don't change career.|New Game Plus][$retainCareer = 1]]
			<</if>>
		<<else>>
			You lack the experience needed to qualify for a career change to "arcology owner".
		<</if>>
	<</if>>

[[Start over with a new player character.|New Game Plus][$freshPC = 1, $retainCareer = 1]]
<<else>>
	[[Use existing player character.|New Game Plus][$freshPC = 0]]
<</if>>

<<if $cheatMode == 1>><<link "DEBUG: Add all slaves to import list">><<for _ngi = 0; _ngi < $slaves.length; _ngi++>><<assignJob $slaves[_ngi] "be imported">><</for>><<goto "New Game Plus">><</link>>
<</if>>

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

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

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


code:
:: Next Slave In Line

<<silently>>

<<set $i = $slaveIndices[$activeSlave.ID]>>
<<ClearSummaryCache $activeSlave>>
<<set $slaves[$i] = $activeSlave>> /* save changes before switching */

<<set $activeSlave = $slaves[$slavesInLine[1]]>>

<<goto "Slave Interact">>

<</silently>>


code:
:: Next Week [nobr]

<<if $rivalOwner != 0>>
	<<set _rival = $arcologies.find(function(s) { return s.rival == 1; })>>
	<<if def _rival>>
		<<set $rivalOwner = _rival.prosperity>>
	<</if>>
<</if>>

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

<<set $averageTrust = 0, $averageDevotion = 0, _slavesContributing = 0, _OldHG = -1, _NewHG = -1, _SL = $slaves.length>>
<<for _i = 0; _i < _SL; _i++>>
	<<if $seeAge != 0>>
	<<set $slaves[_i].birthWeek++>>
		<<if $slaves[_i].birthWeek >= 52>>
			<<set $slaves[_i].birthWeek = 0>>
			<<if $seeAge == 1>>
				<<set $slaves[_i].physicalAge += 1, $slaves[_i].actualAge += 1>>
                                /*
                                **  Note Induced NCS completely takes over visual aging, so the increment from pre-
                                **  existing code simply, is trapped behind a *not* NCS test.  Additionally, because
                                **  of the neotony aspects of NCS, ovaries don't age quite as fast.
                                */
                                <<if $slaves[_i].inducedNCS == 0>>
                                        <<set $slaves[_i].visualAge += 1>>
                                        /*
                                        **  (prev comment) Hopefully this works. It is intended, over a slave's
                                        **  lifetime, to cause her menopause to shift.
                                        */
                                        <<set $slaves[_i].ovaryAge += either(.8, .9, .9, 1, 1, 1, 1.1)>>
                                <<else>>
				        <<set $slaves[_i].ovaryAge += either(.5, .6, .7, .7, .8, .9, 1)>>
                                <</if>>
				<<if $slaves[_i].broodmother == 1>>
					<<set $slaves[_i].ovaryAge += .2>>
				<</if>>
				<<if $slaves[_i].physicalAge <= 18 && $loliGrow == 0>>
					<<PhysicalDevelopment $slaves[_i]>>
				<</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>>
		<<removeJob $slaves[_i] $slaves[_i].assignment>>
	<</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>>
	<<elseif $slaves[_i].rivalry < 0>>
		<<set $slaves[_i].rivalryTarget = 0, $slaves[_i].rivalry = 0>>
	<</if>>
	<<if $slaves[_i].vagina < 0 && $slaves[_i].vaginalAccessory != "none">>
		<<set $slaves[_i].vaginalAccessory = "none">>
	<</if>>
	<<if $slaves[_i].dick == 0 && $slaves[_i].dickAccessory != "none">>
		<<set $slaves[_i].dickAccessory = "none">>
	<</if>>
	/% Fix some possible floating point rounding errors, and bring precision to one decimal place. %/
	<<SlaveStatClamp $slaves[_i]>>
	<<set $slaves[_i].energy = Math.clamp($slaves[_i].energy.toFixed(1), 0, 100)>>
	<<if $slaves[_i].fetishStrength > 95>>
		<<set $slaves[_i].fetishStrength = 100>>
	<<else>>
		<<set $slaves[_i].fetishStrength = Math.clamp($slaves[_i].fetishStrength.toFixed(1), 0, 100)>>
	<</if>>
	<<set $slaves[_i].weight = Math.clamp($slaves[_i].weight.toFixed(1), -100, 200)>>
	<<set $slaves[_i].health = Number($slaves[_i].health.toFixed(1))>>
	<<set $slaves[_i].butt = Number($slaves[_i].butt.toFixed(1))>>
	<<set $slaves[_i].muscles = Math.clamp($slaves[_i].muscles.toFixed(1), -100, 100)>>
	<<set $slaves[_i].lips = Math.clamp($slaves[_i].lips.toFixed(1), 0, 100)>>
	<<set $slaves[_i].oralSkill = Math.clamp($slaves[_i].oralSkill.toFixed(1), 0, 100)>>
	<<set $slaves[_i].vaginalSkill = Math.clamp($slaves[_i].vaginalSkill.toFixed(1), 0, 100)>>
	<<set $slaves[_i].analSkill = Math.clamp($slaves[_i].analSkill.toFixed(1), 0, 100)>>
	<<set $slaves[_i].whoreSkill = Math.clamp($slaves[_i].whoreSkill.toFixed(1), 0, 100)>>
	<<set $slaves[_i].entertainSkill = Math.clamp($slaves[_i].entertainSkill.toFixed(1), 0, 100)>>
	<<set $slaves[_i].lactationAdaptation = Math.clamp($slaves[_i].lactationAdaptation.toFixed(1), 0, 100)>>
	<<set $slaves[_i].intelligenceImplant = Number($slaves[_i].intelligenceImplant.toFixed(1))>>
	<<if ($HGSuiteEquality == 1) && ($HeadGirl != 0) && ($slaves[_i].devotion > 50)>>
		<<if ($slaves[_i].assignment == "live with your Head Girl")>>
			<<set _NewHG = _i>>
		<<elseif ($slaves[_i].ID == $HeadGirl.ID)>>
			<<set _OldHG = _i>>
		<</if>>
	<</if>>
	/* AVERAGE VALUES UPDATE */
	<<if $slaves[_i].assignmentVisible == 1>>
		<<set $averageTrust += $slaves[_i].trust, $averageDevotion += $slaves[_i].devotion, _slavesContributing++>>
	<<elseif ($slaves[_i].assignment != "be confined in the cellblock") && ($slaves[_i].assignment != "be confined in the arcade") && (($slaves[_i].assignment != "work in the dairy") || ($dairyRestraintsSetting < 2)) && $slaves[_i].assignment != "labor in the production line">>
		<<set $averageTrust += $slaves[_i].trust*0.5, $averageDevotion += $slaves[_i].devotion*0.5, _slavesContributing += 0.5>>
	<</if>>
<</for>>
<<set $averageTrust = $averageTrust/_slavesContributing>>
<<set $averageDevotion = $averageDevotion/_slavesContributing>>
<<set $enduringTrust = ($averageTrust+($enduringTrust*3))/4>>
<<set $enduringDevotion = ($averageDevotion+($enduringDevotion*3))/4>>

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

<<if WombBirthReady($PC, 38) > 0 && random(1,100) > 50>>
	<<set $PC.labor = 1>>
<<elseif WombBirthReady($PC, 43) > 0>>
	<<set $PC.labor = 1>>
<</if>>

<<if $PC.forcedFertDrugs > 0>>
	<<set $PC.forcedFertDrugs-->>
<</if>>

<<if $FCTVreceiver == 1>>
    <<set $FCTVcount += 1>>
    <<if $FCTVcount >= $FCTVrate && $FCTVrate != -1>>
        <<set $FCTVcount = 0>>
        <<set $FCTVshow = 1>>
    <</if>>
<</if>>

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

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

<<if $foughtThisWeek == 1>>
	<<set $foughtThisWeek = 0>>
<</if>>

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

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

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

<<if $boomerangWeeks>><<set $boomerangWeeks++>><<else>><<set $boomerangSlave = 0>><</if>>

<<set $thisWeeksFSWares = $merchantFSWares.randomMany(2)>>

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

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

/% Other arrays %/
<<set $events = [], $RESSevent = [], $RESSTRevent = [], $RETSevent = [], $RECIevent = [], $RecETSevent = [], $REFIevent = [], $REFSevent = [], $PESSevent = [], $PETSevent = [], $FSAcquisitionEvents = [], $FSNonconformistEvents = [], $qualifiedNicknames = [], $REAnalCowgirlSubIDs = [], $REButtholeCheckinIDs = [], $recruit = [], $RETasteTestSubIDs = [], $devotedSlaves = [], $rebelSlaves = [], $REBoobCollisionSubIDs = [], $REIfYouEnjoyItSubIDs = [], $RESadisticDescriptionSubIDs = [], $REShowerForceSubIDs = [], $RESimpleAssaultIDs = [], $RECockmilkInterceptionIDs = [], $REInterslaveBeggingIDs = [], $bedSlaves = [], $qualifiedFS = [], $eligibleSlaves = [], $slavesInLine = []>>

/% Slave Objects using 0 instead of null. Second most memory eaten up. %/
<<set $activeSlave = 0, $eventSlave = 0, $slaveWithoutBonuses = 0, $subSlave = 0, $milfSlave = 0, $milkTap = 0, $relation = 0>>

/% Slave Objects that never get zeroed so null them here. Second most memory eaten up. %/
<<set $beforeGingering = null, $sibling = null>>

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

<<ClearSummaryCache>>

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

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

<<goto "Main">>


code:
:: NGP Workaround [silently]

<<if $slavesToImport == 1>>
	<<assignJob $slaves[$i] "be imported">>
<<else>>
	<<removeJob $slaves[$i] $slaves[$i].assignment>>
<</if>>

<<goto "New Game Plus">>


code:
:: Nurse Select [nobr]

<<set $nextButton = "Back", $nextLink = "Clinic", $showEncyclopedia = 1, $encyclopedia = "Nurse">>
<<showallAssignmentFilter>>
<<if ($Nurse != 0)>>
	''__@@.pink;<<SlaveFullName $Nurse>>@@__'' is serving as your Nurse.

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

''Appoint a Nurse from your devoted slaves:''

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

<<assignmentFilter>>

	<<showallAssignmentFilter>>
	<<include "Slave Summary">>
	<<resetAssignmentFilter>>


code:
:: Nurse Workaround [silently]

<<if $Nurse != 0>>
	<<removeJob $Nurse "be the Nurse">>
<</if>>
<<if $i > -1>>
	<<assignJob $slaves[$i] "be the Nurse">>
	<<set $slaves[$i].livingRules = "luxurious">>
	<<set $Nurse = $slaves[$i]>>
<</if>>

<<goto "Clinic">>