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 "Intellectual Dependency">>
		<<if $arcologies[$i].FSIntellectualDependency != "unset">><<set $arcologies[$i].FSIntellectualDependency = "unset">><</if>>
		$desc obsessed with crafting the perfect slave, leading the arcology to @@.yellow;adopt Slave Professionalism.@@
		<<set $arcologies[$i].FSSlaveProfessionalism = 5>><<set _adopted = 1>>
	<<case "Slave Professionalism">>
		<<if $arcologies[$i].FSSlaveProfessionalism != "unset">><<set $arcologies[$i].FSSlaveProfessionalism = "unset">><</if>>
		$desc worried that they may one day be outsmarted by their chattel, leading the arcology to @@.yellow;adopt Intellectual Dependency.@@
		<<set $arcologies[$i].FSIntellectualDependency = 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 "Petite Admiration">>
		<<if $arcologies[$i].FSPetiteAdmiration != "unset">><<set $arcologies[$i].FSPetiteAdmiration = "unset">><</if>>
		$desc convinced that tall equals beauty, leading the arcology to @@.yellow;adopt Statuesque Glorification.@@
		<<set $arcologies[$i].FSSlaveProfessionalism = 5>><<set _adopted = 1>>
	<<case "Statuesque Glorification">>
		<<if $arcologies[$i].FSStatuesqueGlorification != "unset">><<set $arcologies[$i].FSStatuesqueGlorification = "unset">><</if>>
		$desc enamored by those shorter than them, leading the arcology to @@.yellow;adopt Petite Admiration.@@
		<<set $arcologies[$i].FSPetiteAdmiration = 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") && ($seePreg == 1)>>
			$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].FSIntellectualDependency > random(5,60)>>
		<<if ($arcologies[$i].FSIntellectualDependency == "unset") && ($arcologies[$i].FSSlaveProfessionalism == "unset")>>
			$desc obsessed with crafting the perfect slave, leading the arcology to @@.yellow;adopt Slave Professionalism.@@
			<<set $arcologies[$i].FSSlaveProfessionalism = 5>><<set _adopted = 1>>
		<</if>>
	<<elseif $arcologies[0].FSSlaveProfessionalism > random(5,60)>>
		<<if ($arcologies[$i].FSIntellectualDependency == "unset") && ($arcologies[$i].FSSlaveProfessionalism == "unset")>>
			$desc worried that they may one day be outsmarted by their chattel, leading the arcology to @@.yellow;adopt Intellectual Dependency.@@
			<<set $arcologies[$i].FSIntellectualDependency = 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].FSPetiteAdmiration > random(5,60)>>
		<<if ($arcologies[$i].FSPetiteAdmiration == "unset") && ($arcologies[$i].FSStatuesqueGlorification == "unset")>>
			$desc convinced that tall equals beauty, leading the arcology to @@.yellow;adopt Statuesque Glorification.@@
			<<set $arcologies[$i].FSStatuesqueGlorification = 5>><<set _adopted = 1>>
		<</if>>
	<<elseif $arcologies[0].FSStatuesqueGlorification > random(5,60)>>
		<<if ($arcologies[$i].FSPetiteAdmiration == "unset") && ($arcologies[$i].FSStatuesqueGlorification == "unset")>>
			$desc enamored by those shorter than them, leading the arcology to @@.yellow;adopt Petite Admiration.@@
			<<set $arcologies[$i].FSPetiteAdmiration = 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 _leader = App.currentAgent($i)>>
<<setLocalPronouns _leader>>

<<if ($arcologies[$i].FSRepopulationFocus == "unset")>>
	<<if ($arcologies[$i].FSRestart == "unset")>>
		<<if _leader.fetish == "pregnancy" && $seePreg == 1>>
			Your agent @@.pink;_leader.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 (_leader.preg < -1 || (_leader.ovaries == 0 && _leader.mpreg != 1)) && _leader.genes == "XX">>
			Your agent @@.pink;_leader.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 _leader.dick > 0>>
			Your agent @@.pink;_leader.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 _leader.pregKnown == 1 || _leader.bellyPreg > 1500>>
			Your agent @@.pink;_leader.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 _leader.behavioralQuirk == "advocate">>
			Your agent @@.pink;_leader.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 _leader.fetish == "sadist">>
			Your agent @@.pink;_leader.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].FSIntellectualDependency == "unset")>>
	<<if ($arcologies[$i].FSSlaveProfessionalism == "unset")>>
		<<if (_leader.intelligence+_leader.intelligenceImplant >= 120) && (_leader.skill.vagina+_leader.skill.oral+_leader.skill.anal+_leader.skill.whoring+_leader.skill.entertainment >= 400)>>
			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Slave Professionalism,@@ since $he wishes to produce slaves you can be proud of.
			<<set $arcologies[$i].FSSlaveProfessionalism = 5>><<break>>
		<<elseif (_leader.intelligence+_leader.intelligenceImplant >= 120) && (_leader.behavioralFlaw == "arrogant" || _leader.behavioralQuirk == "insecure")>>
			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Intellectual Dependency,@@ <<if _leader.behavioralQuirk == "insecure">>
				since, due to $his own insecurities, needs to be frequently reassured that $he is smarter than the masses.
			<<else>>
				since $he absolutely needs to feel intellectually superior to $his chattel.
			<</if>>
			<<set $arcologies[$i].FSIntellectualDependency = 5>><<break>>
		<</if>>
	<</if>>
<</if>>
<<if ($arcologies[$i].FSBodyPurist == "unset")>>
	<<if ($arcologies[$i].FSTransformationFetishist == "unset")>>
		<<if _leader.chem > 50>>
			Your agent @@.pink;_leader.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 _leader.boobsImplant > 1000>>
			Your agent @@.pink;_leader.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 _leader.actualAge <= 25>>
			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Youth Preferentialism,@@ to buttress acceptance of $his own young age.
			<<set $arcologies[$i].FSYouthPreferentialist = 5>><<break>>
		<<elseif _leader.actualAge > 35>>
			Your agent @@.pink;_leader.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 _leader.behavioralQuirk == "insecure">>
			Your agent @@.pink;_leader.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 _leader.fetish == "boobs">>
			Your agent @@.pink;_leader.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>>
		<<elseif _leader.sexualQuirk == "size queen" && _leader.vagina > 3>>
			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Asset Expansionism,@@ since $he's a stickler for big dicks and seeks to find one large enough to push $him to $his very limit.
			<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
		<</if>>
	<</if>>
<</if>>
<<if ($arcologies[$i].FSPastoralist == "unset")>>
	<<if ($arcologies[$i].FSCummunism == "unset")>>
		<<if _leader.fetish == "cumslut">> /* this will become the cum focused condition, being replaced with breast focus for milk */
			Your agent @@.pink;_leader.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 _leader.fetish == "boobs">>
			Your agent @@.pink;_leader.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 _leader.behavioralFlaw == "gluttonous">>
			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Decadent Hedonism,@@ since $he already loves over-eating.
			<<set $arcologies[$i].FSHedonisticDecadence = 5>><<break>>
		<<elseif _leader.behavioralQuirk == "fitness">>
			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Physical Idealism,@@ since $he's a fitness fanatic $himself.
			<<set $arcologies[$i].FSPhysicalIdealist = 5>><<break>>
		<<elseif _leader.fetish != "none" && _leader.fetishStrength >= 100>>
			Your agent @@.pink;_leader.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].FSPetiteAdmiration == "unset")>>
	<<if ($arcologies[$i].FSStatuesqueGlorification == "unset")>>
		<<if _leader.height >= 200>>
			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Statuesque Glorification,@@ since $he is tired of being one of the tallest in arcology.
			<<set $arcologies[$i].FSStatuesqueGlorification = 5>><<break>>
		<<elseif _leader.height >= 170 && _leader.fetish == "dom">>
			Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Petite Admiration,@@ since it is far easier to dominate someone much smaller than oneself.
			<<set $arcologies[$i].FSPetiteAdmiration = 5>><<break>>
		<</if>>
	<</if>>
<</if>>
<<if ($arcologies[$i].FSIncestFetishist == "unset")>>
	<<set _lover = $slaves.find(function(s) { return s.ID == _leader.relationshipTarget && areRelated(s, _leader) && s.assignment == "live with your agent"; })>>
	<<if (_leader.behavioralQuirk == "sinful" || _leader.sexualQuirk == "perverted") && def _lover && $seeIncest == 1>>
		Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Incest Festishism,@@ to share the love and joy $he holds with $his <<print relativeTerm(_leader, _lover)>>.
		<<set $arcologies[$i].FSIncestFetishist = 5>><<break>>
	<</if>>
<</if>>
<<if ($arcologies[$i].FSChattelReligionist == "unset")>>
	<<if ($arcologies[$i].FSNull == "unset")>>
		<<if _leader.behavioralQuirk == "devout">>
			Your agent @@.pink;_leader.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 _leader.behavioralQuirk == "sinful">>
			Your agent @@.pink;_leader.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 ($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 (_leader.relationshipTarget != 0)>>
		<<set _lover = getSlave(_leader.relationshipTarget)>>
		<<if (def _lover) && areRelated(_leader, _lover)>>
			Your agent @@.pink;_leader.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 _leader.nationality == "Chinese">>
		Your agent @@.pink;_leader.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 _leader.nationality == "Japanese">>
		Your agent @@.pink;_leader.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 _leader.nationality == "Mexican">>
		Your agent @@.pink;_leader.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 _leader.behavioralQuirk == "confident">>
		Your agent @@.pink;_leader.slaveName@@ successfully pushes it to @@.yellow;adopt Roman Revivalism,@@ since it appeals to $his confident, patrician nature.
		<<set $arcologies[$i].FSRomanRevivalist = 5>><<break>>
	<<elseif _leader.fetish == "dom">>
		Your agent @@.pink;_leader.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>>

<<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>>
	<<elseif ($arcologies[$i].FSPetiteAdmiration == "unset") && ($arcologies[$i].FSStatuesqueGlorification == "unset")>>
		The arcology's Repopulationist culture @@.yellow;pushes it towards Petite Admiration,@@ since shorter women tend to have an easier time with childbirth.
		<<set $arcologies[$i].FSPetiteAdmiration = 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].FSSlaveProfessionalism == "unset") && ($arcologies[$i].FSIntellectualDependency == "unset")>>
		The arcology's elite focused culture @@.yellow;pushes it towards Slave Professionalism,@@ since the highest class deserve nothing less than the best slaves.
		<<set $arcologies[$i].FSSlaveProfessionalism = 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].FSHedonisticDecadence = 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].FSCummunism = 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].FSIntellectualDependency == "unset") && ($arcologies[$i].FSSlaveProfessionalism == "unset")>>
		The arcology's Gender Fundamentalist culture @@.yellow;pushes it towards Intellectual Dependency,@@ since women don't need to think to serve men.
		<<set $arcologies[$i].FSYouthPreferentialist = 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].FSIntellectualDependency > random(50,200)>>
	<<if ($arcologies[$i].FSTransformationFetishist == "unset") && ($arcologies[$i].FSBodyPurist == "unset")>>
		The arcology's Intellectual Dependency culture @@.yellow;pushes it towards Transformation Fetishism,@@ to give its bimbos a body most fitting.
		<<set $arcologies[$i].FSTransformationFetishist = 5>><<break>>
	<<elseif ($arcologies[$i].FSYouthPreferentialist == "unset") && ($arcologies[$i].FSMaturityPreferentialist == "unset")>>
		The arcology's Intellectual Dependency culture @@.yellow;pushes it towards Youth Preferentialism,@@ since the young have more energy to party.
		<<set $arcologies[$i].FSYouthPreferentialist = 5>><<break>>
	<<elseif ($arcologies[$i].FSHedonisticDecadence == "unset") && ($arcologies[$i].FSPhysicalIdealist == "unset")>>
		The arcology's Intellectual Dependency culture @@.yellow;pushes it towards Decadent Hedonism,@@ since base instinct already rules slaves' lives.
		<<set $arcologies[$i].FSHedonisticDecadence = 5>><<break>>
	<<elseif ($arcologies[$i].FSRepopulationFocus == "unset") && ($arcologies[$i].FSRestart == "unset")>>
		The arcology's Intellectual Dependency culture @@.yellow;pushes it towards Repopulationism,@@ since there has been an epidemic of unplanned pregnancies among the slave population.
		<<set $arcologies[$i].FSRepopulationFocus = 5>><<break>>
	<</if>>
<<elseif $arcologies[$i].FSSlaveProfessionalism > random(50,200)>>
	<<if ($arcologies[$i].FSMaturityPreferentialist == "unset") && ($arcologies[$i].FSYouthPreferentialist == "unset")>>
		The arcology's Slave Professionalism culture @@.yellow;pushes it towards Maturity Preferentialist,@@ since with age comes experience.
		<<set $arcologies[$i].FSMaturityPreferentialist = 5>><<break>>
	<<elseif ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
		The arcology's Slave Professionalism culture @@.yellow;pushes it towards Paternalism,@@ since happy slaves are much more willing to be molded in to shape.
		<<set $arcologies[$i].FSPaternalist = 5>><<break>>
	<<elseif ($arcologies[$i].FSPhysicalIdealist == "unset") && ($arcologies[$i].FSHedonisticDecadence == "unset")>>
		The arcology's Slave Professionalism culture @@.yellow;pushes it towards Physical Idealism,@@ since a fitting body is required to house the perfect mind.
		<<set $arcologies[$i].FSPhysicalIdealist = 5>><<break>>
	<<elseif ($arcologies[$i].FSChattelReligionist == "unset")>>
		The arcology's Slave Professionalism culture @@.yellow;pushes it towards Chattel Religionism,@@ since skilled service is already a part of a slave's daily life.
		<<set $arcologies[$i].FSChattelReligionist = 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].FSPetiteAdmiration > random(50,200)>>
	<<if ($arcologies[$i].FSAssetExpansionist == "unset") && ($arcologies[$i].FSSlimnessEnthusiast == "unset")>>
		The arcology's Petite Admiration culture @@.yellow;pushes it towards Asset Expansionist,@@ since a $girl with tits wider than $he is tall attracts quite some attention.
		<<set $arcologies[$i].FSAssetExpansionist = 5>><<break>>
	<<elseif ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
		The arcology's Petite Admiration culture @@.yellow;pushes it towards Paternalism,@@ since such tiny <<= $girl>>s need extra special attention.
		<<set $arcologies[$i].FSPaternalist = 5>><<break>>
	<<elseif $arcologies[$i].FSIncestFetishist == "unset" && $seeIncest == 1>>
		The arcology's Petite Admiration culture @@.yellow;pushes it towards Incest Fetishism,@@ since age play often goes hand-in-hand with size play.
		<<set $arcologies[$i].FSIncestFetishist = 5>><<break>>
	<</if>>
<<elseif $arcologies[$i].FSStatuesqueGlorification > random(50,200)>>
	<<if ($arcologies[$i].FSPhysicalIdealist == "unset") && ($arcologies[$i].FSHedonisticDecadence == "unset")>>
		The arcology's Statuesque Glorification culture @@.yellow;pushes it towards Physical Idealism,@@ since being ripped complements being tall.
		<<set $arcologies[$i].FSPhysicalIdealist = 5>><<break>>
	<<elseif ($arcologies[$i].FSPaternalist == "unset") && ($arcologies[$i].FSDegradationist == "unset")>>
		The arcology's Statuesque Glorification culture @@.yellow;pushes it towards Degradationism,@@ since those that don't measure up deserve only suffering.
		<<set $arcologies[$i].FSDegradationist = 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>>
	<<elseif ($arcologies[$i].FSPetiteAdmiration == "unset") && ($arcologies[$i].FSStatuesqueGlorification == "unset")>>
		<<if random(0,1) == 1>>
			The arcology's Asset Expansionist culture @@.yellow;pushes it towards Petite Admiration,@@ since the smaller a slave's body is, the bigger their breasts will look.
			<<set $arcologies[$i].FSPetiteAdmiration = 5>><<break>>
		<<else>>
			The arcology's Asset Expansionist culture @@.yellow;pushes it towards Statuesque Glorification,@@ as the love of all things huge is rather indiscriminate.
			<<set $arcologies[$i].FSStatuesqueGlorification = 5>><<break>>
		<</if>>
	<</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].FSIntellectualDependency == "unset") && ($arcologies[$i].FSSlaveProfessionalism == "unset")>>
		The arcology's Hedonistic culture @@.yellow;pushes it towards Intellectual Dependency,@@ since higher thought is unneeded when you have everything you want.
		<<set $arcologies[$i].FSIntellectualDependency = 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].FSStatuesqueGlorification == "unset") && ($arcologies[$i].FSPetiteAdmiration == "unset")>>
		The arcology's Physical Idealist culture @@.yellow;pushes it towards Statuesque Glorification,@@ to better emulate the titans of legend.
		<<set $arcologies[$i].FSStatuesqueGlorification = 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].FSDegradationist = 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" && $seeIncest == 1>>
		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].FSAssetExpansionist == "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 _opinion = App.Neighbor.opinion($i, $j)>>
		<<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") && ($seePreg == 1)>>
			<<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].FSIntellectualDependency == "unset") && ($arcologies[$i].FSSlaveProfessionalism == "unset")>>
			<<if $arcologies[$j].FSIntellectualDependency > random(0,200)+(_adopted*100)-_influenceBonus>>
				It @@.yellow;adopts Intellectual Dependency@@ due to influence from its trading partner $arcologies[$j].name.
				<<set $arcologies[$i].FSIntellectualDependency = 5>><<set _adopted = 1>>
				<<break>>
			<</if>>
			<<if $arcologies[$j].FSSlaveProfessionalism > random(0,200)+(_adopted*100)-_influenceBonus>>
				It @@.yellow;adopts Slave Professionalism@@ due to influence from its trading partner $arcologies[$j].name.
				<<set $arcologies[$i].FSSlaveProfessionalism = 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].FSPetiteAdmiration == "unset") && ($arcologies[$i].FSStatuesqueGlorification == "unset")>>
			<<if $arcologies[$j].FSPetiteAdmiration > random(0,200)+(_adopted*100)-_influenceBonus>>
				It @@.yellow;adopts Petite Admiration@@ due to influence from its trading partner $arcologies[$j].name.
				<<set $arcologies[$i].FSPetiteAdmiration = 5>><<set _adopted = 1>>
				<<break>>
			<</if>>
			<<if $arcologies[$j].FSStatuesqueGlorification > random(0,200)+(_adopted*100)-_influenceBonus>>
				It @@.yellow;adopts Statuesque Glorification@@ due to influence from its trading partner $arcologies[$j].name.
				<<set $arcologies[$i].FSStatuesqueGlorification = 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,30)>>
<<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 partial to 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 enthusiastic about 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 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") && ($seePreg == 1)>>
		$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") && ($seeIncest == 1)>>
		$desc obsessed with their relatives, leading the arcology to @@.yellow;adopt Incest Fetishism.@@
		<<set $arcologies[$i].FSIncestFetishist = 5>><<set _adopted = 1>>
	<</if>>
<<case 27>>
	<<if ($arcologies[$i].FSIntellectualDependency == "unset") && ($arcologies[$i].FSSlaveProfessionalism == "unset")>>
		$desc partial to airheaded horny bimbos, leading the arcology to @@.yellow;adopt Intellectual Dependency.@@
		<<set $arcologies[$i].FSIntellectualDependency = 5>><<set _adopted = 1>>
	<</if>>
<<case 28>>
	<<if ($arcologies[$i].FSIntellectualDependency == "unset") && ($arcologies[$i].FSSlaveProfessionalism == "unset")>>
		$desc obsessed with crafting the perfect slave, leading the arcology to @@.yellow;adopt Slave Professionalism.@@
		<<set $arcologies[$i].FSSlaveProfessionalism = 5>><<set _adopted = 1>>
	<</if>>
<<case 29>>
	<<if ($arcologies[$i].FSPetiteAdmiration == "unset") && ($arcologies[$i].FSStatuesqueGlorification == "unset")>>
		$desc enamored by those shorter than them, leading the arcology to @@.yellow;adopt Petite Admiration.@@
		<<set $arcologies[$i].FSPetiteAdmiration = 5>><<set _adopted = 1>>
	<</if>>
<<case 30>>
	<<if ($arcologies[$i].FSPetiteAdmiration == "unset") && ($arcologies[$i].FSStatuesqueGlorification == "unset")>>
		$desc convinced that tall equals beauty, leading the arcology to @@.yellow;adopt Statuesque Glorification.@@
		<<set $arcologies[$i].FSStatuesqueGlorification = 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: KnightBoulegard/fc

license: mit


code:
:: New Game Plus [nobr]

<<set $ui = "start">> <<unset $SlaveSummaryFiler>>
<<if ndef $slavesToImport>>
	<<silently>><<include "Backwards Compatibility">><</silently>>
<</if>>
<<if ndef $slavesToImport>><<set $slavesToImport = 0>><</if>>
<<if ndef $slavesToImportMax>><<set $slavesToImportMax = 5>><</if>>

<<set _fee = 50000+($slavesToImportMax*10000)>>
<<run setupLastWeeksCash()>>
<<run setupLastWeeksRep()>>

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

<<set $ngpParams = { nationality: getRevivalistNationality(), prosperity: (250 * $arcologies[0].prosperity * $arcologies[0].ownership) }>>
<<if $freshPC == 0>>
	<<if $retainCareer == 1 && $PC.career != "arcology owner">>
		<<if $week > 52 || ($PC.skill.slaving >= 100 && $PC.skill.trading >= 100 && $PC.skill.warfare >= 100 && $PC.skill.engineering >= 100 && $PC.skill.medicine >= 100 && $PC.skill.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], Job.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]]

<<print App.UI.SlaveList.listNGPSlaves()>>