From 6e5ce58651d36de6c9ae851349300e25dd7c40d6 Mon Sep 17 00:00:00 2001
From: Pregmodder <pregmodder@gmail.com>
Date: Tue, 7 Mar 2017 23:12:30 -0500
Subject: [PATCH] 0.9.9.5

---
 src/npc/acquisition.tw                        |   8 +-
 src/npc/startingGirls/startingGirls.tw        |   6 +-
 src/pregmod/newChildIntro.tw                  |   4 +-
 src/uncategorized/changeLanguage.tw           | 120 ++-
 src/uncategorized/generateXXSlave.tw          |  22 +-
 src/uncategorized/generateXYSlave.tw          |  22 +-
 src/uncategorized/householdLiquidator.tw      |  93 +-
 src/uncategorized/motherDaughterWorkaround.tw |  36 +-
 src/uncategorized/nationalityToAccent.tw      | 441 ---------
 src/uncategorized/nationalityToName.tw        | 204 ----
 .../newSlaveRaceNationalityAndName.tw         | 871 -----------------
 src/uncategorized/pRivalryHostage.tw          |   2 +-
 ...EgyptianRevivalistAcquisitionWorkaround.tw |   4 +-
 src/uncategorized/reRelativeRecruiter.tw      |   4 +-
 src/uncategorized/recETSWorkaround.tw         |   2 +-
 src/uncategorized/saBeYourHeadGirl.tw         |  34 +-
 src/uncategorized/seCustomSlaveDelivery.tw    |   6 +-
 src/uncategorized/siblingsWorkaround.tw       |  38 +-
 src/uncategorized/slaveGenerationWidgets.tw   | 886 ++++++++++++++++++
 src/uncategorized/slaveMarkets.tw             |   2 +-
 src/uncategorized/twinsWorkaround.tw          |  24 +-
 21 files changed, 1054 insertions(+), 1775 deletions(-)
 delete mode 100644 src/uncategorized/nationalityToAccent.tw
 delete mode 100644 src/uncategorized/nationalityToName.tw
 delete mode 100644 src/uncategorized/newSlaveRaceNationalityAndName.tw
 create mode 100644 src/uncategorized/slaveGenerationWidgets.tw

diff --git a/src/npc/acquisition.tw b/src/npc/acquisition.tw
index b9e72ae010d..ec1457e91ce 100644
--- a/src/npc/acquisition.tw
+++ b/src/npc/acquisition.tw
@@ -352,7 +352,7 @@ The previous owner seems to have left in something of a hurry.
 	<<case "EdoRevivalist">>
 		<<set $fixedRace = "asian">><<display "Generate New Slave">><<set $fixedRace = 0>>
 		<<set $activeSlave.nationality = "Japanese">>
-		<<NationalityToName>>
+		<<NationalityToName $activeSlave>>
 		<<set $activeSlave.accent = 0>>
 		<<set $activeSlave.devotion = random(25,45), $activeSlave.trust = random(25,45), $activeSlave.health = random(25,45)>>
 		<<set $activeSlave.face = random(1,3)>>
@@ -373,8 +373,8 @@ The previous owner seems to have left in something of a hurry.
 		<<set $one_time_age_overrides_pedo_mode to 1>>
 		<<set $fixedRace = "asian">><<display "Generate New Slave">><<set $fixedRace = 0>>
 		<<set $activeSlave.nationality = "Chinese">>
-		<<NationalityToName>>
-		<<NationalityToAccent>>
+		<<NationalityToName $activeSlave>>
+		<<NationalityToAccent $activeSlave>>
 		<<set $activeSlave.devotion = random(55,65), $activeSlave.trust = random(25,45), $activeSlave.health = random(25,45)>>
 		<<set $activeSlave.face = random(0,2)>>
 		<<set $activeSlave.accent = 0>>
@@ -439,7 +439,7 @@ The previous owner seems to have left in something of a hurry.
 	<<set $dump to $heroSlaves.pluck($j,$j)>>
 	<<slaveCost $activeSlave>>
 	<<if _valueGiven + $slaveCost < _valueOwed*2>>
-		<<NationalityToAccent>>
+		<<NationalityToAccent $activeSlave>>
 		<<set $activeSlave.pubicHColor to $activeSlave.hColor>>
 		<<set $activeSlave.pubicHStyle = "waxed">>
 		<<set $activeSlave.underArmHColor = $activeSlave.hColor>>
diff --git a/src/npc/startingGirls/startingGirls.tw b/src/npc/startingGirls/startingGirls.tw
index 1699e7e8875..c8ef5574c14 100644
--- a/src/npc/startingGirls/startingGirls.tw
+++ b/src/npc/startingGirls/startingGirls.tw
@@ -62,7 +62,7 @@
 	<</if>>
 	<<set $activeSlave.visualAge = $activeSlave.actualAge>>
 	<<set $activeSlave.physicalAge = $activeSlave.actualAge>>
-	<<NationalityToName>>
+	<<NationalityToName $activeSlave>>
 	<<set $activeSlave.slaveName = $activeSlave.birthName>>
 	<<set $activeSlave.ID = $IDNumber>>
 	<<set $IDNumber += 1>>
@@ -78,7 +78,7 @@
 	<</if>>
 	<<set $startingGirlCopied = 0>>
 <<elseif $archetyped == 1>>
-	<<NationalityToName>>
+	<<NationalityToName $activeSlave>>
 	<<set $activeSlave.slaveName = $activeSlave.birthName>>
 	<<set $archetyped = 0>>
 <</if>>
@@ -364,7 +364,7 @@ __You are customizing this slave:__
 <</click>>
 
 | <<click "Randomize name">>
-<<NationalityToName>>
+<<NationalityToName $activeSlave>>
 <<set $activeSlave.slaveName = $activeSlave.birthName>>
 <<SaleDescription>>
 <<StartingGirlsCost>>
diff --git a/src/pregmod/newChildIntro.tw b/src/pregmod/newChildIntro.tw
index c2116d1d6ce..840a336440a 100644
--- a/src/pregmod/newChildIntro.tw
+++ b/src/pregmod/newChildIntro.tw
@@ -41,7 +41,7 @@ You completed the legalities before heading to $incubatorName, knowing the tank
 <br>Choose a name for her. <<textbox "$activeSlave.slaveName" $activeSlave.slaveName "New Child Intro">>
 <br><<click "Have you PA assign her a random name">>
 	<<replace "#naming">>
-		<<NationalityToName>>
+		<<NationalityToName $activeSlave>>
 		<<set $activeSlave.birthName = $activeSlave.slaveName>>
 		$assistantName registers the new girl as "<<print $activeSlave.slaveName>>" in your registry.
 	<</replace>>
@@ -144,7 +144,7 @@ You completed the legalities before heading to $incubatorName, knowing the tank
 
 <br><br>
 
-''__@@color:pink;$activeSlave.slaveName@@__'' now stands before your desk
+<span id="newName"> ''__@@color:pink;$activeSlave.slaveName@@__''</span> now stands before your desk
 <<if $activeSlave.mother > 0 && $activeSlave.father > 0>>
 	alongside her mother _tempMom.slaveName and father _tempDad.slaveName.
 <<elseif $activeSlave.mother > 0>>
diff --git a/src/uncategorized/changeLanguage.tw b/src/uncategorized/changeLanguage.tw
index a923eee90c9..23ab0d18420 100644
--- a/src/uncategorized/changeLanguage.tw
+++ b/src/uncategorized/changeLanguage.tw
@@ -46,17 +46,15 @@ Select a custom language to be applied: <<textbox "$seed" $seed "Change Language
 	<<set $arcologies[0].prosperity = Math.trunc(0.9*$arcologies[0].prosperity)>>
 	<<for $i to 0; $i < $slaves.length; $i++>>
 		<<if $slaves[$i].fetish != "mindbroken">>
-		<<set $activeSlave to $slaves[$i]>>
-		<<NationalityToAccent>>
-		<<if ($activeSlave.intelligenceImplant == 1)>>
-		<<if ($activeSlave.accent >= 3)>>
-		<<if (3+$activeSlave.intelligence) > random(0,6)>>
-			<<set $activeSlave.accent -= 1>>
-		<</if>>
-		<</if>>
-		<</if>>
-		<<set $slaves[$i] to $activeSlave>>
-		<<set $cash -= 500>>
+			<<NationalityToAccent $slaves[$i]>>
+			<<if ($slaves[$i].intelligenceImplant == 1)>>
+			<<if ($slaves[$i].accent >= 3)>>
+			<<if (3+$slaves[$i].intelligence) > random(0,6)>>
+				<<set $slaves[$i].accent -= 1>>
+			<</if>>
+			<</if>>
+			<</if>>
+			<<set $cash -= 500>>
 		<</if>>
 	<</for>>
 	<br><br>//Language changed.//
@@ -70,17 +68,15 @@ Select a custom language to be applied: <<textbox "$seed" $seed "Change Language
 	<<set $arcologies[0].prosperity = Math.trunc(0.9*$arcologies[0].prosperity)>>
 	<<for $i to 0; $i < $slaves.length; $i++>>
 		<<if $slaves[$i].fetish != "mindbroken">>
-		<<set $activeSlave to $slaves[$i]>>
-		<<NationalityToAccent>>
-		<<if ($activeSlave.intelligenceImplant == 1)>>
-		<<if ($activeSlave.accent >= 3)>>
-		<<if (3+$activeSlave.intelligence) > random(0,6)>>
-			<<set $activeSlave.accent -= 1>>
-		<</if>>
-		<</if>>
-		<</if>>
-		<<set $slaves[$i] to $activeSlave>>
-		<<set $cash -= 500>>
+			<<NationalityToAccent $slaves[$i]>>
+			<<if ($slaves[$i].intelligenceImplant == 1)>>
+			<<if ($slaves[$i].accent >= 3)>>
+			<<if (3+$slaves[$i].intelligence) > random(0,6)>>
+				<<set $slaves[$i].accent -= 1>>
+			<</if>>
+			<</if>>
+			<</if>>
+			<<set $cash -= 500>>
 		<</if>>
 	<</for>>
 	<br><br>//Language changed.//
@@ -94,17 +90,15 @@ Select a custom language to be applied: <<textbox "$seed" $seed "Change Language
 	<<set $arcologies[0].prosperity = Math.trunc(0.9*$arcologies[0].prosperity)>>
 	<<for $i to 0; $i < $slaves.length; $i++>>
 		<<if $slaves[$i].fetish != "mindbroken">>
-		<<set $activeSlave to $slaves[$i]>>
-		<<NationalityToAccent>>
-		<<if ($activeSlave.intelligenceImplant == 1)>>
-		<<if ($activeSlave.accent >= 3)>>
-		<<if (3+$activeSlave.intelligence) > random(0,6)>>
-			<<set $activeSlave.accent -= 1>>
-		<</if>>
-		<</if>>
-		<</if>>
-		<<set $slaves[$i] to $activeSlave>>
-		<<set $cash -= 500>>
+			<<NationalityToAccent $slaves[$i]>>
+			<<if ($slaves[$i].intelligenceImplant == 1)>>
+			<<if ($slaves[$i].accent >= 3)>>
+			<<if (3+$slaves[$i].intelligence) > random(0,6)>>
+				<<set $slaves[$i].accent -= 1>>
+			<</if>>
+			<</if>>
+			<</if>>
+			<<set $cash -= 500>>
 		<</if>>
 	<</for>>
 	<br><br>//Language changed.//
@@ -118,17 +112,15 @@ Select a custom language to be applied: <<textbox "$seed" $seed "Change Language
 	<<set $arcologies[0].prosperity = Math.trunc(0.9*$arcologies[0].prosperity)>>
 	<<for $i to 0; $i < $slaves.length; $i++>>
 		<<if $slaves[$i].fetish != "mindbroken">>
-		<<set $activeSlave to $slaves[$i]>>
-		<<NationalityToAccent>>
-		<<if ($activeSlave.intelligenceImplant == 1)>>
-		<<if ($activeSlave.accent >= 3)>>
-		<<if (3+$activeSlave.intelligence) > random(0,6)>>
-			<<set $activeSlave.accent -= 1>>
-		<</if>>
-		<</if>>
-		<</if>>
-		<<set $slaves[$i] to $activeSlave>>
-		<<set $cash -= 500>>
+			<<NationalityToAccent $slaves[$i]>>
+			<<if ($slaves[$i].intelligenceImplant == 1)>>
+			<<if ($slaves[$i].accent >= 3)>>
+			<<if (3+$slaves[$i].intelligence) > random(0,6)>>
+				<<set $slaves[$i].accent -= 1>>
+			<</if>>
+			<</if>>
+			<</if>>
+			<<set $cash -= 500>>
 		<</if>>
 	<</for>>
 	<br><br>//Language changed.//
@@ -142,17 +134,15 @@ Select a custom language to be applied: <<textbox "$seed" $seed "Change Language
 	<<set $arcologies[0].prosperity = Math.trunc(0.9*$arcologies[0].prosperity)>>
 	<<for $i to 0; $i < $slaves.length; $i++>>
 		<<if $slaves[$i].fetish != "mindbroken">>
-		<<set $activeSlave to $slaves[$i]>>
-		<<NationalityToAccent>>
-		<<if ($activeSlave.intelligenceImplant == 1)>>
-		<<if ($activeSlave.accent >= 3)>>
-		<<if (3+$activeSlave.intelligence) > random(0,6)>>
-			<<set $activeSlave.accent -= 1>>
-		<</if>>
-		<</if>>
-		<</if>>
-		<<set $slaves[$i] to $activeSlave>>
-		<<set $cash -= 500>>
+			<<NationalityToAccent $slaves[$i]>>
+			<<if ($slaves[$i].intelligenceImplant == 1)>>
+			<<if ($slaves[$i].accent >= 3)>>
+			<<if (3+$slaves[$i].intelligence) > random(0,6)>>
+				<<set $slaves[$i].accent -= 1>>
+			<</if>>
+			<</if>>
+			<</if>>
+			<<set $cash -= 500>>
 		<</if>>
 	<</for>>
 	<br><br>//Language changed.//
@@ -166,17 +156,15 @@ Select a custom language to be applied: <<textbox "$seed" $seed "Change Language
 	<<set $arcologies[0].prosperity = Math.trunc(0.9*$arcologies[0].prosperity)>>
 	<<for $i to 0; $i < $slaves.length; $i++>>
 		<<if $slaves[$i].fetish != "mindbroken">>
-		<<set $activeSlave to $slaves[$i]>>
-		<<NationalityToAccent>>
-		<<if ($activeSlave.intelligenceImplant == 1)>>
-		<<if ($activeSlave.accent >= 3)>>
-		<<if (3+$activeSlave.intelligence) > random(0,6)>>
-			<<set $activeSlave.accent -= 1>>
-		<</if>>
-		<</if>>
-		<</if>>
-		<<set $slaves[$i] to $activeSlave>>
-		<<set $cash -= 500>>
+			<<NationalityToAccent $slaves[$i]>>
+			<<if ($slaves[$i].intelligenceImplant == 1)>>
+			<<if ($slaves[$i].accent >= 3)>>
+			<<if (3+$slaves[$i].intelligence) > random(0,6)>>
+				<<set $slaves[$i].accent -= 1>>
+			<</if>>
+			<</if>>
+			<</if>>
+			<<set $cash -= 500>>
 		<</if>>
 	<</for>>
 	<br><br>//Language changed.//
diff --git a/src/uncategorized/generateXXSlave.tw b/src/uncategorized/generateXXSlave.tw
index 97d116433bb..a92a677fe66 100644
--- a/src/uncategorized/generateXXSlave.tw
+++ b/src/uncategorized/generateXXSlave.tw
@@ -166,9 +166,9 @@
 <<else>>
 	<<set $activeSlave.nationality to $fixedNationality>>
 <</if>>
-<<NationalityToRace>>
-<<NationalityToName>>
-<<NationalityToAccent>>
+<<NationalityToRace $activeSlave>>
+<<NationalityToName $activeSlave>>
+<<NationalityToAccent $activeSlave>>
 
 <<set $seed to 162.5>>
 
@@ -510,22 +510,6 @@
 	<<set $activeSlave.faceShape to either("androgynous", "androgynous", "cute", "cute", "sensual", "exotic", "normal", "normal")>>
 <</if>>
 
-<<if $useFSNames == 0>>
-	<<set $activeSlave.slaveName to $activeSlave.birthName>>
-<<elseif $arcologies[0].FSChattelReligionist > 20>>
-	<<set $activeSlave.slaveName to $chattelReligionistSlaveNames.random()>>
-<<elseif $arcologies[0].FSRomanRevivalist > 20>>
-	<<set $activeSlave.slaveName to $romanSlaveNames.random()>>
-<<elseif $arcologies[0].FSEgyptianRevivalist > 20>>
-	<<set $activeSlave.slaveName to $ancientEgyptianSlaveNames.random()>>
-<<elseif $arcologies[0].FSEdoRevivalist > 20>>
-	<<set $activeSlave.slaveName to $edoSlaveNames.random()>>
-<<elseif $arcologies[0].FSDegradationist != "unset">>
-	<<display "Degrading Name">>
-<<else>>
-	<<set $activeSlave.slaveName to $activeSlave.birthName>>
-<</if>>
-
 <<if ($weightAffectsAssets != 0)>>
 	<<if $activeSlave.weight < -10 and $activeSlave.butt > 1>>
 		<<set $activeSlave.butt -= 1>>
diff --git a/src/uncategorized/generateXYSlave.tw b/src/uncategorized/generateXYSlave.tw
index 02e3e279b2d..f66afeb2dff 100644
--- a/src/uncategorized/generateXYSlave.tw
+++ b/src/uncategorized/generateXYSlave.tw
@@ -173,9 +173,9 @@
 <<else>>
 	<<set $activeSlave.nationality to $fixedNationality>>
 <</if>>
-<<NationalityToRace>>
-<<NationalityToName>>
-<<NationalityToAccent>>
+<<NationalityToRace $activeSlave>>
+<<NationalityToName $activeSlave>>
+<<NationalityToAccent $activeSlave>>
 
 <<set $seed to 172.5>>
 <<if $activeSlave.race is "white">>
@@ -516,22 +516,6 @@
   <<set $activeSlave.faceShape to either("androgynous", "androgynous", "cute", "cute", "sensual", "exotic", "normal", "normal")>>
 <</if>>
 
-<<if $useFSNames == 0>>
-	<<set $activeSlave.slaveName to $activeSlave.birthName>>
-<<elseif $arcologies[0].FSChattelReligionist > 20>>
-	<<set $activeSlave.slaveName to $chattelReligionistSlaveNames.random()>>
-<<elseif $arcologies[0].FSRomanRevivalist > 20>>
-	<<set $activeSlave.slaveName to $romanSlaveNames.random()>>
-<<elseif $arcologies[0].FSEgyptianRevivalist > 20>>
-	<<set $activeSlave.slaveName to $ancientEgyptianSlaveNames.random()>>
-<<elseif $arcologies[0].FSEdoRevivalist > 20>>
-	<<set $activeSlave.slaveName to $edoSlaveNames.random()>>
-<<elseif $arcologies[0].FSDegradationist != "unset">>
-	<<display "Degrading Name">>
-<<else>>
-	<<set $activeSlave.slaveName to $activeSlave.birthName>>
-<</if>>
-
 <<if $activeSlave.boobs < 250>>
 	<<set $activeSlave.nipples to either("tiny", "tiny", "tiny", "tiny", "cute", "cute", "puffy", "partially inverted")>>
 <<elseif $activeSlave.boobs < 500>>
diff --git a/src/uncategorized/householdLiquidator.tw b/src/uncategorized/householdLiquidator.tw
index bb7bfd0021b..16c2022c4ce 100644
--- a/src/uncategorized/householdLiquidator.tw
+++ b/src/uncategorized/householdLiquidator.tw
@@ -1,15 +1,11 @@
-:: Household Liquidator
+:: Household Liquidator [nobr]
 
-<<set $nextButton to "Back">>\
-<<set $nextLink to "Buy Slaves">>\
-<<set $returnTo to "Buy Slaves">>\
-<<set $showEncyclopedia to 1>><<set $encyclopedia to "Household Liquidations">>\
-\
-<<if random(1,100) > 50>>\
-\
-The household liquidator is offering a set of siblings for sale. As usual, you will only be permitted to inspect the older, but there is a guarantee that the younger will be similar.\
+<<set $nextButton to "Back", $nextLink to "Buy Slaves", $returnTo to "Buy Slaves", $showEncyclopedia to 1, $encyclopedia to "Household Liquidations">>
 
-<<nobr>>
+<<if random(1,100) > 50>>
+
+The household liquidator is offering a set of siblings for sale. As usual, you will only be permitted to inspect the older, but there is a guarantee that the younger will be similar.
+<br><br>
 
 <<display "Generate New Slave">>
 <<set $activeSlave.origin to "You bought her from the household liquidator.">>
@@ -32,29 +28,27 @@ The household liquidator is offering a set of siblings for sale. As usual, you w
 
 <<slaveCost $activeSlave>>
 
-<</nobr>>\
-
 The price is ¤<<print $slaveCost*3>>.
+<br><br>
 
-<<nobr>>
 <<if $cash >= $slaveCost*3>>
-	[[Buy their slave contract|Siblings Workaround][$cash -= $slaveCost*3,$nextButton to "Continue",$nextLink to "AS Dump",$returnTo to "Main"]]
+	[[Buy their slave contract|Siblings Workaround][$cash -= $slaveCost*3,$nextButton to "Continue",$nextLink to "Main"]]
 <<else>>
 	//You lack the necessary funds to buy these slaves.//
 <</if>>
-<</nobr>>
-[[Decline to purchase them and check out another set of slaves|Household Liquidator]]
-
-<<set $saleDescription to 1>>\
-<<set $applyLaw to 1>>\
-<<display "Long Slave Description">>\
-<<set $saleDescription to 0>>\
-\
-<<elseif random(1,100) > 20>>\
-\
-The household liquidator is offering a mother and her daughter for sale. As usual, you will only be permitted to inspect the mother, but there is a guarantee that the daughter will be similar.\
-
-<<nobr>>
+<br>[[Decline to purchase them and check out another set of slaves|Household Liquidator][$slavesSeen += 2]]
+<br><br>
+
+<<set $saleDescription to 1>>
+<<set $applyLaw to 1>>
+<<display "Long Slave Description">>
+<<set $saleDescription to 0>>
+
+<<elseif random(1,100) > 20>>
+
+The household liquidator is offering a mother and her daughter for sale. As usual, you will only be permitted to inspect the mother, but there is a guarantee that the daughter will be similar.
+<br><br>
+
 /% Begin younger mothers submod. %/
 <<set $activeSlaveOneTimeMinAge to $fertilityAge + $minimumSlaveAge>>
 <<set $activeSlaveOneTimeMaxAge to 42>>
@@ -83,29 +77,26 @@ The household liquidator is offering a mother and her daughter for sale. As usua
 <<slaveCost $activeSlave>>
 <<if $slavesSeen > $slaveMarketLimit>><<set $slaveCost += Math.trunc($slaveCost*(($slavesSeen-$slaveMarketLimit)*0.1))>><</if>>
 
-<</nobr>>\
-
 The price is ¤<<print $slaveCost*3>>.<<if $slavesSeen > $slaveMarketLimit>> You have cast such a wide net for slaves this week that it is becoming more expensive to find more for sale. Your reputation helps determine your reach within the slave market.<</if>>
+<br><br>
 
-<<nobr>>
 <<if $cash >= $slaveCost*3>>
-	[[Buy their slave contract|Mother Daughter Workaround][$cash -= $slaveCost*3,"Continue",$nextLink to "AS Dump",$returnTo to "Main"]]
+	[[Buy their slave contract|Mother Daughter Workaround][$cash -= $slaveCost*3,"Continue",$nextLink to "Main"]]
 <<else>>
 	//You lack the necessary funds to buy these slaves.//
 <</if>>
-<</nobr>>
-[[Decline to purchase them and check out another set of slaves|Household Liquidator]]
+<br>[[Decline to purchase them and check out another set of slaves|Household Liquidator][$slavesSeen += 2]]
+<br><br>
 
-<<set $saleDescription to 1>>\
-<<set $applyLaw to 1>>\
-<<display "Long Slave Description">>\
-<<set $saleDescription to 0>>\
-\
-<<else>>\
-\
-The household liquidator is offering something special: twins. The markup is huge, but the merchandise isn't something you see every day.\
+<<set $saleDescription to 1>>
+<<set $applyLaw to 1>>
+<<display "Long Slave Description">>
+<<set $saleDescription to 0>>
 
-<<nobr>>
+<<else>>
+
+The household liquidator is offering something special: twins. The markup is huge, but the merchandise isn't something you see every day.
+<br><br>
 
 <<display "Generate New Slave">>
 <<set $activeSlave.origin to "You bought her from the household liquidator.">>
@@ -127,22 +118,20 @@ The household liquidator is offering something special: twins. The markup is hug
 <</if>>
 <<slaveCost $activeSlave>>
 
-<</nobr>>\
-
 The price is ¤<<print $slaveCost*4>>.<<if $slavesSeen > $slaveMarketLimit>> You have cast such a wide net for slaves this week that it is becoming more expensive to find more for sale. Your reputation helps determine your reach within the slave market.<</if>>
+<br><br>
 
-<<nobr>>
 <<if $cash >= $slaveCost*4>>
-	[[Buy their slave contract|Twins Workaround][$cash -= $slaveCost*4,$nextButton to "Continue",$nextLink to "AS Dump",$returnTo to "Main"]]
+	[[Buy their slave contract|Twins Workaround][$cash -= $slaveCost*4,$nextButton to "Continue",$nextLink to "Main"]]
 <<else>>
 	//You lack the necessary funds to buy these slaves.//
 <</if>>
-<</nobr>>
-[[Decline to purchase them and check out another set of slaves|Household Liquidator][$slavesSeen += 2]]
+<br>[[Decline to purchase them and check out another set of slaves|Household Liquidator][$slavesSeen += 2]]
+<br><br>
 
-<<set $saleDescription to 1>>\
-<<set $applyLaw to 1>>\
-<<display "Long Slave Description">>\
-<<set $saleDescription to 0>>\
+<<set $saleDescription to 1>>
+<<set $applyLaw to 1>>
+<<display "Long Slave Description">>
+<<set $saleDescription to 0>>
 
 <</if>>
diff --git a/src/uncategorized/motherDaughterWorkaround.tw b/src/uncategorized/motherDaughterWorkaround.tw
index 7349d934663..1c62d1e160a 100644
--- a/src/uncategorized/motherDaughterWorkaround.tw
+++ b/src/uncategorized/motherDaughterWorkaround.tw
@@ -4,27 +4,11 @@ Your new pair of slaves look frightened and uncertain, but seem encouraged by ea
 
 <<AddSlave $activeSlave>>
 
-<<NationalityToName>>
-<<NationalityToAccent>>
-<<set _secondSlave to $activeSlave>>
+<<set _secondSlave to clone($activeSlave)>>
+<<unset $activeSlave>>
+<<NationalityToName _secondSlave>>
+<<NationalityToAccent _secondSlave>>
 
-<<if $useFSNames == 0>>
-	<<set _secondSlave.slaveName to _secondSlave.birthName>>
-<<elseif $arcologies[0].FSChattelReligionist > 20>>
-	<<set _secondSlave.slaveName to $chattelReligionistSlaveNames.random()>>
-<<elseif $arcologies[0].FSRomanRevivalist > 20>>
-	<<set _secondSlave.slaveName to $romanSlaveNames.random()>>
-<<elseif $arcologies[0].FSEgyptianRevivalist > 20>>
-	<<set _secondSlave.slaveName to $ancientEgyptianSlaveNames.random()>>
-<<elseif $arcologies[0].FSEdoRevivalist > 20>>
-	<<set _secondSlave.slaveName to $edoSlaveNames.random()>>
-<<elseif $arcologies[0].FSDegradationist != "unset">>
-	<<display "Degrading Name">>
-<<else>>
-	<<set _secondSlave.slaveName to _secondSlave.birthName>>
-<</if>>
-
-<<set _secondSlave.slaveName to _secondSlave.birthName>>
 <<set _secondSlave.ID to _secondSlave.ID + 1000>>
 <<set _secondSlave.devotion -= random(1,3)>>
 <<set _secondSlave.oldDevotion to _secondSlave.devotion>>
@@ -33,7 +17,7 @@ Your new pair of slaves look frightened and uncertain, but seem encouraged by ea
 <<set _secondSlave.health += 30>>
 <<set _secondSlave.boobs -= 100>>
 <<set _secondSlave.butt -= 1>>
-<<if $activeSlave.vagina > -1>><<set $activeSlave.vagina -= 1>><</if>>
+<<if _secondSlave.vagina > -1>><<set _secondSlave.vagina -= 1>><</if>>
 
 <<set $activeSlaveOneTimeMaxAge to Math.min(22, Math.max($minimumSlaveAge, _secondSlave.actualAge - 11))>>
 <<set $activeSlaveOneTimeMinAge to Math.min(Math.max(8, $minimumSlaveAge), $activeSlaveOneTimeMaxAge)>>
@@ -49,11 +33,11 @@ Your new pair of slaves look frightened and uncertain, but seem encouraged by ea
 <<set _secondSlave.energy += random(-20,20)>>
 <<set _secondSlave.fetishStrength to random(0,90)>>
 <<set _secondSlave.fetish to either("none", "none", "none", "none", "none", "none", "submissive", "cumslut", "humiliation", "buttslut", "pregnancy", "sadist", "dom", "masochist")>>
-<<set $activeSlave.behavioralFlaw to either("none", "none", "none", "arrogant", "bitchy", "odd", "hates men", "hates women", "hates women", "anorexic", "masochist", "gluttonous", "devout", "liberated")>>
-<<if ($activeSlave.behavioralFlaw is "devout")>>
-	<<set $activeSlave.sexualFlaw to either("none", "repressed",  "shamefast", "apathetic")>>
+<<set _secondSlave.behavioralFlaw to either("none", "none", "none", "arrogant", "bitchy", "odd", "hates men", "hates women", "hates women", "anorexic", "masochist", "gluttonous", "devout", "liberated")>>
+<<if (_secondSlave.behavioralFlaw is "devout")>>
+	<<set _secondSlave.sexualFlaw to either("none", "repressed",  "shamefast", "apathetic")>>
 <<else>>
-	<<set $activeSlave.sexualFlaw to either("none", "none", "none", "none", "hates oral", "hates anal", "hates penetration", "repressed", "idealistic", "shamefast", "apathetic", "crude", "judgemental")>>
+	<<set _secondSlave.sexualFlaw to either("none", "none", "none", "none", "hates oral", "hates anal", "hates penetration", "repressed", "idealistic", "shamefast", "apathetic", "crude", "judgemental")>>
 <</if>>
 
 <<if $familyTesting == 1>>
@@ -72,4 +56,4 @@ Your new pair of slaves look frightened and uncertain, but seem encouraged by ea
 	<<set _secondSlave.butt += random(-1, 1)>>
 <</if>>
 
-<<AddSlave _secondSlave)>>
\ No newline at end of file
+<<AddSlave _secondSlave>>
\ No newline at end of file
diff --git a/src/uncategorized/nationalityToAccent.tw b/src/uncategorized/nationalityToAccent.tw
deleted file mode 100644
index b49d40b4f91..00000000000
--- a/src/uncategorized/nationalityToAccent.tw
+++ /dev/null
@@ -1,441 +0,0 @@
-:: Nationality to Accent [nobr]
- 
-<<set $seed to either(0,1,1,2,2,2,3,3,3,3)>>
-
-<<if ($activeSlave.nationality is "American")>>
-	<<if $activeSlave.race is "black">>
-	<<if $language is "English">>
-		<<set $activeSlave.accent to 0>>
-	<<else>>
-		<<set $activeSlave.accent to either(0,1,1,2,2,2,3,3,3,3)>>
-	<</if>>
-	<<elseif $activeSlave.race is "latina">>
-	<<if $language is "English">>
-		<<set $activeSlave.accent to 0>>
-	<<elseif $language is "Spanish">>
-		<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-		<<set $activeSlave.accent to $seed>>
-	<</if>>
-	<<elseif $activeSlave.race is "asian">>
-	<<if $language is "English">>
-		<<set $activeSlave.accent to 0>>
-	<<elseif $language is "Chinese">>
-		<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-		<<set $activeSlave.accent to $seed>>
-	<</if>>
-	<<elseif $activeSlave.race is "middle eastern">>
-	<<if $language is "English">>
-		<<set $activeSlave.accent to 0>>
-	<<elseif $language is "Arabic">>
-		<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-		<<set $activeSlave.accent to $seed>>
-	<</if>>
-	<<else>>
-	<<if $language is "English">>
-		<<set $activeSlave.accent to 0>>
-	<<else>>
-		<<set $activeSlave.accent to $seed>>
-	<</if>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Canadian")>>
-	<<if $language is "English">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Mexican")>>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Dominican")>>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Puerto Rican")>>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Haitian")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Jamaican")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Cuban")>>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Guatemalan")>>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Chilean")>>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Peruvian")>>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Bolivian")>>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Venezuelan")>>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Russian")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Ukrainian")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Italian")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Spanish")>>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "British")>>
-	<<if $language is "English">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "French")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "German")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Lithuanian")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Norwegian")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Slovak")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Danish")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Dutch")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Austrian")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Swiss")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Serbian")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Belgian")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Czech")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Portuguese")>>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Swedish")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Romanian")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Hungarian")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Estonian")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Irish")>>
-	<<if $language is "English">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Icelandic")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Finnish")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Greek")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Polish")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Brazilian")>>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Egyptian")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Colombian")>>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Argentinian")>>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Turkish")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Iranian")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Armenian")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Israeli")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Saudi")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "South African")>>
-	<<if $language is "English">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Nigerian")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Congolese")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Kenyan")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Tanzanian")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Zimbabwean")>>
-	<<if $language is "English" && $activeSlave.race == "white">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Ghanan")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Ugandan")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Ethiopian")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Moroccan")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Chinese")>>
-	<<if $language is "Chinese">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Korean")>>
-	<<if $language is "Chinese">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Thai")>>
-	<<if $language is "Chinese">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Vietnamese")>>
-	<<if $language is "Chinese">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Japanese")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Indonesian")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Filipina")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Bangladeshi")>>
-	<<if $language is "Indian">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Malaysian")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Uzbek")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Afghan")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Nepalese")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Burmese")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Iraqi")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Yemeni")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Sudanese")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Algerian")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Tunisian")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Libyan")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Omani")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Malian")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Jordanian")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Lebanese")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Emirati")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Kazakh")>>
-	<<set $activeSlave.accent to $seed>>
-<<elseif ($activeSlave.nationality is "Pakistani")>>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Indian")>>
-	<<if $language is "Indian">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Australian")>>
-	<<if $language is "English">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif ($activeSlave.nationality is "a New Zealander")>>
-	<<if $language is "English">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif $activeSlave.nationality is "Roman Revivalist">>
-	<<if $language is "Latin">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif $activeSlave.nationality is "Ancient Egyptian Revivalist">>
-	<<if $language is "Ancient Egyptian">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif $activeSlave.nationality is "Edo Revivalist">>
-	<<if $language is "Japanese">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif $activeSlave.nationality is "Arabian Revivalist">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<elseif $activeSlave.nationality is "Ancient Chinese Revivalist">>
-	<<if $language is "Chinese">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<else>>
-	<<set $activeSlave.accent to $seed>>
-<</if>>
-
-<<if $activeSlave.nationality is $language>>
-	<<set $activeSlave.accent to 0>>
-<</if>>
diff --git a/src/uncategorized/nationalityToName.tw b/src/uncategorized/nationalityToName.tw
deleted file mode 100644
index c068e502b0c..00000000000
--- a/src/uncategorized/nationalityToName.tw
+++ /dev/null
@@ -1,204 +0,0 @@
-:: Nationality to Name [nobr]
- 
-<<switch $activeSlave.nationality>>
-<<case "American">>
-	<<if $activeSlave.race is "black">>
-		<<set $activeSlave.birthName to $africanAmericanSlaveNames.random()>>
-	<<elseif $activeSlave.race is "latina">>
-		<<set $activeSlave.birthName to $latinaSlaveNames.random()>>
-	<<elseif $activeSlave.race is "asian">>
-		<<set $activeSlave.birthName to $asianAmericanSlaveNames.random()>>
-	<<elseif $activeSlave.race is "middle eastern">>
-		<<set $activeSlave.birthName to $egyptianSlaveNames.random()>>
-	<<else>>
-		<<set $activeSlave.birthName to $whiteAmericanSlaveNames.random()>>
-	<</if>>
-<<case "Canadian">>
-	<<set $activeSlave.birthName to $canadianSlaveNames.random()>>
-<<case "Mexican">>
-	<<set $activeSlave.birthName to $mexicanSlaveNames.random()>>
-<<case "Dominican">>
-	<<set $activeSlave.birthName to $dominicanSlaveNames.random()>>
-<<case "Puerto Rican">>
-	<<set $activeSlave.birthName to $puertoRicanSlaveNames.random()>>
-<<case "Haitian">>
-	<<set $activeSlave.birthName to $haitianSlaveNames.random()>>
-<<case "Jamaican">>
-	<<set $activeSlave.birthName to $jamaicanSlaveNames.random()>>
-<<case "Cuban">>
-	<<set $activeSlave.birthName to $cubanSlaveNames.random()>>
-<<case "Guatemalan">>
-	<<set $activeSlave.birthName to $guatemalanSlaveNames.random()>>
-<<case "Chilean">>
-	<<set $activeSlave.birthName to $chileanSlaveNames.random()>>
-<<case "Peruvian">>
-	<<set $activeSlave.birthName to $peruvianSlaveNames.random()>>
-<<case "Bolivian">>
-	<<set $activeSlave.birthName to $bolivianSlaveNames.random()>>
-<<case "Venezuelan">>
-	<<set $activeSlave.birthName to $venezuelanSlaveNames.random()>>
-<<case "Belarusian">>
-	<<set $activeSlave.birthName to $belarusianSlaveNames.random()>>
-<<case "Russian">>
-	<<set $activeSlave.birthName to $russianSlaveNames.random()>>
-<<case "Ukrainian">>
-	<<set $activeSlave.birthName to $ukrainianSlaveNames.random()>>
-<<case "Italian">>
-	<<set $activeSlave.birthName to $italianSlaveNames.random()>>
-<<case "Spanish">>
-	<<set $activeSlave.birthName to $spanishSlaveNames.random()>>
-<<case "British">>
-	<<set $activeSlave.birthName to $britishSlaveNames.random()>>
-<<case "Scottish">>
-	<<set $activeSlave.birthName to $scottishSlaveNames.random()>>
-<<case "French">>
-	<<set $activeSlave.birthName to $frenchSlaveNames.random()>>
-<<case "German">>
-	<<set $activeSlave.birthName to $germanSlaveNames.random()>>
-<<case "Lithuanian">>
-	<<set $activeSlave.birthName to $lithuanianSlaveNames.random()>>
-<<case "Norwegian">>
-	<<set $activeSlave.birthName to $norwegianSlaveNames.random()>>
-<<case "Slovak">>
-	<<set $activeSlave.birthName to $slovakSlaveNames.random()>>
-<<case "Danish">>
-	<<set $activeSlave.birthName to $danishSlaveNames.random()>>
-<<case "Dutch">>
-	<<set $activeSlave.birthName to $dutchSlaveNames.random()>>
-<<case "Austrian">>
-	<<set $activeSlave.birthName to $austrianSlaveNames.random()>>
-<<case "Swiss">>
-	<<set $activeSlave.birthName to $swissSlaveNames.random()>>
-<<case "Serbian">>
-	<<set $activeSlave.birthName to $serbianSlaveNames.random()>>
-<<case "Belgian">>
-	<<set $activeSlave.birthName to $belgianSlaveNames.random()>>
-<<case "Czech">>
-	<<set $activeSlave.birthName to $czechSlaveNames.random()>>
-<<case "Portuguese">>
-	<<set $activeSlave.birthName to $portugueseSlaveNames.random()>>
-<<case "Swedish">>
-	<<set $activeSlave.birthName to $swedishSlaveNames.random()>>
-<<case "Romanian">>
-	<<set $activeSlave.birthName to $romanianSlaveNames.random()>>
-<<case "Hungarian">>
-	<<set $activeSlave.birthName to $hungarianSlaveNames.random()>>
-<<case "Estonian">>
-	<<set $activeSlave.birthName to $estonianSlaveNames.random()>>
-<<case "Irish">>
-	<<set $activeSlave.birthName to $irishSlaveNames.random()>>
-<<case "Icelandic">>
-	<<set $activeSlave.birthName to $icelandicSlaveNames.random()>>
-<<case "Finnish">>
-	<<set $activeSlave.birthName to $finnishSlaveNames.random()>>
-<<case "Greek">>
-	<<set $activeSlave.birthName to $greekSlaveNames.random()>>
-<<case "Polish">>
-	<<set $activeSlave.birthName to $polishSlaveNames.random()>>
-<<case "Brazilian">>
-	<<set $activeSlave.birthName to $brazilianSlaveNames.random()>>
-<<case "Egyptian">>
-	<<set $activeSlave.birthName to $egyptianSlaveNames.random()>>
-<<case "Colombian">>
-	<<set $activeSlave.birthName to $colombianSlaveNames.random()>>
-<<case "Argentinian">>
-	<<set $activeSlave.birthName to $argentinianSlaveNames.random()>>
-<<case "Turkish">>
-	<<set $activeSlave.birthName to $turkishSlaveNames.random()>>
-<<case "Iranian">>
-	<<set $activeSlave.birthName to $iranianSlaveNames.random()>>
-<<case "Armenian">>
-	<<set $activeSlave.birthName to $armenianSlaveNames.random()>>
-<<case "Israeli">>
-	<<set $activeSlave.birthName to $israeliSlaveNames.random()>>
-<<case "Saudi">>
-	<<set $activeSlave.birthName to $saudiSlaveNames.random()>>
-<<case "South African">>
-	<<if $activeSlave.race is "black">>
-		<<set $activeSlave.birthName to $blackSouthAfricanSlaveNames.random()>>
-	<<else>>
-		<<set $activeSlave.birthName to $whiteSouthAfricanSlaveNames.random()>>
-	<</if>>
-<<case "Nigerian">>
-	<<set $activeSlave.birthName to $nigerianSlaveNames.random()>>
-<<case "Congolese">>
-	<<set $activeSlave.birthName to $congoleseSlaveNames.random()>>
-<<case "Kenyan">>
-	<<set $activeSlave.birthName to $kenyanSlaveNames.random()>>
-<<case "Tanzanian">>
-	<<set $activeSlave.birthName to $tanzanianSlaveNames.random()>>
-<<case "Zimbabwean">>
-	<<if $activeSlave.race == "white">>
-		<<set $activeSlave.birthName to $britishSlaveNames.random()>>
-	<<else>>
-		<<set $activeSlave.birthName to $zimbabweanSlaveNames.random()>>
-	<</if>>
-<<case "Ghanan">>
-	<<set $activeSlave.birthName to $ghananSlaveNames.random()>>
-<<case "Ugandan">>
-	<<set $activeSlave.birthName to $ugandanSlaveNames.random()>>
-<<case "Ethiopian">>
-	<<set $activeSlave.birthName to $ethiopianSlaveNames.random()>>
-<<case "Moroccan">>
-	<<set $activeSlave.birthName to $moroccanSlaveNames.random()>>
-<<case "Chinese">>
-	<<set $activeSlave.birthName to $chineseSlaveNames.random()>>
-<<case "Korean">>
-	<<set $activeSlave.birthName to $koreanSlaveNames.random()>>
-<<case "Thai">>
-	<<set $activeSlave.birthName to $thaiSlaveNames.random()>>
-<<case "Vietnamese">>
-	<<set $activeSlave.birthName to $vietnameseSlaveNames.random()>>
-<<case "Japanese">>
-	<<set $activeSlave.birthName to $japaneseSlaveNames.random()>>
-<<case "Indonesian">>
-	<<set $activeSlave.birthName to $indonesianSlaveNames.random()>>
-<<case "Filipina">>
-	<<set $activeSlave.birthName to $filipinaSlaveNames.random()>>
-<<case "Bangladeshi">>
-	<<set $activeSlave.birthName to $bangladeshiSlaveNames.random()>>
-<<case "Malaysian">>
-	<<set $activeSlave.birthName to $malaysianSlaveNames.random()>>
-<<case "Uzbek">>
-	<<set $activeSlave.birthName to $uzbekSlaveNames.random()>>
-<<case "Afghan">>
-	<<set $activeSlave.birthName to $afghanSlaveNames.random()>>
-<<case "Nepalese">>
-	<<set $activeSlave.birthName to $nepaleseSlaveNames.random()>>
-<<case "Burmese">>
-	<<set $activeSlave.birthName to $burmeseSlaveNames.random()>>
-<<case "Iraqi">>
-	<<set $activeSlave.birthName to $iraqiSlaveNames.random()>>
-<<case "Yemeni">>
-	<<set $activeSlave.birthName to $yemeniSlaveNames.random()>>
-<<case "Sudanese">>
-	<<set $activeSlave.birthName to $sudaneseSlaveNames.random()>>
-<<case "Algerian">>
-	<<set $activeSlave.birthName to $algerianSlaveNames.random()>>
-<<case "Tunisian">>
-	<<set $activeSlave.birthName to $tunisianSlaveNames.random()>>
-<<case "Libyan">>
-	<<set $activeSlave.birthName to $libyanSlaveNames.random()>>
-<<case "Omani">>
-	<<set $activeSlave.birthName to $omaniSlaveNames.random()>>
-<<case "Malian">>
-	<<set $activeSlave.birthName to $malianSlaveNames.random()>>
-<<case "Jordanian">>
-	<<set $activeSlave.birthName to $jordanianSlaveNames.random()>>
-<<case "Lebanese">>
-	<<set $activeSlave.birthName to $lebaneseSlaveNames.random()>>
-<<case "Emirati">>
-	<<set $activeSlave.birthName to $emiratiSlaveNames.random()>>
-<<case "Kazakh">>
-	<<set $activeSlave.birthName to $kazakhSlaveNames.random()>>
-<<case "Pakistani">>
-	<<set $activeSlave.birthName to $pakistaniSlaveNames.random()>>
-<<case "Indian">>
-	<<set $activeSlave.birthName to $indianSlaveNames.random()>>
-<<case "Australian">>
-	<<set $activeSlave.birthName to $australianSlaveNames.random()>>
-<<case "a New Zealander">>
-	<<set $activeSlave.birthName to $newZealanderSlaveNames.random()>>
-<<default>>
-	<<set $activeSlave.birthName to $whiteAmericanSlaveNames.random()>>
-<</switch>>
diff --git a/src/uncategorized/newSlaveRaceNationalityAndName.tw b/src/uncategorized/newSlaveRaceNationalityAndName.tw
deleted file mode 100644
index f130c69d9b3..00000000000
--- a/src/uncategorized/newSlaveRaceNationalityAndName.tw
+++ /dev/null
@@ -1,871 +0,0 @@
-:: New Slave Race Nationality and Name [nobr widget]
-
-<<widget "NationalityToRace">>
-
-<<switch $activeSlave.nationality>>
-<<case "American">>
-	<<set $activeSlave.race to either("black", "middle eastern", "white", "white", "white", "latina", "latina", "asian", "amerindian", "mixed race")>>
-<<case "Canadian">>
-	<<set $activeSlave.race to either("white", "white", "white", "white", "amerindian")>>
-<<case "Puerto Rican">>
-	<<set $activeSlave.race to either("latina")>>
-<<case "Cuban">>
-	<<set $activeSlave.race to either("latina", "black")>>
-<<case "Haitian">>
-	<<set $activeSlave.race to either("black")>>
-<<case "Jamaican">>
-	<<set $activeSlave.race to either("black")>>
-<<case "Mexican">>
-	<<set $activeSlave.race to either("latina", "latina", "latina", "latina", "latina", "amerindian")>>
-<<case "Dominican">>
-	<<set $activeSlave.race to either("mixed race", "mixed race", "mixed race", "mixed race", "mixed race", "mixed race", "mixed race", "white", "white", "black")>>
-<<case "Peruvian">>
-	<<set $activeSlave.race to either("latina", "amerindian")>>
-<<case "Venezuelan">>
-	<<set $activeSlave.race to either("latina")>>
-<<case "Bolivian">>
-	<<set $activeSlave.race to either("latina", "amerindian")>>
-<<case "Guatemalan">>
-	<<set $activeSlave.race to either("latina", "amerindian")>>
-<<case "Brazilian">>
-	<<set $activeSlave.race to either("black", "latina", "mixed race", "mixed race", "amerindian", "white")>>
-<<case "Argentinian">>
-	<<set $activeSlave.race to either("white", "latina", "latina")>>
-<<case "Chilean">>
-	<<set $activeSlave.race to either("white", "latina", "latina", "latina")>>
-<<case "Colombian">>
-	<<set $activeSlave.race to either("latina")>>
-<<case "Egyptian">>
-	<<set $activeSlave.race to either("black", "middle eastern", "middle eastern", "middle eastern", "semitic")>>
-<<case "Turkish">>
-	<<set $activeSlave.race to either("middle eastern", "middle eastern", "middle eastern", "semitic")>>
-<<case "Iranian">>
-	<<set $activeSlave.race to either("indo-aryan", "indo-aryan", "indo-aryan", "semitic")>>
-<<case "Armenian">>
-	<<set $activeSlave.race to either("indo-aryan", "semitic")>>
-<<case "Israeli">>
-	<<set $activeSlave.race to either("white", "middle eastern", "semitic", "semitic")>>
-<<case "Saudi">>
-	<<set $activeSlave.race to either("black", "asian", "middle eastern", "middle eastern")>>
-<<case "Moroccan">>
-	<<set $activeSlave.race to either("middle eastern", "middle eastern", "black")>>
-<<case "Nigerian">>
-	<<set $activeSlave.race to either("black")>>
-<<case "Kenyan">>
-	<<set $activeSlave.race to either("black")>>
-<<case "Zimbabwean">>
-	<<set $activeSlave.race to either("black", "black", "black", "black", "white")>>
-<<case "Ugandan">>
-	<<set $activeSlave.race to either("black")>>
-<<case "Tanzanian">>
-	<<set $activeSlave.race to either("black", "black", "black", "semitic")>>
-<<case "Ghanan">>
-	<<set $activeSlave.race to either("black", "black", "black", "semitic")>>
-<<case "Congolese">>
-	<<set $activeSlave.race to either("black")>>
-<<case "Ethiopian">>
-	<<set $activeSlave.race to either("black", "black", "black", "middle eastern", "semitic")>>
-<<case "South African">>
-	<<set $activeSlave.race to either("black", "black", "black", "white")>>
-<<case "Chinese">>
-	<<set $activeSlave.race to either("asian")>>
-<<case "Korean">>
-	<<set $activeSlave.race to either("asian")>>
-<<case "Japanese">>
-	<<set $activeSlave.race to either("asian")>>
-<<case "Thai">>
-	<<set $activeSlave.race to either("asian", "asian", "malay")>>
-<<case "Vietnamese">>
-	<<set $activeSlave.race to either("asian")>>
-<<case "Indonesian">>
-	<<set $activeSlave.race to either("asian", "malay", "malay", "pacific islander")>>
-<<case "Filipina">>
-	<<set $activeSlave.race to either("asian", "malay", "malay", "pacific islander")>>
-<<case "Burmese">>
-	<<set $activeSlave.race to either("asian", "asian", "indo-aryan")>>
-<<case "Nepalese">>
-	<<set $activeSlave.race to either("asian", "asian", "indo-aryan")>>
-<<case "Uzbek">>
-	<<set $activeSlave.race to either("asian")>>
-<<case "Afghan">>
-	<<set $activeSlave.race to either("indo-aryan", "middle eastern")>>
-<<case "Algerian">>
-	<<set $activeSlave.race to either("middle eastern")>>
-<<case "Libyan">>
-	<<set $activeSlave.race to either("middle eastern")>>
-<<case "Tunisian">>
-	<<set $activeSlave.race to either("middle eastern")>>
-<<case "Lebanese">>
-	<<set $activeSlave.race to either("middle eastern", "semitic")>>
-<<case "Jordanian">>
-	<<set $activeSlave.race to either("middle eastern", "semitic")>>
-<<case "Emirati">>
-	<<set $activeSlave.race to either("middle eastern", "indo-aryan")>>
-<<case "Omani">>
-	<<set $activeSlave.race to either("middle eastern", "indo-aryan")>>
-<<case "Malian">>
-	<<set $activeSlave.race to either("black", "black", "black", "black", "black", "middle eastern")>>
-<<case "Sudanese">>
-	<<set $activeSlave.race to either("black", "black", "black", "middle eastern")>>
-<<case "Yemeni">>
-	<<set $activeSlave.race to either("black", "semitic", "middle eastern", "middle eastern", "middle eastern")>>
-<<case "Iraqi">>
-	<<set $activeSlave.race to either("semitic", "middle eastern", "middle eastern", "middle eastern", "middle eastern")>>
-<<case "Indian">>
-	<<set $activeSlave.race to either("indo-aryan")>>
-<<case "Malaysian">>
-	<<set $activeSlave.race to either("asian", "malay", "malay", "malay")>>
-<<case "Kazakh">>
-	<<set $activeSlave.race to either("asian", "asian", "asian", "semitic", "indo-aryan")>>
-<<case "Pakistani">>
-	<<set $activeSlave.race to either("indo-aryan", "indo-aryan", "indo-aryan", "semitic")>>
-<<case "Bangladeshi">>
-	<<set $activeSlave.race to either("indo-aryan")>>
-<<case "Belarusian">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Russian">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Ukrainian">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Irish">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Icelandic">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Finnish">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Swiss">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Danish">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Norwegian">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Austrian">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Slovak">>
-	<<set $activeSlave.race to either("white", "white", "white", "white", "indo-aryan")>>
-<<case "Dutch">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Belgian">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Czech">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Serbian">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Portuguese">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Hungarian">>
-	<<set $activeSlave.race to either("white", "white", "white", "white", "indo-aryan")>>
-<<case "Estonian">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Polish">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Lithuanian">>
-	<<set $activeSlave.race to either("white")>>
-<<case "Romanian">>
-	<<set $activeSlave.race to either("semitic", "white", "white", "white", "white", "indo-aryan")>>
-<<case "German">>
-	<<set $activeSlave.race to either("black", "middle eastern", "white", "white", "white", "white", "white", "white")>>
-<<case "Swedish">>
-	<<set $activeSlave.race to either("middle eastern", "white", "white", "white", "white")>>
-<<case "French">>
-	<<set $activeSlave.race to either("black", "middle eastern", "white", "white", "white", "white", "white", "southern European")>>
-<<case "Italian">>
-	<<set $activeSlave.race to either("middle eastern", "southern European", "southern European", "white", "white")>>
-<<case "Greek">>
-	<<set $activeSlave.race to either("southern European")>>
-<<case "Spanish">>
-	<<set $activeSlave.race to either("semitic", "southern European", "southern European")>>
-<<case "British">>
-	<<set $activeSlave.race to either("indo-aryan", "white", "white", "white", "white", "white", "white", "white", "white", "white")>>
-<<case "Scottish">>
-	<<set $activeSlave.race to either("middle eastern", "indo-aryan", "white", "white", "white", "white", "white", "white", "white")>>
-<<case "Australian">>
-	<<set $activeSlave.race to either("white", "white", "black", "asian")>>
-<<case "a New Zealander">>
-	<<set $activeSlave.race to either("white", "white", "white", "white", "pacific islander")>>
-<<default>>
-	<<set $activeSlave.race to either("white")>>
-<</switch>>
-
-/% Begin mixed race rate adjustment. %/
-/% Some countries are extremely ethnically homogeneous and unlikely to change soon. %/
-<<if ($activeSlave.nationality is "Japanese")>>
-	<<if random(1,100) > 98>>
-		<<set $activeSlave.race to "mixed race">>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Korean")>>
-	<<if random(1,100) > 95>>
-		<<set $activeSlave.race to "mixed race">>
-	<</if>>
-<<elseif ($activeSlave.nationality is "Polish") or ($activeSlave.nationality is "Romanian") or ($activeSlave.nationality is "Bulgarian") or ($activeSlave.nationality is "Lithuanian") or ($activeSlave.nationality is "Croatian")>>
-	/% Croatia isn't an origin currently but the game might add it in the future. %/
-	<<if random(1,100) > 98>>
-		<<set $activeSlave.race to "mixed race">>
-	<</if>>
-<<elseif random(1,100) > 90>>
-	/% Default rate. %/
-	<<set $activeSlave.race to "mixed race">>
-<</if>>
-/% End mixed race rate adjustment. %/
-
-<</widget>>
-
-<<widget "NationalityToName">>
-
-<<switch $activeSlave.nationality>>
-<<case "American">>
-	<<if $activeSlave.race is "black">>
-		<<set $activeSlave.birthName to $africanAmericanSlaveNames.random()>>
-	<<elseif $activeSlave.race is "latina">>
-		<<set $activeSlave.birthName to $latinaSlaveNames.random()>>
-	<<elseif $activeSlave.race is "asian">>
-		<<set $activeSlave.birthName to $asianAmericanSlaveNames.random()>>
-	<<elseif $activeSlave.race is "middle eastern">>
-		<<set $activeSlave.birthName to $egyptianSlaveNames.random()>>
-	<<else>>
-		<<set $activeSlave.birthName to $whiteAmericanSlaveNames.random()>>
-	<</if>>
-<<case "Canadian">>
-	<<set $activeSlave.birthName to $canadianSlaveNames.random()>>
-<<case "Mexican">>
-	<<set $activeSlave.birthName to $mexicanSlaveNames.random()>>
-<<case "Dominican">>
-	<<set $activeSlave.birthName to $dominicanSlaveNames.random()>>
-<<case "Puerto Rican">>
-	<<set $activeSlave.birthName to $puertoRicanSlaveNames.random()>>
-<<case "Haitian">>
-	<<set $activeSlave.birthName to $haitianSlaveNames.random()>>
-<<case "Jamaican">>
-	<<set $activeSlave.birthName to $jamaicanSlaveNames.random()>>
-<<case "Cuban">>
-	<<set $activeSlave.birthName to $cubanSlaveNames.random()>>
-<<case "Guatemalan">>
-	<<set $activeSlave.birthName to $guatemalanSlaveNames.random()>>
-<<case "Chilean">>
-	<<set $activeSlave.birthName to $chileanSlaveNames.random()>>
-<<case "Peruvian">>
-	<<set $activeSlave.birthName to $peruvianSlaveNames.random()>>
-<<case "Bolivian">>
-	<<set $activeSlave.birthName to $bolivianSlaveNames.random()>>
-<<case "Venezuelan">>
-	<<set $activeSlave.birthName to $venezuelanSlaveNames.random()>>
-<<case "Belarusian">>
-	<<set $activeSlave.birthName to $belarusianSlaveNames.random()>>
-<<case "Russian">>
-	<<set $activeSlave.birthName to $russianSlaveNames.random()>>
-<<case "Ukrainian">>
-	<<set $activeSlave.birthName to $ukrainianSlaveNames.random()>>
-<<case "Italian">>
-	<<set $activeSlave.birthName to $italianSlaveNames.random()>>
-<<case "Spanish">>
-	<<set $activeSlave.birthName to $spanishSlaveNames.random()>>
-<<case "British">>
-	<<set $activeSlave.birthName to $britishSlaveNames.random()>>
-<<case "Scottish">>
-	<<set $activeSlave.birthName to $scottishSlaveNames.random()>>
-<<case "French">>
-	<<set $activeSlave.birthName to $frenchSlaveNames.random()>>
-<<case "German">>
-	<<set $activeSlave.birthName to $germanSlaveNames.random()>>
-<<case "Lithuanian">>
-	<<set $activeSlave.birthName to $lithuanianSlaveNames.random()>>
-<<case "Norwegian">>
-	<<set $activeSlave.birthName to $norwegianSlaveNames.random()>>
-<<case "Slovak">>
-	<<set $activeSlave.birthName to $slovakSlaveNames.random()>>
-<<case "Danish">>
-	<<set $activeSlave.birthName to $danishSlaveNames.random()>>
-<<case "Dutch">>
-	<<set $activeSlave.birthName to $dutchSlaveNames.random()>>
-<<case "Austrian">>
-	<<set $activeSlave.birthName to $austrianSlaveNames.random()>>
-<<case "Swiss">>
-	<<set $activeSlave.birthName to $swissSlaveNames.random()>>
-<<case "Serbian">>
-	<<set $activeSlave.birthName to $serbianSlaveNames.random()>>
-<<case "Belgian">>
-	<<set $activeSlave.birthName to $belgianSlaveNames.random()>>
-<<case "Czech">>
-	<<set $activeSlave.birthName to $czechSlaveNames.random()>>
-<<case "Portuguese">>
-	<<set $activeSlave.birthName to $portugueseSlaveNames.random()>>
-<<case "Swedish">>
-	<<set $activeSlave.birthName to $swedishSlaveNames.random()>>
-<<case "Romanian">>
-	<<set $activeSlave.birthName to $romanianSlaveNames.random()>>
-<<case "Hungarian">>
-	<<set $activeSlave.birthName to $hungarianSlaveNames.random()>>
-<<case "Estonian">>
-	<<set $activeSlave.birthName to $estonianSlaveNames.random()>>
-<<case "Irish">>
-	<<set $activeSlave.birthName to $irishSlaveNames.random()>>
-<<case "Icelandic">>
-	<<set $activeSlave.birthName to $icelandicSlaveNames.random()>>
-<<case "Finnish">>
-	<<set $activeSlave.birthName to $finnishSlaveNames.random()>>
-<<case "Greek">>
-	<<set $activeSlave.birthName to $greekSlaveNames.random()>>
-<<case "Polish">>
-	<<set $activeSlave.birthName to $polishSlaveNames.random()>>
-<<case "Brazilian">>
-	<<set $activeSlave.birthName to $brazilianSlaveNames.random()>>
-<<case "Egyptian">>
-	<<set $activeSlave.birthName to $egyptianSlaveNames.random()>>
-<<case "Colombian">>
-	<<set $activeSlave.birthName to $colombianSlaveNames.random()>>
-<<case "Argentinian">>
-	<<set $activeSlave.birthName to $argentinianSlaveNames.random()>>
-<<case "Turkish">>
-	<<set $activeSlave.birthName to $turkishSlaveNames.random()>>
-<<case "Iranian">>
-	<<set $activeSlave.birthName to $iranianSlaveNames.random()>>
-<<case "Armenian">>
-	<<set $activeSlave.birthName to $armenianSlaveNames.random()>>
-<<case "Israeli">>
-	<<set $activeSlave.birthName to $israeliSlaveNames.random()>>
-<<case "Saudi">>
-	<<set $activeSlave.birthName to $saudiSlaveNames.random()>>
-<<case "South African">>
-	<<if $activeSlave.race is "black">>
-		<<set $activeSlave.birthName to $blackSouthAfricanSlaveNames.random()>>
-	<<else>>
-		<<set $activeSlave.birthName to $whiteSouthAfricanSlaveNames.random()>>
-	<</if>>
-<<case "Nigerian">>
-	<<set $activeSlave.birthName to $nigerianSlaveNames.random()>>
-<<case "Congolese">>
-	<<set $activeSlave.birthName to $congoleseSlaveNames.random()>>
-<<case "Kenyan">>
-	<<set $activeSlave.birthName to $kenyanSlaveNames.random()>>
-<<case "Tanzanian">>
-	<<set $activeSlave.birthName to $tanzanianSlaveNames.random()>>
-<<case "Zimbabwean">>
-	<<if $activeSlave.race == "white">>
-		<<set $activeSlave.birthName to $britishSlaveNames.random()>>
-	<<else>>
-		<<set $activeSlave.birthName to $zimbabweanSlaveNames.random()>>
-	<</if>>
-<<case "Ghanan">>
-	<<set $activeSlave.birthName to $ghananSlaveNames.random()>>
-<<case "Ugandan">>
-	<<set $activeSlave.birthName to $ugandanSlaveNames.random()>>
-<<case "Ethiopian">>
-	<<set $activeSlave.birthName to $ethiopianSlaveNames.random()>>
-<<case "Moroccan">>
-	<<set $activeSlave.birthName to $moroccanSlaveNames.random()>>
-<<case "Chinese">>
-	<<set $activeSlave.birthName to $chineseSlaveNames.random()>>
-<<case "Korean">>
-	<<set $activeSlave.birthName to $koreanSlaveNames.random()>>
-<<case "Thai">>
-	<<set $activeSlave.birthName to $thaiSlaveNames.random()>>
-<<case "Vietnamese">>
-	<<set $activeSlave.birthName to $vietnameseSlaveNames.random()>>
-<<case "Japanese">>
-	<<set $activeSlave.birthName to $japaneseSlaveNames.random()>>
-<<case "Indonesian">>
-	<<set $activeSlave.birthName to $indonesianSlaveNames.random()>>
-<<case "Filipina">>
-	<<set $activeSlave.birthName to $filipinaSlaveNames.random()>>
-<<case "Bangladeshi">>
-	<<set $activeSlave.birthName to $bangladeshiSlaveNames.random()>>
-<<case "Malaysian">>
-	<<set $activeSlave.birthName to $malaysianSlaveNames.random()>>
-<<case "Uzbek">>
-	<<set $activeSlave.birthName to $uzbekSlaveNames.random()>>
-<<case "Afghan">>
-	<<set $activeSlave.birthName to $afghanSlaveNames.random()>>
-<<case "Nepalese">>
-	<<set $activeSlave.birthName to $nepaleseSlaveNames.random()>>
-<<case "Burmese">>
-	<<set $activeSlave.birthName to $burmeseSlaveNames.random()>>
-<<case "Iraqi">>
-	<<set $activeSlave.birthName to $iraqiSlaveNames.random()>>
-<<case "Yemeni">>
-	<<set $activeSlave.birthName to $yemeniSlaveNames.random()>>
-<<case "Sudanese">>
-	<<set $activeSlave.birthName to $sudaneseSlaveNames.random()>>
-<<case "Algerian">>
-	<<set $activeSlave.birthName to $algerianSlaveNames.random()>>
-<<case "Tunisian">>
-	<<set $activeSlave.birthName to $tunisianSlaveNames.random()>>
-<<case "Libyan">>
-	<<set $activeSlave.birthName to $libyanSlaveNames.random()>>
-<<case "Omani">>
-	<<set $activeSlave.birthName to $omaniSlaveNames.random()>>
-<<case "Malian">>
-	<<set $activeSlave.birthName to $malianSlaveNames.random()>>
-<<case "Jordanian">>
-	<<set $activeSlave.birthName to $jordanianSlaveNames.random()>>
-<<case "Lebanese">>
-	<<set $activeSlave.birthName to $lebaneseSlaveNames.random()>>
-<<case "Emirati">>
-	<<set $activeSlave.birthName to $emiratiSlaveNames.random()>>
-<<case "Kazakh">>
-	<<set $activeSlave.birthName to $kazakhSlaveNames.random()>>
-<<case "Pakistani">>
-	<<set $activeSlave.birthName to $pakistaniSlaveNames.random()>>
-<<case "Indian">>
-	<<set $activeSlave.birthName to $indianSlaveNames.random()>>
-<<case "Australian">>
-	<<set $activeSlave.birthName to $australianSlaveNames.random()>>
-<<case "a New Zealander">>
-	<<set $activeSlave.birthName to $newZealanderSlaveNames.random()>>
-<<default>>
-	<<set $activeSlave.birthName to $whiteAmericanSlaveNames.random()>>
-<</switch>>
-
-<</widget>>
-
-<<widget "NationalityToAccent">>
-
-<<set $seed to either(0,1,1,2,2,2,3,3,3,3)>>
-
-<<switch $activeSlave.nationality>>
-<<case "American">>
-	<<if $activeSlave.race is "black">>
-	<<if $language is "English">>
-		<<set $activeSlave.accent to 0>>
-	<<else>>
-		<<set $activeSlave.accent to either(0,1,1,2,2,2,3,3,3,3)>>
-	<</if>>
-	<<elseif $activeSlave.race is "latina">>
-	<<if $language is "English">>
-		<<set $activeSlave.accent to 0>>
-	<<elseif $language is "Spanish">>
-		<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-		<<set $activeSlave.accent to $seed>>
-	<</if>>
-	<<elseif $activeSlave.race is "asian">>
-	<<if $language is "English">>
-		<<set $activeSlave.accent to 0>>
-	<<elseif $language is "Chinese">>
-		<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-		<<set $activeSlave.accent to $seed>>
-	<</if>>
-	<<elseif $activeSlave.race is "middle eastern">>
-	<<if $language is "English">>
-		<<set $activeSlave.accent to 0>>
-	<<elseif $language is "Arabic">>
-		<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-		<<set $activeSlave.accent to $seed>>
-	<</if>>
-	<<else>>
-	<<if $language is "English">>
-		<<set $activeSlave.accent to 0>>
-	<<else>>
-		<<set $activeSlave.accent to $seed>>
-	<</if>>
-	<</if>>
-<<case "Canadian">>
-	<<if $language is "English">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Mexican">>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Dominican">>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Puerto Rican">>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Haitian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Jamaican">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Cuban">>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Guatemalan">>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Chilean">>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Peruvian">>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Bolivian">>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Venezuelan">>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Russian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Ukrainian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Italian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Spanish">>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "British">>
-	<<if $language is "English">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Scottish">>
-	<<if $language is "English">>
-	<<set $activeSlave.accent to 2>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "French">>
-	<<set $activeSlave.accent to $seed>>
-<<case "German">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Lithuanian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Belarusian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Norwegian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Slovak">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Danish">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Dutch">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Austrian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Swiss">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Serbian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Belgian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Czech">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Portuguese">>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Swedish">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Romanian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Hungarian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Estonian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Irish">>
-	<<if $language is "English">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Icelandic">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Finnish">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Greek">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Polish">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Brazilian">>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Egyptian">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Colombian">>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Argentinian">>
-	<<if $language is "Spanish">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Turkish">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Iranian">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Armenian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Israeli">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Saudi">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "South African">>
-	<<if $language is "English">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Nigerian">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Congolese">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Kenyan">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Tanzanian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Zimbabwean">>
-	<<if $language is "English" && $activeSlave.race == "white">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Ghanan">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Ugandan">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Ethiopian">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Moroccan">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Chinese">>
-	<<if $language is "Chinese">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Korean">>
-	<<if $language is "Chinese">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Thai">>
-	<<if $language is "Chinese">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Vietnamese">>
-	<<if $language is "Chinese">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Japanese">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Indonesian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Filipina">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Bangladeshi">>
-	<<if $language is "Indian">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Malaysian">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Uzbek">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Afghan">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Nepalese">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Burmese">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Iraqi">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Yemeni">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Sudanese">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Algerian">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Tunisian">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Libyan">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Omani">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Malian">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Jordanian">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Lebanese">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Emirati">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Kazakh">>
-	<<set $activeSlave.accent to $seed>>
-<<case "Pakistani">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to either(0,1,2,3)>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Indian">>
-	<<if $language is "Indian">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Australian">>
-	<<if $language is "English">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "a New Zealander">>
-	<<if $language is "English">>
-	<<set $activeSlave.accent to 1>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Roman Revivalist">>
-	<<if $language is "Latin">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Ancient Egyptian Revivalist">>
-	<<if $language is "Ancient Egyptian">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Edo Revivalist">>
-	<<if $language is "Japanese">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Arabian Revivalist">>
-	<<if $language is "Arabic">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<case "Ancient Chinese Revivalist">>
-	<<if $language is "Chinese">>
-	<<set $activeSlave.accent to 0>>
-	<<else>>
-	<<set $activeSlave.accent to $seed>>
-	<</if>>
-<<default>>
-	<<set $activeSlave.accent to $seed>>
-<</switch>>
-
-<<if $activeSlave.nationality is $language>>
-	<<set $activeSlave.accent to 0>>
-<</if>>
-
-<</widget>>
\ No newline at end of file
diff --git a/src/uncategorized/pRivalryHostage.tw b/src/uncategorized/pRivalryHostage.tw
index 4dfa42d1b3a..fe636e6b31d 100644
--- a/src/uncategorized/pRivalryHostage.tw
+++ b/src/uncategorized/pRivalryHostage.tw
@@ -29,7 +29,7 @@
 <<set $activeSlave.relationTarget to 0>>
 <<set $activeSlave.canRecruit = 0>>
 <<if $arcologies[0].FSSupremacistRace != 0>><<set $activeSlave.race to $arcologies[0].FSSupremacistRace>><</if>>
-<<NationalityToName>>
+<<NationalityToName $activeSlave>>
 <<set $activeSlave.slaveName to $activeSlave.birthName>>
 
 <<set $activeSlave.actualAge to Number($activeSlave.actualAge)>>
diff --git a/src/uncategorized/reFSEgyptianRevivalistAcquisitionWorkaround.tw b/src/uncategorized/reFSEgyptianRevivalistAcquisitionWorkaround.tw
index 89ee6ae0d27..5416684f203 100644
--- a/src/uncategorized/reFSEgyptianRevivalistAcquisitionWorkaround.tw
+++ b/src/uncategorized/reFSEgyptianRevivalistAcquisitionWorkaround.tw
@@ -5,9 +5,9 @@ They arrive hand-in-hand and don't let go of each other until the end of the ens
 
 <<AddSlave $sibling>>
 
-<<set _secondSlave to $activeSlave>>
+<<set _secondSlave to clone($activeSlave)>>
 
-<<NationalityToName>>
+<<NationalityToName _secondSlave>>
 
 <<set _secondSlave.slaveName to $activeSlave.birthName>>
 <<set _secondSlave.ID to $activeSlave.ID + 1000>>
diff --git a/src/uncategorized/reRelativeRecruiter.tw b/src/uncategorized/reRelativeRecruiter.tw
index acb43b98456..be9ab696963 100644
--- a/src/uncategorized/reRelativeRecruiter.tw
+++ b/src/uncategorized/reRelativeRecruiter.tw
@@ -470,7 +470,7 @@ She waits anxiously for your decision.
 	
 <<slaveCost $activeSlave>>
 
-<<NationalityToName>>
+<<NationalityToName $activeSlave>>
 <<if $useFSNames == 0>>
 	<<set $activeSlave.slaveName to $activeSlave.birthName>>
 <<elseif $arcologies[0].FSRomanRevivalist > 20>>
@@ -948,7 +948,7 @@ She waits anxiously for your decision.
 	
 <<slaveCost $activeSlave>>
 
-<<NationalityToName>>
+<<NationalityToName $activeSlave>>
 <<if $useFSNames == 0>>
 	<<set $activeSlave.slaveName to $activeSlave.birthName>>
 <<elseif $arcologies[0].FSRomanRevivalist > 20>>
diff --git a/src/uncategorized/recETSWorkaround.tw b/src/uncategorized/recETSWorkaround.tw
index ca504e0ccf5..e1b6feca56f 100644
--- a/src/uncategorized/recETSWorkaround.tw
+++ b/src/uncategorized/recETSWorkaround.tw
@@ -247,7 +247,7 @@ They giggle and kiss each other rather passionately, their miniskirts becoming p
 	ERROR: bad event
 <</switch>>
 
-<<NationalityToName>>
+<<NationalityToName $activeSlave>>
 <<if $useFSNames == 0>>
 	<<set $activeSlave.slaveName to $activeSlave.birthName>>
 <<elseif $arcologies[0].FSRomanRevivalist > 20>>
diff --git a/src/uncategorized/saBeYourHeadGirl.tw b/src/uncategorized/saBeYourHeadGirl.tw
index 2118d284855..255654b2490 100644
--- a/src/uncategorized/saBeYourHeadGirl.tw
+++ b/src/uncategorized/saBeYourHeadGirl.tw
@@ -123,17 +123,29 @@
 	<</if>>
 <</if>>
 
-<<if ($slaves[$i].fetish is "none") || ($slaves[$i].fetishKnown == 0)>>
-	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 to "dom">>
-	<<set $slaves[$i].fetishKnown to 1>>
-<<elseif ($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>>
+<<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>>
diff --git a/src/uncategorized/seCustomSlaveDelivery.tw b/src/uncategorized/seCustomSlaveDelivery.tw
index 5e1f7168b1f..3c470346605 100644
--- a/src/uncategorized/seCustomSlaveDelivery.tw
+++ b/src/uncategorized/seCustomSlaveDelivery.tw
@@ -27,9 +27,9 @@
 <<set $activeSlave.devotion = random(-10,10)>>
 <<set $activeSlave.trust = random(-10,10)>>
 
-<<NationalityToRace>>
-<<NationalityToName>>
-<<NationalityToAccent>>
+<<NationalityToRace $activeSlave>>
+<<NationalityToName $activeSlave>>
+<<NationalityToAccent $activeSlave>>
 
 <<if $activeSlave.race is "black">>
 	<<set $activeSlave.skin to either("black", "brown", "light brown")>>
diff --git a/src/uncategorized/siblingsWorkaround.tw b/src/uncategorized/siblingsWorkaround.tw
index 46cd7cbb90d..d945d9f28fa 100644
--- a/src/uncategorized/siblingsWorkaround.tw
+++ b/src/uncategorized/siblingsWorkaround.tw
@@ -4,33 +4,17 @@ Your new pair of slaves look frightened and uncertain, but seem encouraged by ea
 
 <<AddSlave $activeSlave>>
 
-<<NationalityToName>>
-<<NationalityToAccent>>
-<<set _secondSlave to $activeSlave>>
+<<set _secondSlave to clone($activeSlave)>>
+<<unset $activeSlave>>
+<<NationalityToName _secondSlave>>
+<<NationalityToAccent _secondSlave>>
 
-<<if $useFSNames == 0>>
-	<<set _secondSlave.slaveName to _secondSlave.birthName>>
-<<elseif $arcologies[0].FSChattelReligionist > 20>>
-	<<set _secondSlave.slaveName to $chattelReligionistSlaveNames.random()>>
-<<elseif $arcologies[0].FSRomanRevivalist > 20>>
-	<<set _secondSlave.slaveName to $romanSlaveNames.random()>>
-<<elseif $arcologies[0].FSEgyptianRevivalist > 20>>
-	<<set _secondSlave.slaveName to $ancientEgyptianSlaveNames.random()>>
-<<elseif $arcologies[0].FSEdoRevivalist > 20>>
-	<<set _secondSlave.slaveName to $edoSlaveNames.random()>>
-<<elseif $arcologies[0].FSDegradationist != "unset">>
-	<<display "Degrading Name">>
-<<else>>
-	<<set _secondSlave.slaveName to _secondSlave.birthName>>
-<</if>>
-
-<<set _secondSlave.slaveName to $activeSlave.birthName>>
-<<set _secondSlave.ID to $activeSlave.ID + 1000>>
+<<set _secondSlave.ID to _secondSlave.ID + 1000>>
 <<set _secondSlave.devotion -= random(5,-5)>>
 <<set _secondSlave.oldDevotion to _secondSlave.devotion>>
 <<set _secondSlave.trust -= random(5,-5)>>
 <<set _secondSlave.oldTrust to _secondSlave.trust>>
-<<set _secondSlave.oldDevotion to $activeSlave.devotion>>
+<<set _secondSlave.oldDevotion to _secondSlave.devotion>>
 <<set _secondSlave.actualAge -= random (1, 5)>>
 <<set _secondSlave.visualAge = _secondSlave.actualAge>>
 <<set _secondSlave.physicalAge = _secondSlave.actualAge>>
@@ -42,16 +26,16 @@ Your new pair of slaves look frightened and uncertain, but seem encouraged by ea
 <<set _secondSlave.energy += random(-20,20)>>
 <<set _secondSlave.fetishStrength to random(0,90)>>
 <<set _secondSlave.fetish to either("none", "none", "none", "none", "none", "none", "submissive", "cumslut", "humiliation", "buttslut", "pregnancy", "sadist", "dom", "masochist")>>
-<<set $activeSlave.behavioralFlaw to either("none", "none", "none", "arrogant", "bitchy", "odd", "hates men", "hates women", "hates women", "anorexic", "masochist", "gluttonous", "devout", "liberated")>>
-<<if ($activeSlave.behavioralFlaw is "devout")>>
-	<<set $activeSlave.sexualFlaw to either("none", "repressed",  "shamefast", "apathetic")>>
+<<set _secondSlave.behavioralFlaw to either("none", "none", "none", "arrogant", "bitchy", "odd", "hates men", "hates women", "hates women", "anorexic", "masochist", "gluttonous", "devout", "liberated")>>
+<<if (_secondSlave.behavioralFlaw is "devout")>>
+	<<set _secondSlave.sexualFlaw to either("none", "repressed",  "shamefast", "apathetic")>>
 <<else>>
-	<<set $activeSlave.sexualFlaw to either("none", "none", "none", "none", "hates oral", "hates anal", "hates penetration", "repressed", "idealistic", "shamefast", "apathetic", "crude", "judgemental")>>
+	<<set _secondSlave.sexualFlaw to either("none", "none", "none", "none", "hates oral", "hates anal", "hates penetration", "repressed", "idealistic", "shamefast", "apathetic", "crude", "judgemental")>>
 <</if>>
 
 <<if $familyTesting == 0>>
 <<set _secondSlave.relation to "sister">>
-<<set _secondSlave.relationTarget to $activeSlave.ID - 1000>>
+<<set _secondSlave.relationTarget to _secondSlave.ID - 1000>>
 <</if>>
 
 <<if _secondSlave.actualAge < $minimumSlaveAge>>
diff --git a/src/uncategorized/slaveGenerationWidgets.tw b/src/uncategorized/slaveGenerationWidgets.tw
new file mode 100644
index 00000000000..c27fb3e1ed8
--- /dev/null
+++ b/src/uncategorized/slaveGenerationWidgets.tw
@@ -0,0 +1,886 @@
+:: slave generation widgets [nobr widget]
+
+<<widget "NationalityToRace">>
+
+<<switch $args[0].nationality>>
+<<case "American">>
+	<<set $args[0].race to either("black", "middle eastern", "white", "white", "white", "latina", "latina", "asian", "amerindian", "mixed race")>>
+<<case "Canadian">>
+	<<set $args[0].race to either("white", "white", "white", "white", "amerindian")>>
+<<case "Puerto Rican">>
+	<<set $args[0].race to either("latina")>>
+<<case "Cuban">>
+	<<set $args[0].race to either("latina", "black")>>
+<<case "Haitian">>
+	<<set $args[0].race to either("black")>>
+<<case "Jamaican">>
+	<<set $args[0].race to either("black")>>
+<<case "Mexican">>
+	<<set $args[0].race to either("latina", "latina", "latina", "latina", "latina", "amerindian")>>
+<<case "Dominican">>
+	<<set $args[0].race to either("mixed race", "mixed race", "mixed race", "mixed race", "mixed race", "mixed race", "mixed race", "white", "white", "black")>>
+<<case "Peruvian">>
+	<<set $args[0].race to either("latina", "amerindian")>>
+<<case "Venezuelan">>
+	<<set $args[0].race to either("latina")>>
+<<case "Bolivian">>
+	<<set $args[0].race to either("latina", "amerindian")>>
+<<case "Guatemalan">>
+	<<set $args[0].race to either("latina", "amerindian")>>
+<<case "Brazilian">>
+	<<set $args[0].race to either("black", "latina", "mixed race", "mixed race", "amerindian", "white")>>
+<<case "Argentinian">>
+	<<set $args[0].race to either("white", "latina", "latina")>>
+<<case "Chilean">>
+	<<set $args[0].race to either("white", "latina", "latina", "latina")>>
+<<case "Colombian">>
+	<<set $args[0].race to either("latina")>>
+<<case "Egyptian">>
+	<<set $args[0].race to either("black", "middle eastern", "middle eastern", "middle eastern", "semitic")>>
+<<case "Turkish">>
+	<<set $args[0].race to either("middle eastern", "middle eastern", "middle eastern", "semitic")>>
+<<case "Iranian">>
+	<<set $args[0].race to either("indo-aryan", "indo-aryan", "indo-aryan", "semitic")>>
+<<case "Armenian">>
+	<<set $args[0].race to either("indo-aryan", "semitic")>>
+<<case "Israeli">>
+	<<set $args[0].race to either("white", "middle eastern", "semitic", "semitic")>>
+<<case "Saudi">>
+	<<set $args[0].race to either("black", "asian", "middle eastern", "middle eastern")>>
+<<case "Moroccan">>
+	<<set $args[0].race to either("middle eastern", "middle eastern", "black")>>
+<<case "Nigerian">>
+	<<set $args[0].race to either("black")>>
+<<case "Kenyan">>
+	<<set $args[0].race to either("black")>>
+<<case "Zimbabwean">>
+	<<set $args[0].race to either("black", "black", "black", "black", "white")>>
+<<case "Ugandan">>
+	<<set $args[0].race to either("black")>>
+<<case "Tanzanian">>
+	<<set $args[0].race to either("black", "black", "black", "semitic")>>
+<<case "Ghanan">>
+	<<set $args[0].race to either("black", "black", "black", "semitic")>>
+<<case "Congolese">>
+	<<set $args[0].race to either("black")>>
+<<case "Ethiopian">>
+	<<set $args[0].race to either("black", "black", "black", "middle eastern", "semitic")>>
+<<case "South African">>
+	<<set $args[0].race to either("black", "black", "black", "white")>>
+<<case "Chinese">>
+	<<set $args[0].race to either("asian")>>
+<<case "Korean">>
+	<<set $args[0].race to either("asian")>>
+<<case "Japanese">>
+	<<set $args[0].race to either("asian")>>
+<<case "Thai">>
+	<<set $args[0].race to either("asian", "asian", "malay")>>
+<<case "Vietnamese">>
+	<<set $args[0].race to either("asian")>>
+<<case "Indonesian">>
+	<<set $args[0].race to either("asian", "malay", "malay", "pacific islander")>>
+<<case "Filipina">>
+	<<set $args[0].race to either("asian", "malay", "malay", "pacific islander")>>
+<<case "Burmese">>
+	<<set $args[0].race to either("asian", "asian", "indo-aryan")>>
+<<case "Nepalese">>
+	<<set $args[0].race to either("asian", "asian", "indo-aryan")>>
+<<case "Uzbek">>
+	<<set $args[0].race to either("asian")>>
+<<case "Afghan">>
+	<<set $args[0].race to either("indo-aryan", "middle eastern")>>
+<<case "Algerian">>
+	<<set $args[0].race to either("middle eastern")>>
+<<case "Libyan">>
+	<<set $args[0].race to either("middle eastern")>>
+<<case "Tunisian">>
+	<<set $args[0].race to either("middle eastern")>>
+<<case "Lebanese">>
+	<<set $args[0].race to either("middle eastern", "semitic")>>
+<<case "Jordanian">>
+	<<set $args[0].race to either("middle eastern", "semitic")>>
+<<case "Emirati">>
+	<<set $args[0].race to either("middle eastern", "indo-aryan")>>
+<<case "Omani">>
+	<<set $args[0].race to either("middle eastern", "indo-aryan")>>
+<<case "Malian">>
+	<<set $args[0].race to either("black", "black", "black", "black", "black", "middle eastern")>>
+<<case "Sudanese">>
+	<<set $args[0].race to either("black", "black", "black", "middle eastern")>>
+<<case "Yemeni">>
+	<<set $args[0].race to either("black", "semitic", "middle eastern", "middle eastern", "middle eastern")>>
+<<case "Iraqi">>
+	<<set $args[0].race to either("semitic", "middle eastern", "middle eastern", "middle eastern", "middle eastern")>>
+<<case "Indian">>
+	<<set $args[0].race to either("indo-aryan")>>
+<<case "Malaysian">>
+	<<set $args[0].race to either("asian", "malay", "malay", "malay")>>
+<<case "Kazakh">>
+	<<set $args[0].race to either("asian", "asian", "asian", "semitic", "indo-aryan")>>
+<<case "Pakistani">>
+	<<set $args[0].race to either("indo-aryan", "indo-aryan", "indo-aryan", "semitic")>>
+<<case "Bangladeshi">>
+	<<set $args[0].race to either("indo-aryan")>>
+<<case "Belarusian">>
+	<<set $args[0].race to either("white")>>
+<<case "Russian">>
+	<<set $args[0].race to either("white")>>
+<<case "Ukrainian">>
+	<<set $args[0].race to either("white")>>
+<<case "Irish">>
+	<<set $args[0].race to either("white")>>
+<<case "Icelandic">>
+	<<set $args[0].race to either("white")>>
+<<case "Finnish">>
+	<<set $args[0].race to either("white")>>
+<<case "Swiss">>
+	<<set $args[0].race to either("white")>>
+<<case "Danish">>
+	<<set $args[0].race to either("white")>>
+<<case "Norwegian">>
+	<<set $args[0].race to either("white")>>
+<<case "Austrian">>
+	<<set $args[0].race to either("white")>>
+<<case "Slovak">>
+	<<set $args[0].race to either("white", "white", "white", "white", "indo-aryan")>>
+<<case "Dutch">>
+	<<set $args[0].race to either("white")>>
+<<case "Belgian">>
+	<<set $args[0].race to either("white")>>
+<<case "Czech">>
+	<<set $args[0].race to either("white")>>
+<<case "Serbian">>
+	<<set $args[0].race to either("white")>>
+<<case "Portuguese">>
+	<<set $args[0].race to either("white")>>
+<<case "Hungarian">>
+	<<set $args[0].race to either("white", "white", "white", "white", "indo-aryan")>>
+<<case "Estonian">>
+	<<set $args[0].race to either("white")>>
+<<case "Polish">>
+	<<set $args[0].race to either("white")>>
+<<case "Lithuanian">>
+	<<set $args[0].race to either("white")>>
+<<case "Romanian">>
+	<<set $args[0].race to either("semitic", "white", "white", "white", "white", "indo-aryan")>>
+<<case "German">>
+	<<set $args[0].race to either("black", "middle eastern", "white", "white", "white", "white", "white", "white")>>
+<<case "Swedish">>
+	<<set $args[0].race to either("middle eastern", "white", "white", "white", "white")>>
+<<case "French">>
+	<<set $args[0].race to either("black", "middle eastern", "white", "white", "white", "white", "white", "southern European")>>
+<<case "Italian">>
+	<<set $args[0].race to either("middle eastern", "southern European", "southern European", "white", "white")>>
+<<case "Greek">>
+	<<set $args[0].race to either("southern European")>>
+<<case "Spanish">>
+	<<set $args[0].race to either("semitic", "southern European", "southern European")>>
+<<case "British">>
+	<<set $args[0].race to either("indo-aryan", "white", "white", "white", "white", "white", "white", "white", "white", "white")>>
+<<case "Scottish">>
+	<<set $args[0].race to either("middle eastern", "indo-aryan", "white", "white", "white", "white", "white", "white", "white")>>
+<<case "Australian">>
+	<<set $args[0].race to either("white", "white", "black", "asian")>>
+<<case "a New Zealander">>
+	<<set $args[0].race to either("white", "white", "white", "white", "pacific islander")>>
+<<default>>
+	<<set $args[0].race to either("white")>>
+<</switch>>
+
+/% Begin mixed race rate adjustment. %/
+/% Some countries are extremely ethnically homogeneous and unlikely to change soon. %/
+<<if ($args[0].nationality is "Japanese")>>
+	<<if random(1,100) > 98>>
+		<<set $args[0].race to "mixed race">>
+	<</if>>
+<<elseif ($args[0].nationality is "Korean")>>
+	<<if random(1,100) > 95>>
+		<<set $args[0].race to "mixed race">>
+	<</if>>
+<<elseif ($args[0].nationality is "Polish") or ($args[0].nationality is "Romanian") or ($args[0].nationality is "Bulgarian") or ($args[0].nationality is "Lithuanian") or ($args[0].nationality is "Croatian")>>
+	/% Croatia isn't an origin currently but the game might add it in the future. %/
+	<<if random(1,100) > 98>>
+		<<set $args[0].race to "mixed race">>
+	<</if>>
+<<elseif random(1,100) > 90>>
+	/% Default rate. %/
+	<<set $args[0].race to "mixed race">>
+<</if>>
+/% End mixed race rate adjustment. %/
+
+<</widget>>
+
+<<widget "NationalityToName">>
+
+<<switch $args[0].nationality>>
+<<case "American">>
+	<<if $args[0].race is "black">>
+		<<set $args[0].birthName to $africanAmericanSlaveNames.random()>>
+	<<elseif $args[0].race is "latina">>
+		<<set $args[0].birthName to $latinaSlaveNames.random()>>
+	<<elseif $args[0].race is "asian">>
+		<<set $args[0].birthName to $asianAmericanSlaveNames.random()>>
+	<<elseif $args[0].race is "middle eastern">>
+		<<set $args[0].birthName to $egyptianSlaveNames.random()>>
+	<<else>>
+		<<set $args[0].birthName to $whiteAmericanSlaveNames.random()>>
+	<</if>>
+<<case "Canadian">>
+	<<set $args[0].birthName to $canadianSlaveNames.random()>>
+<<case "Mexican">>
+	<<set $args[0].birthName to $mexicanSlaveNames.random()>>
+<<case "Dominican">>
+	<<set $args[0].birthName to $dominicanSlaveNames.random()>>
+<<case "Puerto Rican">>
+	<<set $args[0].birthName to $puertoRicanSlaveNames.random()>>
+<<case "Haitian">>
+	<<set $args[0].birthName to $haitianSlaveNames.random()>>
+<<case "Jamaican">>
+	<<set $args[0].birthName to $jamaicanSlaveNames.random()>>
+<<case "Cuban">>
+	<<set $args[0].birthName to $cubanSlaveNames.random()>>
+<<case "Guatemalan">>
+	<<set $args[0].birthName to $guatemalanSlaveNames.random()>>
+<<case "Chilean">>
+	<<set $args[0].birthName to $chileanSlaveNames.random()>>
+<<case "Peruvian">>
+	<<set $args[0].birthName to $peruvianSlaveNames.random()>>
+<<case "Bolivian">>
+	<<set $args[0].birthName to $bolivianSlaveNames.random()>>
+<<case "Venezuelan">>
+	<<set $args[0].birthName to $venezuelanSlaveNames.random()>>
+<<case "Belarusian">>
+	<<set $args[0].birthName to $belarusianSlaveNames.random()>>
+<<case "Russian">>
+	<<set $args[0].birthName to $russianSlaveNames.random()>>
+<<case "Ukrainian">>
+	<<set $args[0].birthName to $ukrainianSlaveNames.random()>>
+<<case "Italian">>
+	<<set $args[0].birthName to $italianSlaveNames.random()>>
+<<case "Spanish">>
+	<<set $args[0].birthName to $spanishSlaveNames.random()>>
+<<case "British">>
+	<<set $args[0].birthName to $britishSlaveNames.random()>>
+<<case "Scottish">>
+	<<set $args[0].birthName to $scottishSlaveNames.random()>>
+<<case "French">>
+	<<set $args[0].birthName to $frenchSlaveNames.random()>>
+<<case "German">>
+	<<set $args[0].birthName to $germanSlaveNames.random()>>
+<<case "Lithuanian">>
+	<<set $args[0].birthName to $lithuanianSlaveNames.random()>>
+<<case "Norwegian">>
+	<<set $args[0].birthName to $norwegianSlaveNames.random()>>
+<<case "Slovak">>
+	<<set $args[0].birthName to $slovakSlaveNames.random()>>
+<<case "Danish">>
+	<<set $args[0].birthName to $danishSlaveNames.random()>>
+<<case "Dutch">>
+	<<set $args[0].birthName to $dutchSlaveNames.random()>>
+<<case "Austrian">>
+	<<set $args[0].birthName to $austrianSlaveNames.random()>>
+<<case "Swiss">>
+	<<set $args[0].birthName to $swissSlaveNames.random()>>
+<<case "Serbian">>
+	<<set $args[0].birthName to $serbianSlaveNames.random()>>
+<<case "Belgian">>
+	<<set $args[0].birthName to $belgianSlaveNames.random()>>
+<<case "Czech">>
+	<<set $args[0].birthName to $czechSlaveNames.random()>>
+<<case "Portuguese">>
+	<<set $args[0].birthName to $portugueseSlaveNames.random()>>
+<<case "Swedish">>
+	<<set $args[0].birthName to $swedishSlaveNames.random()>>
+<<case "Romanian">>
+	<<set $args[0].birthName to $romanianSlaveNames.random()>>
+<<case "Hungarian">>
+	<<set $args[0].birthName to $hungarianSlaveNames.random()>>
+<<case "Estonian">>
+	<<set $args[0].birthName to $estonianSlaveNames.random()>>
+<<case "Irish">>
+	<<set $args[0].birthName to $irishSlaveNames.random()>>
+<<case "Icelandic">>
+	<<set $args[0].birthName to $icelandicSlaveNames.random()>>
+<<case "Finnish">>
+	<<set $args[0].birthName to $finnishSlaveNames.random()>>
+<<case "Greek">>
+	<<set $args[0].birthName to $greekSlaveNames.random()>>
+<<case "Polish">>
+	<<set $args[0].birthName to $polishSlaveNames.random()>>
+<<case "Brazilian">>
+	<<set $args[0].birthName to $brazilianSlaveNames.random()>>
+<<case "Egyptian">>
+	<<set $args[0].birthName to $egyptianSlaveNames.random()>>
+<<case "Colombian">>
+	<<set $args[0].birthName to $colombianSlaveNames.random()>>
+<<case "Argentinian">>
+	<<set $args[0].birthName to $argentinianSlaveNames.random()>>
+<<case "Turkish">>
+	<<set $args[0].birthName to $turkishSlaveNames.random()>>
+<<case "Iranian">>
+	<<set $args[0].birthName to $iranianSlaveNames.random()>>
+<<case "Armenian">>
+	<<set $args[0].birthName to $armenianSlaveNames.random()>>
+<<case "Israeli">>
+	<<set $args[0].birthName to $israeliSlaveNames.random()>>
+<<case "Saudi">>
+	<<set $args[0].birthName to $saudiSlaveNames.random()>>
+<<case "South African">>
+	<<if $args[0].race is "black">>
+		<<set $args[0].birthName to $blackSouthAfricanSlaveNames.random()>>
+	<<else>>
+		<<set $args[0].birthName to $whiteSouthAfricanSlaveNames.random()>>
+	<</if>>
+<<case "Nigerian">>
+	<<set $args[0].birthName to $nigerianSlaveNames.random()>>
+<<case "Congolese">>
+	<<set $args[0].birthName to $congoleseSlaveNames.random()>>
+<<case "Kenyan">>
+	<<set $args[0].birthName to $kenyanSlaveNames.random()>>
+<<case "Tanzanian">>
+	<<set $args[0].birthName to $tanzanianSlaveNames.random()>>
+<<case "Zimbabwean">>
+	<<if $args[0].race == "white">>
+		<<set $args[0].birthName to $britishSlaveNames.random()>>
+	<<else>>
+		<<set $args[0].birthName to $zimbabweanSlaveNames.random()>>
+	<</if>>
+<<case "Ghanan">>
+	<<set $args[0].birthName to $ghananSlaveNames.random()>>
+<<case "Ugandan">>
+	<<set $args[0].birthName to $ugandanSlaveNames.random()>>
+<<case "Ethiopian">>
+	<<set $args[0].birthName to $ethiopianSlaveNames.random()>>
+<<case "Moroccan">>
+	<<set $args[0].birthName to $moroccanSlaveNames.random()>>
+<<case "Chinese">>
+	<<set $args[0].birthName to $chineseSlaveNames.random()>>
+<<case "Korean">>
+	<<set $args[0].birthName to $koreanSlaveNames.random()>>
+<<case "Thai">>
+	<<set $args[0].birthName to $thaiSlaveNames.random()>>
+<<case "Vietnamese">>
+	<<set $args[0].birthName to $vietnameseSlaveNames.random()>>
+<<case "Japanese">>
+	<<set $args[0].birthName to $japaneseSlaveNames.random()>>
+<<case "Indonesian">>
+	<<set $args[0].birthName to $indonesianSlaveNames.random()>>
+<<case "Filipina">>
+	<<set $args[0].birthName to $filipinaSlaveNames.random()>>
+<<case "Bangladeshi">>
+	<<set $args[0].birthName to $bangladeshiSlaveNames.random()>>
+<<case "Malaysian">>
+	<<set $args[0].birthName to $malaysianSlaveNames.random()>>
+<<case "Uzbek">>
+	<<set $args[0].birthName to $uzbekSlaveNames.random()>>
+<<case "Afghan">>
+	<<set $args[0].birthName to $afghanSlaveNames.random()>>
+<<case "Nepalese">>
+	<<set $args[0].birthName to $nepaleseSlaveNames.random()>>
+<<case "Burmese">>
+	<<set $args[0].birthName to $burmeseSlaveNames.random()>>
+<<case "Iraqi">>
+	<<set $args[0].birthName to $iraqiSlaveNames.random()>>
+<<case "Yemeni">>
+	<<set $args[0].birthName to $yemeniSlaveNames.random()>>
+<<case "Sudanese">>
+	<<set $args[0].birthName to $sudaneseSlaveNames.random()>>
+<<case "Algerian">>
+	<<set $args[0].birthName to $algerianSlaveNames.random()>>
+<<case "Tunisian">>
+	<<set $args[0].birthName to $tunisianSlaveNames.random()>>
+<<case "Libyan">>
+	<<set $args[0].birthName to $libyanSlaveNames.random()>>
+<<case "Omani">>
+	<<set $args[0].birthName to $omaniSlaveNames.random()>>
+<<case "Malian">>
+	<<set $args[0].birthName to $malianSlaveNames.random()>>
+<<case "Jordanian">>
+	<<set $args[0].birthName to $jordanianSlaveNames.random()>>
+<<case "Lebanese">>
+	<<set $args[0].birthName to $lebaneseSlaveNames.random()>>
+<<case "Emirati">>
+	<<set $args[0].birthName to $emiratiSlaveNames.random()>>
+<<case "Kazakh">>
+	<<set $args[0].birthName to $kazakhSlaveNames.random()>>
+<<case "Pakistani">>
+	<<set $args[0].birthName to $pakistaniSlaveNames.random()>>
+<<case "Indian">>
+	<<set $args[0].birthName to $indianSlaveNames.random()>>
+<<case "Australian">>
+	<<set $args[0].birthName to $australianSlaveNames.random()>>
+<<case "a New Zealander">>
+	<<set $args[0].birthName to $newZealanderSlaveNames.random()>>
+<<default>>
+	<<set $args[0].birthName to $whiteAmericanSlaveNames.random()>>
+<</switch>>
+
+<<set $args[0].slaveName to $args[0].birthName>>
+<<if $useFSNames == 1>>
+<<if $arcologies[0].FSChattelReligionist > 20>>
+	<<set $args[0].slaveName to $chattelReligionistSlaveNames.random()>>
+<<elseif $arcologies[0].FSRomanRevivalist > 20>>
+	<<set $args[0].slaveName to $romanSlaveNames.random()>>
+<<elseif $arcologies[0].FSEgyptianRevivalist > 20>>
+	<<set $args[0].slaveName to $ancientEgyptianSlaveNames.random()>>
+<<elseif $arcologies[0].FSEdoRevivalist > 20>>
+	<<set $args[0].slaveName to $edoSlaveNames.random()>>
+<<elseif $arcologies[0].FSDegradationist != "unset">>
+	<<display "Degrading Name">>
+<</if>>
+<</if>>
+
+<</widget>>
+
+<<widget "NationalityToAccent">>
+
+<<set $seed to either(0,1,1,2,2,2,3,3,3,3)>>
+
+<<switch $args[0].nationality>>
+<<case "American">>
+	<<if $args[0].race is "black">>
+	<<if $language is "English">>
+		<<set $args[0].accent to 0>>
+	<<else>>
+		<<set $args[0].accent to either(0,1,1,2,2,2,3,3,3,3)>>
+	<</if>>
+	<<elseif $args[0].race is "latina">>
+	<<if $language is "English">>
+		<<set $args[0].accent to 0>>
+	<<elseif $language is "Spanish">>
+		<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+		<<set $args[0].accent to $seed>>
+	<</if>>
+	<<elseif $args[0].race is "asian">>
+	<<if $language is "English">>
+		<<set $args[0].accent to 0>>
+	<<elseif $language is "Chinese">>
+		<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+		<<set $args[0].accent to $seed>>
+	<</if>>
+	<<elseif $args[0].race is "middle eastern">>
+	<<if $language is "English">>
+		<<set $args[0].accent to 0>>
+	<<elseif $language is "Arabic">>
+		<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+		<<set $args[0].accent to $seed>>
+	<</if>>
+	<<else>>
+	<<if $language is "English">>
+		<<set $args[0].accent to 0>>
+	<<else>>
+		<<set $args[0].accent to $seed>>
+	<</if>>
+	<</if>>
+<<case "Canadian">>
+	<<if $language is "English">>
+	<<set $args[0].accent to 0>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Mexican">>
+	<<if $language is "Spanish">>
+	<<set $args[0].accent to 0>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Dominican">>
+	<<if $language is "Spanish">>
+	<<set $args[0].accent to 0>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Puerto Rican">>
+	<<if $language is "Spanish">>
+	<<set $args[0].accent to 0>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Haitian">>
+	<<set $args[0].accent to $seed>>
+<<case "Jamaican">>
+	<<set $args[0].accent to $seed>>
+<<case "Cuban">>
+	<<if $language is "Spanish">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Guatemalan">>
+	<<if $language is "Spanish">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Chilean">>
+	<<if $language is "Spanish">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Peruvian">>
+	<<if $language is "Spanish">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Bolivian">>
+	<<if $language is "Spanish">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Venezuelan">>
+	<<if $language is "Spanish">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Russian">>
+	<<set $args[0].accent to $seed>>
+<<case "Ukrainian">>
+	<<set $args[0].accent to $seed>>
+<<case "Italian">>
+	<<set $args[0].accent to $seed>>
+<<case "Spanish">>
+	<<if $language is "Spanish">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "British">>
+	<<if $language is "English">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Scottish">>
+	<<if $language is "English">>
+	<<set $args[0].accent to 2>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "French">>
+	<<set $args[0].accent to $seed>>
+<<case "German">>
+	<<set $args[0].accent to $seed>>
+<<case "Lithuanian">>
+	<<set $args[0].accent to $seed>>
+<<case "Belarusian">>
+	<<set $args[0].accent to $seed>>
+<<case "Norwegian">>
+	<<set $args[0].accent to $seed>>
+<<case "Slovak">>
+	<<set $args[0].accent to $seed>>
+<<case "Danish">>
+	<<set $args[0].accent to $seed>>
+<<case "Dutch">>
+	<<set $args[0].accent to $seed>>
+<<case "Austrian">>
+	<<set $args[0].accent to $seed>>
+<<case "Swiss">>
+	<<set $args[0].accent to $seed>>
+<<case "Serbian">>
+	<<set $args[0].accent to $seed>>
+<<case "Belgian">>
+	<<set $args[0].accent to $seed>>
+<<case "Czech">>
+	<<set $args[0].accent to $seed>>
+<<case "Portuguese">>
+	<<if $language is "Spanish">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Swedish">>
+	<<set $args[0].accent to $seed>>
+<<case "Romanian">>
+	<<set $args[0].accent to $seed>>
+<<case "Hungarian">>
+	<<set $args[0].accent to $seed>>
+<<case "Estonian">>
+	<<set $args[0].accent to $seed>>
+<<case "Irish">>
+	<<if $language is "English">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Icelandic">>
+	<<set $args[0].accent to $seed>>
+<<case "Finnish">>
+	<<set $args[0].accent to $seed>>
+<<case "Greek">>
+	<<set $args[0].accent to $seed>>
+<<case "Polish">>
+	<<set $args[0].accent to $seed>>
+<<case "Brazilian">>
+	<<if $language is "Spanish">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Egyptian">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Colombian">>
+	<<if $language is "Spanish">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Argentinian">>
+	<<if $language is "Spanish">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Turkish">>
+	<<set $args[0].accent to $seed>>
+<<case "Iranian">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Armenian">>
+	<<set $args[0].accent to $seed>>
+<<case "Israeli">>
+	<<set $args[0].accent to $seed>>
+<<case "Saudi">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to 0>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "South African">>
+	<<if $language is "English">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Nigerian">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Congolese">>
+	<<set $args[0].accent to $seed>>
+<<case "Kenyan">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Tanzanian">>
+	<<set $args[0].accent to $seed>>
+<<case "Zimbabwean">>
+	<<if $language is "English" && $args[0].race == "white">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Ghanan">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Ugandan">>
+	<<set $args[0].accent to $seed>>
+<<case "Ethiopian">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Moroccan">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Chinese">>
+	<<if $language is "Chinese">>
+	<<set $args[0].accent to 0>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Korean">>
+	<<if $language is "Chinese">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Thai">>
+	<<if $language is "Chinese">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Vietnamese">>
+	<<if $language is "Chinese">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Japanese">>
+	<<set $args[0].accent to $seed>>
+<<case "Indonesian">>
+	<<set $args[0].accent to $seed>>
+<<case "Filipina">>
+	<<set $args[0].accent to $seed>>
+<<case "Bangladeshi">>
+	<<if $language is "Indian">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Malaysian">>
+	<<set $args[0].accent to $seed>>
+<<case "Uzbek">>
+	<<set $args[0].accent to $seed>>
+<<case "Afghan">>
+	<<set $args[0].accent to $seed>>
+<<case "Nepalese">>
+	<<set $args[0].accent to $seed>>
+<<case "Burmese">>
+	<<set $args[0].accent to $seed>>
+<<case "Iraqi">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Yemeni">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Sudanese">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Algerian">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Tunisian">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Libyan">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Omani">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Malian">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Jordanian">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Lebanese">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Emirati">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to 0>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Kazakh">>
+	<<set $args[0].accent to $seed>>
+<<case "Pakistani">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to either(0,1,2,3)>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Indian">>
+	<<if $language is "Indian">>
+	<<set $args[0].accent to 0>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Australian">>
+	<<if $language is "English">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "a New Zealander">>
+	<<if $language is "English">>
+	<<set $args[0].accent to 1>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Roman Revivalist">>
+	<<if $language is "Latin">>
+	<<set $args[0].accent to 0>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Ancient Egyptian Revivalist">>
+	<<if $language is "Ancient Egyptian">>
+	<<set $args[0].accent to 0>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Edo Revivalist">>
+	<<if $language is "Japanese">>
+	<<set $args[0].accent to 0>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Arabian Revivalist">>
+	<<if $language is "Arabic">>
+	<<set $args[0].accent to 0>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<case "Ancient Chinese Revivalist">>
+	<<if $language is "Chinese">>
+	<<set $args[0].accent to 0>>
+	<<else>>
+	<<set $args[0].accent to $seed>>
+	<</if>>
+<<default>>
+	<<set $args[0].accent to $seed>>
+<</switch>>
+
+<<if $args[0].nationality is $language>>
+	<<set $args[0].accent to 0>>
+<</if>>
+
+<</widget>>
\ No newline at end of file
diff --git a/src/uncategorized/slaveMarkets.tw b/src/uncategorized/slaveMarkets.tw
index 9735255a55c..21d5fee9fc8 100644
--- a/src/uncategorized/slaveMarkets.tw
+++ b/src/uncategorized/slaveMarkets.tw
@@ -706,7 +706,7 @@ You're in the area of the slave market that specializes in slaves from within th
 
 <<if $arcologies[$i].FSSubjugationist > 20>>
 	They're universally $arcologies[$i].FSSubjugationistRace.
-	<<set $fixedRace = $arcologies[$i].FSSubjugationistRace>><<NationalityToRace>><<NationalityToName>><<NationalityToAccent>><<set $fixedRace = 0>>
+	<<set $fixedRace = $arcologies[$i].FSSubjugationistRace>><<NationalityToRace $activeSlave>><<NationalityToName $activeSlave>><<NationalityToAccent $activeSlave>><<set $fixedRace = 0>>
 <</if>>
 <<if $arcologies[$i].FSGenderRadicalist > 50>>
 	They all show signs of intensive hormone therapy.
diff --git a/src/uncategorized/twinsWorkaround.tw b/src/uncategorized/twinsWorkaround.tw
index 620640049ef..3682cc35cef 100644
--- a/src/uncategorized/twinsWorkaround.tw
+++ b/src/uncategorized/twinsWorkaround.tw
@@ -4,27 +4,11 @@ Your new pair of slaves look frightened and uncertain, but seem encouraged by ea
 
 <<AddSlave $activeSlave>>
 
-<<NationalityToName>>
-<<NationalityToAccent>>
-<<set _secondSlave to $activeSlave>>
+<<set _secondSlave to clone($activeSlave)>>
+<<unset $activeSlave>>
+<<NationalityToName _secondSlave>>
+<<NationalityToAccent _secondSlave>>
 
-<<if $useFSNames == 0>>
-	<<set _secondSlave.slaveName to _secondSlave.birthName>>
-<<elseif $arcologies[0].FSChattelReligionist > 20>>
-	<<set _secondSlave.slaveName to $chattelReligionistSlaveNames.random()>>
-<<elseif $arcologies[0].FSRomanRevivalist > 20>>
-	<<set _secondSlave.slaveName to $romanSlaveNames.random()>>
-<<elseif $arcologies[0].FSEgyptianRevivalist > 20>>
-	<<set _secondSlave.slaveName to $ancientEgyptianSlaveNames.random()>>
-<<elseif $arcologies[0].FSEdoRevivalist > 20>>
-	<<set _secondSlave.slaveName to $edoSlaveNames.random()>>
-<<elseif $arcologies[0].FSDegradationist != "unset">>
-	<<display "Degrading Name">>
-<<else>>
-	<<set _secondSlave.slaveName to _secondSlave.birthName>>
-<</if>>
-
-<<set _secondSlave.slaveName to _secondSlave.birthName>>
 <<set _secondSlave.ID to _secondSlave.ID + 1000>>
 <<if $familyTesting == 0>>
 <<set _secondSlave.relation to "twin">>
-- 
GitLab