Merge branch 'HG-suite' into 'pregmod-master'

connect HG select and HGsuite a little better

See merge request pregmodfan/fc-pregmod!4794

src/uncategorized/headGirlSuite.tw

@@ -9,14 +9,18 @@
 
 <<if $HeadGirl == 0>>
 	You have no Head Girl appointed to live in $HGSuiteName.
+	<<link "Select Head Girl">><<goto "HG Select">><</link>>
 <<elseif $HGSuiteSlaves > 0>>
 	<<setLocalPronouns $HeadGirl>>
 	Your Head Girl $HeadGirl.slaveName has $slaves[_i].slaveName living in $HGSuiteName with $him, as $his servant, assistant, and sexual appliance.
+	<<link "Manage Head Girl">><<goto "HG Select">><</link>>
 <<else>>
 	<<setLocalPronouns $HeadGirl>>
 	Your Head Girl $HeadGirl.slaveName lives alone in $his handsome suite.
+	<<link "Manage Head Girl">><<goto "HG Select">><</link>>
 <</if>>
 
+<<if $HeadGirl != 0>>
 <br>//Any slave assigned to live with your Head Girl will become, for most practical purposes, $his slave.//
 
 <br>
@@ -46,5 +50,5 @@
 <br><br>
 
 <<print App.UI.SlaveList.listSJFacilitySlaves(App.Entity.facilities.headGirlSuite)>>
-
+<</if>>
 <br><br>Rename $HGSuiteName: <<textbox "$HGSuiteName" $HGSuiteName "Head Girl Suite">> //Use a noun or similar short phrase//

src/uncategorized/hgSelect.tw

@@ -10,6 +10,9 @@
 	<<setLocalPronouns $HeadGirl>>
 	<<set _HGName = SlaveFullName($HeadGirl)>>
 	''__@@.pink;_HGName@@__'' is serving as your Head Girl<<if $arcologies[0].FSEgyptianRevivalistLaw == 1>> and Consort; it is $his role to serve and comfort you at your side, in addition to performing normal Head Girl duties<</if>>.
+	<<if ($HGSuite)>>
+		<br> Currently $he lives in <<link "$HGSuiteNameCaps""Head Girl Suite">><</link>>
+	<</if>>
 	<br><br>
 <</if>>