diff --git a/src/events/intro/introSummary.tw b/src/events/intro/introSummary.tw
index 46193496e76f8d0e7d8a3c7e613ed832400534f6..7b05968e785bb97697be8285fe68b90b063f7b05 100644
--- a/src/events/intro/introSummary.tw
+++ b/src/events/intro/introSummary.tw
@@ -555,6 +555,19 @@ Preferred method of consumption: ''<<if $PC.refreshmentType == 0>>Smoked<<elseif
<br>
<<if $PC.refreshmentType == 0>>//"Smoke" must fit into the following sentence: "I smoked a $PC.refreshment" to fit events properly//<</if>>
+/*testtest PC mother and father */
+<<if $familyTesting == 1>>
+<br><br>
+''PC ID'' //Remember this so you can create slaves related to you next//
+<br><<print $PC.ID>>
+<br><br>
+''mother ID''
+<<textbox "$PC.mother" $PC.mother "Intro Summary">>
+<br>
+''father ID''
+<<textbox "$PC.father" $PC.father "Intro Summary">>
+<</if>>
+
<br><br>
[[Continue|init Nationalities][$girls to 2]]
diff --git a/src/init/storyInit.tw b/src/init/storyInit.tw
index a3035bac27e7c2bede7b2878c9e158103d7bace5..dcb518b4374dde381c03cd09d03ba11221f87cc7 100644
--- a/src/init/storyInit.tw
+++ b/src/init/storyInit.tw
@@ -307,7 +307,7 @@
<<set $cheater to 0>>
<<set $PCName to "Anonymous">>
-<<set $PC to {title: 1, dick: 1, vagina: 0, preg: 0, pregSource: 0, pregMood: 0, labor: 0, births: 0, boobsBonus: 0, degeneracy: 0, voiceImplant: 0, accent: 0, shoulders: 0, shouldersImplant: 0, boobs: 0, career: "capitalist", rumor: "wealth", indenture: -1, indentureRestrictions: 0, birthWeek: random(0,51), age: 2, sexualEnergy: 4, refreshment: "cigar", refreshmentType: 0, race: "white", skin: "white", eyeColor: "blue", hColor: "blonde", nationality: "Stateless"}>>
+<<set $PC to {title: 1, ID: -1, dick: 1, vagina: 0, preg: 0, pregSource: 0, pregMood: 0, labor: 0, births: 0, boobsBonus: 0, degeneracy: 0, voiceImplant: 0, accent: 0, shoulders: 0, shouldersImplant: 0, boobs: 0, career: "capitalist", rumor: "wealth", indenture: -1, indentureRestrictions: 0, birthWeek: random(0,51), age: 2, sexualEnergy: 4, refreshment: "cigar", refreshmentType: 0, race: "white", skin: "white", eyeColor: "blue", hColor: "blonde", nationality: "Stateless", father: 0, mother: 0, sisters: 0, daughters: 0}>>
<<set $cash = 10000>>
<<set $normalizedEvents to 0>>
<<set $autosave to 1>>
diff --git a/src/js/storyJS.tw b/src/js/storyJS.tw
index 61ce156dfca2275eb2f9cd6bd47982cf515fff8f..42daf8e0dde81672c18327a7f1734e942ff159cb 100644
--- a/src/js/storyJS.tw
+++ b/src/js/storyJS.tw
@@ -500,6 +500,14 @@ window.tooBigButt = function(slave){
}
};
+window.sameTParent = function(slave1, slave2) {
+ if ((slave1.mother == slave2.father || slave1.father == slave2.mother) && (slave1.mother != 0 && slave1.mother != -2 && slave1.father != 0 && slave1.father != -2)) {
+ return true; //testtest catches the case if a mother is a father or a father a mother
+ } else {
+ return false;
+ }
+};
+
window.sameDad = function(slave1, slave2){
if ((slave1.father == slave2.father) && (slave1.father != 0 && slave1.father != -2)) {
return true;
@@ -536,6 +544,8 @@ window.areSisters = function(slave1, slave2) {
return 3; //half sisters
} else if (sameDad(slave1, slave2) == true && sameMom(slave1, slave2) == false) {
return 3; //half sisters
+ } else if (sameTParent(slave1, slave2) == true) {
+ return 3; //half sisters
} else if (sameDad(slave1, slave2) == true && sameMom(slave1, slave2) == true) {
if (slave1.actualAge == slave2.actualAge && slave1.birthWeek == slave2.birthWeek) {
return 1; //twins
diff --git a/src/npc/fRelation.tw b/src/npc/fRelation.tw
index a4f0c964f0b47299ee5243d008c03b1b1d70f924..90d6a35de310892ed0a6b2469f2513e14fb6a745 100644
--- a/src/npc/fRelation.tw
+++ b/src/npc/fRelation.tw
@@ -16,12 +16,12 @@
<</if>>
<</for>>
<<elseif ($partner is "daughter")>>
+ <<set $partner = randomAvailableDaughter($activeSlave)>>
<<for _i to 0; _i < $slaves.length; _i++>>
<<if $partner.ID == $slaves[_i].ID>> /*incompatability fix*/
<<break>>
<</if>>
<</for>>
- <<set $partner = randomAvailableParent($activeSlave)>>
<<if $activeSlave.ID == $partner.father>>
<<set _activeSlaveRel to "father", _partnerRel to "daughter">>
<<elseif $activeSlave.ID == $partner.mother>>
diff --git a/src/pregmod/generateChild.tw b/src/pregmod/generateChild.tw
index 1d482ec26503214a3cd659719a4e162be14c97f2..71d3ccf24966228f4c828d75efd65ae395e2e943 100644
--- a/src/pregmod/generateChild.tw
+++ b/src/pregmod/generateChild.tw
@@ -13,6 +13,8 @@
<</for>>
<<if $mom.pregSource == -1>>
<<set $mergeDad = $PC>>
+ <<elseif $mom.pregSource == 0 || $mom.pregSource < -1>>
+ <<set $mergeDad = $mergeMom>>
<</if>>
<</if>>
@@ -209,7 +211,7 @@
<</if>>
<</if>>
<<set $activeSlave.mother = $mergeMom.ID>>
- <<if $mergeDad != 0>>
+ <<if $mergeMom.pregSource > 0>>
<<set $activeSlave.father = $mergeDad.ID>>
<<elseif $mergeMom.pregSource == -1>>
<<set $activeSlave.father = -1>>
@@ -282,10 +284,9 @@
<</if>>
<<set $activeSlave.pubicHColor = $activeSlave.hColor>>
<<set $activeSlave.underArmHColor = $activeSlave.hColor>>
-<</if>>
-
-<<if $mom.addict > 0>>
- <<set $activeSlave.addict = Math.trunc($mom.addict/2)
+ <<if $mom.addict > 0>>
+ <<set $activeSlave.addict = Math.trunc($mom.addict/2)
+ <</if>>
<</if>>
<<set $activeSlave.actualAge = 0>>
diff --git a/src/uncategorized/RESS.tw b/src/uncategorized/RESS.tw
index 4367e364639b8130013f562fad57e97ec0df3d39..9938a58f8e1cdd498a61a1ea935532a14913a768 100644
--- a/src/uncategorized/RESS.tw
+++ b/src/uncategorized/RESS.tw
@@ -324,7 +324,7 @@ During a routine inspection, <span id="name"><<print "[[$activeSlave.slaveName|L
<<case "fearful balls">>
-<span id="name"><<print "[[$activeSlave.slaveName|Long Slave Description][$nextLink to passage(), $eventDescription to 1]]">></span> is still having obedience problems, particularly with her proper role as a female receptacle for cock. Though they're an almost too-obvious explanation, it's hard to avoid her retention of her gonads as a possible explanation for her behavioral issues. They certainly contribute to her less than perfectly feminine horomonal balance.
+<span id="name"><<print "[[$activeSlave.slaveName|Long Slave Description][$nextLink to passage(), $eventDescription to 1]]">></span> is still having obedience problems, particularly with her proper role as a female receptacle for cock. Though they're an almost too-obvious explanation, it's hard to avoid her retention of her gonads as a possible explanation for her behavioral issues. They certainly contribute to her less than perfectly feminine hormonal balance.
<br><br>
It's time for her routine inspection, and she's standing before you, nude. She certainly doesn't find her sexually vulnerable position arousing; she's totally flaccid. The physical manifestations of her disobedience are right in front of you, and quite defenseless.
diff --git a/src/uncategorized/defaultRules.tw b/src/uncategorized/defaultRules.tw
index f8f2867fca35cfac2bacf260423a9d4a2e9aec3d..65431b1fa9b7549c8e01b8e083b493570d929480 100644
--- a/src/uncategorized/defaultRules.tw
+++ b/src/uncategorized/defaultRules.tw
@@ -875,18 +875,6 @@ is now _currentRule.hLength cm long.
<</if>>
<</if>>
-<<if ndef _currentRule.underArmHColor>>
-<<set _currentRule.underArmHColor to "no default setting">>
-<</if>>
-
-<<if (_currentRule.underArmHColor isnot "no default setting")>>
-<<if ($activeSlave.underArmHColor isnot _currentRule.underArmHColor)>>
- <<set $activeSlave.underArmHColor to _currentRule.underArmHColor>>
- <<set $cash -= $modCost>>
- <br>$activeSlave.slaveName's underarm hair, if present, has been dyed _currentRule.underArmHColor.
- <</if>>
-<</if>>
-
<<set _tmp to lastUnderArmHColorRule($activeSlave, $defaultRules)>>
<<if (_tmp != null) && (_tmp.ID is _currentRule.ID)>>
<<if (_currentRule.underArmHColor isnot "no default setting")>>
@@ -898,10 +886,6 @@ is now _currentRule.hLength cm long.
<</if>>
<</if>>
-<<if ndef _currentRule.underArmHStyle>>
-<<set _currentRule.underArmHStyle to "no default setting">>
-<</if>>
-
<<set _tmp to lastUnderArmHStyleRule($activeSlave, $defaultRules)>>
<<if (_tmp != null) && (_tmp.ID is _currentRule.ID)>>
<<if (_currentRule.underArmHStyle isnot "no default setting")>>
diff --git a/src/uncategorized/longSlaveDescription.tw b/src/uncategorized/longSlaveDescription.tw
index 4f0e7cee5ee7bc3b4e34416310a0969cadaad300..b4c54c335dcd50f68327fabe8b29655538989c10 100644
--- a/src/uncategorized/longSlaveDescription.tw
+++ b/src/uncategorized/longSlaveDescription.tw
@@ -1258,6 +1258,15 @@ when a dick is pushed inside <<if $activeSlave.vagina >= -1>>either of its lower
<</if>>
<<if $familyTesting == 1>>
+/*testtest PC parent passage - determines if the current slave is your mother or father*/
+<<if $activeSlave.ID == $PC.mother && $activeSlave.ID == $PC.father>>
+ She @@color:lightgreen;is both your mother and father, $pronoun impregnated <<print $object>>self with you.@@
+<<elseif $activeSlave.ID == $PC.mother>>
+ $pronounCap @@color:lightgreen;is your mother.@@
+<<elseif $activeSlave.ID == $PC.father>>
+ $pronounCap @@color:lightgreen;is your father.@@
+<</if>>
+
<<if $activeSlave.father == -1 && $activeSlave.mother == -1>>
She's @@color:lightgreen;my daughter,@@ I knocked myself up and gave birth to $object.
<</if>>
@@ -1326,6 +1335,549 @@ when a dick is pushed inside <<if $activeSlave.vagina >= -1>>either of its lower
<</if>>
<<set $children = []>>
+
+/*testtest maternal grandma passage - determines if the current slave has a maternal grandmother*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID && $slaves[$i].ID == $activeSlave.mother>>
+ <<for $j to 0; $j < $slaves.length; $j++>>
+ <<if $slaves[$j].ID != $activeSlave.ID && $slaves[$j].ID != $slaves[$i].ID && $slaves[$j].ID == $slaves[$i].mother>>
+ $pronounCap maternal @@color:lightgreen;grandmother is $slaves[$j].slaveName.@@
+ <</if>>
+ <</for>>
+ <<elseif $PC.ID == $activeSlave.mother && $slaves[$i].ID == $PC.mother>>
+ $pronounCap maternal @@color:lightgreen;grandmother is $slaves[$i].slaveName.@@
+ <</if>>
+<</for>>
+
+/*testtest maternal grandpa passage - determines if the current slave has a maternal grandfather*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID && $slaves[$i].ID == $activeSlave.mother>>
+ <<for $j to 0; $j < $slaves.length; $j++>>
+ <<if $slaves[$j].ID != $activeSlave.ID && $slaves[$j].ID != $slaves[$i].ID && $slaves[$j].ID == $slaves[$i].father>>
+ $pronounCap maternal @@color:lightgreen;grandfather is $slaves[$j].slaveName.@@
+ <</if>>
+ <</for>>
+ <<elseif $PC.ID == $activeSlave.mother && $slaves[$i].ID == $PC.father>>
+ $pronounCap maternal @@color:lightgreen;grandfather is $slaves[$i].slaveName.@@
+ <</if>>
+<</for>>
+
+/*testtest paternal grandma passage - determines if the current slave has a paternal grandmother*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID && $slaves[$i].ID == $activeSlave.father>>
+ <<for $j to 0; $j < $slaves.length; $j++>>
+ <<if $slaves[$j].ID != $activeSlave.ID && $slaves[$j].ID != $slaves[$i].ID && $slaves[$j].ID == $slaves[$i].mother>>
+ $pronounCap paternal @@color:lightgreen;grandmother is $slaves[$j].slaveName.@@
+ <</if>>
+ <</for>>
+ <<elseif $PC.ID == $activeSlave.father && $slaves[$i].ID == $PC.mother>>
+ $pronounCap paternal @@color:lightgreen;grandmother is $slaves[$i].slaveName.@@
+ <</if>>
+<</for>>
+
+/*testtest paternal grandpa passage - determines if the current slave has a paternal grandfather*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID && $slaves[$i].ID == $activeSlave.father>>
+ <<for $j to 0; $j < $slaves.length; $j++>>
+ <<if $slaves[$j].ID != $activeSlave.ID && $slaves[$j].ID != $slaves[$i].ID && $slaves[$j].ID == $slaves[$i].father>>
+ $pronounCap paternal @@color:lightgreen;grandfather is $slaves[$j].slaveName.@@
+ <</if>>
+ <</for>>
+ <<elseif $PC.ID == $activeSlave.father && $slaves[$i].ID == $PC.father>>
+ $pronounCap paternal @@color:lightgreen;grandfather is $slaves[$i].slaveName.@@
+ <</if>>
+<</for>>
+
+/*testtest PC grandparents passage - determines if the current slave is your grandparent*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if $activeSlave.ID == $slaves[$i].mother && $slaves[$i].ID == $PC.mother && $activeSlave.ID == $slaves[$i].father && $slaves[$i].ID == $PC.father>>
+ $pronounCap is @@color:lightgreen;your grandparent.@@ $pronounCap impregnated <<print $object>>self with your mother/father who in turn impregnated themselves with you.
+ <<elseif $activeSlave.ID == $slaves[$i].mother>>
+ <<if $slaves[$i].ID == $PC.mother>>
+ $pronounCap is @@color:lightgreen;your maternal grandmother.@@
+ <<elseif $slaves[$i].ID == $PC.father>>
+ $pronounCap is @@color:lightgreen;your paternal grandmother.@@
+ <</if>>
+ <<elseif $activeSlave.ID == $slaves[$i].father>>
+ <<if $slaves[$i].ID == $PC.mother>>
+ $pronounCap is @@color:lightgreen;your maternal grandfather.@@
+ <<elseif $slaves[$i].ID == $PC.father>>
+ $pronounCap is @@color:lightgreen;your paternal grandfather.@@
+ <</if>>
+ <</if>>
+ <</if>>
+<</for>>
+
+/*testtest grandchild passage - determines how many grandchildren the current slave has*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if $activeSlave.ID == $slaves[$i].mother or $activeSlave.ID == $slaves[$i].father>>
+ <<for $j to 0; $j < $slaves.length; $j++>>
+ <<if $slaves[$i].ID != $slaves[$j].ID>>
+ <<if $slaves[$i].ID == $slaves[$j].mother or $slaves[$i].ID == $slaves[$j].father>>
+ <<set $children.push($slaves[$j])>>
+ <</if>>
+ <</if>>
+ <</for>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $children.length > 0>>
+ $pronounCap
+<<if $children.length > 2>>
+ has @@color:lightgreen;many grandchildren,
+ <<for $j to 0; $j < $children.length; $j++>>
+ <<if $j < $children.length-1>>
+ $children[$j].slaveName,
+ <<else>>
+ and $children[$j].slaveName amongst your slaves.@@
+ <</if>>
+ <</for>>
+<<elseif $children.length > 1>>
+ has @@color:lightgreen;two grandchildren, $children[0].slaveName, and $children[1].slaveName as your slaves.@@
+<<elseif $children.length > 0>>
+ has a @@color:lightgreen;grandchild, $children[0].slaveName as your slave.@@
+<</if>>
+<</if>>
+<<set $children = []>>
+
+/*testtest PC aunt passage - determines how many aunts you have*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if areSisters($slaves[$i], $activeSlave) == 1 || areSisters($slaves[$i], $activeSlave) == 2>>
+ <<if $slaves[$i].ID == $PC.mother || $slaves[$i].ID == $PC.father>>
+ <<for $j to 0; $j < $slaves.length; $j++>>
+ <<if $slaves[$i].ID != $slaves[$j].ID >>
+ <<if $slaves[$j].vagina > -1>>
+ <<if areSisters($slaves[$j], $activeSlave) == 1 || areSisters($slaves[$j], $activeSlave) == 2>>
+ <<set $children.push($slaves[$j])>>
+ <</if>>
+ <</if>>
+ <</if>>
+ <</for>>
+ <</if>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $activeSlave.vagina > -1 && $children.length > 0>>
+ $pronounCap
+ <<if $children.length > 1>>
+ is @@color:lightgreen;your aunt along with
+ <<for $j to 0; $j < $children.length; $j++>>
+ <<if $j < $children.length-1>>
+ $children[$j].slaveName,
+ <<else>>
+ and $children[$j].slaveName.@@
+ <</if>>
+ <</for>>
+ <<elseif $children.length > 0>>
+ is @@color:lightgreen;your aunt along with $children[0].slaveName.@@
+ <</if>>
+<<else>>
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID && $activeSlave.vagina > -1>>
+ <<if areSisters($slaves[$i], $activeSlave) == 1 || areSisters($slaves[$i], $activeSlave) == 2>>
+ <<if $slaves[$i].ID == $PC.mother || $slaves[$i].ID == $PC.father>>
+ $pronounCap is @@color:lightgreen;your aunt.@@
+ <</if>>
+ <</if>>
+ <</if>>
+<</for>>
+<</if>>
+<<set $children = []>>
+
+/*testtest PC uncle passage - determines how many uncles you have*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if areSisters($slaves[$i], $activeSlave) == 1 || areSisters($slaves[$i], $activeSlave) == 2>>
+ <<if $slaves[$i].ID == $PC.mother || $slaves[$i].ID == $PC.father>>
+ <<for $j to 0; $j < $slaves.length; $j++>>
+ <<if $slaves[$i].ID != $slaves[$j].ID && $slaves[$j].dick > 0 && $slaves[$j].vagina == -1>>
+ <<if areSisters($slaves[$j], $activeSlave) == 1 || areSisters($slaves[$j], $activeSlave) == 2>>
+ <<set $children.push($slaves[$j])>>
+ <</if>>
+ <</if>>
+ <</for>>
+ <</if>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $activeSlave.dick > 0 && $activeSlave.vagina == -1 && $children.length > 0>>
+ $pronounCap
+ <<if $children.length > 1>>
+ is @@color:lightgreen;your uncle along with
+ <<for $j to 0; $j < $children.length; $j++>>
+ <<if $j < $children.length-1>>
+ $children[$j].slaveName,
+ <<else>>
+ and $children[$j].slaveName.@@
+ <</if>>
+ <</for>>
+ <<elseif $children.length > 0>>
+ is @@color:lightgreen;your uncle along with $children[0].slaveName.@@
+ <</if>>
+<<else>>
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID && $activeSlave.dick > 0 && $activeSlave.vagina == -1>>
+ <<if areSisters($slaves[$i], $activeSlave) == 1 || areSisters($slaves[$i], $activeSlave) == 2>>
+ <<if $slaves[$i].ID == $PC.mother || $slaves[$i].ID == $PC.father>>
+ $pronounCap is @@color:lightgreen;your uncle.@@
+ <</if>>
+ <</if>>
+ <</if>>
+<</for>>
+<</if>>
+<<set $children = []>>
+
+/*testtest aunt passage - determines how many aunts a slave has*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if $slaves[$i].ID == $activeSlave.mother || $slaves[$i].ID == $activeSlave.father>>
+ <<for $j to 0; $j < $slaves.length; $j++>>
+ <<if $slaves[$j].vagina > -1>>
+ <<if areSisters($slaves[$j], $slaves[$i]) == 1 || areSisters($slaves[$j], $slaves[$i]) == 2>>
+ <<set $children.push($slaves[$j])>>
+ <</if>>
+ <</if>>
+ <</for>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $children.length > 0>>
+ $pronounCap
+<<if $children.length > 2>>
+ has @@color:lightgreen;many aunts,
+ <<for $j to 0; $j < $children.length; $j++>>
+ <<if $j < $children.length-1>>
+ $children[$j].slaveName,
+ <<else>>
+ and $children[$j].slaveName.@@
+ <</if>>
+ <</for>>
+<<elseif $children.length > 1>>
+ has @@color:lightgreen;two aunts, $children[0].slaveName, and $children[1].slaveName.@@
+<<elseif $children.length > 0>>
+ has @@color:lightgreen;an aunt, $children[0].slaveName.@@
+<</if>>
+<</if>>
+<<set $children = []>>
+
+/*testtest uncle passage - determines how many uncles a slave has*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if $slaves[$i].ID == $activeSlave.mother || $slaves[$i].ID == $activeSlave.father>>
+ <<for $j to 0; $j < $slaves.length; $j++>>
+ <<if $slaves[$j].dick > 0 && $slaves[$j].vagina == -1>>
+ <<if areSisters($slaves[$j], $slaves[$i]) == 1 || areSisters($slaves[$j], $slaves[$i]) == 2>>
+ <<set $children.push($slaves[$j])>>
+ <</if>>
+ <</if>>
+ <</for>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $activeSlave.vagina > -1 && $children.length > 0>>
+ $pronounCap
+<<if $children.length > 2>>
+ has @@color:lightgreen;many aunts,
+ <<for $j to 0; $j < $children.length; $j++>>
+ <<if $j < $children.length-1>>
+ $children[$j].slaveName,
+ <<else>>
+ and $children[$j].slaveName.@@
+ <</if>>
+ <</for>>
+<<elseif $children.length > 1>>
+ has @@color:lightgreen;two aunts, $children[0].slaveName, and $children[1].slaveName.@@
+<<elseif $children.length > 0>>
+ has @@color:lightgreen;an aunt, $children[0].slaveName.@@
+<</if>>
+<</if>>
+<<set $children = []>>
+
+/*testtest PC niece passage - determines how many nieces you have*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if areSisters($slaves[$i], $PC) == 1 || areSisters($slaves[$i], $PC) == 2>>
+ <<if $slaves[$i].ID == $activeSlave.mother || $slaves[$i].ID == $activeSlave.father>>
+ <<for $j to 0; $j < $slaves.length; $j++>>
+ <<if $slaves[$i].ID != $slaves[$j].ID && $slaves[$j].vagina > -1>>
+ <<if $slaves[$i].ID == $slaves[$j].mother || $slaves[$i].ID == $slaves[$j].father>>
+ <<set $children.push($slaves[$j])>>
+ <</if>>
+ <</if>>
+ <</for>>
+ <</if>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $activeSlave.vagina > -1 && $children.length > 0>>
+ $pronounCap
+<<if $children.length > 1>>
+ is @@color:lightgreen;your niece along with
+ <<for $j to 0; $j < $children.length; $j++>>
+ <<if $j < $children.length-1>>
+ $children[$j].slaveName,
+ <<else>>
+ and $children[$j].slaveName.@@
+ <</if>>
+ <</for>>
+<<elseif $children.length > 0>>
+ is @@color:lightgreen;your niece along with $children[0].slaveName.@@
+<<else>>
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID && $activeSlave.vagina > -1>>
+ <<if areSisters($slaves[$i], $PC) == 1 || areSisters($slaves[$i], $PC) == 2>>
+ <<if $slaves[$i].ID == $activeSlave.mother || $slaves[$i].ID == $activeSlave.father>>
+ She is @@color:lightgreen;your niece.@@
+ <</if>>
+ <</if>>
+ <</if>>
+<</for>>
+<</if>>
+<</if>>
+<<set $children = []>>
+
+/* testtest niece passage - determines how many nieces a slave has*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if areSisters($slaves[$i], $activeSlave) > 0>>
+ <<for $j to 0; $j < $slaves.length; $j++>>
+ <<if $slaves[$i].ID != $slaves[$j].ID && $slaves[$j].vagina > -1>>
+ <<if $slaves[$i].ID == $slaves[$j].mother || $slaves[$i].ID == $slaves[$j].father>>
+ <<set $children.push($slaves[$j])>>
+ <</if>>
+ <</if>>
+ <</for>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $activeSlave.vagina > -1 && $children.length > 0>>
+ $pronounCap
+<<if $children.length > 2>>
+ has @@color:lightgreen;many nieces,
+ <<for $j to 0; $j < $children.length; $j++>>
+ <<if $j < $children.length-1>>
+ $children[$j].slaveName,
+ <<else>>
+ and $children[$j].slaveName, who are your slaves.@@
+ <</if>>
+ <</for>>
+<<elseif $children.length > 1>>
+ has @@color:lightgreen;two nieces, $children[0].slaveName, and $children[1].slaveName, who are your slaves.@@
+<<elseif $children.length > 0>>
+ has @@color:lightgreen;a niece, $children[0].slaveName, who is your slave.@@
+<</if>>
+<</if>>
+<<set $children = []>>
+
+/*testtest PC nephew passage - determines how many nephews you have*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if areSisters($slaves[$i], $PC) == 1 || areSisters($slaves[$i], $PC) == 2>>
+ <<if $slaves[$i].ID == $activeSlave.mother || $slaves[$i].ID == $activeSlave.father>>
+ <<for $j to 0; $j < $slaves.length; $j++>>
+ <<if $slaves[$i].ID != $slaves[$j].ID && $slaves[$i].dick > 0 && $slaves[$i].vagina == -1>>
+ <<if $slaves[$i].ID == $slaves[$j].mother || $slaves[$i].ID == $slaves[$j].father>>
+ <<set $children.push($slaves[$j])>>
+ <</if>>
+ <</if>>
+ <</for>>
+ <</if>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $activeSlave.dick > 0 && $activeSlave.vagina == -1 && $children.length > 0>>
+ $pronounCap
+<<if $children.length > 1>>
+ is @@color:lightgreen;your nephew along with
+ <<for $j to 0; $j < $children.length; $j++>>
+ <<if $j < $children.length-1>>
+ $children[$j].slaveName,
+ <<else>>
+ and $children[$j].slaveName.@@
+ <</if>>
+ <</for>>
+<<elseif $children.length > 0>>
+ is @@color:lightgreen;your nephew along with $children[0].slaveName.@@
+<<else>>
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID && $activeSlave.dick > 0 && $activeSlave.vagina == -1>>
+ <<if areSisters($slaves[$i], $PC) == 1 || areSisters($slaves[$i], $PC) == 2>>
+ <<if $slaves[$i].ID == $activeSlave.mother || $slaves[$i].ID == $activeSlave.father>>
+ He is @@color:lightgreen;your nephew.@@
+ <</if>>
+ <</if>>
+ <</if>>
+<</for>>
+<</if>>
+<</if>>
+<<set $children = []>>
+
+/* testtest nephew passage - determines how many nephews a slave has*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if areSisters($slaves[$i], $activeSlave) > 0>>
+ <<for $j to 0; $j < $slaves.length; $j++>>
+ <<if $slaves[$i].ID != $slaves[$j].ID && $slaves[$j].dick > 0 && $slaves[$j].vagina == -1>>
+ <<if $slaves[$i].ID == $slaves[$j].mother || $slaves[$i].ID == $slaves[$j].father>>
+ <<set $children.push($slaves[$j])>>
+ <</if>>
+ <</if>>
+ <</for>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $activeSlave.vagina > -1 && $children.length > 0>>
+ $pronounCap
+<<if $children.length > 2>>
+ has @@color:lightgreen;many nieces,
+ <<for $j to 0; $j < $children.length; $j++>>
+ <<if $j < $children.length-1>>
+ $children[$j].slaveName,
+ <<else>>
+ and $children[$j].slaveName, who are your slaves.@@
+ <</if>>
+ <</for>>
+<<elseif $children.length > 1>>
+ has @@color:lightgreen;two nieces, $children[0].slaveName, and $children[1].slaveName, who are your slaves.@@
+<<elseif $children.length > 0>>
+ has @@color:lightgreen;a niece, $children[0].slaveName, who is your slave.@@
+<</if>>
+<</if>>
+<<set $children = []>>
+
+/*testtest PC twin passages - determines how many twins you have but not implemented yet*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if areSisters($activeSlave, $PC) == 1 && areSisters($slaves[$i], $activeSlave) == 1>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $children.length > 1>>
+ $pronounCap @@color:lightgreen;shared a cramped womb with you
+ <<for $j to 0; $j < $children.length; $j++>>
+ <<if $j < $children.length-1>>
+ , $children[$j].slaveName
+ <<else>>
+ and $children[$j].slaveName.@@
+ <</if>>
+ <</for>>
+<<elseif areSisters($activeSlave, $PC) == 1>>
+ $pronounCap is @@color:lightgreen;your twin sister.@@
+<</if>>
+<<set $children = []>>
+
+/*testtest PC sister passages - determines how many sisters you have*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if areSisters($activeSlave, $PC) == 2 && areSisters($slaves[$i], $activeSlave) < 3 && areSisters($slaves[$i], $activeSlave) > 0 && $slaves[$i].vagina > -1>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $activeSlave.vagina > -1 && $children.length > 0>>
+ $pronounCap
+<<if $children.length > 1>>
+ @@color:lightgreen;is your sister along with
+ <<for $j to 0; $j < $children.length; $j++>>
+ <<if $j < $children.length-1>>
+ $children[$j].slaveName,
+ <<else>>
+ and $children[$j].slaveName.@@
+ <</if>>
+ <</for>>
+<<elseif $children.length > 0>>
+ is @@color:lightgreen;your sister along with $children[0].slaveName.@@
+<</if>>
+<<elseif areSisters($activeSlave, $PC) == 2 && $activeSlave.vagina > -1>>
+ is @@color:lightgreen;your sister.@@
+<</if>>
+<<set $children = []>>
+
+/*testtest PC brother passages - determines how many brothers you have*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if areSisters($activeSlave, $PC) == 2 && areSisters($slaves[$i], $activeSlave) < 2 && areSisters($slaves[$i], $activeSlave) > 0 && $slaves[$i].dick > 0 && $slaves[$i].vagina == -1>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $activeSlave.dick > 0 && $activeSlave.vagina == -1 && $children.length > 0>>
+ $pronounCap
+<<if $children.length > 1>>
+ @@color:lightgreen;is your brother along with
+ <<for $j to 0; $j < $children.length; $j++>>
+ <<if $j < $children.length-1>>
+ $children[$j].slaveName,
+ <<else>>
+ and $children[$j].slaveName.@@
+ <</if>>
+ <</for>>
+<<elseif $children.length > 0>>
+ is @@color:lightgreen;your brother along with $children[0].slaveName.@@
+<</if>>
+<<elseif areSisters($activeSlave, $PC) == 2 && $activeSlave.dick > 0 && $activeSlave.vagina == -1>>
+ is @@color:lightgreen;your brother.@@
+<</if>>
+<<set $children = []>>
+
+/*testtest PC half-sister passages - determines how many half-sisters you have*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if areSisters($activeSlave, $PC) == 3 && areSisters($slaves[$i], $PC) == 3 && $slaves[$i].vagina > -1>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $activeSlave.vagina > -1 && $children.length > 0>>
+ $pronounCap
+<<if $children.length > 1>>
+ is @@color:lightgreen;your half-sister along with
+ <<for $j to 0; $j < $children.length; $j++>>
+ <<if $j < $children.length-1>>
+ $children[$j].slaveName,
+ <<else>>
+ and $children[$j].slaveName.@@
+ <</if>>
+ <</for>>
+<<elseif $children.length > 0>>
+ is @@color:lightgreen;your half-sister along with $children[0].slaveName.@@
+<</if>>
+<<elseif areSisters($activeSlave, $PC) == 3 && $activeSlave.vagina > -1>>
+ is @@color:lightgreen;your half-sister.@@
+<</if>>
+<<set $children = []>>
+
+/*testtest PC half-brother passages - determines how many half-brothers you have*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if areSisters($activeSlave, $PC) == 3 && areSisters($slaves[$i], $PC) == 3 && $slaves[$i].dick > 0 && $slaves[$i].vagina == -1>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $activeSlave.dick > 0 && $activeSlave.vagina == -1 && $children.length > 0>>
+ $pronounCap
+<<if $children.length > 1>>
+ is @@color:lightgreen;your half-brother along with
+ <<for $j to 0; $j < $children.length; $j++>>
+ <<if $j < $children.length-1>>
+ $children[$j].slaveName,
+ <<else>>
+ and $children[$j].slaveName.@@
+ <</if>>
+ <</for>>
+<<elseif $children.length > 0>>
+ is @@color:lightgreen;your half-brother along with $children[0].slaveName.@@
+<</if>>
+<<elseif areSisters($activeSlave, $PC) == 3 && $activeSlave.dick > 0 && $activeSlave.vagina == -1>>
+ is @@color:lightgreen;your half-brother.@@
+<</if>>
+<<set $children = []>>
+
<<for $i to 0; $i < $slaves.length; $i++>>
<<if $slaves[$i].ID != $activeSlave.ID>>
<<if areSisters($activeSlave, $slaves[$i]) == 1>>
@@ -1349,9 +1901,10 @@ when a dick is pushed inside <<if $activeSlave.vagina >= -1>>either of its lower
<</if>>
<<set $children = []>>
+/*testtest sister - determines how many sisters a slave has*/
<<for $i to 0; $i < $slaves.length; $i++>>
<<if $slaves[$i].ID != $activeSlave.ID>>
- <<if areSisters($activeSlave, $slaves[$i]) == 2>>
+ <<if areSisters($activeSlave, $slaves[$i]) == 2 && $slaves[$i].vagina > -1>>
<<set $children.push($slaves[$i])>>
<</if>>
<</if>>
@@ -1372,6 +1925,31 @@ when a dick is pushed inside <<if $activeSlave.vagina >= -1>>either of its lower
<</if>>
<<set $children = []>>
+/*testtest brother - determines how many brothers a slave has*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if areSisters($activeSlave, $slaves[$i]) == 2 && $slaves[$i].dick > 0 && $slaves[$i].vagina == -1>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $children.length > 2>>
+ $pronounCap is @@color:lightgreen;brothers with
+ <<for $j to 0; $j < $children.length; $j++>>
+ <<if $j < $children.length-1>>
+ $children[$j].slaveName,
+ <<else>>
+ and $children[$j].slaveName.@@
+ <</if>>
+ <</for>>
+<<elseif $children.length > 1>>
+ $pronounCap is @@color:lightgreen;brothers with $children[0].slaveName and $children[1].slaveName.@@
+<<elseif $children.length > 0>>
+ $pronounCap is @@color:lightgreen;brothers with $children[0].slaveName.@@
+<</if>>
+<<set $children = []>>
+
+/*testtest half-sister - determines how many half-sisters a slave has*/
<<for $i to 0; $i < $slaves.length; $i++>>
<<if $slaves[$i].ID != $activeSlave.ID>>
<<if areSisters($activeSlave, $slaves[$i]) == 3>>
@@ -1380,7 +1958,7 @@ when a dick is pushed inside <<if $activeSlave.vagina >= -1>>either of its lower
<</if>>
<</for>>
<<if $children.length > 2>>
- $pronounCap is a @@color:lightgreen;half-sister to
+ $pronounCap is @@color:lightgreen;half-sisters with
<<for $j to 0; $j < $children.length; $j++>>
<<if $j < $children.length-1>>
$children[$j].slaveName,
@@ -1395,6 +1973,30 @@ when a dick is pushed inside <<if $activeSlave.vagina >= -1>>either of its lower
<</if>>
<<set $children = []>>
+/*testtest half-brother - determines how many half-brothers a slave has*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if areSisters($activeSlave, $slaves[$i]) == 3 && $slaves[$i].dick > 0 && $slaves[$i].vagina == -1>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $children.length > 2>>
+ $pronounCap is @@color:lightgreen;half-brothers with
+ <<for $j to 0; $j < $children.length; $j++>>
+ <<if $j < $children.length-1>>
+ $children[$j].slaveName,
+ <<else>>
+ and $children[$j].slaveName.@@
+ <</if>>
+ <</for>>
+<<elseif $children.length > 1>>
+ $pronounCap is a @@color:lightgreen;half-brother to $children[0].slaveName and $children[1].slaveName.@@
+<<elseif $children.length > 0>>
+ $pronounCap is a @@color:lightgreen;half-brother to $children[0].slaveName.@@
+<</if>>
+<<set $children = []>>
+
<<if $activeSlave.relationship >= 3 && ($activeSlave.mother > 0 || $activeSlave.father > 0 || $activeSlave.daughters > 0 || $activeSlave.sisters > 0)>>
<<for $i to 0; $i < $slaves.length; $i++>>
<<if $slaves[$i].ID is $activeSlave.relationshipTarget>>
diff --git a/src/uncategorized/main.tw b/src/uncategorized/main.tw
index 8cb17b5226444177a7d127d2d737bfdc9e33ab4c..751cec588add3a6231d36936075b01c010586941 100644
--- a/src/uncategorized/main.tw
+++ b/src/uncategorized/main.tw
@@ -44,6 +44,9 @@
<<if ndef $animalParts>>
<<set $animalParts = 0>>
<</if>>
+<<if ndef $genePool>>
+ <<set $genePool = []>>
+<</if>>
<<set $currentRule to $defaultRules[0]>>
diff --git a/src/uncategorized/nationalityToName.tw b/src/uncategorized/nationalityToName.tw
index 979a98a6a2824e7c3c5bc76d04b3cd54707e4b33..c068e502b0ce0bdf50bc43aa3a6863ab05735f05 100644
--- a/src/uncategorized/nationalityToName.tw
+++ b/src/uncategorized/nationalityToName.tw
@@ -1,6 +1,7 @@
:: Nationality to Name [nobr]
-<<if ($activeSlave.nationality is "American")>>
+<<switch $activeSlave.nationality>>
+<<case "American">>
<<if $activeSlave.race is "black">>
<<set $activeSlave.birthName to $africanAmericanSlaveNames.random()>>
<<elseif $activeSlave.race is "latina">>
@@ -12,192 +13,192 @@
<<else>>
<<set $activeSlave.birthName to $whiteAmericanSlaveNames.random()>>
<</if>>
-<<elseif ($activeSlave.nationality is "Canadian")>>
+<<case "Canadian">>
<<set $activeSlave.birthName to $canadianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Mexican")>>
+<<case "Mexican">>
<<set $activeSlave.birthName to $mexicanSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Dominican")>>
+<<case "Dominican">>
<<set $activeSlave.birthName to $dominicanSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Puerto Rican")>>
+<<case "Puerto Rican">>
<<set $activeSlave.birthName to $puertoRicanSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Haitian")>>
+<<case "Haitian">>
<<set $activeSlave.birthName to $haitianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Jamaican")>>
+<<case "Jamaican">>
<<set $activeSlave.birthName to $jamaicanSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Cuban")>>
+<<case "Cuban">>
<<set $activeSlave.birthName to $cubanSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Guatemalan")>>
+<<case "Guatemalan">>
<<set $activeSlave.birthName to $guatemalanSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Chilean")>>
+<<case "Chilean">>
<<set $activeSlave.birthName to $chileanSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Peruvian")>>
+<<case "Peruvian">>
<<set $activeSlave.birthName to $peruvianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Bolivian")>>
+<<case "Bolivian">>
<<set $activeSlave.birthName to $bolivianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Venezuelan")>>
+<<case "Venezuelan">>
<<set $activeSlave.birthName to $venezuelanSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Belarusian")>>
+<<case "Belarusian">>
<<set $activeSlave.birthName to $belarusianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Russian")>>
+<<case "Russian">>
<<set $activeSlave.birthName to $russianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Ukrainian")>>
+<<case "Ukrainian">>
<<set $activeSlave.birthName to $ukrainianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Italian")>>
+<<case "Italian">>
<<set $activeSlave.birthName to $italianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Spanish")>>
+<<case "Spanish">>
<<set $activeSlave.birthName to $spanishSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "British")>>
+<<case "British">>
<<set $activeSlave.birthName to $britishSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Scottish")>>
+<<case "Scottish">>
<<set $activeSlave.birthName to $scottishSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "French")>>
+<<case "French">>
<<set $activeSlave.birthName to $frenchSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "German")>>
+<<case "German">>
<<set $activeSlave.birthName to $germanSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Lithuanian")>>
+<<case "Lithuanian">>
<<set $activeSlave.birthName to $lithuanianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Norwegian")>>
+<<case "Norwegian">>
<<set $activeSlave.birthName to $norwegianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Slovak")>>
+<<case "Slovak">>
<<set $activeSlave.birthName to $slovakSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Danish")>>
+<<case "Danish">>
<<set $activeSlave.birthName to $danishSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Dutch")>>
+<<case "Dutch">>
<<set $activeSlave.birthName to $dutchSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Austrian")>>
+<<case "Austrian">>
<<set $activeSlave.birthName to $austrianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Swiss")>>
+<<case "Swiss">>
<<set $activeSlave.birthName to $swissSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Serbian")>>
+<<case "Serbian">>
<<set $activeSlave.birthName to $serbianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Belgian")>>
+<<case "Belgian">>
<<set $activeSlave.birthName to $belgianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Czech")>>
+<<case "Czech">>
<<set $activeSlave.birthName to $czechSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Portuguese")>>
+<<case "Portuguese">>
<<set $activeSlave.birthName to $portugueseSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Swedish")>>
+<<case "Swedish">>
<<set $activeSlave.birthName to $swedishSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Romanian")>>
+<<case "Romanian">>
<<set $activeSlave.birthName to $romanianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Hungarian")>>
+<<case "Hungarian">>
<<set $activeSlave.birthName to $hungarianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Estonian")>>
+<<case "Estonian">>
<<set $activeSlave.birthName to $estonianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Irish")>>
+<<case "Irish">>
<<set $activeSlave.birthName to $irishSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Icelandic")>>
+<<case "Icelandic">>
<<set $activeSlave.birthName to $icelandicSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Finnish")>>
+<<case "Finnish">>
<<set $activeSlave.birthName to $finnishSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Greek")>>
+<<case "Greek">>
<<set $activeSlave.birthName to $greekSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Polish")>>
+<<case "Polish">>
<<set $activeSlave.birthName to $polishSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Brazilian")>>
+<<case "Brazilian">>
<<set $activeSlave.birthName to $brazilianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Egyptian")>>
+<<case "Egyptian">>
<<set $activeSlave.birthName to $egyptianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Colombian")>>
+<<case "Colombian">>
<<set $activeSlave.birthName to $colombianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Argentinian")>>
+<<case "Argentinian">>
<<set $activeSlave.birthName to $argentinianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Turkish")>>
+<<case "Turkish">>
<<set $activeSlave.birthName to $turkishSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Iranian")>>
+<<case "Iranian">>
<<set $activeSlave.birthName to $iranianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Armenian")>>
+<<case "Armenian">>
<<set $activeSlave.birthName to $armenianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Israeli")>>
+<<case "Israeli">>
<<set $activeSlave.birthName to $israeliSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Saudi")>>
+<<case "Saudi">>
<<set $activeSlave.birthName to $saudiSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "South African")>>
+<<case "South African">>
<<if $activeSlave.race is "black">>
<<set $activeSlave.birthName to $blackSouthAfricanSlaveNames.random()>>
<<else>>
<<set $activeSlave.birthName to $whiteSouthAfricanSlaveNames.random()>>
<</if>>
-<<elseif ($activeSlave.nationality is "Nigerian")>>
+<<case "Nigerian">>
<<set $activeSlave.birthName to $nigerianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Congolese")>>
+<<case "Congolese">>
<<set $activeSlave.birthName to $congoleseSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Kenyan")>>
+<<case "Kenyan">>
<<set $activeSlave.birthName to $kenyanSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Tanzanian")>>
+<<case "Tanzanian">>
<<set $activeSlave.birthName to $tanzanianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Zimbabwean")>>
+<<case "Zimbabwean">>
<<if $activeSlave.race == "white">>
<<set $activeSlave.birthName to $britishSlaveNames.random()>>
<<else>>
<<set $activeSlave.birthName to $zimbabweanSlaveNames.random()>>
<</if>>
-<<elseif ($activeSlave.nationality is "Ghanan")>>
+<<case "Ghanan">>
<<set $activeSlave.birthName to $ghananSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Ugandan")>>
+<<case "Ugandan">>
<<set $activeSlave.birthName to $ugandanSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Ethiopian")>>
+<<case "Ethiopian">>
<<set $activeSlave.birthName to $ethiopianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Moroccan")>>
+<<case "Moroccan">>
<<set $activeSlave.birthName to $moroccanSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Chinese")>>
+<<case "Chinese">>
<<set $activeSlave.birthName to $chineseSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Korean")>>
+<<case "Korean">>
<<set $activeSlave.birthName to $koreanSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Thai")>>
+<<case "Thai">>
<<set $activeSlave.birthName to $thaiSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Vietnamese")>>
+<<case "Vietnamese">>
<<set $activeSlave.birthName to $vietnameseSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Japanese")>>
+<<case "Japanese">>
<<set $activeSlave.birthName to $japaneseSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Indonesian")>>
+<<case "Indonesian">>
<<set $activeSlave.birthName to $indonesianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Filipina")>>
+<<case "Filipina">>
<<set $activeSlave.birthName to $filipinaSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Bangladeshi")>>
+<<case "Bangladeshi">>
<<set $activeSlave.birthName to $bangladeshiSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Malaysian")>>
+<<case "Malaysian">>
<<set $activeSlave.birthName to $malaysianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Uzbek")>>
+<<case "Uzbek">>
<<set $activeSlave.birthName to $uzbekSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Afghan")>>
+<<case "Afghan">>
<<set $activeSlave.birthName to $afghanSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Nepalese")>>
+<<case "Nepalese">>
<<set $activeSlave.birthName to $nepaleseSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Burmese")>>
+<<case "Burmese">>
<<set $activeSlave.birthName to $burmeseSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Iraqi")>>
+<<case "Iraqi">>
<<set $activeSlave.birthName to $iraqiSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Yemeni")>>
+<<case "Yemeni">>
<<set $activeSlave.birthName to $yemeniSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Sudanese")>>
+<<case "Sudanese">>
<<set $activeSlave.birthName to $sudaneseSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Algerian")>>
+<<case "Algerian">>
<<set $activeSlave.birthName to $algerianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Tunisian")>>
+<<case "Tunisian">>
<<set $activeSlave.birthName to $tunisianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Libyan")>>
+<<case "Libyan">>
<<set $activeSlave.birthName to $libyanSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Omani")>>
+<<case "Omani">>
<<set $activeSlave.birthName to $omaniSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Malian")>>
+<<case "Malian">>
<<set $activeSlave.birthName to $malianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Jordanian")>>
+<<case "Jordanian">>
<<set $activeSlave.birthName to $jordanianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Lebanese")>>
+<<case "Lebanese">>
<<set $activeSlave.birthName to $lebaneseSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Emirati")>>
+<<case "Emirati">>
<<set $activeSlave.birthName to $emiratiSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Kazakh")>>
+<<case "Kazakh">>
<<set $activeSlave.birthName to $kazakhSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Pakistani")>>
+<<case "Pakistani">>
<<set $activeSlave.birthName to $pakistaniSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Indian")>>
+<<case "Indian">>
<<set $activeSlave.birthName to $indianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "Australian")>>
+<<case "Australian">>
<<set $activeSlave.birthName to $australianSlaveNames.random()>>
-<<elseif ($activeSlave.nationality is "a New Zealander")>>
+<<case "a New Zealander">>
<<set $activeSlave.birthName to $newZealanderSlaveNames.random()>>
-<<else>>
+<<default>>
<<set $activeSlave.birthName to $whiteAmericanSlaveNames.random()>>
-<</if>>
+<</switch>>
diff --git a/src/uncategorized/reBusyMasterSuite.tw b/src/uncategorized/reBusyMasterSuite.tw
index 9d853a7e555c4163acbe4eaeda73f58c508ffe02..3969e9ebf22459f8e5c824e5447a79e71a44b91c 100644
--- a/src/uncategorized/reBusyMasterSuite.tw
+++ b/src/uncategorized/reBusyMasterSuite.tw
@@ -1,6 +1,4 @@
-:: RE busy master suite
-
-<<nobr>>
+:: RE busy master suite [nobr]
<<set $nextButton to "Continue">>
<<set $nextLink to "RIE Eligibility Check">>
@@ -24,13 +22,10 @@
<<goto "RIE Eligibility Check">>
<</if>>
-<</nobr>>\
-\
You have an extended meeting with a prominent citizen planned, from the start of business in the morning until you're done. That's likely to be in the late evening, since he's probably going to get into technical business proposals, and $Concubine.slaveName knows it. She is surprised, therefore, when a minor business emergency calls your would-be interlocutor away, canceling the meeting and sending you home hours earlier than you'd planned. She <<if canTalk($Concubine)>>giggles helplessly<<else>>signs humorously<</if>> at the surprise when you walk into your suite. Apparently, she decided to while away the hours until you got back by having some truly grandiose group sex with all the slave girls you have in the suite.
-<<nobr>>
-
<<set $seed to 0>>
+<br><br>
She had to turn to greet you as you entered, since she was facing away from the entry, and the reason why is rather obvious. Up near the opposite wall, $eligibleSlaves[$seed].slaveName is on the floor with her face down and her ass up.
<<for $i to 0; $i < $eligibleSlaves.length-1; $i++>>
@@ -120,12 +115,11 @@ who has paused her thrusting to issue a peremptory order to the slaves to stay w
$seed[0].slaveName is an anal virgin, so $Concubine.slaveName has her busy lying under slaves who aren't, offering what oral stimulation she can manage.
<</if>>
-<</nobr>>
-\
<span id="result">
-<<click "Slide in behind the concubine">>
+<br><br><<click "Slide in behind the concubine">>
<<replace "#result">>
<<set $seed to $eligibleSlaves.length-1>>
+ <br><br>
$Concubine.slaveName anticipates you, and is already sliding herself partway out of $eligibleSlaves[$seed].slaveName and cocking her hips to spread her <<if ($Concubine.butt > 5)>>huge<<elseif ($Concubine.butt > 2)>>healthy<<else>>trim<</if>> buttocks as wide as she can without disentangling herself from the anal train. Up on the bed she's at just the right height, and she winks her <<if ($Concubine.anus > 2)>>loose anus<<elseif ($Concubine.anus > 1)>>asshole<<else>>tight little asshole<</if>> invitingly<<if canTalk($Concubine)>>, laughing at the sheer decadence of it<</if>>. <<if ($PC.dick == 0)>>You pull on a strap-on and push it<<else>>You push yourself<</if>> home with some force, your concubine's extreme state of arousal leaving her ass very relaxed and welcoming; the thrust shoves her forward to hilt herself in $eligibleSlaves[$seed].slaveName, and so on down the line, producing more giggling, some squealing, and much scrabbling for balance. It takes a while to find the rhythm, and while you wait for the inevitable tangles to be fixed you decide to challenge yourself. You reach around and <<if ($Concubine.boobs > 1000)>>heft $Concubine.slaveName's heavy boobs<<elseif ($Concubine.boobs > 300)>>tease $Concubine.slaveName's healthy breasts<<else>>massage $Concubine.slaveName's flat chest<</if>>, nibbling her $Concubine.skin neck, and generally torturing her with stimulation until she climaxes to her beloved master. When she does, you extract yourself and pull her unceremoniously off $eligibleSlaves[$seed].slaveName, replacing her up $eligibleSlaves[$seed].slaveName's butt. You work your way down the line, orgasm by orgasm, delaying your own climax until the exhausted $eligibleSlaves[0].slaveName manages an anal orgasm by heroic efforts, and you're done. As you roll off her, panting, there is scattered applause and much congratulation from your harem of @@color:mediumaquamarine;trusting buttslaves.@@
<<for $i to 0; $i < $slaves.length; $i++>>
<<if $slaves[$i].assignment is "serve in the master suite">>
@@ -146,9 +140,10 @@ who has paused her thrusting to issue a peremptory order to the slaves to stay w
<</for>>
<</replace>>
<</click>>
-<<click "Slide in up at the head of the bed for some oral">>
+<br><<click "Slide in up at the head of the bed for some oral">>
<<replace "#result">>
<<set $seed to 0>>
+ <br><br>
$eligibleSlaves[0].slaveName's $eligibleSlaves[0].eyeColor eyes widen when you push her upright for a moment and slide in under her, but she wraps her <<if ($eligibleSlaves[0].lips > 70)>> dick sucking<<elseif ($eligibleSlaves[0].lips > 20)>> pretty<</if>> lips around your <<if ($PC.dick == 0)>>clit<<else>>cock<<if $PC.vagina == 1>> and starts stroking your pussy<</if>><</if>> eagerly enough, even as $eligibleSlaves[1].slaveName goes back to sodomizing her. The anal train is fairly gentle, since anything too fast would disintegrate the gymnastic arrangement, but $eligibleSlaves[0].slaveName is still getting enough of a buttfuck that she whimpers quietly into your <<if ($PC.vagina == 1)>>pussy<<else>>dick<</if>>, a nice feeling. The blowjob is <<if ($eligibleSlaves[0].oralSkill >= 100)>>masterful, despite the distraction<<elseif ($eligibleSlaves[0].oralSkill > 10)>>serviceable, despite the distraction<<else>>only mediocre, but serviceable enough<</if>>, so you let her work for a while before gently shoving her off the side of the bed and telling her to get to the back of the line. The slaves all shuffle forward awkwardly, and inadvertently block your view so that you hear rather than see $eligibleSlaves[0].slaveName penetrate your concubine $Concubine.slaveName's <<if ($Concubine.anus > 2)>>loose butt<<elseif ($Concubine.anus > 1)>>butt<<else>>tight little butt<</if>>, down near the foot of the bed. You climax, on occasion, but are enjoying yourself so immensely that you let the slaves continue the rotation until you're entirely spent, and they're entirely exhausted. You reach for a tablet to get some work done, in the center of a pile of sweaty, tired girls, all of whom are resting with at least one body part in contact with their @@color:hotpink;beloved@@ <<if $PC.title == 1>>master<<else>>mistress<</if>>.
<<for $i to 0; $i < $slaves.length; $i++>>
<<if $slaves[$i].assignment is "serve in the master suite">>
diff --git a/src/uncategorized/reBusyServantsQuarters.tw b/src/uncategorized/reBusyServantsQuarters.tw
index fdc98077d3921fad41e8af1f6368d2a250785138..0235861004b8e61798de8d8ef8eec313a90c237e 100644
--- a/src/uncategorized/reBusyServantsQuarters.tw
+++ b/src/uncategorized/reBusyServantsQuarters.tw
@@ -1,19 +1,16 @@
-:: RE busy servants quarters
-
-<<nobr>>
+:: RE busy servants quarters [nobr]
<<set $nextButton to "Continue">>
<<set $nextLink to "RIE Eligibility Check">>
-<</nobr>>\
-\
Your penthouse is very well staffed with servants. The trend in modern buildings is to design around automatic cleaning systems. Dusting, mopping, and polishing are no longer really necessary when machines that do them more cheaply and thoroughly than any human are readily available. Keeping slaves to clean is an ostentation, and visitors to your quarters are often @@color:green;surprised and gratified@@ to see a sex slave working away in the old way.<<set $rep += 100>>
-The busy servants' quarters are a reservoir of slaves that can be used for almost any whim that occurs to you.
-\
+<br><br>The busy servants' quarters are a reservoir of slaves that can be used for almost any whim that occurs to you.
+
<span id="result">
-<<click "Share the servants' quarters with your more favored slaves">>
+<br><br><<click "Share the servants' quarters with your more favored slaves">>
<<replace "#result">>
+ <br><br>
The poor slaves in the servants' quarters are lower than almost any others, and they know it. Unfortunately for them, they're about to spend a long weekend knowing it unusually well. Sleeping time is usually nearly inviolate; you are the only person in the penthouse who is permitted to wake a sleeping slave for any but emergency reasons. Not now. You haunt the servants' quarters, using and abusing at will, and encourage your better slaves to follow your example. They quickly take the opportunity to be better than someone for once, and compete with each other in sexual harassment of the servants. They @@color:hotpink;appreciate@@ having @@color:mediumorchid;targets@@ for their frustrations.
<<for $i to 0; $i < $slaves.length; $i++>>
<<if $slaves[$i].assignment != "work in servants' quarters">>
diff --git a/src/uncategorized/saRecruitGirls.tw b/src/uncategorized/saRecruitGirls.tw
index 326a6b7412db26e81553d87aeab5374d2197a1a6..d366f08c7f2e1ccee9063546dc7aa28267eeeb8a 100644
--- a/src/uncategorized/saRecruitGirls.tw
+++ b/src/uncategorized/saRecruitGirls.tw
@@ -357,7 +357,7 @@ She uses her extra time and @@color:yellowgreen;recruitment allowance@@ this wee
<<if $familyTesting == 1>>
<<if $arcologies[0].FSEgyptianRevivalist != "unset">>
<<if totalRelatives($slaves[$i]) > 0>>
- <<set _recruiterRelation = getRandomAvailabeRelation($slaves[$i])>>
+ <<set _recruiterRelation = randomRelatedAvailableSlave($slaves[$i])>>
<<if _recruiterRelation != 0>>
<<if ($slaves[$i].energy > 60 || $slaves[$i].sexualQuirk == "tease" || $slaves[$i].sexualQuirk == "perverted") && (_recruiterRelation.energy > 60 || _recruiterRelation.sexualQuirk == "tease" || _recruiterRelation.sexualQuirk == "perverted")>>
<<set _seed += 6, _FSmatch++, $arcologies[0].FSEgyptianRevivalist += 0.02*$FSSingleSlaveRep>>