code:
:: Master Suite Report [nobr]

<<SlaveSort $MastSiIDs>>
<<set _DL = $MastSiIDs.length, $masterSuiteSlaves = _DL, _SL = $slaves.length, $legendaryAbolitionistID = 0, $masterSuiteAverageEnergy = 0, _masterSuiteAverageCum = 0, _masterSuiteAverageDick = 0, _masterSuiteAverageDom = 0, _masterSuiteAverageMilk = 0, _masterSuiteAveragePreg = 0, _masterSuiteAverageSadism = 0, _masterSuitePregnantSlaves = 0, _masterSuitePregnantSlavesMultiple = 0>>
<<if $Concubine != 0>>
	<<set _FLs = $slaveIndices[$Concubine.ID]>>

	<<if def _FLs>>
		/% Add the Concubine to the $MastSiIDs list at the front of the array, so that she displays first %/
		<<set $MastSiIDs.unshift($Concubine.ID), _DL++>>
	<</if>>
<</if>>

<<if _DL > 0>>
	<<for _dI = 0; _dI < _DL; _dI++>>
		<<set $i = $slaveIndices[$MastSiIDs[_dI]]>>
		<<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].pregKnown>>
		<<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/_DL>>
	<<set _masterSuiteAverageMilk = _masterSuiteAverageMilk/_DL>>
	<<set _masterSuiteAverageCum = _masterSuiteAverageCum/_DL>>
	<<set _masterSuiteAverageDick = _masterSuiteAverageDick/_DL>>
	<<set _masterSuiteAveragePreg = _masterSuiteAveragePreg/_DL>>
	<<set _masterSuiteAverageDom = _masterSuiteAverageDom/_DL>>
	<<set _masterSuiteAverageSadism = _masterSuiteAverageSadism/_DL>>

	    ''There <<if (_DL == 1)>>is one slave<<else>>are _DL slaves<</if>>
	seeing to your pleasure in the master suite.'' Such sexual opulence @@.green;improves@@ your reputation.
	<<if ($arcologies[0].FSEgyptianRevivalist > 0) && (_DL >= 5)>>
		Society @@.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 ($arcologies[0].FSHedonisticDecadence > 0)>>
			Society @@.green;approves@@ of the pampering your pregnant harem receives. This advances the ideal that everyone's desires should be fulfilled.
			<<FSChange "Hedonism" 1>>
		<</if>>
	<</if>>
	<<if _DL > 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 = $slaveIndices[$MastSiIDs[_dI]]>>

		/* 000-250-006 */
		<<if $seeImages && $seeReportImages>>

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

		<</if>>
		/* 000-250-006 */
		<<if ($slaves[$i].assignment == "be your Concubine")>>
			<<set $Concubine = $slaves[_FLs]>>
			''Your concubine <<= SlaveFullName($Concubine)>> is serving you in $masterSuiteName.'' More than any other slave, her sexual brilliance and physical appeal are @@.green;critical@@ to your reputation.

			<<if ($Concubine.career == "an arcology owner")>>
				She was once your rival, and your relationship is widely thought to be @@.green;the perfect modern romance.@@
				<<set $repGain += 250>>
			<<elseif ($Concubine.prestige > 0)>>
				<<set $repGain += 25*$Concubine.prestige>>
				<<if $verboseDescriptions == 1>>
					Keeping such a prestigious slave as your concubine @@.green;adds to your fame.@@
					<<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.">>
						<<if $Concubine.balls > 10 || $Concubine.prostate > 1>>
							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 make use of her huge loads to entertain you.
						<<elseif $Concubine.balls > 0>>
							When she has a free moment, she researches ways to increase the size of her loads for you; she dreams of the day she show you just what she was capable of.
						<<else>>
							She wishes she could blow huge loads for you, but without balls, there is little she can do.
						<</if>>
					<</if>>
					<<if $Concubine.prestigeDesc == "She is remembered for winning best in show as a dairy cow.">>
						<<if $Concubine.lactation > 1 || $Concubine.lactationAdaptation > 90>>
							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 make use of her excessive milk to entertain you.
						<<elseif $Concubine.lactation > 0>>
							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 make use of her breast milk to entertain you.
						<<else>>
							She wishes she could lactate for you, but she has dried up since her glory days.
						<</if>>
					<</if>>
					<<if $Concubine.prestigeDesc == "She is remembered for winning best in show as a breeder.">>
						<<if $Concubine.bellyPreg >= 5000>>
							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.
						<<elseif isFertile($Concubine) || $Concubine.preg > 0>>
							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.
						<<else>>
							When she has a free moment, she researches ways to restore her fertility; she dreams of the day she can carry <<if $PC.dick ==1>>your children<<else>>children for you<</if>>.
						<</if>>
					<</if>>
				<</if>>
			<</if>>
			<<if $Concubine.pornPrestige > 2>>
				<<set $repGain += 100>>
				Having a porn star as your personal bed warmer @@.green;reflects on your standing.@@ Your citizens can only wonder at what kinky things happen behind closed doors.
			<<elseif $Concubine.pornPrestige > 1>>
				<<set $repGain += 25>>
				Having a rising porn star as your personal bed warmer @@.green;reflects on your standing.@@
			<</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>>@@.green;respectfully@@ envy you her exclusive company.<</if>>
				<<set $repGain += 25>>
			<</if>>
			<<if $masterSuiteUpgradeLuxury > 0>>
				<<set $slaves[$i].livingRules = "luxurious", $slaves[$i].devotion += 4, $slaves[$i].trust += 4>>
			<<else>>
				<<set $slaves[$i].livingRules = "normal", $slaves[$i].devotion += 2, $slaves[$i].trust += 2>>
			<</if>>
			<<if $masterSuiteDecoration != "standard">>
				<<set $slaves[$i].devotion++>>
			<</if>>
		<<else>> /* not Concubine */
			''__@@.pink;<<= SlaveFullName($slaves[$i])>>@@__''
			<<if $slaves[$i].choosesOwnAssignment == 2>>
				<<include "SA chooses own job">>
			<<else>>
				sees to your pleasure in $masterSuiteName.
			<</if>>
			/* Perform facility based rule changes */
			<<if ($masterSuiteUpgradeLuxury == 1)>>
				<<set $slaves[$i].livingRules = "luxurious">>
				<<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)>>
				<<set $slaves[$i].livingRules = "luxurious">>
				<<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>>
				<<set $slaves[$i].livingRules = "spare">>
				<<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>>
		<</if>>
		/% Both Concubine and other slaves %/
		<<if $masterSuiteUpgradeLuxury == 2 && $masterSuiteAverageEnergy > random(50,90)>>
			<<set _energy = (Math.ceil($slaves[$i].energy/5)*7)>>
			<<run SimpleSlaveFucking($slaves[$i], _energy)>>
			<<if canPenetrate($slaves[$i])>>
				<<set _fuckCount = (random(1,3)*_energy)>>
				<<set $slaves[$i].penetrativeCount += _fuckCount, $penetrativeTotal += _fuckCount>>
			<</if>>
			<<if $slaves[$i].nipples == "fuckable" && _masterSuiteAverageDick > 2>>
				<<set _fuckCount = (random(1,3)*_energy)>>
				<<set $slaves[$i].mammaryCount += _fuckCount, $mammaryTotal += _fuckCount>>
			<</if>>
			<<if ($slaves[$i].trust >= -20) && ($slaves[$i].devotion > -10) && ($slaves[$i].fetishStrength <= 95) && $slaves[$i].fetish != "mindbroken">>
				<<set _fetishChangeChance = 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>> @@.lightcoral;boob fetish is strengthened@@ by the constant availability of milky nipples for her to play with.
						<<set $slaves[$i].fetishStrength += 4>>
					<<else>>
						She @@.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))>>
					She
					<<if $slaves[$i].fetish == "buttslut">>
						@@.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>>
						@@.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))>>
					She
					<<if $slaves[$i].fetish == "cumslut">>
						@@.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>>
						@@.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))>>
					She
					<<if $slaves[$i].fetish == "pregnancy">>
						@@.lightcoral;sinks farther into pregnancy obsession,@@ since she never wants for a pregnant girl to make love to.
						<<set $slaves[$i].fetishStrength += 4>>
					<<else>>
						@@.lightcoral;acquires a 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))>>
					She
					<<if $slaves[$i].fetish == "dom">>
						@@.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>>
						@@.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))>>
					She
					<<if $slaves[$i].fetish == "submissive">>
						@@.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>>
						@@.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))>>
					She
					<<if $slaves[$i].fetish == "sadist">>
						@@.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>>
						@@.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>> @@.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>> @@.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 @@.green;greatly heightens her libido.@@
				<<set $slaves[$i].energy += 2>>
			<</if>>
			<<set $slaves[$i].need -= 50>>
		<</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 ($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]) && ["fertility drugs", "super fertility drugs"].includes($slaves[$i].drugs))>>
				<<set $slaves[$i].drugs = "no drugs">>
			<</if>>
			/* We don't know they're pregnant for a month or so by game logic */
			<<if ($slaves[$i].pregKnown == 1)>>
				/* 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>>

		<<if $verboseDescriptions == 1>>

    She <<include "SA please you">>

			<<= saChoosesOwnClothes($slaves[$i])>>
			<<include "SA rules">>
			<<include "SA diet">>
			<<include "SA long term effects">>
			<<include "SA drugs">>
			<<include "SA relationships">>
			<<include "SA rivalries">>

<<include "SA devotion">>
		<<else>>
			<<silently>>
			<<include "SA chooses own job">>
			<<include "SA please you">>
			<<set _chosenClothes = saChoosesOwnClothes($slaves[$i])>>
			<<include "SA rules">>
			<<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>>

	<</for>>

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

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

	<<if $masterSuiteDecoration != "standard">>

    $masterSuiteNameCaps's $masterSuiteDecoration atmosphere @@.hotpink;has a minor impact on your fucktoys.@@
	<</if>>
<</if>>
<<if _DL > 0 || $Concubine != 0>>

<</if>>


code:
:: Matchmaking [nobr]

<<set $nextButton = "Back", $nextLink = "AS Dump">>

<<if $subSlave == 0>>

<<set $desc = SlaveTitle($eventSlave)>>
<<set _belly = bellyAdjective($eventSlave)>>

/* 000-250-006 */
<<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.

/* Nope
<<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">>

<<run Enunciate($eventSlave)>>

<<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, <<Master>>. I am going to do my be<<s>>t to be a
	<<if ($eventSlave.fetishKnown == 1) && ($eventSlave.fetishStrength > 60)>>
		<<if ($eventSlave.fetish == "submissive")>>
		perfect <<s>>ubmi<<ss>>ive 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, <<s>>haring wife with other <<s>>lave<<s>>,
		<<elseif ($eventSlave.fetish == "sadist")>>
		perfect wife to u<<s>>e on other <<s>>lave<<s>>,
		<<elseif ($eventSlave.fetish == "masochist")>>
		good, beaten wife,
		<<else>>
		good wife,
		<</if>>
	<<else>>
		good wife,
	<</if>>
	<<Master>>. Oh, thank you, <<Master>>," she blubbers, and starts crying again.
<<elseif $eventSlave.amp != 1>>
	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 priest's robes and looking rather smug about it.
	<<elseif $assistantAppearance == "pregnant fairy">>
		fairy avatar looking incredibly silly, dressed in an oversized, disheveled priest'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 surprisingly mature in a minister's collar. Though, she would rather be the flower girl in this wedding.
	<<elseif $assistantAppearance == "preggololi">>
		loli avatar looking surprisingly 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.
	<<elseif $assistantAppearance == "angel">>
		angelic avatar looking, well, angelic in her usual garb with an added minister's collar.
	<<elseif $assistantAppearance == "cherub">>
		angelic avatar looking absurd in her oversized robe, complete with wingholes, and minister's collar.
	<<elseif $assistantAppearance == "incubus">>
		demonic avatar completely unchanged, since she considers her usual form perfectly appropriate for a marriage, though she has made sure to be fully erect for the wedding.
	<<elseif $assistantAppearance == "succubus">>
		demonic avatar wearing nothing but a minister's collar. She has brought several marital aids along with her to tease the bride and groom with.
	<<elseif $assistantAppearance == "imp">>
		demonic avatar looking absurd in her oversized robe, complete with wingholes, and minister's collar.
	<<elseif $assistantAppearance == "witch">>
		witchy avatar looking rather formal in a fine robe and minister's collar.
	<<elseif $assistantAppearance == "ERROR_1606_APPEARANCE_FILE_CORRUPT">>
		twitching avatar completely unchanged, sans a bulbous ring of flesh around her neck that sort of resembles a minister's collar.
	<<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.
		<<elseif $assistantAppearance == "angel">>
			Her avatar spreads its wings and arms and emits a flash of light.
		<<elseif $assistantAppearance == "cherub">>
			Her avatar claps its hands together, emitting a burst of light.
		<<elseif $assistantAppearance == "incubus">>
			Her avatar flick the tip of its penis and blows her load towards the both of you.
		<<elseif $assistantAppearance == "succubus">>
			Her avatar starts to masturbate furiously and orgasms lewdly.
		<<elseif $assistantAppearance == "imp">>
			Her avatar claps its hands together, emitting a burst of darkness.
		<<elseif $assistantAppearance == "witch">>
			Her avatar pulls out its spellbook and attempts a spell to bind you two; she manages to conjure a large ring around her, pinning her arms to her sides.
		<<elseif $assistantAppearance == "ERROR_1606_APPEARANCE_FILE_CORRUPT">>
			Her avatar splits open to reveal a number of tentacles and wraps them around each other.
		<<else>>
			Her symbol flashes.
		<</if>>
		"Done," she says.
	<</if>>
	<<set $eventSlave.relationship = -3>>
	<<if $PC.surname>>

		<<link "Give her your surname">>
			<<replace "#surnaming">>
				<<set $eventSlave.slaveSurname = $PC.surname, $eventSlave.devotion += 5, $eventSlave.trust += 5>>
				You also command $assistantName to rename your new slave wife $eventSlave.slaveName $eventSlave.slaveSurname. The new Mrs. $eventSlave.slaveSurname hears this, of course, and breaks down again. Being brusquely redesignated as your slave wife was such a sterile experience that she wasn't sure it was real, and hearing that she's to take your surname @@.mediumaquamarine;reassures her@@ that it is. Not to mention, she might be a $desc, but she's still a girl, and hearing that she wouldn't get a decent wedding did disappoint her, but this makes up for it. You might not be all that expressive, but @@.hotpink;she's your wife,@@ and that's what matters to her.
				<<set $activeSlave = $eventSlave>>
			<</replace>>
		<</link>>

	<</if>>
	<<set $activeSlave = $eventSlave>>
	<</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.pregKnown == 1)>>
		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.bellyPreg >= 600000>>
		Her expansive, squirming pregnant belly makes her bridal wear particularly obscene.
	<<elseif ($eventSlave.bellyPreg >= 1500)>>
		Her _belly pregnant belly protrudes out the front of her bridal wear.
	<<elseif ($eventSlave.bellyImplant >= 1500)>>
		Her _belly <<print $eventSlave.bellyImplant>>cc belly implant protrudes her middle out the front of her bridal wear.
	<<elseif ($eventSlave.bellyFluid >= 10000)>>
		Her hugely bloated, <<print $eventSlave.inflationType>>-filled belly protrudes out the front of her bridal wear.
	<<elseif ($eventSlave.bellyFluid >= 5000)>>
		Her bloated, <<print $eventSlave.inflationType>>-stuffed belly protrudes out the front of her bridal wear.
	<<elseif ($eventSlave.bellyFluid >= 1500)>>
		Her distended, <<print $eventSlave.inflationType>>-belly protrudes out the front of her bridal wear.
	<</if>>
	<<if $eventSlave.dickAccessory == ("chastity") || $eventSlave.dickAccessory == ("combined chastity")>>
		Her slave dick is hidden by its chastity cage.
	<<elseif canAchieveErection($eventSlave)>>
		<<if ($eventSlave.dick > 4) && ($eventSlave.belly >= 5000)>>
		She's hugely erect, with her lacy g-string only serving to hold her dick agonizingly pressed against the bottom of her _belly <<if $eventSlave.bellyPreg >= 3000>>pregnant <</if>>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 > 10>>
		Her huge soft cock is allowed to dangle freely as no g-string could hope to contain it.
		<<elseif $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.
		<<elseif $assistantAppearance == "angel">>
			"To consummate the marriage," $assistantName concludes, "$eventSlave.slaveName, you must now join <<= PlayerName()>> in their bedroom and consummate this marriage." The slave looks confused. "After the wedding ends, would be the time." $assistantName says, covering her face in embarrassment at the thought.
		<<elseif $assistantAppearance == "cherub">>
			"To consummate the marriage," $assistantName concludes, "$eventSlave.slaveName, you should <<if $PC.dick == 1>>suck the <<if $PC.title == 1>>groom<<else>>the bride<</if>>'s cock<<if $PC.vagina == 1>>and lick their pussy,<</if>><<else>>lick the <<if $PC.title == 1>>groom<<else>>the bride<</if>>'s pussy<</if>>, in the privacy of <<= PlayerName()>>'s bedroom, of course." $assistantName hides her face in her hands at the thought.
		<<elseif $assistantAppearance == "incubus">>
			"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. Enjoying the sight, $assistantName's avatar begins to furiously stroke its shaft.
		<<elseif $assistantAppearance == "succubus">>
			"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 pulls out a large dildo and begins ramming it into her own pussy.
		<<elseif $assistantAppearance == "imp">>
			"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 hikes her robe and vigorously rubs her pussy.
		<<elseif $assistantAppearance == "witch">>
			"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. $assistantName's avatar begins to fidget at the sight, having summoned a vibrator beforehand and accidentally linked it to your pleasure.
		<<elseif $assistantAppearance == "ERROR_1606_APPEARANCE_FILE_CORRUPT">>
			"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. $assistantName's avatar begins to swell, drawing all its gained mass to its midsection. Its gravid middles splits vertically, allowing a new mass of flesh to fall to the floor, which quickly grows and reshapes itself into a spitting image of yourself. Meanwhile, the original twists into an image of $eventSlave.slaveName. $assistantName's two avatars begin copying you and $eventSlave.slaveName's actions perfectly.
		<<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>>
	<<if $PC.surname>>

		<<link "Give her your surname">>
			<<replace "#surnaming">>
				<<set $eventSlave.slaveSurname = $PC.surname, $eventSlave.devotion += 5, $eventSlave.trust += 5>>
				Before you get too distracted, you tell your lovely new wife that she's now to be known as $eventSlave.slaveName $eventSlave.slaveSurname. It would be an understatement to say she's delighted. She's a good $desc, but even she has to retain a kernel of doubt about whether a marriage between an owner and a piece of property is really worth much. This @@.mediumaquamarine;reassures her@@ that it is. Her special day probably wasn't exactly like she might once have imagined it, but she obviously thinks it's been @@.hotpink;very nice,@@ all things considered.
				<<if canTalk($eventSlave)>>"$eventSlave.slaveName $eventSlave.slaveSurname," she murmurs to herself occasionally, smiling.<</if>>
				<<set $activeSlave = $eventSlave>>
			<</replace>>
		<</link>>

	<</if>>
	<<set $activeSlave = $eventSlave>>
	<</replace>>
<</link>>
<<if $cash > 10000>>

Invite prominent citizens to a wedding (This will cost <<print cashFormat(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 || $propOutcome == 0)>>

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

<<if $seeImages == 1>>
<</if>>

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

<<else>>

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

	<<SlaveArt $eventSlave 2 0>>

	<<SlaveArt $subSlave 2 0>>

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

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 @@.lightgreen;they do their best and make it work.@@ You ensure that they do, and your determined efforts to do so @@.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 = 1>>
<<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.
<<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.
<<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.
<<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.
<<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.
<<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.
<<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.
<<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.
<<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.
<<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.
<<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.
<<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.
<<elseif ($eventSlave.fetish == "pregnancy") && ($subSlave.fetish == "pregnancy") && $subSlave.bellyPreg >= 300000 && $eventSlave.bellyPreg >= 300000>>
	$eventSlave.slaveName and $subSlave.slaveName are both enormously laden with children, much to the other's delight. They can't wait to explore each other's baby filled middle.
<<elseif ($eventSlave.fetish == "pregnancy") && ($subSlave.fetish == "pregnancy") && $subSlave.preg > 20 && $eventSlave.preg > 20>>
	$eventSlave.slaveName and $subSlave.slaveName are both heavily pregnant, much to the other's delight.
<<elseif ($subSlave.fetish == "pregnancy") && $eventSlave.bellyPreg >= 300000>>
	$subSlave.slaveName fetishizes pregnant bellies so much that she is awestruck by $eventSlave.slaveName's enormous, baby filled middle.
<<elseif ($eventSlave.fetish == "pregnancy") && $subSlave.bellyPreg >= 300000>>
	$eventSlave.slaveName fetishizes pregnant bellies so much that she is awestruck by $subSlave.slaveName's enormous, baby filled middle.
<<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.
<<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.
<<elseif ($eventSlave.fetish == "pregnancy") && ($subSlave.fetish == "pregnancy") && $subSlave.bellyPreg >= 100 && $eventSlave.bellyPreg >= 100>>
	$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.
<<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.
<<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.
<<else>>
	<<set _matched = 0>>
<</if>>
<<if _matched == 1>>
	Their sexual compatibility is excellent, and they @@.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 @@.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 && $eventSlave.behavioralQuirk != "none">>
	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 @@.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>>

<<set $slaves[$slaveIndices[$subSlave.ID]] = $subSlave>>

<<set $activeSlave = $eventSlave>>

<</if>>

<<set $activeSlave = $eventSlave>> /* this should be harmless, keyword should */


code:
:: Milkmaid Select [nobr]

<<set $nextButton = "Back", $nextLink = "Dairy", $showEncyclopedia = 1, $encyclopedia = "Milkmaid">>
<<showallAssignmentFilter>>
<<if ($Milkmaid != 0)>>
	''__@@.pink;<<= SlaveFullName($Milkmaid)>>@@__'' is serving as your Milkmaid.

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

''Appoint a Milkmaid from your obedient slaves:''

[[None|Milkmaid Workaround][$i = -1]]

<<assignmentFilter>>

	<<showallAssignmentFilter>>
	<<include "Slave Summary">>
	<<resetAssignmentFilter>>


code:
:: Milkmaid Workaround [silently]

<<if $Milkmaid != 0>>
	<<= removeJob($Milkmaid, "be the Milkmaid")>>
<</if>>
<<if $i > -1>>
	<<= assignJob($slaves[$i], "be the Milkmaid")>>
	<<set $slaves[$i].livingRules = "luxurious">>
	<<set $Milkmaid = $slaves[$i]>>
<</if>>

<<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 ($arcologyUpgrade.drones == 1) && (random(1,100) > 50)>>
	The security drones successfully detain him and oblige him to pay significant @@.yellowgreen;compensation,@@ since abusing slaves is discouraged here.
	<<set $cash += 50>>
<<elseif ($arcologyUpgrade.grid == 1) && (random(1,100) > 50)>>
	The computer systems successfully detain him and require him to pay significant @@.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 @@.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 @@.yellowgreen;compensation,@@ since abusing slaves is discouraged here.
	<<set $cash += 50>>
<</if>>

<<else>>

<<if ($arcologyUpgrade.drones == 1) && (random(1,100) > 50)>>
	The security drones successfully detain him and oblige him to pay minor @@.yellowgreen;compensation.@@
	<<set $cash += 10>>
<<elseif ($arcologyUpgrade.grid == 1) && (random(1,100) > 50)>>
	The computer systems successfully detain him and require him to pay minor @@.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 @@.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 @@.yellowgreen;compensation.@@
	<<set $cash += 10>>
<</if>>

<</if>>


code:
:: Mother Daughter Workaround

Your new pair of slaves look frightened and uncertain, but seem encouraged by each other's presence.

<<run newSlave($activeSlave)>>

<<set _secondSlave = clone($activeSlave)>>
<<unset $activeSlave>>
<<if _secondSlave.slaveSurname>><<set _familyName = _secondSlave.slaveSurname>><</if>>
<<set _familyBirthSurname = _secondSlave.birthSurname>>
<<run nationalityToName(_secondSlave)>>
<<if _familyName>><<set _secondSlave.slaveSurname = _familyName>><</if>>
<<set _secondSlave.birthSurname = _familyBirthSurname>>
<<run nationalityToAccent(_secondSlave)>>

<<set _secondSlave.ID = _secondSlave.ID + 1000>>
<<set _secondSlave.devotion -= random(5,15)>>
<<set _secondSlave.oldDevotion = _secondSlave.devotion>>
<<set _secondSlave.trust -= random(5,15)>>
<<set _secondSlave.oldTrust = _secondSlave.trust>>
<<set _secondSlave.health += 30>>
<<set _secondSlave.boobs -= 100>>
<<set _secondSlave.butt -= 1>>
<<set _secondSlave.vagina = either(0, 0, 0, 1)>>

<<set $activeSlaveOneTimeMaxAge = Math.min(22, Math.max($minimumSlaveAge, _secondSlave.actualAge - 11))>>
<<set $activeSlaveOneTimeMinAge = Math.min(Math.max(8, $minimumSlaveAge), $activeSlaveOneTimeMaxAge)>>
<<if $pedo_mode == 1>><<set $activeSlaveOneTimeMinAge = $minimumSlaveAge>><</if>>
<<set _secondSlave.actualAge = random($activeSlaveOneTimeMinAge, $activeSlaveOneTimeMaxAge)>>
<<set _secondSlave.visualAge = _secondSlave.actualAge>>
<<set _secondSlave.physicalAge = _secondSlave.actualAge>>
<<set _secondSlave.ovaryAge = _secondSlave.actualAge>>

<<set WombFlush(_secondSlave)>>
<<if (($precociousPuberty == 1 && _secondSlave.actualAge < $fertilityAge) || _secondSlave.actualAge >= $fertilityAge) && $arcologies[0].FSRepopulationFocusSMR == 1>>
	<<set _secondSlave.preg = random(1,24)>>
	<<set _secondSlave.pregWeek = _secondSlave.preg>>
	<<set _secondSlave.pregKnown = 1>>
	<<set _secondSlave.pregType = setPregType(_secondSlave)>>
<</if>>
<<run SetBellySize(_secondSlave)>>

<<set _secondSlave.attrXX += random(-20,20)>>
<<set _secondSlave.attrXX = Math.clamp(_secondSlave.attrXX, 0, 100)>>
<<set _secondSlave.attrXY += random(-20,20)>>
<<set _secondSlave.attrXY = Math.clamp(_secondSlave.attrXY, 0, 100)>>
<<set _secondSlave.energy += random(-20,20)>>
<<set _secondSlave.fetishStrength = random(0,90)>>
<<set _secondSlave.fetish = either("none", "none", "none", "none", "none", "none", "submissive", "cumslut", "humiliation", "buttslut", "pregnancy", "sadist", "dom", "masochist")>>
<<set _secondSlave.behavioralFlaw = either("none", "none", "none", "arrogant", "bitchy", "odd", "hates men", "hates women", "hates women", "anorexic", "masochist", "gluttonous", "devout", "liberated")>>
<<if (_secondSlave.behavioralFlaw == "devout")>>
	<<set _secondSlave.sexualFlaw = either("none", "repressed",  "shamefast", "apathetic")>>
<<else>>
	<<set _secondSlave.sexualFlaw = either("none", "none", "none", "none", "hates oral", "hates anal", "hates penetration", "repressed", "idealistic", "shamefast", "apathetic", "crude", "judgemental")>>
<</if>>

<<if $familyTesting == 1>>
	<<set _secondSlave.mother = _secondSlave.ID - 1000>>
<<else>>
	<<set _secondSlave.relation = "daughter">>
	<<set _secondSlave.relationTarget = _secondSlave.ID - 1000>>
<</if>>

<<if _secondSlave.boobs > 200>>
	<<set _secondSlave.boobs += random(-1, 1)*100>>
<</if>>

<<if _secondSlave.butt > 1>>
	<<set _secondSlave.butt += random(-1, 1)>>
<</if>>

<<run newSlave(_secondSlave)>>