code:
:: Master Suite [nobr]

<<set $nextButton = "Back to Main", $nextLink = "Main", $returnTo = "Master Suite", $showEncyclopedia = 1, $encyclopedia = "Master Suite", _DL = $MastSiIDs.length, $masterSuiteSlaves = _DL, _SL = $slaves.length>>

<<if $masterSuiteName != "the Master Suite">>
	<<set $masterSuiteNameCaps = $masterSuiteName.replace("the ", "The ")>>
<</if>>

<<set $masterSuiteAverageEnergy = 0, _masterSuiteAverageCum = 0, _masterSuiteAverageDick = 0, _masterSuiteAverageDom = 0, _masterSuiteAverageMilk = 0, _masterSuiteAveragePreg = 0, _masterSuiteAverageSadism = 0, _masterSuitePregnantSlaves = 0, _masterSuitePregnantSlavesMultiple = 0>>

<<if $Concubine != 0>>
<<for _FLs = 0; _FLs < _SL; _FLs++>>
<<if $slaves[_FLs].ID == $Concubine.ID>>
<<if ($slaves[_FLs].preg >= 4)>>
	<<set _masterSuitePregnantSlaves++>>
	<<if $slaves[_FLs].pregType > 1>>
		<<set _masterSuitePregnantSlavesMultiple++>>
	<</if>>
	<<break>>
<</if>>
<</if>>
<</for>>
<</if>>

<<if $masterSuiteSlaves > 0>>
<<for _dI = 0; _dI < _DL; _dI++>>
	<<set _i = $MastSiIDs[_dI].Index, _ID = $MastSiIDs[_dI].ID>>
	<<if _ID != $slaves[_i].ID>>
		/% Slaves.ID and $MastSiIDs.ID's don't match-up so let's find her %/
		<<for _i = 0; _i < _SL; _i++>>
			<<if _ID == $slaves[_i].ID>>
				/% Correct the Index %/
				<<set $MastSiIDs[_dI].Index = _i>>
				<<break>>
			<</if>>
		<</for>>
	<</if>>
	/% Onward bound as normal %/
	<<set _Slave = $slaves[_i]>>
	<<if $masterSuiteUpgradeLuxury == 2>>
	<<if canAchieveErection(_Slave)>>
		<<set _masterSuiteAverageCum += _Slave.balls, _masterSuiteAverageDick += _Slave.dick>>
	<</if>>
	<<set _masterSuiteAverageMilk += _Slave.lactation*(_Slave.boobs-_Slave.boobsImplant), $masterSuiteAverageEnergy += _Slave.energy, _masterSuiteAveragePreg += _Slave.preg>>
	<<if _Slave.fetish == "dom">>
		<<set _masterSuiteAverageDom += _Slave.fetishStrength>>
	<<elseif _Slave.fetish == "submissive">>
		<<set _masterSuiteAverageDom -= _Slave.fetishStrength>>
	<<elseif _Slave.fetish == "sadist">>
		<<set _masterSuiteAverageSadism += _Slave.fetishStrength>>
	<<elseif _Slave.fetish == "masochist">>
		<<set _masterSuiteAverageSadism -= _Slave.fetishStrength>>
	<</if>>
	<</if>>
	<<if (_Slave.preg >= 4)>>
		<<set _masterSuitePregnantSlaves++>>
		<<if _Slave.pregType > 1>>
			<<set _masterSuitePregnantSlavesMultiple++>>
		<</if>>
	<</if>>
<</for>>
	<<set $masterSuiteAverageEnergy = $masterSuiteAverageEnergy/$masterSuiteSlaves>>
	<<set _masterSuiteAverageMilk = _masterSuiteAverageMilk/$masterSuiteSlaves>>
	<<set _masterSuiteAverageCum = _masterSuiteAverageCum/$masterSuiteSlaves>>
	<<set _masterSuiteAverageDick = _masterSuiteAverageDick/$masterSuiteSlaves>>
	<<set _masterSuiteAveragePreg = _masterSuiteAveragePreg/$masterSuiteSlaves>>
	<<set _masterSuiteAverageDom = _masterSuiteAverageDom/$masterSuiteSlaves>>
	<<set _masterSuiteAverageSadism = _masterSuiteAverageSadism/$masterSuiteSlaves>>
<</if>>

<<if $masterSuiteUpgradeLuxury == 1>>

$masterSuiteNameCaps is furnished
<<switch $masterSuiteDecoration>>
<<case "Roman Revivalist">>
	as a Roman emperor's apartment. There is a small shrine to the old gods the <<if $PC.title == 1>>master<<else>>mistress<</if>> favors in a side room, and the flooring is erotic mosaic. Pride of place is given to a set of low couches placed together, capable of accommodating many nude bodies.
<<case "Egyptian Revivalist">>
	after the royal room of an ancient Egyptian palace. There is a small shrine to the old gods the <<if $PC.title == 1>>master<<else>>mistress<</if>> favors in a side room, and linen hangings decorate the walls and ceiling. An imposing bed of sandalwood occupies the center of the room.
<<case "Edo Revivalist">>
	in the Spartan style of an Edo period castle's innermost rooms. Rice paper screens partition off many small cubicles around its large central space. There, around a low bed, there are many mats for servants to kneel around their <<if $PC.title == 1>>master<<else>>mistress<</if>>.
<<case "Arabian Revivalist">>
	as a beguiling haze of Arabian decadence. There is a great gilded bed in the center of the space, piled with silk pillows for naked bodies to recline on. Gauzy curtains flutter in the warm, heady breeze.
<<case "Chinese Revivalist">>
	as though it were the innermost sanctum of the Forbidden City. A massive bed fills the central space. The walls are gorgeous gilded hand-carved screens, and heavy jade statues of favored gods crouch in the corners.
<<case "Chattel Religionist">>
	as a severe place of cold stone and hard wood. A single shaft of sunlight illuminates an enormous stone platform that serves as a bed where penitents give their bodies to their <<if $PC.title == 1>>master<<else>>mistress<</if>>.
<<case "Degradationist">>
	with a gothic grandeur. Blood-red upholstery and hardwood menace crouch in the center of the space in the form of a massive poster bed with curtains of chain mail.
<<case "Repopulation Focus">>
	comfortably, with lots of cushions and seats for a pregnant slaves to lounge on. Various specialized toys, as well as, lotions and creams are readily available. There's a huge, reinforced, low to the ground bed in the middle of the suite.
<<case "Eugenics">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make fucking slave girls lots of fun. There's a huge bed in the middle of the suite, with hidden compartments containing condoms and spermicides.
<<case "Asset Expansionist">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make sex with stacked slaves as fun as possible. There's a huge bed in the middle of the suite, heavily reinforced.
<<case "Transformation Fetishist">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make sex with bimbo slaves as fun as possible. There's a huge bed in the middle of the suite, heavily reinforced.
<<case "Gender Radicalist">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make fucking slave girls in the butt lots of fun.  There's a huge bed in the middle of the suite, with straps to restrain slave girls who don't want to be fucked in the butt, but they're concealed for now.
<<case "Gender Fundamentalist">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make fucking slave girls nice and enjoyable. There's a huge bed in the middle of the suite, with straps to restrain slave girls who don't want to be fucked, but they're concealed for now.
<<case "Physical Idealist">>
	as a shrine to the owner's body. Athletic trophies and photographs of past victories line the walls. There's a huge bed in the middle of the space, and there are mirrors almost everywhere, including on the ceiling over the bed.
<<case "Supremacist">>
	like the royal bedroom in a palace in the old countries of $arcologies[0].FSSupremacistRace people. A massive four-poster bed dominates the space.
<<case "Subjugationist">>
	like the royal bedroom in a palace in the old countries which favored $arcologies[0].FSSubjugationistRace slaves. A massive four-poster bed dominates the space.
<<case "Paternalist">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make sex with slaves mutually enjoyable.
<<case "Pastoralist">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants. The space is dominated by a massive, reinforced bed, built in sections so that part of it can be cleaned while cream-squirting cows cavort on the rest.
<<case "Maturity Preferentialist">>
	comfortably, with elegant sex toys and perfumed lubricants designed to appeal to mature sex slaves. The space is dominated by a broad, soft bed, well supplied with pillows. It's the perfect place to relax with a harem of MILFs.
<<case "Youth Preferentialist">>
	comfortably, with pastel-colored sex toys and flavored lubricants designed to appeal to eager young sex slaves. The space is dominated by a broad, reinforced bed, without cushions or sheets, which would just get in the way of energetic sex.
<<case "Body Purist" "Slimness Enthusiast">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make sex with slaves mutually enjoyable. The space is dominated by a huge bed with soft sheets.
<<default>>
	in a refined, yet practical style. It's dominated by a huge bed in which many slaves could serve their <<if $PC.title == 1>>master<<else>>mistress<</if>> and then cuddle afterward.
<</switch>>

It's is full of luxuries of all kinds. The slaves here live free of want or worry, and have everything except their freedom. Their only duties are to please you and look after the suite and one another.
<<if $masterSuiteSlaves > 2>>
	It's busy with slaves, so many that they are able to rotate through keeping themselves perfect and ready for your pleasure. The slaves not on call at the moment are beautifying themselves, cleaning, or serving others.
	<<if (_masterSuitePregnantSlaves > 2) && (_masterSuitePregnantSlavesMultiple < 2)>>
	Many of the slaves are pregnant, and they walk around proudly displaying their bellies and the new slaves growing inside them.

	<<elseif (_masterSuitePregnantSlaves > 2) && (_masterSuitePregnantSlavesMultiple > 2) && $masterSuiteHyperPregnancy == 1>>
	Many of the slaves are heavily pregnant with multiple children, and they waddle around proudly displaying their distended bulging bellies and the next generation of slaves growing within them.

	<<elseif (_masterSuitePregnantSlaves > 2) && (_masterSuitePregnantSlavesMultiple > 2)>>
	Many of the slaves are pregnant with multiple children, and they walk around proudly displaying their distended bellies and the next generation of slaves growing within them.

	<</if>>
<<elseif $masterSuiteSlaves > 0>>
	It's sparsely populated, so that the few slaves here have to work hard and quickly to ensure that an assortment of sex slaves is perfect and ready for your pleasure at any given moment.
<<else>>
	None of your slaves are serving here.
<</if>>

    [[Remodel the suite around a luxurious pit for group sex|Master Suite][$cash -= 10000, $masterSuiteUpgradeLuxury = 2]] //Costs 10000; will encourage fucktoys to fuck each other//

<<elseif $masterSuiteUpgradeLuxury == 2>>

$masterSuiteNameCaps is furnished
<<switch $masterSuiteDecoration>>
<<case "Roman Revivalist">>
	as a Roman emperor's apartment. There is a small shrine to the old gods the <<if $PC.title == 1>>master<<else>>mistress<</if>> favors in a side room, and the flooring is erotic mosaic.
<<case "Egyptian Revivalist">>
	after the royal room of an ancient Egyptian palace. There is a small shrine to the old gods the <<if $PC.title == 1>>master<<else>>mistress<</if>> favors in a side room, and linen hangings decorate the walls and ceiling.
<<case "Edo Revivalist">>
	in the Spartan style of an Edo period castle's innermost rooms. Rice paper screens partition off many small cubicles around its large central space.
<<case "Arabian Revivalist">>
	as a beguiling haze of Arabian decadence. Gauzy curtains flutter in the warm, heady breeze.
<<case "Chinese Revivalist">>
	as though it were the innermost sanctum of the Forbidden City. The walls are gorgeous gilded hand-carved screens, and heavy jade statues of favored gods crouch in the corners.
<<case "Chattel Religionist">>
	as a severe place of cold stone and hard wood. A single shaft of sunlight illuminates the central space.
<<case "Degradationist">>
	with a gothic grandeur. Blood-red upholstery and hardwood menace decorate the walls.
<<case "Repopulation Focus">>
	comfortably, with lots of cushions and seats for a pregnant slaves to lounge on. There are various specialized toys, as well as, lotions and creams readily available.
<<case "Eugenics">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make fucking slave girls lots of fun. Condoms and spermicides are readily available throughout the suite.
<<case "Asset Expansionist">>
	comfortably, with the convenience of massive-breasted slaves in mind. There are lots of handrails, cushions, and low tables, covered with creams, lubricants, and sex toys.
<<case "Transformation Fetishist">>
	comfortably, with the convenience of bimbos in mind. There are lots of makeup dressers with mirrors, stripper poles, and low tables, covered with creams, lubricants, and sex toys.
<<case "Gender Radicalist">>
	comfortably, with the convenience of dickgirls in mind. There are lots of makeup dressers with mirrors, stripper poles, and low tables, covered with creams, lubricants, and vibrating butt plugs.
<<case "Gender Fundamentalist">>
	comfortably, with the convenience and pleasure of slavegirls in mind. There are lots of makeup dressers with mirrors, soft divans, and low tables, covered with creams, lubricants, and vibrators.
<<case "Physical Idealist">>
	as a shrine to the owner's body. Athletic trophies and photographs of past victories line the walls. The entire area is filled with the heady odors of sweat, metabolites, and sex.
<<case "Supremacist">>
	like the royal bedroom in a palace in the old countries of $arcologies[0].FSSupremacistRace people.
<<case "Subjugationist">>
	like the royal bedroom in a palace in the old countries which favored $arcologies[0].FSSubjugationistRace slaves.
<<case "Paternalist">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make sex with slaves mutually enjoyable.
<<case "Pastoralist">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants, with a distinct focus on mammary intercourse.
<<case "Maturity Preferentialist">>
	comfortably, with elegant sex toys and perfumed lubricants designed to appeal to mature sex slaves.
<<case "Youth Preferentialist">>
	comfortably, with pastel-colored sex toys and flavored lubricants designed to appeal to eager young sex slaves.
<<case "Body Purist" "Slimness Enthusiast">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make sex with slaves mutually enjoyable.
<<default>>
	in a refined, yet practical style.
<</switch>>

The true focus of the suite is, however, the fuckpit. This stepped depression in the middle of the floor
<<if $masterSuiteSlaves > 3>>
	is filled by cushions and every slave in the suite who isn't sleeping, eating, or bathing.
	<<if $masterSuiteAverageEnergy > 90>>
	They're having energetic group sex; most of them are fucking and being fucked at the same time.
	<<elseif $masterSuiteAverageEnergy > 60>>
	They're having group sex; most of them are in active sexual contact with more than one partner.
	<<else>>
	They're having languid group sex; more than one girl is dozing while another plays with her body.
	<</if>>
	<<if $masterSuiteAverageEnergy > 90>>
	The pit features automated cleaning systems, which are quite necessary.
	<<if _masterSuiteAverageDick > 4>>
		With so many huge cocks in the fuckpit, every hole available is frequently fucked vigorously.
	<</if>>
	<<if _masterSuiteAverageCum > 4>>
		The slaves' bodies grow more coated with cum, and more of the white stuff drips from their holes, until they take a break for a shower.
	<</if>>
	<<if _masterSuiteAverageMilk > 4000>>
		Most of them cannot tear themselves away (or cannot escape) for a normal machine milking, so their tender, overfull breasts squirt milk whenever anyone touches them. The lowest level of the fuckpit is a pool of milk.
	<</if>>
	<</if>>
	<<if (_masterSuitePregnantSlaves > 2) && (_masterSuitePregnantSlavesMultiple < 2)>>
	Many of the slaves are pregnant, and more than one has her face buried in the cunt directly below a gravid belly while she lovingly massages her own.

	<<elseif (_masterSuitePregnantSlaves > 2) && (_masterSuitePregnantSlavesMultiple > 2) && $masterSuiteHyperPregnancy == 1>>
	Many of the slaves are heavily pregnant with multiple children, and more than one has her face buried in the cunt directly below a massively overburdened belly while she lovingly massages her own distended squirming stomach.

	<<elseif (_masterSuitePregnantSlaves > 2) && (_masterSuitePregnantSlavesMultiple > 2)>>
	Many of the slaves are pregnant with multiple children, and more than one has her face buried in the cunt directly below a grossly swollen belly while she lovingly massages her own distended stomach.

	<</if>>
<<elseif $masterSuiteSlaves > 0>>
	has a few lonely-looking fucktoys in it, badly outnumbered by the cushions.
<<else>>
	is desolate and unpopulated.
<</if>>

    [[Refit the suite to the height of traditional opulence|Master Suite][$cash -= 10000, $masterSuiteUpgradeLuxury = 1]] //Costs 10000; will focus the suite on you//

<<else>>

$masterSuiteNameCaps is furnished
<<switch $masterSuiteDecoration>>
<<case "Roman Revivalist">>
	as a Roman patrician's apartment. There is a small shrine to the old gods the <<if $PC.title == 1>>master<<else>>mistress<</if>> favors in a side room, and the flooring is erotic mosaic.
<<case "Egyptian Revivalist">>
	after the best room of an ancient Egyptian mansion. There is a small shrine to the old gods the <<if $PC.title == 1>>master<<else>>mistress<</if>> favors in a side room, and linen hangings decorate the walls and ceiling.
<<case "Edo Revivalist">>
	in the Spartan style of an Edo period mansion's innermost rooms. Rice paper screens divide it into subsections, each of which contains little more than a low bed.
<<case "Arabian Revivalist">>
	as a beguiling haze of Arabian decadence. Soft cushions are scattered across the floor and piled against the walls to provide something for dusky, naked bodies to recline on. Gauzy curtains partition the room into a number of cozy dens.
<<case "Chinese Revivalist">>
	like the mansion of a senior mandarin of ancient China. The walls are gorgeous hand-carved wooden screens, and heavy jade statues of favored gods crouch in the corners.
<<case "Chattel Religionist">>
	as a severe place of cold stone and hard wood. A single shaft of sunlight illuminates the bed where penitents give their bodies to their <<if $PC.title == 1>>master<<else>>mistress<</if>>.
<<case "Repopulation Focus">>
	comfortably, with lots of cushions and seats for a pregnant slaves to lounge on. Various specialized toys, as well as, lotions and creams are readily available.
<<case "Eugenics">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make fucking slave girls lots of fun. Condoms and spermicides are readily available throughout the suite.
<<case "Degradationist">>
	with a gothic grandeur. Blood-red upholstery and hardwood menace. There are numerous places where resistant slaves can be restrained.
<<case "Asset Expansionist">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make sex with stacked slaves as fun as possible.
<<case "Transformation Fetishist">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make sex with bimbo slaves as fun as possible.
<<case "Gender Radicalist">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make fucking slave girls in the butt lots of fun. The straps to restrain slave girls who don't want to be fucked in the butt are concealed for now.
<<case "Gender Fundamentalist">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make fucking slave girls nice and enjoyable. The straps to restrain slave girls who don't want to be fucked are concealed for now.
<<case "Physical Idealist">>
	as a shrine to the owner's body. Athletic trophies and photographs of past victories line the walls. There are mirrors almost everywhere, including on the ceiling over the bed.
<<case "Supremacist">>
	like the master bedroom in a mansion in the old countries of $arcologies[0].FSSupremacistRace people.
<<case "Subjugationist">>
	like the master bedroom in a mansion in the old countries which favored $arcologies[0].FSSubjugationistRace slaves.
<<case "Paternalist">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make sex with slaves mutually enjoyable.
<<case "Pastoralist">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants. Everything that isn't waterproof is covered in plastic, to catch errant milk.
<<case "Maturity Preferentialist">>
	comfortably, with elegant sex toys and perfumed lubricants designed to appeal to mature sex slaves.
<<case "Youth Preferentialist">>
	comfortably, with pastel-colored sex toys and flavored lubricants designed to appeal to eager young sex slaves.
<<case "Body Purist" "Slimness Enthusiast">>
	comfortably, with lots of easy-to-clean leather and plentiful tools, toys, and lubricants to make sex with slaves mutually enjoyable.
<<default>>
	comfortably, as a fairly normal luxury suite. It is unusually large, to accommodate as large a stable of sex slaves as strikes your fancy.
<</switch>>

<<if $masterSuiteSlaves > 2>>
	It's busy with slaves, so many that they are able to rotate through keeping themselves perfect and ready for your pleasure. The slaves not on call at the moment are beautifying themselves, cleaning, or serving others.
	<<if (_masterSuitePregnantSlaves > 2) && (_masterSuitePregnantSlavesMultiple < 2)>>
	Many of the slaves are pregnant, and they walk around proudly displaying their bellies and the new slaves growing inside them.

	<<elseif (_masterSuitePregnantSlaves > 2) && (_masterSuitePregnantSlavesMultiple > 2) && $masterSuiteHyperPregnancy == 1>>
	Many of the slaves are heavily pregnant with multiple children, and they waddle around proudly displaying their distended bulging bellies and the next generation of slaves growing within them.

	<<elseif (_masterSuitePregnantSlaves > 2) && (_masterSuitePregnantSlavesMultiple > 2)>>
	Many of the slaves are pregnant with multiple children, and they walk around proudly displaying their distended bellies and the next generation of slaves growing within them.

	<</if>>
<<elseif $masterSuiteSlaves > 0>>
	It's sparsely populated, so that the few slaves here have to work hard and quickly to ensure that an assortment of sex slaves is perfect and ready for your pleasure at any given moment.
<<else>>
	None of your slaves are serving here.
<</if>>

    [[Refit the suite to the height of traditional opulence|Master Suite][$cash -= 25000, $masterSuiteUpgradeLuxury = 1]] //Costs ¤25000 and will focus the suite on you//

    [[Remodel the suite around a luxurious pit for group sex|Master Suite][$cash -= 25000, $masterSuiteUpgradeLuxury = 2]] //Costs ¤25000; will encourage fucktoys to fuck each other//

<</if>>

$masterSuiteNameCaps has room for $masterSuite slaves to live comfortably<<if $masterSuiteUpgradeLuxury == 2>> in the moments when they're not in the fuckpit<<elseif $masterSuiteUpgradeLuxury == 1>> on its huge bed<</if>>.
<<set _Tmult0 = Math.trunc($masterSuite*1000*$upgradeMultiplierArcology)>>
[[Expand the Master Suite|Master Suite][$cash -= _Tmult0, $masterSuite += 5]] //Costs ¤_Tmult0//

<<if $masterSuiteUpgradePregnancy == 1>>
	The master suite has been further upgraded to support fertile slaves and encourage slave pregnancy, providing additional rest areas, better access to amenities, and a dedicated birthing chamber.
	<<if $masterSuitePregnancySlaveLuxuries == 1>>
		Pregnant slaves are being ''given some luxuries'' to reduce stress. [[End the special treatment of pregnant slaves|Master Suite][$masterSuitePregnancySlaveLuxuries = 0]]

	<<else>>
		Pregnant slaves ''have no extra luxuries'' to reduce stress. [[Give pregnant slaves lighter duties|Master Suite][$masterSuitePregnancySlaveLuxuries = 1]]  //Costs ¤500/week//

	<</if>>
	<<if $masterSuitePregnancyFertilityDrugs == 1 || $masterSuiteHyperPregnancy == 1>>
		Fertile slaves ''are being given'' <<if $masterSuiteHyperPregnancy == 1>>super fertility drugs<<else>>fertility drugs<</if>>, encouraging impregnation and multiple pregnancy.<<if $masterSuiteHyperPregnancy == 1>> [[End the drug regime|Master Suite][$masterSuiteHyperPregnancy = 0, $masterSuitePregnancyFertilitySupplements = 0]]<<else>> [[End the drug regime|Master Suite][$masterSuitePregnancyFertilityDrugs = 0, $masterSuitePregnancyFertilitySupplements = 0]]<</if>>

	<<else>>
		Fertile slaves ''are not being given'' fertility drugs. [[Give fertility drugs to all fertile slaves|Master Suite][$masterSuitePregnancyFertilityDrugs = 1]]<<if $seeHyperPreg == 1 && $superFertilityDrugs == 1>> | [[Give hyper fertility drugs to all fertile slaves|Master Suite][$masterSuiteHyperPregnancy = 1]]<</if>>

	<</if>>
	<<if $masterSuitePregnancyFertilityDrugs == 0 && $masterSuiteHyperPregnancy == 0>>
		//Fertile slaves ''must be on fertility drugs'' to be given fertility supplements//

	<<elseif $masterSuitePregnancyFertilitySupplements == 0 && ($masterSuitePregnancyFertilityDrugs == 1 || $masterSuiteHyperPregnancy == 1)>>
		Fertile slaves ''are not being given'' fertility drug supplements. [[Give supplements to slaves on fertility drugs|Master Suite][$masterSuitePregnancyFertilitySupplements = 1]] //Costs ¤1000/week//

	<</if>>
	<<if $masterSuitePregnancyFertilitySupplements == 1 && ($masterSuitePregnancyFertilityDrugs == 1 || $masterSuiteHyperPregnancy == 1)>>
		Fertile slaves ''are being given'' supplements to their fertility drugs, further enhancing the chances of multiple pregnancy. [[End the supplement regime|Master Suite][$masterSuitePregnancyFertilitySupplements = 0]]

	<</if>>
<<else>>
	The master suite does not currently have special customizations to support slave pregnancy. [[Refit the suite to support and encourage slave pregnancy|Master Suite][$cash -= 15000, $masterSuiteUpgradePregnancy = 1]] //Costs ¤15000//
<</if>>

<<if $Concubine != 0>>
	<<set $Flag = 2>>
	<<include "Slave Summary">>
<<else>>
	You do not have a slave serving as your Concubine. [[Appoint one|Concubine Select]]
<</if>>

<<if $masterSuiteSlaves > 0>>

''Bring a slave out of the master suite:''
	<<set $Flag = 1>>
	<<include "Slave Summary">>
<</if>>

<<if $masterSuite <= $masterSuiteSlaves>>

''$masterSuiteNameCaps is full and cannot hold any more slaves''
<<elseif ($slaves.length > $masterSuiteSlaves)>>

''Send a slave to serve in $masterSuiteName:''
	<<set $Flag = 0>>
	<<include "Slave Summary">>
<</if>>
<<unset $Flag>>

Rename $masterSuiteName: <<textbox "$masterSuiteName" $masterSuiteName "Master Suite">> //Use a noun or similar short phrase//


code:
:: Master Suite Report [nobr]

<<set $legendaryAbolitionistID = 0, $masterSuiteAverageEnergy = 0, _masterSuiteAverageCum = 0, _masterSuiteAverageDick = 0, _masterSuiteAverageDom = 0, _masterSuiteAverageMilk = 0, _masterSuiteAveragePreg = 0, _masterSuiteAverageSadism = 0, _masterSuitePregnantSlaves = 0, _masterSuitePregnantSlavesMultiple = 0, _DL = $MastSiIDs.length, $masterSuiteSlaves = _DL, _SL = $slaves.length, _FLs = -1>>

<<for _dI = 0; _dI < _DL; _dI++>>
	<<set _i = $MastSiIDs[_dI].Index, _ID = $MastSiIDs[_dI].ID>>
	<<if _ID != $slaves[_i].ID>>
		/% Slaves.ID and $MastSiIDs.ID's don't match-up so let's find her %/
		<<for _i = 0; _i < _SL; _i++>>
		<<if _ID == $slaves[_i].ID>>
			/% Correct the Index %/
			<<set $MastSiIDs[_dI].Index = _i>>
		<</if>>
		<</for>>
	<</if>>
<</for>>
<<SlaveSort $MastSiIDs>>
<<if $Concubine != 0>>
<<for _FLs = 0; _FLs < _SL; _FLs++>>
<<if $slaves[_FLs].ID == $Concubine.ID>>
	/% Add the Concubine to the $MastSiIDs list at the front of the array, so that she displays first. %/
	<<set $MastSiIDs.unshift({ID: $Concubine.ID, Index: _FLs}), _DL++, $masterSuiteSlaves++>>
	<<break>>
<</if>>
<</for>>
<</if>>

<<if $masterSuiteSlaves > 0>>
<<for _dI = 0; _dI < _DL; _dI++>>
	<<set _i = $MastSiIDs[_dI].Index, $i = _i>>
	<<set $masterSuiteAverageEnergy += $slaves[_i].energy>>
	<<if $masterSuiteUpgradeLuxury == 2>>
	<<if canAchieveErection($slaves[_i])>>
		<<set _masterSuiteAverageCum += $slaves[_i].balls, _masterSuiteAverageDick += $slaves[_i].dick>>
	<</if>>
	<<set _masterSuiteAverageMilk += $slaves[_i].lactation*($slaves[_i].boobs-$slaves[_i].boobsImplant), _masterSuiteAveragePreg += $slaves[_i].preg>>
	<<switch $slaves[_i].fetish>>
	<<case "dom">>
		<<set _masterSuiteAverageDom += $slaves[_i].fetishStrength>>
	<<case "submissive">>
		<<set _masterSuiteAverageDom -= $slaves[_i].fetishStrength>>
	<<case "sadist">>
		<<set _masterSuiteAverageSadism += $slaves[_i].fetishStrength>>
	<<case "masochist">>
		<<set _masterSuiteAverageSadism -= $slaves[_i].fetishStrength>>
	<</switch>>
	<</if>>
	<<if ($legendaryAbolitionistID == 0) && ($slaves[_i].devotion > 95) && ($slaves[_i].prestige == 0) && (($slaves[_i].origin == "You sentenced her to enslavement as a punishment for attempted theft of a slave.") || ($slaves[_i].origin == "She is an enslaved Daughter of Liberty."))>>
		<<set $legendaryAbolitionistID = $slaves[_i].ID>>
	<</if>>
<</for>>
<<set $masterSuiteAverageEnergy = $masterSuiteAverageEnergy/$masterSuiteSlaves>>
<<set _masterSuiteAverageMilk = _masterSuiteAverageMilk/$masterSuiteSlaves>>
<<set _masterSuiteAverageCum = _masterSuiteAverageCum/$masterSuiteSlaves>>
<<set _masterSuiteAverageDick = _masterSuiteAverageDick/$masterSuiteSlaves>>
<<set _masterSuiteAveragePreg = _masterSuiteAveragePreg/$masterSuiteSlaves>>
<<set _masterSuiteAverageDom = _masterSuiteAverageDom/$masterSuiteSlaves>>
<<set _masterSuiteAverageSadism = _masterSuiteAverageSadism/$masterSuiteSlaves>>

    ''There <<if ($masterSuiteSlaves == 1)>>is one slave<<else>>are $masterSuiteSlaves slaves<</if>>
seeing to your pleasure in the master suite.'' Such sexual opulence @@color:green;improves@@ your reputation.
<<if ($arcologies[0].FSEgyptianRevivalist > 0) && ($masterSuiteSlaves >= 5)>>
	Society @@color:green;approves@@ of your keeping a large number of women. This advances the Egyptian revivalist ideal of multiple concubinage.
	<<FSChange "EgyptianRevivalist" 2>>
<</if>>
<<if (_masterSuitePregnantSlaves >= 1)>>
	The suite is supporting the pregnancies of the slaves
	<<if ($masterSuitePregnancyFertilityDrugs == 1 || $masterSuiteHyperPregnancy == 1)>>
		within, and is providing them with fertility drugs
		<<if ($masterSuitePregnancyFertilitySupplements == 1)>>
		and supplements to encourage impregnation.
		<<else>>
		to encourage impregnation.
		<</if>>
	<<else>>
	within.
	<</if>>
<</if>>
<<if $masterSuiteSlaves > 1>>
The level of sexual energy in the suite is
<<if $masterSuiteUpgradeLuxury == 1>>
	<<if $masterSuiteAverageEnergy > 90>>
	intense. When you enter your luxurious retreat, you can set off pent-up orgasms with a touch.
	<<elseif $masterSuiteAverageEnergy > 60>>
	high; there is strong competition for your favors whenever you enter your retreat.
	<<else>>
	relatively normal; the girls serve your pleasure before their own.
	<</if>>
<<elseif $masterSuiteUpgradeLuxury == 2>>
	<<if $masterSuiteAverageEnergy > 90>>
	intense. Your girls spend almost all their time in the fuckpit, having sex in a big pile.
	<<elseif $masterSuiteAverageEnergy > 60>>
	high; your girls spend much of their time in the fuckpit, having sex with each other.
	<<else>>
	relatively normal; the girls lounging in the fuckpit get each other off when they feel like it.
	<</if>>
	<<if _masterSuiteAverageCum > 4>>
	Unless it's right after an automated cleaning, everything in the fuckpit is spattered with cum.
	<</if>>
	<<if _masterSuiteAverageMilk > 4000>>
	There's so much lactation going on that the lowest level of the fuckpit is a pool of milk.
	<</if>>
<<else>>
	relatively normal.
<</if>>
<</if>>

<<for _dI = 0; _dI < _DL; _dI++>>
	<<set _i = $MastSiIDs[_dI].Index, $i = _i>>

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

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

	<</if>>
	/* 000-250-006 */
<<if ($slaves[_i].assignment != "be your Concubine")>>
	<<if $verboseDescriptions == 1>>''__@@color:pink;$slaves[_i].slaveName@@__'' sees to your pleasure in the master suite.<</if>>
	<<if ($masterSuiteUpgradeLuxury == 1)>>
	<<if ($slaves[_i].devotion <= 95)>>
		<<set $slaves[_i].devotion += 2>>
	<</if>>
	<<if $masterSuiteDecoration != "standard">>
		<<set $slaves[_i].devotion++>>
	<</if>>
	<<if ($slaves[_i].trust < 60)>>
		<<set $slaves[_i].trust++>>
	<</if>>
	<<elseif ($masterSuiteUpgradeLuxury == 2)>>
	<<if ($slaves[_i].energy > 90)>>
		<<if ($slaves[_i].devotion <= 95)>>
		<<set $slaves[_i].devotion += 2>>
		<</if>>
		<<if ($slaves[_i].trust <= 95)>>
		<<set $slaves[_i].trust += 2>>
		<</if>>
	<<else>>
		<<if ($slaves[_i].devotion <= 60)>>
		<<set $slaves[_i].devotion++>>
		<</if>>
		<<if ($slaves[_i].trust < 60)>>
		<<set $slaves[_i].trust++>>
		<</if>>
	<</if>>
	<<else>>
	<<if ($slaves[_i].devotion <= 20) && ($slaves[_i].trust > -20)>>
		<<set $slaves[_i].devotion -= 2, $slaves[_i].trust -= 5>>
	<<elseif ($slaves[_i].devotion <= 60)>>
		<<set $slaves[_i].devotion += 2>>
	<<elseif ($slaves[_i].devotion > 60)>>
		<<set $slaves[_i].devotion -= 2>>
	<</if>>
	<<if ($slaves[_i].trust < 60)>>
		<<set $slaves[_i].trust++>>
	<</if>>
	<</if>>
<<else>>
	<<set $Concubine = $slaves[_FLs]>>
	<<if $verboseDescriptions == 1>>    <</if>>''Your concubine $Concubine.slaveName is serving you in $masterSuiteName.'' More than any other slave, her sexual brilliance and physical appeal are @@color:green;critical@@ to your reputation.

	<<if ($Concubine.career == "an arcology owner")>>
		She was once your rival, and your relationship is widely thought to be @@color:green;the perfect modern romance.@@
		<<set $repGain += 250>>
	<<elseif ($Concubine.prestige > 0)>>
		<<if $verboseDescriptions == 1>>Keeping such a prestigious slave as your concubine @@color:green;adds to your fame.@@<</if>>
		<<set $repGain += 25*$Concubine.prestige>>
		<<if $verboseDescriptions == 1>>
			<<if $Concubine.prestigeDesc == "She is a famed Free Cities whore, and commands top prices.">>
				When she has a free moment, she refines her flexibility so that she is prepared for any sexual position you can think of, and many more that she researched just for your pleasure.
			<</if>>
			<<if $Concubine.prestigeDesc == "She is a famed Free Cities slut, and can please anyone.">>
				When she has a free moment, she pretties herself up so that she may be as beautiful as possible to make you look even better.
			<</if>>
			<<if $Concubine.prestigeDesc == "She is remembered for winning best in show as a cockmilker.">>
				She does her best to prevent herself from making a mess when you don't want one. When she has free time, she researches new techniques to makes use of her huge loads to entertain you.
			<</if>>
			<<if $Concubine.prestigeDesc == "She is remembered for winning best in show as a dairy cow.">>
				She does her best to prevent herself from making a mess when you don't want one. When she has free time, she researches new techniques to makes use of her excessive milk to entertain you.
			<</if>>
			<<if $Concubine.prestigeDesc == "She is remembered for winning best in show as a breeder." && $Concubine.preg > 10>>
				When she has a free moment, she refines her flexibility so that she can perform any sexual position possible for her in her motherly state. She takes the time to look up new positions to work around her growing pregnancy.
			<</if>>
			<<if $Concubine.prestigeDesc == "She is remembered for winning best in show as a breeder.">>
				When she has a free moment, she refines her flexibility so that she is prepared for any sexual position you can think of, no matter how heavy she becomes with children.
			<</if>>
		<</if>>
	<</if>>
	<<if ($Concubine.oralCount + $Concubine.analCount + $Concubine.vaginalCount + $Concubine.mammaryCount + $Concubine.penetrativeCount > 1000)>>
		<<if $verboseDescriptions == 1>>Many citizens <<if $Concubine.publicCount > 10>>remember having had her themselves, and <</if>>@@color:green;respectfully@@ envy you her exclusive company.<</if>>
		<<set $repGain += 25>>
	<</if>>
	<<if $slaves[_i].devotion <= 20>>
	<<if $masterSuiteUpgradeLuxury > 0>>
		<<set $slaves[_i].devotion += 4, $slaves[_i].trust += 4>>
	<<else>>
		<<set $slaves[_i].devotion += 2, $slaves[_i].trust += 2>>
	<</if>>
	<</if>>
	<<if $masterSuiteDecoration != "standard">>
		<<set $slaves[_i].devotion++>>
	<</if>>
<</if>>
/% Both %/
<<if $masterSuiteUpgradeLuxury == 2>>
	<<if ($slaves[_i].trust > -20) && ($slaves[_i].devotion > -10) && ($slaves[_i].fetishStrength <= 95)>>
	<<if $masterSuiteAverageEnergy > random(50,90)>>
	<<if $verboseDescriptions == 1>>
		<<set _Verb = "She">>
	<<else>>
		<<set _Verb = $slaves[_i].slaveName>>
	<</if>>
	<<fetishChangeChance $slaves[_i]>>
	<<if (_masterSuiteAverageMilk > 2000) && ($fetishChangeChance > random(0,50))>>
		<<if $slaves[_i].fetish == "boobs">>
			<<if $verboseDescriptions == 1>>Her<<else>>$slaves[_i].slaveName's<</if>> @@color:lightcoral;boob fetish is strengthened@@ by the constant availability of milky nipples for her to play with.
			<<set $slaves[_i].fetishStrength += 4>>
		<<else>>
			_Verb @@color:lightcoral;acquires a boob fetish@@ after spending a lot of time in the fuckpit drinking from her fellow fucktoys' tits.
			<<set $slaves[_i].fetish = "boobs", $slaves[_i].fetishStrength = 65>>
		<</if>>
	<<elseif (_masterSuiteAverageDick > 3) && ($slaves[_i].anus > 0) && ($fetishChangeChance > random(0,50))>>
		_Verb
		<<if $slaves[_i].fetish == "buttslut">>
			@@color:lightcoral;sinks farther into anal pleasure,@@ since she spends her time in the fuckpit with at least one of the many available cocks up her butt.
			<<set $slaves[_i].fetishStrength += 4>>
		<<else>>
			@@color:lightcoral;acquires an anal fetish@@ after helplessly orgasming at the mercy of your many fucktoys eager to shove their big stiff penises up her ass.
			<<set $slaves[_i].fetish = "buttslut", $slaves[_i].fetishStrength = 65>>
		<</if>>
	<<elseif (_masterSuiteAverageCum > 3) && ($fetishChangeChance > random(0,50))>>
		_Verb
		<<if $slaves[_i].fetish == "cumslut">>
			@@color:lightcoral;sinks farther into cum addiction,@@ since she spends her time in the fuckpit eagerly sucking down ejaculate, straight from the many sources.
			<<set $slaves[_i].fetishStrength += 4>>
		<<else>>
			@@color:lightcoral;acquires an oral fixation@@ after orally servicing your many fucktoys eager to blow their loads down her throat.
			<<set $slaves[_i].fetish = "cumslut", $slaves[_i].fetishStrength = 65>>
		<</if>>
	<<elseif (_masterSuiteAveragePreg > 10) && ($fetishChangeChance > random(0,50))>>
		_Verb
		<<if $slaves[_i].fetish == "pregnancy">>
			@@color:lightcoral;sinks farther into pregnancy obsession,@@ since she never wants for a pregnant girl to make love to.
			<<set $slaves[_i].fetishStrength += 4>>
		<<else>>
			@@color:lightcoral;acquires an pregnancy fetish,@@ since many of her sexual partners in the fuckpit are heavily pregnant.
			<<set $slaves[_i].fetish = "pregnancy", $slaves[_i].fetishStrength = 65>>
		<</if>>
	<<elseif (_masterSuiteAverageDom < 50) && ($fetishChangeChance > random(0,50))>>
		_Verb
		<<if $slaves[_i].fetish == "dom">>
			@@color:lightcoral;becomes more dominant,@@ since there are so many subs in the fuckpit who beg her to fuck them hard.
			<<set $slaves[_i].fetishStrength += 4>>
		<<else>>
			@@color:lightcoral;becomes sexually dominant@@ after having fun satisfying the many submissive fucktoys in the fuckpit who beg her to top them.
			<<set $slaves[_i].fetish = "dom", $slaves[_i].fetishStrength = 65>>
		<</if>>
	<<elseif (_masterSuiteAverageDom > 50) && ($fetishChangeChance > random(0,50))>>
		_Verb
		<<if $slaves[_i].fetish == "submissive">>
			@@color:lightcoral;becomes even more submissive,@@ since there are so many doms in the fuckpit that she's often used by more than one at once.
			<<set $slaves[_i].fetishStrength += 4>>
		<<else>>
			@@color:lightcoral;becomes sexually submissive@@ after the many dominant slaves in the fuckpit hold her down and use her for their pleasure.
			<<set $slaves[_i].fetish = "submissive", $slaves[_i].fetishStrength = 65>>
		<</if>>
	<<elseif (_masterSuiteAverageSadism < 50) && ($fetishChangeChance > random(0,50))>>
		_Verb
		<<if $slaves[_i].fetish == "sadist">>
			@@color:lightcoral;becomes more sadistic,@@ since there are so many girls in the fuckpit who will do anything for her if she'll only spank them.
			<<set $slaves[_i].fetishStrength += 4>>
		<<else>>
			@@color:lightcoral;becomes a bit of a sadist@@ after she notices that so many of her fellow fucktoys cum harder if she gives them a good slap.
			<<set $slaves[_i].fetish = "sadist", $slaves[_i].fetishStrength = 65>>
		<</if>>
	<<elseif (_masterSuiteAverageSadism > 50) && ($fetishChangeChance > random(0,50))>>
		<<if $slaves[_i].fetish == "masochist">>
			<<if $verboseDescriptions == 1>>Her<<else>>$slaves[_i].slaveName's<</if>> @@color:lightcoral;pain addiction deepens,@@ since the fuckpit is full of ladies happy to fuck her while she screams.
			<<set $slaves[_i].fetishStrength += 4>>
		<<else>>
			<<if $verboseDescriptions == 1>>She<<else>>$slaves[_i].slaveName<</if>> @@color:lightcoral;learns masochism@@ after experiencing many orgasms under the exquisite sexual torture of the sadists in the fuckpit.
			<<set $slaves[_i].fetish = "masochist", $slaves[_i].fetishStrength = 65>>
		<</if>>
	<</if>>
	<</if>>
	<<if $slaves[_i].energy > 40 && $slaves[_i].energy < 95>>
		Being a constant part of the fuckpit orgy @@color:lime;greatly heightens her libido.@@
		<<set $slaves[_i].energy += 2>>
	<</if>>
	<</if>>
<</if>>

<<if $verboseDescriptions == 1>>

    She <<include "SA please you">>

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

<<include "SA devotion">>
<<else>>
	<<silently>>
	<<include "SA please you">>
	<<if $slaves[_i].choosesOwnClothes == 1>>
	<<include "SA chooses own clothes">>
	<<if ($slaves[_i].devotion <= 20)>>
		<<set $slaves[_i].devotion -= 5>>
	<<else>>
		<<set $slaves[_i].devotion++>>
	<</if>>
	<</if>>
	<<include "SA diet">>
	<<include "SA long term effects">>
	<<include "SA drugs">>
	<<include "SA relationships">>
	<<include "SA rivalries">>
	<<include "SA devotion">>
	<</silently>>
<</if>>
<<if $slaves[_i].health < 80>>
	<<if $masterSuiteUpgradeLuxury == 1>>
	<<set $slaves[_i].health += 20>>
	<<else>>
	<<set $slaves[_i].health += 10>>
	<</if>>
<</if>>

<<if $masterSuiteUpgradePregnancy == 1>>
	/* If they're not on fertility drugs and the toggle is active, stick them on (if they can take them). Otherwise take them off. */
	<<if $slaves[_i].assignment == "serve in the master suite" || $slaves[_i].assignment == "be your Concubine">>
	<<if ($masterSuitePregnancyFertilityDrugs == 1) && ($slaves[_i].drugs != "fertility drugs") && canGetPregnant($slaves[_i])>>
		<<set $slaves[_i].drugs = "fertility drugs">>
	<<elseif ($masterSuiteHyperPregnancy == 1) && ($slaves[_i].drugs != "super fertility drugs") && canGetPregnant($slaves[_i])>>
		<<set $slaves[_i].drugs = "super fertility drugs">>
	<<elseif ((($masterSuitePregnancyFertilityDrugs == 0) && ($slaves[_i].drugs == "fertility drugs")) || (($masterSuiteHyperPregnancy == 0) && ($slaves[_i].drugs == "super fertility drugs"))) || !canGetPregnant($slaves[_i])>>
		<<set $slaves[_i].drugs = "no drugs">>
	<</if>>
	<</if>>
	/* We don't know they're pregnant for a month or so by game logic */
	<<if ($slaves[_i].preg >= 4)>>
	/* Once we know they're knocked up, get the counter going. */
	<<set _masterSuitePregnantSlaves += 1>>
	/* Don't know about twins/triplets etc until 10 weeks. Once we do, get the counter going */
	<<if ($slaves[_i].pregType > 1) && ($slaves[_i].preg >= 10)>>
		<<set _masterSuitePregnantSlavesMultiple += 1>>
	<</if>>
	/* If they're preggo and in the upgraded suite, give them extra devotion. More if they're being given lighter duties. */
	<<if ($slaves[_i].devotion <= 100)>>
	<<if ($masterSuitePregnancySlaveLuxuries == 0)>>
		<<set $slaves[_i].devotion += 2>>
	<<else>>
		<<set $slaves[_i].devotion += 5>>
	<</if>>
	<</if>>
	/* If they're preggo and in the upgraded suite, give them extra trust. More if they're being given lighter duties. */
	<<if ($slaves[_i].trust <= 100)>>
	<<if ($masterSuitePregnancySlaveLuxuries == 0)>>
		<<set $slaves[_i].trust += 2>>
	<<else>>
		<<set $slaves[_i].trust += 5>>
	<</if>>
	<</if>>
	/* If they're preggo and in the upgraded suite, give them extra health. More if they're being given lighter duties. */
	<<if ($slaves[_i].health < 100)>>
	<<if ($masterSuitePregnancySlaveLuxuries == 0)>>
		<<set $slaves[_i].health += 15>>
	<<else>>
		<<set $slaves[_i].health += 25>>
	<</if>>
	<</if>>
	<</if>>
<</if>>

<</for>>

<<if $Concubine>>
	/% Remove the Concubine from the $MastSiIDs list %/
	<<set $Concubine = $slaves[_FLs], _dump = $MastSiIDs.deleteAt(0), _DL--, $masterSuiteSlaves-->>
<</if>>

<<if $arcologies[0].FSRestart != "unset">>
<<if $propOutcome != 1>>
<<if _masterSuitePregnantSlaves > 0>>
	The Societal Elite know what you are doing with your bedslaves. @@color:red;They do not approve@@.
	<<set $failedElite += 5*_masterSuitePregnantSlaves>>
<</if>>
<</if>>
<</if>>

<<if $masterSuiteDecoration != "standard">>
	$masterSuiteNameCaps's $masterSuiteDecoration atmosphere @@color:hotpink;has a minor impact on your fucktoys.@@
<</if>>
<</if>>
<<if $masterSuiteSlaves || $Concubine>>

<</if>>

repo_name: TheBoi/fc


code:
:: Matchmaking [nobr]

<<set $nextButton = "Back", $nextLink = "Main">>

<<if $subSlave == 0>>

<<SlaveTitle $eventSlave>>

/* 000-250-006 */
/* <<if $seeImages == 1>><<SlaveArt $eventSlave 2 0>><</if>> */
<<if $seeImages == 1>>

    <<SlaveArt $eventSlave 2 0>>

<</if>>
/* 000-250-006 */

You order $eventSlave.slaveName to come to your office. The <<if $eventSlave.relationship == -2>>worshipful<<else>>slutty<</if>> $desc arrives promptly, greets you correctly, and waits <<if $eventSlave.relationship == -2>>adoringly for a command<<else>>eagerly for you to fuck her<</if>>. You consider the situation carefully.
<<if $eventSlave.relationship == -2>>
	She's emotionally bonded to you, and loves you with all her heart. She would probably do anything you command and love you all the more for it. If you were to decide that you were tired of her adoration, you could probably set her up with another similarly broken slave. If you ordered them to love each other like they love you, they'd obey.
<<else>>
	She's an emotional slut, and worships you and values herself primarily in terms of sex. She's such a perfect sex slave that she'd probably fuck anyone or anything you told her to, and love you all the more for giving her the chance. If you were to decide that even a sex slave like her needs a little more structure than constant omnisexual lust, you could probably set her up with another universal slut.
<</if>>
Their relationship would probably be somewhat artificial at first, and they'd have to struggle at it, but after a period of adjustment, you'd have two worshipful slaves again, except that they'd be together. It'd definitely help if they had compatible behavioral quirks and sexual fetishes.

<<if ($MixedMarriage == 1)>>
<<if $eventSlave.relationship == -2>>

<<if ($weddingPlanned != 0)>>
You could marry her yourself, but that would have to wait, since you already have a wedding planned this week.
<<else>>
Of course, you could marry her yourself, since you've decide to enable marriage between slaves and owners in your domain. Marriage with her wouldn't be binding, of course, since she'd still be a slave. She'd probably be pleased, however.
<<link "Marry her">>
<<replace "#result">>

<<set $weddingSlaveID = $eventSlave.ID>>

You tell $eventSlave.slaveName that you're going to marry her. (A proposal, of course, would be inappropriate, even in so enlightened a place as your arcology.) You're not exactly lacking in ways to make <<if $eventSlave.actualAge > 30>>women<<else>>girls<</if>> burst into tears, but this one is unusually effective. When she's gotten herself under control again, <<if $eventSlave.amp == 1>>looking somewhat embarrassed that she can't wipe her own tears<<else>>distractedly cuffing away her tears<</if>> and consciously breathing deeply,
<<if canTalk($eventSlave)>>
	she says, "Thank you, <<if $PC.title == 0>><<if SlaveStatsChecker.checkForLisp($eventSlave)>>Mithtreth<<else>>Mistress<</if>><<else>><<if SlaveStatsChecker.checkForLisp($eventSlave)>>Mathter<<else>>Master<</if>><</if>>. I am going to do my <<if SlaveStatsChecker.checkForLisp($eventSlave)>>betht<<else>>best<</if>> to be a
	<<if ($eventSlave.fetishKnown == 1) && ($eventSlave.fetishStrength > 60)>>
		<<if ($eventSlave.fetish == "submissive")>>
		perfect submissive wife to you,
		<<elseif ($eventSlave.fetish == "cumslut")>>
		perfect oral wifey,
		<<elseif ($eventSlave.fetish == "humiliation")>>
		hot wife for you,
		<<elseif ($eventSlave.fetish == "buttslut")>>
		perfect little anal wifey,
		<<elseif ($eventSlave.fetish == "boobs")>>
		<<if $eventSlave.boobs > 800>>perfect big-boobed<<else>>perfect-boobed<</if>> wife
		<<elseif ($eventSlave.fetish == "pregnancy")>>
		perfect barefoot breeding wife,
		<<elseif ($eventSlave.fetish == "dom")>>
		perfect, you know, sharing wife with other <<if SlaveStatsChecker.checkForLisp($eventSlave)>>thlaveth<<else>>slaves<</if>>,
		<<elseif ($eventSlave.fetish == "sadist")>>
		perfect wife to <<if SlaveStatsChecker.checkForLisp($eventSlave)>>uthe on other thlaveth<<else>>use on other slaves<</if>>,
		<<elseif ($eventSlave.fetish == "masochist")>>
		good, beaten wife,
		<<else>>
		good wife,
		<</if>>
	<<else>>
		good wife,
	<</if>>
	<<if $PC.title == 0>><<if SlaveStatsChecker.checkForLisp($eventSlave)>>Mithtreth<<else>>Mistress<</if>><<else>><<if SlaveStatsChecker.checkForLisp($eventSlave)>>Mathter<<else>>Master<</if>><</if>>. Oh, thank you, M-<<if $PC.title == 0>><<if SlaveStatsChecker.checkForLisp($eventSlave)>>Mithtreth<<else>>Mistress<</if>><<else>><<if SlaveStatsChecker.checkForLisp($eventSlave)>>Mathter<<else>>Master<</if>><</if>>," she blubbers, and starts crying again.
<<elseif canTalk($eventSlave)>>
	she shakily signs her thanks twice in a row before breaking down again.
<<else>>
	she painstakingly mouths her thanks, since she cannot speak or use hands to sign.
<</if>>
Despite her devotion and trust, she is still a slave, and probably knows that her position could always change. This brings her one step closer to true permanence, and she knows it.

<<if $assistantName == "your personal assistant">>Your personal assistant<<else>>$assistantName<</if>> prompts you for wedding
<<if $assistant == 0>>
	instructions.
<<else>>
	instructions, her
	<<if $assistantAppearance == "monstergirl">>
		monstergirl avatar appearing in a surprisingly conventional surplice that covers her up decently. All except for her horns, which protrude from under the headpiece.
	<<elseif $assistantAppearance == "shemale">>
		shemale avatar appears in a collar patterned to look like a minister's, and absolutely nothing else, stroking herself with anticipation.
	<<elseif $assistantAppearance == "amazon">>
		amazon avatar wearing a tribal shaman's cape and carrying a medicine stick adorned with all sorts of little charms and baubles.
	<<elseif $assistantAppearance == "businesswoman">>
		businesswoman avatar looking rather severe in a minister's collar.
	<<elseif $assistantAppearance == "fairy">>
		fairy avatar looking incredibly silly, dressed in an oversized, disheveled preist's robes and looking rather smug about it.
	<<elseif $assistantAppearance == "pregnant fairy">>
		fairy avatar looking incredibly silly, dressed in an oversized, disheveled preist's robes stretched tight by her pregnant belly and looking rather smug about it.
	<<elseif $assistantAppearance == "goddess">>
		goddess avatar completely unchanged, since she considers her usual form perfectly appropriate for a marriage.
	<<elseif $assistantAppearance == "hypergoddess">>
		goddess avatar completely unchanged, since she considers her usual form perfectly appropriate for a marriage.
	<<elseif $assistantAppearance == "loli">>
		loli avatar looking surpisingly mature in a minister's collar. Though, she would rather be the flower girl in this wedding.
	<<elseif $assistantAppearance == "preggololi">>
		loli avatar looking surpisingly mature in a minister's collar. Though, she would rather be the flower girl in this wedding.
	<<elseif $assistantAppearance == "schoolgirl">>
		schoolgirl avatar looking willfully absurd in a minister's collar and her usual short plaid skirt.
	<<else>>
		symbol appearing in white.
	<</if>>
<</if>>

<<link "Just redesignate her as your slave wife">>
	<<replace "#result2">>
	You order $assistantName to simply redesignate $eventSlave.slaveName as your slave wife.
	<<if $assistant == 0>>
		"Slave redesignated," it responds immediately. The thing is done.
	<<else>>
		<<if $assistantAppearance == "monstergirl">>
			Her avatar snaps its fingers and shrugs off its surplice, revealing her tentacle hair, pale skin, and cocks once more.
		<<elseif $assistantAppearance == "shemale">>
			Her avatar snaps its fingers and starts to masturbate more energetically.
		<<elseif $assistantAppearance == "amazon">>
			Her avatar gives its medicine stick a shake.
		<<elseif $assistantAppearance == "businesswoman">>
			Her avatar snaps its fingers.
		<<elseif ($assistantAppearance == "fairy") || ($assistantAppearance == "pregnant fairy")>>
			Her avatar claps its hands twice, looking a bit disappointed at the lack of celebration.
		<<elseif $assistantAppearance == "goddess">>
			Her avatar makes a complex hand gesture, looking beatific.
		<<elseif $assistantAppearance == "hypergoddess">>
			Her avatar makes a complex hand gesture, looking beatific.
		<<elseif $assistantAppearance == "loli">>
			Her avatar claps its hands together.
		<<elseif $assistantAppearance == "preggololi">>
			Her avatar claps its hands together.
		<<elseif $assistantAppearance == "schoolgirl">>
			Her avatar snaps its fingers and gives a little twirl.
		<<else>>
			Her symbol flashes.
		<</if>>
		"Done," she says.
	<</if>>
	<<set $eventSlave.relationship = -3>>
	<<for _i = 0; _i < $slaves.length; _i++>>
		<<if $slaves[_i].ID == $eventSlave.ID>>
			<<set $slaves[_i] = $eventSlave>>
		<</if>>
	<</for>>
	<</replace>>
<</link>>

<<link "Have your assistant marry her to you">>
	<<replace "#result2">>
	You order $eventSlave.slaveName to go change into bridal lingerie. She hurries off, still crying. When she returns, she's wearing
	<<if ($eventSlave.vagina == 0)>>
		white, since she's a virgin.
	<<elseif ($eventSlave.preg > 0)>>
		light pink, since she is pregnant.
	<<elseif ($eventSlave.vagina < 0) && ($eventSlave.anus == 0)>>
		white, since she's an anal virgin.
	<<elseif ($eventSlave.vagina < 0) && ($eventSlave.boobs > 500)>>
		electric blue, since she's a shemale.
	<<elseif ($eventSlave.vagina < 0)>>
		pale blue, since she's a sissy slave.
	<<elseif ($eventSlave.dick > 0)>>
		hot pink, since she's a futa slave.
	<<else>>
		light pink, since she's an experienced sex slave.
	<</if>>
	A flimsy veil covers her head and shoulders.
	<<if ($eventSlave.boobs > 4000)>>
		On such short notice, no bridal bra for boobs of her size was available, so she's topless. Not a tragedy.
	<<elseif ($eventSlave.boobs > 1200)>>
		Her lacy bridal bra just barely restrains her huge boobs, leaving the tops of her areolae visible.
	<<elseif ($eventSlave.boobs > 400)>>
		Her lacy bridal bra flatters her pretty breasts.
	<<else>>
		Her lacy bridal bra flatters her pretty chest.
	<</if>>
	<<if ($eventSlave.preg > 20) && ($eventSlave.pregType >= 10)>>
	  Her massive, squirming pregnant belly makes her bridal wear particulary obscene.
	<<elseif ($eventSlave.preg > 10)>>
	  Her pregnant belly protrudes out the front of her bridal wear.
	<<elseif ($eventSlave.inflation == 3)>>
	  Her hugely bloated, <<print $eventSlave.inflationType>>-filled belly protrudes out the front of her bridal wear.
	<<elseif ($eventSlave.inflation == 2)>>
	  Her bloated, <<print $eventSlave.inflationType>>-stuffed belly protrudes out the front of her bridal wear.
	<<elseif ($eventSlave.inflation == 1)>>
	  Her distended, <<print $eventSlave.inflationType>>-belly protrudes out the front of her bridal wear.
	<<elseif ($eventSlave.bellyImplant > 0)>>
	  Her <<print $eventSlave.bellyImplant>>cc belly implant protrudes her middle out the front of her bridal wear.
	<</if>>
	<<if $eventSlave.dickAccessory == ("chastity")>>
		Her slave dick is hidden by its chastity cage.
	<<elseif ($eventSlave.dick > 0) && canAchieveErection($eventSlave)>>
		<<if ($eventSlave.dick > 4) && ($eventSlave.preg > 10)>>
		She's hugely erect, with her lacy g-string only serving to hold her dick agonizingly pressed against the bottom of her pregnant belly.
		<<elseif $eventSlave.dick > 4>>
		She's hugely erect, with her lacy g-string only serving to hold her dick upright along her belly.
		<<else>>
		Her erection tents the front of her lacy g-string.
		<</if>>
	<<elseif ($eventSlave.dick > 0)>>
		<<if $eventSlave.dick > 4>>
		Her big soft cock forms a lewd mass, stuffed into her lacy g-string.
		<<else>>
		Her lacy g-string perfectly conceals her soft dick.
		<</if>>
	<<else>>
		<<if $eventSlave.clit > 1>>
		Her huge clit is quite hard, making her shift uncomfortably as her lacy g-string stimulates it.
		<<else>>
		Her lacy g-string is starting to look a bit moist in front.
		<</if>>
	<</if>>
	<<if $assistantName == "your personal assistant">>Your personal assistant<<else>>$assistantName<</if>> marries her to you in a brief ceremony adapted for slaves and their owners. You place a simple steel ring on her finger; she does not reciprocate, since this marriage does not bind you.
	<<if $assistant == 0>>
		"The marriage protocol now requires you to <<if $PC.dick == 1>>fellate<<if $PC.vagina == 1>> and <</if>><</if>><<if $PC.vagina == 1>>perform cunnilingus on<</if>> the <<if $PC.title == 1>>groom<<else>>the bride<</if>>," $assistantName orders her, and she hurries to obey.
	<<else>>
		<<if $assistantAppearance == "monstergirl">>
			"To consecrate the ceremony," $assistantName concludes, "$eventSlave.slaveName, you will now <<if $PC.dick == 1>>suck the <<if $PC.title == 1>>groom<<else>>bride<</if>>'s dick<<if $PC.vagina == 1>> and eat <<if $PC.title == 1>>his<<else>>her<</if>> pussy<</if>><<else>>eat the <<if $PC.title == 1>>groom<<else>>bride<</if>>'s pussy<</if>>." The slave complies eagerly. Pleased by the sight, $assistantName's avatar begins to play with her dicks.
		<<elseif $assistantAppearance == "shemale">>
			"To get this marriage started," $assistantName concludes, "$eventSlave.slaveName, you will now <<if $PC.dick == 1>>suck the <<if $PC.title == 1>>groom<<else>>bride<</if>>'s dick<<if $PC.vagina == 1>> and eat <<if $PC.title == 1>>his<<else>>her<</if>> pussy<</if>><<else>>eat the <<if $PC.title == 1>>groom<<else>>bride<</if>>'s pussy<</if>>." The slave complies eagerly. Pleased by the sight, $assistantName's avatar starts to jill off.
		<<elseif $assistantAppearance == "amazon">>
			"To complete this ritual," $assistantName concludes, "$eventSlave.slaveName, you will now <<if $PC.dick == 1>>suck the <<if $PC.title == 1>>groom<<else>>bride<</if>>'s dick<<if $PC.vagina == 1>> and eat <<if $PC.title == 1>>his<<else>>her<</if>> pussy<</if>><<else>>eat the <<if $PC.title == 1>>groom<<else>>bride<</if>>'s pussy<</if>>." The slave complies eagerly. Pleased by the sight, $assistantName's avatar starts to jill off.
		<<elseif $assistantAppearance == "businesswoman">>
			"To consecrate the marriage," $assistantName concludes, "$eventSlave.slaveName, you will now <<if $PC.dick == 1>>fellate<<else>>perform cunnilingus on<</if>> the <<if $PC.title == 1>>groom<<else>>the bride<</if>>." The slave complies eagerly. Pleased by the sight, $assistantName's avatar sneaks a hand down her suit skirt, blushing furiously.
		<<elseif $assistantAppearance == "fairy">>
			"To seal the deal," $assistantName concludes, "$eventSlave.slaveName, you gotta drink the <<if $PC.title = 1>>groom's <<else>>bride's <</if>><<if $PC.dick = 1>>semen<<if $PC.vagina == 1>> and pussy juices<</if>><<else>>pussy juices<</if>>." The slave complies eagerly. Pleased by the sight, $assistantName's avatar spreads her legs while still hovering in the air and masturbates eagerly through her half-worn robes.
		<<elseif $assistantAppearance == "pregnant fairy">>
			"To seal the deal," $assistantName concludes, "$eventSlave.slaveName, you gotta drink the <<if $PC.title = 1>>groom's <<else>>bride's <</if>><<if $PC.dick = 1>>semen<<if $PC.vagina == 1>> and pussy juices<</if>><<else>>pussy juices<</if>>." The slave complies eagerly. Pleased by the sight, $assistantName's pregnant avatar curls while still hovering in the air and masturbates eagerly around her large belly.
		<<elseif $assistantAppearance == "goddess">>
			"To consummate the marriage," $assistantName concludes, "$eventSlave.slaveName, you must now <<if $PC.dick == 1>>drink the <<if $PC.title == 1>>groom<<else>>the bride<</if>>'s seed<<else>>drink the <<if $PC.title == 1>>groom<<else>>the bride<</if>>'s female juices<</if>>." The slave complies eagerly. $assistantName's avatar looks on approvingly, cradling her perpetual pregnancy.
		<<elseif $assistantAppearance == "hypergoddess">>
			"To consummate the marriage," $assistantName concludes, "$eventSlave.slaveName, you must now <<if $PC.dick == 1>>drink the <<if $PC.title == 1>>groom<<else>>the bride<</if>>'s seed<<else>>drink the <<if $PC.title == 1>>groom<<else>>the bride<</if>>'s female juices<</if>>." The slave complies eagerly. $assistantName's avatar looks on approvingly, cradling her massive perpetual pregnancy.
		<<elseif $assistantAppearance == "loli">>
			"To consummate the marriage," $assistantName concludes, "$eventSlave.slaveName, you should now <<if $PC.dick == 1>>suck the <<if $PC.title == 1>>groom<<else>>the bride<</if>>'s cock<<if $PC.vagina == 1>>and lick their cunny.<</if>><<else>>lick the <<if $PC.title == 1>>groom<<else>>the bride<</if>>'s cunny<</if>>." The slave complies eagerly. $assistantName's avatar sneaks a hand down her dress, blushing furiously.
		<<elseif $assistantAppearance == "preggololi">>
			"To consummate the marriage," $assistantName concludes, "$eventSlave.slaveName, you should now <<if $PC.dick == 1>>suck the <<if $PC.title == 1>>groom<<else>>the bride<</if>>'s lovely cock<<if $PC.vagina == 1>>and eat out their cunt.<</if>><<else>>lick the <<if $PC.title == 1>>groom<<else>>the bride<</if>>'s cunt<</if>>." The slave complies eagerly. $assistantName's avatar attempts to sneak a hand down her dress, but is thwarted by her belly. She instead openly rubs her crotch through the front of her dress,  blushing furiously.
		<<elseif $assistantAppearance == "schoolgirl">>
			"To get this marriage started," $assistantName concludes, "$eventSlave.slaveName, the rules say you should now <<if $PC.dick == 1>>suck the <<if $PC.title == 1>>groom<<else>>bride<</if>>'s dick<<if $PC.vagina == 1>> and eat <<if $PC.title == 1>>his<<else>>her<</if>> pussy<</if>><<else>>eat the <<if $PC.title == 1>>groom<<else>>bride<</if>>'s pussy<</if>>." The slave complies eagerly. Pleased by the sight, $assistantName's avatar starts to jill off.
		<<else>>
			"To get this marriage started," $assistantName concludes, "$eventSlave.slaveName, the rules say you should now <<if $PC.dick == 1>>suck the <<if $PC.title == 1>>groom<<else>>bride<</if>>'s dick<<if $PC.vagina == 1>> and eat <<if $PC.title == 1>>his<<else>>her<</if>> pussy<</if>><<else>>eat the <<if $PC.title == 1>>groom<<else>>bride<</if>>'s pussy<</if>>." The slave complies eagerly. With only a symbol to express her approval, $assistantName is forced to content herself with spinning the symbol and making it glow in time with your new slave wife's efforts.
		<</if>>
		"Done," she says when you climax. "Enjoy your
		<<if ($eventSlave.fetishKnown == 1) && ($eventSlave.fetishStrength > 60)>>
			<<if ($eventSlave.fetish == "submissive")>>
			submissive slave wife!"
			<<elseif ($eventSlave.fetish == "cumslut")>>
			slave wife's mouth!"
			<<elseif ($eventSlave.fetish == "humiliation")>>
			exhibitionist slave wife!"
			<<elseif ($eventSlave.fetish == "buttslut")>>
			slave wife's butthole!"
			<<elseif ($eventSlave.fetish == "boobs")>>
			slave wife's boobs!"
			<<elseif ($eventSlave.fetish == "pregnancy")>>
			breeder wife!"
			<<elseif ($eventSlave.fetish == "dom")>>
			slave wife's aggression!"
			<<elseif ($eventSlave.fetish == "sadist")>>
			slave wife's sadistic tendencies!"
			<<elseif ($eventSlave.fetish == "masochist")>>
			slave wife's pain!"
			<<else>>
			slave wife!"
			<</if>>
		<<else>>
			slave wife!"
		<</if>>
	<</if>>
	<<set $eventSlave.relationship = -3>>
	<<for _i = 0; _i < $slaves.length; _i++>>
		<<if $slaves[_i].ID == $eventSlave.ID>>
			<<set $slaves[_i] = $eventSlave>>
		<</if>>
	<</for>>
	<</replace>>
<</link>>
<<if $cash > 10000>>

Invite prominent citizens to a wedding (This will cost ¤10000):

    <<link "Straightforward ceremony">>
	<<replace "#result2">>
	You order $assistantName to invite deserving citizens to a straightforward ceremony for a slave being married to a slaveowner, and to make the arrangement. The wedding will take place during the upcoming week.
	<<set $weddingPlanned = 1>>
	<<set $cash -= 10000>>
	<</replace>>
<</link>>
<<if ($eventSlave.vagina != 0) && ($eventSlave.anus != 0) && $eventSlave.breedingMark != 1>>

    <<link "Orgiastic ceremony">>
	<<replace "#result2">>
	You order $assistantName to invite deserving citizens to an orgiastic ceremony for a slave being married to a slaveowner, and to make the arrangements. The wedding orgy will take place during the upcoming week.
	<<set $weddingPlanned = 2>>
	<<set $cash -= 10000>>
	<</replace>>
<</link>> //This will involve the slave having sex with a very large number of citizens//
<</if>>
<<if isFertile($eventSlave) && ($PC.dick == 1)>>

    <<link "Impregnation ceremony">>
	<<replace "#result2">>
	You order $assistantName to invite deserving citizens to a ceremony for a fertile slave being married to a slaveowner, and to make the arrangements. The wedding will take place during the upcoming week.
	<<set $weddingPlanned = 3>>
	<<set $cash -= 10000>>
	<</replace>>
<</link>> //This will involve you impregnating the slave//
<</if>>
<<else>>

//You cannot afford an elaborate ceremony//
<</if>>

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

/* 000-250-006 */
/* <<if $seeImages == 1>><<SlaveArt $eventSlave 2 0>><<SlaveArt $subSlave 2 0>><</if>> */
<<if $seeImages == 1>>

    <<SlaveArt $eventSlave 2 0>>

    <<SlaveArt $subSlave 2 0>>

<</if>>
/* 000-250-006 */

__Put her with another worshipful <<if $eventSlave.relationship == -2>>emotionally bonded emotionally slave<<else>>emotional slut<</if>>:__
<<set $Flag to 1>>
<<include "Slave Summary">>

<<else>>

<<if $seeImages == 1>><<SlaveArt $eventSlave 2 0>><<SlaveArt $subSlave 2 0>><</if>>

You decide to set $eventSlave.slaveName up with $subSlave.slaveName. Telling the former to wait, you have the latter hurry up to your office. When the <<if $eventSlave.relationship == -2>>slaves are waiting adoringly<<else>>sluts are waiting with barely concealed lust<</if>> in front of your desk together, you inform them of your decision.
<<if $eventSlave.relationship == -2>>
	You commend their love for you, and let them know that it's all right for it to continue, but command them to love each other, too. They look doubtful, but at your orders they obediently take each other by the hand, and share a kiss. It will do for now. You assign them to live together as much as possible for a few days, and inform them that you'll be limiting your personal contact with them during this period. They give you identical looks of horror, and fail to notice how much of a perfect couple they already are.
<<else>>
	You praise their total commitment to sexual slavery, and let them know they'll continue to be sex slaves, but tell them that it's time for them to settle down. They give you identical looks of horror, and fail to notice how much of a perfect couple they already are. Patiently, you explain that their sex lives will remain more or less unchanged; just because two slaves are together doesn't mean they can't and won't have sex with other people. They look doubtful, but cheer up when you inform them that they'll be spending a lot of alone time together for a few days.
<</if>>

Being ordered into a relationship would be difficult for anyone, but they're so obedient that @@color:lightgreen;they do their best and make it work.@@ You ensure that they do, and your determined efforts to do so @@color:mediumorchid;reduce their devotion to you,@@ though it's mostly by redirection towards each other. And in any case, they remain devoted enough, and will likely return to their earlier worshipfulness in a few weeks at most.
<<set _matched = 0>>
<<if ($eventSlave.fetish == "submissive") && ($subSlave.fetish == "dom")>>
	$subSlave.slaveName is a dom and $eventSlave.slaveName is a sub. It's a match out of bad fiction.
	<<set _matched = 1>>
<<elseif ($subSlave.fetish == "submissive") && ($eventSlave.fetish == "dom")>>
	$eventSlave.slaveName is a dom and $subSlave.slaveName is a sub. It's a match out of bad fiction.
	<<set _matched = 1>>
<<elseif ($eventSlave.fetish == "masochist") && ($subSlave.fetish == "sadist")>>
	$subSlave.slaveName is a sadist and $eventSlave.slaveName is a masochist. They're a perfect ouroboros of agony.
	<<set _matched = 1>>
<<elseif ($subSlave.fetish == "masochist") && ($eventSlave.fetish == "sadist")>>
	$eventSlave.slaveName is a sadist and $subSlave.slaveName is a masochist. They're a perfect ouroboros of agony.
	<<set _matched = 1>>
<<elseif ($eventSlave.fetish == "cumslut") && ($subSlave.balls > 0)>>
	$subSlave.slaveName has balls and $eventSlave.slaveName has the appetite to drain them of every drop of cum.
	<<set _matched = 1>>
<<elseif ($subSlave.fetish == "cumslut") && ($eventSlave.balls > 0)>>
	$eventSlave.slaveName has balls and $subSlave.slaveName has the appetite to drain them of every drop of cum.
	<<set _matched = 1>>
<<elseif ($eventSlave.fetish == "humiliation") && ($subSlave.fetish == "sadist")>>
	$eventSlave.slaveName loves to be humiliated, and $subSlave.slaveName can definitely get off on another girl's shame.
	<<set _matched = 1>>
<<elseif ($subSlave.fetish == "humiliation") && ($eventSlave.fetish == "sadist")>>
	$subSlave.slaveName loves to be humiliated, and $eventSlave.slaveName can definitely get off on another girl's shame.
	<<set _matched = 1>>
<<elseif ($eventSlave.fetish == "buttslut") && ($subSlave.fetish == "dom")>>
	$subSlave.slaveName likes fucking other girls, so once $eventSlave.slaveName asks her to just do it to her ass all the time, they're both happy.
	<<set _matched = 1>>
<<elseif ($subSlave.fetish == "buttslut") && ($eventSlave.fetish == "dom")>>
	$eventSlave.slaveName likes fucking other girls, so once $subSlave.slaveName asks her to just do it to her ass all the time, they're both happy.
	<<set _matched = 1>>
<<elseif ($eventSlave.fetish == "boobs") && ($subSlave.boobs > 4000)>>
	$eventSlave.slaveName fetishized breasts so much that she thinks $subSlave.slaveName's udders are one of the sexiest things she's ever seen.
	<<set _matched = 1>>
<<elseif ($subSlave.fetish == "boobs") && ($eventSlave.boobs > 4000)>>
	$subSlave.slaveName fetishized breasts so much that she thinks $eventSlave.slaveName's udders are one of the sexiest things she's ever seen.
	<<set _matched = 1>>
<<elseif ($eventSlave.fetish == "pregnancy") && ($subSlave.fetish == "pregnancy") && $subSlave.preg > 20 && $subSlave.pregType > 10 && $eventSlave.preg > 20 && $eventSlave.pregType > 10>>
	$eventSlave.slaveName and $subSlave.slaveName are both bursting with children, much to the each other's delight. They can't wait to explore each other's baby strained middle.
	<<set _matched = 1>>
<<elseif ($eventSlave.fetish == "pregnancy") && ($subSlave.fetish == "pregnancy") && $subSlave.preg > 20 && $eventSlave.preg > 20>>
	$activeSlave.slaveName and $subSlave.slaveName are both heavily pregnant, much to the each other's delight.
	<<set _matched = 1>>
<<elseif ($subSlave.fetish == "pregnancy") && $eventSlave.preg > 20 && $eventSlave.pregType > 10>>
	$subSlave.slaveName fetishizes pregnant bellies so much that she is awestruck by $eventSlave.slaveName's bursting, baby filled middle.
	<<set _matched = 1>>
<<elseif ($eventSlave.fetish == "pregnancy") && $subSlave.preg > 20 && $subSlave.pregType > 10>>
	$eventSlave.slaveName fetishizes pregnant bellies so much that she is awestruck by $subSlave.slaveName's bursting, baby filled middle.
	<<set _matched = 1>>
<<elseif ($subSlave.fetish == "pregnancy") && $eventSlave.preg > 20>>
	$subSlave.slaveName fetishizes pregnant bellies so much that she thinks $eventSlave.slaveName gravid middle is one of the sexiest things she's ever seen.
	<<set _matched = 1>>
<<elseif ($eventSlave.fetish == "pregnancy") && $subSlave.preg > 20>>
	$eventSlave.slaveName fetishizes pregnant bellies so much that she thinks $subSlave.slaveName's gravid middle is one of the sexiest things she's ever seen.
	<<set _matched = 1>>
<<elseif ($eventSlave.fetish == "pregnancy") && ($subSlave.fetish == "pregnancy") && $subSlave.preg > 5 && $eventSlave.preg > 5>>
	$eventSlave.slaveName and $subSlave.slaveName are both pregnant and just beginning to show. They'll both be able to enjoy the other's swelling body.
	<<set _matched = 1>>
<<elseif ($eventSlave.fetish == "pregnancy") && canAchieveErection($subSlave)>>
	$eventSlave.slaveName can indulge the fantasy that she's getting pregnant each and every time $subSlave.slaveName cums inside her.
	<<set _matched = 1>>
<<elseif ($subSlave.fetish == "pregnancy") && canAchieveErection($eventSlave)>>
	$subSlave.slaveName can indulge the fantasy that she's getting pregnant each and every time $eventSlave.slaveName cums inside her.
	<<set _matched = 1>>
<</if>>
<<if _matched == 1>>
	Their sexual compatibility is excellent, and they @@color:mediumaquamarine;trust you more@@ for matching them so perfectly.
	<<set $eventSlave.trust += 10>>
	<<set $subSlave.trust += 10>>
<<elseif $eventSlave.fetish == $subSlave.fetish>>
	They're a couple of
	<<switch $eventSlave.fetish>>
	<<case "submissive">>
		cringing submissives,
	<<case "cumslut">>
		hungry oral fiends,
	<<case "humiliation">>
		public sex aficionados,
	<<case "buttslut">>
		shameless anal whores,
	<<case "boobs">>
		breast obsessives,
	<<case "pregnancy">>
		breeding bitches,
	<<case "dom">>
		dominating spirits,
	<<case "sadist">>
		inveterate sadists,
	<<case "masochist">>
		pain sluts,
	<<default>>
		vanilla girls,
	<</switch>>
	and they bond over their shared sexual tastes, easing their acclimation to having another slave play a major role in their sex lives. They're almost as happy sharing stories about their past sexual exploits as they are actually having sex.
<<else>>
	Their fetishes aren't very compatible, and though as a couple of inventive nymphos they do their absolute best to fuck each other senseless, they @@color:gold;trust you a less@@ out of doubt in the sexual match.
	<<set $eventSlave.trust -= 10>>
	<<set $subSlave.trust -= 10>>
<</if>>
<<if $eventSlave.behavioralQuirk == $subSlave.behavioralQuirk>>
	They're both
	<<switch $eventSlave.behavioralQuirk>>
	<<case "confident">>
		confident, and soon come to an understanding that they'll be able to <<if $eventSlave.relationship == -2>>serve you better together<<else>>fuck third parties better as a pair<</if>>.
	<<case "cutting">>
		witty, and each quickly discovers that her new partner can hold up her end of a battle of quips. Their loving snippiness develops rapidly, and it's pretty cute.
	<<case "funny">>
		a little weird. It takes a while for them to adjust to how funny her new partner is, but they learn to support each other soon enough.
	<<case "adores women">>
		pretty crazy about ladies. They're both slave girls themselves, which helps, and they've also got a never-ending parade of female bodies to discuss together.
	<<case "adores men">>
		guy crazy. They discuss nothing else together, and their discussions frequently turn into makeouts and then mutual masturbation.
	<<case "fitness">>
		fitness fanatics, and being together feels natural for them, since they've already worked out together often enough.
	<<case "insecure">>
		very insecure. Perhaps unsurprisingly, they soon grow to depend on each other, each relying on her partner to support her low self-esteem.
	<<case "sinful">>
		<<if $arcologies[0].FSChattelReligionist == "unset">>
			eagerly sinful, and they grow close by opening up and sharing their fraught histories of faith with each other.
		<<else>>
			fanatical about being slave acolytes of the new faith, and their partnership is strengthened by their belief that it's divinely ordained.
		<</if>>
	<<case "advocate">>
		advocates for slavery. Not only do they share this, but they believe that your orders are good for them, including your order that they be together.
	<</switch>>
<<else>>
	They approach life as slaves differently, and it's @@color:gold;tough for them to reconcile their differences over their values.@@
	<<set $eventSlave.trust -= 10>>
	<<set $subSlave.trust -= 10>>
<</if>>

<<set $subSlave.relationship = 4>>
<<set $subSlave.relationshipTarget = $eventSlave.ID>>
<<set $subSlave.devotion -= 20>>
<<set $eventSlave.relationship = 4>>
<<set $eventSlave.relationshipTarget = $subSlave.ID>>
<<set $eventSlave.devotion -= 20>>

<<for _i = 0; _i < $slaves.length; _i++>>
	<<if $slaves[_i].ID == $eventSlave.ID>>
		<<set $slaves[_i] = $eventSlave>>
	<<elseif $slaves[_i].ID == $subSlave.ID>>
		<<set $slaves[_i] = $subSlave>>
	<</if>>
<</for>>

<</if>>


code:
:: Milking Workaround

<<set $activeSlave.assignment = "get milked">>
<<set $activeSlave.choosesOwnAssignment = 0>>
<<for $i = 0; $i < $slaves.length; $i++>>
	<<if $activeSlave.ID == $slaves[$i].ID>>
	<<set $slaves[$i] = $activeSlave>>
	<<break>>
	<</if>>
<</for>>

<<goto "Main">>


code:
:: Milkmaid Select

<<nobr>>
<<set $nextButton = "Back">>
<<set $nextLink = "Dairy">>
<<set $showEncyclopedia = 1>><<set $encyclopedia = "Milkmaids">>

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

She will look after your livestock, helping them give milk<<if $seeDicks > 0>> and semen<</if>>.
	<<break>>
<</if>>
<</for>>
<<if ($Milkmaid == 0)>>
	You have not selected a Milkmaid.
<</if>>

''Appoint a Milkmaid from your obedient slaves:''
<<include "Slave Summary">>

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


code:
:: Milkmaid Workaround [nobr]

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

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

<<goto "Dairy">>


code:
:: minor injury response [nobr]

<<if $arcologies[0].FSDegradationist > 20>>

She carries on, knowing that in your degradationist arcology, this is accepted behavior.

<<elseif $arcologies[0].FSPaternalist > 20>>

<<if ($AProsperityCap >= 60) && (random(1,100) > 50)>>
	The security drones successfully detain him and oblige him to pay significant @@color:yellowgreen;compensation,@@ since abusing slaves is discouraged here.
	<<set $cash += 50>>
<<elseif ($AProsperityCap >= 160) && (random(1,100) > 50)>>
	The computer systems successfully detain him and require him to pay significant @@color:yellowgreen;compensation,@@ since abusing slaves is discouraged here.
	<<set $cash += 50>>
<<elseif ($slaves[$i].whoreSkill > random(1,100))>>
	$slaves[$i].slaveName is used to this sort of thing, and convinces him to pay significant @@color:yellowgreen;compensation,@@ since abusing slaves is discouraged here.
	<<set $cash += 50>>
<<elseif ($slaves[$i].combatSkill > 0)>>
	$slaves[$i].slaveName can take care of herself, and she successfully forces him to pay significant @@color:yellowgreen;compensation,@@ since abusing slaves is discouraged here.
	<<set $cash += 50>>
<</if>>

<<else>>

<<if ($AProsperityCap >= 60) && (random(1,100) > 50)>>
	The security drones successfully detain him and oblige him to pay minor @@color:yellowgreen;compensation.@@
	<<set $cash += 10>>
<<elseif ($AProsperityCap >= 160) && (random(1,100) > 50)>>
	The computer systems successfully detain him and require him to pay minor @@color:yellowgreen;compensation.@@
	<<set $cash += 10>>
<<elseif ($slaves[$i].whoreSkill > random(1,100))>>
	$slaves[$i].slaveName is used to this sort of thing, and convinces him to pay minor @@color:yellowgreen;compensation.@@
	<<set $cash += 10>>
<<elseif ($slaves[$i].combatSkill > 0)>>
	$slaves[$i].slaveName can take care of herself, and she successfully forces him to pay minor @@color:yellowgreen;compensation.@@
	<<set $cash += 10>>
<</if>>

<</if>>