:: SA be your Head Girl [nobr]
 
<<set $HGTimeInGrade += 1>>

<<if $arcologies[0].FSEgyptianRevivalistLaw == 0>>
	helps manage your other slaves. She helps them when they try and fail, and punishes them when they fail to try.
<<else>>
	serves as your Consort. Though she is still your slave, her status is scarcely below that of a citizen. She @@color:green;contributes to your reputation@@ just like a Concubine, and she is @@color:hotpink;conscious@@ of the @@color:mediumaquamarine;trust@@ you place in her.
	<<set $slaves[$i].devotion += 1>>
	<<set $slaves[$i].trust += 1>>
	<<silently>>
	<<include "SA please you">>
	<</silently>>
	<<if $slaves[$i].relationship > 4>>
	<<if $familyTesting == 1>>
		<<if $slaves[$i].relationshipTarget is $Concubine.ID>>
			<<if totalRelatives($slaves[$i]) > 0>>
				<<if $Concubine.mother == $slaves[$i].ID || $Concubine.father == $slaves[$i].ID>>
					Your Concubine is your Consort's daughter-wife. Truly, $arcologies[0].name looks up to you @@color:green;as children to a father.@@
					<<set $rep += 250>>
				<<elseif $slaves[$i].mother == $Concubine.ID>>
					Your Concubine is your Consort's mother-wife. Truly, $arcologies[0].name looks up to you @@color:green;as children to a father.@@
					<<set $rep += 250>>
				<<elseif $slaves[$i].father == $Concubine.ID>>
					Your Concubine is your Consort's father-wife. Truly, $arcologies[0].name looks up to you @@color:green;as children to a father.@@
					<<set $rep += 250>>
				<<elseif areSisters($slaves[$i], $Concubine) == 1>>
					Your Concubine is your Consort's twin-wife. Truly, $arcologies[0].name looks up to you @@color:green;as children to a father.@@
					<<set $rep += 250>>
				<<elseif areSisters($slaves[$i], $Concubine) == 2>>
					Your Concubine is your Consort's sister-wife. Truly, $arcologies[0].name looks up to you @@color:green;as children to a father.@@
					<<set $rep += 250>>
				<<elseif areSisters($slaves[$i], $Concubine) == 3>>
					Your Concubine is your Consort's half-sister-wife. Truly, $arcologies[0].name looks up to you @@color:green;as children to a father.@@
					<<set $rep += 250>>
				<<else>>
					//Shit went wrong! Post this in a bug report!// This is @@color:red;NOT as it should be.@@
					<<set $rep += 100>>
				<</if>>
			<<else>>
				Your Consort and your Concubine are wives to each other and to Pharaoh. This is @@color:green;as it should be.@@
				<<set $rep += 100>>
			<</if>>	
		<<else>>
			<<if totalRelatives($slaves[$i]) > 0>>
				<<for $j to 0; $j < $slaves.length; $j++>>
				<<if $slaves[$i].relationshipTarget is $slaves[$j].ID>>
					<<if $slaves[$j].mother == $slaves[$i].ID || $slaves[$j].father == $slaves[$i].ID>>
					Your Consort has a daughter-wife. This is @@color:green;as it should be.@@
					<<set $rep += 100>>
					<<elseif $slaves[$i].mother == $slaves[$j].ID>>
					Your Consort has a mother-wife. This is @@color:green;as it should be.@@
					<<set $rep += 100>>
					<<elseif $slaves[$i].father == $slaves[$j].ID>>
					Your Consort has a father-wife. This is @@color:green;as it should be.@@
					<<set $rep += 100>>
					<<elseif areSisters($slaves[$i], $slaves[$j]) == 1>>
					Your Consort has a twin-wife. This is @@color:green;as it should be.@@
					<<set $rep += 100>>
					<<elseif areSisters($slaves[$i], $slaves[$j]) == 2>>
					Your Consort has a sister-wife. This is @@color:green;as it should be.@@
					<<set $rep += 100>>
					<<elseif areSisters($slaves[$i], $slaves[$j]) == 3>>
					Your Consort has a half-sister-wife. This is @@color:green;as it should be.@@
					<<set $rep += 100>>
					<</if>>
					<<break>>
				<</if>>
				<</for>>
			<</if>>
		<</if>>
	<<else>>
		<<if $slaves[$i].relationshipTarget is $Concubine.ID>>
			<<if $slaves[$i].relationTarget is $Concubine.ID>>
				Your Concubine is your Consort's $slaves[$i].relation-wife. Truly, $arcologies[0].name looks up to you @@color:green;as children to a father.@@
				<<set $rep += 250>>
			<<else>>
				Your Consort and your Concubine are wives to each other and to Pharaoh. This is @@color:green;as it should be.@@
				<<set $rep += 100>>
			<</if>>
		<<elseif $slaves[$i].relationshipTarget is $slaves[$i].relationTarget>>
			Your Consort has a $slaves[$i].relation-wife. This is @@color:green;as it should be.@@
			<<set $rep += 100>>
		<</if>>
	<</if>>
	<</if>>
<</if>>

<<if ($slaves[$i].livingRules is "luxurious") && ($HGSuite == 1)>>
	Being continually trusted with this position @@color:hotpink;increases her devotion to you,@@ and encourages her to @@color:mediumaquamarine;trust you in turn;@@ she's also @@color:hotpink;grateful@@ for her nice suite, which makes her one of the best provided for slaves in the Free Cities.
	<<set $slaves[$i].devotion += 4>>
	<<set $slaves[$i].trust += 4>>
<<elseif ($slaves[$i].livingRules is "luxurious")>>
	Being continually trusted with this position @@color:hotpink;increases her devotion to you@@ and encourages her to @@color:mediumaquamarine;trust you in turn.@@
	<<set $slaves[$i].devotion += 4>>
	<<set $slaves[$i].trust += 4>>
<<elseif ($HGSuite == 1)>>
	She's @@color:hotpink;grateful@@ for her nice suite, which makes her one of the best provided for slaves in the Free Cities. Being continually trusted with this position encourages her to @@color:mediumaquamarine;trust you in turn.@@
	<<set $slaves[$i].devotion += 2>>
	<<set $slaves[$i].trust += 4>>
<<else>>
	Being continually trusted with this position @@color:hotpink;slightly increases her devotion to you,@@ though she harbors some doubts because she isn't allowed a room of her own to set her apart from the other slaves.
	<<set $slaves[$i].devotion += 1>>
<</if>>

<<if ($personalAttention is "HG")>>
	You're cooperating with her this week, working with $assistantName to free up some of her time so she can target more slaves in need of individual attention.
	<<if ($slaves[$i].trust > 95)>>
	She is so trusting of you that she can act as your own right hand, allowing her to oversee your slaves with remarkable efficiency.
	<<else>>
	This arrangement @@color:mediumaquamarine;builds trust@@ between you.
	<<set $slaves[$i].trust += 2>>
	<</if>>
<</if>>

<<if ($HGFormality == 0)>>
	<<if ($slaves[$i].trust > 95)>>
	Every so often, when you're alone, she calls you <<if $PC.title == 1>>Sir<<else>>Ma'am<</if>>. She treats your permission to do this as a sacred thing, and @@color:hotpink;loves you for it.@@
	<<set $slaves[$i].devotion += 1>>
	<<else>>
	Your permission to be informal in private @@color:mediumorchid;confuses her@@ a little, since she isn't perfectly confident enough to be comfortable with the idea.
	<<set $slaves[$i].devotion -= 1>>
	<</if>>
<</if>>

<<if $slaves[$i].fetishKnown == 1>>
	<<if $slaves[$i].fetish is "dom">>
		<<if ($slaves[$i].fetishKnown == 1)>>
		<<if ($slaves[$i].fetishStrength <= 95)>>
			Having all the slaves look up to and obey her advances her @@color:lightcoral;dominant tendencies.@@
			<<set $slaves[$i].fetishStrength += 4>>
		<</if>>
		<</if>>
	<<elseif $slaves[$i].fetishStrength > random(20,40)>>
		The sheer variety of sexual situations she sees and participates in @@color:pink;broaden her sexual interests@@ and incline her to take a dominant sexual role.
		<<set $slaves[$i].fetishStrength -= 4>>
	<<else>>
		Having all the slaves look up to and obey her affects her sexuality, turning her into a @@color:lightcoral;bit of a dominatrix.@@
		<<set $slaves[$i].fetish = "dom">>
		<<set $slaves[$i].fetishStrength == 20>>
	<</if>>
<<else>>
	<<if random(1,3) == 1>>
		Having all the slaves look up to and obey her affects her sexuality, turning her into a @@color:lightcoral;bit of a dominatrix.@@
		<<set $slaves[$i].fetish = "dom">>
		<<set $slaves[$i].fetishStrength == 20>>
		<<set $slaves[$i].fetishKnown = 1>>
	<</if>>
<</if>>

<<if $slaves[$i].prestige == 0>>
<<if $HGTimeInGrade+($slaves[$i].intelligence*5)+($slaves[$i].devotion/10)+($slaves[$i].trust/10) > 50>>
	$slaves[$i].slaveName has rendered such long and competent service as your Head Girl that many of your citizens have come to rely on her word as an extension of yours, trusting that if she does something, it's because you trust her to. @@color:green;She has become prestigious on her own merits, a remarkable achievement for a slave!@@
	<<set $slaves[$i].prestige += 1>>
	<<set $slaves[$i].prestigeDesc to "Many citizens respect her long and able service as your Head Girl.">>
<</if>>
<</if>>

src/uncategorized/saBeYourHeadGirl.tw