:: SA live with HG [nobr]

<<for $j to 0; $j < $slaves.length; $j++>>
	<<if $HeadGirl.ID == $slaves[$j].ID>>
	<<set $HeadGirl to $slaves[$j]>>
	<<break>>
	<</if>>
<</for>>

''$slaves[$i].slaveName''

<<if $slaves[$i].devotion > 20>>
	<<if $HGSlaveSuccess == 1>>
	looks after your Head Girl $HeadGirl.slaveName domestically and sexually, freeing her to devote more of her time to looking after your other slaves.
	<<else>>
	does her best to look after your Head Girl $HeadGirl.slaveName domestically and sexually, but doesn't free up much of her time this week.
	<</if>>
<<elseif $slaves[$i].trust < -20>>
	<<if $HGSlaveSuccess == 1>>
	obeys Head Girl $HeadGirl.slaveName domestically and sexually, freeing her to devote more of her time to looking after your other slaves.
	<<else>>
	tries to look after your Head Girl $HeadGirl.slaveName domestically and sexually, but doesn't free up much of her time this week.
	<</if>>
<<else>>
	<<if $HGSlaveSuccess == 1>>
	resists Head Girl $HeadGirl.slaveName's domestic and sexual use, but still frees her to devote more of her time to looking after your other slaves.
	<<else>>
	resists Head Girl $HeadGirl.slaveName's domestic and sexual use, and doesn't free up much of her time this week.
	<</if>>
<</if>>

<<if ($HeadGirl.fetish is "sadist") && ($HeadGirl.fetishStrength > 60) && ($HeadGirl.fetishKnown == 1)>>
	Since $HeadGirl.slaveName is a sadist, poor $slaves[$i].slaveName lives a life of fear and pain.
	<<if ($slaves[$i].energy > 95)>>
	Though it's hard, she manages to find @@color:hotpink;sexual satisfaction@@ being a pain slave.
	<<set $slaves[$i].devotion += 4>>
	<<elseif ($slaves[$i].fetish is "masochist")>>
	<<if ($slaves[$i].fetishStrength > 95)>>
		She finds deep @@color:hotpink;sexual satisfaction@@ being a pain slave.
		<<set $slaves[$i].devotion += 4>>
	<<else>>
		This forces her to find solace in @@color:lightcoral;deeper masochism.@@
		<<set $slaves[$i].fetishStrength += 4>>
	<</if>>
	<<elseif ($slaves[$i].devotion < -20)>>
	This rapidly fills her with @@color:mediumorchid;hatred@@ and @@color:mediumorchid;fear.@@
	<<set $slaves[$i].devotion -= 10>>
	<<set $slaves[$i].trust -= 10>>
	<<elseif ($slaves[$i].devotion > 20)>>
	This fills her with @@color:mediumorchid;bitterness@@ and @@color:mediumorchid;fear.@@
	<<set $slaves[$i].devotion -= 5>>
	<<set $slaves[$i].trust -= 5>>
	<</if>>
<<elseif ($slaves[$i].devotion < -20)>>
	<<if ($slaves[$i].trust >= -20)>>
	Since she is not yet obedient, $HeadGirl.slaveName @@color:gold;punishes@@ her constantly, training her to be a decent assistant or suffer pain.
	<<set $slaves[$i].trust -= 5>>
	<</if>>
<<elseif ($slaves[$i].devotion <= 20)>>
	Since she is not yet well trained, $HeadGirl.slaveName instructs her, @@color:hotpink;training@@ her to be a proper assistant.
	<<set $slaves[$i].devotion += 4>>
<<elseif ($slaves[$i].devotion <= 50)>>
	Since she is not yet a devoted slave, $HeadGirl.slaveName works with her, @@color:hotpink;training@@ her to be a good assistant.
	<<set $slaves[$i].devotion += 2>>
<<else>>
	Since she is a devoted assistant, $HeadGirl.slaveName @@color:hotpink;praises@@ and encourages her.
	<<set $slaves[$i].devotion += 1>>
<</if>>

<<if ($HeadGirl.rivalry != 0) && ($HeadGirl.relationshipTarget is $slaves[$i].ID)>>
	$HeadGirl.slaveName @@color:lightgreen;resolves the rivalry@@ between her and $slaves[$i].slaveName, mostly by the expedient of punishing $slaves[$i].slaveName savagely whenever she gives any trouble.
	<<set $HeadGirl.rivalry to 0>>
	<<set $HeadGirl.rivalryTarget to 0>>
	<<set $slaves[$i].rivalry to 0>>
	<<set $slaves[$i].rivalryTarget to 0>>
<<elseif ($HeadGirl.relationship == 0)>>
	<<if $familyTesting == 1>>
	<<if $slaves[$i].mother == $HeadGirl.ID || $slaves[$i].father == $HeadGirl.ID || $slaves[$i].ID == $HeadGirl.mother || $slaves[$i].ID == $HeadGirl.father || areSisters($HeadGirl, $slaves[$i]) > 0>>
	$HeadGirl.slaveName
	<<if $HeadGirl.devotion > 95>>
		is so inured to the perversities of slavery that she @@color:hotpink;enjoys@@ the prospect of sexual service from her
		<<set $HeadGirl.devotion += 1>>
	<<elseif $HeadGirl.devotion > 60>>
		is so devoted to you that she accepts the prospect of sexual service from her
	<<else>>
		is somewhat @@color:mediumorchid;disturbed@@ by the prospect of sexual service from her
		<<set $HeadGirl.devotion -= 2>>
	<</if>>
	<<if $slaves[$i].mother == $HeadGirl.ID || $slaves[$i].father == $HeadGirl.ID>>
		daughter.
	<<elseif $HeadGirl.mother == $slaves[$i].ID>>
		mother.
	<<elseif $HeadGirl.father == $slaves[$i].ID>>
		father.
	<<elseif areSisters($HeadGirl, $slaves[$i]) == 1>>
		twin.
	<<elseif areSisters($HeadGirl, $slaves[$i]) == 2>>
		sister.
	<<elseif areSisters($HeadGirl, $slaves[$i]) == 3>>
		half-sister.
	<</if>>
	$slaves[$i].slaveName
	<<if $slaves[$i].devotion > 95>>
		is so inured to the perversities of slavery that she @@color:hotpink;enjoys@@ the prospect of sexually servicing her
		<<set $slaves[$i].devotion += 1>>
	<<elseif $slaves[$i].devotion > 60>>
		is so devoted to you that she accepts the prospect of sexually servicing her
	<<elseif $slaves[$i].devotion > 40>>
		is somewhat @@color:mediumorchid;disturbed@@ by the prospect of sexually servicing her
		<<set $slaves[$i].devotion -= 2>>
	<<elseif $slaves[$i].devotion > 20>>
		is @@color:mediumorchid;disturbed@@ by the prospect of sexually servicing her
		<<set $slaves[$i].devotion -= 4>>
	<<elseif $slaves[$i].devotion >= -20>>
		is @@color:mediumorchid;strongly disturbed@@ by the prospect of sexually servicing her
		<<set $slaves[$i].devotion -= 5>>
	<<else>>
		is @@color:mediumorchid;revolted@@ by the prospect of sexually servicing her
		<<set $slaves[$i].devotion -= 10>>
	<</if>>
	<<if $HeadGirl.mother == $slaves[$i].ID || $HeadGirl.father == $slaves[$i].ID>>
		daughter.
	<<elseif $slaves[$i].mother == $HeadGirl.ID>>
		mother.
	<<elseif $slaves[$i].father == $HeadGirl.ID>>
		father.
	<<elseif areSisters($HeadGirl, $slaves[$i]) == 1>>
		twin.
	<<elseif areSisters($HeadGirl, $slaves[$i]) == 2>>
		sister.
	<<elseif areSisters($HeadGirl, $slaves[$i]) == 3>>
		half-sister.
	<</if>>
	<</if>>
	<<else>>
	<<if $slaves[$i].relation != 0>>
	<<if $slaves[$i].relationTarget is $HeadGirl.ID>>
	$HeadGirl.slaveName
	<<if $HeadGirl.devotion > 95>>
		is so inured to the perversities of slavery that she @@color:hotpink;enjoys@@ the prospect of sexual service from her
		<<set $HeadGirl.devotion += 1>>
	<<elseif $HeadGirl.devotion > 60>>
		is so devoted to you that she accepts the prospect of sexual service from her
	<<else>>
		is somewhat @@color:mediumorchid;disturbed@@ by the prospect of sexual service from her
		<<set $HeadGirl.devotion -= 2>>
	<</if>>
	<<if $HeadGirl.relation is "twin">>
		twin.
	<<elseif $HeadGirl.relation is "sister">>
		sister.
	<<elseif $HeadGirl.relation is "mother">>
		daughter.
	<<elseif $HeadGirl.relation is "daughter">>
		mother.
	<</if>>
	$slaves[$i].slaveName
	<<if $slaves[$i].devotion > 95>>
		is so inured to the perversities of slavery that she @@color:hotpink;enjoys@@ the prospect of sexually servicing her
		<<set $slaves[$i].devotion += 1>>
	<<elseif $slaves[$i].devotion > 60>>
		is so devoted to you that she accepts the prospect of sexually servicing her
	<<elseif $slaves[$i].devotion > 40>>
		is somewhat @@color:mediumorchid;disturbed@@ by the prospect of sexually servicing her
		<<set $slaves[$i].devotion -= 2>>
	<<elseif $slaves[$i].devotion > 20>>
		is @@color:mediumorchid;disturbed@@ by the prospect of sexually servicing her
		<<set $slaves[$i].devotion -= 4>>
	<<elseif $slaves[$i].devotion >= -20>>
		is @@color:mediumorchid;strongly disturbed@@ by the prospect of sexually servicing her
		<<set $slaves[$i].devotion -= 5>>
	<<else>>
		is @@color:mediumorchid;revolted@@ by the prospect of sexually servicing her
		<<set $slaves[$i].devotion -= 10>>
	<</if>>
	<<if $slaves[$i].relation is "twin">>
		twin.
	<<elseif $slaves[$i].relation is "sister">>
		sister.
	<<elseif $slaves[$i].relation is "mother">>
		daughter.
	<<elseif $slaves[$i].relation is "daughter">>
		mother.
	<</if>>
	<</if>>
	<</if>>
	<</if>>
	<<if ($slaves[$i].relationship == 0) && ($slaves[$i].devotion > 20)>>
	$slaves[$i].slaveName sees $HeadGirl.slaveName constantly, and does her best to @@color:lightgreen;become her friend.@@
	<<set $HeadGirl.relationship to 1>>
	<<set $HeadGirl.relationshipTarget to $slaves[$i].ID>>
	<<set $slaves[$i].relationship to 1>>
	<<set $slaves[$i].relationshipTarget to $HeadGirl.ID>>
	<<elseif ($slaves[$i].relationship != 5) && ($slaves[$i].relationshipTarget != $HeadGirl.ID)>>
	<<for $j to 0; $j < $slaves.length; $j++>>
		<<if $slaves[$i].relationshipTarget == $slaves[$j].ID>>
		$slaves[$j].slaveName cannot compete with $HeadGirl.slaveName, and her relationship with the Head Girl's bitch fades.
		<<set $slaves[$i].relationship to 0>>
		<<set $slaves[$i].relationshipTarget to 0>>
		<<set $slaves[$j].relationship to 0>>
		<<set $slaves[$j].relationshipTarget to 0>>
		<<break>>
		<</if>>
	<</for>>
	<</if>>
<<else>>
	<<if ($HeadGirl.relationshipTarget is $slaves[$i].ID)>>
	<<set $slaves[$i].trust += 1>>
	<<set $HeadGirl.trust += 1>>
	<<if $slaves[$i].relationship <= 2>>
		Since $HeadGirl.slaveName and $slaves[$i].slaveName are already friends, they're @@color:mediumaquamarine;thankful@@ to you for allowing it. After a few nights of offering each other sexual comfort, they consider themselves @@color:lightgreen;friends with benefits.@@
		<<set $HeadGirl.relationship to 3>>
		<<set $HeadGirl.relationshipTarget to $slaves[$i].ID>>
		<<set $slaves[$i].relationship to 3>>
		<<set $slaves[$i].relationshipTarget to $HeadGirl.ID>>
	<<elseif $slaves[$i].relationship <= 3>>
		Since $HeadGirl.slaveName and $slaves[$i].slaveName are already lovers, they both @@color:hotpink;enjoy@@ living together and are @@color:mediumaquamarine;thankful@@ to you for allowing it. After living together for a few days, they draw closer emotionally, too, and consider themselves @@color:lightgreen;lovers.@@
		<<set $HeadGirl.relationship to 4>>
		<<set $HeadGirl.relationshipTarget to $slaves[$i].ID>>
		<<set $slaves[$i].relationship to 4>>
		<<set $slaves[$i].relationshipTarget to $HeadGirl.ID>>
	<<elseif $slaves[$i].relationship <= 4>>
		<<if ($HeadGirl.fetishKnown == 1) && ($HeadGirl.fetishStrength <= 60) && ($HeadGirl.fetish is "sadist") && ($slaves[$i].fetish != "masochist")>>
		Since their relationship is very abusive, only $HeadGirl.slaveName @@color:hotpink;enjoys@@ living together with $slaves[$i].slaveName.
		<<set $slaves[$i].devotion -= 5>>
		<<set $slaves[$i].trust -= 5>>
		<<else>>
		Since $HeadGirl.slaveName and $slaves[$i].slaveName are  lovers, they @@color:hotpink;enjoy@@ living together.
		<</if>>
	<<else>>
		Since $HeadGirl.slaveName and $slaves[$i].slaveName are  slave wives, they @@color:hotpink;enjoy@@ living together.
	<</if>>
	<</if>>
<</if>>

<<set $skillIncrease = 10>>
<<if ($slaves[$i].oralSkill <= 30)>>
	$HeadGirl.slaveName wants to come home to a talented tongue, so she trains $slaves[$i].slaveName's oral skills.
	<<OralSkillIncrease $slaves[$i]>>
<<elseif ($slaves[$i].vagina > 0) && ($slaves[$i].vaginalSkill <= 30)>>
	$HeadGirl.slaveName wants her personal sex slave to be as skilled with her pussy as possible, so she trains $slaves[$i].slaveName's vaginal skills.
	<<VaginalSkillIncrease $slaves[$i]>>
<<elseif ($slaves[$i].anus > 0) && ($slaves[$i].analSkill <= 30)>>
	$HeadGirl.slaveName wants her personal sex slave to be a skillful backdoor whore, so she trains $slaves[$i].slaveName's anal skills.
	<<AnalSkillIncrease $slaves[$i]>>
<<elseif ($slaves[$i].entertainSkill <= 10)>>
	$HeadGirl.slaveName wants to be kept amused in her occasional free time, so she trains $slaves[$i].slaveName's entertainment skills.
	<<EntertainSkillIncrease $slaves[$i]>>
<<elseif ($slaves[$i].sexualFlaw != "none")>>
	$HeadGirl.slaveName is annoyed by $slaves[$i].slaveName's sexual flaws, so she @@color:green;trains@@ her out of them.
	<<set $slaves[$i].sexualFlaw to "none">>
<<elseif ($slaves[$i].behavioralFlaw != "none")>>
	$HeadGirl.slaveName is irritated by $slaves[$i].slaveName's flaws, so she @@color:green;trains@@ her out of them.
	<<set $slaves[$i].behavioralFlaw to "none">>
<</if>>

<<if ($slaves[$i].vaginalAccessory != "chastity belt")>>
<<if ($slaves[$i].vagina == 0)>>
	$HeadGirl.slaveName @@color:hotpink;loves@@ @@color:lime;taking@@ $slaves[$i].slaveName's virginity, and spends much of the week ogling her conquest complacently.
	<<set $slaves[$i].vagina to 1>>
	<<set $HeadGirl.devotion += 4>>
<<elseif ($slaves[$i].vagina == 1)>>
	<<if canAchieveErection($HeadGirl)>>
	<<if ($HeadGirl.dick > 4) && ($HeadGirl.energy > 95)>>
		$HeadGirl.slaveName has such a ferocious sex drive and such a big dick that her constant pounding of $slaves[$i].slaveName @@color:lime;loosens@@ the poor girl's pussy.
		<<set $slaves[$i].vagina += 1>>
	<<elseif ($HeadGirl.dick > 5)>>
		Serving $HeadGirl.slaveName's monster cock @@color:lime;loosens@@ $slaves[$i].slaveName's pussy.
		<<set $slaves[$i].vagina += 1>>
	<</if>>
	<</if>>
<<elseif ($slaves[$i].vagina is 2)>>
	<<if canAchieveErection($HeadGirl)>>
	<<if ($HeadGirl.dick > 5) && ($HeadGirl.energy > 95)>>
		$HeadGirl.slaveName has such a ferocious sex drive and such a monster cock that her constant pounding of $slaves[$i].slaveName @@color:lime;loosens@@ the poor girl's pussy.
		<<set $slaves[$i].vagina += 1>>
	<</if>>
	<</if>>
<</if>>
<</if>>
<<if ($slaves[$i].anus == 0)>>
	$HeadGirl.slaveName @@color:hotpink;relishes@@ @@color:lime;taking@@ $slaves[$i].slaveName's anal virginity, and spends much of the week groping her conquest's rear end possessively.
	<<set $slaves[$i].anus to 1>>
	<<set $HeadGirl.devotion += 4>>
<<elseif ($slaves[$i].anus == 1)>>
	<<if canAchieveErection($HeadGirl)>>
	<<if ($HeadGirl.dick > 4) && ($HeadGirl.energy > 95)>>
		$HeadGirl.slaveName uses $slaves[$i].slaveName's anus to vent her sexual addiction. Constant assrape from such a huge dick @@color:lime;loosens@@ her sphincter.
		<<set $slaves[$i].anus += 1>>
	<<elseif ($HeadGirl.dick > 5)>>
		Taking $HeadGirl.slaveName's monster cock up the butt @@color:lime;loosens@@ $slaves[$i].slaveName's anal sphincter.
		<<set $slaves[$i].anus += 1>>
	<</if>>
	<</if>>
<<elseif ($slaves[$i].anus is 2)>>
	<<if canAchieveErection($HeadGirl)>>
	<<if ($HeadGirl.dick > 5) && ($HeadGirl.energy > 95)>>
		$HeadGirl.slaveName uses $slaves[$i].slaveName's anus to vent her sexual addiction. Constant assrape from the Head Girl's monster cock @@color:lime;loosens@@ her sphincter.
		<<set $slaves[$i].anus += 1>>
	<</if>>
	<</if>>
<</if>>

<<if ($slaves[$i].vagina > 0) || (($slaves[$i].mpreg == 0) && ($slaves[$i].anus > 0))>>
<<if isFertile($slaves[$i])>>
<<if ($HeadGirl.fetishKnown == 1)>>
<<if ($HeadGirl.fetish is "pregnancy")>>
<<if ($HeadGirl.balls > 0)>>
<<if $arcologies[0].FSRestart is "unset">>
<<if ($HeadGirl.dickAccessory != "chastity")>>
  $HeadGirl.slaveName promptly @@color:lime;impregnates@@ $slaves[$i].slaveName, to your Head Girl's considerable @@color:hotpink;satisfaction.@@
  <<set $slaves[$i].preg to 1>>
  <<if ($slaves[$i].drugs is "super fertility drugs")>>
	<<if ($slaves[$i].hormones == 2)>>
		<<set $slaves[$i].pregType to random(10,20)>>
	<<else>>
		<<set $slaves[$i].pregType to either(3, 4, 4, 4, 5, 5, 5, 10, 10, 20)>>
	<</if>>
  <<elseif ($slaves[$i].drugs is "fertility drugs")>>
	<<if ($slaves[$i].hormones == 2)>>
	  <<set $slaves[$i].pregType to random(2,5)>>
	<<else>>
	  <<set $slaves[$i].pregType to either(1, 1, 2, 2, 3, 3, 4, 4, 5, 5)>>
	<</if>>
  <<else>>
	<<set $slaves[$i].pregType to either(1, 1, 1, 1, 1, 1, 1, 1, 1, 2)>>
  <</if>>
	<<set $slaves[$i].pregSource to $HeadGirl.ID>>
	<<set $HeadGirl.devotion += 4>>
<</if>>
<<else>>
	$HeadGirl.slaveName knows better than to even consider knocking up $slaves[$i].slaveName.
<</if>>
<</if>>
<</if>>
<</if>>
<</if>>
<</if>>

<<if ($slaves[$i].devotion > 50)>>
<<if ($slaves[$i].fetishStrength <= 95) || ($slaves[$i].fetishKnown == 0)>>
<<if ($HeadGirl.fetishKnown == 1)>>
<<if ($HeadGirl.fetishStrength > 60)>>
<<if ($slaves[$i].fetish != $HeadGirl.fetish)>>
	<<if ($HeadGirl.fetish is "submissive")>>
		$slaves[$i].slaveName slowly gets used to $HeadGirl.slaveName's need to be sexually dominated, and begins to @@color:pink;enjoy being a top@@ within the confines of the suite.
		<<set $slaves[$i].fetish to "dom">>
		<<set $slaves[$i].fetishKnown to 1>>
		<<set $slaves[$i].fetishStrength = 10>>
	<<elseif ($HeadGirl.fetish is "dom")>>
		<<if ($slaves[$i].fetish != "submissive") || ($slaves[$i].fetish == 0)>>
			$slaves[$i].slaveName slowly gets used to being tied up and fucked regularly, and accepts that it's how $HeadGirl.slaveName sexual attraction to her expresses itself. She begins to @@color:pink;enjoy being a sub,@@ especially for $HeadGirl.slaveName.
			<<set $slaves[$i].fetish to "submissive">>
			<<set $slaves[$i].fetishKnown to 1>>
			<<set $slaves[$i].fetishStrength = 10>>
		<</if>>
	<<elseif ($HeadGirl.fetish is "boobs")>>
		$HeadGirl.slaveName lavishes so much attention on $slaves[$i].slaveName's boobs that $slaves[$i].slaveName really starts to @@color:pink;fetishize tits@@ too.
		<<set $slaves[$i].fetish to "boobs">>
		<<set $slaves[$i].fetishKnown to 1>>
		<<set $slaves[$i].fetishStrength = 10>>
	<<elseif ($HeadGirl.fetish is "pregnancy")>>
		$slaves[$i].slaveName and $HeadGirl.slaveName spend so much time talking about pregnancy and fertility $slaves[$i].slaveName really starts to @@color:pink;fetishize pregnancy@@ too.
		<<set $slaves[$i].fetish to "pregnancy">>
		<<set $slaves[$i].fetishKnown to 1>>
		<<set $slaves[$i].fetishStrength = 10>>
	<<elseif ($HeadGirl.fetish is "cumslut")>>
		$slaves[$i].slaveName participates in enough of $HeadGirl.slaveName's cum games that she can't help but @@color:pink;enjoy oral sex@@ herself.
		<<set $slaves[$i].fetish to "cumslut">>
		<<set $slaves[$i].fetishKnown to 1>>
		<<set $slaves[$i].fetishStrength = 10>>
	<<elseif ($HeadGirl.fetish is "humiliation")>>
		$slaves[$i].slaveName has so much public sex with $HeadGirl.slaveName that she really starts to @@color:pink;enjoy humiliation@@ herself.
		<<set $slaves[$i].fetish to "humiliation">>
		<<set $slaves[$i].fetishKnown to 1>>
		<<set $slaves[$i].fetishStrength = 10>>
	<<elseif ($HeadGirl.fetish is "buttslut")>>
		$slaves[$i].slaveName takes $HeadGirl.slaveName's <<if ($HeadGirl.dick > 0) && ($HeadGirl.balls > 0) && ($HeadGirl.dickAccessory != "chastity") && ($HeadGirl.hormones < 1)>>dick<<else>>strap-on and dildos<</if>> up her poor anus so often that she starts to @@color:pink;enjoy buttsex@@ herself.
		<<set $slaves[$i].fetish to "buttslut">>
		<<set $slaves[$i].fetishKnown to 1>>
		<<set $slaves[$i].fetishStrength = 10>>
	<<elseif ($HeadGirl.fetish is "masochist")>>
		<<if ($slaves[$i].fetish != "submissive") || ($slaves[$i].fetish == 0)>>
			$slaves[$i].slaveName is initially shocked to be asked to cause $HeadGirl.slaveName pain, but she slowly begins to understand the honestly sexual nature of the arrangement. She starts to @@color:pink;enjoy causing pain,@@ since $HeadGirl.slaveName is clearly enjoying it so much.
			<<set $slaves[$i].fetish to "sadist">>
			<<set $slaves[$i].fetishKnown to 1>>
			<<set $slaves[$i].fetishStrength = 10>>
		<</if>>
	<<else>>
		$slaves[$i].slaveName often takes $HeadGirl.slaveName's <<if ($HeadGirl.dick > 0) && ($HeadGirl.balls > 0) && ($HeadGirl.dickAccessory != ("chastity")) && ($HeadGirl.hormones < 1)>>dick<<else>>strap-on<</if>> in the missionary position, after some light foreplay and before bed; she honestly enjoys the respectful lovemaking, and begins to @@color:pink;enjoy vanilla sex@@ herself.
		<<set $slaves[$i].fetish to "none">>
		<<set $slaves[$i].fetishKnown to 1>>
		<<set $slaves[$i].fetishStrength = 10>>
	<</if>>
<</if>>
<</if>>
<</if>>
<</if>>
<<if ($HeadGirl.attrKnown == 1)>>
	<<if ($HeadGirl.attrXX > 85)>>
	<<if ($slaves[$i].attrXX > 65)>>
	<<if ($slaves[$i].attrXX <= 85)>>
	$slaves[$i].slaveName and $HeadGirl.slaveName spend so much time giggling over which of your other slaves they think is prettiest (typically followed by giggling sex) that $slaves[$i].slaveName really starts to @@color:green;fetishize girls@@ too.
	<<set $slaves[$i].attrXX += 2>>
	<<set $slaves[$i].attrKnown to 1>>
	<</if>>
	<</if>>
	<</if>>
	<<if ($HeadGirl.attrXY > 85)>>
	<<if ($slaves[$i].attrXY > 65)>>
	<<if ($slaves[$i].attrXY <= 85)>>
	$slaves[$i].slaveName and $HeadGirl.slaveName have so much fun debating which male citizens and slave dickgirls are cutest (typically followed by $HeadGirl.slaveName banging her girltoy <<if ($HeadGirl.balls == 0) || ($HeadGirl.hormones > 0) || ($HeadGirl.dick == 0)>>with a strap-on<<else>>senseless<</if>>) that $slaves[$i].slaveName really starts to @@color:green;fetishize boys@@ too.
	<<set $slaves[$i].attrXY += 2>>
	<<set $slaves[$i].attrKnown to 1>>
	<</if>>
	<</if>>
	<</if>>
	<<if ($HeadGirl.energy > 95)>>
	<<if ($slaves[$i].energy <= 95)>>
	$slaves[$i].slaveName has so much fun sex with $HeadGirl.slaveName that @@color:green;her sex drive is slowly enhanced.@@
	<<set $slaves[$i].energy += 2>>
	<</if>>
	<</if>>
<</if>>
<</if>>

<<set _cervixPump = 0>>
<<if ($HeadGirl.fetishKnown == 1)>>
	<<if ($HeadGirl.energy > 95)>>
	$slaves[$i].slaveName spends a lot of time getting fucked in whichever hole $HeadGirl.slaveName decides to shove her <<if ($HeadGirl.dick > 0) and canAchieveErection($HeadGirl) && ($HeadGirl.dickAccessory != "chastity")>>dick<<else>>strap-on<</if>> into next.
	<<set $slaves[$i].oralCount += 5>>
	<<set $oralTotal += 5>>
	<<set $slaves[$i].analCount += 5>>
	<<set $analTotal += 5>>
	<<if ($slaves[$i].vagina > 0)>>
		<<set $slaves[$i].vaginalCount += 5>>
		<<set _cervixPump += 5>>
		<<set $vaginalTotal += 5>>
	<<else>>
		<<set $slaves[$i].analCount += 5>>
		<<set $analTotal += 5>>
	<</if>>
	<<set $HeadGirl.penetrativeCount += 15>>
	<<set $penetrativeTotal += 15>>
	<<elseif ($HeadGirl.fetish is "submissive")>>
	$HeadGirl.slaveName walks a fine line with $slaves[$i].slaveName. They work out a sexual life in which $HeadGirl.slaveName is in charge, but $slaves[$i].slaveName takes the sexual lead: $slaves[$i].slaveName serves her superior by taking her firmly.
	<<set $slaves[$i].oralCount += 4>>
	<<set $oralTotal += 4>>
	<<set $slaves[$i].analCount += 3>>
	<<set $analTotal += 3>>
	<<if ($slaves[$i].vagina > 0)>>
		<<set $slaves[$i].vaginalCount += 3>>
		<<set $vaginalTotal += 3>>
		<<set _cervixPump += 3>>
	<<else>>
		<<set $slaves[$i].analCount += 3>>
		<<set $analTotal += 3>>
	<</if>>
	<<set $HeadGirl.penetrativeCount += 10>>
	<<set $penetrativeTotal += 10>>
	<<elseif ($HeadGirl.fetish is "dom")>>
	$slaves[$i].slaveName serves $HeadGirl.slaveName as her sexual and moral inferior, taking the Head Girl's <<if ($HeadGirl.dick > 0) && canAchieveErection($HeadGirl) && ($HeadGirl.dickAccessory != "chastity")>>dick<<else>>strap-on<</if>> in all her holes. Though it isn't necessary with such an obedient partner, $slaves[$i].slaveName is often tied up for use.
	<<set $slaves[$i].oralCount += 4>>
	<<set $oralTotal += 4>>
	<<set $slaves[$i].analCount += 3>>
	<<set $analTotal += 3>>
	<<if ($slaves[$i].vagina > 0)>>
		<<set $slaves[$i].vaginalCount += 3>>
		<<set $vaginalTotal += 3>>
		<<set _cervixPump += 3>>
	<<else>>
		<<set $slaves[$i].analCount += 3>>
		<<set $analTotal += 3>>
	<</if>>
	<<set $HeadGirl.penetrativeCount += 10>>
	<<set $penetrativeTotal += 10>>
	<<elseif ($HeadGirl.fetish is "humiliation")>>
	$HeadGirl.slaveName is such an exhibitionist that $slaves[$i].slaveName finds herself taking $HeadGirl.slaveName's <<if ($HeadGirl.dick > 0) && canAchieveErection($HeadGirl) && ($HeadGirl.dickAccessory != "chastity")>>dick<<else>>strap-on<</if>> in public quite often.
	<<set $slaves[$i].oralCount += 4>>
	<<set $oralTotal += 4>>
	<<set $slaves[$i].analCount += 3>>
	<<set $analTotal += 3>>
	<<if ($slaves[$i].vagina > 0)>>
		<<set $slaves[$i].vaginalCount += 3>>
		<<set $vaginalTotal += 3>>
		<<set _cervixPump += 3>>
	<<else>>
		<<set $slaves[$i].analCount += 3>>
		<<set $analTotal += 3>>
	<</if>>
	<<set $HeadGirl.penetrativeCount += 10>>
	<<set $penetrativeTotal += 10>>
	<<elseif ($HeadGirl.fetish is "boobs")>>
	$HeadGirl.slaveName is such a boob fetishist that $slaves[$i].slaveName sometimes wonders whether $HeadGirl.slaveName thinks there are four clits in the suite: the four nipples between the two of them.
	<<set $slaves[$i].oralCount += 4>>
	<<set $oralTotal += 4>>
	<<set $slaves[$i].mammaryCount += 6>>
	<<set $mammaryTotal += 6>>
	<<set $HeadGirl.mammaryCount += 10>>
	<<set $mammaryTotal += 10>>
	<<elseif ($HeadGirl.fetish is "buttslut")>>
	$HeadGirl.slaveName takes a dominant sexual role with $slaves[$i].slaveName; she indulges her anal addiction by constantly buttfucking $slaves[$i].slaveName while wearing a vibrating plug herself.
	<<set $slaves[$i].analCount += 10>>
	<<set $analTotal += 10>>
	<<set $HeadGirl.penetrativeCount += 10>>
	<<set $penetrativeTotal += 10>>
	<<elseif ($HeadGirl.fetish is "cumslut")>>
	$HeadGirl.slaveName takes a dominant sexual role with $slaves[$i].slaveName; she indulges her oral fixation with constant oral sex. She certainly applies her mouth to $slaves[$i].slaveName when she gets the chance, but $slaves[$i].slaveName does most of the sucking.
	<<set $slaves[$i].oralCount += 20>>
	<<set $oralTotal += 20>>
	<<set $HeadGirl.oralCount += 10>>
	<<set $oralTotal += 10>>
	<<set $HeadGirl.penetrativeCount += 10>>
	<<set $penetrativeTotal += 10>>
	<<elseif ($HeadGirl.fetish is "masochist")>>
	$HeadGirl.slaveName carefully structures her sexual games with $slaves[$i].slaveName to gratify her deep need to be physically hurt during sex without damaging her leadership. Usually, $slaves[$i].slaveName tortures $HeadGirl.slaveName until she's quite sated, and then takes a rough buttfuck from the aroused $HeadGirl.slaveName's <<if ($HeadGirl.dick > 0) && canAchieveErection($HeadGirl) && ($HeadGirl.dickAccessory != "chastity")>>dick<<else>>strap-on<</if>> to restore their relative positions.
	<<set $slaves[$i].analCount += 10>>
	<<set $analTotal += 10>>
	<<set $HeadGirl.penetrativeCount += 10>>
	<<set $penetrativeTotal += 10>>
	<<elseif ($HeadGirl.attrXX > 65)>>
	$HeadGirl.slaveName expects $slaves[$i].slaveName to be girlish sexually, and $slaves[$i].slaveName spends a lot of time on her knees.
	<<set $slaves[$i].oralCount += 6>>
	<<set $oralTotal += 6>>
	<<set $slaves[$i].analCount += 2>>
	<<set $analTotal += 2>>
	<<if ($slaves[$i].vagina > 0)>>
		<<set $slaves[$i].vaginalCount += 2>>
		<<set $vaginalTotal += 2>>
		<<set _cervixPump += 2>>
	<<else>>
		<<set $slaves[$i].analCount += 2>>
		<<set $analTotal += 2>>
	<</if>>
	<<set $HeadGirl.penetrativeCount += 8>>
	<<set $penetrativeTotal += 8>>
	<<else>>
	$HeadGirl.slaveName takes a dominant sexual role with $slaves[$i].slaveName, mostly getting oral and fucking her in the missionary position.
	<<set $slaves[$i].oralCount += 4>>
	<<set $oralTotal += 4>>
	<<set $slaves[$i].analCount += 3>>
	<<set $analTotal += 3>>
	<<if ($slaves[$i].vagina > 0)>>
		<<set $slaves[$i].vaginalCount += 3>>
		<<set $vaginalTotal += 3>>
		<<set _cervixPump += 3>>
	<<else>>
		<<set $slaves[$i].analCount += 3>>
		<<set $analTotal += 3>>
	<</if>>
	<<set $HeadGirl.penetrativeCount += 10>>
	<<set $penetrativeTotal += 10>>
	<</if>>
<</if>>

<<if $slaves[$i].cervixImplant == 1 && _cervixPump > 0 >>
	She notices her @@color:orange;belly swell@@ after vaginal sex throughout the week.
	<<set $slaves[$i].bellyImplant += _cervixPump*20>>
<</if>>

<<if ($HeadGirl.fetishKnown == 1)>>
	<<if ($HeadGirl.energy > 95)>>
	$HeadGirl.slaveName keeps $slaves[$i].slaveName naked so she doesn't have to waste any time tearing her clothes off.
	<<set $slaves[$i].clothes to "no clothing">>
	<<elseif ($HeadGirl.fetish is "submissive")>>
	$HeadGirl.slaveName keeps $slaves[$i].slaveName dressed up in slutty power clothing, since she's attracted to competence.
	<<set $slaves[$i].clothes to "slutty business attire">>
	<<elseif ($HeadGirl.fetish is "masochist")>>
	$HeadGirl.slaveName keeps $slaves[$i].slaveName in battledress, since she likes the fantasy of being raped by a soldier girl.
	<<set $slaves[$i].clothes to "battledress">>
	<<elseif ($HeadGirl.fetish is "dom")>>
	$HeadGirl.slaveName keeps $slaves[$i].slaveName dressed up as a schoolgirl to infantilize her sub.
	<<set $slaves[$i].clothes to "a schoolgirl outfit">>
	<<elseif ($HeadGirl.fetish is "boobs")>>
	$HeadGirl.slaveName keeps $slaves[$i].slaveName wearing a string bikini, since she likes seeing those tits.
	<<set $slaves[$i].clothes to "a string bikini">>
	<<elseif ($HeadGirl.fetish is "cumslut")>>
	$HeadGirl.slaveName keeps $slaves[$i].slaveName in restrictive latex, because she likes how it draws attention to her mouth.
	<<set $slaves[$i].clothes to "restrictive latex">>
	<<elseif ($HeadGirl.fetish is "humiliation")>>
	$HeadGirl.slaveName keeps $slaves[$i].slaveName in humiliating bondage gear, because she likes to see others blush, too.
	<<set $slaves[$i].clothes to "uncomfortable straps">>
	<<elseif ($HeadGirl.fetish is "sadist")>>
	$HeadGirl.slaveName keeps $slaves[$i].slaveName in humiliating bondage gear, because it can easily be tightened to cause considerable anguish.
	<<set $slaves[$i].clothes to "uncomfortable straps">>
	<<elseif ($HeadGirl.fetish is "buttslut")>>
	$HeadGirl.slaveName keeps $slaves[$i].slaveName wearing nothing but slutty bangles, since she likes dressing her up but wants that butt bare.
	<<set $slaves[$i].clothes to "slutty jewelry">>
	<<elseif ($HeadGirl.fetish is "pregnancy") && ($slaves[$i].preg <= 10) && ($slaves[$i].inflation == 0) && ($clothesBoughtBelly == 1 || $cheatMode == 1 || $arcologies[0].FSRepopulationFocus != "unset")>>
	$HeadGirl.slaveName keeps $slaves[$i].slaveName wearing an empathy belly, since she likes her girls with a bun in the oven.
	<<set $slaves[$i].bellyAccessory to "a large empathy belly">>
	<<elseif ($HeadGirl.attrXX > 85)>>
	$HeadGirl.slaveName keeps $slaves[$i].slaveName wearing nice lingerie, since girls and girliness turn her on.
	<<set $slaves[$i].clothes to "attractive lingerie">>
	<<elseif ($HeadGirl.attrXY > 85) && ($slaves[$i].dick > 0)>>
	$HeadGirl.slaveName keeps $slaves[$i].slaveName wearing slutty netting with a hole for her dick to stick through, since she likes it bare.
	<<set $slaves[$i].clothes to "clubslut netting">>
	<<else>>
	$HeadGirl.slaveName keeps $slaves[$i].slaveName dressed as a slutty maid, since she likes seeing her body as she looks after their suite.
	<<set $slaves[$i].clothes to "a slutty maid outfit">>
	<</if>>
<<else>>
	$HeadGirl.slaveName keeps $slaves[$i].slaveName dressed as a slutty maid, since she likes seeing her body as she looks after their suite.
	<<set $slaves[$i].clothes to "a slutty maid outfit">>
<</if>>
<<set $slaves[$i].devotion += 1>>

<<if $HeadGirl.fetishKnown == 1>>
	<<if $HeadGirl.energy > 95>>
	<<if !hasHColorRule($slaves[$i],$defaultRules)>>
		<<if ($slaves[$i].hColor != $HeadGirl.hColor)>>
		$HeadGirl.slaveName dyes $slaves[$i].slaveName's hair $HeadGirl.hColor, just like her own, since with nymphomania comes narcissism.
		<<set $slaves[$i].hColor to $HeadGirl.hColor>>
		<</if>>
	<</if>>
	<<if !hasHStyleRule($slaves[$i],$defaultRules)>>
		<<if ($slaves[$i].hStyle != $HeadGirl.hStyle)>>
		$HeadGirl.slaveName styles $slaves[$i].slaveName's hair just like her own, since with nymphomania comes narcissism.
		<<set $slaves[$i].hStyle to $HeadGirl.hStyle>>
		<<set $slaves[$i].hLength to $HeadGirl.hLength>>
		<</if>>
	<</if>>
	<<if !hasEyeColorRule($slaves[$i],$defaultRules)>>
		<<if ($slaves[$i].eyeColor != $HeadGirl.eyeColor)>>
		<<set $slaves[$i].eyeColor to $HeadGirl.eyeColor>>
		$HeadGirl.slaveName gives $slaves[$i].slaveName $slaves[$i].eyeColor contact lenses, to match her own eyes, since with nymphomania comes narcissism.
		<</if>>
	<</if>>
	<</if>>
<</if>>

<<if ($slaves[$i].weight > 30) && ($slaves[$i].diet != "restricted")>>
	$HeadGirl.slaveName puts $slaves[$i].slaveName on a diet.
	<<set $slaves[$i].diet to "restricted">>
<<elseif ($slaves[$i].weight < -10) && ($slaves[$i].diet != "fattening")>>
	$HeadGirl.slaveName puts $slaves[$i].slaveName on a fattening diet.
	<<set $slaves[$i].diet to "fattening">>
<<elseif ($slaves[$i].muscles <= 95) && ($arcologies[0].FSPhysicalIdealist > 0) && ($slaves[$i].amp != 1) && ($slaves[$i].diet != "muscle building")>>
	$HeadGirl.slaveName wants to support your societal goals, so she makes $slaves[$i].slaveName work out hard.
	<<set $slaves[$i].diet to "muscle building">>
<<elseif ($slaves[$i].muscles <= 95) && ($HeadGirl.fetish is "submissive") && ($HeadGirl.fetishKnown == 1) && ($slaves[$i].amp != 1) && ($slaves[$i].diet != "muscle building")>>
	$HeadGirl.slaveName wants a strong girl in bed with her, so she makes $slaves[$i].slaveName work out hard.
	<<set $slaves[$i].diet to "muscle building">>
<<elseif ($slaves[$i].muscles <= 95) && ($HeadGirl.fetish is "masochist") && ($HeadGirl.fetishKnown == 1) && ($slaves[$i].amp != 1) && ($slaves[$i].diet != "muscle building")>>
	$HeadGirl.slaveName wants a strong girl to spank her, so she makes $slaves[$i].slaveName work out hard.
	<<set $slaves[$i].diet to "muscle building">>
<<elseif ($slaves[$i].muscles <= 5) && ($slaves[$i].amp != 1) && ($slaves[$i].diet != "muscle building")>>
	$HeadGirl.slaveName likes a bit of muscle, so she makes $slaves[$i].slaveName work out hard.
	<<set $slaves[$i].diet to "muscle building">>
<<elseif ($slaves[$i].balls > 0) && ($HeadGirl.fetish is "cumslut") && ($HeadGirl.fetishKnown == 1) && ($slaves[$i].diet != "cum production") && ($cumProDiet == 1)>>
	HeadGirl.slaveName loves cum, so she puts $slaves[$i].slaveName on a diet designed to make her cum harder and stronger.
	<<set $slaves[$i].diet to "cum production">>
<<elseif ($slaves[$i].diet != "healthy")>>
	<<set $slaves[$i].diet to "healthy">>
<</if>>
<<include "SA diet">>

<<if $HGSuiteHormones != 0>>
	<<if $slaves[$i].hormones != 2>>
	$HeadGirl.slaveName puts $slaves[$i].slaveName on intensive female hormones, since she expects her to act as the submissive, feminine partner.
	<<set $slaves[$i].hormones to 2>>
	<</if>>
<</if>>
<<include "SA long term effects">>

<<if $arcologies[0].FSSlimnessEnthusiast != "unset">>
	<<set $HGTastes to 1>>
<<elseif $arcologies[0].FSBodyPurist != "unset">>
	<<set $HGTastes to 1>>
<<elseif $arcologies[0].FSDegradationist != "unset">>
	<<set $HGTastes to 3>>
<<elseif $arcologies[0].FSAssetExpansionist != "unset">>
	<<set $HGTastes to 3>>
<<elseif $arcologies[0].FSTransformationFetishist != "unset">>
	<<set $HGTastes to 3>>
<<else>>
	<<set $HGTastes to 2>>
<</if>>

<<if $HGSuiteDrugs != 0>>
	<<if ($slaves[$i].health < 60)>>
		$HeadGirl.slaveName gives $slaves[$i].slaveName curatives, since she wants a shiningly healthy living partner.
		<<set $slaves[$i].curatives = 2>>
	<</if>>
	<<if ($slaves[$i].lips <= 20)>>
		$HeadGirl.slaveName gives $slaves[$i].slaveName lip injections, since she wants to get oral from plump, luscious lips.
		<<set $slaves[$i].drugs to "lip injections">>
	<<elseif ($HeadGirl.fetishKnown == 1) && ($HeadGirl.fetish is "buttslut") && ($slaves[$i].butt < 8)>>
		$HeadGirl.slaveName gives $slaves[$i].slaveName ass injections, since she likes comfortable padding as she fucks a butt.
		<<set $slaves[$i].drugs to "butt injections">>
	<<elseif ($HeadGirl.fetishKnown == 1) && ($HeadGirl.fetish is "boobs") && ($slaves[$i].boobs < 8000)>>
		$HeadGirl.slaveName gives $slaves[$i].slaveName tit injections, since as far as she's concerned there's no such thing as too much boob.
		<<set $slaves[$i].drugs to "breast injections">>
	<<elseif $HGTastes > 1>>
		<<if ($slaves[$i].lips <= 70)>>
		$HeadGirl.slaveName gives $slaves[$i].slaveName lip injections, since she thinks $slaves[$i].slaveName should have lips so big she can barely speak.
		<<set $slaves[$i].drugs to "lip injections">>
		<<elseif ($slaves[$i].butt < $slaves[$i].boobs/1000)>>
		$HeadGirl.slaveName gives $slaves[$i].slaveName ass injections, since she loves curves and thinks $slaves[$i].slaveName's butt needs the most work.
		<<set $slaves[$i].drugs to "butt injections">>
		<<else>>
		$HeadGirl.slaveName gives $slaves[$i].slaveName boob injections, since she loves curves and thinks $slaves[$i].slaveName's tits need the most work.
		<<set $slaves[$i].drugs to "breast injections">>
		<</if>>
	<<else>>
		<<set $slaves[$i].drugs to "none">>
	<</if>>
<<else>>
	<<if ($slaves[$i].health < 100)>>
		$HeadGirl.slaveName gives $slaves[$i].slaveName curatives, since her assistant could be healthier.
		<<set $slaves[$i].curatives = 2>>
	<</if>>
<</if>>
<<include "SA drugs">>

<<if $HGSuiteSurgery != 0>>
	<<if ($slaves[$i].health > 40)>>
	<<if $arcologies[0].FSBodyPurist is "unset">>
		$HeadGirl.slaveName sends $assistantName notes on what surgical modifications she wants for $slaves[$i].slaveName.
		<<include "Assistant Autosurgery">>
	<</if>>
	<</if>>
	<<if $HeadGirl.fetishKnown == 1>>
	<<if ($HeadGirl.fetish is "sadist") && ($HeadGirl.fetishStrength > 95) && ($seeExtreme == 1)>>
		<<if ($slaves[$i].health > 40)>>
		<<if ($slaves[$i].amp != 1)>>
			<<if ($slaves[$i].devotion < -20)>>
			<<if ($slaves[$i].fetish != "mindbroken")>>
				$HeadGirl.slaveName decides to extract the ultimate in sadistic pleasure from $slaves[$i].slaveName, and directs the autosurgery to @@color:red;amputate her arms and legs.@@ She carefully describes the entire process to the sobbing slave @@color:gold;in minute detail@@ before allowing her to be sedated.
				<<set $slaves[$i].devotion -= 20>>
				<<set $slaves[$i].trust -= 20>>
				<<set $slaves[$i].health -= 40>>
				<<set $slaves[$i].amp to 1>>
			<</if>>
			<</if>>
		<</if>>
		<<if ($slaves[$i].balls > 0)>>
			<<if ($slaves[$i].devotion <= 50)>>
			<<if ($slaves[$i].fetish != "mindbroken")>>
				$HeadGirl.slaveName decides to have some once-only sadistic pleasure, and carefully straps $slaves[$i].slaveName into the surgery until she's completely immobile. $HeadGirl.slaveName situates a mirror so the terrified girl can see her own crotch, gets behind her, and carefully sodomizes her during the entire process of @@color:red;castration.@@ $slaves[$i].slaveName is anesthetized down there and can't feel the brutal anal rape, but her abuser orgasms repeatedly to her @@color:gold;weeping at the sight of being gelded and raped at once.@@
				<<set $slaves[$i].devotion -= 20>>
				<<set $slaves[$i].trust -= 20>>
				<<set $slaves[$i].health -= 20>>
				<<set $slaves[$i].balls to 0>>
			<</if>>
			<</if>>
		<</if>>
		<</if>>
		<<if ($slaves[$i].fetish != "mindbroken")>>
		<<if ($slaves[$i].devotion < -90)>>
			$HeadGirl.slaveName tires of $slaves[$i].slaveName's protests that $HeadGirl.slaveName is a monster for hurting her this way and her complaints that she deserves better. $HeadGirl.slaveName decides that it'll be just as much fun and a lot less trouble to mistreat $slaves[$i].slaveName once she's mindbroken, and sends her in for @@color:red;chemical lobotomization.@@
			<<set $slaves[$i].health -= 20>>
			<<set $slaves[$i].fetish to "mindbroken">>
		<</if>>
		<</if>>
	<<elseif ($HeadGirl.fetish is "dom") && ($HeadGirl.fetishStrength > 60) && ($seeExtreme == 1)>>
		<<if ($slaves[$i].health > 40)>>
		<<if ($slaves[$i].heels == 0)>>
		<<if ($slaves[$i].amp != 1)>>
			<<if ($slaves[$i].devotion <= 50)>>
			<<if ($slaves[$i].fetish != "mindbroken")>>
				$HeadGirl.slaveName is not satisfied with $slaves[$i].slaveName's submissiveness, and directs the autosurgery to @@color:red;clip her Achilles tendons.@@ Once the slave is recovered from surgery, $HeadGirl.slaveName removes all shoes from the suite, too, so $slaves[$i].slaveName is forced to crawl like a good little bitch. $slaves[$i].slaveName is @@color:gold;angry@@ and @@color:gold;frightened.@@
				<<set $slaves[$i].devotion -= 5>>
				<<set $slaves[$i].health -= 20>>
				<<set $slaves[$i].heels to 1>>
				<<set $slaves[$i].shoes to "none">>
			<</if>>
			<</if>>
		<</if>>
		<</if>>
		<<if ($slaves[$i].balls > 0)>>
			<<if ($slaves[$i].devotion <= 50)>>
			<<if ($slaves[$i].fetish != "mindbroken")>>
				$HeadGirl.slaveName decides that it's counterproductive for $slaves[$i].slaveName to be able to get hard, and sends her in to have her @@color:red;balls removed.@@ $slaves[$i].slaveName is horrified, but $HeadGirl.slaveName uses her anus with such persistence and mercilessness that the poor gelding doesn't have much time to mourn. $slaves[$i].slaveName is badly @@color:gold;frightened@@ by her new role as nothing but a recipient of anal.
				<<set $slaves[$i].trust -= 10>>
				<<set $slaves[$i].health -= 20>>
				<<set $slaves[$i].balls to 0>>
			<</if>>
			<</if>>
		<</if>>
		<</if>>
	<<elseif $HeadGirl.energy > 95>>
		<<if ($slaves[$i].health > 40)>>
		<<if ($slaves[$i].heels == 0)>>
		<<if ($slaves[$i].amp != 1)>>
			<<if ($slaves[$i].devotion <= 50)>>
			<<if ($slaves[$i].fetish != "mindbroken")>>
				$HeadGirl.slaveName wants a good little bimbo who sticks her butt out all the time, and directs the autosurgery to @@color:red;clip $slaves[$i].slaveName's Achilles tendons.@@ Once the slave is recovered from surgery, $HeadGirl.slaveName presents $slaves[$i].slaveName with a new pair of extra-tall heels to totter around in like a good little slut. $slaves[$i].slaveName is @@color:gold;angry@@ and @@color:gold;frightened.@@
				<<set $slaves[$i].devotion -= 5>>
				<<set $slaves[$i].trust -= 5>>
				<<set $slaves[$i].health -= 20>>
				<<set $slaves[$i].heels to 1>>
				<<set $slaves[$i].shoes to "heels">>
			<</if>>
			<</if>>
		<</if>>
		<</if>>
		<</if>>
	<<elseif $HeadGirl.fetish is "masochist">>
		<<if ($slaves[$i].health > 40)>>
		<<if ($slaves[$i].heightImplant == 0)>>
		<<if ($slaves[$i].height < 185)>>
		<<if ($slaves[$i].amp != 1)>>
				$HeadGirl.slaveName has a subconscious need to be hurt by the biggest, strongest girl possible, and directs the autosurgery to extend $slaves[$i].slaveName's arm and leg bones to make her a little @@color:lime;taller.@@
				<<set $slaves[$i].health -= 20>>
				<<set $slaves[$i].heightImplant to 1>>
				<<set $slaves[$i].height += 1>>
		<</if>>
		<</if>>
		<</if>>
		<</if>>
	<<elseif $HeadGirl.fetish is "submissive">>
		<<if ($slaves[$i].health > 40)>>
		<<if ($slaves[$i].heightImplant == 0)>>
		<<if ($slaves[$i].height < 185)>>
		<<if ($slaves[$i].amp != 1)>>
				$HeadGirl.slaveName wants to be topped by the biggest, strongest girl possible, and directs the autosurgery to extend $slaves[$i].slaveName's arm and leg bones to make her a little @@color:lime;taller.@@
				<<set $slaves[$i].health -= 20>>
				<<set $slaves[$i].heightImplant to 1>>
				<<set $slaves[$i].height += 1>>
		<</if>>
		<</if>>
		<</if>>
		<</if>>
	<</if>>
	<</if>>
<</if>>

<<if $HGSuiteEquality != 0>>
	<<if $slaves[$i].devotion > 50>>
	$HeadGirl.slaveName and $slaves[$i].slaveName @@color:hotpink;really appreciate@@ the equal, alternating Head Girl system, and @@color:yellow;switch places at the end of the week.@@
	<<set $HeadGirl.devotion += 1>>
	<<set $slaves[$i].devotion += 1>>
	<<else>>
	$slaves[$i].slaveName is not a decent Head Girl candidate, so $HeadGirl.slaveName keeps the position for now.
	<</if>>
<<else>>
	<<set $seed to $HGSuiteSurgery + $HGSuiteDrugs + $HGSuiteHormones>>
	<<if $seed > 2>>
	Your Head Girl @@color:hotpink;really enjoys@@ being given total freedom to customize her very own bitch.
	<<set $HeadGirl.devotion += 2>>
	<<elseif $seed is 2>>
	Your Head Girl @@color:hotpink;enjoys@@ being given freedom to customize her very own girl.
	<<set $HeadGirl.devotion += 1>>
	<<elseif $seed == 1>>
	Your Head Girl @@color:hotpink;appreciates@@ being given some freedom to customize her own servant.
	<<set $HeadGirl.devotion += 1>>
	<</if>>
<</if>>

<<if ($HeadGirl.relationshipTarget is $slaves[$i].ID)>>
	<<set ($HeadGirl.relationship to $slaves[$i].relationship)>>
<</if>>

<<for $j to 0; $j < $slaves.length; $j++>>
	<<if $HeadGirl.ID == $slaves[$j].ID>>
	<<set $slaves[$j] to $HeadGirl>>
	<<break>>
	<</if>>
<</for>>
