code:
:: Future Society [nobr]

<<setAssistantPronouns>>
<<set $nextButton = "Back", $nextLink = "Main", $showEncyclopedia = 1, $encyclopedia = "Future Societies", $FSReminder = "">>

<<if ndef $arcologies[0].FSSubjugationist>>
	<<set $arcologies[0].FSSubjugationist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSSupremacist>>
	<<set $arcologies[0].FSSupremacist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSRepopulationFocus>>
	<<set $arcologies[0].FSRepopulationFocus = "unset">>
<</if>>
<<if ndef $arcologies[0].FSRestart>>
	<<set $arcologies[0].FSRestart = "unset">>
<</if>>
<<if ndef $arcologies[0].FSGenderRadicalist>>
	<<set $arcologies[0].FSGenderRadicalist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSGenderFundamentalist>>
	<<set $arcologies[0].FSGenderFundamentalist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSPaternalist>>
	<<set $arcologies[0].FSPaternalist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSDegradationist>>
	<<set $arcologies[0].FSDegradationist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSBodyPurist>>
	<<set $arcologies[0].FSBodyPurist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSTransformationFetishist>>
	<<set $arcologies[0].FSTransformationFetishist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSYouthPreferentialist>>
	<<set $arcologies[0].FSYouthPreferentialist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSMaturityPreferentialist>>
	<<set $arcologies[0].FSMaturityPreferentialist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSSlimnessEnthusiast>>
	<<set $arcologies[0].FSSlimnessEnthusiast = "unset">>
<</if>>
<<if ndef $arcologies[0].FSAssetExpansionist>>
	<<set $arcologies[0].FSAssetExpansionist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSPastoralist>>
	<<set $arcologies[0].FSPastoralist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSCummunism>>
	<<set $arcologies[0].FSCummunism = "unset">>
<</if>>
<<if ndef $arcologies[0].FSIncestFetishist>>
	<<set $arcologies[0].FSIncestFetishist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSPhysicalIdealist>>
	<<set $arcologies[0].FSPhysicalIdealist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSHedonisticDecadence>>
	<<set $arcologies[0].FSHedonisticDecadence = "unset">>
<</if>>
<<if ndef $arcologies[0].FSChattelReligionist>>
	<<set $arcologies[0].FSChattelReligionist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSNull>>
	<<set $arcologies[0].FSNull = "unset">>
<</if>>
<<if ndef $arcologies[0].FSRomanRevivalist>>
	<<set $arcologies[0].FSRomanRevivalist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSAztecRevivalist>>
	<<set $arcologies[0].FSAztecRevivalist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSEgyptianRevivalist>>
	<<set $arcologies[0].FSEgyptianRevivalist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSEdoRevivalist>>
	<<set $arcologies[0].FSEdoRevivalist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSArabianRevivalist>>
	<<set $arcologies[0].FSArabianRevivalist = "unset">>
<</if>>
<<if ndef $arcologies[0].FSChineseRevivalist>>
	<<set $arcologies[0].FSChineseRevivalist = "unset">>
<</if>>
<<if ndef $FSCreditCountString>>
	<<if $FSCreditCount == 7>>
		<<set $FSCreditCountString = "seven">>
	<<elseif $FSCreditCount == 6>>
		<<set $FSCreditCountString = "six">>
	<<elseif $FSCreditCount == 5>>
		<<set $FSCreditCountString = "five">>
	<<else>>
		<<set $FSCreditCountString = "four">>
	<</if>>
<</if>>

/* FIRST FS STORING FOR RIVALRY */

<<if $rivalryFS == 0>>
	<<if $arcologies[0].FSSubjugationist != "unset">>
		<<set $rivalryFS = "Racial Subjugationism">>
		<<set $rivalryFSRace = $arcologies[0].FSSubjugationistRace>>
	<</if>>
	<<if $arcologies[0].FSSupremacist != "unset">>
		<<set $rivalryFS = "Racial Supremacism">>
		<<set $rivalryFSRace = $arcologies[0].FSSupremacistRace>>
	<</if>>
	<<if $arcologies[0].FSGenderRadicalist != "unset">>
		<<set $rivalryFS = "Gender Radicalism">>
	<<elseif $arcologies[0].FSGenderFundamentalist != "unset">>
		<<set $rivalryFS = "Gender Fundamentalism">>
	<</if>>
	<<if $arcologies[0].FSRepopulationFocus != "unset">>
		<<set $rivalryFS = "Repopulation Focus">>
	<<elseif $arcologies[0].FSRestart != "unset">>
		<<set $rivalryFS = "Eugenics">>
	<</if>>
	<<if $arcologies[0].FSPaternalist != "unset">>
		<<set $rivalryFS = "Paternalism">>
	<<elseif $arcologies[0].FSDegradationist != "unset">>
		<<set $rivalryFS = "Degradationism">>
	<</if>>
	<<if $arcologies[0].FSBodyPurist != "unset">>
		<<set $rivalryFS = "Body Purism">>
	<<elseif $arcologies[0].FSTransformationFetishist != "unset">>
		<<set $rivalryFS = "Transformation Fetishism">>
	<</if>>
	<<if $arcologies[0].FSYouthPreferentialist != "unset">>
		<<set $rivalryFS = "Youth Preferentialism">>
	<<elseif $arcologies[0].FSMaturityPreferentialist != "unset">>
		<<set $rivalryFS = "Maturity Preferentialism">>
	<</if>>
	<<if $arcologies[0].FSSlimnessEnthusiast != "unset">>
		<<set $rivalryFS = "Slimness Enthusiasm">>
	<<elseif $arcologies[0].FSAssetExpansionist != "unset">>
		<<set $rivalryFS = "Asset Expansionism">>
	<</if>>
	<<if $arcologies[0].FSPastoralist != "unset">>
		<<set $rivalryFS = "Pastoralism">>
	<<elseif $arcologies[0].FSCummunism != "unset">>
		<<set $rivalryFS = "Cummunism">>
	<</if>>
	<<if $arcologies[0].FSHedonisticDecadence != "unset">>
		<<set $rivalryFS = "Hedonistic Decadence">>
	<<elseif $arcologies[0].FSPhysicalIdealist != "unset">>
		<<set $rivalryFS = "Physical Idealism">>
	<</if>>
	<<if $arcologies[0].FSChattelReligionist != "unset">>
		<<set $rivalryFS = "Chattel Religionism">>
	<<elseif $arcologies[0].FSNull != "unset">>
		<<set $rivalryFS = "Multiculturalism">>
	<</if>>
	<<if $arcologies[0].FSRomanRevivalist != "unset">>
		<<set $rivalryFS = "Roman Revivalism">>
	<<elseif $arcologies[0].FSAztecRevivalist != "unset">>
		<<set $rivalryFS = "Aztec Revivalism">>
	<<elseif $arcologies[0].FSEgyptianRevivalist != "unset">>
		<<set $rivalryFS = "Egyptian Revivalism">>
	<<elseif $arcologies[0].FSEdoRevivalist != "unset">>
		<<set $rivalryFS = "Edo Revivalism">>
	<<elseif $arcologies[0].FSArabianRevivalist != "unset">>
		<<set $rivalryFS = "Arabian Revivalism">>
	<<elseif $arcologies[0].FSChineseRevivalist != "unset">>
		<<set $rivalryFS = "Chinese Revivalism">>
	<</if>>
<</if>>

<<if $cheatMode == 1>>

	//[[Cheat Edit Future Society|MOD_Edit FS Cheat][$cheater = 1]]//

<</if>>

<<if $FSCredits > 0>>
	@@.yellow;$arcologies[0].name's society is ready to begin accepting a new societal direction.@@
<<elseif $FSGotRepCredits >= 3>>
	Your society is so radically changed that it is starting to take on a life of its own. The major decisions about its direction have been made.
<<else>>
	You must develop your reputation further for $arcologies[0].name's society to be ready for a new societal direction.
<</if>>

<<if $arcologies[0].FSSupremacist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly in $arcologies[0].FSSupremacistRace superiority.
<<elseif $arcologies[0].FSSupremacist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with $arcologies[0].FSSupremacistRace superiority.
<<elseif $arcologies[0].FSSupremacist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to $arcologies[0].FSSupremacistRace superiority.
<<elseif $arcologies[0].FSSupremacist != "unset">>
	$arcologies[0].name is unconvinced of $arcologies[0].FSSupremacistRace superiority.
<</if>>

<<if $arcologies[0].FSSubjugationist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly in the inferiority of $arcologies[0].FSSubjugationistRace people.
<<elseif $arcologies[0].FSSubjugationist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with the inferiority of $arcologies[0].FSSubjugationistRace people.
<<elseif $arcologies[0].FSSubjugationist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to the inferiority of $arcologies[0].FSSubjugationistRace people.
<<elseif $arcologies[0].FSSubjugationist != "unset">>
	$arcologies[0].name is unconvinced of the inferiority of $arcologies[0].FSSubjugationistRace people.
<</if>>

<<if $arcologies[0].FSRepopulationFocus >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly that all women should be pregnant.
<<elseif $arcologies[0].FSRepopulationFocus >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly that all women should be pregnant.
<<elseif $arcologies[0].FSRepopulationFocus >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to the idea that all women should be pregnant.
<<elseif $arcologies[0].FSRepopulationFocus != "unset">>
	$arcologies[0].name is unconvinced that all women should be pregnant.
<</if>>

<<if $arcologies[0].FSRestart >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly that only the elite should reproduce.
<<elseif $arcologies[0].FSRestart >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly that only the elite should reproduce.
<<elseif $arcologies[0].FSRestart >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to the idea only the elite should reproduce.
<<elseif $arcologies[0].FSRestart != "unset">>
	$arcologies[0].name is unconvinced that only the elite should reproduce.
<</if>>

<<if $arcologies[0].FSGenderRadicalist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly in the need to redefine gender around power.
<<elseif $arcologies[0].FSGenderRadicalist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with the need to redefine gender around power.
<<elseif $arcologies[0].FSGenderRadicalist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to the need to redefine gender around power.
<<elseif $arcologies[0].FSGenderRadicalist != "unset">>
	$arcologies[0].name is unconvinced of the need to redefine gender around power.
<</if>>

<<if $arcologies[0].FSGenderFundamentalist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly in the need to preserve traditional gender roles.
<<elseif $arcologies[0].FSGenderFundamentalist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with the need to preserve traditional gender roles.
<<elseif $arcologies[0].FSGenderFundamentalist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to the need to preserve traditional gender roles.
<<elseif $arcologies[0].FSGenderFundamentalist != "unset">>
	$arcologies[0].name is unconvinced of the need to preserve traditional gender roles.
<</if>>

<<if $arcologies[0].FSPaternalist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly in the vision of a well-bred race of slaves.
<<elseif $arcologies[0].FSPaternalist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with the vision of a well-bred race of slaves.
<<elseif $arcologies[0].FSPaternalist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to the vision of a well-bred race of slaves.
<<elseif $arcologies[0].FSPaternalist != "unset">>
	$arcologies[0].name is unconvinced of the vision of a well-bred race of slaves.
<</if>>

<<if $arcologies[0].FSDegradationist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly that slaves are not human and should be thoroughly degraded.
<<elseif $arcologies[0].FSDegradationist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with the idea that slaves are not human and should be thoroughly degraded.
<<elseif $arcologies[0].FSDegradationist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to the proposition that slaves are not human and should be thoroughly degraded.
<<elseif $arcologies[0].FSDegradationist != "unset">>
	$arcologies[0].name is unconvinced that slaves are not human and should be thoroughly degraded.
<</if>>

<<if $arcologies[0].FSBodyPurist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly in the unattractive nature of implants.
<<elseif $arcologies[0].FSBodyPurist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with the unattractive nature of implants.
<<elseif $arcologies[0].FSBodyPurist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to the unattractive nature of implants.
<<elseif $arcologies[0].FSBodyPurist != "unset">>
	$arcologies[0].name is unconvinced of the unattractive nature of implants.
<</if>>

<<if $arcologies[0].FSTransformationFetishist >= $FSLockinLevel>>
	$arcologies[0].name passionately fetishizes implants.
<<elseif $arcologies[0].FSTransformationFetishist >= $FSLockinLevel*0.6>>
	$arcologies[0].name strongly fetishizes implants.
<<elseif $arcologies[0].FSTransformationFetishist >= $FSLockinLevel*0.3>>
	$arcologies[0].name fetishizes implants.
<<elseif $arcologies[0].FSTransformationFetishist != "unset">>
	$arcologies[0].name is beginning to fetishize implants.
<</if>>

<<if $arcologies[0].FSMaturityPreferentialist >= $FSLockinLevel>>
	$arcologies[0].name is passionately enthusiastic for older ladies.
<<elseif $arcologies[0].FSMaturityPreferentialist >= $FSLockinLevel*0.6>>
	$arcologies[0].name is very enthusiastic for older ladies.
<<elseif $arcologies[0].FSMaturityPreferentialist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is enthusiastic for older ladies.
<<elseif $arcologies[0].FSMaturityPreferentialist != "unset">>
	$arcologies[0].name is beginning to be enthusiastic for older ladies.
<</if>>

<<if $arcologies[0].FSYouthPreferentialist >= $FSLockinLevel>>
	$arcologies[0].name is passionately enthusiastic for young women.
<<elseif $arcologies[0].FSYouthPreferentialist >= $FSLockinLevel*0.6>>
	$arcologies[0].name is very enthusiastic for young women.
<<elseif $arcologies[0].FSYouthPreferentialist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is enthusiastic for young women.
<<elseif $arcologies[0].FSYouthPreferentialist != "unset">>
	$arcologies[0].name is beginning to be enthusiastic for young women.
<</if>>

<<if $arcologies[0].FSSlimnessEnthusiast >= $FSLockinLevel>>
	$arcologies[0].name is passionately enthusiastic about slim slaves with girlish figures.
<<elseif $arcologies[0].FSSlimnessEnthusiast >= $FSLockinLevel*0.6>>
	$arcologies[0].name is very enthusiastic about slim slaves with girlish figures.
<<elseif $arcologies[0].FSSlimnessEnthusiast >= $FSLockinLevel*0.3>>
	$arcologies[0].name is enthusiastic about slim slaves with girlish figures.
<<elseif $arcologies[0].FSSlimnessEnthusiast != "unset">>
	$arcologies[0].name is beginning to be enthusiastic about slim slaves with girlish figures.
<</if>>

<<if $arcologies[0].FSAssetExpansionist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly that all tits and asses should be bigger.
<<elseif $arcologies[0].FSAssetExpansionist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with the idea that all tits and asses should be bigger.
<<elseif $arcologies[0].FSAssetExpansionist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to the idea that all tits and asses should be bigger.
<<elseif $arcologies[0].FSAssetExpansionist != "unset">>
	$arcologies[0].name is unconvinced that all tits and asses should be bigger.
<</if>>

<<if $arcologies[0].FSPastoralist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly that slaves should be milked.
<<elseif $arcologies[0].FSPastoralist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with the idea that slaves should be milked.
<<elseif $arcologies[0].FSPastoralist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to the idea that slaves should be milked.
<<elseif $arcologies[0].FSPastoralist != "unset">>
	$arcologies[0].name is unconvinced that slaves should be milked.
<</if>>

<<if $arcologies[0].FSPhysicalIdealist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly that all slaves should be tall and strong.
<<elseif $arcologies[0].FSPhysicalIdealist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with the idea that all slaves should be tall and strong.
<<elseif $arcologies[0].FSPhysicalIdealist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to the idea that all slaves should be tall and strong.
<<elseif $arcologies[0].FSPhysicalIdealist != "unset">>
	$arcologies[0].name is unconvinced that all slaves should be tall and strong.
<</if>>

<<if $arcologies[0].FSHedonisticDecadence >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly that all slaves should be soft and laid-back.
<<elseif $arcologies[0].FSHedonisticDecadence >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with the idea that all slaves should be soft and laid-back.
<<elseif $arcologies[0].FSHedonisticDecadence >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to the idea that all slaves should be soft and laid-back.
<<elseif $arcologies[0].FSHedonisticDecadence != "unset">>
	$arcologies[0].name is unconvinced that all slaves should be soft and laid-back.
<</if>>

<<if $arcologies[0].FSChattelReligionist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly in a version of religion that emphasizes slaveholding traditions.
<<elseif $arcologies[0].FSChattelReligionist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with a version of religion that emphasizes slaveholding traditions.
<<elseif $arcologies[0].FSChattelReligionist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to a version of religion that emphasizes slaveholding traditions.
<<elseif $arcologies[0].FSChattelReligionist != "unset">>
	$arcologies[0].name is unconvinced of a version of religion that emphasizes slaveholding traditions.
<</if>>

<<if $arcologies[0].FSNull >= $FSLockinLevel>>
	$arcologies[0].name is committed to affording its citizens absolute cultural freedom.
<<elseif $arcologies[0].FSNull >= $FSLockinLevel*0.75>>
	$arcologies[0].name is committed to affording its citizens great cultural freedom.
<<elseif $arcologies[0].FSNull >= $FSLockinLevel*0.5>>
	$arcologies[0].name is committed to affording its citizens considerable cultural freedom.
<<elseif $arcologies[0].FSNull != "unset">>
	$arcologies[0].name is committed to affording its citizens basic cultural freedom.
<</if>>

<<if $arcologies[0].FSRomanRevivalist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly that it is the new Rome.
<<elseif $arcologies[0].FSRomanRevivalist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with your project to build the new Rome.
<<elseif $arcologies[0].FSRomanRevivalist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to your project to build the new Rome.
<<elseif $arcologies[0].FSRomanRevivalist != "unset">>
	$arcologies[0].name is unconvinced of the wisdom of your project to build the new Rome.
<</if>>

<<if $arcologies[0].FSAztecRevivalist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly that it is the new Aztec Empire.
<<elseif $arcologies[0].FSAztecRevivalist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with your project to build the new Aztec Empire.
<<elseif $arcologies[0].FSAztecRevivalist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to your project to build the new Aztec Empire.
<<elseif $arcologies[0].FSAztecRevivalist != "unset">>
	$arcologies[0].name is unconvinced of the wisdom of your project to build the new Aztec Empire.
<</if>>

<<if $arcologies[0].FSEgyptianRevivalist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly that it is the land of the Pharaohs, reborn.
<<elseif $arcologies[0].FSEgyptianRevivalist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with your project to build a new land of the Pharaohs.
<<elseif $arcologies[0].FSEgyptianRevivalist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to your project to build a new land of the Pharaohs.
<<elseif $arcologies[0].FSEgyptianRevivalist != "unset">>
	$arcologies[0].name is unconvinced of the wisdom of your project to build a new land of the Pharaohs.
<</if>>

<<if $arcologies[0].FSEdoRevivalist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly that it is the land of the Shogun, reborn.
<<elseif $arcologies[0].FSEdoRevivalist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with your project to build a new Edo Japan.
<<elseif $arcologies[0].FSEdoRevivalist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to your project to build a new Edo Japan.
<<elseif $arcologies[0].FSEdoRevivalist != "unset">>
	$arcologies[0].name is unconvinced of the wisdom of your project to build a new Edo Japan.
<</if>>

<<if $arcologies[0].FSArabianRevivalist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly that it is ancient Baghdad reborn.
<<elseif $arcologies[0].FSArabianRevivalist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with your project to build a new Sultanate.
<<elseif $arcologies[0].FSArabianRevivalist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to your project to build a new Sultanate.
<<elseif $arcologies[0].FSArabianRevivalist != "unset">>
	$arcologies[0].name is unconvinced of the wisdom of your project to build a new Sultanate.
<</if>>

<<if $arcologies[0].FSChineseRevivalist >= $FSLockinLevel>>
	$arcologies[0].name believes implicitly that possesses the Mandate of Heaven.
<<elseif $arcologies[0].FSChineseRevivalist >= $FSLockinLevel*0.6>>
	$arcologies[0].name agrees strongly with your pursuit of the Mandate of Heaven.
<<elseif $arcologies[0].FSChineseRevivalist >= $FSLockinLevel*0.3>>
	$arcologies[0].name is sympathetic to your pursuit of the Mandate of Heaven.
<<elseif $arcologies[0].FSChineseRevivalist != "unset">>
	$arcologies[0].name is unconvinced of the wisdom of your pursuit of the Mandate of Heaven.
<</if>>

You have unlocked
<<if ($FSGotRepCredits == 7)>>
	__seven of <<print $FSCreditCountString>>__
<<elseif ($FSGotRepCredits == 6)>>
	__six of <<print $FSCreditCountString>>__
<<elseif ($FSGotRepCredits == 5)>>
	__five of <<print $FSCreditCountString>>__
<<elseif ($FSGotRepCredits == 4)>>
	__four of <<print $FSCreditCountString>>__
<<elseif ($FSGotRepCredits == 3)>>
	__three of <<print $FSCreditCountString>>__
<<elseif ($FSGotRepCredits == 2)>>
	__two of <<print $FSCreditCountString>>__
<<else>>
	__one of <<print $FSCreditCountString>>__
<</if>>
possible societal customizations.

/*
You are spending <<print cashFormat($FSSpending)>> each week to support your societal goals.
<<if $FSSpending > 900>>
	[[Decrease|Future Society][$FSSpending -= 1000]] |
<<else>>
	Decrease |
<</if>>
<<if $FSSpending < 10000>>
	<<link "Increase">><<set $FSSpending += 1000>><<goto "Future Society">><</link>>
<<else>>
	Increase
<</if>>
*/
<<if $FSSpending > 10000>><<set _warn = 1>><</if>>
<<set $FSSpending = Number($FSSpending) || 0>>
<<set $FSSpending = Math.clamp(Math.ceil($FSSpending/1000)*1000, 0, 10000)>>

You are spending ¤<<textbox "_newFSSpending" $FSSpending>> each week to support your societal goals. [[Save changes|Future Society][$FSSpending = Number(_newFSSpending) || 0]]
<<if _warn>>
//Spending more than <<print cashFormat(10000)>> weekly would be counterproductive//<</if>>

<<if $arcologies[0].FSChattelReligionist != "unset">>

	<<link "Give all your slaves devotional names">>
	<<for _i = 0; _i < $slaves.length; _i++>>
		<<set $slaves[_i].slaveName = setup.chattelReligionistSlaveNames.random()>>
	<</for>>
	<<replace "#mass">>

Slaves renamed.

	<</replace>>
	<</link>>

<</if>>
<<if $arcologies[0].FSPastoralist != "unset">>

	<<link "Give all your lactating slaves cow names">>
	<<for _i = 0; _i < $slaves.length; _i++>>
		<<if $slaves[_i].lactation > 0>>
			<<set $slaves[_i].slaveName = setup.cowSlaveNames.random()>>
		<</if>>
	<</for>>
	<<replace "#mass">>

Slaves renamed.

	<</replace>>
	<</link>>

<</if>>
<<if $arcologies[0].FSRomanRevivalist != "unset">>

	<<link "Rename all your slaves according to Roman custom">>
	<<for _i = 0; _i < $slaves.length; _i++>>
		<<set $slaves[_i].slaveName = setup.romanSlaveNames.random(), $slaves[_i].slaveSurname = setup.romanSlaveSurnames.random()>>
	<</for>>
	<<replace "#mass">>

Slaves renamed.

	<</replace>>
	<</link>>

<<elseif $arcologies[0].FSAztecRevivalist != "unset">>

	<<link "Rename all your slaves according to ancient Aztec custom">>
	<<for _i = 0; _i < $slaves.length; _i++>>
		<<set $slaves[_i].slaveName = setup.aztecSlaveNames.random(), $slaves[_i].slaveSurname = 0>>
	<</for>>
	<<replace "#mass">>

Slaves renamed.

	<</replace>>
	<</link>>

<<elseif $arcologies[0].FSEgyptianRevivalist != "unset">>

	<<link "Rename all your slaves according to ancient Egyptian custom">>
	<<for _i = 0; _i < $slaves.length; _i++>>
		<<set $slaves[_i].slaveName = setup.ancientEgyptianSlaveNames.random(), $slaves[_i].slaveSurname = 0>>
	<</for>>
	<<replace "#mass">>

Slaves renamed.

	<</replace>>
	<</link>>

<<elseif $arcologies[0].FSEdoRevivalist != "unset">>

	<<link "Rename all your slaves according to feudal Japanese custom">>
	<<for _i = 0; _i < $slaves.length; _i++>>
		<<set $slaves[_i].slaveName = setup.edoSlaveNames.random(), $slaves[_i].slaveSurname = setup.edoSlaveSurnames.random()>>
	<</for>>
	<<replace "#mass">>

Slaves renamed.

	<</replace>>
	<</link>>

<</if>>
<<if $arcologies[0].FSDegradationist != "unset">>

	<<link "Rename all your slaves according to Degradationist custom">>
	<<for $i = 0; $i < $slaves.length; $i++>>
		<<run DegradingName($slaves[$i])>>
	<</for>>
	<<replace "#mass">>

Slaves renamed.

	<</replace>>
	<</link>>

<</if>>
<<if $arcologies[0].FSPaternalist != "unset">>

	<<link "Rename your obedient slaves according to Paternalist custom">>
	<<for $i = 0; $i < $slaves.length; $i++>>
		<<if ($slaves[$i].devotion > 20) || (($slaves[$i].devotion >= -20) && ($slaves[$i].trust < -20))>>
			<<set $toSearch = $slaves[$i].slaveName>>
			<<if ($toSearch.indexOf("Miss") == -1)>>
				<<if ($toSearch.indexOf("Ms.") == -1)>>
					<<if ($toSearch.indexOf("Mrs.") == -1)>>
						<<if ($slaves[$i].relationship > 4)>>
							/*
							<<for $j = 0; $j < $slaves.length; $j++>>
								<<if ($slaves[$i].relationshipTarget == $slaves[$j].ID)>>
									<<set $slaves[$i].slaveName = ("Mrs. " + $slaves[$i].slaveName + " " + $slaves[$j].slaveName)>>
								<</if>>
							<</for>>
							*/
							<<set $slaves[$i].slaveName = ("Mrs. " + $slaves[$i].slaveName)>>
						<<elseif ($slaves[$i].actualAge > 24)>>
							<<set $slaves[$i].slaveName = ("Ms. " + $slaves[$i].slaveName)>>
						<<else>>
							<<set $slaves[$i].slaveName = ("Miss " + $slaves[$i].slaveName)>>
						<</if>>
					<</if>>
				<</if>>
			<</if>>
		<</if>>
	<</for>>
	<<replace "#mass">>

Obedient slaves renamed.

	<</replace>>
	<</link>>

<</if>>

<<if $arcologies[0].FSSupremacist != "unset">>

''You are pursuing'' $arcologies[0].FSSupremacistRace superiority. //<<link "Abandon" "Future Society">><<run removeFS("FSSupremacist")>><<if $assistantFSAppearance == "supremacist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

	<<FSChangeDecoration "FSSupremacist">>
	<<if $PAPublic == 1>>
		<<if ($assistantAppearance == "amazon") || ($assistantAppearance == "monstergirl") || ($assistantAppearance == "succubus")>>
			//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
		<</if>>
	<</if>>
<<else>>
	<<if $FSCredits > 0>>

[[Racial Supremacism|Future Society][$arcologies[0].FSSupremacist = 4, $FSCredits -= 1]]: a belief in <<if $arcologies[0].FSSupremacistRace == 0>>the superiority of a chosen race<<else>>$arcologies[0].FSSupremacistRace superiority<</if>>.

    Select race:
		<<if $arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace == "white">>//It is established that whites are inferior//<<elseif $arcologies[0].FSSupremacistRace != "white">>[[White|Future Society][$arcologies[0].FSSupremacistRace = "white"]]<<else>>White<</if>> |
		<<if $arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace == "asian">>//It is established that asians are inferior//<<elseif $arcologies[0].FSSupremacistRace != "asian">>[[Asian|Future Society][$arcologies[0].FSSupremacistRace = "asian"]]<<else>>Asian<</if>> |
		<<if $arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace == "latina">>//It is established that latinas are inferior//<<elseif $arcologies[0].FSSupremacistRace != "latina">>[[Latino|Future Society][$arcologies[0].FSSupremacistRace = "latina"]]<<else>>Latino<</if>> |
		<<if $arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace == "middle eastern">>//It is established that middle easterners are inferior//<<elseif $arcologies[0].FSSupremacistRace != "middle eastern">>[[Middle Eastern|Future Society][$arcologies[0].FSSupremacistRace = "middle eastern"]]<<else>>Middle Eastern<</if>> |
		<<if $arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace == "black">>//It is established that blacks are inferior//<<elseif $arcologies[0].FSSupremacistRace != "black">>[[Black|Future Society][$arcologies[0].FSSupremacistRace = "black"]]<<else>>Black<</if>> |
		<<if $arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace == "indo-aryan">>//It is established that indo-aryans are inferior//<<elseif $arcologies[0].FSSupremacistRace != "indo-aryan">>[[Indo-Aryan|Future Society][$arcologies[0].FSSupremacistRace = "indo-aryan"]]<<else>>Indo-Aryan<</if>> |
		<<if $arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace == "amerindian">>//It is established that amerindians are inferior//<<elseif $arcologies[0].FSSupremacistRace != "amerindian">>[[Amerindian|Future Society][$arcologies[0].FSSupremacistRace = "amerindian"]]<<else>>Amerindian<</if>> |
		<<if $arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace == "pacific islander">>//It is established that pacific islanders are inferior//<<elseif $arcologies[0].FSSupremacistRace != "pacific islander">>[[Pacific Islander|Future Society][$arcologies[0].FSSupremacistRace = "pacific islander"]]<<else>>Pacific Islander<</if>> |
		<<if $arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace == "malay">>//It is established that malay are inferior//<<elseif $arcologies[0].FSSupremacistRace != "malay">>[[Malay|Future Society][$arcologies[0].FSSupremacistRace = "malay"]]<<else>>Malay<</if>> |
		<<if $arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace == "southern european">>//It is established that southern europeans are inferior//<<elseif $arcologies[0].FSSupremacistRace != "southern european">>[[Southern European|Future Society][$arcologies[0].FSSupremacistRace = "southern european"]]<<else>>Southern European<</if>> |
		<<if $arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace == "semitic">>//It is established that semites are inferior//<<elseif $arcologies[0].FSSupremacistRace != "semitic">>[[Semitic|Future Society][$arcologies[0].FSSupremacistRace = "semitic"]]<<else>>Semitic<</if>> |
		<<if $arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace == "mixed race">>//It is established that those with mixed blood are inferior//<<elseif $arcologies[0].FSSupremacistRace != "mixed race">>[[Mixed Race|Future Society][$arcologies[0].FSSupremacistRace = "mixed race"]]<<else>>Mixed Race<</if>>
	<<else>>
		/*//''Racial Supremacism'': a belief in the superiority of a chosen race.//*/
	<</if>>
<</if>>

<<if $arcologies[0].FSSubjugationist != "unset">>

''You are pursuing'' $arcologies[0].FSSubjugationistRace inferiority. //<<link "Abandon" "Future Society">><<run removeFS("FSSubjugationist")>><<if $assistantFSAppearance == "subjugationist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

	<<FSChangeDecoration "FSSubjugationist">>
	<<if $PAPublic == 1>>
		<<if ($assistantAppearance == "businesswoman") || ($assistantAppearance == "amazon") || ($assistantAppearance == "imp")>>
			//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
		<</if>>
	<</if>>
<<else>>
	<<if $FSCredits > 0>>

''''[[Racial Subjugationism|Future Society][$arcologies[0].FSSubjugationist = 4, $FSCredits -= 1]]: a belief in <<if $arcologies[0].FSSubjugationistRace == 0>>the inferiority of a chosen race<<else>>$arcologies[0].FSSubjugationistRace inferiority<</if>>.

    Select race:
		<<if $arcologies[0].FSSupremacist != "unset" && $arcologies[0].FSSupremacistRace == "white">>//It is established that whites are superior//<<elseif $arcologies[0].FSSubjugationistRace != "white">>[[White|Future Society][$arcologies[0].FSSubjugationistRace = "white"]]<<else>>White<</if>> |
		<<if $arcologies[0].FSSupremacist != "unset" && $arcologies[0].FSSupremacistRace == "asian">>//It is established that asians are superior//<<elseif $arcologies[0].FSSubjugationistRace != "asian">>[[Asian|Future Society][$arcologies[0].FSSubjugationistRace = "asian"]]<<else>>Asian<</if>> |
		<<if $arcologies[0].FSSupremacist != "unset" && $arcologies[0].FSSupremacistRace == "latina">>//It is established that latinas are superior//<<elseif $arcologies[0].FSSubjugationistRace != "latina">>[[Latino|Future Society][$arcologies[0].FSSubjugationistRace = "latina"]]<<else>>Latino<</if>> |
		<<if $arcologies[0].FSSupremacist != "unset" && $arcologies[0].FSSupremacistRace == "middle eastern">>//It is established that middle easterners are superior//<<elseif $arcologies[0].FSSubjugationistRace != "middle eastern">>[[Middle Eastern|Future Society][$arcologies[0].FSSubjugationistRace = "middle eastern"]]<<else>>Middle Eastern<</if>> |
		<<if $arcologies[0].FSSupremacist != "unset" && $arcologies[0].FSSupremacistRace == "black">>//It is established that blacks are superior//<<elseif $arcologies[0].FSSubjugationistRace != "black">>[[Black|Future Society][$arcologies[0].FSSubjugationistRace = "black"]]<<else>>Black<</if>> |
		<<if $arcologies[0].FSSupremacist != "unset" && $arcologies[0].FSSupremacistRace == "indo-aryan">>//It is established that indo-aryans are superior//<<elseif $arcologies[0].FSSubjugationistRace != "indo-aryan">>[[Indo-Aryan|Future Society][$arcologies[0].FSSubjugationistRace = "indo-aryan"]]<<else>>Indo-Aryan<</if>> |
		<<if $arcologies[0].FSSupremacist != "unset" && $arcologies[0].FSSupremacistRace == "amerindian">>//It is established that amerindians are superior//<<elseif $arcologies[0].FSSubjugationistRace != "amerindian">>[[Amerindian|Future Society][$arcologies[0].FSSubjugationistRace = "amerindian"]]<<else>>Amerindian<</if>> |
		<<if $arcologies[0].FSSupremacist != "unset" && $arcologies[0].FSSupremacistRace == "pacific islander">>//It is established that pacific islanders are superior//<<elseif $arcologies[0].FSSubjugationistRace != "pacific islander">>[[Pacific Islander|Future Society][$arcologies[0].FSSubjugationistRace = "pacific islander"]]<<else>>Pacific Islander<</if>> |
		<<if $arcologies[0].FSSupremacist != "unset" && $arcologies[0].FSSupremacistRace == "malay">>//It is established that malay are superior//<<elseif $arcologies[0].FSSubjugationistRace != "malay">>[[Malay|Future Society][$arcologies[0].FSSubjugationistRace = "malay"]]<<else>>Malay<</if>> |
		<<if $arcologies[0].FSSupremacist != "unset" && $arcologies[0].FSSupremacistRace == "southern european">>//It is established that southern europeaners are superior//<<elseif $arcologies[0].FSSubjugationistRace != "southern european">>[[Southern European|Future Society][$arcologies[0].FSSubjugationistRace = "southern european"]]<<else>>Southern European<</if>> |
		<<if $arcologies[0].FSSupremacist != "unset" && $arcologies[0].FSSupremacistRace == "semitic">>//It is established that semites are superior//<<elseif $arcologies[0].FSSubjugationistRace != "semitic">>[[Semitic|Future Society][$arcologies[0].FSSubjugationistRace = "semitic"]]<<else>>Semitic<</if>> |
		<<if $arcologies[0].FSSupremacist != "unset" && $arcologies[0].FSSupremacistRace == "mixed race">>//It is established that those with mixed blood are superior//<<elseif $arcologies[0].FSSubjugationistRace != "mixed race">>[[Mixed Race|Future Society][$arcologies[0].FSSubjugationistRace = "mixed race"]]<<else>>Mixed Race<</if>>
	<<else>>
		/*//''Racial Subjugationism'': a belief in the inferiority of a subject race.//*/
	<</if>>
<</if>>

<<if $seePreg != 0>>
	<<if $arcologies[0].FSRestart == "unset">>
		<<if $arcologies[0].FSRepopulationFocus != "unset">>

''You are pursuing'' the belief that mass breeding will save humanity.
			//<<link "Abandon" "Future Society">><<run removeFS("FSRepopulationFocus")>><<if $assistantFSAppearance == "repopulation focus">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

			<<FSChangeDecoration "FSRepopulationFocus" "clothesBoughtMaternityLingerie" "clothesBoughtMaternityDress" "clothesBoughtBelly">>
			<<if $PAPublic == 1>>
				<<if ($assistantAppearance == "goddess") || ($assistantAppearance == "hypergoddess") || ($assistantAppearance == "preggololi") || ($assistantAppearance == "pregnant fairy") || ($assistantAppearance == "succubus") || ($assistantAppearance == "witch")>>
					//With _hisA $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
				<</if>>
			<</if>>
		<<else>>
			<<if ($FSCredits > 0)>>

''''[[Repopulation Efforts|Future Society][$arcologies[0].FSRepopulationFocus = 4+$arcologies[0].FSRepopulationFocusInterest-$arcologies[0].FSEugenicsInterest, $FSCredits -= 1, $arcologies[0].FSRepopulationFocusPregPolicy = 0, $arcologies[0].FSRepopulationFocusMilfPolicy = 0]]: focus on mass breeding in order to repopulate the future world.
			<<else>>
				/*//''Repopulation Efforts'': societal fetishization of pregnancy.//*/
			<</if>>
		<</if>>
	<</if>>

	<<if $arcologies[0].FSRepopulationFocus == "unset">>
		<<if $arcologies[0].FSRestart != "unset">>
			<<if $arcologies[0].FSRestartDecoration != 100>>

''You are pursuing'' Eugenics.
				//<<link "Abandon" "Future Society">><<run removeFS("FSRestart")>><<if $assistantFSAppearance == "eugenics">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

				<<FSChangeDecoration "FSRestart">>
			<<else>>

''You have established'' Eugenics.
				<<if $eugenicsFullControl != 1>>
					The Societal Elite will not permit you to abandon Eugenics.
				<<else>>
					//<<link "Abandon" "Future Society">><<run removeFS("FSRestart")>><<if $assistantFSAppearance == "eugenics">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//
				<</if>>

				<<FSChangeDecoration "FSRestart">>
				The Societal Elite exist as the highest class, allowing you access to all manner of benefits
				<<if $PAPublic == 1>>
					<<if ($assistantAppearance == "businesswoman") || ($assistantAppearance == "schoolgirl") || ($assistantAppearance == "goddess") || ($assistantAppearance == "loli") || ($assistantAppearance == "succubus") || ($assistantAppearance == "witch") || ($assistantAppearance == "incubus") || ($assistantAppearance == "angel")>>
						//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
					<</if>>
				<</if>>
			<</if>>
		<<else>>
			<<if ($FSCredits > 0)>>

''''[[Eugenics|Future Society][$arcologies[0].FSRestart = 4+$arcologies[0].FSEugenicsInterest-$arcologies[0].FSRepopulationFocusInterest, $FSCredits -= 1, $arcologies[0].FSRepopulationFocusPregPolicy = 0, $arcologies[0].FSRepopulationFocusMilfPolicy = 0]]: rebuilding society using restrictive breeding programs reserved solely for society's finest.
			<<else>>
				/*//''Complete Societal Reconstruction'': rebuilding society based off the elite.//*/
			<</if>>
		<</if>>
	<</if>>
<</if>>

<<if $seeDicks != 0 || $makeDicks == 1>>
	<<if $arcologies[0].FSGenderFundamentalist == "unset">>
		<<if $arcologies[0].FSGenderRadicalist != "unset">>

''You are pursuing'' a radical redefinition of gender that identifies powerful people as male, and everyone else as female.
			//<<link "Abandon" "Future Society">><<run removeFS("FSGenderRadicalist")>><<if $assistantFSAppearance == "gender radicalist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

			<<FSChangeDecoration "FSGenderRadicalist">>
			<<if $PAPublic == 1>>
				<<if ($assistantAppearance == "shemale") || ($assistantAppearance == "monstergirl") || ($assistantAppearance == "incubus") || ($assistantAppearance == "succubus") || ($assistantAppearance == "witch")>>
					//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
				<</if>>
			<</if>>
		<<else>>
			<<if $FSCredits > 0>>

''''[[Gender radicalism|Future Society][$arcologies[0].FSGenderRadicalist = 4, $FSCredits -= 1]]: a radical redefinition of gender that identifies powerful people as male, and everyone else as female.
			<<else>>
				/*//''Gender radicalism'': a radical redefinition of gender that identifies powerful people as male, and everyone else as female.//*/
			<</if>>
		<</if>>
	<</if>>
<</if>>

<<if $arcologies[0].FSGenderRadicalist == "unset">>
	<<if $arcologies[0].FSGenderFundamentalist != "unset">>

''You are pursuing'' gender traditionalism, including a societal preference for feminine slaves and support for slave pregnancy.
		//<<link "Abandon" "Future Society">><<run removeFS("FSGenderFundamentalist")>><<if $assistantFSAppearance == "gender fundamentalist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSGenderFundamentalist" "clothesBoughtBunny">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "schoolgirl") || ($assistantAppearance == "goddess") || ($assistantAppearance == "hypergoddess") || ($assistantAppearance == "preggololi") || ($assistantAppearance == "loli") || ($assistantAppearance == "fairy") || ($assistantAppearance == "pregnant fairy") || ($assistantAppearance == "angel") || ($assistantAppearance == "cherub") || ($assistantAppearance == "succubus") || ($assistantAppearance == "witch")>>
				//With _hisA $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Gender traditionalism|Future Society][$arcologies[0].FSGenderFundamentalist = 4, $FSCredits -= 1]]: a societal preference for feminine slaves and support for slave pregnancy.
		<<else>>
			/*//''Gender traditionalism'': a societal preference for feminine slaves and support for slave pregnancy.//*/
		<</if>>
	<</if>>
<</if>>

<<if $arcologies[0].FSDegradationist == "unset">>
	<<if $arcologies[0].FSPaternalist != "unset">>

''You are pursuing'' a vision of slave improvement, including slaves' health, mental well-being, and education.
		//<<link "Abandon" "Future Society">><<run removeFS("FSPaternalist")>><<if $assistantFSAppearance == "paternalist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSPaternalist" "clothesBoughtConservative">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "schoolgirl") || ($assistantAppearance == "goddess") || ($assistantAppearance == "hypergoddess") || ($assistantAppearance == "preggololi") || ($assistantAppearance == "loli") || ($assistantAppearance == "fairy") || ($assistantAppearance == "pregnant fairy") || ($assistantAppearance == "angel") || ($assistantAppearance == "cherub")>>
				//With _hisA $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Paternalism|Future Society][$arcologies[0].FSPaternalist = 4, $FSCredits -= 1]]: a vision of slave improvement, including slaves' health, mental well-being, and education.
		<<else>>
			/*//''Paternalism'': a vision of slave improvement, including slaves' health, mental well-being, and education.//*/
		<</if>>
	<</if>>
<</if>>

<<if $arcologies[0].FSPaternalist == "unset">>
	<<if $arcologies[0].FSDegradationist != "unset">>

''You are pursuing'' slave degradation, a belief that slaves are not human and should not be treated decently.
		//<<link "Abandon" "Future Society">><<run removeFS("FSDegradationist")>><<if $assistantFSAppearance == "degradationist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSDegradationist" "clothesBoughtChains">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "monstergirl") || ($assistantAppearance == "businesswoman") || ($assistantAppearance == "preggololi") || ($assistantAppearance == "succubus") || ($assistantAppearance == "incubus") || ($assistantAppearance == "imp")>>
				//With _hisA $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Degradationism|Future Society][$arcologies[0].FSDegradationist = 4, $FSCredits -= 1]]: a belief that slaves are not human and should not be treated decently.
		<<else>>
			/*//''Degradation'': a belief that slaves are not human and should not be treated decently.//*/
		<</if>>
	<</if>>
<</if>>

<<if $arcologies[0].FSTransformationFetishist == "unset">>
	<<if $arcologies[0].FSBodyPurist != "unset">>

''You are pursuing'' societal disapproval of implant surgery.
		//<<link "Abandon" "Future Society">><<run removeFS("FSBodyPurist")>><<if $assistantFSAppearance == "body purist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSBodyPurist">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "amazon") || ($assistantAppearance == "goddess") || ($assistantAppearance == "loli") || ($assistantAppearance == "fairy") || ($assistantAppearance == "pregnant fairy") || ($assistantAppearance == "angel") || ($assistantAppearance == "succubus") || ($assistantAppearance == "incubus") || ($assistantAppearance == "witch")>>
				//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Body Purism|Future Society][$arcologies[0].FSBodyPurist = 4, $FSCredits -= 1]]: societal disapproval of implant surgery.
		<<else>>
			/*//''Body Purism'': societal disapproval of implant surgery.//*/
		<</if>>
	<</if>>
<</if>>

<<if $arcologies[0].FSBodyPurist == "unset">>
	<<if $arcologies[0].FSTransformationFetishist != "unset">>

''You are pursuing'' societal fetishization of implant surgery.
		//<<link "Abandon" "Future Society">><<run removeFS("FSTransformationFetishist")>><<if $assistantFSAppearance == "transformation fetishist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSTransformationFetishist">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "businesswoman") || ($assistantAppearance == "shemale") || ($assistantAppearance == "succubus") || ($assistantAppearance == "incubus") || ($assistantAppearance == "witch") || ($assistantAppearance == "ERROR_1606_APPEARANCE_FILE_CORRUPT")>>
				//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if ($FSCredits > 0)>>

''''[[Transformation Fetishism|Future Society][$arcologies[0].FSTransformationFetishist = 4, $FSCredits -= 1]]: societal fetishization of implant surgery.
		<<else>>
			/*//''Transformation Fetishism'': societal fetishization of implant surgery.//*/
		<</if>>
	<</if>>
<</if>>

<<if $arcologies[0].FSMaturityPreferentialist == "unset">>
	<<if $arcologies[0].FSYouthPreferentialist != "unset">>

''You are pursuing'' an accentuated societal preference for younger slaves.
		//<<link "Abandon" "Future Society">><<run removeFS("FSYouthPreferentialist")>><<if $assistantFSAppearance == "youth preferentialist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSYouthPreferentialist">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "schoolgirl") || ($assistantAppearance == "shemale") || ($assistantAppearance == "preggololi") || ($assistantAppearance == "loli") || ($assistantAppearance == "succubus") || ($assistantAppearance == "angel") || ($assistantAppearance == "cherub") || ($assistantAppearance == "imp") || ($assistantAppearance == "witch")>>
				//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Youth Preferentialism|Future Society][$arcologies[0].FSYouthPreferentialist = 4, $FSCredits -= 1]]: increased interest in girls just past their majority.
		<<else>>
			/*//''Youth Preferentialism'': increased interest in girls just past their majority.//*/
		<</if>>
	<</if>>
<</if>>

<<if $arcologies[0].FSYouthPreferentialist == "unset">>
	<<if $arcologies[0].FSMaturityPreferentialist != "unset">>

''You are pursuing'' a societal preference for older women.
		//<<link "Abandon" "Future Society">><<run removeFS("FSMaturityPreferentialist")>><<if $assistantFSAppearance == "maturity preferentialist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSMaturityPreferentialist">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "businesswoman") || ($assistantAppearance == "goddess") || ($assistantAppearance == "succubus") || ($assistantAppearance == "incubus") || ($assistantAppearance == "witch") || ($assistantAppearance == "angel")>>
				//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Maturity Preferentialism|Future Society][$arcologies[0].FSMaturityPreferentialist = 4, $FSCredits -= 1]]: increased interest in mature slaves.
		<<else>>
			/*//''Maturity Preferentialism'': increased interest in mature slaves.//*/
		<</if>>
	<</if>>
<</if>>

<<if $arcologies[0].FSAssetExpansionist == "unset">>
	<<if $arcologies[0].FSSlimnessEnthusiast != "unset">>

''You are supporting'' enthusiasm for slaves with girlish figures.
		//<<link "Abandon" "Future Society">><<run removeFS("FSSlimnessEnthusiast")>><<if $assistantFSAppearance == "slimness enthusiast">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSSlimnessEnthusiast">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "schoolgirl") || ($assistantAppearance == "shemale") || ($assistantAppearance == "loli") || ($assistantAppearance == "cherub") || ($assistantAppearance == "imp") || ($assistantAppearance == "succubus") || ($assistantAppearance == "witch")>>
				//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Slimness Enthusiasm|Future Society][$arcologies[0].FSSlimnessEnthusiast = 4, $FSCredits -= 1]]: a fashion for slaves with girlish figures.
		<<else>>
			/*//''Slimness Enthusiasm'': a fashion for slaves with girlish figures.//*/
		<</if>>
	<</if>>
<</if>>

<<if $arcologies[0].FSSlimnessEnthusiast == "unset">>
	<<if $arcologies[0].FSAssetExpansionist != "unset">>

''You are pursuing'' societal hunger for huge assets.
		//<<link "Abandon" "Future Society">><<run removeFS("FSAssetExpansionist")>><<if $assistantFSAppearance == "asset expansionist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSAssetExpansionist">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "businesswoman") || ($assistantAppearance == "shemale") || ($assistantAppearance == "hypergoddess") || ($assistantAppearance == "succubus") || ($assistantAppearance == "incubus") || ($assistantAppearance == "witch")>>
				//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Asset Expansionism|Future Society][$arcologies[0].FSAssetExpansionist = 4, $FSCredits -= 1]]: societal hunger for huge assets of whatever origin.
		<<else>>
			/*//''Asset Expansionism'': societal hunger for huge assets of whatever origin.//*/
		<</if>>
	<</if>>
<</if>>

<<if $arcologies[0].FSPastoralist != "unset">>

''You are pursuing'' societal normalization of slave milking.
	//<<link "Abandon" "Future Society">><<run removeFS("FSPastoralist")>><<if $assistantFSAppearance == "pastoralist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

	<<FSChangeDecoration "FSPastoralist" "clothesBoughtWestern">>
	<<if $PAPublic == 1>>
		<<if ($assistantAppearance == "goddess") || ($assistantAppearance == "shemale") || ($assistantAppearance == "hypergoddess") || ($assistantAppearance == "incubus") || ($assistantAppearance == "succubus") || ($assistantAppearance == "witch")>>
			//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
		<</if>>
	<</if>>
<<else>>
	<<if $FSCredits > 0>>

''''[[Slave Pastoralism|Future Society][$arcologies[0].FSPastoralist = 4, $FSCredits -= 1]]: societal acceptance of slave products like milk.
	<<else>>
		/*//''Slave Pastoralism'': societal acceptance of slave products like milk.//*/
	<</if>>
<</if>>

<<if $arcologies[0].FSHedonisticDecadence == "unset">>
	<<if $arcologies[0].FSPhysicalIdealist != "unset">>

''You are pursuing'' societal reverence for the idealized human form, including height, health and muscle.
		//<<link "Abandon" "Future Society">><<run removeFS("FSPhysicalIdealist")>><<if $assistantFSAppearance == "physical idealist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSPhysicalIdealist" "clothesBoughtOil">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "amazon") || ($assistantAppearance == "shemale") || ($assistantAppearance == "incubus") || ($assistantAppearance == "succubus") || ($assistantAppearance == "witch")>>
				//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Physical Idealism|Future Society][$arcologies[0].FSPhysicalIdealist = 4, $FSCredits -= 1]]: societal reverence for the idealized human form, including height, health and muscle.
		<<else>>
			/*//''Physical Idealism'': societal reverence for the idealized human form, including height, health and muscle.//*/
		<</if>>
	<</if>>
<</if>>

<<if $arcologies[0].FSPhysicalIdealist == "unset">>
	<<if $arcologies[0].FSHedonisticDecadence != "unset">>

''You are pursuing'' societal normalization of overindulgence and immediate gratification. Be it food, drink, sex, drugs or whatever one's desire may be.
		//<<link "Abandon" "Future Society">><<run removeFS("FSHedonisticDecadence")>><<if $assistantFSAppearance == "hedonistic decadence">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSHedonisticDecadence">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "goddess") || ($assistantAppearance == "hypergoddess") || ($assistantAppearance == "preggololi") || ($assistantAppearance == "imp") || ($assistantAppearance == "incubus") || ($assistantAppearance == "succubus") || ($assistantAppearance == "witch")>>
				//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Hedonistic Decadence|Future Society][$arcologies[0].FSHedonisticDecadence = 4, $FSCredits -= 1]]: societal acceptance of overindulgence and immediate gratification. Be it food, drink, sex, drugs or whatever one's desire may be.
		<<else>>
			/*//''HedonisticDecadence'': societal acceptance of over indulgence, particularly of food, drink, sex and drugs.//*/
		<</if>>
	<</if>>
<</if>>

<<if $arcologies[0].FSNull == "unset">>
	<<if $arcologies[0].FSChattelReligionist != "unset">>

''You are pursuing'' a new strain of religion that emphasizes the slaveholding portions of religious history.
		//<<link "Abandon" "Future Society">><<run removeFS("FSChattelReligionist")>><<if $assistantFSAppearance == "chattel religionist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSChattelReligionist" "clothesBoughtHabit">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "goddess") || ($assistantAppearance == "monstergirl") || ($assistantAppearance == "incubus") || ($assistantAppearance == "succubus") || ($assistantAppearance == "witch") || ($assistantAppearance == "angel") || ($assistantAppearance == "cherub") || ($assistantAppearance == "imp")>>
				//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Chattel Religionism|Future Society][$arcologies[0].FSChattelReligionist = 4, $FSCredits -= 1]]: a new strain of religion that emphasizes the slaveholding portions of religious history.
		<<else>>
			/*//''Chattel Religionism'': a new strain of religion that emphasizes the slaveholding portions of religious history.//*/
		<</if>>
	<</if>>
<</if>>

<<if ($arcologies[0].FSAztecRevivalist == "unset") && ($arcologies[0].FSEgyptianRevivalist == "unset") && ($arcologies[0].FSEdoRevivalist == "unset") && ($arcologies[0].FSArabianRevivalist == "unset") && ($arcologies[0].FSChineseRevivalist == "unset")>>
	<<if $arcologies[0].FSRomanRevivalist != "unset">>

''You are pursuing'' a vision of a new Rome.
		//<<link "Abandon" "Future Society">><<run removeFS("FSRomanRevivalist")>><<if $assistantFSAppearance == "roman revivalist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSRomanRevivalist" "clothesBoughtToga">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "businesswoman") || ($assistantAppearance == "amazon") || ($assistantAppearance == "incubus") || ($assistantAppearance == "succubus")>>
				//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Roman Revivalism|Future Society][$arcologies[0].FSRomanRevivalist = 4, $FSCredits -= 1]]: a vision of a new Rome.
		<<else>>
			/*//''Roman Revivalism'': a vision of a new Rome.//*/
		<</if>>
	<</if>>
<</if>>

<<if ($arcologies[0].FSRomanRevivalist == "unset") && ($arcologies[0].FSEgyptianRevivalist == "unset") && ($arcologies[0].FSEdoRevivalist == "unset") && ($arcologies[0].FSArabianRevivalist == "unset") && ($arcologies[0].FSChineseRevivalist == "unset")>>
	<<if $arcologies[0].FSAztecRevivalist != "unset">>

''You are pursuing'' a vision of a new Aztec Empire.
		//<<link "Abandon" "Future Society">><<run removeFS("FSAztecRevivalist")>><<if $assistantFSAppearance == "aztec revivalist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSAztecRevivalist" "clothesBoughtHuipil">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "goddess") || ($assistantAppearance == "amazon") || ($assistantAppearance == "incubus") || ($assistantAppearance == "succubus")>>
				//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Aztec Revivalism|Future Society][$arcologies[0].FSAztecRevivalist = 4, $FSCredits -= 1]]: a vision of a new Aztec Empire.
		<<else>>
			/*//''Aztec Revivalism'': a vision of a new Aztec Empire.//*/
		<</if>>
	<</if>>
<</if>>

<<if ($arcologies[0].FSRomanRevivalist == "unset") && ($arcologies[0].FSAztecRevivalist == "unset") && ($arcologies[0].FSEdoRevivalist == "unset") && ($arcologies[0].FSArabianRevivalist == "unset") && ($arcologies[0].FSChineseRevivalist == "unset")>>
	<<if $arcologies[0].FSEgyptianRevivalist != "unset">>

''You are pursuing'' a vision of Pharaoh's Egypt.
		//<<link "Abandon" "Future Society">><<run removeFS("FSEgyptianRevivalist")>><<if $assistantFSAppearance == "egyptian revivalist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSEgyptianRevivalist" "clothesBoughtEgypt">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "goddess") || ($assistantAppearance == "monstergirl") || ($assistantAppearance == "incubus") || ($assistantAppearance == "succubus")>>
				//With _hisA $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Egyptian Revivalism|Future Society][$arcologies[0].FSEgyptianRevivalist = (4+$arcologies[0].FSEgyptianRevivalistInterest), $FSCredits -= 1, $arcologies[0].FSEgyptianRevivalistIncestPolicy = 0]]: a vision of a Pharaoh's Egypt.
		<<else>>
			/*//''Egyptian Revivalism'': a vision of Pharaoh's Egypt.//*/
		<</if>>
	<</if>>
<</if>>

<<if ($arcologies[0].FSRomanRevivalist == "unset") && ($arcologies[0].FSAztecRevivalist == "unset") && ($arcologies[0].FSEgyptianRevivalist == "unset") && ($arcologies[0].FSArabianRevivalist == "unset") && ($arcologies[0].FSChineseRevivalist == "unset")>>
	<<if $arcologies[0].FSEdoRevivalist != "unset">>

''You are pursuing'' a vision of Edo Japan.
		//<<link "Abandon" "Future Society">><<run removeFS("FSEdoRevivalist")>><<if $assistantFSAppearance == "edo revivalist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSEdoRevivalist" "clothesBoughtKimono">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "amazon") || ($assistantAppearance == "monstergirl") || ($assistantAppearance == "loli") || ($assistantAppearance == "kitsune") || ($assistantAppearance == "incubus") || ($assistantAppearance == "succubus")>>
				//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Edo Revivalism|Future Society][$arcologies[0].FSEdoRevivalist = 4, $FSCredits -= 1]]: a vision of Edo Japan.
		<<else>>
			/*//''Edo Revivalism'': a vision of Edo Japan.//*/
		<</if>>
	<</if>>
<</if>>

<<if ($arcologies[0].FSRomanRevivalist == "unset") && ($arcologies[0].FSAztecRevivalist == "unset") && ($arcologies[0].FSEgyptianRevivalist == "unset") && ($arcologies[0].FSEdoRevivalist == "unset") && ($arcologies[0].FSChineseRevivalist == "unset")>>
	<<if $arcologies[0].FSArabianRevivalist != "unset">>

''You are pursuing'' a vision of the Sultanate of old.
		//<<link "Abandon" "Future Society">><<run removeFS("FSArabianRevivalist")>><<if $assistantFSAppearance == "arabian revivalist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSArabianRevivalist" "clothesBoughtHarem">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "businesswoman") || ($assistantAppearance == "schoolgirl") || ($assistantAppearance == "incubus") || ($assistantAppearance == "succubus")>>
				//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Arabian Revivalism|Future Society][$arcologies[0].FSArabianRevivalist = 4, $FSCredits -= 1]]: a vision of the Sultanate of old.
		<<else>>
			/*//''Arabian Revivalism'': a vision of the Sultanate of old.//*/
		<</if>>
	<</if>>
<</if>>

<<if ($arcologies[0].FSRomanRevivalist == "unset") && ($arcologies[0].FSAztecRevivalist == "unset") && ($arcologies[0].FSEgyptianRevivalist == "unset") && ($arcologies[0].FSEdoRevivalist == "unset") && ($arcologies[0].FSArabianRevivalist == "unset")>>
	<<if $arcologies[0].FSChineseRevivalist != "unset">>

''You are pursuing'' a vision of ancient China.
		//<<link "Abandon" "Future Society">><<run removeFS("FSChineseRevivalist")>><<if $assistantFSAppearance == "chinese revivalist">><<set $assistantFSAppearance = "default">><</if>><<ClearFacilityDecorations>><</link>>//

		<<FSChangeDecoration "FSChineseRevivalist" "clothesBoughtQipao">>
		<<if $PAPublic == 1>>
			<<if ($assistantAppearance == "schoolgirl") || ($assistantAppearance == "monstergirl") || ($assistantAppearance == "incubus") || ($assistantAppearance == "succubus")>>
				//With her $assistantAppearance appearance, $assistantName is a good public mascot for this goal.//
			<</if>>
		<</if>>
	<<else>>
		<<if $FSCredits > 0>>

''''[[Chinese Revivalism|Future Society][$arcologies[0].FSChineseRevivalist = 4, $FSCredits -= 1]]: a vision of ancient China.
		<<else>>
			/*//''Chinese Revivalism'': a vision of ancient China.//*/
		<</if>>
	<</if>>
<</if>>

<<if $arcologies[0].FSChattelReligionist == "unset">>
	<<if $FSCreditCount == 4>>
		<<if $arcologies[0].FSNull != "unset">>

''You are permitting <<if $arcologies[0].FSNull <= 25>>basic<<elseif $arcologies[0].FSNull <= 50>>considerable<<elseif $arcologies[0].FSNull <= 75>>advanced<<else>>absolute<</if>>'' cultural freedom in your arcology.
			<<if $arcologies[0].FSNull <= 25>>
				//[[Abandon|Future Society][removeFS("FSNull")]]//
			<<else>>
				//[[Withdraw|Future Society][$arcologies[0].FSNull -= 25, $FSCredits += 1]]//
			<</if>>
			<<if $FSCredits > 0>>
				<<if $arcologies[0].FSNull < $FSLockinLevel>>

    [[Advance|Future Society][$arcologies[0].FSNull += 25, $FSCredits -= 1]]: further commitment to allow your arcology's citizens cultural freedom.
				<</if>>
			<</if>>
		<<else>>
			<<if $FSCredits > 0>>

[[Multiculturalism|Future Society][$arcologies[0].FSNull = 25, $FSCredits -= 1]]: a commitment to allow your arcology's citizens cultural freedom.

    //This option is an alternative to societal advancement, and will not advance naturally.//
			<</if>>
		<</if>>
	<<elseif $FSCreditCount == 6>>
		<<if $arcologies[0].FSNull != "unset">>

''You are permitting <<if $arcologies[0].FSNull <= 17>>basic<<elseif $arcologies[0].FSNull <= 34>>some<<elseif $arcologies[0].FSNull <= 51>>considerable<<elseif $arcologies[0].FSNull <= 68>>great<<elseif $arcologies[0].FSNull <= 85>>advanced<<else>>absolute<</if>>'' cultural freedom in your arcology.
			<<if $arcologies[0].FSNull <= 20>>
				//[[Abandon|Future Society][removeFS("FSNull")]]//
			<<else>>
				//[[Withdraw|Future Society][$arcologies[0].FSNull -= 17, $FSCredits += 1]]//
			<</if>>
			<<if $FSCredits > 0>>
				<<if $arcologies[0].FSNull < $FSLockinLevel>>

    [[Advance|Future Society][$arcologies[0].FSNull += 17, $FSCredits -= 1]]: further commitment to allow your arcology's citizens cultural freedom.
				<</if>>
			<</if>>
		<<else>>
			<<if $FSCredits > 0>>

[[Multiculturalism|Future Society][$arcologies[0].FSNull = 17, $FSCredits -= 1]]: a commitment to allow your arcology's citizens cultural freedom.

    //This option is an alternative to societal advancement, and will not advance naturally.//
			<</if>>
		<</if>>
	<<elseif $FSCreditCount == 7>>
		<<if $arcologies[0].FSNull != "unset">>

''You are permitting <<if $arcologies[0].FSNull <= 15>>basic<<elseif $arcologies[0].FSNull <= 30>>some<<elseif $arcologies[0].FSNull <= 45>>notable<<elseif $arcologies[0].FSNull <= 60>>considerable<<elseif $arcologies[0].FSNull <= 75>>great<<elseif $arcologies[0].FSNull <= 90>>advanced<<else>>absolute<</if>>'' cultural freedom in your arcology.
			<<if $arcologies[0].FSNull <= 20>>
				//[[Abandon|Future Society][removeFS("FSNull")]]//
			<<else>>
				//[[Withdraw|Future Society][$arcologies[0].FSNull -= 15, $FSCredits += 1]]//
			<</if>>
			<<if $FSCredits > 0>>
				<<if $arcologies[0].FSNull < $FSLockinLevel>>

    [[Advance|Future Society][$arcologies[0].FSNull += 15, $FSCredits -= 1]]: further commitment to allow your arcology's citizens cultural freedom.
				<</if>>
			<</if>>
		<<else>>
			<<if $FSCredits > 0>>

[[Multiculturalism|Future Society][$arcologies[0].FSNull = 15, $FSCredits -= 1]]: a commitment to allow your arcology's citizens cultural freedom.

    //This option is an alternative to societal advancement, and will not advance naturally.//
			<</if>>
		<</if>>
	<<else>>
		<<if $arcologies[0].FSNull != "unset">>

''You are permitting <<if $arcologies[0].FSNull <= 20>>basic<<elseif $arcologies[0].FSNull <= 40>>considerable<<elseif $arcologies[0].FSNull <= 60>>great<<elseif $arcologies[0].FSNull <= 80>>advanced<<else>>absolute<</if>>'' cultural freedom in your arcology.
			<<if $arcologies[0].FSNull <= 20>>
				//[[Abandon|Future Society][removeFS("FSNull")]]//
			<<else>>
				//[[Withdraw|Future Society][$arcologies[0].FSNull -= 20, $FSCredits += 1]]//
			<</if>>
			<<if $FSCredits > 0>>
				<<if $arcologies[0].FSNull < $FSLockinLevel>>

    [[Advance|Future Society][$arcologies[0].FSNull += 20, $FSCredits -= 1]]: further commitment to allow your arcology's citizens cultural freedom.
				<</if>>
			<</if>>
		<<else>>
			<<if $FSCredits > 0>>

[[Multiculturalism|Future Society][$arcologies[0].FSNull = 20, $FSCredits -= 1]]: a commitment to allow your arcology's citizens cultural freedom.

    //This option is an alternative to societal advancement, and will not advance naturally.//
			<</if>>
		<</if>>
	<</if>>
<</if>>

/* FACILITY REDECORATION */
<<if $brothel > 0>>
	<<run ValidateFacilityDecoration("brothelDecoration")>>

$brothelNameCaps is decorated in $brothelDecoration style.
	<<SetFacilityDecoration "brothelDecoration">>
<</if>>

<<if $club > 0>>
	<<run ValidateFacilityDecoration("clubDecoration")>>

$clubNameCaps is decorated in $clubDecoration style.
	<<SetFacilityDecoration "clubDecoration">>
<</if>>

<<if $dairy > 0>>
	<<run ValidateFacilityDecoration("dairyDecoration")>>

$dairyNameCaps is decorated in $dairyDecoration style.
	<<SetFacilityDecoration "dairyDecoration">>
<</if>>

<<if $farmyard > 0>>
	<<run ValidateFacilityDecoration("farmyardDecoration")>>

$farmyardNameCaps is decorated in $farmyardDecoration style.
	<<SetFacilityDecoration "farmyardDecoration">>
<</if>>

<<if $spa > 0>>
	<<run ValidateFacilityDecoration("spaDecoration")>>

$spaNameCaps is decorated in $spaDecoration style.
	<<SetFacilityDecoration "spaDecoration">>
<</if>>

<<if $nursery > 0>>
	<<run ValidateFacilityDecoration("nurseryDecoration")>>

$nurseryNameCaps is decorated in $nurseryDecoration style.
	<<SetFacilityDecoration "nurseryDecoration">>
<</if>>

<<if $clinic > 0>>
	<<run ValidateFacilityDecoration("clinicDecoration")>>

$clinicNameCaps is decorated in $clinicDecoration style.
	<<SetFacilityDecoration "clinicDecoration">>
<</if>>

<<if $schoolroom > 0>>
	<<run ValidateFacilityDecoration("schoolroomDecoration")>>

$schoolroomNameCaps is decorated in $schoolroomDecoration style.
	<<SetFacilityDecoration "schoolroomDecoration">>
<</if>>

<<if $cellblock > 0>>
	<<run ValidateFacilityDecoration("cellblockDecoration")>>

$cellblockNameCaps is decorated in $cellblockDecoration style.
	<<SetFacilityDecoration "cellblockDecoration">>
<</if>>

<<if $servantsQuarters > 0>>
	<<run ValidateFacilityDecoration("servantsQuartersDecoration")>>

$servantsQuartersNameCaps is decorated in $servantsQuartersDecoration style.
	<<SetFacilityDecoration "servantsQuartersDecoration">>
<</if>>

<<if $arcade > 0>>
	<<run ValidateFacilityDecoration("arcadeDecoration")>>

$arcadeNameCaps is decorated in $arcadeDecoration style.
	<<SetFacilityDecoration "arcadeDecoration">>
<</if>>

<<if $masterSuite > 0>>
	<<run ValidateFacilityDecoration("masterSuiteDecoration")>>

$masterSuiteNameCaps is decorated in $masterSuiteDecoration style.
	<<SetFacilityDecoration "masterSuiteDecoration">>
<</if>>


code:
:: Generate New Slave [nobr]

<<run GenerateNewSlave()>>

repo_name: Echoart/fc


code:
:: Generate XX Slave [nobr]

<<run GenerateNewSlave("XX")>>


code:
:: Generate XY Slave [nobr]

<<run GenerateNewSlave("XY")>>


code:
:: Growth Research Institute [nobr]

<<set $nextButton = "Back", $nextLink = "Buy Slaves", $returnTo = "Buy Slaves", $showEncyclopedia = 1, $encyclopedia = "Slave Schools">>
/* Multi-Purchase Support */
<<if ndef $newSlaves>><<set $newSlaves = []>><</if>>
<<if $newSlaves.length > 0>>
	<<set $nextButton = "Continue", $nextLink = "Bulk Slave Intro", $slaveMarket = "GRI", $returnTo = "Main", $newSlaveIndex = 0>>
<</if>>

//The Growth Research Institute (GRI) is not primarily a slave school at all, but rather the world leader in female growth hormone development. It operates research centers in the Free Cities to avoid traditional medical research laws. GRI runs several slave schools to raise healthy, unmodified subjects for use in trials. After a year of experimental hormone treatment they are sold. <<if $GRI.schoolUpgrade != 0>>

You have endowed <<if $GRI.schoolUpgrade == 1>>a research focus on advanced curatives; most subjects now leave the GRI at unnatural levels of vitality.<<else>>a research focus on milk production; subjects' breasts are bigger and milkier than ever.<</if>> As a major <<if $PC.title == 0>>benefactrix<<else>>benefactor<</if>> of the institution, you also receive a discount on them.<</if>>//

GRI offers a fresh graduate for inspection via video call. The interview takes place in the graduate's bare-metal holding cell. Disturbingly, it is strongly reminiscent of an enclosure for a lab animal, only scaled up to contain a lab animal of human dimensions.

<<GenerateMarketSlave "GRI">>
<<slaveCost $activeSlave>>
<<setLocalPronouns $activeSlave>>
<<if $GRI.schoolSale != 0>>
	<<set $slaveCost = Math.trunc($slaveCost*0.5)>>
<<elseif $GRI.schoolUpgrade != 0>>
	<<set $slaveCost = Math.trunc($slaveCost*0.8)>>
<</if>>
<<if $slavesSeen > $slaveMarketLimit>><<set $slaveCost += Math.trunc($slaveCost*(($slavesSeen-$slaveMarketLimit)*0.1))>><</if>>

The price is <<print cashFormat($slaveCost)>>.<<if $slavesSeen > $slaveMarketLimit>> You have cast such a wide net for slaves this week that it is becoming more expensive to find more for sale. Your reputation helps determine your reach within the slave market.<</if>>

<<setLocalPronouns $activeSlave>>
<<buyingFromSchoolControls $GRI "slave" "slaves">>


code:
:: Head Girl Suite [nobr]

<<set $nextButton = "Back to Main", $nextLink = "Main", $returnTo = "Head Girl Suite", $showEncyclopedia = 1, $encyclopedia = "Head Girl Suite", $HGSuiteSlaves = $HGSuiteiIDs.length, _SL = $slaves.length>>

<<if $HGSuiteName != "the Head Girl Suite">>
	<<set $HGSuiteNameCaps = $HGSuiteName.replace("the ", "The ")>>
<</if>>
<<headgirlSuiteAssignmentFilter>>
<<set _i = $slaves.findIndex(function(s) { return s.assignment == "live with your Head Girl"; })>>

<<if $HeadGirl == 0>>
	You have no Head Girl appointed to live in $HGSuiteName.
<<elseif $HGSuiteSlaves > 0>>
	<<setLocalPronouns $HeadGirl>>
	Your Head Girl $HeadGirl.slaveName has $slaves[_i].slaveName living in $HGSuiteName with $him, as $his servant, assistant, and sexual appliance.
<<else>>
	<<setLocalPronouns $HeadGirl>>
	Your Head Girl $HeadGirl.slaveName lives alone in $his handsome suite.
<</if>>

//Any slave assigned to live with your Head Girl will become, for most practical purposes, $his slave.//

<<if $HGSuiteEquality == 1>>
	The two slaves living in $HGSuiteName are ''equals,'' and will alternate weeks as Head Girl and Head Girl's bitch. [[Stop|Head Girl Suite][$HGSuiteEquality = 0]]
<<else>>
	The current Head Girl will ''remain Head Girl.'' [[Have them alternate|Head Girl Suite][$HGSuiteEquality = 1,$HGSuiteSurgery = 0,$HGSuiteDrugs = 0,$HGSuiteHormones = 0]] //This will only take effect if the other girl is an appropriate candidate//

	<<if $HGSuiteSurgery == 1>>
	$He is ''allowed'' to use surgical modification on $his slave. [[Disallow|Head Girl Suite][$HGSuiteSurgery = 0]]
	<<else>>
	$He is ''not allowed'' to use surgical modification on $his slave. [[Allow|Head Girl Suite][$HGSuiteSurgery = 1]]
	<</if>>

	<<if $HGSuiteDrugs == 1>>
	$He is ''allowed'' to use growth hormones on $his slave. [[Disallow|Head Girl Suite][$HGSuiteDrugs = 0]]
	<<else>>
	$He is ''not allowed'' to use growth hormones on $his slave. [[Allow|Head Girl Suite][$HGSuiteDrugs = 1]]
	<</if>>

	<<if $HGSuiteHormones == 1>>
	$He is ''allowed'' to customize $his slave with hormone treatments. [[Disallow|Head Girl Suite][$HGSuiteHormones = 0]]
	<<else>>
	$He is ''not allowed'' to customize $his slave with hormone treatments. [[Allow|Head Girl Suite][$HGSuiteHormones = 1]]
	<</if>>
<</if>>

<<if $HGSuiteSlaves > 0>>

''Bring the Head Girl's girl out of $HGSuiteName:''
	<<headgirlSuiteAssignmentFilter>>
	<<set $Flag = 1>>
	<<include "Slave Summary">>
	<<resetAssignmentFilter>>
<</if>>

<<if ($slaves.length > $HGSuiteSlaves) && ($HGSuiteSlaves < 1)>>

''Assign a slave to the Head Girl:''

	<<assignmentFilter>>

		<<resetAssignmentFilter>>
		<<set $Flag = 0>>
		<<include "Slave Summary">>

<</if>>

Rename $HGSuiteName: <<textbox "$HGSuiteName" $HGSuiteName "Head Girl Suite">> //Use a noun or similar short phrase//


code:
:: HG Application [nobr]

<<setLocalPronouns $HeadGirl>>
<<setLocalPronouns $activeSlave 2>>

<<if ndef $HGSeverity>>
	<<set $HGSeverity = 0>>
<</if>>

<<set $activeSlave.training = Math.clamp($activeSlave.training, 0, 150)>>
<<set _effectiveness = $HeadGirl.actualAge+(($HeadGirl.intelligence+$HeadGirl.intelligenceImplant)/3)-($HeadGirl.accent*5)+($HGSeverity*10)+(($activeSlave.intelligence+$activeSlave.intelligenceImplant)/4)-($activeSlave.accent*5)>>
<<if $AgePenalty == 0>>
	<<set _effectiveness += Math.max(0,(30-$HeadGirl.actualAge))>>
<</if>>
<<if $HeadGirl.sexualFlaw == "abusive" && $HGSeverity >= 0>>
	<<set _effectiveness += 10>>
<</if>>
<<set $activeSlave.tired = 1>>

    ''Your Head Girl __@@.pink;$HeadGirl.slaveName@@__'' notices that ''__@@.pink;$activeSlave.slaveName@@__''
<<switch $HGtraining>>
<<case "health">>
	is unwell.
<<case "obedience">>
	is disobedient.
<<case "paraphilia">>
	has a paraphilia.
<<case "flaw">>
	has an unpleasant flaw worth fixing.
<<case "soften">>
	has an unpleasant flaw that $he can try to soften into a unique quirk.
<<case "oral skill">>
	isn't as orally skilled as $he is.
<<case "anal skill">>
	isn't as skilled at taking anal as $he is.
<<case "fuck skill">>
	isn't as skilled at vaginal intercourse as $he is.
<<case "whore skill">>
	isn't as skilled at the fine art of sex for money as $he is.
<<case "entertain skill">>
	isn't as skilled at entertainment as $he is.
<</switch>>

<<if $HGtraining == "health">>

$He helps $activeSlave.slaveName however $he can. The tender care has @@.green;improved $activeSlave.slaveName's health.@@
<<set $activeSlave.health += 10>>
<<set $activeSlave.training = 0>>

<<else>>

<<if $HeadGirl.career == "an arcology owner">>
	$He was once an arcology owner $himself, making $him truly peerless as a Head Girl.
	<<set _effectiveness += 50>>
<<elseif setup.HGCareers.includes($HeadGirl.career)>>
	$He was used to giving commands and being obeyed in $his life before $he was a slave, experience $he can call on now.
	<<set _effectiveness += 5>>
<<elseif $HeadGirl.skillHG >= $masteredXP>>
	$He is used to giving commands and being obeyed through experience, rendering $him more effective.
	<<set _effectiveness += 5>>
<</if>>

<<if $HeadGirl.actualAge > 30>>
	$His age and experience help $him as $he works with $activeSlave.slaveName.
<<elseif $HeadGirl.actualAge < 25 && $AgePenalty > 0>>
	$His youth and inexperience impede $him as $he works with $activeSlave.slaveName.
<</if>>

<<if $HeadGirl.accent >= 3>>
	$He does $his best to give orders in $language, but has to resort to a lot of unseemly gesticulation and shouting, making $him much less effective.
<<elseif $HeadGirl.accent == 2>>
	$His heavy $HeadGirl.nationality accent impedes $his clarity in $language, making $him somewhat less effective.
<</if>>

<<if ($HGtraining == "obedience") || ($HGtraining == "flaw") || ($HGtraining == "soften")>>
	<<if $HeadGirl.intelligence+$HeadGirl.intelligenceImplant > 50>>
		<<if $activeSlave.intelligence+$activeSlave.intelligenceImplant > 50>>
			$He needs $his wits about $him to mold $activeSlave.slaveName, who's quite intelligent _himself2.
		<<elseif $activeSlave.intelligence+$activeSlave.intelligenceImplant >= -50>>
			$His intelligence helps $him mold $activeSlave.slaveName.
		<<else>>
			Molding $activeSlave.slaveName is very easy, especially for a smart Head Girl like $him.
		<</if>>
	<</if>>
<<else>>
	<<if $HeadGirl.intelligence+$HeadGirl.intelligenceImplant > 50>>
		<<if $activeSlave.intelligence+$activeSlave.intelligenceImplant > 50>>
			Both slaves are quite intelligent, making $his job much easier.
		<<elseif $activeSlave.intelligence+$activeSlave.intelligenceImplant >= -50>>
			$He's quite intelligent and can teach $activeSlave.slaveName well.
		<<else>>
			$He needs all $his considerable intelligence to get through to the idiot $he has to teach.
		<</if>>
	<</if>>
<</if>>

<<if $HGSeverity > 0>>
	Your directives encourage $him to rape any slave that fails in the slightest way, a task $he approaches
	<<if $HeadGirl.sexualFlaw == "abusive">>
		eagerly, since $he prefers to take $his pleasure without consent.
	<<elseif $HeadGirl.fetish == "sadist">>
		with sadistic enthusiasm.
	<<elseif $HeadGirl.fetish == "dom">>
		with confidence.
	<<elseif $HeadGirl.energy > 95>>
		as a convenient way to
		<<if ($HeadGirl.balls > 0)>>
			drain $his perpetually overfilled balls into a series of spasming holes.
		<<else>>
			sate $his excess sexual appetite.
		<</if>>
	<<else>>
		dutifully.
	<</if>>
	<<if $activeSlave.vagina == 0>>
		In $activeSlave.slaveName's case, $he's careful to limit _his2 sexual abuse to things that won't take the _girl2's virginity. The slave
	<<elseif $activeSlave.anus == 0>>
		$He's careful to molest $activeSlave.slaveName in ways that don't involve penetrating _his2 virgin ass. The slave
	<<else>>
		$activeSlave.slaveName
	<</if>>
	<<if $activeSlave.devotion > 50>>
		accepts the abuse, believing _he2 deserves to be raped.
	<<elseif $activeSlave.devotion >= -20>>
		is @@.gold;frightened@@ by the unceasing abuse.
		<<set $activeSlave.trust -= 1>>
	<<else>>
		@@.mediumorchid;hates@@ and @@.gold;fears@@ the constant abuse.
		<<set $activeSlave.trust -= 1>>
		<<set $activeSlave.devotion -= 1>>
	<</if>>
	$HeadGirl.slaveName makes sure $his victim hates it, every time, and $activeSlave.slaveName can't help but do _his2 very best to avoid this treatment.
<<elseif $HGSeverity == 0>>
	You allow $him to use $his own judgment when punishing failures,
	<<if $HeadGirl.sexualFlaw == "abusive">>
		and $he usually decides in favor of forcing misbehaving slaves to get $him off.
	<<elseif $HeadGirl.fetish == "sadist">>
		permission the sadist uses for $his own gratification.
	<<elseif $HeadGirl.fetish == "dom">>
		which the dominant $girl uses confidently.
	<<elseif $HeadGirl.energy > 95>>
		which $he uses to
		<<if ($HeadGirl.balls > 0)>>
			force $his subordinates to keep $his balls drained.
		<<else>>
			extract the constant sexual favors $his libido demands.
		<</if>>
	<<else>>
		and $he does $his best to be fair.
	<</if>>
	$activeSlave.slaveName
	<<if $activeSlave.devotion > 50>>
		is @@.mediumaquamarine;grateful@@ that _he2 is punished justly when _he2 makes mistakes.
		<<set $activeSlave.trust += 1>>
	<<elseif $activeSlave.devotion >= -20>>
		does _his2 best to learn quickly and avoid punishment.
	<<else>>
		is @@.gold;scared@@ by _his2 inability to get away with the smallest disobedience.
		<<set $activeSlave.trust -= 1>>
	<</if>>
<<else>>
	You require $him to use respect when punishing; $he does $his best to motivate, but is unable to use real fear as a tool. $activeSlave.slaveName understands this, and @@.mediumaquamarine;trusts@@ that if _he2 fails, the consequences won't be too awful.
	<<set $activeSlave.trust += 1>>
<</if>>

<<if $HGtraining == "obedience">>

<<set $activeSlave.training = 0>>
<<set _effectiveness -= ($activeSlave.intelligence+$activeSlave.intelligenceImplant)/3>>
<<if _effectiveness <= 0>>
	$activeSlave.slaveName is smart enough to complicate things; _he2 manages to outwit $him this week and makes no progress.
<<else>>
	<<set $activeSlave.devotion += Math.ceil(_effectiveness/4)>>
	<<if $activeSlave.devotion < -50>>
		$He helps watch and restrain the rebellious $activeSlave.slaveName, helping wear _him2 down, @@.gold;breaking $activeSlave.slaveName's rebelliousness.@@
	<<elseif $activeSlave.devotion < -20>>
		$He keeps $activeSlave.slaveName constantly aware of _his2 slavery, @@.gold;breaking $activeSlave.slaveName's resistance.@@
	<<else>>
		$He acts as another pair of eyes watching $activeSlave.slaveName and metes out punishments, @@.gold;improving $activeSlave.slaveName's servitude.@@
	<</if>>
<</if>>

<<elseif $HGtraining == "paraphilia">>

<<set _effectiveness -= ($activeSlave.intelligence+$activeSlave.intelligenceImplant)/3>>
<<set $activeSlave.training += _effectiveness>>
$HeadGirl.slaveName does $his best to get $activeSlave.slaveName past it with punishments and rewards,
<<if $activeSlave.training > 100>>
	and @@.green;resolves $activeSlave.slaveName's paraphilia.@@
	<<set $activeSlave.training = 0>>
	<<set $activeSlave.sexualFlaw = "none">>
<<else>>
	and makes partial progress.
<</if>>

<<elseif $HGtraining == "flaw">>

<<set _effectiveness -= ($activeSlave.intelligence+$activeSlave.intelligenceImplant)/3>>
<<set $activeSlave.training += _effectiveness>>
$HeadGirl.slaveName punishes $activeSlave.slaveName whenever $he catches _him2 indulging in _his2 bad habits,
<<if $activeSlave.training > 100>>
	and @@.green;fixes $activeSlave.slaveName's flaw.@@
	<<set $activeSlave.training = 0>>
	<<if $activeSlave.behavioralFlaw != "none">>
		<<set $activeSlave.behavioralFlaw = "none">>
	<<elseif $activeSlave.sexualFlaw != "none">>
		<<set $activeSlave.sexualFlaw = "none">>
	<</if>>
<<else>>
	and makes partial progress.
<</if>>

<<elseif $HGtraining == "soften">>

<<set _effectiveness -= ($activeSlave.intelligence+$activeSlave.intelligenceImplant)/3>>
<<set $activeSlave.training += _effectiveness>>
$He punishes $activeSlave.slaveName whenever $he sees _him2 breaking the rules yet does $his best to retain what makes the slave special,
<<if $activeSlave.training > 150>>
	<<set $activeSlave.training = 0>>
	and successfully @@.green;softens $activeSlave.slaveName's flaw.@@
	<<if $activeSlave.behavioralFlaw != "none">>
		<<run SoftenBehavioralFlaw($activeSlave)>>
	<<elseif $activeSlave.sexualFlaw != "none">>
		<<run SoftenSexualFlaw($activeSlave)>>
	<</if>>
<<else>>
	and makes partial progress.
<</if>>

<<elseif $HGtraining == "oral skill">>

<<set $activeSlave.training = 0>>
<<if ($HeadGirl.fetish == "cumslut") && ($HeadGirl.fetishStrength > 60)>>
	In spare moments $he teaches $activeSlave.slaveName how to suck cocks, cunts, and assholes. $His enthusiasm for oral sex is infectious. $activeSlave.slaveName's @@.green;oral skills have improved.@@
	<<set $skillIncrease = random(5,10)>><<OralSkillIncrease $activeSlave>>
<<elseif ($HeadGirl.dick > 0) && canPenetrate($HeadGirl)>>
	In spare moments $he teaches $activeSlave.slaveName how to suck cocks, cunts, and assholes. Your Head Girl uses $his penis as an effective teaching tool. $activeSlave.slaveName's @@.green;oral skills have improved.@@
	<<set $skillIncrease = random(5,10)>><<OralSkillIncrease $activeSlave>>
<<elseif ($HeadGirl.clit > 2)>>
	In spare moments $he teaches $activeSlave.slaveName how to suck cocks, cunts, and assholes. Your Head Girl uses $his pseudophallus-sized clit as an effective teaching tool. $activeSlave.slaveName's @@.green;oral skills have improved.@@
	<<set $skillIncrease = random(5,10)>><<OralSkillIncrease $activeSlave>>
<<else>>
	In spare moments $he teaches $activeSlave.slaveName how to suck cocks, cunts, and assholes. $activeSlave.slaveName's @@.green;oral skills have improved.@@
<</if>>
<<set $skillIncrease = Math.ceil(_effectiveness/10)>><<OralSkillIncrease $activeSlave>>

<<elseif $HGtraining == "anal skill">>

<<set $activeSlave.training = 0>>
<<if ($HeadGirl.fetish == "buttslut") && ($HeadGirl.fetishStrength > 60)>>
	In spare moments $he teaches $activeSlave.slaveName how to take it up the ass. Your Head Girl's enthusiasm for backdoor loving is infectious. $activeSlave.slaveName's @@.green;anal skills have improved.@@
	<<set $skillIncrease = random(5,10)>><<AnalSkillIncrease $activeSlave>>
<<elseif ($HeadGirl.dick > 0) && canPenetrate($HeadGirl)>>
	In spare moments $he teaches $activeSlave.slaveName how to take a dick up the butt. Your Head Girl uses $his penis as an effective teaching tool. $activeSlave.slaveName's @@.green;anal skills have improved.@@
	<<set $skillIncrease = random(5,10)>><<AnalSkillIncrease $activeSlave>>
<<elseif ($HeadGirl.clit > 2)>>
	In spare moments $he teaches $activeSlave.slaveName how to take a phallus up the butt. Your Head Girl uses $his pseudophallus-sized clit as an effective teaching tool. $activeSlave.slaveName's @@.green;anal skills have improved.@@
	<<set $skillIncrease = random(5,10)>><<AnalSkillIncrease $activeSlave>>
<<else>>
	In spare moments $he teaches $activeSlave.slaveName how to take a dick up the butt. $activeSlave.slaveName's @@.green;anal skills have improved.@@
<</if>>
<<set $skillIncrease = Math.ceil(_effectiveness/10)>><<AnalSkillIncrease $activeSlave>>

<<elseif $HGtraining == "fuck skill">>

<<set $activeSlave.training = 0>>
<<if ($HeadGirl.energy > 95)>>
	In spare moments $he teaches $activeSlave.slaveName how to take a dick. Your Head Girl's enthusiasm for sex is infectious. $activeSlave.slaveName's @@.green;vanilla sex skills have improved.@@
	<<set $skillIncrease = random(5,10)>><<VaginalSkillIncrease $activeSlave>>
<<elseif ($HeadGirl.dick > 0) && canPenetrate($HeadGirl)>>
	In spare moments $he teaches $activeSlave.slaveName how to take a dick. Your Head Girl uses $his penis as an effective teaching tool. $activeSlave.slaveName's @@.green;vanilla sex skills have improved.@@
	<<set $skillIncrease = random(5,10)>><<VaginalSkillIncrease $activeSlave>>
<<elseif ($HeadGirl.clit > 2)>>
	In spare moments $he teaches $activeSlave.slaveName how to take a phallus. Your Head Girl uses $his pseudophallus-sized clit as an effective teaching tool. $activeSlave.slaveName's @@.green;vanilla sex skills have improved.@@
	<<set $skillIncrease = random(5,10)>><<VaginalSkillIncrease $activeSlave>>
<<else>>
	In spare moments $he teaches $activeSlave.slaveName how to take a dick. $activeSlave.slaveName's @@.green;vanilla sex skills have improved.@@
<</if>>
<<set $skillIncrease = Math.ceil(_effectiveness/10)>><<VaginalSkillIncrease $activeSlave>>

<<elseif $HGtraining == "whore skill">>

<<set $activeSlave.training = 0>>
In spare moments $he teaches $activeSlave.slaveName how to prostitute _himself2. $activeSlave.slaveName's @@.green;whoring skills have improved.@@
<<set $skillIncrease = Math.ceil(_effectiveness/10)>><<WhoreSkillIncrease $activeSlave>>

<<elseif $HGtraining == "entertain skill">>

<<set $activeSlave.training = 0>>
<<if ($HeadGirl.fetish == "humiliation") && ($HeadGirl.fetishStrength > 60)>>
	In spare moments $he teaches $activeSlave.slaveName how to entertain. Your Head Girl's enthusiasm for public display is infectious. $activeSlave.slaveName's @@.green;entertainment skills have improved.@@
	<<set $skillIncrease = random(5,10)>><<EntertainSkillIncrease $activeSlave>>
<<else>>
	In spare moments $he teaches $activeSlave.slaveName how to entertain. $activeSlave.slaveName's @@.green;entertainment skills have improved.@@
<</if>>
<<set $skillIncrease = Math.ceil(_effectiveness/10)>><<EntertainSkillIncrease $activeSlave>>

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

<<if ($activeSlave.devotion >= -20)>>
<<if ($activeSlave.attrKnown == 0)>>
	<<set $activeSlave.attrKnown = 1>>
	$HeadGirl.slaveName also investigates the slave's basic sexual orientation, finding that _he2 is
	<<if ($activeSlave.attrXY <= 40)>>
		@@.red;disgusted by men@@
	<<elseif ($activeSlave.attrXY <= 60)>>
		indifferent to men
	<<elseif ($activeSlave.attrXY <= 80)>>
		@@.green;attracted to men@@
	<<else>>
		@@.green;intensely attracted to men@@
	<</if>>
	and
	<<if ($activeSlave.attrXX <= 40)>>
		@@.red;disgusted by women.@@
	<<elseif ($activeSlave.attrXX <= 60)>>
		indifferent to women.
	<<elseif ($activeSlave.attrXX <= 80)>>
		@@.green;attracted to women.@@
	<<else>>
		@@.green;intensely attracted to women.@@
	<</if>>
<</if>>
<</if>>

<<if $activeSlave.devotion >= -20 && $activeSlave.genes == "XY" && $activeSlave.attrXY <= 35>>
	<<set _piercingForbidden = 0>>
	<<for _i = 0; _i < 1; _i++>>
		<<if $activeSlave.earPiercing == 0>>
			<<set $activeSlave.earPiercing = 1>>
			<<run RulesDeconfliction($activeSlave)>>
			<<if $activeSlave.earPiercing != $slaveAfterRA.earPiercing>>
				<<set _piercingForbidden = 1, $activeSlave.earPiercing = 0>>
			<<else>>
				$HeadGirl.slaveName knows that $activeSlave.slaveName needs help adjusting to life as a slave _girl2, so $he has the slave's ears pierced. A little feminine touch can make a big difference.
				<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
				<<break>>
			<</if>>
		<</if>>
		<<if $activeSlave.nosePiercing == 0>>
			<<set $activeSlave.nosePiercing = 1>>
			<<run RulesDeconfliction($activeSlave)>>
			<<if $activeSlave.nosePiercing != $slaveAfterRA.nosePiercing>>
				<<set _piercingForbidden = 1, $activeSlave.nosePiercing = 0>>
			<<else>>
				$HeadGirl.slaveName knows that $activeSlave.slaveName needs help adjusting to life as a slave _girl2, so $he gives the slave a cute little nose piercing. It should help $activeSlave.slaveName see _himself2 as a bit more feminine.
				<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
				<<break>>
			<</if>>
		<</if>>
		<<if $activeSlave.eyebrowPiercing == 0>>
			<<set $activeSlave.eyebrowPiercing = 1>>
			<<run RulesDeconfliction($activeSlave)>>
			<<if $activeSlave.eyebrowPiercing != $slaveAfterRA.eyebrowPiercing>>
				<<set _piercingForbidden = 1, $activeSlave.eyebrowPiercing = 0>>
			<<else>>
				$HeadGirl.slaveName knows that $activeSlave.slaveName needs help adjusting to life as a slave _girl2, so $he gives the slave a cute little eyebrow piercing. A slutty touch for a teenage _girl2 should help _him2 feel a little hungrier for cock.
				<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
				<<break>>
			<</if>>
		<</if>>
		<<if $activeSlave.lipsPiercing == 0>>
			<<set $activeSlave.lipsPiercing = 1>>
			<<run RulesDeconfliction($activeSlave)>>
			<<if $activeSlave.lipsPiercing != $slaveAfterRA.lipsPiercing>>
				<<set _piercingForbidden = 1, $activeSlave.lipsPiercing = 0>>
			<<else>>
				$HeadGirl.slaveName knows that $activeSlave.slaveName needs help adjusting to life as a slave _girl2, so $he has the slave's lower lip pierced. _His2 mouth is for pleasing penises now, so it'll help _him2 if it looks like it.
				<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
				<<break>>
			<</if>>
		<</if>>
		<<if $activeSlave.navelPiercing == 0>>
			<<set $activeSlave.navelPiercing = 1>>
			<<run RulesDeconfliction($activeSlave)>>
			<<if $activeSlave.navelPiercing != $slaveAfterRA.navelPiercing>>
				<<set _piercingForbidden = 1, $activeSlave.navelPiercing = 0>>
			<<else>>
				$HeadGirl.slaveName knows that $activeSlave.slaveName needs help adjusting to life as a slave _girl2, so $he has the slave's navel pierced. The prettier _his2 lower half looks, the less reluctant _he2 should feel to take it up the butt.
				<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>>
				<<break>>
			<</if>>
		<</if>>
		<<break>>
	<</for>>
	<<if _piercingForbidden>>
		$HeadGirl.slaveName thinks some cute piercings might help $activeSlave.slaveName adjust to life as a slave _girl2, but $he also knows you have rules applied to this slave that forbid it.
	<</if>>
<</if>>

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