diff --git a/src/events/intro/initNationalities.tw b/src/events/intro/initNationalities.tw
index 08a824e890284e89cce4366780a16f790901091f..6e0fd6188090fb844ae88e47ea8f2ff2e852e6af 100644
--- a/src/events/intro/initNationalities.tw
+++ b/src/events/intro/initNationalities.tw
@@ -85,6 +85,7 @@
 
 /*Nationalities Setup*/
 
+<<set $arcologies[0].FSSupremacistRace = 0, $arcologies[0].FSSubjugationistRace = 0>>
 <<set $basenationalities = ["American", "Afghan", "Algerian","Argentinian", "Armenian", "Australian", "Austrian", "Bangladeshi", "Belarusian", "Belgian", "Bolivian", "Brazilian", "British", "Burmese", "Canadian", "Chilean", "Chinese", "Czech", "Colombian", "Congolese", "Cuban", "Danish", "Dominican", "Dutch", "Egyptian", "Emirati", "Estonian", "Ethiopian", "Filipina", "Finnish", "French", "German", "Ghanan", "Greek", "Guatemalan", "Haitian", "Hungarian", "Icelandic", "Indonesian", "Indian", "Iranian", "Iraqi", "Italian", "Irish", "Israeli", "Jamaican", "Japanese", "Jordanian", "Kazakh", "Kenyan", "Korean", "Lebanese", "Libyan", "Lithuanian", "Malaysian", "Malian", "Mexican", "Moroccan", "Nepalese", "a New Zealander", "Nigerian", "Norwegian", "Omani", "Pakistani", "Peruvian", "Polish", "Portuguese", "Puerto Rican", "Romanian", "Russian", "Saudi", "Scottish", "Serbian", "Slovak", "South African", "Spanish", "Sudanese", "Swedish", "Swiss", "Tanzanian", "Thai", "Tunisian", "Turkish", "Ugandan", "Ukrainian", "Uzbek", "Venezuelan", "Vietnamese", "Yemeni", "Zimbabwean"]>>
 
 <<unset $nationalitiescheck>> /* Removes unique nationalities array to avoid var bloat */
diff --git a/src/init/storyInit.tw b/src/init/storyInit.tw
index ce7cb5f9257f8cd4533620ed91d5e5ab6ad21374..d8cd0d8f1cdb59b87da158f777f7f80b395c77af 100644
--- a/src/init/storyInit.tw
+++ b/src/init/storyInit.tw
@@ -500,7 +500,7 @@ DairyRestraintsSetting($dairyRestraintsSetting)
 <<set $FSSpending = 0>>
 <<set $FSLockinLevel = 100>>
 <<set $applyLaw = 0>>
-<<set $FSPromenade = {Subjugationist: 0, Supremacist: 0, GenderRadicalist: 0, GenderFundamentalist: 0, Paternalist: 0, Degradationist: 0, BodyPurist: 0, TransformationFetishist: 0, YouthPreferentialist: 0, MaturityPreferentialist: 0, SlimnessEnthusiast: 0, AssetExpansionist: 0, Pastoralist: 0, PhysicalIdealist: 0, ChattelReligionist: 0, RomanRevivalist: 0, AztecRevivalist: 0, EgyptianRevivalist: 0, EdoRevivalist: 0, ArabianRevivalist: 0, ChineseRevivalist: 0, RepopulationFocus: 0, Restart: 0}>>
+<<set $FSPromenade = {Subjugationist: 0, Supremacist: 0, GenderRadicalist: 0, GenderFundamentalist: 0, Paternalist: 0, Degradationist: 0, BodyPurist: 0, TransformationFetishist: 0, YouthPreferentialist: 0, MaturityPreferentialist: 0, SlimnessEnthusiast: 0, AssetExpansionist: 0, Pastoralist: 0, PhysicalIdealist: 0, ChattelReligionist: 0, RomanRevivalist: 0, AztecRevivalist: 0, EgyptianRevivalist: 0, EdoRevivalist: 0, ArabianRevivalist: 0, ChineseRevivalist: 0, Repopulationist: 0, Eugenics: 0}>>
 
 <<set $corpAnnounced = 0>>
 <<set $corpIncorporated = 0>>
diff --git a/src/uncategorized/fMarry.tw b/src/uncategorized/fMarry.tw
index 10b302151cfe08dd54d9322ff518c642d2f01e61..a1b3a0a72585f247e024df03c563d1fbd01acbb3 100644
--- a/src/uncategorized/fMarry.tw
+++ b/src/uncategorized/fMarry.tw
@@ -4,15 +4,43 @@
 
 <<set $nextButton = "Back">>
 <<set $nextLink = "Slave Interact">>
+<<Enunciate $activeSlave>>
 
 <<set $weddingSlaveID = $activeSlave.ID>>
+<<if $activeSlave.relationship > 0>>			
+	<<for _m = 0; _m < $slaves.length; _m++>>
+		<<if $activeSlave.relationshipTarget == $slaves[_m].ID>>
+			<<set $activeSlave.relationshipTarget = 0>>
+			<<set $slaves[_m].relationship = 0, $slaves[_m].relationshipTarget = 0>>
+			<<break>>
+		<</if>>
+	<</for>>
+<</if>>
 
 You tell $activeSlave.slaveName that you're going to marry her. (A proposal, of course, would be inappropriate, even in so enlightened a place as your arcology.)
 <<if $activeSlave.fetish == "mindbroken">>
 <<elseif $activeSlave.devotion+$activeSlave.trust >= 175>>
 	You're not exactly lacking in ways to make <<if $activeSlave.physicalAge > 30>>women<<else>>girls<</if>> burst into tears, but this one is unusually effective. When she's gotten herself under control again, <<if $activeSlave.amp == 1>>looking somewhat embarrassed that she can't wipe her own tears<<else>>distractedly cuffing away her tears<</if>> and consciously breathing deeply,
 	<<if canTalk($activeSlave)>>
-		she says, "Thank you, <<Master>>. I am going to do my <<if SlaveStatsChecker.checkForLisp($activeSlave)>>betht<<else>>best<</if>> to be a
+		she <<say>>s,
+		<<if $activeSlave.relationship != 0>>
+			<<if $activeSlave.relationship == -1>>
+				"I promi<<s>>e I'll try to <<s>>top <<s>>leeping around <<s>>o much."
+			<<elseif $activeSlave.relationship == 4>>
+				"I'll have to break up with $slaves[_m].slaveName... I'll try to let her down gently, <<s>>he'll under<<s>>tand."
+				<<set $slaves[_m].devotion -= 5, $slaves[_m].trust -= 5>>
+			<<elseif $activeSlave.relationship == 3>>
+				"$slaves[_m].slaveName will mi<<ss>> having <<s>>ex with me, but <<s>>he'll under<<s>>tand."
+				<<set $slaves[_m].devotion -= 3, $slaves[_m].trust -= 3>>
+			<<elseif $activeSlave.relationship != -2>>
+				"I'll have to <<s>>top hanging out with $slaves[_m].slaveName; I'm <<s>>ure <<s>>he'll under<<s>>tand."
+				<<set $slaves[_m].devotion -= 1, $slaves[_m].trust -= 1>>
+			<<else>>
+				"I've been waiting for thi<<s>> day! I'm <<s>>o happy!"
+			<</if>>
+			She continues,
+		<</if>>
+		"Thank you, <<Master>>. I am going to do my be<<s>>t to be a
 		<<if ($activeSlave.fetishKnown == 1) && ($activeSlave.fetishStrength > 60)>>
 			<<if ($activeSlave.fetish == "submissive")>>
 			perfect submissive wife to you,
@@ -41,46 +69,144 @@ You tell $activeSlave.slaveName that you're going to marry her. (A proposal, of
 		<<Master>>. Oh, thank you, <<Master>>," she blubbers, and starts crying again.
 	<<elseif $activeSlave.amp == 1>>
 		she painstakingly mouths her thanks, since she cannot speak or use hands to sign.
+		<<if $activeSlave.relationship != 0>>
+			She struggles to tell you
+			<<if $activeSlave.relationship == -1>>
+				that she'll try to be less of a slut.
+			<<elseif $activeSlave.relationship == 4>>
+				that she'll try to let her lover $slaves[_m].slaveName down gently.
+				<<set $slaves[_m].devotion -= 5, $slaves[_m].trust -= 5>>
+			<<elseif $activeSlave.relationship == 3>>
+				that she'll try to let her FWB $slaves[_m].slaveName down gently.
+				<<set $slaves[_m].devotion -= 3, $slaves[_m].trust -= 3>>
+			<<elseif $activeSlave.relationship != -2>>
+				that she'll have to stop hanging around $slaves[_m].slaveName.
+				<<set $slaves[_m].devotion -= 1, $slaves[_m].trust -= 1>>
+			<<else>>
+				that she has never been happier.
+			<</if>>
+		<</if>>
 	<<else>>
 		she shakily signs her thanks twice in a row before breaking down again.
+		<<if $activeSlave.relationship != 0>>
+			She regains composure enough to continue signing out
+			<<if $activeSlave.relationship == -1>>
+				that she'll try to be less of a slut.
+			<<elseif $activeSlave.relationship == 4>>
+				that she'll try to let her lover $slaves[_m].slaveName down gently.
+				<<set $slaves[_m].devotion -= 5, $slaves[_m].trust -= 5>>
+			<<elseif $activeSlave.relationship == 3>>
+				that she'll try to let her FWB $slaves[_m].slaveName down gently.
+				<<set $slaves[_m].devotion -= 3, $slaves[_m].trust -= 3>>
+			<<elseif $activeSlave.relationship != -2>>
+				that she'll have to stop hanging around $slaves[_m].slaveName.
+				<<set $slaves[_m].devotion -= 1, $slaves[_m].trust -= 1>>
+			<<else>>
+				that she has never been happier.
+			<</if>>
+		<</if>>
 	<</if>>
 	Despite her devotion and trust, she is still a slave, and probably knows that her position could always change. This brings her one step closer to true permanence, and she knows it.
 <<elseif $activeSlave.devotion < -20 && $activeSlave.trust > 0>>
 	You're not exactly lacking in ways to make <<if $activeSlave.physicalAge > 30>>women<<else>>girls<</if>> burst into tears, but this one is suprisingly effective. It seems $activeSlave.slaveName does not want to marry you, if her prolonged, anguished sobbing is anything to go by. However, she would have to be a fool to think there’s any way out of it.
 	<<if canTalk($activeSlave)>>
-		She <<say>>s, "Plea<<s>>e <<Master>>, I don't want to be your
+		She <<say>>s, "Plea<<s>>e <<Master>>, I don't want to
 		<<if ($activeSlave.fetishKnown == 1) && ($activeSlave.fetishStrength > 60)>>
 			<<if ($activeSlave.fetish == "submissive")>>
-			perfect submissive wife to you,
+			be your little submi<<ss>>ive fucktoy,
 			<<elseif ($activeSlave.fetish == "cumslut")>>
-			perfect oral wifey,
+			be your cum <<s>>ucker,
 			<<elseif ($activeSlave.fetish == "humiliation")>>
-			hot wife for you,
+			be <<s>tripped bare and <<s>>hown off,
 			<<elseif ($activeSlave.fetish == "buttslut")>>
-			perfect little anal wifey,
+			have thing<<s>> <<s>>hoved up my butt,
 			<<elseif ($activeSlave.fetish == "boobs")>>
-			<<if $activeSlave.boobs > 800>>perfect big-boobed<<else>>perfect-boobed<</if>> wife
+			have my tit<<s>> tea<<s>>ed every night,
 			<<elseif ($activeSlave.fetish == "pregnancy")>>
-			perfect barefoot breeding wife,
+				<<if canGetPregnant($activeSlave)>>
+					get knocked up by you,
+				<<else>>
+					be your pregnant toy,
+				<</if>>
 			<<elseif ($activeSlave.fetish == "dom")>>
-			perfect, you know, sharing wife with other <<if SlaveStatsChecker.checkForLisp($activeSlave)>>thlaveth<<else>>slaves<</if>>,
+			have to rule your <<s>>i<<ss>>y dick,
 			<<elseif ($activeSlave.fetish == "sadist")>>
-			perfect wife to <<if SlaveStatsChecker.checkForLisp($activeSlave)>>uthe on other thlaveth<<else>>use on other slaves<</if>>,
+			<<s>>pank your a<<ss>>,
 			<<elseif ($activeSlave.fetish == "masochist")>>
-			good, beaten wife,
+			get beaten by you,
 			<<else>>
-			good wife,
+			<<s>>tay in your ni<<c>>e room,
 			<</if>>
 		<<else>>
-			good wife,
+			<<s>>tay in your ni<<c>>e room,
+		<</if>>
+		<<Master>>. You're a terrible per<<s>>on, <<Master>>," she blubbers, and starts crying again.
+		<<if $activeSlave.relationship != 0>>
+			<<if $activeSlave.relationship == -1>>
+				"I'll never be <<s>>ati<<s>>fied by ju<<s>>t you!"
+				<<set $activeSlave.devotion -= 40, $activeSlave.trust -= 40>>
+			<<elseif $activeSlave.relationship == 4>>
+				"I love $slaves[_m].slaveName, not you <<Master>>! You'll never be a<<s>> good as her!"
+				<<set $slaves[_m].devotion -= 40, $slaves[_m].trust -= 40>>
+				<<set $activeSlave.devotion -= 40, $activeSlave.trust -= 40>>
+			<<elseif $activeSlave.relationship == 3>>
+				"But I like having <<s>>ex with $slaves[_m].slaveName, not you <<Master>>! You'll never be a<<s>> good as her!"
+				<<set $slaves[_m].devotion -= 30, $slaves[_m].trust -= 30>>
+				<<set $activeSlave.devotion -= 30, $activeSlave.trust -= 30>>
+			<<elseif $activeSlave.relationship != -2>>
+				"But I like <<s>>pending time with $slaves[_m].slaveName, <<s>>he'<<s>> <<s>>o much ni<<c>>er to be around than you, <<Master>>.
+				<<set $slaves[_m].devotion -= 20, $slaves[_m].trust -= 20>>
+				<<set $activeSlave.devotion -= 20, $activeSlave.trust -= 20>>
+			<<else>>
+				"I need you in my life, <<Master>>, so why don't you bend down like the bitch you are and <<if $activeSlave.dick > 0>><<s>>uck my dick<<elseif $activeSlave.vagina > -1>>eat me out<<else>>lick my a<<ss>><</if>>, <<Master>>?"
+			<</if>>
 		<</if>>
-		<<Master>>. Oh, thank you, <<Master>>," she blubbers, and starts crying again.
 	<<elseif $activeSlave.amp == 1>>
-		she painstakingly mouths her thanks, since she cannot speak or use hands to sign.
+		she painstakingly mouths her displeasure, since she cannot speak or use hands to sign.
+		<<if $activeSlave.relationship != 0>>
+			<<if $activeSlave.relationship == -1>>
+				She desperately tries to explain that you'll never satisfy her.
+				<<set $activeSlave.devotion -= 40, $activeSlave.trust -= 40>>
+			<<elseif $activeSlave.relationship == 4>>
+				She desperately tries to explain that her love, $slaves[_m].slaveName, is better than you'll ever be.
+				<<set $slaves[_m].devotion -= 40, $slaves[_m].trust -= 40>>
+				<<set $activeSlave.devotion -= 40, $activeSlave.trust -= 40>>
+			<<elseif $activeSlave.relationship == 3>>
+				She desperately tries to explain that her lover, $slaves[_m].slaveName, satisfies her far better than you can.
+				<<set $slaves[_m].devotion -= 30, $slaves[_m].trust -= 30>>
+				<<set $activeSlave.devotion -= 30, $activeSlave.trust -= 30>>
+			<<elseif $activeSlave.relationship != -2>>
+				She desperately tries to explain her friend, $slaves[_m].slaveName, is so much more enjoyable to be around than you.
+				<<set $slaves[_m].devotion -= 20, $slaves[_m].trust -= 20>>
+				<<set $activeSlave.devotion -= 20, $activeSlave.trust -= 20>>
+			<<else>>
+				She wiggles her nethers at you, as if trying to tell you to do something.
+			<</if>>
+		<</if>>
 	<<else>>
-		she shakily signs her thanks twice in a row before breaking down again.
+		she shakily makes a rather rude hand gesture before crying more.
+		<<if $activeSlave.relationship != 0>>
+			<<if $activeSlave.relationship == -1>>
+				She also makes it clear that you'll never satisfy her.
+				<<set $activeSlave.devotion -= 40, $activeSlave.trust -= 40>>
+			<<elseif $activeSlave.relationship == 4>>
+				She also makes it clear that her love, $slaves[_m].slaveName, is better than you'll ever be.
+				<<set $slaves[_m].devotion -= 40, $slaves[_m].trust -= 40>>
+				<<set $activeSlave.devotion -= 40, $activeSlave.trust -= 40>>
+			<<elseif $activeSlave.relationship == 3>>
+				She also makes it clear that her lover, $slaves[_m].slaveName, satisfies her far better than you can.
+				<<set $slaves[_m].devotion -= 30, $slaves[_m].trust -= 30>>
+				<<set $activeSlave.devotion -= 30, $activeSlave.trust -= 30>>
+			<<elseif $activeSlave.relationship != -2>>
+				She also makes it clear her friend, $slaves[_m].slaveName, is so much more enjoyable to be around than you.
+				<<set $slaves[_m].devotion -= 20, $slaves[_m].trust -= 20>>
+				<<set $activeSlave.devotion -= 20, $activeSlave.trust -= 20>>
+			<<else>>
+				On top of the prior gesturing, she adds another, lewder one involving you and her crotch.
+			<</if>>
+		<</if>>
 	<</if>>
-	Despite her "fortune", she is still a slave, and undoubtedly knows that her position could easily change should you tire of her. <<if $activeSlave.trust > 0>>Her tears may not all be genuine, she may try to take advantage of her new found position and distinct lack of respect<<else>><</if>>, and she knows it.
+	Despite her "fortune", she is still a slave, and undoubtedly knows that her position could easily change should you tire of her. Her tears may not all be genuine either, you have a feeling she may be trying to take advantage of you.
 <<elseif $activeSlave.devotion < -20 && $activeSlave.trust <= 0>>
 	You're not exactly lacking in ways to make <<if $activeSlave.physicalAge > 30>>women<<else>>girls<</if>> burst into tears, but this one is unusually effective. It seems $activeSlave.slaveName does not want to marry you, if her prolonged, anguished sobbing is anything to go by. However, she would have to be a fool to think there’s any way out of it. You lean in and whisper that
 	<<if ($activeSlave.fetishKnown == 1) && ($activeSlave.fetishStrength > 60)>>
@@ -110,13 +236,94 @@ You tell $activeSlave.slaveName that you're going to marry her. (A proposal, of
 	<</if>>
 	<<if canTalk($activeSlave)>>
 		"<<Master>>. Plea<<s>>e, <<Master>>, don't make me do thi<<s>>. I don't want thi<<s>>!" she blubbers, and starts crying again.
+		<<if $activeSlave.relationship != 0>>
+			<<if $activeSlave.relationship == -1>>
+				"I need a new dick in me every night! How can I be <<s>>ati<<s>>fied like thi<<s>>?!"
+				<<set $activeSlave.devotion -= 40, $activeSlave.trust -= 40>>
+			<<elseif $activeSlave.relationship == 4>>
+				"I love $slaves[_m].slaveName! Plea<<s>>e don't <<s>>plit u<<s>> up <<Master>>! I'll be a good girl, <<Master>>, plea<<s>>e!"
+				<<set $slaves[_m].devotion -= 40, $slaves[_m].trust -= 40>>
+				<<set $activeSlave.devotion -= 40, $activeSlave.trust -= 40>>
+			<<elseif $activeSlave.relationship == 3>>
+				"I love playing around with $slaves[_m].slaveName! Plea<<s>>e don't <<s>>plit u<<s>> up <<Master>>! I'll be a good girl, <<Master>>, plea<<s>>e!"
+				<<set $slaves[_m].devotion -= 30, $slaves[_m].trust -= 30>>
+				<<set $activeSlave.devotion -= 30, $activeSlave.trust -= 30>>
+			<<elseif $activeSlave.relationship != -2>>
+				"But I like <<s>>pending time with $slaves[_m].slaveName! Plea<<s>>e don't <<s>>plit u<<s>> up <<Master>>! I'll be a good girl, <<Master>>, plea<<s>>e!"
+				<<set $slaves[_m].devotion -= 20, $slaves[_m].trust -= 20>>
+				<<set $activeSlave.devotion -= 20, $activeSlave.trust -= 20>>
+			<<else>>
+				"I need you in my life, <<Master>>, but not like thi<<s>>, plea<<s>>e?"
+			<</if>>
+		<</if>>
 	<<elseif $activeSlave.amp == 1>>
 		She painstakingly pleads with you, since she cannot speak or use hands to sign.
+		<<if $activeSlave.relationship != 0>>
+			<<if $activeSlave.relationship == -1>>
+				She desperately tries to explain that she needs multiple partners.
+				<<set $activeSlave.devotion -= 40, $activeSlave.trust -= 40>>
+			<<elseif $activeSlave.relationship == 4>>
+				She desperately begs you to not seperate her from her love, $slaves[_m].slaveName.
+				<<set $slaves[_m].devotion -= 40, $slaves[_m].trust -= 40>>
+				<<set $activeSlave.devotion -= 40, $activeSlave.trust -= 40>>
+			<<elseif $activeSlave.relationship == 3>>
+				She desperately begs you to not seperate her from her lover, $slaves[_m].slaveName.
+				<<set $slaves[_m].devotion -= 30, $slaves[_m].trust -= 30>>
+				<<set $activeSlave.devotion -= 30, $activeSlave.trust -= 30>>
+			<<elseif $activeSlave.relationship != -2>>
+				She desperately begs you to not seperate her from her friend, $slaves[_m].slaveName.
+				<<set $slaves[_m].devotion -= 20, $slaves[_m].trust -= 20>>
+				<<set $activeSlave.devotion -= 20, $activeSlave.trust -= 20>>
+			<<else>>
+				She desperately begs you to not marry her, despite her emotional connection with you.
+			<</if>>
+		<</if>>
 	<<else>>
-		She desperatly struggles to plead with you before breaking down again.
+		She desperately struggles to plead with you before breaking down again.
+		<<if $activeSlave.relationship != 0>>
+			<<if $activeSlave.relationship == -1>>
+				She tries to explain that she needs multiple partners.
+				<<set $activeSlave.devotion -= 40, $activeSlave.trust -= 40>>
+			<<elseif $activeSlave.relationship == 4>>
+				She begs you to not seperate her from her love, $slaves[_m].slaveName.
+				<<set $slaves[_m].devotion -= 40, $slaves[_m].trust -= 40>>
+				<<set $activeSlave.devotion -= 40, $activeSlave.trust -= 40>>
+			<<elseif $activeSlave.relationship == 3>>
+				She begs you to not seperate her from her lover, $slaves[_m].slaveName.
+				<<set $slaves[_m].devotion -= 30, $slaves[_m].trust -= 30>>
+				<<set $activeSlave.devotion -= 30, $activeSlave.trust -= 30>>
+			<<elseif $activeSlave.relationship != -2>>
+				She begs you to not seperate her from her friend, $slaves[_m].slaveName.
+				<<set $slaves[_m].devotion -= 20, $slaves[_m].trust -= 20>>
+				<<set $activeSlave.devotion -= 20, $activeSlave.trust -= 20>>
+			<<else>>
+				She begs you to not marry her, despite her emotional connection with you.
+			<</if>>
+		<</if>>
 	<</if>>
 	You leave her to weep and consider her fate. Despite her "fortune", she is still a slave, and undoubtedly knows that her position could easily change should you tire of her.
 <<else>>
+	She doesn’t really react to this. By no means does she want to be your wife, but she’s obedient enough to know that you are in charge. You leave her to her business, and go back to yours.
+	<<if $activeSlave.relationship != 0>>
+		<<if $activeSlave.relationship == -1>>
+			She sighs at the realization that she won't be allowed to be so promiscuous and will have to learn to focus her attention on you.
+			<<set $activeSlave.devotion -= 10, $activeSlave.trust -= 10>>
+		<<elseif $activeSlave.relationship == 4>>
+			She sighs at the realization that she'll have to stop seeing her love, $slaves[_m].slaveName.
+			<<set $slaves[_m].devotion -= 20, $slaves[_m].trust -= 20>>
+			<<set $activeSlave.devotion -= 20, $activeSlave.trust -= 20>>
+		<<elseif $activeSlave.relationship == 3>>
+			She sighs at the realization that she'll have to stop spending so much time with her lover, $slaves[_m].slaveName.
+			<<set $slaves[_m].devotion -= 10, $slaves[_m].trust -= 10>>
+			<<set $activeSlave.devotion -= 10, $activeSlave.trust -= 10>>
+		<<elseif $activeSlave.relationship != -2>>
+			She sighs at the realization that she'll have to stop spending so much time with her friend, $slaves[_m].slaveName.
+			<<set $slaves[_m].devotion -= 5, $slaves[_m].trust -= 5>>
+			<<set $activeSlave.devotion -= 5, $activeSlave.trust -= 5>>
+		<<else>>
+			Deep down, she dreamed of this. But now that it's happening she can't shake the feeling of regret.
+		<</if>>
+	<</if>>
 <</if>>
 <br><br>
 <<if $assistantName == "your personal assistant">>Your personal assistant<<else>>$assistantName<</if>> prompts you for wedding
diff --git a/src/uncategorized/fsDevelopments.tw b/src/uncategorized/fsDevelopments.tw
index 5a041673b181cccca722d53f35cdab412b1aff97..232e27c8ab8b8f7227f927829644bade79895aab 100644
--- a/src/uncategorized/fsDevelopments.tw
+++ b/src/uncategorized/fsDevelopments.tw
@@ -312,155 +312,249 @@
 <</if>>
 <</for>>
 
+<span id="FSshop">
 <<if $arcologies[0].FSSubjugationist != "unset">>
 	<<if $FSPromenade.Subjugationist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Subjugationist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.Subjugationist = 1, $sectors[$AS].type = "Subjugationist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Subjugationist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.Subjugationist = 1, $sectors[$AS].type = "Subjugationist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Subjugationist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <</if>>
 <<if $arcologies[0].FSSupremacist != "unset">>
 	<<if $FSPromenade.Supremacist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Supremacist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.Supremacist = 1, $sectors[$AS].type = "Supremacist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Supremacist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.Supremacist = 1, $sectors[$AS].type = "Supremacist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Subjugationist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <</if>>
 <<if $arcologies[0].FSGenderRadicalist != "unset">>
 	<<if $FSPromenade.GenderRadicalist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Gender Radicalist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.GenderRadicalist = 1, $sectors[$AS].type = "Gender Radicalist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Gender Radicalist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.GenderRadicalist = 1, $sectors[$AS].type = "Gender Radicalist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Gender Radicalist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <<elseif $arcologies[0].FSGenderFundamentalist != "unset">>
 	<<if $FSPromenade.GenderFundamentalist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Gender Fundamentalist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.GenderFundamentalist = 1, $sectors[$AS].type = "Gender Fundamentalist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Gender Fundamentalist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.GenderFundamentalist = 1, $sectors[$AS].type = "Gender Fundamentalist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Gender Fundamentalist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//		
 	<</if>>
 <</if>>
 <<if $arcologies[0].FSPaternalist != "unset">>
 	<<if $FSPromenade.Paternalist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Paternalist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.Paternalist = 1, $sectors[$AS].type = "Paternalist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Paternalist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.Paternalist = 1, $sectors[$AS].type = "Paternalist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Paternalist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <<elseif $arcologies[0].FSDegradationist != "unset">>
 	<<if $FSPromenade.Degradationist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Degradationist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.Degradationist = 1, $sectors[$AS].type = "Degradationist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Degradationist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.Degradationist = 1, $sectors[$AS].type = "Degradationist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Degradationist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <</if>>
 <<if $arcologies[0].FSBodyPurist != "unset">>
 	<<if $FSPromenade.BodyPurist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Body Purist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.BodyPurist = 1, $sectors[$AS].type = "Body Purist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Body Purist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.BodyPurist = 1, $sectors[$AS].type = "Body Purist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Body Purist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <<elseif $arcologies[0].FSTransformationFetishist != "unset">>
 	<<if $FSPromenade.TransformationFetishist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Transformation Fetishist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.TransformationFetishist = 1, $sectors[$AS].type = "Transformation Fetishist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Transformation Fetishist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.TransformationFetishist = 1, $sectors[$AS].type = "Transformation Fetishist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Transformation Fetishist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//		
 	<</if>>
 <</if>>
 <<if $arcologies[0].FSYouthPreferentialist != "unset">>
 	<<if $FSPromenade.YouthPreferentialist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Youth Preferentialist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.YouthPreferentialist = 1, $sectors[$AS].type = "Youth Preferentialist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Youth Preferentialist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.YouthPreferentialist = 1, $sectors[$AS].type = "Youth Preferentialist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Youth Preferentialist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//		
 	<</if>>
 <<elseif $arcologies[0].FSMaturityPreferentialist != "unset">>
 	<<if $FSPromenade.MaturityPreferentialist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Subjugationist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.MaturityPreferentialist = 1, $sectors[$AS].type = "Maturity Preferentialist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Maturity Preferentialist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.MaturityPreferentialist = 1, $sectors[$AS].type = "Maturity Preferentialist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Maturity Preferentialist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <</if>>
 <<if $arcologies[0].FSSlimnessEnthusiast != "unset">>
 	<<if $FSPromenade.SlimnessEnthusiast == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Slimness Enthusiast establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.SlimnessEnthusiast = 1, $sectors[$AS].type = "Slimness Enthusiast"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Slimness Enthusiast establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.SlimnessEnthusiast = 1, $sectors[$AS].type = "Slimness Enthusiast">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Slimness Enthusiast establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <<elseif $arcologies[0].FSAssetExpansionist != "unset">>
 	<<if $FSPromenade.AssetExpansionist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Asset Expansionist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.AssetExpansionist = 1, $sectors[$AS].type = "Asset Expansionist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Asset Expansionist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.AssetExpansionist = 1, $sectors[$AS].type = "Asset Expansionist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Asset Expansionist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//		
 	<</if>>
 <</if>>
 <<if $arcologies[0].FSPastoralist != "unset">>
 	<<if $FSPromenade.Pastoralist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Pastoralist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.Pastoralist = 1, $sectors[$AS].type = "Pastoralist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Pastoralist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.Pastoralist = 1, $sectors[$AS].type = "Pastoralist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Pastoralist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <<elseif $arcologies[0].FSPhysicalIdealist != "unset">>
 	<<if $FSPromenade.PhysicalIdealist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Physical Idealist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.PhysicalIdealist = 1, $sectors[$AS].type = "Physical Idealist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Physical Idealist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.PhysicalIdealist = 1, $sectors[$AS].type = "Physical Idealist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Physical Idealist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <</if>>
 <<if $arcologies[0].FSRepopulationFocus != "unset">>
 	<<if $FSPromenade.Repopulationist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Repopulationist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.Repopulationist = 1, $sectors[$AS].type = "Repopulationist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Repopulationist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.Repopulationist = 1, $sectors[$AS].type = "Repopulationist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Repopulationist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <<elseif $arcologies[0].FSRestart != "unset">>
 	<<if $FSPromenade.Eugenics == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Eugenics establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.Eugenics = 1, $sectors[$AS].type = "Eugenics"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Eugenics establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.Eugenics = 1, $sectors[$AS].type = "Eugenics">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Eugenics establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <</if>>
 <<if $arcologies[0].FSChattelReligionist != "unset">>
 	<<if $FSPromenade.ChattelReligionist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Chattel Religionist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.ChattelReligionist = 1, $sectors[$AS].type = "Chattel Religionist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Chattel Religionist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.ChattelReligionist = 1, $sectors[$AS].type = "Chattel Religionist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Chattel Religionist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <</if>>
 <<if $arcologies[0].FSRomanRevivalist != "unset">>
 	<<if $FSPromenade.RomanRevivalist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Roman Revivalist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.RomanRevivalist = 1, $sectors[$AS].type = "Roman Revivalist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Roman Revivalist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.RomanRevivalist = 1, $sectors[$AS].type = "Roman Revivalist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Roman Revivalist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//		
 	<</if>>
 <<elseif $arcologies[0].FSAztecRevivalist != "unset">>
 	<<if $FSPromenade.AztecRevivalist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Aztec Revivalist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.AztecRevivalist = 1, $sectors[$AS].type = "Aztec Revivalist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Aztec Revivalist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.AztecRevivalist = 1, $sectors[$AS].type = "Aztec Revivalist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Aztec Revivalist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//		
 	<</if>>
 <<elseif $arcologies[0].FSEgyptianRevivalist != "unset">>
 	<<if $FSPromenade.EgyptianRevivalist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Egyptian Revivalist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.EgyptianRevivalist = 1, $sectors[$AS].type = "Egyptian Revivalist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Egyptian Revivalist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.EgyptianRevivalist = 1, $sectors[$AS].type = "Egyptian Revivalist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Egyptian Revivalist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <<elseif $arcologies[0].FSEdoRevivalist != "unset">>
 	<<if $FSPromenade.EdoRevivalist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Edo Revivalist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.EdoRevivalist = 1, $sectors[$AS].type = "Edo Revivalist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Edo Revivalist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.EdoRevivalist = 1, $sectors[$AS].type = "Edo Revivalist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Edo Revivalist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <<elseif $arcologies[0].FSArabianRevivalist != "unset">>
 	<<if $FSPromenade.ArabianRevivalist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Arabian Revivalist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.ArabianRevivalist = 1, $sectors[$AS].type = "Arabian Revivalist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Arabian Revivalist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.ArabianRevivalist = 1, $sectors[$AS].type = "Arabian Revivalist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Arabian Revivalist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <<elseif $arcologies[0].FSChineseRevivalist != "unset">>
 	<<if $FSPromenade.ChineseRevivalist == 0>>
 		<br>
-		[[Upgrade this sector to appeal to Chinese Revivalist establishments|Main][$cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.ChineseRevivalist = 1, $sectors[$AS].type = "Chinese Revivalist"]]
-		//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
+		<<link "Upgrade this sector to appeal to Chinese Revivalist establishments">>
+			<<set $cash -= Math.trunc(10000*$upgradeMultiplierArcology), $FSPromenade.ChineseRevivalist = 1, $sectors[$AS].type = "Chinese Revivalist">>
+			<<replace "#FSshop">>
+				Sector remodeled to feature Chinese Revivalist establishments.
+			<</replace>>
+		<</link>>//Costs ¤<<print Math.trunc(10000*$upgradeMultiplierArcology)>>//	
 	<</if>>
 <</if>>
+</span>
 
 <br><br>
 <<if $PAPublic == 1 && $assistantAppearance != "normal">>
diff --git a/src/uncategorized/newSlaveIntro.tw b/src/uncategorized/newSlaveIntro.tw
index 4f976115cd408eaaa854aa0d5a59ce03f2b82bbb..f6414e6f1d3c50c87700b6f8f2d1f6bc863e3d27 100644
--- a/src/uncategorized/newSlaveIntro.tw
+++ b/src/uncategorized/newSlaveIntro.tw
@@ -478,6 +478,7 @@ The legalities completed, ''__@@.pink;$activeSlave.slaveName@@__'' <<if ($active
 <</if>>
 
 <<if $activeSlave.devotion < -50>>
+	<<set $activeSlave.rudeTitle = 1>>
 	<<set $activeSlave.customTitle = $badNames.random()>>
 	<<set $activeSlave.customTitleLisp = $activeSlave.customTitle, $activeSlave.customTitleLisp = $activeSlave.customTitleLisp.replace("ss", "th"), $activeSlave.customTitleLisp = $activeSlave.customTitleLisp.replace("S", "Th"), $activeSlave.customTitleLisp = $activeSlave.customTitleLisp.replace("s", "th")>>
 <</if>>