:: Head Girl Suite
 
<<nobr>>
<<set $nextButton to "Back to Main">>
<<set $nextLink to "Main">>
<<set $returnTo to "Head Girl Suite">>

<<if $HGSuiteName != "the Head Girl Suite">>
	<<set $HGSuiteNameCaps to $HGSuiteName.replace("the ", "The ")>>
<</if>>

<<set $HGSuiteSlaves to 0>>
<<set $notHGSuiteSlaves to 0>>
<<for _i to 0; _i < $slaves.length; _i++>>
	<<if $slaves[_i].assignment is "live with your Head Girl">>
		<<set $HGSuiteSlaves += 1>>
		<<set $activeSlave to $slaves[_i]>>
	<<else>>
		<<set $notHGSuiteSlaves += 1>>
	<</if>>
<</for>>

<<if $HeadGirl == 0>>
	You have no Head Girl appointed to live in $HGSuiteName.
<<elseif $HGSuiteSlaves > 0>>
	Your Head Girl $HeadGirl.slaveName has $activeSlave.slaveName living in $HGSuiteName with her, as her servant, assistant, and sexual appliance.
<<else>>
	Your Head Girl $HeadGirl.slaveName lives alone in her handsome suite.
<</if>>

<br>//Any slave assigned to live with your Head Girl will become, for most practical purposes, her slave.//

<br>
<<if $HGSuiteEquality == 1>>
	The two slaves living in $HGSuiteName are ''equals,'' and will alternate weeks as Head Girl and Head Girl's bitch. [[Stop|Head Girl Suite][$HGSuiteEquality to 0]]
<<else>>
	The current Head Girl will ''remain Head Girl.'' [[Have them alternate|Head Girl Suite][$HGSuiteEquality to 1,$HGSuiteSurgery to 0,$HGSuiteDrugs to 0,$HGSuiteHormones to 0]] //This will only take effect if the other girl is an appropriate candidate//
	<br>
	<<if $HGSuiteSurgery == 1>>
	She is ''allowed'' to use surgical modification on her slave. [[Disallow|Head Girl Suite][$HGSuiteSurgery to 0]]
	<<else>>
	She is ''not allowed'' to use surgical modification on her slave. [[Allow|Head Girl Suite][$HGSuiteSurgery to 1]]
	<</if>>
	<br>
	<<if $HGSuiteDrugs == 1>>
	She is ''allowed'' to use growth hormones on her slave. [[Disallow|Head Girl Suite][$HGSuiteDrugs to 0]]
	<<else>>
	She is ''not allowed'' to use growth hormones on her slave. [[Allow|Head Girl Suite][$HGSuiteDrugs to 1]]
	<</if>>
	<br>
	<<if $HGSuiteHormones == 1>>
	She is ''allowed'' to customize her slave with hormone treatments. [[Disallow|Head Girl Suite][$HGSuiteHormones to 0]]
	<<else>>
	She is ''not allowed'' to customize her slave with hormone treatments. [[Allow|Head Girl Suite][$HGSuiteHormones to 1]]
	<</if>>
<</if>>

<<if $HGSuiteSlaves > 0>>
	<br><br>''Bring the Head Girl's girl out of $HGSuiteName:''
	<<set $Flag to 1>>
	<<include "Slave Summary">>
<</if>>

<<if ($notHGSuiteSlaves > 0) && ($HGSuiteSlaves < 1)>>
	<br><br>''Assign a slave to the Head Girl:''
	<<set $Flag to 0>>
	<<include "Slave Summary">>
<</if>>
<<unset $Flag>>

<br><br>Rename $HGSuiteName: <<textbox "$HGSuiteName" $HGSuiteName "Head Girl Suite">> //Use a noun or similar short phrase//
<</nobr>>

src/uncategorized/headGirlSuite.tw