From cb85884b33b15097b8fbf449c2e8f4dbb4ef75cf Mon Sep 17 00:00:00 2001
From: lowercase-donkey <lowercasedonkey@gmail.com>
Date: Sun, 9 Jun 2019 21:16:14 -0400
Subject: [PATCH] connect HG select and HGsuite a little better

---
 src/uncategorized/headGirlSuite.tw | 3 +++
 src/uncategorized/hgSelect.tw      | 3 +++
 2 files changed, 6 insertions(+)

diff --git a/src/uncategorized/headGirlSuite.tw b/src/uncategorized/headGirlSuite.tw
index 79e99876adb..39852d566b6 100644
--- a/src/uncategorized/headGirlSuite.tw
+++ b/src/uncategorized/headGirlSuite.tw
@@ -9,12 +9,15 @@
 
 <<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>>
 
 <br>//Any slave assigned to live with your Head Girl will become, for most practical purposes, $his slave.//
diff --git a/src/uncategorized/hgSelect.tw b/src/uncategorized/hgSelect.tw
index fa76f8fa23b..b0dd2398d7e 100644
--- a/src/uncategorized/hgSelect.tw
+++ b/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>>
 
-- 
GitLab