code:
:: Club Report [nobr]

<<set $clubBonuses = 0, $DJRepBonus = 0, $implanted = 0, $legendaryEntertainerID = 0, $modded = 0, $old = 0, $pure = 0, $slim = 0, $stacked = 0, $unmodded = 0, $XX = 0, $XY = 0, $young = 0, _FLsFetish = 0, _DL = $ClubiIDs.length, $clubSlaves = _DL, _SL = $slaves.length, _FLs = -1>>
<<set $legendaryWombID to 0, $pregYes to 0, $pregNo to 0>>

<<if $DJ != 0>>
	<<for _FLs = 0; _FLs < _SL; _FLs++>>
	<<if $slaves[_FLs].ID == $DJ.ID>>
		<<break>>
	<</if>>
	<</for>>
	<<if ($slaves[_FLs].health < -80)>>
	<<set $slaves[_FLs].health += 20>>
	<<elseif $slaves[_FLs].health < -40>>
	<<set $slaves[_FLs].health += 15>>
	<<elseif $slaves[_FLs].health < 0>>
	<<set $slaves[_FLs].health += 10>>
	<<elseif $slaves[_FLs].health < 90>>
	<<set $slaves[_FLs].health += 7>>
	<</if>>
	<<if $slaves[_FLs].devotion <= 60>>
	<<set $slaves[_FLs].devotion += 5>>
	<</if>>
	<<if $slaves[_FLs].trust < 60>>
	<<set $slaves[_FLs].trust += 3>>
	<</if>>
	<<if $slaves[_FLs].fetishStrength <= 95>>
	<<if $slaves[_FLs].fetish != "humiliation">>
		<<fetishChangeChance $slaves[_FLs]>>
		<<if $fetishChangeChance > random(0,100)>>
			<<set _FLsFetish = 1, $slaves[_FLs].fetishKnown = 1, $slaves[_FLs].fetish = "humiliation">>
		<</if>>
	<<elseif $slaves[_FLs].fetishKnown == 0>>
		<<set _FLsFetish = 1, $slaves[_FLs].fetishKnown = 1>>
	<<else>>
		<<set _FLsFetish = 2, $slaves[_FLs].fetishStrength += 4>>
	<</if>>
	<</if>>
	<<set $DJ = $slaves[_FLs]>>
	    $DJ.slaveName is performing as the DJ.
	<<if $DJ.relationship == -3>>
		She tries her best to be your energetic, cheerful wife.
		<<set $DJRepBonus += 0.1>>
	<</if>>
	<<if (_FLsFetish == 1)>>
		She's expected to be the innovative, beautiful DJ spinning beats one minute, and come out of her booth to grind on the floor the next; she enjoys the interplay, and finds greater @@color:lightcoral;pleasure in exhibitionism.@@
	<<elseif (_FLsFetish == 2)>>
		Every day she gets to enjoy hundreds of stares on her skin, and @@color:lightsalmon;becomes more of an exhibitionist.@@
	<</if>>
	<<if ($DJ.eyes == -2)>>
		Her lack of eyesight doesn't slow her down; rather, it strengthens her other senses. Her tracks have a distinct sound, since she experiences noise as her sight.
		<<set $DJRepBonus += 0.15>>
	<</if>>
	<<if ($DJ.entertainSkill <= 10)>>
		Though $DJ.slaveName does her best to lead on the club, with her lack of skill she can do little.
	<<elseif ($DJ.entertainSkill <= 30)>>
		$DJ.slaveName's basic skills marginally @@color:green;improve@@ the atmosphere on $clubName.
		<<set $DJRepBonus += 0.05>>
	<<elseif ($DJ.entertainSkill <= 60)>>
		$DJ.slaveName's skills @@color:green;improve@@ the atmosphere on $clubName.
		<<set $DJRepBonus += 0.1>>
	<<elseif ($DJ.entertainSkill < 100)>>
		$DJ.slaveName's skills greatly @@color:green;improve@@ the atmosphere on $clubName.
		<<set $DJRepBonus += 0.15>>
	<<elseif ($DJ.entertainSkill >= 100)>>
		$DJ.slaveName's mastery immensely @@color:green;improves@@ the atmosphere on $clubName.
		<<set $DJRepBonus += 0.20>>
	<</if>>
	<<if ($DJ.muscles > 5) && ($DJ.muscles <= 95)>>
		Her toned body helps her lead her fellow club girls by letting her dance all night.
		<<set $DJRepBonus += 0.05>>
	<</if>>
	<<if ($DJ.intelligence > 0)>>
		She's smart enough to make an actual contribution to the music, greatly enhancing the entire experience.
		<<set $DJRepBonus += 0.05*$DJ.intelligence>>
	<</if>>
	<<if ($DJ.face > 95)>>
		Her great beauty is a further draw, even when she's in her DJ booth, but especially when she comes out to dance.
		<<set $DJRepBonus += 0.05>>
	<</if>>
	<<if $DJCareers.includes($DJ.career)>>
		She has musical experience from her life before she was a slave, a grounding that gives her tracks actual depth.
		<<set $DJRepBonus += 0.05>>
	<</if>>
	<<set $i = _FLs>>
	<<if ($clubSlaves < $club)>>
		<<set $slavesGettingHelp = 0>>
		<<if $universalRulesFacilityWork == 1>>
		<<for _i = 0; _i < _SL; _i++>>
			<<if ($slaves[_i].assignment == "serve the public")>>
			<<set $slavesGettingHelp++>>
			<</if>>
		<</for>>
		<</if>>
		<<if ($clubSlaves+$slavesGettingHelp < $club)>>
			<<if ($legendaryEntertainerID == 0) && ($slaves[_FLs].prestige == 0) && ($slaves[_FLs].entertainSkill >= 100) && ($slaves[_FLs].devotion > 50)>>
				<<set $legendaryEntertainerID = $slaves[_FLs].ID>>
			<</if>>
			<<if $showEWD != 0>>

    She <<include "SA serve the public">>
			<<else>>
				<<silently>><<include "SA serve the public">><</silently>>
			<</if>>
			<<set $repGain += Math.trunc(($beauty*$FResult)*(1+(0.003*$slaves[_FLs].entertainSkill))*0.1*0.5)>>

    Since she doesn't have enough sluts in $clubName to make it worthwhile for her to be on stage 24/7, she spends her extra time time slutting it up herself. She has sex with $beauty citizens, @@color:green;pleasing them immensely,@@ since it's more appealing to fuck the DJ than some club slut.
		<</if>>
	<</if>>
	<<if ($clubSlaves > 0)>>
<</if>>
<</if>>

<<if ($clubSlaves > 0)>>
	<<set _possibleBonuses = 0>>
	    <<if ($clubSlaves != 1)>>''The $clubSlaves slaves pleasing citizens in $clubName''<<else>>''The one slave pleasing citizens in $clubName''<</if>> worked hard to @@color:green;increase your reputation@@ this week.
<</if>>

<<if ($DJ != 0)>>
	<<if $showEWD != 0>>

		/* 000-250-006 */
		<<if $seeImages == 1 && $imageChoice == 0>>

			<<SlaveArt $slaves[_FLs] 0 0>>

		<</if>>
		/* 000-250-006 */
		''__@@color:pink;$slaves[_FLs].slaveName@@__'' is performing as the DJ in the club.

		<<if $slaves[_FLs].choosesOwnClothes == 1>>
		<<include "SA chooses own clothes">>
		<<if ($slaves[_FLs].devotion <= 20)>>
			<<set $slaves[_FLs].devotion -= 5>>
		<<else>>
			<<set $slaves[_FLs].devotion++>>
		<</if>>
		<</if>>
		<<include "SA diet">>
		<<include "SA long term effects">>
		<<include "SA drugs">>
		<<include "SA relationships">>
		<<include "SA rivalries">>

<<include "SA devotion">>
	<<else>>
		<<silently>>
		<<if $slaves[_FLs].choosesOwnClothes == 1>>
		<<include "SA chooses own clothes">>
		<<if ($slaves[$i].devotion <= 20)>>
			<<set $slaves[_FLs].devotion -= 5>>
		<<else>>
			<<set $slaves[_FLs].devotion++>>
		<</if>>
		<</if>>
		<<include "SA diet">>
		<<include "SA long term effects">>
		<<include "SA drugs">>
		<<include "SA relationships">>
		<<include "SA rivalries">>
		<<include "SA devotion">>
		<</silently>>
	<</if>>
	<<set $DJ = $slaves[_FLs]>>
<</if>>

<<if $clubSlaves > 0>>
	<<SlaveSort $ClubiIDs>>
	<<for _dI = 0; _dI < _DL; _dI++>>
	<<set _i = $ClubiIDs[_dI].Index, _ID = $ClubiIDs[_dI].ID>>
	<<if _ID != $slaves[_i].ID>>
		/% Slaves.ID and $ClubiIDs.ID's don't match-up so let's find her %/
		<<for _i = 0; _i < _SL; _i++>>
		<<if _ID == $slaves[_i].ID>>
			/% Correct the Index %/
			<<set $ClubiIDs[_dI].Index = _i>>
			<<break>>
		<</if>>
		<</for>>
	<</if>>
	<<set $i = _i>>
	<<if ($legendaryEntertainerID == 0) && ($slaves[_i].prestige == 0) && ($slaves[_i].entertainSkill >= 100) && ($slaves[_i].devotion > 50) && ($slaves[_i].prestige == 0)>>
	<<set $legendaryEntertainerID = $slaves[_i].ID>>
	<</if>>
	<<if ($legendaryWombID == 0) && ($slaves[_i].amp != 1) && ($slaves[_i].preg > 30) && ($slaves[_i].pregType < 50) && ($slaves[_i].eggType == "human") && ($slaves[_i].births > 10) && ($slaves[_i].devotion > 50) && ($slaves[_i].prestige == 0)>>
	<<set $legendaryWombID = $slaves[_i].ID>>
	<</if>>
	<<if ($slaves[_i].devotion <= 20) && ($slaves[_i].trust > -20)>>
	<<set $slaves[_i].devotion -= 5, $slaves[_i].trust -= 5>>
	<<elseif ($slaves[_i].devotion < 45)>>
	<<set $slaves[_i].devotion += 4>>
	<<elseif ($slaves[_i].devotion >= 50)>>
	<<set $slaves[_i].devotion -= 4>>
	<</if>>
	<<if ($slaves[_i].trust < 30)>>
	<<set $slaves[_i].trust += 5>>
	<</if>>
	<<if ($slaves[_i].health < -80)>>
	<<set $slaves[_i].health += 20>>
	<<elseif ($slaves[_i].health < -40)>>
	<<set $slaves[_i].health += 15>>
	<<elseif ($slaves[_i].health < 0)>>
	<<set $slaves[_i].health += 10>>
	<<elseif ($slaves[_i].health < 90)>>
	<<set $slaves[_i].health += 7>>
	<</if>>
	<<if $showEWD != 0>>

		/* 000-250-006 */
		<<if $seeImages == 1 && $imageChoice == 0>>

			<<SlaveArt $slaves[$i] 0 0>>

		<</if>>
		/* 000-250-006 */
		''__@@color:pink;$slaves[$i].slaveName@@__'' is serving in the club.

    She <<include "SA serve the public">>

		<<if $slaves[$i].choosesOwnClothes == 1>>
		<<include "SA chooses own clothes">>
		<<if ($slaves[$i].devotion <= 20)>>
			<<set $slaves[$i].devotion -= 5>>
		<<else>>
			<<set $slaves[$i].devotion++>>
		<</if>>
		<</if>>
		<<include "SA diet">>
		<<include "SA long term effects">>
		<<include "SA drugs">>
		<<include "SA relationships">>
		<<include "SA rivalries">>

<<include "SA devotion">>
	<<else>>
		<<silently>>
		<<include "SA serve the public">>
		<<if $slaves[$i].choosesOwnClothes == 1>>
		<<include "SA chooses own clothes">>
		<<if ($slaves[$i].devotion <= 20)>>
			<<set $slaves[$i].devotion -= 5>>
		<<else>>
			<<set $slaves[$i].devotion++>>
		<</if>>
		<</if>>
		<<include "SA diet">>
		<<include "SA long term effects">>
		<<include "SA drugs">>
		<<include "SA relationships">>
		<<include "SA rivalries">>
		<<include "SA devotion">>
		<</silently>>
	<</if>>
<</for>>

	<<if $clubAdsSpending != 0>>
		An ad campaign is getting citizens into the club every night, and sluts that match it gratify patrons.
	<</if>>

	<<if ($arcologies[0].FSAssetExpansionist == "unset") && ($arcologies[0].FSSlimnessEnthusiast == "unset")>>
	<<if ($clubAdsSpending == 0) || ($clubAdsStacked == 0)>>
		<<set _possibleBonuses++>>
		<<if ($slim > 0) && ($stacked > 0) && (Math.abs($slim-$stacked) <= ($clubSlaves/3))>>
		<<set $repGain += $clubSlaves*random(5,10), $clubBonuses++>>
		There is a @@color:green;wide@@ variety of slim and stacked slaves working the club.
		<</if>>
	<</if>>
	<</if>>
	<<if ($arcologies[0].FSDegradationist == "unset") && ($arcologies[0].FSBodyPurist == "unset")>>
	<<if ($clubAdsSpending == 0) || ($clubAdsModded == 0)>>
		<<set _possibleBonuses++>>
		<<if ($modded > 0) && ($unmodded > 0) && (Math.abs($modded-$unmodded) <= ($clubSlaves/3))>>
		<<set $repGain += $clubSlaves*random(5,10), $clubBonuses++>>
		There are @@color:green;both@@ heavily pierced and tattooed slaves and slaves with more natural bodies filling the club.
		<</if>>
	<</if>>
	<</if>>
	<<if ($arcologies[0].FSTransformationFetishist == "unset") && ($arcologies[0].FSBodyPurist == "unset")>>
	<<if ($clubAdsSpending == 0) || ($clubAdsImplanted == 0)>>
		<<set _possibleBonuses++>>
		<<if ($implanted > 0) && ($pure > 0) && (Math.abs($implanted-$pure) <= ($clubSlaves/3))>>
		<<set $repGain += $clubSlaves*random(5,10), $clubBonuses++>>
		Citizens in $clubName can easily find @@color:yellowgreen;both@@ all-natural girls, and slaves whose beauty has been improved by surgical means.
		<</if>>
	<</if>>
	<</if>>
	<<if ($seeDicks != 0)>>
	<<if ($clubAdsSpending == 0) || ($clubAdsXX == 0)>>
		<<set _possibleBonuses++>>
		<<if ($XX > 0) && ($XY > 0) && (Math.abs($XX-$XY) <= ($clubSlaves/3))>>
		<<set $repGain += $clubSlaves*random(5,10), $clubBonuses++>>
		The club offers a @@color:green;mix@@ of sluts that can appeal to varied tastes in genitalia.
		<</if>>
	<</if>>
	<</if>>
	<<if ($arcologies[0].FSMaturityPreferentialist == "unset") && ($arcologies[0].FSYouthPreferentialist == "unset")>>
	<<if ($clubAdsSpending == 0) || ($clubAdsOld == 0)>>
		<<set _possibleBonuses++>>
		<<if ($young > 0) && ($old > 0) && (Math.abs($young-$old) <= ($clubSlaves/3))>>
		<<set $repGain += $clubSlaves*random(5,10), $clubBonuses++>>
		There are girls @@color:green;both@@ young and mature in $clubName.
		<</if>>
	<</if>>
	<</if>>
	<<if ($arcologies[0].FSRepopulationFocus == "unset") && ($arcologies[0].FSRestart == "unset")>>
	<<if ($clubAdsSpending == 0) || ($clubAdsPreg == 0)>>
		<<set _possibleBonuses++>>
		<<if ($pregYes > 0) && ($pregNo > 0) && (Math.abs($pregYes-$pregNo) <= ($clubSlaves/3))>>
		<<set $repGain += $clubSlaves*random(5,10), $clubBonuses++>>
		There is a @@color:green;wide@@ variety of slaves with swollen, round bellies and flat bellies working the club.
		<</if>>
	<</if>>
	<</if>>

	<<if (_possibleBonuses > 0) && ($clubBonuses >= _possibleBonuses)>>
		<<set $repGain += $clubSlaves*random(10,15)>>
		There is a ''@@color:green;perfect variety@@'' of slaves serving the public from the club.
	<</if>>
	<<if $clubDecoration != "standard">>
		$clubNameCaps's customers enjoy @@color:green;having sex in $clubDecoration surroundings.@@
	<</if>>

	<<if ($club <= $clubSlaves)>>
	<<set $clubSpots = 0>>
	<<else>>
	<<set $clubSpots = $club - $clubSlaves>>
	<</if>>
<<else>>
	<<set $clubSpots = $club>>
<</if>>
<<if $clubSlaves || $DJ>>

<</if>>


code:
:: Complete Catalog

<<set $nextButton = "Back to Main">>\
<<set $nextLink = "Main">>\
<<set $returnTo = "Main">>\
//This is the complete catalog of slaves that you can acquire from other slaveowners. Most of these slaves are not for sale, so persuading their owners to part with them will be extremely expensive.//

<<nobr>>
<<for $i = 0; $i < $heroSlaves.length; $i++>>
<<print "[[$heroSlaves[$i].slaveName|Complete Catalog][$activeSlave = $heroSlaves[" + $i + "]]]">> |
<</for>>
<</nobr>>

<<set $specialSlavesPriceOverride = 1>>
<<include "Long Slave Description">>\
<<slaveCost $activeSlave>>\
<<set $slaveCost = (10*Math.trunc(($slaveCost/10)*2))>>
<<if $slaveCost < 40000>>
	<<set $slaveCost += random(20000,60000)>>
<</if>>
<<set $specialSlavesPriceOverride = 0>>

The offered price is ¤<<print $slaveCost>>.

[[Buy her slave contract|New Slave Intro][$cash -= $slaveCost, $activeSlave.weekAcquired = $week,$nextButton = "Continue",$nextLink = "AS Dump",$returnTo = "Main",$specialSlave = 1]]


code:
:: Concubine Select

<<nobr>>
<<set $nextButton = "Back">>
<<set $nextLink = "Master Suite">>
<<set $showEncyclopedia = 0>>

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

She will take the lead in seeing to your pleasure.
	<<break>>
<</if>>
<</for>>
<<if ($Concubine == 0)>>
	You have not selected a Concubine.
<</if>>

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

[[None|Concubine Workaround][$Concubine = 0]]
<</nobr>>


code:
:: Concubine Workaround

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

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

<<goto "Master Suite">>


code:
:: Confinement Workaround [silently]

<<set $slaves[$i].assignment = "stay confined", $slaves[$i].choosesOwnAssignment = 0>>
<<goto "Main">>


code:
:: Corporation Developments [nobr]
<<if $detailedCorpControls == 1>>
<<set _Numgeneral = "ALL">>
<<set _Numslave = "ALL">>
<<set _Numentrapment = "ALL">>
<<set _Numcapture = "ALL">>
<<set _Numtraining = "ALL">>
<<set _Numsurgical = "ALL">>
<<set _Numdrug = "ALL">>
<</if>>
__The Corporation__

<<set $seed = random(1,100)>>
<<set $corpPeopleEnslaved += 1>>

<<set $corpValue = ($generalAssets*$generalAssetPrice)+($slaveAssets*$slaveAssetPrice)+($entrapmentAssets*$entrapmentAssetPrice)+($captureAssets*$captureAssetPrice)+($trainingAssets*$trainingAssetPrice)+($surgicalAssets*$surgicalAssetPrice)+($drugAssets*$drugAssetPrice)>>
<<set $corpProfit = Math.trunc($corpValue*(random(7,15)/1000))>>
<<set $corpCash += $corpProfit>>
Your corporation made a profit of ¤$corpProfit last week.
<<if $mercenariesHelpCorp > 0>>
	The $mercenariesTitle assist it with difficult enslavement targets. Otherwise, it
	<<set $slaveAssets += $mercenaries*1000>>
	<<set $corpPeopleEnslaved += $mercenaries>>
<<else>>
	It
<</if>>
<<if $seed > 80>>
	was an outstanding week for corporate enslavement;
	<<set $slaveAssets += Math.trunc(($captureAssets+$entrapmentAssets)*0.09)>>
	<<set $corpPeopleEnslaved += Math.trunc(($captureAssets+$entrapmentAssets)*0.0009)>>
<<elseif $seed > 60>>
	was a great week for enslavement;
	<<set $slaveAssets += Math.trunc(($captureAssets+$entrapmentAssets)*0.07)>>
	<<set $corpPeopleEnslaved += Math.trunc(($captureAssets+$entrapmentAssets)*0.0007)>>
<<elseif $seed > 60>>
	was a good week for enslavement;
	<<set $slaveAssets += Math.trunc(($captureAssets+$entrapmentAssets)*0.05)>>
	<<set $corpPeopleEnslaved += Math.trunc(($captureAssets+$entrapmentAssets)*0.0005)>>
<<elseif $seed > 60>>
	was a mediocre week for enslavement;
	<<set $slaveAssets += Math.trunc(($captureAssets+$entrapmentAssets)*0.03)>>
	<<set $corpPeopleEnslaved += Math.trunc(($captureAssets+$entrapmentAssets)*0.0003)>>
<<else>>
	was a bad week for enslavement;
	<<set $slaveAssets += Math.trunc(($captureAssets+$entrapmentAssets)*0.01)>>
	<<set $corpPeopleEnslaved += Math.trunc(($captureAssets+$entrapmentAssets)*0.0001)>>
<</if>>
in total, the corporation has enslaved $corpPeopleEnslaved people.
<<if $slaveAssets < ($trainingAssets+$surgicalAssets+$drugAssets)>>
	The corporation has enough training and medical assets to rapidly improve its human holdings.
	<<set $slaveAssets = Math.trunc($slaveAssets*1.1)>>
<<elseif $slaveAssets < ($trainingAssets+$surgicalAssets+$drugAssets)*2>>
	The corporation uses its training and medical assets to improve its human holdings.
	<<set $slaveAssets = Math.trunc($slaveAssets*1.05)>>
<<else>>
	The corporation has only enough training and medical assets to maintain the value of its human holdings.
<</if>>
<<if $corpProfit*0.6 > ($personalShares+$publicShares)*3>>
	Since it is incredibly profitable, an massive dividend of ¤<<print Math.trunc(($corpProfit*0.6)/($personalShares+$publicShares))>> was paid out to stockholders; you received @@color:yellowgreen;¤<<print Math.trunc(($corpProfit*0.6)/($personalShares+$publicShares))*$personalShares>>.@@
	<<set $cash += Math.trunc(($corpProfit*0.6)/($personalShares+$publicShares))*$personalShares>>
	<<set $corpCash -= Math.trunc(($corpProfit*0.6)/($personalShares+$publicShares))*$personalShares>>
<<elseif $corpProfit > ($personalShares+$publicShares)*2.4>>
	Since it is extremely profitable, a huge dividend of ¤2/share was paid out to stockholders; you received @@color:yellowgreen;¤<<print $personalShares*2>>.@@
	<<set $cash += $personalShares*2>>
	<<set $corpCash -= ($personalShares+$publicShares)*2>>
<<elseif $corpProfit > ($personalShares+$publicShares)*1.5>>
	Since it is highly profitable, a large dividend of ¤1/share was paid out to stockholders; you received @@color:yellowgreen;¤$personalShares.@@
	<<set $cash += $personalShares>>
	<<set $corpCash -= ($personalShares+$publicShares)>>
<<elseif $corpProfit > ($personalShares+$publicShares)*0.8>>
	Since it is very profitable, a moderate dividend of ¤0.5/share was paid out to stockholders; you received @@color:yellowgreen;¤<<print $personalShares*0.5>>.@@
	<<set $cash += Math.trunc($personalShares*0.5)>>
	<<set $corpCash -= Math.trunc(($personalShares+$publicShares)*0.5)>>
<<elseif $corpProfit > ($personalShares+$publicShares)*0.4>>
	Since it is moderately profitable, a reasonable dividend of ¤0.2/share was paid out to stockholders; you received @@color:yellowgreen;¤<<print $personalShares*0.2>>.@@
	<<set $cash += Math.trunc($personalShares*0.2)>>
	<<set $corpCash -= Math.trunc(($personalShares+$publicShares)*0.2)>>
<<elseif $corpProfit > ($personalShares+$publicShares)*0.2>>
	Since it is acceptably profitable, a small dividend of ¤0.1/share was paid out to stockholders; you received @@color:yellowgreen;¤<<print $personalShares*0.1>>.@@
	<<set $cash += Math.trunc($personalShares*0.1)>>
	<<set $corpCash -= Math.trunc(($personalShares+$publicShares)*0.1)>>
<</if>>

<<set $seed = random(1,100)>>

<<if $corpValue > ($personalShares+$publicShares)*$sharePrice*1.1>>
	The market consensus is that your corporation is undervalued, driving share prices sharply up.
	<<set $sharePrice = (Math.trunc($sharePrice*random(115,125)))/100>>
<<elseif random(1,100) < $rep/30000>>
	Share prices in your corporation are driven up by your reputation.
	<<set $sharePrice = (Math.trunc($sharePrice*random(random(105,110),115)))/100>>
<<elseif $seed > 80>>
	Market volatility drives share prices up.
	<<set $sharePrice = (Math.trunc($sharePrice*random(random(105,110),115)))/100>>
<<elseif $seed < 20>>
	Market volatility drives share prices down.
	<<set $sharePrice = (Math.trunc($sharePrice*random(85,random(90,95))))/100>>
<<elseif $corpValue < ($personalShares+$publicShares)*$sharePrice*0.9>>
	The market consensus is that your corporation is overvalued, driving share prices sharply down.
	<<set $sharePrice = (Math.trunc($sharePrice*random(85,random(90,95))))/100>>
<</if>>

Shares in your corporation are trading at ¤$sharePrice:

<<if $oldSharePrice == $sharePrice>>
	no different from last week.
<<elseif $oldSharePrice > $sharePrice>>
	down <<print Math.trunc(($oldSharePrice-$sharePrice)*100)/100>> since last week.
<<else>>
	up <<print Math.trunc(($sharePrice - $oldSharePrice)*100)/100>> since last week.
<</if>>

<<set $oldSharePrice = Math.trunc($sharePrice)>>

You hold $personalShares shares personally while $publicShares are publicly held.

<<if $cash > 1000*$sharePrice>>
<<link "Purchase 1000 shares from the corporation">><<set $personalShares += 1000>><<set $cash -= 1000*$sharePrice>><<set $corpCash += 1000*$sharePrice>><<set $sharePrice = (Math.trunc($sharePrice*random(105,110)))/100>><<replace "#capitalize">><<print "You purchased 1000 shares from the corporation, driving the share price up slightly.">><</replace>><</link>> |
<</if>>
<<if $personalShares-1000 > $publicShares>>
	 <<link "Issue 1000 new shares">><<set $publicShares += 1000>><<set $corpCash += 1000*$sharePrice>><<set $sharePrice = (Math.trunc($sharePrice*random(90,95)))/100>><<replace "#capitalize">><<print "The corporation issued 1000 new shares, driving the share price down slightly.">><</replace>><</link>> |
<</if>>
<<if $personalShares-1000 > $publicShares>>
	 <<link "Sell 1000 of your shares">><<set $personalShares -= 1000>><<set $publicShares += 1000>><<set $cash += 1000*$sharePrice>><<set $sharePrice = (Math.trunc($sharePrice*random(90,95)))/100>><<replace "#capitalize">><<print "You sold 1000 shares, driving the share price down slightly.">><</replace>><</link>>
<<else>>
	 //You cannot give up majority control.//
<</if>>
<<if $publicShares > 1000>>
<<if $cash > 1000*$sharePrice>>
<<if $publicShares > $personalShares*0.2>>
	 | <<link "Buy 1000 publicly held shares">><<set $personalShares += 1000>><<set $publicShares -= 1000>><<set $cash -= 1000*$sharePrice>><<set $sharePrice = (Math.trunc($sharePrice*random(105,110)))/100>><<replace "#capitalize">><<print "You bought 1000 shares, driving the share price up slightly.">><</replace>><</link>>
<<else>>
	 | //You cannot make the corporation privately held.//
<</if>>
<</if>>
<</if>>

¤$corpCash in cash on hand.

<<if $generalAssetPrice > 10>>
	<<if random(1,100) > 50>>
	<<set $generalAssetPrice -= 1>>
	<<elseif random(1,100) > 50>>
	<<set $generalAssetPrice += 1>>
	<</if>>
<<elseif $generalAssetPrice < 4>>
	<<set $generalAssetPrice = 5>>
<<elseif $generalAssetPrice < 10>>
	<<if random(1,100) > 50>>
	<<set $generalAssetPrice += 1>>
	<<elseif random(1,100) > 50>>
	<<set $generalAssetPrice -= 1>>
	<</if>>
<<else>>
	<<if random(1,100) > 50>>
	<<set $generalAssetPrice += 1>>
	<<else>>
	<<set $generalAssetPrice -= 1>>
	<</if>>
<</if>>

<<if $detailedCorpControls != 1>>
	¤<<print $generalAssetPrice*$generalAssets>> in general assets.
	General asset prices are
	<<if $generalAssetPrice > 12>>@@color:yellowgreen;very high@@<<elseif $generalAssetPrice > 10>>@@color:yellowgreen;high@@<<elseif $generalAssetPrice == 10>>average<<elseif $generalAssetPrice >= 8>>@@color:gold;low@@<<else>>@@color:gold;very low@@<</if>>.
	| <<link "Buy">>
		<<if $generalAssetPrice*500 < $corpCash>>
			<<set $generalAssets += 500>>
			<<set $corpCash -= 500*$generalAssetPrice>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#genAssets">>
				¤<<print $generalAssetPrice*$generalAssets>>
			<</replace>>
			<<replace "#update">>
			<</replace>>
		<<else>>
		<<replace "#purchasing">>
			There are insufficient funds for additional purchases.
		<</replace>>
		<</if>>
	<</link>>
	| <<link "Massive investment">>
		 <<if $generalAssetPrice*1000 < $corpCash>>
			<<set $generalAssets += (Math.trunc($corpCash/($generalAssetPrice*500)))*500>>
			<<set $corpCash -= (Math.trunc($corpCash/($generalAssetPrice*500)))*($generalAssetPrice*500)>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#genAssets">>
				¤<<print $generalAssetPrice*$generalAssets>>
			<</replace>>
		<<else>>
		<<replace "#purchasing">>
			There are insufficient funds for additional purchases.
		<</replace>>
		<</if>>
	<</link>>
	| <<link "Sell">>
		<<if $generalAssets >= 1000>>
			<<set $generalAssets -= 500>>
			<<set $corpCash += 500*$generalAssetPrice>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#genAssets">>
				¤<<print $generalAssetPrice*$generalAssets>>
			<</replace>>
			<<replace "#update">>
			<</replace>>
		<<else>>
			<<replace "#update">>
				You cannot sell any more assets.
			<</replace>>
		<</if>>
	<</link>>
<<else>>
	¤<<print $generalAssetPrice*$generalAssets>> (<<print $generalAssets/500>> unit<<if $generalAssets/500 > 1>>s<</if>>) in general assets.
	Prices are
	<<if $generalAssetPrice > 10>>
		@@color:yellowgreen;¤<<print $generalAssetPrice*500>>ea@@.
	<<elseif $generalAssetPrice < 10>>
		@@color:gold;¤<<print $generalAssetPrice*500>>ea@@.
	<<else>>
		¤<<print $generalAssetPrice*500>>ea.
	<</if>>
	<<CorpDevBuySell "general" "Numgeneral">>
<</if>>

<<set $slaveAssetPrice = Math.trunc(10*$slaveCostFactor)>>

<<if $detailedCorpControls != 1>>
	¤<<print $slaveAssetPrice*$slaveAssets>> in slaves.
	Slave prices are
	<<if $slaveAssetPrice > 12>>@@color:yellowgreen;very high@@<<elseif $slaveAssetPrice > 10>>@@color:yellowgreen;high@@<<elseif $slaveAssetPrice == 10>>average<<elseif $slaveAssetPrice >= 8>>@@color:gold;low@@<<else>>@@color:gold;very low@@<</if>>.
	| <<link "Buy">>
		 <<if $slaveAssetPrice*500 < $corpCash>>
			<<set $slaveAssets += 500>>
			<<set $corpPeopleEnslaved += Math.trunc((500*$slaveAssetPrice)/1000)>>
			<<set $corpCash -= 500*$slaveAssetPrice>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#slavAssets">>
				¤<<print $slaveAssetPrice*$slaveAssets>>
			<</replace>>
			<<replace "#update">>
			<</replace>>
		<<else>>
		<<replace "#purchasing">>
			There are insufficient funds for additional purchases.
		<</replace>>
		<</if>>
	<</link>>
	| <<link "Massive investment">>
		<<if $slaveAssetPrice*1000 < $corpCash>>
			<<set $slaveAssets += (Math.trunc($corpCash/($slaveAssetPrice*500)))*500>>
			<<set $corpPeopleEnslaved += Math.trunc(($corpCash/($slaveAssetPrice*2))/1000)>>
			<<set $corpCash -= (Math.trunc($corpCash/($slaveAssetPrice*500)))*($slaveAssetPrice*500)>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#slavAssets">>
				¤<<print $slaveAssetPrice*$slaveAssets>>
			<</replace>>
		<<else>>
			<<replace "#purchasing">>
				There are insufficient funds for additional purchases.
			<</replace>>
		<</if>>
	<</link>>
	| <<link "Sell">>
		<<if $slaveAssets >= 1000>>
			<<set $slaveAssets -= 500>>
			<<set $corpCash += 500*$slaveAssetPrice>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#slavAssets">>
				¤<<print $slaveAssetPrice*$slaveAssets>>
			<</replace>>
			<<replace "#update">>
			<</replace>>
		<<else>>
			<<replace "#update">>
				You cannot sell any more assets.
			<</replace>>
		<</if>>
	<</link>>
<<else>>
	¤<<print $slaveAssetPrice*$slaveAssets>> (<<print Math.floor($slaveAssets/500)>> unit<<if Math.floor($slaveAssets/500) > 1>>s<</if>>) in slaves.
	Prices are
	<<if $slaveAssetPrice > 10>>
		@@color:yellowgreen;¤<<print $slaveAssetPrice*500>>ea@@
	<<elseif $slaveAssetPrice < 10>>
		@@color:gold;¤<<print $slaveAssetPrice*500>>ea@@
	<<else>>
		¤<<print $slaveAssetPrice*500>>ea
	<</if>>
	<<CorpDevBuySell "slave" "Numslave">>
<</if>>

<<if $entrapmentAssetPrice > 10>>
	<<if random(1,100) > 50>>
	<<set $entrapmentAssetPrice -= 1>>
	<<elseif random(1,100) > 50>>
	<<set $entrapmentAssetPrice += 1>>
	<</if>>
<<elseif $entrapmentAssetPrice < 4>>
	<<set $entrapmentAssetPrice = 5>>
<<elseif $entrapmentAssetPrice < 10>>
	<<if random(1,100) > 50>>
	<<set $entrapmentAssetPrice += 1>>
	<<elseif random(1,100) > 50>>
	<<set $entrapmentAssetPrice -= 1>>
	<</if>>
<<elseif $entrapmentAssetPrice == 10>>
	<<if random(1,100) > 50>>
	<<set $entrapmentAssetPrice += 1>>
	<<else>>
	<<set $entrapmentAssetPrice -= 1>>
	<</if>>
<<else>>
	<<set $entrapmentAssetPrice = 5>>
<</if>>

<<if $detailedCorpControls != 1>>
	¤<<print $entrapmentAssetPrice*$entrapmentAssets>> in legal enslavement assets.
	Legal enslavement asset prices are
	<<if $entrapmentAssetPrice > 12>>@@color:yellowgreen;very high@@<<elseif $entrapmentAssetPrice > 10>>@@color:yellowgreen;high@@<<elseif $entrapmentAssetPrice == 10>>average<<elseif $entrapmentAssetPrice >= 8>>@@color:gold;low@@<<else>>@@color:gold;very low@@<</if>>.
	| <<link "Buy">>
		<<if $entrapmentAssetPrice*500 < $corpCash>>
			<<set $entrapmentAssets += 500>>
			<<set $corpCash -= 500*$entrapmentAssetPrice>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#trapAssets">>
				¤<<print $entrapmentAssetPrice*$entrapmentAssets>>
			<</replace>>
			<<replace "#update">>
			<</replace>>
		<<else>>
			<<replace "#purchasing">>
				There are insufficient funds for additional purchases.
			<</replace>>
		<</if>>
	<</link>>
	| <<link "Massive investment">>
		<<if $entrapmentAssetPrice*1000 < $corpCash>>
			<<set $entrapmentAssets += (Math.trunc($corpCash/($entrapmentAssetPrice*500)))*500>>
			<<set $corpCash -= (Math.trunc($corpCash/($entrapmentAssetPrice*500)))*($entrapmentAssetPrice*500)>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#trapAssets">>
				¤<<print $entrapmentAssetPrice*$entrapmentAssets>>
			<</replace>>
		<<else>>
			<<replace "#purchasing">>
				There are insufficient funds for additional purchases.
			<</replace>>
		<</if>>
	<</link>>
	| <<link "Sell">>
		<<if $entrapmentAssets >= 1000>>
			<<set $entrapmentAssets -= 500>>
			<<set $corpCash += 500*$entrapmentAssetPrice>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#trapAssets">>
				¤<<print $entrapmentAssetPrice*$entrapmentAssets>>
			<</replace>>
			<<replace "#update">>
			<</replace>>
		<<else>>
			<<replace "#update">>
				You cannot sell any more assets.
			<</replace>>
		<</if>>
	<</link>>
<<else>>
	¤<<print $entrapmentAssetPrice*$entrapmentAssets>> (<<print Math.floor($entrapmentAssets/500)>> unit<<if Math.floor($entrapmentAssets/500) > 1>>s<</if>>) in legal enslavement assets.
	Prices are
	<<if $entrapmentAssetPrice > 10>>
		@@color:yellowgreen;¤<<print $entrapmentAssetPrice*500>>ea@@
	<<elseif $entrapmentAssetPrice < 10>>
		@@color:gold;¤<<print $entrapmentAssetPrice*500>>ea@@
	<<else>>
		¤<<print $entrapmentAssetPrice*500>>ea
	<</if>>
	<<CorpDevBuySell "entrapment" "Numentrapment">>
<</if>>

<<if $captureAssetPrice > 10>>
	<<if random(1,100) > 50>>
	<<set $captureAssetPrice -= 1>>
	<<elseif random(1,100) > 50>>
	<<set $captureAssetPrice += 1>>
	<</if>>
<<elseif $captureAssetPrice < 4>>
	<<set $captureAssetPrice = 5>>
<<elseif $captureAssetPrice < 10>>
	<<if random(1,100) > 50>>
	<<set $captureAssetPrice += 1>>
	<<elseif random(1,100) > 50>>
	<<set $captureAssetPrice -= 1>>
	<</if>>
<<elseif $captureAssetPrice == 10>>
	<<if random(1,100) > 50>>
	<<set $captureAssetPrice += 1>>
	<<else>>
	<<set $captureAssetPrice -= 1>>
	<</if>>
<<else>>
	<<set $captureAssetPrice = 5>>
<</if>>

<<if $detailedCorpControls != 1>>
	¤<<print $captureAssetPrice*$captureAssets>> in conflict zone enslavement assets.
	Extralegal enslavement asset prices are
	<<if $captureAssetPrice > 12>>@@color:yellowgreen;very high@@<<elseif $captureAssetPrice > 10>>@@color:yellowgreen;high@@<<elseif $captureAssetPrice == 10>>average<<elseif $captureAssetPrice >= 8>>@@color:gold;low@@<<else>>@@color:gold;very low@@<</if>>.
	| <<link "Buy">>
		<<if $captureAssetPrice*500 < $corpCash>>
			<<set $captureAssets += 500>>
			<<set $corpCash -= 500*$captureAssetPrice>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#capAssets">>
				¤<<print $captureAssetPrice*$captureAssets>>
			<</replace>>
			<<replace "#update">>
			<</replace>>
		<<else>>
			<<replace "#purchasing">>
				There are insufficient funds for additional purchases.
			<</replace>>
		<</if>>
	<</link>>
	| <<link "Massive investment">>
		<<if $captureAssetPrice*1000 < $corpCash>>
			<<set $captureAssets += (Math.trunc($corpCash/($captureAssetPrice*500)))*500>>
			<<set $corpCash -= (Math.trunc($corpCash/($captureAssetPrice*500)))*($captureAssetPrice*500)>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#capAssets">>
				¤<<print $captureAssetPrice*$captureAssets>>
			<</replace>>
		<<else>>
			<<replace "#purchasing">>
				There are insufficient funds for additional purchases.
			<</replace>>
		<</if>>
	<</link>>
	| <<link "Sell">>
		<<if $captureAssets >= 1000>>
			<<set $captureAssets -= 500>>
			<<set $corpCash += 500*$captureAssetPrice>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#capAssets">>
				¤<<print $captureAssetPrice*$captureAssets>>
			<</replace>>
			<<replace "#update">>
			<</replace>>
		<<else>>
			<<replace "#update">>
				You cannot sell any more assets.
			<</replace>>
		<</if>>
	<</link>>
<<else>>
	¤<<print $captureAssetPrice*$captureAssets>> (<<print Math.floor($captureAssets/500)>> unit<<if Math.floor($captureAssets/500) > 1>>s<</if>>) in conflict zone enslavement assets.
	Prices are
	<<if $captureAssetPrice > 10>>
		@@color:yellowgreen;¤<<print $captureAssetPrice*500>>ea@@
	<<elseif $captureAssetPrice < 10>>
		@@color:gold;¤<<print $captureAssetPrice*500>>ea@@
	<<else>>
		¤<<print $captureAssetPrice*500>>ea
	<</if>>
	<<CorpDevBuySell "capture" "Numcapture">>
<</if>>

<<if $trainingAssetPrice > 10>>
	<<if random(1,100) > 50>>
	<<set $trainingAssetPrice -= 1>>
	<<elseif random(1,100) > 50>>
	<<set $trainingAssetPrice += 1>>
	<</if>>
<<elseif $trainingAssetPrice < 4>>
	<<set $trainingAssetPrice = 5>>
<<elseif $trainingAssetPrice < 10>>
	<<if random(1,100) > 50>>
	<<set $trainingAssetPrice += 1>>
	<<elseif random(1,100) > 50>>
	<<set $trainingAssetPrice -= 1>>
	<</if>>
<<elseif $trainingAssetPrice > 5>>
	<<if random(1,100) > 50>>
	<<set $trainingAssetPrice += 1>>
	<<else>>
	<<set $trainingAssetPrice -= 1>>
	<</if>>
<<else>>
	<<set $trainingAssetPrice = 5>>
<</if>>

<<if $detailedCorpControls != 1>>
	¤<<print $trainingAssetPrice*$trainingAssets>> in slave training assets.
	Slave training asset prices are
	<<if $trainingAssetPrice > 12>>@@color:yellowgreen;very high@@<<elseif $trainingAssetPrice > 10>>@@color:yellowgreen;high@@<<elseif $trainingAssetPrice == 10>>average<<elseif $trainingAssetPrice >= 8>>@@color:gold;low@@<<else>>@@color:gold;very low@@<</if>>.
	| <<link "Buy">>
		<<if $trainingAssetPrice*500 < $corpCash>>
			<<set $trainingAssets += 500>>
			<<set $corpCash -= 500*$trainingAssetPrice>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#trainAssets">>
				¤<<print $trainingAssetPrice*$trainingAssets>>
			<</replace>>
			<<replace "#update">>
			<</replace>>
		<<else>>
			<<replace "#purchasing">>
				There are insufficient funds for additional purchases.
			<</replace>>
		<</if>>
	<</link>>
	| <<link "Massive investment">>
		<<if $trainingAssetPrice*1000 < $corpCash>>
			<<set $trainingAssets += (Math.trunc($corpCash/($trainingAssetPrice*500)))*500>>
			<<set $corpCash -= (Math.trunc($corpCash/($trainingAssetPrice*500)))*($trainingAssetPrice*500)>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#trainAssets">>
				¤<<print $trainingAssetPrice*$trainingAssets>>
			<</replace>>
		<<else>>
			<<replace "#purchasing">>
				There are insufficient funds for additional purchases.
			<</replace>>
		<</if>>
	<</link>>
	| <<link "Sell">>
		<<if $trainingAssets >= 1000>>
			<<set $trainingAssets -= 500>>
			<<set $corpCash += 500*$trainingAssetPrice>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#trainAssets">>
				¤<<print $trainingAssetPrice*$trainingAssets>>
			<</replace>>
			<<replace "#update">>
			<</replace>>
		<<else>>
			<<replace "#update">>
				You cannot sell any more assets.
			<</replace>>
		<</if>>
	<</link>>
<<else>>
	¤<<print $trainingAssetPrice*$trainingAssets>> (<<print Math.floor($trainingAssets/500)>> unit<<if Math.floor($trainingAssets/500) > 1>>s<</if>>) of slave training assets.
	Prices are
	<<if $trainingAssetPrice > 10>>
		@@color:yellowgreen;¤<<print $trainingAssetPrice*500>>ea@@
	<<elseif $trainingAssetPrice < 10>>
		@@color:gold;¤<<print $trainingAssetPrice*500>>ea@@
	<<else>>
		¤<<print $trainingAssetPrice*500>>ea
	<</if>>
	<<CorpDevBuySell "training" "Numtraining">>
<</if>>

<<if $surgicalAssetPrice > 10>>
	<<if random(1,100) > 50>>
	<<set $surgicalAssetPrice -= 1>>
	<<elseif random(1,100) > 50>>
	<<set $surgicalAssetPrice += 1>>
	<</if>>
<<elseif $surgicalAssetPrice < 4>>
	<<set $surgicalAssetPrice = 5>>
<<elseif $surgicalAssetPrice < 10>>
	<<if random(1,100) > 50>>
	<<set $surgicalAssetPrice += 1>>
	<<elseif random(1,100) > 50>>
	<<set $surgicalAssetPrice -= 1>>
	<</if>>
<<elseif $surgicalAssetPrice == 10>>
	<<if random(1,100) > 50>>
	<<set $surgicalAssetPrice += 1>>
	<<else>>
	<<set $surgicalAssetPrice -= 1>>
	<</if>>
<<else>>
	<<set $surgicalAssetPrice = 5>>
<</if>>

<<if $detailedCorpControls != 1>>
	¤<<print $surgicalAssetPrice*$surgicalAssets>> in surgical assets.
	Surgical asset prices are
	<<if $surgicalAssetPrice > 12>>@@color:yellowgreen;very high@@<<elseif $surgicalAssetPrice > 10>>@@color:yellowgreen;high@@<<elseif $surgicalAssetPrice == 10>>average<<elseif $surgicalAssetPrice >= 8>>@@color:gold;low@@<<else>>@@color:gold;very low@@<</if>>.
	| <<link "Buy">>
		<<if $surgicalAssetPrice*500 < $corpCash>>
			<<set $surgicalAssets += 500>>
			<<set $corpCash -= 500*$surgicalAssetPrice>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#surgAssets">>
				¤<<print $surgicalAssetPrice*$surgicalAssets>>
			<</replace>>
			<<replace "#update">>
			<</replace>>
		<<else>>
			<<replace "#purchasing">>
				There are insufficient funds for additional purchases.
			<</replace>>
		<</if>>
	<</link>>
	| <<link "Massive investment">>
		<<if $surgicalAssetPrice*1000 < $corpCash>>
			<<set $surgicalAssets += (Math.trunc($corpCash/($surgicalAssetPrice*500)))*500>>
			<<set $corpCash -= (Math.trunc($corpCash/($surgicalAssetPrice*500)))*($surgicalAssetPrice*500)>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#surgAssets">>
				¤<<print $surgicalAssetPrice*$surgicalAssets>>
			<</replace>>
		<<else>>
			<<replace "#purchasing">>
				There are insufficient funds for additional purchases.
			<</replace>>
		<</if>>
	<</link>>
	| <<link "Sell">>
		<<if $surgicalAssets >= 1000>>
			<<set $surgicalAssets -= 500>>
			<<set $corpCash += 500*$surgicalAssetPrice>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#surgAssets">>
				¤<<print $surgicalAssetPrice*$surgicalAssets>>
			<</replace>>
			<<replace "#update">>
			<</replace>>
		<<else>>
			<<replace "#update">>
				You cannot sell any more assets.
			<</replace>>
		<</if>>
	<</link>>
<<else>>
	¤<<print $surgicalAssetPrice*$surgicalAssets>> (<<print Math.floor($surgicalAssets/500)>> unit<<if Math.floor($surgicalAssets/500) > 1>>s<</if>>) in surgical assets.
	Prices are
	<<if $surgicalAssetPrice > 10>>
		@@color:yellowgreen;¤<<print $surgicalAssetPrice*500>>ea@@
	<<elseif $surgicalAssetPrice < 10>>
		@@color:gold;¤<<print $surgicalAssetPrice*500>>ea@@
	<<else>>
		¤<<print $surgicalAssetPrice*500>>ea
	<</if>>
	<<CorpDevBuySell "surgical" "Numsurgical">>
<</if>>

<<if $drugAssetPrice > 10>>
	<<if random(1,100) > 50>>
	<<set $drugAssetPrice -= 1>>
	<<elseif random(1,100) > 50>>
	<<set $drugAssetPrice += 1>>
	<</if>>
<<elseif $drugAssetPrice < 4>>
	<<set $drugAssetPrice = 5>>
<<elseif $drugAssetPrice < 10>>
	<<if random(1,100) > 50>>
	<<set $drugAssetPrice += 1>>
	<<elseif random(1,100) > 50>>
	<<set $drugAssetPrice -= 1>>
	<</if>>
<<elseif $drugAssetPrice == 10>>
	<<if random(1,100) > 50>>
	<<set $drugAssetPrice += 1>>
	<<else>>
	<<set $drugAssetPrice -= 1>>
	<</if>>
<<else>>
	<<set $drugAssetPrice = 5>>
<</if>>

<<if $detailedCorpControls != 1>>
	¤<<print $drugAssetPrice*$drugAssets>> in pharmaceutical assets.
	Drug asset prices are
	<<if $drugAssetPrice > 12>>@@color:yellowgreen;very high@@<<elseif $drugAssetPrice > 10>>@@color:yellowgreen;high@@<<elseif $drugAssetPrice == 10>>average<<elseif $drugAssetPrice >= 8>>@@color:gold;low@@<<else>>@@color:gold;very low@@<</if>>.
	| <<link "Buy">>
		<<if $drugAssetPrice*500 < $corpCash>>
			<<set $drugAssets += 500>>
			<<set $corpCash -= 500*$drugAssetPrice>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#drAssets">>
				¤<<print $drugAssetPrice*$drugAssets>>
			<</replace>>
			<<replace "#update">>
			<</replace>>
		<<else>>
			<<replace "#purchasing">>
				There are insufficient funds for additional purchases.
			<</replace>>
		<</if>>
	<</link>>
	| <<link "Massive investment">>
		<<if $drugAssetPrice*1000 < $corpCash>>
			<<set $drugAssets += (Math.trunc($corpCash/($drugAssetPrice*500)))*500>>
			<<set $corpCash -= (Math.trunc($corpCash/($drugAssetPrice*500)))*($drugAssetPrice*500)>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#drAssets">>
				¤<<print $drugAssetPrice*$drugAssets>>
			<</replace>>
		<<else>>
			<<replace "#purchasing">>
				There are insufficient funds for additional purchases.
			<</replace>>
		<</if>>
	<</link>>
	| <<link "Sell">><<set $drugAssets -= 500>>
		<<if $drugAssets >= 1000>>
			<<set $drugAssets -= 500>>
			<<set $corpCash += 500*$drugAssetPrice>>
			<<replace "#cashOnHand">>
				¤<<print $corpCash>>
			<</replace>>
			<<replace "#drAssets">>
				¤<<print $drugAssetPrice*$drugAssets>>
			<</replace>>
			<<replace "#update">>
			<</replace>>
		<<else>>
			<<replace "#update">>
				You cannot sell any more assets.
			<</replace>>
		<</if>>
	<</link>>
<<else>>
	¤<<print $drugAssetPrice*$drugAssets>> (<<print Math.floor($drugAssets/500)>> unit<<if Math.floor($drugAssets/500) > 1>>s<</if>>) in pharmaceutical assets.
	Prices are
	<<if $drugAssetPrice > 10>>
		@@color:yellowgreen;¤<<print $drugAssetPrice*500>>ea@@
	<<elseif $drugAssetPrice < 10>>
		@@color:gold;¤<<print $drugAssetPrice*500>>ea@@
	<<else>>
		¤<<print $drugAssetPrice*500>>ea
	<</if>>
	<<CorpDevBuySell "drug" "Numdrug">>
<</if>>

<<if $generalAssets >= 2000>>
	<<if $generalUpgradeBreaking == "unselected">>

The corporation has enough general expertise to specialize. Focus on breaking slaves with
		<<link "Brutality">><<set $generalUpgradeBreaking = "brutality">><<replace "#direction">>
<<print "You directed the corporation to train slaves with brutal force.">><</replace>><</link>>
		| <<link "Care">><<set $generalUpgradeBreaking = "care">><<replace "#direction">>
<<print "You directed the corporation to train slaves with loving care.">><</replace>><</link>>
		| <<link "No focus">><<set $generalUpgradeBreaking = "none">><<replace "#direction">>
<<print "You directed the corporation to focus on whatever training methods work best.">><</replace>><</link>>
	<</if>>
<</if>>
<<if $generalAssets >= 5000>>
	<<if $generalUpgradeWeight == "unselected">>

The corporation has enough general expertise to specialize. Manage slaves' diets to an
		<<link "Attractive weight">><<set $generalUpgradeWeight = "attractive">><<replace "#direction">>
<<print "You directed the corporation to slim fat slaves and feed thin ones.">><</replace>><</link>>
		| <<link "No dieting">><<set $generalUpgradeWeight = "none">><<replace "#direction">>
<<print "You directed the corporation not to focus on slaves' weight.">><</replace>><</link>>
	<</if>>
<</if>>
<<if $generalAssets >= 10000>>
	<<if $generalUpgradeMuscle == "unselected">>

The corporation has enough general expertise to specialize. Train slaves until their muscles are
		<<link "Toned">><<set $generalUpgradeMuscle = "toned">><<replace "#direction">>
<<print "You directed the corporation to train slaves until they're toned.">><</replace>><</link>>
		| <<link "Ripped">><<set $generalUpgradeMuscle = "ripped">><<replace "#direction">>
<<print "You directed the corporation to train slaves until they're ripped.">><</replace>><</link>>
		| <<link "No training">><<set $generalUpgradeMuscle = "none">><<replace "#direction">>
<<print "You directed the corporation not to focus on slaves' fitness.">><</replace>><</link>>
	<</if>>
<</if>>
<<if $entrapmentAssets >= 2000>>
	<<if $entrapmentUpgradeDevotionOne == "unselected">>

The corporation is entrapping enough slaves to specialize. Focus on slaves with
		<<link "Obedience">><<set $entrapmentUpgradeDevotionOne = "obedience">><<replace "#direction">>
<<print "You directed the corporation to retain obedient slaves.">><</replace>><</link>>
		| <<link "No focus">><<set $entrapmentUpgradeDevotionOne = "none">><<replace "#direction">>
<<print "You directed the corporation to train slaves regardless of obedience.">><</replace>><</link>>
	<</if>>
<</if>>
<<if $entrapmentAssets >= 5000>>
	<<if $entrapmentUpgradeDevotionTwo == "unselected">>

The corporation is entrapping enough slaves to specialize. Focus on slaves with
		<<link "Devotion">><<set $entrapmentUpgradeDevotionTwo = "devotion">><<replace "#direction">>
<<print "You directed the corporation to retain devoted slaves.">><</replace>><</link>>
		| <<link "No focus">><<set $entrapmentUpgradeDevotionTwo = "none">><<replace "#direction">>
<<print "You directed the corporation to train slaves regardless of devotion.">><</replace>><</link>>
	<</if>>
<</if>>
<<if $entrapmentAssets >= 10000>>
	<<if $entrapmentUpgradeIntelligence == "unselected">>

The corporation is entrapping enough slaves to specialize. Focus on slaves who are
		<<link "Intelligent">><<set $entrapmentUpgradeIntelligence = "intelligent">><<replace "#direction">>
<<print "You directed the corporation to retain intelligent slaves.">><</replace>><</link>>
		| <<link "Stupid">><<set $entrapmentUpgradeIntelligence = "stupid">><<replace "#direction">>
<<print "You directed the corporation to retain stupid slaves.">><</replace>><</link>>
		| <<link "No focus">><<set $entrapmentUpgradeIntelligence = "none">><<replace "#direction">>
<<print "You directed the corporation to train slaves regardless of intelligence.">><</replace>><</link>>
	<</if>>
<</if>>
<<if $captureAssets >= 2000>>
	<<if $seeDicks != 0>>
	<<if $captureUpgradeGender == "unselected">>

The corporation captures enough slaves to specialize. Focus on training slaves with
		<<link "Pussies">><<set $captureUpgradeGender = "XX">><<replace "#direction">>
<<print "You directed the corporation to retain slaves with pussies for training.">><</replace>><</link>>
		| <<link "Dicks">><<set $captureUpgradeGender = "XY">><<replace "#direction">>
<<print "You directed the corporation to retain slaves with dicks for training.">><</replace>><</link>>
		| <<link "No focus">><<set $captureUpgradeGender = "none">><<replace "#direction">>
<<print "You directed the corporation to retain any promising slave for training.">><</replace>><</link>>
	<</if>>
	<</if>>
<</if>>
<<if $captureAssets >= 5000>>
	<<if $captureUpgradeAge == "unselected">>

The corporation captures enough slaves to specialize. Focus on training slaves who are
		<<link "Younger">><<set $captureUpgradeAge = "young">><<replace "#direction">>
<<print "You directed the corporation to retain younger slaves for training.">><</replace>><</link>>
		| <<link "Older">><<set $captureUpgradeAge = "old">><<replace "#direction">>
<<print "You directed the corporation to retain older slaves for training.">><</replace>><</link>>
		| <<link "No focus">><<set $captureUpgradeAge = "none">><<replace "#direction">>
<<print "You directed the corporation to retain any promising slave for training.">><</replace>><</link>>
	<</if>>
<</if>>
<<if $captureAssets >= 10000>>
	<<if $captureUpgradeRace == "unselected">>

The corporation captures enough slaves to specialize. Focus on training slaves who are
		<<link "White">><<set $captureUpgradeRace = "white">><<replace "#direction">>
<<print "You directed the corporation to retain white slaves for training.">><</replace>><</link>>
		| <<link "Asian">><<set $captureUpgradeRace = "asian">><<replace "#direction">>
<<print "You directed the corporation to retain asian slaves for training.">><</replace>><</link>>
		| <<link "Indo-aryan">><<set $captureUpgradeRace = "indo-aryan">><<replace "#direction">>
<<print "You directed the corporation to retain indo-aryan slaves for training.">><</replace>><</link>>
		| <<link "Latina">><<set $captureUpgradeRace = "latina">><<replace "#direction">>
<<print "You directed the corporation to retain latina slaves for training.">><</replace>><</link>>
		| <<link "middle eastern">><<set $captureUpgradeRace = "middle eastern">><<replace "#direction">>
<<print "You directed the corporation to retain Middle Eastern slaves for training.">><</replace>><</link>>
		| <<link "Black">><<set $captureUpgradeRace = "black">><<replace "#direction">>
<<print "You directed the corporation to retain black slaves for training.">><</replace>><</link>>
		| <<link "Pacific Islander">><<set $captureUpgradeRace = "pacific islander">><<replace "#direction">>
<<print "You directed the corporation to retain pacific islander slaves for training.">><</replace>><</link>>
		| <<link "Malay">><<set $captureUpgradeRace = "malay">><<replace "#direction">>
<<print "You directed the corporation to retain malay slaves for training.">><</replace>><</link>>
		| <<link "Amerindian">><<set $captureUpgradeRace = "amerindian">><<replace "#direction">>
<<print "You directed the corporation to retain amerindian slaves for training.">><</replace>><</link>>
		| <<link "Semitic">><<set $captureUpgradeRace = "semitic">><<replace "#direction">>
<<print "You directed the corporation to retain semitic slaves for training.">><</replace>><</link>>
		| <<link "Southern European">><<set $captureUpgradeRace = "southern European">><<replace "#direction">>
<<print "You directed the corporation to retain southern European slaves for training.">><</replace>><</link>>
		| <<link "Mixed Race">><<set $captureUpgradeRace = "mixed race">><<replace "#direction">>
<<print "You directed the corporation to retain mixed race slaves for training.">><</replace>><</link>>
		| <<link "No focus">><<set $captureUpgradeRace = "none">><<replace "#direction">>
<<print "You directed the corporation to retain any promising slave for training.">><</replace>><</link>>
	<</if>>
<</if>>
<<if $trainingAssets >= 2000>>
	<<if $trainingUpgradeAccent == "unselected">>

The corporation has enough training expertise to specialize. Focus on linguistic training to
		<<link "Teach language">><<set $trainingUpgradeAccent = "accents">><<replace "#direction">>
<<print "You directed the corporation to teach slaves the lingua franca.">><</replace>><</link>>
		| <<link "Eliminate accents">><<set $trainingUpgradeAccent = "eliminate">><<replace "#direction">>
<<print "You directed the corporation to teach slaves perfect, unaccented language.">><</replace>><</link>>
		| <<link "No training">><<set $trainingUpgradeAccent = "none">><<replace "#direction">>
<<print "You directed the corporation not to focus on linguistic training.">><</replace>><</link>>
	<</if>>
<</if>>
<<if $trainingAssets >= 5000>>
	<<if $trainingUpgradeEducation == "unselected">>

The corporation has enough training expertise to specialize. Train slaves with
		<<link "Basic educations">><<set $trainingUpgradeEducation = "basic">><<replace "#direction">>
<<print "You directed the corporation to focus on ensuring slaves are properly educated.">><</replace>><</link>>
		| <<link "No training">><<set $trainingUpgradeEducation = "none">><<replace "#direction">>
<<print "You directed the corporation to focus on getting slaves broken, not educated.">><</replace>><</link>>
	<</if>>
<</if>>
<<if $trainingAssets >= 10000>>
	<<if $trainingUpgradeSexEd == "unselected">>

The corporation has enough training expertise to specialize. Train slaves' sexual knowledge to
		<<link "Competence">><<set $trainingUpgradeSexEd = "competence">><<replace "#direction">>
<<print "You directed the corporation to ensure slaves know basic sexual skills.">><</replace>><</link>>
		| <<link "Highly Skilled">><<set $trainingUpgradeSexEd = "highly skilled">><<replace "#direction">>
<<print "You directed the corporation to ensure slaves are sexually proficient.">><</replace>><</link>>
		| <<link "No training">><<set $trainingUpgradeSexEd = "none">><<replace "#direction">>
<<print "You directed the corporation to focus on getting slaves trained rather than skilled.">><</replace>><</link>>
	<</if>>
<</if>>
<<if $surgicalAssets >= 2000>>
	<<if $surgicalUpgradeCosmetics == "unselected">>

The corporation has enough surgical expertise to specialize. Straightforward cosmetic procedures should be
		<<link "Applied">><<set $surgicalUpgradeCosmetics = "applied">><<replace "#direction">>
<<print "You directed the corporation to give slaves straightforward cosmetic surgeries.">><</replace>><</link>>
		| <<link "Not applied">><<set $surgicalUpgradeCosmetics = "none">><<replace "#direction">>
<<print "You directed the corporation to leave slaves surgically unaltered.">><</replace>><</link>>
	<</if>>
<</if>>
<<if $surgicalAssets >= 5000>>
	<<if $surgicalUpgradeImplants == "unselected">>

The corporation has enough surgical expertise to specialize. Implants should be
		<<link "Applied">><<set $surgicalUpgradeImplants = "applied">><<replace "#direction">>
<<print "You directed the corporation to give slaves basic implants.">><</replace>><</link>>
		| <<link "Absurd">><<set $surgicalUpgradeImplants = "absurd">><<replace "#direction">>
<<print "You directed the corporation to give slaves absurd implants.">><</replace>><</link>>
		| <<link "Not applied">><<set $surgicalUpgradeImplants = "none">><<replace "#direction">>
<<print "You directed the corporation to leave slaves without implants.">><</replace>><</link>>
	<</if>>
<</if>>
<<if $surgicalAssets >= 10000>>
	<<if $seeDicks != 0>>
	<<if $surgicalUpgradeGenitalia == "unselected">>

The corporation has enough surgical expertise to specialize. Slaves' genitals should be reconfigured to
		<<link "Futanari">><<set $surgicalUpgradeGenitalia = "futanari">><<replace "#direction">>
<<print "You directed the corporation to create futanari.">><</replace>><</link>>
		<<if $seeExtreme != 0>>
			| <<link "Remove balls">><<set $surgicalUpgradeGenitalia = "gelded">><<replace "#direction">>
<<print "You directed the corporation to remove slaves' balls.">><</replace>><</link>>
			| <<link "Mindbreak and remove limbs">><<set $surgicalUpgradeGenitalia = "fucknugget", $generalUpgradeBreaking = "none", $entrapmentUpgradeDevotionOne = "none", $entrapmentUpgradeDevotionTwo = "none", $trainingUpgradeAccent = "none", $trainingUpgradeEducation = "none", $trainingUpgradeSexEd = "none">><<replace "#direction">>
<<print "You directed the corporation to produce limbless, mindless slaves.">><</replace>><</link>>
		<</if>>
		| <<link "None">><<set $surgicalUpgradeGenitalia = "none">><<replace "#direction">>
<<print "You directed the corporation to leave slaves without major genital reconfiguration.">><</replace>><</link>>
	<</if>>
	<</if>>
<</if>>
<<if $drugAssets >= 2000>>
	<<if $drugUpgradeHormones == "unselected">>

The corporation has surplus pharmaceutical fabrication to specialize. Hormones should be applied to
		<<link "Feminize">><<set $drugUpgradeHormones = "XX">><<replace "#direction">>
<<print "You directed the corporation to treat slaves with female hormones.">><</replace>><</link>>
		| <<link "Masculinize">><<set $drugUpgradeHormones = "XY">><<replace "#direction">>
<<print "You directed the corporation to treat slaves with male hormones.">><</replace>><</link>>
		| <<link "Not applied">><<set $drugUpgradeHormones = "none">><<replace "#direction">>
<<print "You directed the corporation not to apply hormones.">><</replace>><</link>>
	<</if>>
<</if>>
<<if $drugAssets >= 5000>>
	<<if $drugUpgradeInjectionOne == "unselected">>

The corporation has surplus pharmaceutical fabrication to specialize. Growth injections should be applied until T&A are grown to a
		<<link "Tasteful size">><<set $drugUpgradeInjectionOne = "tasteful">><<replace "#direction">>
<<print "You directed the corporation to grow slaves' assets to a moderate size.">><</replace>><</link>>
		| <<link "Huge size">><<set $drugUpgradeInjectionOne = "huge">><<replace "#direction">>
<<print "You directed the corporation to grow slaves' assets to a huge size.">><</replace>><</link>>
		| <<link "Not applied">><<set $drugUpgradeInjectionOne = "none">><<replace "#direction">>
<<print "You directed the corporation not to apply growth injections.">><</replace>><</link>>
	<</if>>
<</if>>
<<if $drugAssets >= 10000>>
	<<if $drugUpgradeInjectionTwo == "unselected">>

The corporation has surplus pharmaceutical fabrication to specialize. Advanced growth injections should be
		<<link "Supermassive">><<set $drugUpgradeInjectionTwo = "supermassive">><<replace "#direction">>
<<print "You directed the corporation to apply supermassive growth injections.">><</replace>><</link>>
		| <<link "Pastoral">><<set $drugUpgradeInjectionTwo = "pastoral">><<replace "#direction">>
<<print "You directed the corporation to apply growth injections focused on milk<<if $seeDicks > 0>> and cum<</if>> production.">><</replace>><</link>>
		| <<link "Not applied">><<set $drugUpgradeInjectionTwo = "none">><<replace "#direction">>
<<print "You directed the corporation not to apply advanced growth injections.">><</replace>><</link>>
	<</if>>
<</if>>


code:
:: Cosmetic Rules Assistant Settings [nobr]

<<set $nextButton = "Back">>
<<set $nextLink = "Rules Assistant">>
<<set $showEncyclopedia = 1>><<set $encyclopedia = "Personal Assistant">>

//Please use the 'no default setting' option to identify areas I should not address.//

__Rule $r Optometry options:__

Eyewear: ''$currentRule.eyewear.''

<<link "No default setting">>
<<set $currentRule.eyewear = "no default setting">>
<<RAChangeEyewear>>
<</link>>
| <<link "Correct with glasses">>
<<set $currentRule.eyewear = "correct with glasses">>
<<RAChangeEyewear>>
<</link>>
| <<link "Correct with contacts">>
<<set $currentRule.eyewear = "correct with contacts">>
<<RAChangeEyewear>>
<</link>>
| <<link "Universal glasses">>
<<set $currentRule.eyewear = "universal glasses">>
<<RAChangeEyewear>>
<</link>>
| <<link "Blur with glasses">>
<<set $currentRule.eyewear = "blur with glasses">>
<<RAChangeEyewear>>
<</link>>
| <<link "Blur with contacts">>
<<set $currentRule.eyewear = "blur with contacts">>
<<RAChangeEyewear>>
<</link>>

__Rule $r Cosmetic options:__

Eye coloring: ''$currentRule.eyeColor.''

<<link "No default eye color setting">>
<<set $currentRule.eyeColor = "no default setting">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Blue">>
<<set $currentRule.eyeColor = "blue">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Black">>
<<set $currentRule.eyeColor = "black">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Brown">>
<<set $currentRule.eyeColor = "brown">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Green">>
<<set $currentRule.eyeColor = "green">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Turquoise">>
<<set $currentRule.eyeColor = "turquoise">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Sky-blue">>
<<set $currentRule.eyeColor = "sky-blue">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Hazel">>
<<set $currentRule.eyeColor = "hazel">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Pale-grey">>
<<set $currentRule.eyeColor = "pale-grey">>
<<RAChangeEyecolor>>
<</link>>
| <<link "White">>
<<set $currentRule.eyeColor = "white">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Pink">>
<<set $currentRule.eyeColor = "pink">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Amber">>
<<set $currentRule.eyeColor = "amber">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Red">>
<<set $currentRule.eyeColor = "red">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Catlike">>
<<set $currentRule.eyeColor = "catlike">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Serpent-like">>
<<set $currentRule.eyeColor = "serpent-like">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Devilish">>
<<set $currentRule.eyeColor = "devilish">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Demonic">>
<<set $currentRule.eyeColor = "demonic">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Hypnotic">>
<<set $currentRule.eyeColor = "hypnotic">>
<<RAChangeEyecolor>>
<</link>>
| <<link "Heart-shaped">>
<<set $currentRule.eyeColor = "heart-shaped">>
<<RAChangeEyecolor>>
<</link>>

Makeup:

''
<<if $currentRule.makeup == 0>>
	makeup-free.
<<elseif $currentRule.makeup == 1>>
	minimal makeup.
<<elseif $currentRule.makeup == 2>>
	luxurious, expensive makeup.
<<elseif $currentRule.makeup == 3>>
	color-coordinated.
<<elseif $currentRule.makeup == 4>>
	garish.
<<else>>
	no default setting.
<</if>>
''

<<link "No default makeup setting">>
<<set $currentRule.makeup = "no default setting">>
<<RAChangeMakeup>>
<</link>>
| <<link "Makeup-free">>
<<set $currentRule.makeup = 0>>
<<RAChangeMakeup>>
<</link>>
| <<link "Nice">>
<<set $currentRule.makeup = 1>>
<<RAChangeMakeup>>
<</link>>
| <<link "Gorgeous">>
<<set $currentRule.makeup = 2>>
<<RAChangeMakeup>>
<</link>>
| <<link "Color-coordinate with hair">>
<<set $currentRule.makeup = 3>>
<<RAChangeMakeup>>
<</link>>
| <<link "Slutty">>
<<set $currentRule.makeup = 4>>
<<RAChangeMakeup>>
<</link>>

Nails:

''
<<if $currentRule.nails == 0>>
	clipped.
<<elseif $currentRule.nails == 1>>
	long and elegant.
<<elseif $currentRule.nails == 2>>
	color-coordinated.
<<elseif $currentRule.nails == 3>>
	sharp and claw-like.
<<elseif $currentRule.nails == 4>>
	bright and glittery.
<<elseif $currentRule.nails == 5>>
	garish.
<<else>>
	no default setting.
<</if>>
''

<<link "No default nails setting">>
<<set $currentRule.nails = "no default setting">>
<<RAChangeNails>>
<</link>>
| <<link "Clipped">>
<<set $currentRule.nails = 0>>
<<RAChangeNails>>
<</link>>
| <<link "Extended">>
<<set $currentRule.nails = 1>>
<<RAChangeNails>>
<</link>>
| <<link "Color-coordinate with hair">>
<<set $currentRule.nails = 2>>
<<RAChangeNails>>
<</link>>
| <<link "Sharp and claw-like">>
<<RAChangeNails>>
<<set $currentRule.nails = 3>>
<</link>>
| <<link "Bright and glittery">>
<<RAChangeNails>>
<<set $currentRule.nails = 4>><</link>>
| <<link "Hooker nails">>
<<RAChangeNails>>
<<set $currentRule.nails = 5>>
<</link>>

Hair color: ''$currentRule.hColor.''

<<link "No default hair color setting">>
<<set $currentRule.hColor = "no default setting">>
<<RAChangeHColor>>
<</link>>
| <<link "Blonde">>
<<set $currentRule.hColor = "blonde">>
<<RAChangeHColor>>
<</link>>
| <<link "Golden">>
<<set $currentRule.hColor = "golden">>
<<RAChangeHColor>>
<</link>>
| <<link "Platinum Blonde">>
<<set $currentRule.hColor = "platinum blonde">>
<<RAChangeHColor>>
<</link>>
| <<link "Strawberry-Blonde">>
<<set $currentRule.hColor = "strawberry-blonde">>
<<RAChangeHColor>>
<</link>>
| <<link "Copper">>
<<set $currentRule.hColor = "copper">>
<<RAChangeHColor>>
<</link>>
| <<link "Ginger">>
<<set $currentRule.hColor = "ginger">>
<<RAChangeHColor>>
<</link>>
| <<link "Red">>
<<set $currentRule.hColor = "red">>
<<RAChangeHColor>>
<</link>>
| <<link "Green">>
<<set $currentRule.hColor = "green">>
<<RAChangeHColor>>
<</link>>
| <<link "Blue">>
<<set $currentRule.hColor = "blue">>
<<RAChangeHColor>>
<</link>>
| <<link "Pink">>
<<set $currentRule.hColor = "pink">>
<<RAChangeHColor>>
<</link>>
| <<link "Dark Brown">>
<<set $currentRule.hColor = "dark brown">>
<<RAChangeHColor>>
<</link>>
| <<link "Brown">>
<<set $currentRule.hColor = "brown">>
<<RAChangeHColor>>
<</link>>
| <<link "Auburn">>
<<set $currentRule.hColor = "auburn">>
<<RAChangeHColor>>
<</link>>
| <<link "Burgundy">>
<<set $currentRule.hColor = "burgundy">>
<<RAChangeHColor>>
<</link>>
| <<link "Chocolate">>
<<set $currentRule.hColor = "chocolate">>
<<RAChangeHColor>>
<</link>>
| <<link "Chestnut">>
<<set $currentRule.hColor = "chestnut">>
<<RAChangeHColor>>
<</link>>
| <<link "Hazel">>
<<set $currentRule.hColor = "hazel">>
<<RAChangeHColor>>
<</link>>
| <<link "Black">>
<<set $currentRule.hColor = "black">>
<<RAChangeHColor>>
<</link>>
| <<link "Grey">>
<<set $currentRule.hColor = "grey">>
<<RAChangeHColor>>
<</link>>
| <<link "Silver">>
<<set $currentRule.hColor = "silver">>
<<RAChangeHColor>>
<</link>>
| <<link "White">>

<<set $currentRule.hColor = "white">>
<<RAChangeHColor>>
<</link>>

Hair style: ''$currentRule.hStyle.''

<<link "No default hair length setting">>
<<set $currentRule.hStyle = "no default setting">>
<<RAChangeHStyle>>
<</link>>
| <<link "Neat">>
<<set $currentRule.hStyle = "neat">>
<<RAChangeHStyle>>
<</link>>
| <<link "Shaved">>
<<set $currentRule.hStyle = "shaved",$currentRule.hLength = 0>>
<<RAChangeHStyle>>
<</link>>
| <<link "Trimmed short">>
<<set $currentRule.hStyle = "trimmed",$currentRule.hLength = 10>>
<<RAChangeHStyle>>
<</link>>
| <<link "Buzzcut">>
<<set $currentRule.hStyle = "buzzcut",$currentRule.hLength = 1>>
<<RAChangeHStyle>>
<</link>>
| <<link "Up">>
<<set $currentRule.hStyle = "up">>
<<RAChangeHStyle>>
<</link>>
| <<link "In a ponytail">>
<<set $currentRule.hStyle = "ponytail">>
<<RAChangeHStyle>>
<</link>>
| <<link "In a bun">>
<<set $currentRule.hStyle = "bun">>
<<RAChangeHStyle>>
<</link>>
| <<link "Curled">>
<<set $currentRule.hStyle = "curls">>
<<RAChangeHStyle>>
<</link>>
| <<link "Permed">>
<<set $currentRule.hStyle = "permed">>
<<RAChangeHStyle>>
<</link>>
| <<link "Luxurious">>
<<set $currentRule.hStyle = "luxurious">>
<<RAChangeHStyle>>
<</link>>
| <<link "Dreadlocks">>
<<set $currentRule.hStyle = "dreadlocks">>
<<RAChangeHStyle>>
<</link>>
| <<link "Cornrows">>
<<set $currentRule.hStyle = "cornrows">>
<<RAChangeHStyle>>
<</link>>
| <<link "Braided">>
<<set $currentRule.hStyle = "braided">>
<<RAChangeHStyle>>
<</link>>
| <<link "In tails">>
<<set $currentRule.hStyle = "tails">>
<<RAChangeHStyle>>
<</link>>
| <<link "Afro">>
<<set $currentRule.hStyle = "afro">>
<<RAChangeHStyle>>
<</link>>
| <<link "Shaved sides">>
<<set $currentRule.hStyle = "strip">>
<<RAChangeHStyle>>
<</link>>

<<if $currentRule.hStyle != "shaved">>

Hair length: ''$currentRule.hLength.''

<<link "No default hair length setting">>
<<set $currentRule.hLength = "no default setting">>
<<RAChangeHLength>>
<</link>>
| <<link "Very short">>
<<set $currentRule.hLength = 5>>
<<RAChangeHLength>>
<</link>>
| <<link "Short">>
<<set $currentRule.hLength = 10>>
<<RAChangeHLength>>
<</link>>
| <<link "Shoulder length">>
<<set $currentRule.hLength = 30>>
<<RAChangeHLength>>
<</link>>
| <<link "Long">>
<<set $currentRule.hLength = 60>>
<<RAChangeHLength>>
<</link>>
| <<link "Very long">>
<<set $currentRule.hLength = 100>>
<<RAChangeHLength>>
<</link>>
| <<link "Floor length">>
<<set $currentRule.hLength = 150>>
<<RAChangeHLength>>
<</link>>

<</if>>

Pubic hair color, when present: ''$currentRule.pubicHColor.''

<<link "No default pubic hair color setting">>
<<set $currentRule.pubicHColor = "no default setting">>
<<RAChangePHColor>>
<</link>>
| <<link "Blonde">>
<<set $currentRule.pubicHColor = "blonde">>
<<RAChangePHColor>>
<</link>>
| <<link "Golden">>
<<set $currentRule.pubicHColor = "golden">>
<<RAChangePHColor>>
<</link>>
| <<link "Platinum Blonde">>
<<set $currentRule.pubicHColor = "platinum blonde">>
<<RAChangePHColor>>
<</link>>
| <<link "Strawberry-Blonde">>
<<set $currentRule.pubicHColor = "strawberry-blonde">>
<<RAChangePHColor>>
<</link>>
| <<link "Copper">>
<<set $currentRule.pubicHColor = "copper">>
<<RAChangePHColor>>
<</link>>
| <<link "Ginger">>
<<set $currentRule.pubicHColor = "ginger">>
<<RAChangePHColor>>
<</link>>
| <<link "Red">>
<<set $currentRule.pubicHColor = "red">>
<<RAChangePHColor>>
<</link>>
| <<link "Green">>
<<set $currentRule.pubicHColor = "green">>
<<RAChangePHColor>>
<</link>>
| <<link "Blue">>
<<set $currentRule.pubicHColor = "blue">>
<<RAChangePHColor>>
<</link>>
| <<link "Pink">>
<<set $currentRule.pubicHColor = "pink">>
<<RAChangePHColor>>
<</link>>
| <<link "Dark Brown">>
<<set $currentRule.pubicHColor = "dark brown">>
<<RAChangePHColor>>
<</link>>
| <<link "Brown">>
<<set $currentRule.pubicHColor = "brown">>
<<RAChangePHColor>>
<</link>>
| <<link "Auburn">>
<<set $currentRule.pubicHColor = "auburn">>
<<RAChangePHColor>>
<</link>>
| <<link "Burgundy">>
<<set $currentRule.pubicHColor = "burgundy">>
<<RAChangePHColor>>
<</link>>
| <<link "Chocolate">>
<<set $currentRule.pubicHColor = "chocolate">>
<<RAChangePHColor>>
<</link>>
| <<link "Chestnut">>
<<set $currentRule.pubicHColor = "chestnut">>
<<RAChangePHColor>>
<</link>>
| <<link "Hazel">>
<<set $currentRule.pubicHColor = "hazel">>
<<RAChangePHColor>>
<</link>>
| <<link "Black">>
<<set $currentRule.pubicHColor = "black">>
<<RAChangePHColor>>
<</link>>
| <<link "Grey">>
<<set $currentRule.pubicHColor = "grey">>
<<RAChangePHColor>>
<</link>>
| <<link "Silver">>
<<set $currentRule.pubicHColor = "silver">>
<<RAChangePHColor>>
<</link>>
| <<link "White">>
<<set $currentRule.pubicHColor = "white">>
<<RAChangePHColor>>
<</link>>

Pubic hair style: ''$currentRule.pubicHStyle.''

<<link "No default pubic hair style setting">>
<<set $currentRule.pubicHStyle = "no default setting">>
<<RAChangePHStyle>>
<</link>>
| <<link "Hairless">>
<<set $currentRule.pubicHStyle = "hairless">>
<<RAChangePHStyle>>
<</link>>
| <<link "Waxed">>
<<set $currentRule.pubicHStyle = "waxed">>
<<RAChangePHStyle>>
<</link>>
| <<link "Landing strip">>
<<set $currentRule.pubicHStyle = "in a strip">>
<<RAChangePHStyle>>
<</link>>
| <<link "Neat">>
<<set $currentRule.pubicHStyle = "neat">>
<<RAChangePHStyle>>
<</link>>
| <<link "Bushy">>
<<set $currentRule.pubicHStyle = "bushy">>
<<RAChangePHStyle>>
<</link>>
| <<link "Bushy in front and clean in back">>
<<set $currentRule.pubicHStyle = "bushy in the front and neat in the rear">>
<<RAChangePHStyle>>
<</link>>

Underarm hair color, when present: ''$currentRule.underArmHColor.''

<<link "No default underarm hair color setting">>
<<set $currentRule.underArmHColor = "no default setting">>
<<RAChangeAHColor>>
<</link>>
| <<link "Blonde">>
<<set $currentRule.underArmHColor = "blonde">>
<<RAChangeAHColor>>
<</link>>
| <<link "Golden">>
<<set $currentRule.underArmHColor = "golden">>
<<RAChangeAHColor>>
<</link>>
| <<link "Platinum Blonde">>
<<set $currentRule.underArmHColor = "platinum blonde">>
<<RAChangeAHColor>>
<</link>>
| <<link "Strawberry-Blonde">>
<<set $currentRule.underArmHColor = "strawberry-blonde">>
<<RAChangeAHColor>>
<</link>>
| <<link "Copper">>
<<set $currentRule.underArmHColor = "copper">>
<<RAChangeAHColor>>
<</link>>
| <<link "Ginger">>
<<set $currentRule.underArmHColor = "ginger">>
<<RAChangeAHColor>>
<</link>>
| <<link "Red">>
<<set $currentRule.underArmHColor = "red">>
<<RAChangeAHColor>>
<</link>>
| <<link "Green">>
<<set $currentRule.underArmHColor = "green">>
<<RAChangeAHColor>>
<</link>>
| <<link "Blue">>
<<set $currentRule.underArmHColor = "blue">>
<<RAChangeAHColor>>
<</link>>
| <<link "Pink">>
<<set $currentRule.underArmHColor = "pink">>
<<RAChangeAHColor>>
<</link>>
| <<link "Dark Brown">>
<<set $currentRule.underArmHColor = "dark brown">>
<<RAChangeAHColor>>
<</link>>
| <<link "Brown">>
<<set $currentRule.underArmHColor = "brown">>
<<RAChangeAHColor>>
<</link>>
| <<link "Auburn">>
<<set $currentRule.underArmHColor = "auburn">>
<<RAChangeAHColor>>
<</link>>
| <<link "Burgundy">>
<<set $currentRule.underArmHColor = "burgundy">>
<<RAChangeAHColor>>
<</link>>
| <<link "Chocolate">>
<<set $currentRule.underArmHColor = "chocolate">>
<<RAChangeAHColor>>
<</link>>
| <<link "Chestnut">>
<<set $currentRule.underArmHColor = "chestnut">>
<<RAChangeAHColor>>
<</link>>
| <<link "Hazel">>
<<set $currentRule.underArmHColor = "hazel">>
<<RAChangeAHColor>>
<</link>>
| <<link "Black">>
<<set $currentRule.underArmHColor = "black">>
<<RAChangeAHColor>>
<</link>>
| <<link "Grey">>
<<set $currentRule.underArmHColor = "grey">>
<<RAChangeAHColor>>
<</link>>
| <<link "Silver">>
<<set $currentRule.underArmHColor = "silver">>
<<RAChangeAHColor>>
<</link>>
| <<link "White">>
<<set $currentRule.underArmHColor = "white">>
<<RAChangeAHColor>>
<</link>>

<<if ndef $currentRule.underArmHStyle>>
<<set $currentRule.underArmHStyle = "no default setting">>
<</if>>
Underarm hair style: ''$currentRule.underArmHStyle.''

<<link "No default underarm hair style setting">>
<<set $currentRule.underArmHStyle = "no default setting">>
<<RAChangeAHStyle>>
<</link>>
| <<link "Hairless">>
<<set $currentRule.underArmHStyle = "hairless">>
<<RAChangeAHStyle>>
<</link>>
| <<link "Waxed">>
<<set $currentRule.underArmHStyle = "waxed">>
<<RAChangeAHStyle>>
<</link>>
| <<link "Landing strip">>
<<set $currentRule.underArmHStyle = "shaved">>
<<RAChangeAHStyle>>
<</link>>
| <<link "Neat">>
<<set $currentRule.underArmHStyle = "neat">>
<<RAChangeAHStyle>>
<</link>>
| <<link "Bushy">>
<<set $currentRule.underArmHStyle = "bushy">>
<<RAChangeAHStyle>>
<</link>>


code:
:: Costs [nobr]

<<set $costs = ($brothel*$facilityCost)+($arcade*$facilityCost*0.5)+($club*$facilityCost)+($dairy*$facilityCost)+($incubator*$facilityCost*10)>>

<<set $costs += (0.2*$brothelUpgradeDrugs*$brothel*$facilityCost)+(0.2*$arcadeUpgradeInjectors*$arcade*$facilityCost)+(0.2*$arcadeUpgradeCollectors*$arcade*$facilityCost)+(0.2*$clubUpgradePDAs*$club*$facilityCost)+(0.2*$dairyFeedersUpgrade*$dairy*$facilityCost)+(0.1*$dairyPregUpgrade*$dairy*$facilityCost)+(0.2*$dairyStimulatorsUpgrade*$facilityCost)+(0.2*$servantsQuartersUpgradeMonitoring*$servantsQuarters*$facilityCost)+(0.2*$incubatorUpgradeWeight*$incubator*$facilityCost)+(0.2*$incubatorUpgradeMuscles*$incubator*$facilityCost)+(0.2*$incubatorUpgradeReproduction*$incubator*$facilityCost)+(0.5*$incubatorUpgradeSpeed*$incubator*$facilityCost)>>

<<if $dairy > 0>>
	<<set $costs += ($bioreactorsXY+$bioreactorsXX+$bioreactorsHerm+$bioreactorsBarren)*100>>
<</if>>

<<if $brothel > 0>>
	<<set $costs += $brothelAdsSpending>>
<</if>>
<<if $club > 0>>
	<<set $costs += $clubAdsSpending>>
<</if>>

<<if $incubator > 0>>
	<<set $costs += ($incubatorWeightSetting+$incubatorMusclesSetting+$incubatorReproductionSetting)*500>>
<</if>>

<<if ($masterSuitePregnancySlaveLuxuries == 1)>>
	<<set $costs += 500>>
<</if>>
<<if ($masterSuitePregnancyFertilitySupplements == 1)>>
	<<set $costs += 1000>>
<</if>>

<<set $costs += ($girls*(250+($economy*500)))>>

<<if $arcologies[0].FSRepopulationFocusLaw == 1 && $PC.preg > 4>>
	<<set $costs -= 500>>
<</if>>

<<if ($PC.warfare >= 100) || ($PC.career == "arcology owner")>>
	<<set $costs += ($mercenaries*500)>>
<<else>>
	<<set $costs += ($mercenaries*1000)>>
<</if>>

<<set $costs += $FSSpending>>

<<for $i = 0; $i < $slaves.length; $i++>>

<<if $slaves[$i].livingRules == "luxurious">>
	<<if $slaves[$i].relationship >= 4>>
	<<set $costs += ($rulesCost*3)>>
	<<else>>
	<<set $costs += ($rulesCost*4)>>
	<</if>>
<<elseif $slaves[$i].livingRules == "normal">>
	<<set $costs += ($rulesCost*2)>>
<<else>>
	<<set $costs += $rulesCost>>
<</if>>

<<set $costs += $foodCost*4>>
<<switch $slaves[$i].diet>>
<<case "fattening" "muscle building">>
	<<set $costs += $foodCost>>
<<case "restricted" "slimming">>
	<<set $costs -= $foodCost>>
<</switch>>
<<if $slaves[$i].weight > 50>>
	<<set $costs += $foodCost>>
<<elseif $slaves[$i].weight < -50>>
	<<set $costs -= $foodCost>>
<</if>>
<<if $slaves[$i].drugs == "appetite suppressors">>
	<<set $costs -= $foodCost>>
<</if>>
<<if $slaves[$i].lactation > 0>>
	<<set $costs += $foodCost*$slaves[$i].lactation*(1+Math.trunc($slaves[$i].boobs/10000))>>
<</if>>
<<if $slaves[$i].preg > 5>>
	<<if $slaves[$i].assignment == "work in the dairy" && $dairyFeedersSetting > 0>>
	<<elseif ($slaves[$i].assignment == "serve in the master suite" || $slaves[$i].assignment == "be your concubine") && $masterSuiteUpgradePregnancy == 1>>
	<<else>>
		<<if $slaves[$i].pregControl == "speed up">>
			<<set $costs += $foodCost*$slaves[$i].pregType*3>>
		<<else>>
			<<set $costs += $foodCost*$slaves[$i].pregType>>
		<</if>>
	<</if>>
<</if>>

<<if ($slaves[$i].diet == "XX") || ($slaves[$i].diet == "XY")>>
	<<set $costs += 25>>
<<elseif ($slaves[$i].diet == "XXY")>>
	<<set $costs += 75>>
<</if>>

<<if $boobAccessibility != 1>>
	<<if ($slaves[$i].boobs > 7500)>>
	<<if ($slaves[$i].assignment != "work in the dairy") || ($dairyRestraintsSetting < 2)>>
	<<set $costs += 50>>
	<</if>>
	<</if>>
<</if>>

<<if $pregAccessibility != 1>>
	<<if ($slaves[$i].preg > 30 && $slaves[$i].pregType >= 2) || ($slaves[$i].preg > 20 && $slaves[$i].pregType >= 10) || ($slaves[$i].preg > 10 && $slaves[$i].pregType >= 20) || $slaves[$i].bellyImplant >= 10000>>
	<<if ($slaves[$i].assignment != "labor in the production line")>>
	<<set $Costs += 100>>
	<</if>>
	<</if>>
<</if>>

<<if $dickAccessibility != 1>>
	<<if ($slaves[$i].dick > 45)>>
	<<set $costs += 50>>
	<</if>>
<</if>>

<<if $ballsAccessibility != 1>>
	<<if ($slaves[$i].balls > 90)>>
	<<set $costs += 50>>
	<</if>>
<</if>>

<<if $buttAccessibility != 1>>
	<<if ($slaves[$i].butt > 15)>>
	<<set $costs += 50>>
	<</if>>
<</if>>

<<if $slaves[$i].boobs > 10000>>
<<if $slaves[$i].boobsImplantType == 1>>
	<<set $costs += 50>>
<</if>>
<</if>>
<<if $slaves[$i].butt > 10>>
<<if $slaves[$i].buttImplantType == 1>>
	<<set $costs += 50>>
<</if>>
<</if>>

<<if $slaves[$i].preg > 25>>
<<if $slaves[$i].universalRulesBirthing == 1>>
	<<set $costs += 50>>
<</if>>
<</if>>

<<if $CitizenRetirement == 1>>
	<<set $costs += 250>>
<</if>>

<<if ($slaves[$i].assignment == "be a servant") || ($slaves[$i].assignment == "work as a servant")>>
	<<if $slaves[$i].trust < -20>>
		<<set $costs -= ($rulesCost*4)>>
	<<elseif $slaves[$i].devotion < -20>>
		<<set $costs -= ($rulesCost*2)>>
	<<elseif $slaves[$i].devotion <= 20>>
		<<set $costs -= ($rulesCost*3)>>
	<<elseif $slaves[$i].devotion <= 50>>
		<<set $costs -= ($rulesCost*4)>>
	<<else>>
		<<set $costs -= ($rulesCost*5)>>
	<</if>>
	<<if ($slaves[$i].fetish == "submissive")>>
		<<set $costs -= ($rulesCost)>>
	<<elseif ($slaves[$i].fetish == "dom")>>
		<<set $costs += ($rulesCost)>>
	<</if>>
	<<if ($slaves[$i].relationship < -1)>>
		<<set $costs -= ($rulesCost)>>
	<</if>>
	<<if ($slaves[$i].energy < 20)>>
		<<set $costs -= ($rulesCost)>>
	<<elseif ($slaves[$i].energy < 40)>>
		<<set $costs -= ($rulesCost/2)>>
	<</if>>
	<<if ($slaves[$i].lactation > 0)>>
		<<set $costs -= 25>>
	<</if>>
<</if>>

<<if ($slaves[$i].amp != 0)>>
  <<if ($slaves[$i].amp == 1)>>
	<<set $costs += $rulesCost>>
  <<else>>
	<<set $costs += $rulesCost/2>>
  <</if>>
<<elseif !canWalk($slaves[$i])>>
  <<set $costs += $rulesCost>>
<</if>>

<<if !canSee($slaves[$i])>>
	<<set $costs += 50>>
<<elseif $slaves[$i].eyes <= -1>>
	<<if $slaves[$i].eyewear != "corrective glasses">>
	<<if $slaves[$i].eyewear != "corrective contacts">>
	<<set $costs += 25>>
	<</if>>
	<</if>>
<<elseif ($slaves[$i].eyewear == "blurring glasses") || ($slaves[$i].eyewear == "blurring contacts")>>
	<<set $costs += 25>>
<</if>>

<<if ($servantsQuartersUpgradeMonitoring == 1)>>
	<<if ($slaves[$i].assignment == "work as a servant")>>
	<<set $costs -= ($rulesCost)>>
	<</if>>
<</if>>

<<if ($slaves[$i].inflation == 3)>>
	<<switch $slaves[$i].inflationType>>
	<<case "water">>
		<<set $costs += 100>>
	<<case "curative" "aphrodisiac" "tightener">>
		<<set $costs += (100+($drugsCost*2))>>
	<</switch>>
<<elseif ($slaves[$i].inflation == 2)>>
	<<switch $slaves[$i].inflationType>>
	<<case "water">>
		<<set $costs += 50>>
	<<case "curative" "aphrodisiac" "tightener">>
		<<set $costs += (50+($drugsCost*2))>>
	<</switch>>
<<elseif ($slaves[$i].inflation == 1)>>
	<<switch $slaves[$i].inflationType>>
	<<case "water">>
		<<set $costs += 25>>
	<<case "curative" "aphrodisiac" "tightener">>
		<<set $costs += (25+($drugsCost*2))>>
	<</switch>>
<</if>>

<<if ($slaves[$i].drugs == "female hormone injections") || ($slaves[$i].drugs == "male hormone injections")>>
	<<set $costs += ($drugsCost*5)>>
<<elseif ($slaves[$i].drugs == "anti-aging cream")>>
	<<set $costs += ($drugsCost*10)>>
<<elseif ($slaves[$i].drugs != "no drugs")>>
	<<set $costs += ($drugsCost*2)>>
<</if>>
<<if ($slaves[$i].curatives > 0)>>
	<<set $costs += $drugsCost+($slaves[$i].curatives*$drugsCost)>>
<<elseif ndef $slaves[$i].curatives>>
	<<set $slaves[$i].curatives = 0>>
<</if>>
<<if ($slaves[$i].aphrodisiacs > 0)>>
	<<set $costs += $drugsCost*$slaves[$i].aphrodisiacs>>
<<elseif ndef $slaves[$i].aphrodisiacs>>
	<<set $slaves[$i].aphrodisiacs = 0>>
<</if>>

<<set $costs += $drugsCost*Math.abs($slaves[$i].hormones)*0.5>>

<<if ($slaves[$i].preg == -1) && isFertile($slaves[$i])>>
	<<set $costs += $drugsCost*0.5>>
<</if>>

<<if ($studio == 1)>>
	<<set $costs += $slaves[$i].pornFameSpending>>
<</if>>

<</for>>

<<if $Recruiter != 0>>
	<<set $costs += 250>>
<</if>>
<<if $TSS.schoolPresent == 1>>
	<<set $costs += 1000>>
<</if>>
<<if $GRI.schoolPresent == 1>>
	<<set $costs += 1000>>
<</if>>
<<if $SCP.schoolPresent == 1>>
	<<set $costs += 1000>>
<</if>>
<<if $LDE.schoolPresent == 1>>
	<<set $costs += 1000>>
<</if>>
<<if $TGA.schoolPresent == 1>>
	<<set $costs += 1000>>
<</if>>
<<if ($TFS.schoolPresent == 1) && (($PC.dick == 0) || ($PC.vagina == 0) || ($PC.boobs == 0))>>
	<<set $costs += 1000>>
<</if>>
<<if $TSS.subsidize != 0>>
	<<set $costs += 1000>>
<</if>>
<<if $GRI.subsidize != 0>>
	<<set $costs += 1000>>
<</if>>
<<if $SCP.subsidize != 0>>
	<<set $costs += 1000>>
<</if>>
<<if $LDE.subsidize != 0>>
	<<set $costs += 1000>>
<</if>>
<<if $TGA.subsidize != 0>>
	<<set $costs += 1000>>
<</if>>
<<if $TFS.subsidize != 0>>
	<<set $costs += 1000>>
<</if>>

<<if $alwaysSubsidizeGrowth == 1>>
	<<set $costs += $policyCost>>
<</if>>
<<if $alwaysSubsidizeRep == 1>>
	<<set $costs += $policyCost>>
<</if>>
<<if $RegularParties == 1>>
	<<set $costs += $policyCost>>
<</if>>

<<if $ProImmigrationCash == 1>>
	<<set $costs += $policyCost>>
<</if>>
<<if $AntiEnslavementCash == 1>>
	<<set $costs += $policyCost>>
<</if>>

<<if $CoursingAssociation == 1>>
	<<set $costs += 1000>>
<</if>>

<<if $cyberMod != 0 && $researchLab.built == "true">>
	<<set $costs += ((100*$researchLab.maxSpace)+(300*$researchLab.hired)+(100*$researchLab.hired))>>
<</if>>

<<if $PC.preg == -1>>
	<<set $costs += 25>>
<<elseif $PC.preg >= 16>>
	<<set $costs += 100>>
<</if>>

<<if $PC.career == "servant">>
	<<if $personalAttention == "upkeep">>
		<<if $PC.preg >= 20>>
			<<set $costs = ($costs*0.80)>>
		<<else>>
			<<set $costs = ($costs*0.75)>>
		<</if>>
	<<else>>
	<<set $costs = ($costs*0.90)>>
	<</if>>
<</if>>

<<if $costs < 0>>
	<<set $costs = 0>>
<<else>>
	<<set $costs = Math.trunc($costs)>>
<</if>>


code:
:: Costs Report

<<set $nextButton = "Back to Main">>\
<<set $nextLink = "Main">>\
\
//Your weekly costs are as follows.//
<<nobr>>

<<if $girls == 3>>
	Since you are accustomed to luxury, your __personal living expenses__ are ¤<<print ($girls*(250+($economy*500)))>>.
<<elseif $girls == 2>>
	Since you are used to living well, your __personal living expenses__ are ¤<<print ($girls*(250+($economy*500)))>>.
<<else>>
	Since you are used to a fairly normal life, your __personal living expenses__ are ¤<<print ($girls*(250+($economy*500)))>>.
<</if>>

<<if $arcologies[0].FSRepopulationFocusLaw == 1 && $PC.preg > 4>>

Rent promotion for being a pregnant citizen under ''Universal Pregnancy Subsidy:'' ¤500>>
<</if>>

<<if $PC.preg == -1>>

Your Contraceptives expenses: ¤25>>
<<elseif $PC.preg >= 16>>

Increased living expenses due to being pregnant : ¤100>>
<</if>>
<<if $mercenaries > 0>>
	<<if ($PC.warfare >= 100) || ($PC.career == "arcology owner")>>

__Mercenary__ expenses: ¤<<print ($mercenaries*500)>> //Reduced by your @@color:springgreen;mercenary contacts@@//
	<<else>>

__Mercenary__ expenses: ¤<<print ($mercenaries*1000)>>
	<</if>>
<</if>>
<<if $brothel > 0>>
	<<set $seed = 0>>
	<<if $brothel > 0>>
		<<set $seed = $brothelAdsSpending>>
	<</if>>

__Brothel__ maintenance: ¤<<print ($brothel*$facilityCost)+(0.2*$brothelUpgradeDrugs*$brothel*$facilityCost)>>
<</if>>
<<if $club > 0>>
	<<set $seed = 0>>
	<<if $club > 0>>
		<<set $seed = $clubAdsSpending>>
	<</if>>

__Club__ maintenance: ¤<<print ($club*$facilityCost)+(0.2*$clubUpgradePDAs*$club*$facilityCost)>>
<</if>>
<<if $arcade > 0>>

__Arcade__ maintenance: ¤<<print (0.5*$arcade*$facilityCost)+(0.2*$arcadeUpgradeInjectors*$arcade*$facilityCost)+(0.2*$arcadeUpgradeCollectors*$arcade*$facilityCost)>>
<</if>>
<<if $dairy > 0>>

__Dairy__ maintenance: ¤<<print ($dairy*$facilityCost)+(0.2*$dairyFeedersUpgrade*$dairy*$facilityCost)+(0.1*$dairyPregUpgrade*$dairy*$facilityCost)>>
	<<if $bioreactorsXY+$bioreactorsXX+$bioreactorsHerm+$bioreactorsBarren > 0>>

    Additional maintenance for milking machines upgraded with biological components: ¤<<print ($bioreactorsXY+$bioreactorsXX+$bioreactorsHerm+$bioreactorsBarren)*100>>
	<</if>>
<</if>>
<<if $collectionFacility > 0>>

__Collection Facility__ maintenance: ¤<<print ($collectionFacility*$facilityCost)+(0.2*$dairyStimulatorsUpgrade*$collectionFacility*$facilityCost)+(0.2*$collectionFacilityUpgradeMilkers*$collectionFacility*$facilityCost)>>
<</if>>
<<if ($servantsQuarters > 0) && ($servantsQuartersUpgradeMonitoring > 0)>>

__Servants' Quarters__ maintenance: ¤<<print (0.2*$servantsQuartersUpgradeMonitoring*$servantsQuarters*$facilityCost)>>
<</if>>
<<if $incubator > 0>>

__Incubation Facility__ maintenance and resource drain: ¤<<print (10*$incubator*$facilityCost)+(0.2*$incubatorUpgradeWeight*$incubator*$facilityCost)+(0.2*$incubatorUpgradeMuscles*$incubator*$facilityCost)+(0.2*$incubatorUpgradeReproduction*$incubator*$facilityCost)+(0.5*$incubatorUpgradeSpeed*$incubator*$facilityCost)>>
	<<if $incubatorWeightSetting+$incubatorMusclesSetting+$incubatorReproductionSetting > 0>>

    Additional monitoring and maintenance costs for growing children: ¤<<print (($incubatorWeightSetting+$incubatorMusclesSetting+$incubatorReproductionSetting)*500)>>
	<</if>>
<</if>>
<<if ($masterSuiteUpgradePregnancy == 1)>>

__Master Suite__ maintenance: ¤<<print ((500*$masterSuiteUpgradePregnancy) + (1000*$masterSuitePregnancyFertilitySupplements))>>
<</if>>
<<if $cyberMod != 0>>
	<<if ($researchLab.built == "true")>>

__Research Lab__ maintenance: ¤<<print (100*$researchLab.maxSpace)>>
		<<if $researchLab.hired != 0>> __Scientists__: ¤<<print (300*$researchLab.hired)>><</if>>
		<<if $researchLab.menials != 0>> __Menial slaves__: ¤<<print (100*$researchLab.hired)>><</if>>
	<</if>>
<</if>>
<<if $FSSpending != 0>>

__Society Shaping__ expenses: ¤$FSSpending
<</if>>
<<if $Recruiter != 0>>

__Recruiting__ expenses: ¤250
<</if>>
<<if $TSS.schoolPresent == 1>>

__The Slavegirl School__ branch campus upkeep: ¤1000
<</if>>
<<if $GRI.schoolPresent == 1>>

__Growth Research Institute__ subsidiary lab upkeep: ¤1000
<</if>>
<<if $SCP.schoolPresent == 1>>

__St. Claver Preparatory__ branch campus upkeep: ¤1000
<</if>>
<<if $LDE.schoolPresent == 1>>

__L'Encole des Enculees__ branch campus upkeep: ¤1000
<</if>>
<<if $TGA.schoolPresent == 1>>

__The Gymnasium-Academy__ branch campus upkeep: ¤1000
<</if>>
<<if ($TFS.schoolPresent == 1) && (($PC.dick == 0) || ($PC.vagina == 0) || ($PC.boobs == 0))>>

__The Futanari Sisters__ community upkeep: ¤1000
<</if>>
<<if $TSS.subsidize != 0>>

__The Slavegirl School__ branch campus influence: ¤1000
<</if>>
<<if $GRI.subsidize != 0>>

__Growth Research Institute__ subsidiary lab influence: ¤1000
<</if>>
<<if $SCP.subsidize != 0>>

__St. Claver Preparatory__ branch campus influence: ¤1000
<</if>>
<<if $LDE.subsidize != 0>>

__L'Encole des Enculees__ branch campus influence: ¤1000
<</if>>
<<if $TGA.subsidize != 0>>

__The Gymnasium-Academy__ branch campus influence: ¤1000
<</if>>
<<if $TFS.subsidize != 0>>

__The Futanari Sisters__ community influence: ¤1000
<</if>>

<<if $alwaysSubsidizeGrowth == 1>>

Weekly arcology growth subsidy: ¤$policyCost
<</if>>
<<if $alwaysSubsidizeRep == 1>>

Weekly self-promotion budget: $policyCost
<</if>>
<<if $RegularParties == 1>>

Weekly social gatherings: $policyCost
<</if>>

<<if $ProImmigrationCash == 1>>

Pro-immigration promotion budget: $policyCost
<</if>>
<<if $AntiEnslavementCash == 1>>

Anti-enslavement charity budget: $policyCost
<</if>>

<<if $CoursingAssociation == 1>>

Coursing Association membership: ¤1000
<</if>>

<<for $i = 0; $i < $slaves.length; $i++>>
	<<set $individualCosts = 0>>
	''$slaves[$i].slaveName'':
	<<if $slaves[$i].livingRules == "luxurious">>
	<<if $slaves[$i].relationship >= 4>>

    Living expenses: ¤<<print ($rulesCost*3)>>
		<<set $individualCosts += ($rulesCost*3)>>
	<<else>>

    Living expenses: ¤<<print ($rulesCost*4)>>
		<<set $individualCosts += ($rulesCost*4)>>
	<</if>>
	<<elseif $slaves[$i].livingRules == "normal">>

    Living expenses: ¤<<print ($rulesCost*2)>>
		<<set $individualCosts += ($rulesCost*2)>>
	<<else>>

    Living expenses: ¤<<print ($rulesCost)>>
		<<set $individualCosts += $rulesCost>>
	<</if>>

    Basic slave food cost: ¤<<print $foodCost*4>>
	<<set $individualCosts += $foodCost*4>>
	<<switch $slaves[$i].diet>>
	<<case "fattening" "muscle building">>

    Heavy diet: ¤<<print $foodCost>>
		<<set $individualCosts += $foodCost>>
	<<case "restricted" "slimming">>

    Light diet: //reduced by// ¤<<print $foodCost>>
		<<set $individualCosts -= $foodCost>>
	<</switch>>
	<<if $slaves[$i].weight > 50>>

    Caloric adjustment for heavy weight: ¤<<print $foodCost>>
		<<set $individualCosts += $foodCost>>
	<<elseif $slaves[$i].weight < -50>>

    Caloric adjustment for light weight: //reduced by// ¤<<print $foodCost>>
		<<set $individualCosts -= $foodCost>>
	<</if>>
	<<if $slaves[$i].drugs == "appetite suppressors">>

    Food saved via suppressed appetite: //reduced by// ¤<<print $foodCost>>
		<<set $individualCosts -= $foodCost>>
	<</if>>
	<<if $slaves[$i].lactation > 0>>
	<<set $individualCosts += $foodCost>>
	<<if $slaves[$i].lactation > 0>>

    Food to support
		<<if $slaves[$i].lactation > 1>>heavy<<else>>natural<</if>> lactation from
		<<if Math.trunc($slaves[$i].boobs/10000) > 2>>absurd udders<<elseif Math.trunc($slaves[$i].boobs/10000) > 1>>enormous boobs<<else>>reasonable breasts<</if>>:
		¤<<print $foodCost*$slaves[$i].lactation*(1+Math.trunc($slaves[$i].boobs/10000))>>
		<<set $individualCosts += $foodCost*$slaves[$i].lactation*(1+Math.trunc($slaves[$i].boobs/10000))>>
	<</if>>
	<</if>>
	<<if $slaves[$i].preg > 5>>
		<<if $slaves[$i].assignment == "work in the dairy" && $dairyFeedersSetting > 0>>

    Extra feeding costs to support pregnancy are covered by dairy feeders.
		<<elseif ($slaves[$i].assignment == "serve in the master suite" || $slaves[$i].assignment == "be your concubine") && $masterSuiteUpgradePregnancy == 1>>

    Extra feeding costs to support pregnancy are covered by $masterSuiteName luxuries.
		<<else>>
			<<set _pAccMult = 1>>

    Extra feeding to support <<if $slaves[$i].pregControl == "speed up">>accelerated <<set _pAccMult = 3>><</if>>pregnancy: ¤<<print $foodCost*$slaves[$i].pregType*_pAccMult>>
			<<set $individualCosts += $foodCost*$slaves[$i].pregType*_pAccMult>>
		<</if>>
	<</if>>
	<<if ($slaves[$i].diet == "XX") || ($slaves[$i].diet == "XY")>>

    Hormone enriched diet: ¤25
		<<set $individualCosts += 25>>
	<<elseif ($slaves[$i].diet == "XXY")>>

    Specialized hermaphrodite diet: ¤75
		<<set $individualCosts += 75>>
	<</if>>
	<<if $boobAccessibility != 1>>
	<<if ($slaves[$i].boobs > 7500)>>
	<<if ($slaves[$i].assignment != "work in the dairy") || ($dairyRestraintsSetting < 2)>>

    Increased living expenses due to inconveniently huge boobs: ¤50
		<<set $individualCosts += 50>>
	<</if>>
	<</if>>
	<</if>>
	<<if $pregAccessibility != 1>>
	<<if ($slaves[$i].preg > 30 && $slaves[$i].pregType >= 2) || ($slaves[$i].preg > 20 && $slaves[$i].pregType >= 10) || ($slaves[$i].preg > 10 && $slaves[$i].pregType >= 20) || $slaves[$i].bellyImplant >= 10000>>
	<<if ($slaves[$i].assignment != "labor in the production line")>>

    Increased living expenses due to an inconveniently huge belly: ¤100
	  <<set $individualCosts += 100>>
	<</if>>
	<</if>>
	<</if>>
	<<if $dickAccessibility != 1>>
	<<if ($slaves[$i].dick > 45)>>

    Increased living expenses due to an inconveniently huge penis: ¤50
		<<set $individualCosts += 50>>
	<</if>>
	<</if>>
	<<if $ballsAccessibility != 1>>
	<<if ($slaves[$i].balls > 90)>>

    Increased living expenses due to inconveniently huge balls: ¤50
		<<set $individualCosts += 50>>
	<</if>>
	<</if>>
	<<if $buttAccessibility != 1>>
	<<if ($slaves[$i].butt > 15)>>

    Increased living expenses due to an inconveniently huge butt: ¤50
		<<set $individualCosts += 50>>
	<</if>>
	<</if>>
	<<if !canSee($slaves[$i])>>

    Increased living expenses due to lack of sight: ¤50
		<<set $individualCosts += 50>>
	<<elseif $slaves[$i].eyes <= -1>>

    Increased living expenses due to poor vision: ¤25
		<<set $individualCosts += 25>>
	<<elseif ($slaves[$i].eyewear == "blurring glasses") || ($slaves[$i].eyewear == "blurring contacts")>>

    Increased living expenses due to blurred vision: ¤25
		<<set $individualCosts += 25>>
	<</if>>
	<<if ($slaves[$i].amp != 0)>>
	  <<if ($slaves[$i].amp == 1)>>

    Increased living expenses due to limblessness: ¤$rulesCost
		<<set $individualCosts += $rulesCost>>
	  <<else>>

    Increased living expenses due to prosthetics: ¤<<print $rulesCost/2>>
		<<set $individualCosts += $rulesCost/2>>
	  <</if>>
	<<elseif !canWalk($slaves[$i])>>

    Increased living expenses due to immobility: ¤<<print $rulesCost>>
	  <<set $individualCosts += $rulesCost>>
	<</if>>
	<<if $slaves[$i].boobs > 10000>>
	<<if $slaves[$i].boobsImplantType == 1>>

    Maintenance cost for oversized string implants: ¤50
		<<set $individualCosts += 50>>
	<</if>>
	<</if>>
	<<if $slaves[$i].butt > 10>>
	<<if $slaves[$i].buttImplantType == 1>>

    Maintenance cost for oversized string implants: ¤50
		<<set $individualCosts += 50>>
	<</if>>
	<</if>>
	<<if $slaves[$i].preg > 25>>
	<<if $slaves[$i].universalRulesBirthing == 1>>

    Coverage cost for daily pregnancy scanning: ¤50
		<<set $individualCosts += 50>>
	<</if>>
	<</if>>
	<<if $CitizenRetirement == 1>>

    Retirement account payments: ¤250
	<<set $individualCosts += 250>>
	<</if>>
	<<if ($slaves[$i].inflation == 3)>>
		<<switch $slaves[$i].inflationType>>
		<<case "water">>

    Costs of specially formulated water for enemas; 2 gallons: ¤100
			<<set $individualCosts += 100>>
		<<case "curative" "aphrodisiac" "tightener">>

    Costs of specially formulated drug mixtures for enemas; 2 gallons: ¤500
			<<set $individualCosts += (100+($drugsCost*2))>>
		<</switch>>
	<<elseif ($slaves[$i].inflation == 2)>>
		<<switch $slaves[$i].inflationType>>
		<<case "water">>

    Costs of specially formulated water for enemas; 1 gallon: ¤50
			<<set $individualCosts += 50>>
		<<case "curative" "aphrodisiac" "tightener">>

    Costs of specially formulated drug mixtures for enemas; 1 gallons: ¤250
			<<set $individualCosts += (50+($drugsCost*2))>>
		<</switch>>
	<<elseif ($slaves[$i].inflation == 1)>>
		<<switch $slaves[$i].inflationType>>
		<<case "water">>

    Costs of specially formulated water for enemas; 2 liters: ¤25
			<<set $individualCosts += 25>>
		<<case "curative" "aphrodisiac" "tightener">>

    Costs of specially formulated drug mixtures for enemas; 2 liters: ¤125
			<<set $individualCosts += (25+($drugsCost*2))>>
		<</switch>>
	<</if>>
	<<if ($slaves[$i].drugs == "anti-aging cream")>>

    Anti-aging creams: ¤<<print ($drugsCost*10)>>
		<<set $individualCosts += ($drugsCost*10)>>
	<<elseif ($slaves[$i].drugs == "female hormone injections") || ($slaves[$i].drugs == "male hormone injections")>>

    Hormonal injections: ¤<<print ($drugsCost*5)>>
		<<set $individualCosts += ($drugsCost*3)>>
	<<elseif ($slaves[$i].drugs != "no drugs")>>

    Standard drugs: ¤<<print ($drugsCost*2)>>
		<<set $individualCosts += ($drugsCost*2)>>
	<</if>>
	<<if ($slaves[$i].curatives > 0)>>

    Health drugs: ¤<<print $drugsCost+($slaves[$i].curatives*$drugsCost)>>
		<<set $individualCosts += $drugsCost+($slaves[$i].curatives*$drugsCost)>>
	<</if>>
	<<if ($slaves[$i].aphrodisiacs > 0)>>

    Aphrodisiacs: ¤<<print ($drugsCost*$slaves[$i].aphrodisiacs)>>
		<<set $individualCosts += $drugsCost*$slaves[$i].aphrodisiacs>>
	<</if>>
	<<if ($slaves[$i].hormones != 0)>>

    Hormones: ¤<<print (Math.trunc($drugsCost*Math.abs($slaves[$i].hormones)*0.5))>>
		<<set $individualCosts += Math.trunc($drugsCost*Math.abs($slaves[$i].hormones)*0.5)>>
	<</if>>
	<<if ($slaves[$i].preg == -1) && isFertile($slaves[$i])>>

    Contraceptives: ¤<<print (Math.trunc($drugsCost*0.5))>>
		<<set $individualCosts += Math.trunc($drugsCost*0.5)>>
	<</if>>
	<<if ($studio == 1)>>
	<<if ($slaves[$i].pornFameSpending > 0)>>

    Publicity: ¤$slaves[$i].pornFameSpending
		<<set $individualCosts += $slaves[$i].pornFameSpending>>
	<</if>>
	<</if>>

        __Total__: ¤<<print ($individualCosts)>>

<</for>>

<<if $PC.career == "servant">>

Using your prior experience, you managed to lower your home's upkeep by <<if $personalAttention == "upkeep">><<if $PC.preg >= 20>>20%<<else>>25%<</if>><<else>>10%<</if>>.
<</if>>

<</nobr>>