code:
:: Corporate Market [nobr]

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

<<if $corp.SpecGender == 2>>
	<<setNonlocalPronouns 100>>
<<elseif $corp.SpecGender == 1>>
	<<setNonlocalPronouns 0>>
<<else>>
	<<setNonlocalPronouns $seeDicks>>
<</if>>

You're in your corporation's flagship slave market.

The corporation pays you only nominal rent for this space, but will offer you a discount on slaves here based on your shares in it. Additionally, having the corporation's premiere products sold here in $arcologies[0].name will associate them with you, allowing your reputation to improve the corporate brand. A pretty
<<if $corp.SpecDick == 1 && $corp.SpecPussy == 1>>futanari<<elseif $corp.SpecGender == 2>><<if $corp.SpecBalls == -1>>clipped<<else>>shemale<</if>><</if>>
sales<<if $corp.SpecAge == 3>>_womanU<<else>>_girlU<</if>> in a slutty suit greets you properly. _HeU's a corporate slave chosen for loyalty and intelligence, and to physically represent the brand.
<<if $corp.SpecHeight == 5>>
	Even before _heU engaged with you _hisU towering height made _himU stand out and caught your eye, from up close _heU's even more impressive.
<<elseif $corp.SpecHeight == 1>>
	_HeU's so short you have to physically look down on _himU.
<</if>>
<<if $corp.SpecInjection == 4>>
	_HeU has awe-inspiring breasts which _hisU suit jacket helps support; even so, their bottoms reach past _hisU navel.
<<elseif $corp.SpecInjection == 5>>
	_HeU has gigantic, milk-swollen breasts almost spilling out of _hisU suit.
<<elseif $corp.SpecImplants == 2>>
	_HeU has enormous fake tits that ride inhumanly high on _hisU chest.
<<elseif $corp.SpecInjection == 3>>
	_HeU has huge tits and a nice broad butt which _hisU tight skirt hugs closely.
<<elseif $corp.SpecImplants == 1>>
	_HeU has nice fake bimbo tits and a silicone bubble butt.
<<elseif $corp.SpecInjection == 2>>
	_HeU's nice and curvy, with nice breasts and a lovely ass.
<<elseif $corp.SpecInjection == 1>>
	_HeU has cute little breasts and a petite rump.
<</if>>
<<if $corp.SpecCosmetics == 1>>_HisU face is flawless.<</if>>
<<if ($corp.SpecRaces.length == 1) || $corp.SpecNationality>>
	<<if $corp.SpecNationality>>
		<<set _corpSpecRace = $corp.SpecNationality>>
	<<elseif ($corp.SpecRaces.length == 1)>>
		<<set _corpSpecRace = $corp.SpecRaces.random()>>
	<</if>>
	_HeU's <<print _corpSpecRace>>, of course<<if $corp.SpecAccent == 1>>, and has a cute accent<</if>>.
<</if>>
<<if $corp.SpecHormones == 1>>
	_HisU voice is soft and feminine, and _heU bats _hisU eyes at you.
<<elseif $corp.SpecHormones == 2>>
	_HeU has a deep voice, and speaks assertively.
<</if>>
<<if $corp.SpecMuscle == 4>>
	_HisU hot body is perfectly toned under _hisU suit.
<<elseif $corp.SpecMuscle == 5>>
	_HisU suit is specially tailored to flatter _hisU visible musculature.
<</if>>
Of course, you know all about the corporation, but sales<<if $corp.SpecAge == 3>>_womenU<<else>><<= _girlU>>s<</if>> here have standing orders to treat you like any other customer, so you can review the market properly. The slave turns to <<if $corp.SpecAmputee != 1>>a multimedia presentation on<<else>>a rack of<</if>> your corporation's slaves.

_HeU explains that the corporation captures many people, so it only retains and trains those that fit its product lines.

<<set _marketResult = generateMarketSlave("corporate")>>
<<set $activeSlave = _marketResult.slave>>
<<print _marketResult.text>>

_HisU presentation done, the
<<if $corp.SpecDick == 1 && $corp.SpecPussy == 1>>futanari<<elseif $corp.SpecGender == 2>><<if $corp.SpecBalls == -1>>clipped<<else>>shemale<</if>><</if>>
sales<<if $corp.SpecAge == 3>>_womanU<<else>>_girlU<</if>> directs you to the inventory interface that will allow you to peruse the corporation's slaves, and moves over to stand next to it, ready to answer any questions.
<<if $PC.dick != 0>>
	_HeU positions _himselfU facing away from you and hikes up _hisU skirt to bare _hisU
	<<if $corp.SpecInjection > 4>>gigantic ass<<elseif $corp.SpecImplants > 0>>fake ass<<elseif $corp.SpecInjection == 3>>big butt<<elseif $corp.SpecInjection == 2>>cute butt<<else>>little behind<</if>>
	and cocks _hisU hips<<if $corp.SpecBalls == -1>>, keeping _hisU soft cock demurely out of sight<</if>>, if you feel like <<if $corp.SpecGender == 2 && $corp.SpecPussy != 1>>sodomizing<<else>>fucking<</if>> _himU
<<else>>
	_HeU gets down on _hisU knees right there, making _hisU mouth available if you feel like riding _hisU face
<</if>>
while you browse.

<<link "Use _himU">>
	<<replace "#result">>
		<<if $PC.dick != 0>>
			_HisU <<if $corp.SpecGender == 2 && $corp.SpecPussy != 1>>asshole is thoughtfully pre-lubed, and your cock slides easily up it<<else>>pussy is nice and wet, and your cock slides inside _himU easily<</if>> as you consider the slaves on offer. _HeU's well trained, and uses _hisU <<if $corp.SpecGender == 2 && $corp.SpecPussy != 1>>sphincter<<else>>womanly muscles<</if>> to please your member expertly as _heU ruts _himselfU gently back against you, doing almost all the work. When you orgasm, _heU retains the load carefully, keeping your cum inside _himU and away from _hisU nice clothes.
		<<else>>
			_HeU's very well trained, and does all the work. Once you move in and straddle _himU, _heU gets right down to it, or in this case, up to it. _HisU clever tongue runs gently along your labia to build anticipation before starting a delightful dance around and then atop your clitoris. You orgasm in no time at all, a climax which _heU carefully prolongs by kissing you full on the pussy in just the right way, only breaking the oral embrace when you've ridden it as far as you'll go.
		<</if>>
	<</replace>>
<</link>>

<<set _slaveCost = slaveCost($activeSlave)>>
<<if $slavesSeen > $slaveMarketLimit>><<set _slaveCost += _slaveCost*(($slavesSeen-$slaveMarketLimit)*0.1)>><</if>>

<<if $corp.Market == 1>>
	Your own local franchise of your corporation allows you to enjoy a discount.
	<<set _slaveCost *= 0.9>>
<</if>>

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

<<setLocalPronouns $activeSlave>>
<<buyingFromMarketControls>>

<<link "End corporate slave sales here and return this sector to standard markets">>
	<<set $corp.Market = 0>>
	<<run App.Arcology.cellUpgrade($building, App.Arcology.Cell.Market, "Corporate Market", "Markets")>>
	<<goto "Main">>
<</link>>


code:
:: corporate widgets [widget nobr]

/*
Usage:
<<CorporateLedger _ledger $week>>

	_ledger: One of the members of App.Corporate.ledger, such as .current or .old
	$week: The current week or the previous week, depending on whether you used current or old.
*/
<<widget "CorporateLedger">>
<<scope>>
<<set _ledger = $args[0]>>
<<set _week = $args[1]>>

Ledger for <<= asDateString(_week) >> - <<= asDateString(_week + 1, -1) >>

/*Returns last week's revenue, gets calculated in corporationDevelopments, but slaves sold here also added to it for next week*/

Revenue	<<= cashFormatColor(_ledger.revenue)>>

<<if ($cheatMode) && ($cheatModeM) && App.Corporate.foreignRevenue > 0>>

Including Neighbor Bonus	<<= cashFormatColor(_ledger.foreignRevenue)>>

<</if>>
/*Just like revenue, except for operating expenses (all calculated in corporationDevelopments)*/

Operating Expenses	<<= cashFormatColor(_ledger.operations, true)>>

/*buying slaves to work on adds to this expense, works just like revenue*/

Slave Expenses	<<= cashFormatColor(_ledger.slaves, true)>>

/*costs associated with expanding divisions end up here, reports costs from last week, not current*/

Asset Expenses	<<= cashFormatColor(_ledger.development, true)>>

<<if ($cheatMode) && ($cheatModeM)>>

		Economic <<if _ledger.economicBoost < 0>>Expenses<<else>>Windfall<</if>>
		<<= cashFormatColor(_ledger.economicBoost)>>

<</if>>

Overhead	<<= cashFormatColor(_ledger.overhead, true)>>

Profit

<<= cashFormatColor(_ledger.profit)>>

<<if _ledger.economicBoost > 0>>

	<<if _ledger.economy > 100>>
		* Profits benefited from a strong economy.
	<<elseif _ledger.economy > 60>>
		* Profits were lowered by the weak economy.
	<<else>>
		* Profits were severely depressed by the failing economy.
	<</if>>

<</if>>

Totals

	Liquidity

	<<if ($cheatMode) && ($cheatModeM)>>
		<<= cashFormatColor(App.Corporate.cash)>>
		<<set _TcorpCash = App.Corporate.cash>>
		<<textbox "_TcorpCash" _TcorpCash>>
		<<link "Apply">>
		<<set App.Corporate.cheatCash(_TcorpCash)>>
		<<replace "#corpCash">><<= cashFormatColor(App.Corporate.cash)>><</replace>>
		<</link>>
	<<else>>
		<<= cashFormatColor(App.Corporate.cash)>>
	<</if>>

Corporate Value	<<= cashFormatColor(App.Corporate.value)>>

Dividend for Payout

<<= cashFormatColor(App.Corporate.dividend)>>

Pays out on <<=asDateString($args[1] + App.Corporate.dividendTimer, -1)>>, <<if App.Corporate.dividendTimer == 1>>
	the end of this week
<<else>>
	in <<= App.Corporate.dividendTimer >> weeks
<</if>>

<</scope>>
<</widget>>

repo_name: KnightBoulegard/fc

license: mit


code:
:: Corporation Developments [nobr]

/*Main Corporation Pass*/

<<if App.Corporate.cash < 0>>
	<<set App.Corporate.cash = Math.trunc(App.Corporate.cash * 1.02)>> /*2% weekly interest rate on negative cash*/
<</if>>

Corporation Management

Operational Results

/*Divisions doing their thing*/
<<set _weekLedger = App.Corporate.endWeek()>>
/* TODO: I would like to move some of the following loop into a new loop. It should go Process -> Transfer -> Sell -> Buy (most expensive to least) to give the best chance of auto-buy having enough money to make purchases. */
<<for _d range _weekLedger.divisionLedgers>>
	<<set _div = _d.division>>
	/* Reporting on number of slaves being processed or completed processing */

<<= _div.name>>: The division <<= _div.message_endWeek_Slaves(_d) >>.
	<<if _d.market.originalBuy != null>>

		<<if _d.market.buy == 0>>
			It couldn't purchase <<= numberWithPlural(_d.market.originalBuy, "slave") >> to replenish its stock from the market because it couldn't afford to purchase price.
		<<else>>
			It needed to replenish its slave stock of <<= numberWithPlural(_d.market.originalBuy, "slave")>>, but couldn't afford to buy all of them. It bought <<= numberWithPlural(_d.market.buy, _div.nounSlaveFromMarket)>> for <<= cashFormatColor(_d.market.finalPurchase, true) >>.
		<</if>>
	<<elseif _d.market.buy > 0>>

It replenished its slave stock and bought <<= numberWithPlural(_d.market.buy, _div.nounSlaveFromMarket) >> from the market for <<= cashFormatColor(_d.market.finalPurchase, true) >>.
	<</if>>
	<<if _d.transfer.total > 0>>
		<<for _nextDivLedger range _d.transfer.divisions>>
			<<set _nextDiv = _nextDivLedger.division>>
			<<set _slavesToNext = _nextDivLedger.fill>>

			It moved <<= numberWithPlural(_slavesToNext, "slave")>> to the <<= _nextDiv.name>> Division.
		<</for>>
	<</if>>
	<<if _div.toMarket>>
		<<if _div.heldSlaves == 0>>
			<<if _d.market.sell > 0>>
				It immediately sold <<= numberWithPlural(_d.market.sell, _div.nounFinishedSlave) >> to the market and made <<= cashFormatColor(_d.market.finalSale)>>.
			<</if>>
		<<else>>
			It holds @@.green;<<= numberWithPlural(_div.heldSlaves, _div.nounFinishedSlave)>>@@ at the end of the
			<<if _d.market.sell > 0>>
				 week, but it ran out of storage space and had to sell @@.red;<<= numberWithPlural(_d.market.sell, "slave")>>@@ and made <<= cashFormatColor(_d.market.finalSale)>>.
			<<else>>
				 week.
			<</if>>
		<</if>>
	<</if>>
	<<if _d.revenue.value > 0>>
		It earned <<= cashFormatColor(_d.revenue.value)>> in revenue.
	<</if>>
<</for>>

/*Aggregate Corporation Results*/
<<set _ledger = App.Corporate.ledger.current>>/*Note: You can't just pass the object directly into a widget. */
<<CorporateLedger _ledger $week>>

/*Division Expansion Tokens*/
<<if _weekLedger.canExpandNow>>

Your corporation is ready to start an additional division!

<</if>>

/*Specializations tokens*/
<<if _weekLedger.canSpecializeNow>>

Your corporation is ready to specialize its slaves further!

<</if>>

/*Calculating cash set aside for dividend*/

Dividend

<<if App.Corporate.dividendRatio > 0>>
	The corporation is currently reserving <<= Math.floor(App.Corporate.dividendRatio * 100)>>% of its profit to be paid out as dividends.
<<else>>
	The corporation is currently not reserving a portion of its profit to be paid out as dividends.
<</if>>
<<if App.Corporate.payoutCash>>
	It is putting aside unused cash reserves to be paid out as dividends.
<</if>>

<<if App.Corporate.dividend > 0>>
	<<if _weekLedger.hasDividend>>
		It reserved <<print cashFormatColor(_weekLedger.dividend)>> this week.
	<</if>>
	A total of <<print cashFormatColor(App.Corporate.dividend)>> has been put aside for its shareholders.
<</if>>

<<if _weekLedger.hasPayout>>

This week the dividends were paid out, you received <<print cashFormatColor(_weekLedger.payout)>>.

<</if>>

/*Bankrupted the Corporation*/
<<if App.Corporate.value < 0>>
	<<run App.Corporation.Dissolve()>>

@@.red;Your corporation went bankrupt.@@
<</if>>
/*This needs to be at the very end of the financials*/
<<run App.Corporate.ledger.swap()>>


code:
:: Manage Corporation [nobr jump-to-safe jump-from-safe]

<<set $nextButton = "Back", $nextLink = "Main", $encyclopedia = "The Corporation">>

<<set _sepObj = { 'need': false, text: '|' }>>

<<if !App.Corporate.founded >>

Incorporation

//Please consider that the market price of slaves has quite the impact on the profitability of your corporation.//

//Focus on acquisition when prices are high, exploitation if prices are low. Slave improvement is a safe choice either way.//

//Also note the option for a 8 - 7 share split instead of the vanilla 2 - 1, this makes the initial investment cheaper but leaves you with relatively less shares.//

<<set _divisionsByFoundingCost = App.Corporate.divisionList.concat().sort( function(a,b) { return a.founding.startingPrice - b.founding.startingPrice; })>>
<<set _optionsText = ["to found a slave corporation", "for most options", "for many options", "for some options", "for the final option"]>>

 /*Picking a starting division*/
<<if $vanillaShareSplit == 1>>
	<<set _corpPerShares = 2000>>
	<<set _corpPubShares = 1000>>
<<else>>
	<<set _corpPerShares = 8000>>
	<<set _corpPubShares = 7000>>
<</if>>

<<for _index, _div range _divisionsByFoundingCost>>
	<<set _divCost = App.Corporate.foundingCostToPlayer(_div, _corpPerShares, _corpPubShares)>>
	<<if $cash >= _divCost>>
		<<if _index == 0>>
			You can lay the groundwork for a slave corporation and choose to start out with:
		<</if>>

		<<= "[[" + _div.name + "|Manage Corporation]"
		 +  "[App.Corporate.create( '"+ _div.id + "'"
								+", " + _corpPerShares
								+", " + _corpPubShares
								+")]]">> (<<=cashFormat(_divCost)>>): Focuses on <<= _div.focusDescription >>.

	<<else>>

You lack the funds <<= _optionsText[App.Utils.mapIndexBetweenLists(_index, _divisionsByFoundingCost, _optionsText)] >>. You need at least @@.yellowgreen;<<print cashFormat(_divCost)>>@@
		<<if _index != 0>>
			<<if _index < _divisionsByFoundingCost.length - 1>>
				for the next option and at most @@.yellowgreen;<<print cashFormat(App.Corporate.foundingCostToPlayer(_divisionsByFoundingCost[_divisionsByFoundingCost.length - 1], _corpPerShares, _corpPubShares))>>@@.
			<<else>>
				for it.
			<</if>>
		<</if>>
		<<break>>
	<</if>>
<</for>>

<<if $vanillaShareSplit == 1>>

[[8-7 Share Split|Manage Corporation][$vanillaShareSplit = 0]]
<<else>>

[[2-1 Share Split|Manage Corporation][$vanillaShareSplit = 1]]
<</if>>

<<else>> /*When the corporation exists*/

Corporation Overview

<<if App.Corporate.foundedDate>>

Founded on <<= asDateString(App.Corporate.foundedDate)>>

<</if>>
<<set _ledger = App.Corporate.ledger.old>>/*You can't pass the object directly into the widget. */
<<set _lastWeek = $week - 1>>
<<CorporateLedger _ledger _lastWeek>>

Division Management

<<for _div range App.Corporate.divisionList.filter(x => x.founded)>>

<<= _div.name>> Division

	<<if _div.foundedDate != 0>>

Founded on <<= asDateString(_div.foundedDate)>>

	<</if>>
	This division focuses on <<= _div.focusDescription >>.

<<= _div.messageSlaveCount() >>

	<<set _divMaint = _div.getDisplayMaintenanceCost()>>

It costs @@.red;<<= cashFormat(Math.trunc(_divMaint.cost))>>@@ to run. On average that is @@.red;<<= cashFormat(Math.trunc(_divMaint.perUnit)) >>@@ per slave.

<<= _div.messageSlaveOutput() >>
	<<set _divSentanceStart = ["Currently the division", "It also"]>>

Direct Control

	<<if _div.fromMarket>>

		<<= _divSentanceStart.shift() >> is <<= _div.slaveAction.present >> @@.green;<<= numberWithPlural(_div.activeSlaves, "slave") >>@@.
		<<if _div.activeSlaves < _div.developmentCount>>
			<<set _fillSlaveCount  = _div.availableRoom>>

There is room to <<= _div.slaveAction.future >> <<= numberWithPluralOne(_fillSlaveCount, "more slave")>>.
			<<set _buySlaveArray = [
				{ 'name': 'Buy Slave', 'count':1 },
				{ 'name': 'Buy x10'  , 'count':10}
			]>>
			<<if !_buySlaveArray.some(function(x) { return x.count == _fillSlaveCount })>>
				<<run _buySlaveArray.push({ 'name': 'Fill'  , 'count':_fillSlaveCount})>>
			<</if>>
			<<set _singleSlaveCost = App.Corporate.slaveMarketPurchaseValue(_div, 1)>>
			<<if $corp.Cash > _singleSlaveCost>>

				The corporation can purchase slaves directly from the market for about <<=cashFormatColor(_singleSlaveCost)>>

				<<set _sepObj.need = false>>
				<<for  _slaveNum range _buySlaveArray.filter(num => _div.availableRoom >= num.count)>>
					<<set _slaveSetCost = App.Corporate.slaveMarketPurchaseValue(_div, _slaveNum.count)>>
					<<if $corp.Cash < _slaveSetCost>>
						<<continue>>
					<</if>>
					<<= Seperator(_sepObj) >>
					<<= "[[" + _slaveNum.name + "|Manage Corporation]"
					  + "[App.Corporate.buySlaves('"+_div.id+"', "+_slaveNum.count+")]"
					  + "]">>
				<</for>>

			<<else>>

//The corporation cannot afford to purchase any slaves from the market.// It requires about @@.yellowgreen;<<= cashFormat(_singleSlaveCost)>>@@ to buy a <<= asSingular(_div.slaveAction.market)>>.

			<</if>>
		<<else>>

There is //no room// to <<= _div.slaveAction.future>> more slaves.
		<</if>>

	<</if>>
	<<if _div.toMarket>>
		<<set _finishedSlaveNoun = _div.nounFinishedSlave>>
		<<if _div.heldSlaves > 0>>

			<<= _divSentanceStart.shift() >> holds @@.green;<<= numberWithPlural(_div.heldSlaves, _finishedSlaveNoun) >>@@.
			<<for _nextDiv range _div.relatedDivisions
									 .to
									 .filter(div => div.availableRoom > 0
												 && !App.Corporate.ownsIntermediaryDivision(_div, div))>>

				The <<= _nextDiv.name >> Division can accept up to @@.green;<<= numberWithPlural(_nextDiv.availableRoom, "slave") >>@@.

				<<set _sendSlaveArray = [
					{'name': 'Send Slave', 'count':1  },
					{'name': 'Send x10'   , 'count':10 }
				]>>
				<<if _div.heldSlaves >= _nextDiv.availableRoom>>
					<<run _sendSlaveArray.push({'name':`Fill  ${_nextDiv.name} Division`, 'count':_nextDiv.availableRoom})>>
				<<else>>
					<<run _sendSlaveArray.push({'name':'Send All', 'count':_div.heldSlaves})>>
				<</if>>
				<<set _sepObj.need = false>>
				<<for _index, _slaveNum range _sendSlaveArray.filter(slaveNum => slaveNum.count <= _nextDiv.availableRoom && slaveNum.count <= _div.heldSlaves)>>
					<<= Seperator(_sepObj)>>
					<<= "[[" + _slaveNum.name + "|Manage Corporation]"
					  + "[App.Corporate.transferSlaves('"+_div.id+"', '"+_nextDiv.id+"', "+_slaveNum.count+")"
					  + "]]">>
				<</for>>

			<</for>>

The corporation can sell these slaves to the market.

			<<set _sellSlaveArray = [
				{'name':'Sell Slave', 'count':1   },
				{'name':'Sell x10'  , 'count':10  },
				{'name':'Sell x100' , 'count':100 },
				{'name':'Sell All'  , 'count':_div.heldSlaves }
			]>>

			<<set _sepObj.need = false>>
			<<for _index, _slaveNum range _sellSlaveArray.filter(slaveNum => _div.heldSlaves >= slaveNum.count)>>
				<<= Seperator(_sepObj)>>
				<<= "[[" + _slaveNum.name + "|Manage Corporation]"
				  + "[App.Corporate.sellSlaves('"+_div.id+"',"+_slaveNum.count+")]"
				  + "]">>
			<</for>>

		<<else>>

The division is not holding any <<= asPlural(_finishedSlaveNoun)>>.

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

	/* Expanding the division*/
	<<set _depExpandCost = _div.sizeCost * 1000>>

Expanding the division costs <<print cashFormat(_depExpandCost)>>. Downsizing recoups 80% of the investment; slaves will be sold at the going rate.

	<<set _buyDevArray = [
				{ 'name': 'Expand Division' , 'count':1},
				{ 'name': 'Expand x10', 'count':10}
			]>>
	<<set _sepObj.need = false>>
	<<for _buySet range _buyDevArray.filter(buySet => App.Corporate.cash >= buySet.count * _depExpandCost)>>
		<<= Seperator(_sepObj) >>
		<<= "[["+_buySet.name+"|Manage Corporation]"
		  + "[App.Corporate.buyDevelopment('" + _div.id + "', " + _buySet.count + ")]"
		  + "]">>
	<</for>>

	/* Downsize the division*/
	<<set _depDownsizeCost = _depExpandCost * 0.8>>
	<<set _sellDevArray = [
				{ 'name': 'Downsize Division', 'count':1 },
				{ 'name': 'Downsize x10'	 , 'count':10}
			]>>
	<<for _sellSet range _sellDevArray.filter(divNum => _div.developmentCount > divNum.count)>>
		<<= Seperator(_sepObj) >>
		<<= "[["+_sellSet.name+"|Manage Corporation]"
		  + "[App.Corporate.sellDevelopment('"+_div.id+"', "+_sellSet.count+")]"
		  + "]">>
	<</for>>

Rules

	<<for _nextDiv range _div.relatedDivisions.to.filter(nextDiv => nextDiv.founded && !App.Corporate.ownsIntermediaryDivision(_div, nextDiv))>>
		/* TODO: Originally this had a bit of flavor per nextDep. ie, Surgery said "to undergo surgery"*/

		<<if _div.getAutoSendToDivision(_nextDiv)>>
			Auto send slaves to <<= _nextDiv.name >> Division <<= "[[Stop Auto Send|Manage Corporation][App.Corporate.setAutoSendToDivision('"+_div.id+"', '"+_nextDiv.id+"', false)]]">>
		<<else>>
			Do not send slaves to <<= _nextDiv.name >> Division <<= "[[Auto Send|Manage Corporation][App.Corporate.setAutoSendToDivision('"+_div.id+"', '"+_nextDiv.id+"', true)]]">>
		<</if>>

	<</for>>
	<<if _div.toMarket>>

		<<if _div.getAutoSendToMarket()>>
			Auto sell slaves to the market <<= "[[Stop Auto Sell|Manage Corporation][App.Corporate.setAutoSendToMarket('"+_div.id+"', false)]]" >>
		<<else>>
			Do not sell slaves to the market <<= "[[Auto Sell|Manage Corporation][App.Corporate.setAutoSendToMarket('"+_div.id+"', true)]]" >>
		<</if>>

	<</if>>
	<<if _div.fromMarket>>

		<<if _div.getAutoBuyFromMarket()>>
			Auto buy slaves from the market <<= "[[Stop Auto Buy|Manage Corporation][App.Corporate.setAutoBuyFromMarket('"+ _div.id +"', false)]]" >>
		<<else>>
			Do not buy slaves from the market <<= "[[Auto Buy|Manage Corporation][App.Corporate.setAutoBuyFromMarket('"+ _div.id +"', true)]]" >>
		<</if>>

	<</if>>
	<<if App.Corporate.numDivisions > 1>> /* Cannot dissolve the last division */

Dissolve the division @@.orange;//Think before you click//@@ /* TODO: Add a confirmation button. Probably use replace?*/
		<<= "[[Dissolve|Manage Corporation]"
		  + "[App.Corporate.divisions['" + _div.id + "'].dissolve()]"
		  + "]">>

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

<<if App.Corporate.canExpand>> /*is the corporation large enough to expand into another division?*/

Found New Division

The corporation can expand by founding a new division related to its current <<= onlyPlural(App.Corporate.divisionList.filter(div => div.founded).length, "division") >>.

	<<for _div range App.Corporate.divisionList.filter(x => !x.founded && x.relatedDivisions.anyFounded)>>
		<<set _depCost = _div.foundingCost * 1000>>

		<<if App.Corporate.cash >= _depCost>>
			<<= "[[Add " + _div.name + " Division|Manage Corporation]"
			  + "[App.Corporate.divisions['"+_div.id+"'].create(App.Corporate)]]">>
			(@@.yellowgreen;<<print cashFormat(_depCost)>>@@): A division focusing on <<= _div.focusDescription >>.
		<<else>>
			<<=  _div.name >>
			(@@.red;<<print cashFormat(_depCost)>>@@):
			The corporation cannot afford to start a division focusing on <<= _div.focusDescription >>.
		<</if>>

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

Financials

Dividend

<<set _dividends = App.Corporate.dividendOptions>>
<<set _index = _dividends.findIndex(element => App.Corporate.dividendRatio >= element ) >>
<<set _dividend = _dividends[_index] >>
<<if _index >= 0>>
	<<set _nextIndex = _index + 1>>
	<<set App.Corporate.dividendRatio = _dividend>>/* Normalize */
	The corporation is currently reserving <<= Math.trunc(_dividend * 100)>>% of its profit to be paid out as dividends.
	<<set _sepObj.need = false>>
	<<if _index > 0>>
		<<= Seperator(_sepObj)>>
		<<= "[[Increase Ratio|Manage Corporation][App.Corporate.dividendRatio = " + _dividends[_index - 1] + "]]">>
	<</if>>
	<<if _nextIndex != _dividends.length>>
		<<= Seperator(_sepObj)>>
		<<= "[[Reduce Ratio|Manage Corporation][App.Corporate.dividendRatio = " + _dividends[_nextIndex] + "]]">>
	<<else>>
		<<= Seperator(_sepObj)>>
		<<= "[[None|Manage Corporation][App.Corporate.dividendRatio = 0]]">>
	<</if>>
<<else>>
	The corporation is currently not reserving a portion of its profit to be paid out as dividends.
	<<= "[[Increase Ratio|Manage Corporation][App.Corporate.dividendRatio = "+_dividends[_dividends.length - 1]+"]]" >>
<</if>>

<<if App.Corporate.payoutCash>>
	The corporation will payout unused cash reserves over @@.yellowgreen;<<print cashFormat(App.Corporate.payoutAfterCash)>>@@ as dividends [[Stop|Manage Corporation][App.Corporate.payoutCash = false]]
<<else>>
	You can direct the corporation to reserve cash over @@.yellowgreen;<<print cashFormat(App.Corporate.payoutAfterCash)>>@@ to be paid out as dividends as well. [[Payout Cash Reserves|Manage Corporation][App.Corporate.payoutCash = true]]
<</if>>

Shares

You own <<print num($personalShares)>> shares while another <<print num($publicShares)>> shares are traded publicly. The going rate on the market for 1000 shares is currently @@.yellowgreen;<<print cashFormat(corpSharePrice())>>.@@

The corporation can buyback 1000 shares for @@.red;<<print cashFormat(corpSharePrice(-1000))>>@@ or issue 1000 shares and net @@.yellowgreen;<<print cashFormat(corpSharePrice(1000))>>.@@ The corporation will prefer to round shares to the nearest 1000 and will issue or buy shares toward that goal first.
<<if $corp.Cash > corpSharePrice(-1000)>>
	<<if $publicShares <= $personalShares - 2000 && $publicShares > 0>> /*It won't buy back player shares if the corporation is entirely owned by the player*/
		<<set _persExtraShares = $personalShares % 1000 || 1000>>

The corporation can buyback some of your shares.
		<<= "[[Buyback "+ _persExtraShares + "|Manage Corporation][cashX(corpSharePrice(-"+_persExtraShares+"), 'stocksTraded'), $corp.Cash -= corpSharePrice(-"+_persExtraShares+"), $personalShares -= "+_persExtraShares+"]]">>
	<</if>>
	<<if $publicShares >= 1000>>
		<<set _pubExtraShares = $publicShares % 1000 || 1000>>

The corporation can buyback some of the public shares.
		<<= "[[Buyback "+ _pubExtraShares + "|Manage Corporation][$corp.Cash -= corpSharePrice(-"+_pubExtraShares+"), $publicShares -= "+_pubExtraShares+"]]">>
	<</if>>
<</if>>

<<set _persLeftoverShares = 1000 - ($personalShares % 1000)>>
<<if $cash > corpSharePrice(_persLeftoverShares)>>

The corporation can issue <<=_persLeftoverShares>> shares to you.
	<<= "[[Issue " + _persLeftoverShares + "|Manage Corporation][cashX(forceNeg(corpSharePrice("+_persLeftoverShares+")), 'stocksTraded'), $corp.Cash += corpSharePrice("+_persLeftoverShares+"), $personalShares += "+_persLeftoverShares+"]]">>
<</if>>
<<set _pubLeftoverShares = 1000 - ($publicShares % 1000)>>
<<if $publicShares <= $personalShares - 2000>>

The corporation can issue <<=_pubLeftoverShares>> shares onto the stock market.
	<<= "[[Issue " + _pubLeftoverShares + "|Manage Corporation][$corp.Cash += corpSharePrice("+_pubLeftoverShares+"), $publicShares += "+_pubLeftoverShares+"]]">>
<</if>>
<<if $publicShares <= $personalShares - 3000>>

You can sell some of your shares on the stock market. [[Sell 1000|Manage Corporation][cashX(corpSharePrice(), "stocksTraded"), $personalShares -= 1000, $publicShares += 1000]]
<</if>>
<<if $cash > corpSharePrice() && $publicShares >= 1000>>

You can buy some shares from the stock market [[Buy 1000|Manage Corporation][cashX(forceNeg(corpSharePrice()), "stocksTraded"), $personalShares += 1000, $publicShares -= 1000]]
<</if>>

Stock Split

/* Splitting shares when they're unwieldy */
<<set _splitFeeInitial = 10000>>
<<set _splitFeeValue = _splitFeeInitial - Math.floor((_splitFeeInitial * ($PC.skill.trading / 100.0) / 2.0) / 1000) * 1000>>
<<set _splitStockConstants = App.Corporate.stockSplits >>

	The corporation can perform a stock split to increase the number of stocks while maintaining the same owned value. This requires paying a market fee of @@.red;<<= cashFormat(_splitFeeValue)>>@@ plus a per-share fee depending on the type of split being done.
	<<if _splitFeeValue < _splitFeeInitial>>
		//You negotiated lower fees due to your @@.springgreen;business acumen@@.//
	<</if>>
<<if $corp.SpecTimer > 0>>

//The corporation has restructured too recently.//
<</if>>

<<for _stockType range _splitStockConstants>>
	<<set _splitInitial	= _stockType['cost']>>
	<<set _splitValue	  = _splitInitial>>
	<<set _splitDenom	  = _stockType['oldStocks'] || 1>>
	<<set _splitNumerator  = _stockType['newStocks'] || 1>>
	<<set _splitMultiplier = _splitNumerator / _splitDenom>>
	<<set _splitTotal	  = _splitValue * ($publicShares + $personalShares) + _splitFeeValue>>
	<<set _splitWeek	   = _stockType['weeks']>>

<<= _splitNumerator >>-for-<<= _splitDenom>> <<if _splitDenom > _splitNumerator>>inverse<</if>> stock split at @@.red;<<= cashFormat(_splitValue) >>@@ per share.
		Including market fees, this will cost the corporation a total of @@.red;<<= cashFormat(_splitTotal)>>@@,
		leaving the going rate for stock at @@.yellowgreen;<<= cashFormat(Math.floor(corpSharePrice(0, $personalShares * _splitMultiplier, $publicShares * _splitMultiplier))) >>@@ per 1000 shares.
	<<if $corp.SpecTimer == 0>>
		<<if $publicShares % _splitDenom != 0 || $personalShares % _splitDenom != 0>>
		//The number of shares cannot be evenly split//
		<<elseif $corp.Cash > _splitTotal>>
		<<= "[[Split Shares|Manage Corporation][$corp.Cash -= " + _splitTotal + ", $publicShares *= " + _splitMultiplier + ", $personalShares *= " + _splitMultiplier + ", $corp.SpecTimer="+_splitWeek+"]]" >>
		<<else>>
		//The corporation cannot afford the fees.//
		<</if>>
	<</if>>

<</for>>

Slave specialization

<<if $corp.SpecToken > 0>> /*Spending tokens on new specializations*/
	<<if $corp.SpecToken > 1>>
		Your corporation has $corp.SpecToken specializations left.
	<<else>>
		Your corporation has one specialization left.
	<</if>>
	<<if $corp.SpecTimer > 0>>
		You have recently changed specializations and the corporation needs <<if $corp.SpecTimer > 1>>$corp.SpecTimer more weeks<<else>>another week<</if>> before it can comply with another directive.
	<<else>>

Choosing to specialize your corporation uses a specialization. The corporation can be directed to focus on the following:
		<<if $corp.SpecRaces.length == 0 && ($corp.DivExtra > 0 || $corp.DivLegal > 0)>> /*This used to be $captureUpgradeRace, it is a general acquisition specialization*/

Slaves who are not
			<<if $arcologies[0].FSSubjugationistRace != "amerindian" || $arcologies[0].FSSubjugationist == "unset">>[[Amerindian|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("amerindian", 1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]] | <</if>>
			<<if $arcologies[0].FSSubjugationistRace != "asian" || $arcologies[0].FSSubjugationist == "unset">>[[Asian|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("asian", 1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]] | <</if>>
			<<if $arcologies[0].FSSubjugationistRace != "black" || $arcologies[0].FSSubjugationist == "unset">>[[Black|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("black", 1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]] | <</if>>
			<<if $arcologies[0].FSSubjugationistRace != "indo-aryan" || $arcologies[0].FSSubjugationist == "unset">>[[Indo-aryan|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("indo-aryan", 1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]] | <</if>>
			<<if $arcologies[0].FSSubjugationistRace != "latina" || $arcologies[0].FSSubjugationist == "unset">>[[Latina|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("latina", 1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]] | <</if>>
			<<if $arcologies[0].FSSubjugationistRace != "malay" || $arcologies[0].FSSubjugationist == "unset">>[[Malay|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("malay", 1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]] | <</if>>
			<<if $arcologies[0].FSSubjugationistRace != "middle eastern" || $arcologies[0].FSSubjugationist == "unset">>[[Middle Eastern|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("middle eastern", 1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]] | <</if>>
			<<if $arcologies[0].FSSubjugationistRace != "mixed race" || $arcologies[0].FSSubjugationist == "unset">>[[Mixed Race|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("mixed race", 1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]] | <</if>>
			<<if $arcologies[0].FSSubjugationistRace != "pacific islander" || $arcologies[0].FSSubjugationist == "unset">>[[Pacific Islander|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("pacific islander", 1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]] | <</if>>
			<<if $arcologies[0].FSSubjugationistRace != "semitic" || $arcologies[0].FSSubjugationist == "unset">>[[Semitic|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("semitic", 1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]] | <</if>>
			<<if $arcologies[0].FSSubjugationistRace != "southern european" || $arcologies[0].FSSubjugationist == "unset">>[[Southern European|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("southern european", 1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]] | <</if>>
			<<if $arcologies[0].FSSubjugationistRace != "white" || $arcologies[0].FSSubjugationist == "unset">>[[White|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("white", 1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]]<</if>>
			— //additional races can be excluded. 4 races per token.//
			<<if $corp.SpecToken >= 3>>

Only slaves who are
				<<if $arcologies[0].FSSupremacistRace != "amerindian" || $arcologies[0].FSSupremacist == "unset">>[[Amerindian|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("amerindian", 0), $corp.SpecToken -= 3, $corp.SpecTimer = 2]] | <</if>>
				<<if $arcologies[0].FSSupremacistRace != "asian" || $arcologies[0].FSSupremacist == "unset">>[[Asian|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("asian", 0), $corp.SpecToken -= 3, $corp.SpecTimer = 2]] | <</if>>
				<<if $arcologies[0].FSSupremacistRace != "black" || $arcologies[0].FSSupremacist == "unset">>[[Black|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("black", 0), $corp.SpecToken -= 3, $corp.SpecTimer = 2]] | <</if>>
				<<if $arcologies[0].FSSupremacistRace != "indo-aryan" || $arcologies[0].FSSupremacist == "unset">>[[Indo-aryan|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("indo-aryan", 0), $corp.SpecToken -= 3, $corp.SpecTimer = 2]] | <</if>>
				<<if $arcologies[0].FSSupremacistRace != "latina" || $arcologies[0].FSSupremacist == "unset">>[[Latina|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("latina", 0), $corp.SpecToken -= 3, $corp.SpecTimer = 2]] | <</if>>
				<<if $arcologies[0].FSSupremacistRace != "malay" || $arcologies[0].FSSupremacist == "unset">>[[Malay|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("malay", 0), $corp.SpecToken -= 3, $corp.SpecTimer = 2]] | <</if>>
				<<if $arcologies[0].FSSupremacistRace != "middle eastern" || $arcologies[0].FSSupremacist == "unset">>[[Middle Eastern|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("middle eastern", 0), $corp.SpecToken -= 3, $corp.SpecTimer = 2]] | <</if>>
				<<if $arcologies[0].FSSupremacistRace != "mixed race" || $arcologies[0].FSSupremacist == "unset">>[[Mixed Race|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("mixed race", 0), $corp.SpecToken -= 3, $corp.SpecTimer = 2]] | <</if>>
				<<if $arcologies[0].FSSupremacistRace != "pacific islander" || $arcologies[0].FSSupremacist == "unset">>[[Pacific Islander|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("pacific islander", 0), $corp.SpecToken -= 3, $corp.SpecTimer = 2]] | <</if>>
				<<if $arcologies[0].FSSupremacistRace != "semitic" || $arcologies[0].FSSupremacist == "unset">>[[Semitic|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("semitic", 0), $corp.SpecToken -= 3, $corp.SpecTimer = 2]] | <</if>>
				<<if $arcologies[0].FSSupremacistRace != "southern european" || $arcologies[0].FSSupremacist == "unset">>[[Southern European|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("southern european", 0), $corp.SpecToken -= 3, $corp.SpecTimer = 2]] | <</if>>
				<<if $arcologies[0].FSSupremacistRace != "white" || $arcologies[0].FSSupremacist == "unset">>[[White|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("white", 0), $corp.SpecToken -= 3, $corp.SpecTimer = 2]]<</if>>
			<<else>>

Only slaves of a particular race requires 3 tokens.
			<</if>>
		<</if>>
		<<if (ndef $corp.SpecNationality && $corp.DivExtra > 0) && ($arcologies[0].FSEdoRevivalist != "unset" || $arcologies[0].FSChineseRevivalist != "unset")>>

			<<if $arcologies[0].FSEdoRevivalist != "unset">>
				Since you are pursuing Edo Revivalism, slaves who are [[Japanese|Manage Corporation][$corp.SpecNationality = "Japanese", $corp.SpecToken -= 1, $corp.SpecTimer = 2]]
			<</if>>
			<<if $arcologies[0].FSChineseRevivalist != "unset">>
				Since you are pursuing Chinese Revivalism, slaves who are [[Chinese|Manage Corporation][$corp.SpecNationality = "Chinese", $corp.SpecToken -= 1, $corp.SpecTimer = 2]]
			<</if>>
		<</if>>
		<<if $seeDicks != 0 && ndef $corp.SpecGender && ($corp.DivExtra > 0 || $corp.DivLegal > 0)>> /*This used to be $captureUpgradeGender, it is a general acquisition specialization*/

Train only slaves with [[Pussies|Manage Corporation][$corp.SpecGender = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Dicks|Manage Corporation][$corp.SpecGender = 2, $corp.SpecToken -= 1, $corp.SpecTimer = 2]]
		<</if>>
		<<if ndef $corp.SpecHeight && ($corp.DivExtra > 0 || $corp.DivLegal > 0)>> /*This is a general acquisition specialization*/

Slaves that are [[Short|Manage Corporation][$corp.SpecHeight = 2, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Tall|Manage Corporation][$corp.SpecHeight = 4, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] -- //Further specializations possible//
		<</if>>
		<<if ndef $corp.SpecVirgin && ($corp.DivExtra > 0 || $corp.DivLegal > 0)>> /*This is a general acquisition specialization*/

Slaves that are [[Virgins|Manage Corporation][$corp.SpecVirgin = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]]
		<</if>>
		<<if ndef $corp.SpecIntelligence && $corp.DivLegal > 0 >> /*This used to be $entrapmentUpgradeIntelligence, it is a legal enslavement specialization*/

Slaves who are [[Stupid|Manage Corporation][$corp.SpecIntelligence = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Intelligent|Manage Corporation][$corp.SpecIntelligence = 3, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] --//Further specializations possible//
		<</if>>
		<<if ndef $corp.SpecAge && $corp.DivExtra > 0>> /*This used to be $captureUpgradeAge, it is the extralegal enslavement specialization*/

Slaves who are [[Younger|Manage Corporation][$corp.SpecAge = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Older|Manage Corporation][$corp.SpecAge = 3, $corp.SpecToken -= 1, $corp.SpecTimer = 2]]
		<</if>>
		<<if ndef $corp.SpecWeight && ($corp.DivBreak > 0 || $corp.DivSurgery > 0 || $corp.DivTrain > 0)>> /*This used to be $generalUpgradeWeight, it is a general improvement specialization*/

Managing slaves' diets to achieve [[Thin Slaves|Manage Corporation][$corp.SpecWeight = 2, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Fat nor Thin Slaves|Manage Corporation][$corp.SpecWeight = 3, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Fat Slaves|Manage Corporation][$corp.SpecWeight = 5, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] -- //Further specializations possible//
		<</if>>
		<<if ndef $corp.SpecDevotion && ($corp.DivBreak > 0 || $corp.DivSurgery > 0 || $corp.DivTrain > 0)>> /*This used to be $entrapmentUpgradeDevotionOne/Two, it is a general improvement specialization*/

Slaves who are [[Reluctant|Manage Corporation][$corp.SpecDevotion = 2, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Obedient|Manage Corporation][$corp.SpecDevotion = 4, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] -- //Further specializations possible//
		<</if>>
		<<if ndef $corp.SpecAccent && ($corp.DivBreak > 0 || $corp.DivSurgery > 0 || $corp.DivTrain > 0)>> /*This used to be $trainingUpgradeAccent, it is a general improvement specialization*/

Slaves are taught to [[Speak the Language|Manage Corporation][$corp.SpecAccent = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Speak without Accent|Manage Corporation][$corp.SpecAccent = 2, $corp.SpecToken -= 1, $corp.SpecTimer = 2]]
		<</if>>
		<<if ndef $corp.SpecHormones && ($corp.DivBreak > 0 || $corp.DivSurgery > 0 || $corp.DivTrain > 0)>> /*This used to be $drugUpgradeHormones, it is a general improvement specialization*/

Slaves are given hormones to [[Feminize|Manage Corporation][$corp.SpecHormones = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Masculinize|Manage Corporation][$corp.SpecHormones = 2, $corp.SpecToken -= 1, $corp.SpecTimer = 2]]
		<</if>>
		<<if ndef $corp.SpecInjection && ($corp.DivBreak > 0 || $corp.DivSurgery > 0 || $corp.DivTrain > 0)>> /*This used to be $drugUpgradeInjectionOne, it is a general improvement specialization*/

Slave assets are made to be [[Petite|Manage Corporation][$corp.SpecInjection = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Tasteful|Manage Corporation][$corp.SpecInjection = 2, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Huge|Manage Corporation][$corp.SpecInjection = 3, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] -- //Further specializations possible//
		<</if>>
		<<if ndef $corp.SpecCosmetics && ($corp.DivBreak > 0 || $corp.DivSurgery > 0 || $corp.DivTrain > 0)>> /*This used to be $surgicalUpgradeCosmetics, it is a general improvement specialization*/

Straightforward cosmetic procedures are [[Applied|Manage Corporation][$corp.SpecCosmetics = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Not Applied|Manage Corporation][$corp.SpecCosmetics = 0, $corp.SpecTimer = 2]]
		<</if>>
		<<if ndef $corp.SpecEducation && $corp.DivTrain > 0>> /*This used to be $trainingUpgradeEducation, it is the training specialization*/

Slaves are given [[No Education|Manage Corporation][$corp.SpecEducation == 0, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Basic Education|Manage Corporation][$corp.SpecEducation = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] -- //Further specializations possible//
		<</if>>
		<<if ndef $corp.SpecImplants && $corp.DivSurgery > 0>> /*This used to be $surgicalUpgradeImplants, it is the surgery specialization*/

Slave implants are [[Applied|Manage Corporation][$corp.SpecImplants = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Not Applied|Manage Corporation][$corp.SpecImplants = 0, $corp.SpecTimer = 2]] -- //Further specializations possible//
		<</if>>
		<<if ndef $corp.SpecGenitalia && $corp.DivSurgeryDev > 100>> /*This used to be $surgicalUpgradeGenitalia, it is the surgery specialization*/

Slaves get their genitalia reconfigured [[Add Pussy|Manage Corporation][$corp.SpecPussy = 1, $corp.SpecGenitalia = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Remove Pussy|Manage Corporation][$corp.SpecPussy = -1, $corp.SpecGenitalia = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Add Dick|Manage Corporation][$corp.SpecDick = 1, $corp.SpecGenitalia = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Remove Dick|Manage Corporation][$corp.SpecDick = -1, $corp.SpecGenitalia = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Add Balls|Manage Corporation][$corp.SpecBalls = 1, $corp.SpecGenitalia = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Remove Balls|Manage Corporation][$corp.SpecBalls = -1, $corp.SpecGenitalia = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] -- //Further specializations possible//
		<</if>>
		<<if ndef $corp.SpecTrust && $corp.DivBreak > 0>> /*This used to be $generalUpgradeBreaking, it is the slave breaking specific specialization*/

Breaking slaves with [[Brutality|Manage Corporation][$corp.SpecTrust = 2, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Care|Manage Corporation][$corp.SpecTrust = 4, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] -- //Further specializations possible//
		<</if>>
		<<if ndef $corp.SpecAmputee && $corp.DivArcade > 0 && $corp.DivSurgeryDev > 100>> /*This is the arcade specialization*/

Slave limbs are categorically [[Removed|Manage Corporation][$corp.SpecAmputee = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]]
		<</if>>
		<<if ndef $corp.SpecMuscle && $corp.DivMenial > 0>> /*This used to be $generalUpgradeMuscle, it is the Menial division's specialization*/

Slaves with muscles that are <<if $arcologies[0].FSPhysicalIdealist == "unset">> [[Weak|Manage Corporation][$corp.SpecMuscle = 2, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | <</if>>[[Soft|Manage Corporation][$corp.SpecMuscle = 3, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Toned|Manage Corporation][$corp.SpecMuscle = 4, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] -- //Further specializations possible//
		<</if>>
		<<if ndef $corp.SpecMilk && $corp.DivDairy > 0>> /*This is the dairy specialization*/

Slaves are made to be lactating [[Naturally|Manage Corporation][$corp.SpecMilk = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] | [[Through Implant|Manage Corporation][$corp.SpecMilk = 2, $corp.SpecToken -= 1, $corp.SpecTimer = 2]]
		<</if>>
		<<if ndef $corp.SpecSexEd && $corp.DivWhore > 0>> /*This used to be $trainingUpgradeSexEd, it is the escort division specialization*/

Slaves are sexually [[Clueless|Manage Corporation][$corp.SpecSexEd = 0, $corp.SpecToken -= 0, $corp.SpecTimer = 2]] | [[Competent|Manage Corporation][$corp.SpecSexEd = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] -- //Further specializations possible//
		<</if>>
	<</if>>
<<else>>

Your corporation cannot pick a new specialization at this time.
<</if>>

	<<if $corp.Spec > $corp.SpecToken>> /*Modifying specializations*/
		You have chosen the following specializations;

			You can choose to specialize further with additional tokens, specialize less, end the specialization or sometimes tweak them for free.

		<<if $corp.SpecRaces.length == 12>>
			<<set $corp.SpecRaces = []>>
		<</if>>
		<<if $corp.SpecRaces.length > 0>>

				The corporation enslaves people of the following race(s);

				<<if $corp.SpecRaces.includes("amerindian")>>
					Amerindian
					<<if !($arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace != "amerindian")>>
						<<if $corp.SpecRaces.length > 1 && $corp.SpecTimer == 0>>
							<<if ($corp.SpecRaces.length == 4 || $corp.SpecRaces.length == 8) && $corp.SpecToken > 0>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("amerindian",1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]]
							<<elseif ($corp.SpecRaces.length != 4 || $corp.SpecRaces.length != 8)>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("amerindian",1)]]
							<</if>>
						<</if>>
					<</if>>
				<<else>>

==Amerindian==
					<<if $corp.SpecTimer == 0>>
						<<if $corp.SpecRaces.length == 3 || $corp.SpecRaces.length == 7 || $corp.SpecRaces.length == 11>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("amerindian",0), $corp.SpecToken += 1, $corp.SpecTimer = 1]]
						<<else>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("amerindian",0)]]
						<</if>>
					<</if>>
				<</if>>

				<<if $corp.SpecRaces.includes("asian")>>
					Asian
					<<if !($arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace != "asian")>>
						<<if $corp.SpecRaces.length > 1 && $corp.SpecTimer == 0>>
							<<if ($corp.SpecRaces.length == 4 || $corp.SpecRaces.length == 8) && $corp.SpecToken > 0>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("asian",1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]]
							<<elseif ($corp.SpecRaces.length != 4 || $corp.SpecRaces.length != 8)>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("asian",1)]]
							<</if>>
						<</if>>
					<</if>>
				<<else>>
					==Asian==
					<<if $corp.SpecTimer == 0>>
						<<if $corp.SpecRaces.length == 3 || $corp.SpecRaces.length == 7 || $corp.SpecRaces.length == 11>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("asian",0), $corp.SpecToken += 1, $corp.SpecTimer = 1]]
						<<else>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("asian",0)]]
						<</if>>
					<</if>>
				<</if>>

				<<if $corp.SpecRaces.includes("black")>>
					Black
					<<if !($arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace != "black")>>
						<<if $corp.SpecRaces.length > 1 && $corp.SpecTimer == 0>>
							<<if ($corp.SpecRaces.length == 4 || $corp.SpecRaces.length == 8) && $corp.SpecToken > 0>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("black",1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]]
							<<elseif ($corp.SpecRaces.length != 4 || $corp.SpecRaces.length != 8)>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("black",1)]]
							<</if>>
						<</if>>
					<</if>>
				<<else>>
					==Black==
					<<if $corp.SpecTimer == 0>>
						<<if $corp.SpecRaces.length == 3 || $corp.SpecRaces.length == 7 || $corp.SpecRaces.length == 11>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("black",0), $corp.SpecToken += 1, $corp.SpecTimer = 1]]
						<<else>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("black",0)]]
						<</if>>
					<</if>>
				<</if>>

				<<if $corp.SpecRaces.includes("indo-aryan")>>
					Indo-Aryan
					<<if !($arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace != "indo-aryan")>>
						<<if $corp.SpecRaces.length > 1 && $corp.SpecTimer == 0>>
							<<if ($corp.SpecRaces.length == 4 || $corp.SpecRaces.length == 8) && $corp.SpecToken > 0>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("indo-aryan",1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]]
							<<elseif ($corp.SpecRaces.length != 4 || $corp.SpecRaces.length != 8)>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("indo-aryan",1)]]
							<</if>>
						<</if>>
					<</if>>
				<<else>>
					==Indo-Aryan==
					<<if $corp.SpecTimer == 0>>
						<<if $corp.SpecRaces.length == 3 || $corp.SpecRaces.length == 7 || $corp.SpecRaces.length == 11>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("indo-aryan",0), $corp.SpecToken += 1, $corp.SpecTimer = 1]]
						<<else>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("indo-aryan",0)]]
						<</if>>
					<</if>>
				<</if>>

				<<if $corp.SpecRaces.includes("latina")>>
					Latina
					<<if !($arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace != "latina")>>
						<<if $corp.SpecRaces.length > 1 && $corp.SpecTimer == 0>>
							<<if ($corp.SpecRaces.length == 4 || $corp.SpecRaces.length == 8) && $corp.SpecToken > 0>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("latina",1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]]
							<<elseif ($corp.SpecRaces.length != 4 || $corp.SpecRaces.length != 8)>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("latina",1)]]
							<</if>>
						<</if>>
					<</if>>
				<<else>>
					==Latina==
					<<if $corp.SpecTimer == 0>>
						<<if $corp.SpecRaces.length == 3 || $corp.SpecRaces.length == 7 || $corp.SpecRaces.length == 11>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("latina",0), $corp.SpecToken += 1, $corp.SpecTimer = 1]]
						<<else>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("latina",0)]]
						<</if>>
					<</if>>
				<</if>>

				<<if $corp.SpecRaces.includes("malay")>>
					Malay
					<<if !($arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace != "malay")>>
						<<if $corp.SpecRaces.length > 1 && $corp.SpecTimer == 0>>
							<<if ($corp.SpecRaces.length == 4 || $corp.SpecRaces.length == 8) && $corp.SpecToken > 0>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("malay",1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]]
							<<elseif ($corp.SpecRaces.length != 4 || $corp.SpecRaces.length != 8)>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("malay",1)]]
							<</if>>
						<</if>>
					<</if>>
				<<else>>
					==Malay==
					<<if $corp.SpecTimer == 0>>
						<<if $corp.SpecRaces.length == 3 || $corp.SpecRaces.length == 7 || $corp.SpecRaces.length == 11>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("malay",0), $corp.SpecToken += 1, $corp.SpecTimer = 1]]
						<<else>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("malay",0)]]
						<</if>>
					<</if>>
				<</if>>

				<<if $corp.SpecRaces.includes("middle eastern")>>
					Middle Eastern
					<<if !($arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace != "middle eastern")>>
						<<if $corp.SpecRaces.length > 1 && $corp.SpecTimer == 0>>
							<<if ($corp.SpecRaces.length == 4 || $corp.SpecRaces.length == 8) && $corp.SpecToken > 0>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("middle eastern",1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]]
							<<elseif ($corp.SpecRaces.length != 4 || $corp.SpecRaces.length != 8)>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("middle eastern",1)]]
							<</if>>
						<</if>>
					<</if>>
				<<else>>
					==Middle Eastern==
					<<if $corp.SpecTimer == 0>>
						<<if $corp.SpecRaces.length == 3 || $corp.SpecRaces.length == 7 || $corp.SpecRaces.length == 11>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("middle eastern",0), $corp.SpecToken += 1, $corp.SpecTimer = 1]]
						<<else>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("middle eastern",0)]]
						<</if>>
					<</if>>
				<</if>>

				<<if $corp.SpecRaces.includes("mixed race")>>
					Mixed Race
					<<if !($arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace != "mixed race")>>
						<<if $corp.SpecRaces.length > 1 && $corp.SpecTimer == 0>>
							<<if ($corp.SpecRaces.length == 4 || $corp.SpecRaces.length == 8) && $corp.SpecToken > 0>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("mixed race",1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]]
							<<elseif ($corp.SpecRaces.length != 4 || $corp.SpecRaces.length != 8)>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("mixed race",1)]]
							<</if>>
						<</if>>
					<</if>>
				<<else>>
					==Mixed Race==
					<<if $corp.SpecTimer == 0>>
						<<if $corp.SpecRaces.length == 3 || $corp.SpecRaces.length == 7 || $corp.SpecRaces.length == 11>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("mixed race",0), $corp.SpecToken += 1, $corp.SpecTimer = 1]]
						<<else>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("mixed race",0)]]
						<</if>>
					<</if>>
				<</if>>

				<<if $corp.SpecRaces.includes("pacific islander")>>
					Pacific Islander
					<<if !($arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace != "pacific islander")>>
						<<if $corp.SpecRaces.length > 1 && $corp.SpecTimer == 0>>
							<<if ($corp.SpecRaces.length == 4 || $corp.SpecRaces.length == 8) && $corp.SpecToken > 0>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("pacific islander",1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]]
							<<elseif ($corp.SpecRaces.length != 4 || $corp.SpecRaces.length != 8)>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("pacific islander",1)]]
							<</if>>
						<</if>>
					<</if>>
				<<else>>
					==Pacific Islander==
					<<if $corp.SpecTimer == 0>>
						<<if $corp.SpecRaces.length == 3 || $corp.SpecRaces.length == 7 || $corp.SpecRaces.length == 11>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("pacific islander",0), $corp.SpecToken += 1, $corp.SpecTimer = 1]]
						<<else>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("pacific islander",0)]]
						<</if>>
					<</if>>
				<</if>>

				<<if $corp.SpecRaces.includes("semitic")>>
					Semitic
					<<if !($arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace != "semitic")>>
						<<if $corp.SpecRaces.length > 1 && $corp.SpecTimer == 0>>
							<<if ($corp.SpecRaces.length == 4 || $corp.SpecRaces.length == 8) && $corp.SpecToken > 0>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("semitic",1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]]
							<<elseif ($corp.SpecRaces.length != 4 || $corp.SpecRaces.length != 8)>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("semitic",1)]]
							<</if>>
						<</if>>
					<</if>>
				<<else>>
					==Semitic==
					<<if $corp.SpecTimer == 0>>
						<<if $corp.SpecRaces.length == 3 || $corp.SpecRaces.length == 7 || $corp.SpecRaces.length == 11>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("semitic",0), $corp.SpecToken += 1, $corp.SpecTimer = 1]]
						<<else>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("semitic",0)]]
						<</if>>
					<</if>>
				<</if>>

				<<if $corp.SpecRaces.includes("southern european")>>
					Southern European
					<<if !($arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace != "southern european")>>
						<<if $corp.SpecRaces.length > 1 && $corp.SpecTimer == 0>>
							<<if ($corp.SpecRaces.length == 4 || $corp.SpecRaces.length == 8) && $corp.SpecToken > 0>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("southern european",1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]]
							<<elseif ($corp.SpecRaces.length != 4 || $corp.SpecRaces.length != 8)>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("southern european",1)]]
							<</if>>
						<</if>>
					<</if>>
				<<else>>
					==Southern European==
					<<if $corp.SpecTimer == 0>>
						<<if $corp.SpecRaces.length == 3 || $corp.SpecRaces.length == 7 || $corp.SpecRaces.length == 11>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("southern european",0), $corp.SpecToken += 1, $corp.SpecTimer = 1]]
						<<else>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("southern european",0)]]
						<</if>>
					<</if>>
				<</if>>

				<<if $corp.SpecRaces.includes("white")>>
					White
					<<if !($arcologies[0].FSSubjugationist != "unset" && $arcologies[0].FSSubjugationistRace == "white")>>
						<<if $corp.SpecRaces.length > 1 && $corp.SpecTimer == 0>>
							<<if ($corp.SpecRaces.length == 4 || $corp.SpecRaces.length == 8) && $corp.SpecToken > 0>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("white",1), $corp.SpecToken -= 1, $corp.SpecTimer = 1]]
							<<elseif ($corp.SpecRaces.length != 4 || $corp.SpecRaces.length != 8)>>
								[[Blacklist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("white",1)]]
							<</if>>
						<</if>>
					<</if>>
				<<else>>
					==White==
					<<if $corp.SpecTimer == 0>>
						<<if $corp.SpecRaces.length == 3 || $corp.SpecRaces.length == 7 || $corp.SpecRaces.length == 11>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("white",0), $corp.SpecToken += 1, $corp.SpecTimer = 1]]
						<<else>>
							[[Whitelist|Manage Corporation][$corp.SpecRaces = corpBlacklistRace("white",0)]]
						<</if>>
					<</if>>
				<</if>>

		<</if>>

			<<if $corp.SpecNationality>>
				The corporation trains slaves who are $corp.SpecNationality.
				<<if $corp.SpecTimer == 0>>
					<<link "No Focus">><<run delete $corp.SpecNationality>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecGender == 1>>
				The corporation trains slaves with pussies.
				<<if $corp.SpecTimer == 0>>
					<<link "No Focus">><<run delete $corp.SpecGender>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecGender == 2>>

The corporation trains slaves with dicks.
				<<if $corp.SpecTimer == 0>>
					<<link "No Focus">><<run delete $corp.SpecGender>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecHeight == 1>>
				The corporation is targeting tiny slaves.
				<<if $corp.SpecTimer == 0>>
					[[Short Slaves|Manage Corporation][$corp.SpecHeight = 2, $corp.SpecToken += 1, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecHeight>><<set $corp.SpecToken += 2, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecHeight == 2>>
				The corporation is targeting short slaves.
				<<if $corp.SpecTimer == 0>>
					<<if $corp.SpecToken > 0 && ($corp.DivExtraDev + $corp.DivLegalDev) > 50>>
						[[Tiny Slaves|Manage Corporation][$corp.SpecHeight = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] |
					<</if>>
					<<link "No Focus">><<run delete $corp.SpecHeight>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecHeight == 4>>
				The corporation is targeting tall slaves.
				<<if $corp.SpecTimer == 0>>
					<<if $corp.SpecToken > 0 && ($corp.DivExtraDev + $corp.DivLegalDev) > 50>>
						[[Giant Slaves|Manage Corporation][$corp.SpecHeight = 5, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] |
					<</if>>
					<<link "No Focus">><<run delete $corp.SpecHeight>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecHeight == 5>>
				The corporation is targeting giant slaves.
				<<if $corp.SpecTimer == 0>>
					[[Tall Slaves|Manage Corporation][$corp.SpecHeight = 4, $corp.SpecToken += 1, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecHeight>><<set $corp.SpecToken += 2, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecVirgin == 1>>
				The corporation is ensuring slaves remain virgins.
				<<if $corp.SpecTimer == 0>>
					<<link "No Focus">><<run delete $corp.SpecVirgin>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecTrust == 1>>
				The corporation is breaking slaves with extreme brutality.
				<<if $corp.SpecTimer == 0>>
					[[Apply Less Brutality|Manage Corporation][$corp.SpecTrust = 2, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecTrust>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>> /*Don't think this deserves the added cost of a token, unlike the 'utmost care' one*/
			<<elseif $corp.SpecTrust == 2>>
				The corporation is breaking slaves with brutality.
				<<if $corp.SpecTimer == 0>>
					<<if $corp.SpecToken > 0 && $arcologies[0].FSDegradationist > 20 && $corp.DivBreakDev > 50>>
						[[Apply Extreme Brutality|Manage Corporation][$corp.SpecTrust = 1, $corp.SpecTimer = 2]] |
					<</if>>
					<<link "No Focus">><<run delete $corp.SpecTrust>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecTrust == 4>>
				The corporation is breaking slaves with care.
				<<if $corp.SpecTimer == 0>>
					<<if $corp.SpecToken > 0 && $arcologies[0].FSPaternalist > 20 && $corp.DivBreakDev > 50>>
						[[Use the Utmost Care|Manage Corporation][$corp.SpecTrust = 5, $corp.SpecToken += 1, $corp.SpecTimer == 2]] |
					<</if>>
					<<link "No Focus">><<run delete $corp.SpecTrust>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecTrust == 5>>
				The corporation is breaking slaves with the utmost care.
				<<if $corp.SpecTimer == 0>>
					[[Use Less Care|Manage Corporation][$corp.SpecTrust = 4, $corp.SpecToken += 1, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecTrust>><<set $corp.SpecToken += 2, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecWeight == 1>>
				The corporation makes slaves follow incredibly strict diets.
				<<if $corp.SpecTimer == 0>>
					[[Apply Looser Diet|Manage Corporation][$corp.SpecWeight = 2, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecWeight>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecWeight == 2>>
				The corporation makes slaves diet.
				<<if $corp.SpecTimer == 0>>
					<<if $corp.SpecToken > 0 && $arcologies[0].FSHedonisticDecadence == "unset">>
						[[Apply Strict Diet|Manage Corporation][$corp.SpecWeight = 1, $corp.SpecTimer = 2]] |
					<</if>>
					[[Aim for Healthy Weight|Manage Corporation][$corp.SpecWeight = 3, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecWeight>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecWeight == 3>>
				The corporation is aiming for slaves with a healthy weight.
				<<if $corp.SpecTimer == 0>>
					[[Apply Diet|Manage Corporation][$corp.SpecWeight = 2, $corp.SpecTimer = 2]] | [[Plump up Slaves|Manage Corporation][$corp.SpecWeight = 5, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecWeight>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>> /*Perhaps 'plump up' is not the right phrase*/
			<<elseif $corp.SpecWeight == 5>>
				The corporation aims for plump slaves.
				<<if $corp.SpecTimer == 0>>
					<<if $corp.SpecToken > 0 && $arcologies[0].FSPhysicalIdealist == "unset">>
						[[Fatten Slaves|Manage Corporation][$corp.SpecWeight = 6, $corp.SpecTimer = 2]] |
					<</if>>
					[[Aim for Healthy Weight|Manage Corporation][$corp.SpecWeight = 3, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecWeight>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecWeight == 6>>
				The corporation aims for fat slaves.
				<<if $corp.SpecTimer == 0>>
					[[Settle for Plump|Manage Corporation][$corp.SpecWeight = 5, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecWeight>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecMuscle == 1>>
				The corporation aims to have frail slaves.
				<<if $corp.SpecTimer == 0>>
					[[Aim for Weak|Manage Corporation][$corp.SpecMuscle = 2, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecMuscle>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecMuscle == 2>> /*Don't think this deserves the added cost of a token, unlike slaves getting ripped*/
				The corporation aims to have weak slaves.
				<<if $corp.SpecTimer == 0>>
					<<if $arcologies[0].FSPhysicalIdealist == "unset">>
						[[Aim for Frail|Manage Corporation][$corp.SpecMuscle = 1, $corp.SpecTimer = 2]] |
					<</if>>
					[[Aim for Soft|Manage Corporation][$corp.SpecMuscle = 3, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecWeight>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecMuscle == 3>>
				The corporation is aiming for slaves with soft muscles.
				<<if $corp.SpecTimer == 0>>
					<<if $arcologies[0].FSPhysicalIdealist == "unset">>
						[[Aim for Weak|Manage Corporation][$corp.SpecMuscle = 2, $corp.SpecTimer = 2]] |
					<</if>>
					[[Aim for Toned|Manage Corporation][$corp.SpecMuscle = 4, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecWeight>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecMuscle == 4>>
				The corporation aims for toned muscles.
				<<if $corp.SpecTimer == 0>>
					<<if $corp.SpecToken > 0 && ($corp.DivBreakDev + $corp.DivSurgeryDev + $corp.DivTrainDev > 100)>>
						[[Aim for Ripped|Manage Corporation][$corp.SpecMuscle = 5, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] |
					<</if>>
					[[Aim for Soft|Manage Corporation][$corp.SpecMuscle = 3, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecWeight>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecMuscle == 5>>
				The corporation aims for ripped slaves.
				<<if $corp.SpecTimer == 0>>
					[[Aim for Toned|Manage Corporation][$corp.SpecMuscle = 4, $corp.SpecToken += 1, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecWeight>><<set $corp.SpecToken += 2, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecDevotion == 1>>
				The corporation keeps slaves extremely defiant.
				<<if $corp.SpecTimer == 0>>
					[[Less Defiant|Manage Corporation][$corp.SpecDevotion = 2, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecDevotion>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>> /*Don't think this deserves the added cost of a token, unlike the 'devoted' one*/
			<<elseif $corp.SpecDevotion == 2>>
				The corporation keeps slaves reluctant.
				<<if $corp.SpecTimer == 0>>
					[[Make them Defiant|Manage Corporation][$corp.SpecDevotion = 1, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecDevotion>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecDevotion == 4>>
				The corporation is fostering obedience.
				<<if $corp.SpecTimer == 0>>
					<<if $corp.SpecToken > 0 && $corp.DivTrainDev > 100>>
						[[Foster Devotion|Manage Corporation][$corp.SpecDevotion = 5, $corp.SpecToken += 1, $corp.SpecTimer = 2]] |
					<</if>>
				<<link "No Focus">><<run delete $corp.SpecDevotion>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecDevotion == 5>>
				The corporation is fostering devotion.
				<<if $corp.SpecTimer == 0>>
					[[Settle for Obedience|Manage Corporation][$corp.SpecDevotion = 4, $corp.SpecToken += 1, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecDevotion>><<set $corp.SpecToken += 2, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecIntelligence == 1>>
				The corporation keeps stupid slaves.
				<<if $corp.SpecTimer == 0>>
					<<link "No Focus">><<run delete $corp.SpecIntelligence>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecIntelligence == 3>>
				The corporation keeps intelligent slaves.
				<<if $corp.SpecTimer == 0>>
					<<link "No Focus">><<run delete $corp.SpecIntelligence>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecAge == 1>>
				The corporation focuses on young slaves.
				<<if $corp.SpecTimer == 0>>
					<<link "No Focus">><<run delete $corp.SpecAge>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecAge == 3>>
				The corporation focuses on older slaves.
				<<if $corp.SpecTimer == 0>>
					<<link "No Focus">><<run delete $corp.SpecAge>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecAccent == 1>>
				The corporation teaches slaves to speak the lingua franca.
				<<if $corp.SpecTimer == 0>>
					[[Eliminate Accents|Manage Corporation][$corp.SpecAccent = 2, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecAccent>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecAccent == 2>>
				The corporation teaches slaves to speak the lingua franca without an accent.
				<<if $corp.SpecTimer == 0>>
					[[Just Teach Language|Manage Corporation][$corp.SpecAccent = 1, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecAccent>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecEducation == 0>>
				The corporation focuses on uneducated slaves.
				<<if $corp.SpecTimer == 0>>
					<<if $corp.SpecToken > 0>>
						[[Basic Education|Manage Corporation][$corp.SpecEducation = 1, $corp.SpecTimer = 2]] |
					<</if>>
				<<link "No Focus">><<run delete $corp.SpecEducation>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecEducation == 1>>
				The corporation makes sure all slaves have a basic education.
				<<if $corp.SpecTimer == 0>>
					<<if $corp.DivTrainDev > 200 && $corp.SpecToken > 0>>
						[[Advanced Education|Manage Corporation][$corp.SpecEducation = 2, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] |
					<</if>>
					[[No Education|Manage Corporation][$corp.SpecEducation = 1, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecEducation>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecEducation == 2>>
				The corporation makes sure all slaves have an advanced education.
				<<if $corp.SpecTimer == 0>>
					[[Basic Education|Manage Corporation][$corp.SpecEducation = 1, $corp.SpecToken += 1, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecEducation>><<set $corp.SpecToken += 2, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecCosmetics == 1>>
				The corporation applies straightforward cosmetic procedures.
				<<if $corp.SpecTimer == 0>>
					<<link "No Focus">><<run delete $corp.SpecCosmetics>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecCosmetics == 0>>
				The corporation doesn't apply cosmetic procedures.
				<<if $corp.SpecTimer == 0>>
					<<if $corp.SpecToken > 0>>
						[[Applied|Manage Corporation][$corp.SpecCosmetics = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] |
					<</if>>
					<<link "No Focus">><<run delete $corp.SpecCosmetics>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecImplants == 1>>
				The corporation applies tasteful implants to all slaves.
				<<if $corp.SpecTimer == 0>>
					<<if $corp.DivSurgeryDev > 100 && $corp.SpecToken > 0>>
						[[Absurd Implants|Manage Corporation][$corp.SpecImplants = 2, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] |
					<</if>>
					<<link "No Focus">><<run delete $corp.SpecImplants>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecImplants == 2>>
				The corporation applies absurd implants to all slaves.
				<<if $corp.SpecTimer == 0>>
					[[Tasteful Implants|Manage Corporation][$corp.SpecImplants = 1, $corp.SpecToken += 1, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecImplants>><<set $corp.SpecToken += 2, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecImplants == 0>>
				The corporation keeps their slaves entirely implant free.
				<<if $corp.SpecTimer == 0>>
					<<if $corp.SpecToken > 0>>
						[[Tasteful Implants|Manage Corporation][$corp.SpecImplants = 1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] |
					<</if>>
					<<link "No Focus">><<run delete $corp.SpecImplants>><<set $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

		<<if ndef $corp.SpecPussy && ndef $corp.SpecDick && ndef $corp.SpecBalls && $corp.SpecGenitalia == 1>>
			<<set ndef $corp.SpecGenitalia,
			$corp.SpecToken += 1>>
		<</if>>
		<<if $corp.SpecGenitalia == 1>>

				<<if $corp.SpecPussy == 1>>
					The corporation adds a pussy to all slaves.
					<<if $corp.SpecTimer == 0>>
						<<link "Stop">><<run delete $corp.SpecPussy>><<set $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
					<</if>>
				<<elseif $corp.SpecPussy == -1>>
					The corporation removes pussies from all slaves.
					<<if $corp.SpecTimer == 0>>
						<<link "Stop">><<run delete $corp.SpecPussy>><<set $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
					<</if>>
				<<else>>
					The corporation has no plans for pussies.
					<<if $corp.SpecTimer == 0>>
						[[Add Pussy|Manage Corporation][$corp.SpecPussy = 1, $corp.SpecTimer = 2]] | [[Remove Pussy|Manage Corporation][$corp.SpecPussy = -1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]]
					<</if>>
				<</if>>

				<<if $corp.SpecDick == 1>>
					The corporation adds a dick to all slaves.
					<<if $corp.SpecTimer == 0>>
						<<link "Stop">><<run delete $corp.SpecDick>><<set $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
					<</if>>
				<<elseif $corp.SpecDick == -1>>
					The corporation removes dicks from all slaves.
					<<if $corp.SpecTimer == 0>>
						<<link "Stop">><<run delete $corp.SpecDick>><<set $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
					<</if>>
				<<else>>
					The corporation has no plans for dicks.
					<<if $corp.SpecTimer == 0>>
						[[Add Dick|Manage Corporation][$corp.SpecDick = 1, $corp.SpecTimer = 2]] | [[Remove Dick|Manage Corporation][$corp.SpecDick = -1, $corp.SpecToken -= 1, $corp.SpecTimer = 2]]
					<</if>>
				<</if>>

				<<if $corp.SpecBalls == 1>>
					The corporation adds balls to all slaves (penis required).
					<<if $corp.SpecTimer == 0>>
						<<link "Stop">><<run delete $corp.SpecBalls>><<set $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
					<</if>>
				<<elseif $corp.SpecBalls == -1>>
					The corporation removes balls from all slaves.
					<<if $corp.SpecTimer == 0>>
						<<link "Stop">><<run delete $corp.SpecBalls>><<set $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
					<</if>>
				<<else>>
					The corporation has no plans for balls.
					<<if $corp.SpecTimer == 0>>
						[[Add Balls|Manage Corporation][$corp.SpecBalls = 1, $corp.SpecTimer = 2]] | [[Remove Balls|Manage Corporation][$corp.SpecBalls = -1, $corp.SpecTimer = 2]]
					<</if>>
				<</if>>

		<</if>>

			<<if $corp.SpecInjection == 1>>
				The corporation aims for petite assets.
				<<if $corp.SpecTimer == 0>>
					[[Tasteful Size|Manage Corporation][$corp.SpecInjection = 2, $corp.SpecTimer = 2]] | [[Huge Size|Manage Corporation][$corp.SpecInjection = 3, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecInjection>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecInjection == 2>>
				The corporation aims for tasteful assets.
				<<if $corp.SpecTimer == 0>>
					[[Small Size|Manage Corporation][$corp.SpecInjection = 1, $corp.SpecTimer = 2]] | [[Huge Size|Manage Corporation][$corp.SpecInjection = 3, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecInjection>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecInjection == 3>>
				The corporation aims for huge assets.
				<<if $corp.SpecTimer == 0>>
					[[Small Size|Manage Corporation][$corp.SpecInjection = 1, $corp.SpecTimer = 2]] | [[Tasteful Size|Manage Corporation][$corp.SpecInjection = 2, $corp.SpecTimer = 2]] |
					<<if $corp.DivSurgeryDev > 100 && $corp.SpecToken > 0>>
						[[Supermassive Size|Manage Corporation][$corp.SpecInjection = 4, $corp.SpecToken -= 1, $corp.SpecTimer = 2]]
					<</if>>
					<<if $corp.DivDairyDev > 200 && $corp.SpecToken > 0>> |
						[[Pastoral Size|Manage Corporation][$corp.SpecInjection = 5, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] |
					<</if>>
					<<link "No Focus">><<run delete $corp.SpecInjection>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecInjection == 4>>
				The corporation aims for supermassive assets.
				<<if $corp.SpecTimer == 0>>
					[[Huge Size|Manage Corporation][$corp.SpecInjection = 3, $corp.SpecToken += 1, $corp.SpecTimer = 2]] |
					<<if $corp.DivDairyDev > 200>>
						[[Pastoral Size|Manage Corporation][$corp.SpecInjection = 5, $corp.SpecTimer = 2]] |
					<</if>>
				<<link "No Focus">><<run delete $corp.SpecInjection>><<set $corp.SpecToken += 2, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecInjection == 5>>
				The corporation aims for pastoral assets.
				<<if $corp.SpecTimer == 0>>
					[[Huge Size|Manage Corporation][$corp.SpecInjection = 3, $corp.SpecToken += 1, $corp.SpecTimer = 2]] |
					<<if $corp.DivSurgeryDev > 50>>
						[[Supermassive Size|Manage Corporation][$corp.SpecInjection = 4, $corp.SpecTimer = 2]] |
					<</if>>
					<<link "No Focus">><<run delete $corp.SpecInjection>><<set $corp.SpecToken += 2, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecHormones == 1>>
				The corporation feminizes slaves with hormones.
				<<if $corp.SpecTimer == 0>>
					[[Masculinize|Manage Corporation][$corp.SpecHormones = 2, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecHormones>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecHormones == 2>>
				The corporation masculinize slaves with hormones.
				<<if $corp.SpecTimer == 0>>
					[[Feminize|Manage Corporation][$corp.SpecHormones = 1, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecHormones>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecAmputee == 1>>
				The corporation removes all limbs from its slaves.
				<<if $corp.SpecTimer == 0>>
					<<link "Stop">><<run delete $corp.SpecAmputee>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecMilk == 1>>
				The corporation makes sure all slaves are naturally lactating.
				<<if $corp.SpecTimer == 0>>
					[[Lactation Implant|Manage Corporation][$corp.SpecMilk = 2, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecMilk>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecMilk == 2>>
				The corporation equips all slaves with lactation implants.
				<<if $corp.SpecTimer == 0>>
					[[Natural Lactation|Manage Corporation][$corp.SpecMilk = 1, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecMilk>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

			<<if $corp.SpecSexEd == 1>>
				The corporation familiarizes slaves with sexual service.
				<<if $corp.SpecTimer == 0>>
					<<if $corp.SpecToken > 0 && $corp.DivWhoreDev > 200>>
						[[Advanced Training|Manage Corporation][$corp.SpecSexEd = 2, $corp.SpecToken -= 1, $corp.SpecTimer = 2]] |
					<</if>>
					<<link "No Focus">><<run delete $corp.SpecSexEd>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecSexEd == 2>>
				The corporation teaches advanced sexual techniques to its slaves.
				<<if $corp.SpecTimer == 0>>
					[[Basic Training|Manage Corporation][$corp.SpecSexEd = 1, $corp.SpecToken +=1, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecSexEd>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<<elseif $corp.SpecSexEd == 0>>
				The corporation teaches no sexual techniques to its slaves.
				<<if $corp.SpecTimer == 0>>
					[[Basic Training|Manage Corporation][$corp.SpecSexEd = 1, $corp.SpecToken -=1, $corp.SpecTimer = 2]] | <<link "No Focus">><<run delete $corp.SpecSexEd>><<set $corp.SpecToken += 1, $corp.SpecTimer = 2>><<goto "Manage Corporation">><</link>>
				<</if>>
			<</if>>

	<</if>> /*End of activated specializations*/

@@.orange;//Warning: Think TWICE before you click this!//@@
<<link "Dissolve the corporation">>
	<<set cashX(Math.min(corpSharePrice() * $personalShares / 1000, 1000000), "stocksTraded")>>
	<<run App.Corporate.dissolve()>>
	<<goto "Manage Corporation">>
<</link>>
@@.orange;//Warning!//@@

<</if>> /*end of incorporated or not check*/


code:
:: Dinner Party Preparations [nobr]

<<set $nextButton = "Cancel The Event", $nextLink = "Main">>

Hosting of high society dinner parties will increase your prestige significantly and it is expected for someone of your station. Since there is a lack of animal meat, human meat is served at these events to illustrate the wealth and power of the host. The success of the evening is judged by how well the human offering is prepared. Guests to these events are encouraged to rate the dishes and special dishes are expected. If the host receives 5 stars on all the dishes, they will receive the coveted title "<<if $PC.title == 1>>Master<<else>>Mistress<</if>> of The Culinary Arts". You ask $assistant.name to show you a list of cooking instructions for those dishes.

Cooking Instructions and Recipes:

''Roast Long Pig'' – Made with the meat of a human roasted on a spit. Young meat is better than old meat. There should be some amount of fat to make the meat juicy, but not too much fat that makes the meat greasy. Muscles affect the texture of the meat. Meat without muscles lacks texture while an excess will be tough and hard to chew. Remember that you can't eat silicone, and virgin meat is highly sought after.<<if $seePreg != 0>> If the human is pregnant, a veal dish can also be made from the fetus.<</if>>

''Dicky Roll'' – An erect penis made into a spring roll. For best results, harvest the penis at the moment of ejaculation. The size of the penis and the amount of accumulated ejaculate all affect the quality of the dish. Too big of a dick and too thin of semen can both ruin a dish.

''Testy Meat Balls'' – Testicles made into meat balls served with a sauce. Size matters.

''Titty Tartare'' – Made from finely chopped breasts, mixed with onions, capers, and seasonings, and served raw. Big breasts make the best quality meat for this dish. To add a hint of creamy taste, make sure the breasts are lactating. Remember that you can't eat silicone.

''Camel Toe à l'Orange'' – Pussy grilled like a steak. A big clit and big labia will improve the quality of the dish.

Your assistant will take care of the invitations and all the arrangements; all you need to do is pick the meat.

__Select Your Meat:__

<<= App.UI.SlaveList.slaveSelectionList(
		s => assignmentVisible(s) && s.fuckdoll === 0,
		App.UI.SlaveList.SlaveInteract.stdInteract,
		null,
		(s, i) => {
			const p = getPronouns(s);
			return App.UI.DOM.passageLink(`Make ${p.him} the main course`, "Dinner Party Execution",
				() => { App.Utils.setActiveSlaveByIndex(i); })
		}
	)>>


code:
/**
 * @param {string|Node} message
 * @param {number} week
 * @param {string} [category]
 */
App.Reminders.add = function(message, week, category = "manual") {
	if (message === "" || message === null) {
		return;
	}
	const entry = {message: message, week: week, category: category};

	// V.reminders is sorted by week from low to high, we insert at the correct place so it remains sorted.
	const index = V.reminders.findIndex(e => e.week >= week);
	if (index === -1) {
		V.reminders.push(entry);
	} else {
		V.reminders.splice(index, 0, entry);
	}
};

/**
 * @param {number} [maxFuture] how far into the future should reminders be displayed.
 * @param {string} [category]
 * @param {boolean} [link] show link to managePersonalAffairs.tw
 * @returns {HTMLSpanElement}
 */
App.Reminders.list = function list({maxFuture = Number.POSITIVE_INFINITY, category = "all", link = false} = {}) {
	if (V.reminders.length === 0) {
		return document.createDocumentFragment();
	}

	/**
	 * @param {string} c
	 * @returns {boolean}
	 */
	const includedCategory = category === "all" ? () => true : c => c === category;

	const replace = () => App.UI.DOM.replace("#reminderList", list({
		maxFuture: maxFuture,
		category: category,
		link: link
	}));

	/**
	 * @param {{}} entry
	 */
	function clearEntry(entry) {
		V.reminders.splice(V.reminders.indexOf(entry), 1);
		replace();
	}

	// We only want to remove visible entries
	function clearOverdue() {
		V.reminders = V.reminders.filter(e => e.week >= V.week || e.week > V.week + maxFuture || !includedCategory(e.category));
		replace();
	}

	function clearAll() {
		V.reminders = V.reminders.filter(e => e.week > V.week + maxFuture || !includedCategory(e.category));
		replace();
	}

	let outerSpan = document.createElement("span");
	outerSpan.id = "reminderList";

	let overdue = 0, any = false;

	V.reminders.filter(e => e.week <= V.week + maxFuture && includedCategory(e.category))
		.forEach(entry => {
			any = true;
			let week;
			let classes = []; // has to be an array, because makeElement takes no empty strings, but empty arrays.
			if (entry.week < V.week) {
				classes = ["red"];
				week = `${numberWithPluralOne(-(entry.week - V.week), 'week')} ago`;
				overdue++;
			} else if (entry.week === V.week) {
				classes = ["orange"];
				week = "today";
			} else {
				if (entry.week <= V.week + 5) {
					classes = ["green"];
				}
				week = `in ${numberWithPluralOne(entry.week - V.week, 'week')}`;
			}
			const div = document.createElement("div");
			div.append(entry.message,
				" ", App.UI.DOM.makeElement("span", week.toString(), classes),
				" ", App.UI.DOM.link("Clear", clearEntry, [entry]));
			outerSpan.append(div);
		});

	if (overdue > 0) {
		outerSpan.append(App.UI.DOM.makeElement("div", App.UI.DOM.link("Clear Overdue", clearOverdue)));
	}
	if (any) {
		outerSpan.append(App.UI.DOM.makeElement("div", App.UI.DOM.link("Clear all", clearAll)));
		if (link) {
			outerSpan.append(App.UI.DOM.makeElement("div", App.UI.DOM.passageLink("Manage Reminders", "Manage Personal Affairs",)));
		}
	}

	return outerSpan;
};

/**
 * @returns {HTMLDivElement}
 */
App.Reminders.addField = function() {
	const div = document.createElement("div");

	let entry = "";
	let week = 0;

	div.append(App.UI.DOM.makeTextBox("", v => { entry = v; }),
		" in ", App.UI.DOM.makeTextBox(0, v => { week = v; }, true), " weeks.",
		" ", App.UI.DOM.passageLink("Add", passage(), () => { App.Reminders.add(entry, V.week + week); }));

	return div;
};

/**
 * @returns {DocumentFragment}
 */
App.Reminders.fullDisplay = function() {
	let fragment = document.createDocumentFragment();

	fragment.append(App.UI.DOM.makeElement("h2", "Reminders"));

	let list = App.Reminders.list();
	if (list !== null) {
		fragment.append(App.UI.DOM.makeElement("p", list, "indent"));
	}

	fragment.append(App.UI.DOM.makeElement("h3", "Add new"));
	fragment.append(App.UI.DOM.makeElement("p", App.Reminders.addField()));

	return fragment;
};