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, leaving 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>>
		<<if $arcologies[$i].FSEgyptianRevivalist != "unset">><<set $arcologies[$i].FSEgyptianRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSEdoRevivalist != "unset">><<set $arcologies[$i].FSEdoRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSArabianRevivalist != "unset">><<set $arcologies[$i].FSArabianRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSChineseRevivalist != "unset">><<set $arcologies[$i].FSChineseRevivalist = "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>>
		<<if $arcologies[$i].FSRomanRevivalist != "unset">><<set $arcologies[$i].FSRomanRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSEdoRevivalist != "unset">><<set $arcologies[$i].FSEdoRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSChineseRevivalist != "unset">><<set $arcologies[$i].FSChineseRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSAztecRevivalist != "unset">><<set $arcologies[$i].FSAztecRevivalist = "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>>
		<<if $arcologies[$i].FSRomanRevivalist != "unset">><<set $arcologies[$i].FSRomanRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSEgyptianRevivalist != "unset">><<set $arcologies[$i].FSEgyptianRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSArabianRevivalist != "unset">><<set $arcologies[$i].FSArabianRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSAztecRevivalist != "unset">><<set $arcologies[$i].FSAztecRevivalist = "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>>
		<<if $arcologies[$i].FSRomanRevivalist != "unset">><<set $arcologies[$i].FSRomanRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSEdoRevivalist != "unset">><<set $arcologies[$i].FSEdoRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSChineseRevivalist != "unset">><<set $arcologies[$i].FSChineseRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSAztecRevivalist != "unset">><<set $arcologies[$i].FSAztecRevivalist = "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>>
		<<if $arcologies[$i].FSRomanRevivalist != "unset">><<set $arcologies[$i].FSRomanRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSEgyptianRevivalist != "unset">><<set $arcologies[$i].FSEgyptianRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSArabianRevivalist != "unset">><<set $arcologies[$i].FSArabianRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSAztecRevivalist != "unset">><<set $arcologies[$i].FSAztecRevivalist = "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>>
		<<if $arcologies[$i].FSEgyptianRevivalist != "unset">><<set $arcologies[$i].FSEgyptianRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSEdoRevivalist != "unset">><<set $arcologies[$i].FSEdoRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSArabianRevivalist != "unset">><<set $arcologies[$i].FSArabianRevivalist = "unset">><</if>>
		<<if $arcologies[$i].FSChineseRevivalist != "unset">><<set $arcologies[$i].FSChineseRevivalist = "unset">><</if>>
		$desc fascinated by classical Roman history, leading the arcology to @@.yellow;adopt Roman Revivalism.@@
		<<set $arcologies[$i].FSRomanRevivalist = 5>><<set _adopted = 1>>
	<<default>>
		<<set $rivalryFSAdopted = 0>>
	<</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; })>>
<<setLocalPronouns $leaders[$j]>>

<<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, $he 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, $he 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 $he'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, $he 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, $he's excited by the idea of leading a society that applauds $his 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 $he 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 $his 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 $he 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 $his history of anorexia has deeply impacted $his 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 $he'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 $he 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 $he 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 $he 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 $he's a fitness fanatic $himself.
			<<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 $he seeks to satisfy $his 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].relationshipTarget && areRelated(s, $leaders[$j]) && s.assignment == "live with your agent"; })>>
	<<else>>
		<<set _lover = $slaves.find(function(s) { return s.ID == $leaders[$j].relationshipTarget && 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 $he holds with $his 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 $his 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 $he'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 $he'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 $he's Chinese $himself 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 $he's Japanese $himself 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 $he's Mexican $himself 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 $his 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 $he'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 $he'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 $he's Chinese $himself 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 $he's Japanese $himself 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 $he's Mexican $himself 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 $his 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 $he'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 _subjugationRace = setup.filterRacesLowercase.random()>>
	<<if ($arcologies[$i].FSSubjugationist == "unset")>>
		<<if ($arcologies[$i].FSSupremacist == "unset") || (_subjugationRace != $arcologies[$i].FSSupremacistRace)>>
			$desc preoccupied by a racial animus towards _subjugationRace people, leading the arcology to @@.yellow;adopt _subjugationRace Subjugation.@@
			<<set $arcologies[$i].FSSubjugationist = 5>><<set _adopted = 1>>
			<<set $arcologies[$i].FSSubjugationistRace = _subjugationRace>>
		<</if>>
	<</if>>
<<case 2>>
	<<set _supremacistRace = setup.filterRacesLowercase.random()>>
	<<if ($arcologies[$i].FSSupremacist == "unset")>>
		<<if ($arcologies[$i].FSSubjugationist == "unset") || (_supremacistRace != $arcologies[$i].FSSubjugationistRace)>>
			$desc preoccupied by belief in the superiority of the _supremacistRace race, leading the arcology to @@.yellow;adopt _supremacistRace Supremacy.@@
			<<set $arcologies[$i].FSSupremacist = 5>><<set _adopted = 1>>
			<<set $arcologies[$i].FSSupremacistRace = _supremacistRace>>
		<</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: oxone/fc


code:
:: New Game Plus [nobr]

<<set $ui = "start">> <<unset $Flag>>

<<if ndef $slavesToImport>><<set $slavesToImport = 0>><</if>>
<<if ndef $slavesToImportMax>><<set $slavesToImportMax = 5>><</if>>
<<silently>><<include "Backwards Compatibility">><</silently>>
<<set _fee = 50000+($slavesToImportMax*10000)>>

You have decided to start over and will 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 <<if $cash >= _fee>>have<<else>>lack<</if>> the funds to bring more than $slavesToImportMax slaves with you (or your equivalent) to a new arcology. It will cost @@.yellowgreen;<<print cashFormat(_fee)>>@@ to insure another slave's safe transfer.
<<if $cash >= _fee>>
	You have @@.yellowgreen;<<print cashFormat($cash)>>@@ to spend.

[[Increase slave import capacity by 1.|New Game Plus][cashX(forceNeg(_fee), "capEx"), $slavesToImportMax++]]
<</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.@@

			<<set $oldCareer = $PC.career>>
			<<if $retainCareer === 1>>
				[[Change career.|New Game Plus][$retainCareer = 0,$PC.career = "arcology owner"]]
			<</if>>
		<<else>>
			You lack the experience needed to qualify for a career change to "arcology owner".
		<</if>>
	<</if>>
	<<if $retainCareer === 0 && $PC.career === "arcology owner">>
		[[Don't change career.|New Game Plus][$retainCareer = 1,$PC.career = $oldCareer]]
	<</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" "New Game Plus">> <<for _ngi = 0; _ngi < $slaves.length; _ngi++>> <<= assignJob($slaves[_ngi], "be imported")>> <</for>> <</link>>
 <</if>>

Select up to $slavesToImportMax slaves to be imported into a new game and then click [[here.|init][$saveImported = 1,$oldCareer = "undefined",$slavesToImport = 0]]
<<if $slavesToImport > 0>>

''
	<<if $slavesToImport === 1>>
		This slave
	<<else>>
		These slaves
	<</if>>
	will be imported into the new game'':
	<<if $slavesToImport >= $slavesToImportMax>>
		//Current slave import capacity exceded.//
	<</if>>
	<<set $Flag = 1>> <<include "Slave Summary">>
<</if>>
<<if $slavesToImport >= $slavesToImportMax>>
<<else>>
	<<if $slaves.length > $slavesToImport>>

		''These slaves are available to be imported into the new game:''
		<<set $Flag = 0>> <<include "Slave Summary">>
	<</if>>
<</if>>


code:
:: Next Slave In Line

<<silently>>

<<set $i = $slaveIndices[$activeSlave.ID]>>
<<run 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>>

/*Adding random changes to the economy*/
<<if $difficultySwitch == 1>>
	<<set _globalEconSeed = random(1,100)>>
	<<if _globalEconSeed > 98>>
		<<set $economy += 2>>
	<<elseif _globalEconSeed > 85>>
		<<set $economy += 1>>
	<<elseif _globalEconSeed <= 2>>
		<<set $economy -= 2>>
	<<elseif _globalEconSeed <= 25 + $econRate * 10>>
		<<set $economy -= 1>>
	<</if>>
	<<if $economy < 20>>
		<<set $economy = 20>>
	<</if>>
	<<set _localEconSeed = random(1,100)>>
	<<if $localEcon <= ($economy + $econAdvantage)>>
		<<if _localEconSeed > 95>>
			<<set $localEcon += 2>>
		<<elseif _localEconSeed > 50>>
			<<set $localEcon += 1>>
		<<elseif _localEconSeed <= 1>>
			<<set $localEcon -= 2>>
		<<elseif _localEconSeed <= 10>>
			<<set $localEcon -= 1>>
		<</if>>
	<<elseif $localEcon <= ($economy + $econAdvantage + 5)>>
		<<if _localEconSeed > 98>>
			<<set $localEcon += 2>>
		<<elseif _localEconSeed > 66>>
			<<set $localEcon += 1>>
		<<elseif _localEconSeed <= 2>>
			<<set $localEcon -= 2>>
		<<elseif _localEconSeed <= 33>>
			<<set $localEcon -= 1>>
		<</if>>
	<<elseif _localEconSeed > 99>>
		<<set $localEcon += 2>>
	<<elseif _localEconSeed > 90>>
		<<set $localEcon += 1>>
	<<elseif _localEconSeed <= 5>>
		<<set $localEcon -= 2>>
	<<elseif _localEconSeed <= 50>>
		<<set $localEcon -= 1>>
	<</if>>
	<<if $localEcon < 20>>
		<<set $localEcon = 20>>
	<</if>>

	<<set $foodCost = Math.trunc(2500/$localEcon)>>
	<<set $drugsCost = Math.trunc(10000/$localEcon)>>
	<<set $rulesCost = Math.trunc(10000/$localEcon)>>
	<<set $modCost = Math.trunc(5000/$localEcon)>>
	<<set $surgeryCost = Math.trunc(30000/$localEcon)>>
<</if>>

<<set $arcologies[0].prosperity = Math.clamp($arcologies[0].prosperity, 1, 300)>>

<<set $averageTrust = 0, $averageDevotion = 0, _slavesContributing = 0, _OldHG = -1, _NewHG = -1, _SL = $slaves.length>>
<<if $studio == 1>>
	<<set $pornStars = 0, $pornStarFuckdolls = 0, $pornStarRapees = 0, $pornStarPreggos = 0,
	$pornStarBBWs = 0, $pornStarGainers = 0, $pornStarStuds = 0, $pornStarLolis = 0,
	$pornStarDeepThroats = 0, $pornStarStruggleFucks = 0, $pornStarTeases = 0,
	$pornStarRomantics = 0, $pornStarPerverts = 0, $pornStarCarings = 0, $pornStarUnflinchings = 0,
	$pornStarSizeQueens = 0, $pornStarNeglectfuls = 0, $pornStarCumAddicts = 0, $pornStarAnalAddicts = 0,
	$pornStarAttentionWhores = 0, $pornStarBreastGrowths = 0, $pornStarAbusives = 0, $pornStarMalicious = 0, $pornStarSelfHatings = 0, $pornStarBreeders = 0, $pornStarSubs = 0, $pornStarCumSluts = 0,
	$pornStarAnals = 0, $pornStarHumiliations = 0, $pornStarBoobs = 0, $pornStarDoms = 0,
	$pornStarSadists = 0, $pornStarMasochists = 0, $pornStarPregnancySluts = 0>>
<</if>>
<<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 !NCS test. Additionally, because of the neotony aspects of NCS, ovaries don't age quite as fast. */
				<<if $slaves[_i].geneMods.NCS == 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>>
	<<if $slaves[_i].induceLactation > 0>>
		<<set $slaves[_i].induceLactation-->>
	<</if>>
	<<if ($slaves[_i].lactation == 1)>>
		<<if $slaves[_i].lactationDuration == 1>>
			<<set $slaves[_i].boobsMilk = 10*$slaves[_i].lactationAdaptation>>
			<<set $slaves[_i].boobs += $slaves[_i].boobsMilk>>
		<</if>>
	<</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 = 0>>
	<</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. %/
	<<run 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), 0, 30)>>
	<<set $slaves[_i].prematureBirth = 0>>
	<<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>>
	<<if $studio == 1>>
		<<if $slaves[_i].pornTypeGeneral > 0>><<set $pornStars++>><</if>>
		<<if $slaves[_i].pornTypeFuckdoll > 0>><<set $pornStarFuckdolls++>><</if>>
		<<if $slaves[_i].pornTypeRape > 0>><<set $pornStarRapees++>><</if>>
		<<if $slaves[_i].pornTypePreggo > 0>><<set $pornStarPreggos++>><</if>>
		<<if $slaves[_i].pornTypeBBW > 0>><<set $pornStarBBWs++>><</if>>
		<<if $slaves[_i].pornTypeGainer > 0>><<set $pornStarGainers++>><</if>>
		<<if $slaves[_i].pornTypeStud > 0>><<set $pornStarStuds++>><</if>>
		<<if $slaves[_i].pornTypeLoli > 0>><<set $pornStarLolis++>><</if>>
		<<if $slaves[_i].pornTypeDeepThroat > 0>><<set $pornStarDeepThroats++>><</if>>
		<<if $slaves[_i].pornTypeStruggleFuck > 0>><<set $pornStarStruggleFucks++>><</if>>
		<<if $slaves[_i].pornTypePainal > 0>><<set $pornStarPainals++>><</if>>
		<<if $slaves[_i].pornTypeTease > 0>><<set $pornStarTeases++>><</if>>
		<<if $slaves[_i].pornTypeRomantic > 0>><<set $pornStarRomantics++>><</if>>
		<<if $slaves[_i].pornTypePervert > 0>><<set $pornStarPerverts++>><</if>>
		<<if $slaves[_i].pornTypeCaring > 0>><<set $pornStarCarings++>><</if>>
		<<if $slaves[_i].pornTypeUnflinching > 0>><<set $pornStarUnflinchings++>><</if>>
		<<if $slaves[_i].pornTypeSizeQueen > 0>><<set $pornStarSizeQueens++>><</if>>
		<<if $slaves[_i].pornTypeNeglectful > 0>><<set $pornStarNeglectfuls++>><</if>>
		<<if $slaves[_i].pornTypeCumAddict > 0>><<set $pornStarCumAddicts++>><</if>>
		<<if $slaves[_i].pornTypeAnalAddict > 0>><<set $pornStarAnalAddicts++>><</if>>
		<<if $slaves[_i].pornTypeAttentionWhore > 0>><<set $pornStarAttentionWhores++>><</if>>
		<<if $slaves[_i].pornTypeBreastGrowth > 0>><<set $pornStarBreastGrowths++>><</if>>
		<<if $slaves[_i].pornTypeAbusive > 0>><<set $pornStarAbusives++>><</if>>
		<<if $slaves[_i].pornTypeMalicious > 0>><<set $pornStarMalicious++>><</if>>
		<<if $slaves[_i].pornTypeSelfHating > 0>><<set $pornStarSelfHatings++>><</if>>
		<<if $slaves[_i].pornTypeBreeder > 0>><<set $pornStarBreeders++>><</if>>
		<<if $slaves[_i].pornTypeSub > 0>><<set $pornStarSubs++>><</if>>
		<<if $slaves[_i].pornTypeCumSlut > 0>><<set $pornStarCumSluts++>><</if>>
		<<if $slaves[_i].pornTypeAnal > 0>><<set $pornStarAnals++>><</if>>
		<<if $slaves[_i].pornTypeHumiliation > 0>><<set $pornStarHumiliations++>><</if>>
		<<if $slaves[_i].pornTypeBoobs > 0>><<set $pornStarBoobs++>><</if>>
		<<if $slaves[_i].pornTypeDom > 0>><<set $pornStarDoms++>><</if>>
		<<if $slaves[_i].pornTypeSadist > 0>><<set $pornStarSadists++>><</if>>
		<<if $slaves[_i].pornTypeMasochist > 0>><<set $pornStarMasochists++>><</if>>
		<<if $slaves[_i].pornTypePregnancy > 0>><<set $pornStarPregnancySluts++>><</if>>
	<</if>>
	<<if $slaves[_i].choosesOwnAssignment > 0>>
		<<= assignJob($slaves[_i], "choose her own job")>>
	<</if>>
<</for>>
<<if _slavesContributing != 0>>
	<<set $averageTrust = $averageTrust/_slavesContributing>>
	<<set $averageDevotion = $averageDevotion/_slavesContributing>>
<</if>>
<<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>>

<<set _toSearch = $PC.refreshment.toLowerCase()>>
<<if _toSearch.indexOf("fertility") != -1>>
	<<set $PC.forcedFertDrugs = 1>>
<<elseif $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>>
<<if $traitorWeeks>><<set $traitorWeeks++>><</if>>

<<set $thisWeeksFSWares = $merchantFSWares.randomMany(2)>>
<<set $thisWeeksIllegalWares = $merchantIllegalWares.randomMany(1)>>
<<set $prisonCircuitIndex++>><<if $prisonCircuitIndex >= $prisonCircuit.length>><<set $prisonCircuitIndex = 0>><</if>>

<<set $coursed = 0, $eventDescription = 0, $pitFought = 0, $preOwnedViewed = 0, $prestigeAuctioned = 0, $eliteAuctioned = 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, $influenceBonus = 0, $j = 0, $masochistID = -1, $masochistInterestTargetID = -1, $opinion = 0, $r = 0, $subID = -1, $submissiveInterestTargetID = -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, $milkTap = 0, $relation = 0, $relative = 0, $relative2 = 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 %/

<<run 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>>

<<if $SF.Toggle && $SF.Active >= 1 && $SF.MercCon.CanAttend > -1 && $SF.MercCon.CanAttend > -2>>
	<<set $SF.MercCon.CanAttend = -1>>
<</if>>
<<set $NaNArray = findNaN()>>
<<goto "Main">>


code:
:: Nurse Select [nobr]

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

$He 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">>