diff --git a/src/pregmod/pregmodWidgets.tw b/src/pregmod/pregmodWidgets.tw
index 5fcde86e88b514b6509d949329f52964728c78a7..e58840a876624883f525795b29689ed33743e54e 100644
--- a/src/pregmod/pregmodWidgets.tw
+++ b/src/pregmod/pregmodWidgets.tw
@@ -878,3 +878,752 @@ extremely pale -5
<</switch>>
<</widget>>
+
+<<widget "Family">>
+
+/*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;your daughter,@@ you knocked yourself up and gave birth to $object.
+<</if>>
+
+<<if $activeSlave.father == -1 && $activeSlave.mother != -1>>
+ She's @@color:lightgreen;your daughter;@@ you knocked $possessive mother up.
+<<elseif $activeSlave.father > 0>>
+ <<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID == $activeSlave.father>>
+ $pronounCap was @@color:lightgreen;fathered by $slaves[$i].slaveName's@@ virile dick.
+ <<break>>
+ <</if>>
+ <</for>>
+<</if>>
+
+<<if $activeSlave.father != -1 && $activeSlave.mother == -1>>
+ She's @@color:lightgreen;your daughter;@@ you gave birth to $object.
+<<elseif $activeSlave.mother > 0>>
+ <<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID == $activeSlave.mother>>
+ $pronounCap was @@color:lightgreen;born from $slaves[$i].slaveName's@@ fertile womb.
+ <<break>>
+ <</if>>
+ <</for>>
+<</if>>
+
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $activeSlave.ID == $slaves[$i].father>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+<</for>>
+<<if $children.length > 2>>
+ $pronounCap @@color:lightgreen;fathered
+ <<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 @@color:lightgreen;fathered a pair of your slaves: $children[0].slaveName, and $children[1].slaveName.@@
+<<elseif $children.length > 0>>
+ $pronounCap @@color:lightgreen;fathered a single slave of yours: $children[0].slaveName.@@
+<</if>>
+<<set $children = []>>
+
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $activeSlave.ID == $slaves[$i].mother>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+<</for>>
+<<if $children.length > 2>>
+ $pronounCap @@color:lightgreen;gave birth to
+ <<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 @@color:lightgreen;gave birth to a pair of your slaves: $children[0].slaveName, and $children[1].slaveName.@@
+<<elseif $children.length > 0>>
+ $pronounCap @@color:lightgreen;gave birth to a single of your slaves: $children[0].slaveName.@@
+<</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 > 2>>
+ 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 > 1>>
+ is @@color:lightgreen;your aunt along with $children[0].slaveName.@@
+ <<elseif $children.length > 0>>
+ <<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>>
+<</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 > 2>>
+ 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 > 1>>
+ is @@color:lightgreen;your uncle along with $children[0].slaveName.@@
+ <<elseif $children.length > 0>>
+ <<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>>
+<</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 > 2>>
+ 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 > 1>>
+ is @@color:lightgreen;your niece along with $children[0].slaveName.@@
+<<elseif $children.length > 0>>
+<<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 > 2>>
+ 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 > 1>>
+ is @@color:lightgreen;your nephew along with $children[0].slaveName.@@
+<<elseif $children.length > 0>>
+<<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 > 2>>
+ $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 $children.length > 1>>
+ $pronounCap is @@color:lightgreen;your twin along with $children[0].slaveName.@@
+<<elseif $children.length > 0>>
+ $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 > 2>>
+ @@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 > 1>>
+ is @@color:lightgreen;your sister along with $children[0].slaveName.@@
+<<elseif $children.length > 0>>
+ is @@color:lightgreen;your sister.@@
+<</if>>
+<</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 > 2>>
+ @@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 > 1>>
+ is @@color:lightgreen;your brother along with $children[0].slaveName.@@
+<<elseif $children.length > 0>>
+ is @@color:lightgreen;your brother.@@
+<</if>>
+<</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 > 2>>
+ 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 > 1>>
+ is @@color:lightgreen;your half-sister along with $children[0].slaveName.@@
+<<elseif $children.length > 0>>
+ is @@color:lightgreen;your half-sister.@@
+<</if>>
+<</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 > 2>>
+ 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 > 1>>
+ is @@color:lightgreen;your half-brother along with $children[0].slaveName.@@
+<<elseif $children.length > 0>>
+ is @@color:lightgreen;your half-brother.@@
+<</if>>
+<</if>>
+<<set $children = []>>
+
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if areSisters($activeSlave, $slaves[$i]) == 1>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $children.length > 2>>
+ $pronounCap @@color:lightgreen;shared a cramped womb 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;one of a set of triplets; $children[0].slaveName, and $children[1].slaveName@@ complete the trio.
+<<elseif $children.length > 0>>
+ $pronounCap is @@color:lightgreen;twins with $children[0].slaveName.@@
+<</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 && $slaves[$i].vagina > -1>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $children.length > 2>>
+ $pronounCap is @@color:lightgreen;sisters 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;sisters with $children[0].slaveName and $children[1].slaveName.@@
+<<elseif $children.length > 0>>
+ $pronounCap is @@color:lightgreen;sisters with $children[0].slaveName.@@
+<</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>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $children.length > 2>>
+ $pronounCap is @@color:lightgreen;half-sisters 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-sister to $children[0].slaveName and $children[1].slaveName.@@
+<<elseif $children.length > 0>>
+ $pronounCap is a @@color:lightgreen;half-sister to $children[0].slaveName.@@
+<</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 = []>>
+*/
+
+<</widget>>
\ No newline at end of file
diff --git a/src/uncategorized/longSlaveDescription.tw b/src/uncategorized/longSlaveDescription.tw
index b4c54c335dcd50f68327fabe8b29655538989c10..b0d222638dce947e0a7217380b72c67127abb0bd 100644
--- a/src/uncategorized/longSlaveDescription.tw
+++ b/src/uncategorized/longSlaveDescription.tw
@@ -1258,744 +1258,7 @@ 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>>
-
-<<if $activeSlave.father == -1 && $activeSlave.mother != -1>>
- She's @@color:lightgreen;your daughter;@@ you knocked $possessive mother up.
-<<elseif $activeSlave.father > 0>>
- <<for $i to 0; $i < $slaves.length; $i++>>
- <<if $slaves[$i].ID == $activeSlave.father>>
- $pronounCap was @@color:lightgreen;fathered by $slaves[$i].slaveName's@@ virile dick.
- <<break>>
- <</if>>
- <</for>>
-<</if>>
-
-<<if $activeSlave.father != -1 && $activeSlave.mother == -1>>
- She's @@color:lightgreen;your daughter;@@ you gave birth to $object.
-<<elseif $activeSlave.mother > 0>>
- <<for $i to 0; $i < $slaves.length; $i++>>
- <<if $slaves[$i].ID == $activeSlave.mother>>
- $pronounCap was @@color:lightgreen;born from $slaves[$i].slaveName's@@ fertile womb.
- <<break>>
- <</if>>
- <</for>>
-<</if>>
-
-<<for $i to 0; $i < $slaves.length; $i++>>
- <<if $activeSlave.ID == $slaves[$i].father>>
- <<set $children.push($slaves[$i])>>
- <</if>>
-<</for>>
-<<if $children.length > 2>>
- $pronounCap @@color:lightgreen;fathered
- <<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 @@color:lightgreen;fathered a pair of your slaves: $children[0].slaveName, and $children[1].slaveName.@@
-<<elseif $children.length > 0>>
- $pronounCap @@color:lightgreen;fathered a single slave of yours: $children[0].slaveName.@@
-<</if>>
-<<set $children = []>>
-
-<<for $i to 0; $i < $slaves.length; $i++>>
- <<if $activeSlave.ID == $slaves[$i].mother>>
- <<set $children.push($slaves[$i])>>
- <</if>>
-<</for>>
-<<if $children.length > 2>>
- $pronounCap @@color:lightgreen;gave birth to
- <<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 @@color:lightgreen;gave birth to a pair of your slaves: $children[0].slaveName, and $children[1].slaveName.@@
-<<elseif $children.length > 0>>
- $pronounCap @@color:lightgreen;gave birth to a single of your slaves: $children[0].slaveName.@@
-<</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>>
- <<set $children.push($slaves[$i])>>
- <</if>>
- <</if>>
-<</for>>
-<<if $children.length > 2>>
- $pronounCap @@color:lightgreen;shared a cramped womb 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;one of a set of triplets; $children[0].slaveName, and $children[1].slaveName@@ complete the trio.
-<<elseif $children.length > 0>>
- $pronounCap is @@color:lightgreen;twins with $children[0].slaveName.@@
-<</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 && $slaves[$i].vagina > -1>>
- <<set $children.push($slaves[$i])>>
- <</if>>
- <</if>>
-<</for>>
-<<if $children.length > 2>>
- $pronounCap is @@color:lightgreen;sisters 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;sisters with $children[0].slaveName and $children[1].slaveName.@@
-<<elseif $children.length > 0>>
- $pronounCap is @@color:lightgreen;sisters with $children[0].slaveName.@@
-<</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>>
- <<set $children.push($slaves[$i])>>
- <</if>>
- <</if>>
-<</for>>
-<<if $children.length > 2>>
- $pronounCap is @@color:lightgreen;half-sisters 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-sister to $children[0].slaveName and $children[1].slaveName.@@
-<<elseif $children.length > 0>>
- $pronounCap is a @@color:lightgreen;half-sister to $children[0].slaveName.@@
-<</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 = []>>
+<<Family>>
<<if $activeSlave.relationship >= 3 && ($activeSlave.mother > 0 || $activeSlave.father > 0 || $activeSlave.daughters > 0 || $activeSlave.sisters > 0)>>
<<for $i to 0; $i < $slaves.length; $i++>>
diff --git a/src/uncategorized/newSlaveRaceNationalityAndName.tw b/src/uncategorized/newSlaveRaceNationalityAndName.tw
index e1907064012e5985d2ad4122afbc9e09a1934901..d15f84c374f5671f49637a657a5534b473b502b2 100644
--- a/src/uncategorized/newSlaveRaceNationalityAndName.tw
+++ b/src/uncategorized/newSlaveRaceNationalityAndName.tw
@@ -1,186 +1,104 @@
:: New Slave Race Nationality and Name [nobr]
-<<if ($activeSlave.nationality is "American")>>
- <<set $activeSlave.race to either("black", "middle eastern", "white", "white", "white", "latina", "latina", "asian", "amerindian", "mixed race")>>
-<<elseif ($activeSlave.nationality is "Canadian")>>
- <<set $activeSlave.race to either("white", "white", "white", "white", "amerindian")>>
-<<elseif ($activeSlave.nationality is "Puerto Rican")>>
- <<set $activeSlave.race to either("latina")>>
-<<elseif ($activeSlave.nationality is "Cuban")>>
- <<set $activeSlave.race to either("latina", "black")>>
-<<elseif ($activeSlave.nationality is "Haitian")>>
- <<set $activeSlave.race to either("black")>>
-<<elseif ($activeSlave.nationality is "Jamaican")>>
+<<switch $activeSlave.nationality>>
+
+<<case "Belarusian" "Russian" "Ukrainian" "Irish" "Icelandic" "Finnish" "Swiss" "Danish" "Norwegian" "Austrian" "Dutch" "Belgian" "Czech" "Serbian" "Portuguese" "Estonian" "Polish" "Lithuanian">>
+ <<set $activeSlave.race to either("white")>>
+<<case "Greek">>
+ <<set $activeSlave.race to either("southern European")>>
+<<case "Haitian" "Jamaican" "Nigerian" "Kenyan" "Ugandan" "Congolese">>
<<set $activeSlave.race to either("black")>>
-<<elseif ($activeSlave.nationality is "Mexican")>>
- <<set $activeSlave.race to either("latina", "latina", "latina", "latina", "latina", "amerindian")>>
-<<elseif ($activeSlave.nationality is "Dominican")>>
- <<set $activeSlave.race to either("mixed race", "mixed race", "mixed race", "mixed race", "mixed race", "mixed race", "mixed race", "white", "white", "black")>>
-<<elseif ($activeSlave.nationality is "Peruvian")>>
- <<set $activeSlave.race to either("latina", "amerindian")>>
-<<elseif ($activeSlave.nationality is "Venezuelan")>>
+<<case "Puerto Rican" "Venezuelan" "Colombian">>
<<set $activeSlave.race to either("latina")>>
-<<elseif ($activeSlave.nationality is "Bolivian")>>
- <<set $activeSlave.race to either("latina", "amerindian")>>
-<<elseif ($activeSlave.nationality is "Guatemalan")>>
+<<case "Algerian" "Libyan" "Tunisian">>
+ <<set $activeSlave.race to either("middle eastern")>>
+<<case "Indian" "Bangladeshi">>
+ <<set $activeSlave.race to either("indo-aryan")>>
+<<case "Chinese" "Korean" "Japanese" "Vietnamese" "Uzbek">>
+ <<set $activeSlave.race to either("asian")>>
+<<case "Cuban">>
+ <<set $activeSlave.race to either("latina", "black")>>
+<<case "Peruvian" "Bolivian" "Guatemalan">>
<<set $activeSlave.race to either("latina", "amerindian")>>
-<<elseif ($activeSlave.nationality is "Brazilian")>>
- <<set $activeSlave.race to either("black", "latina", "mixed race", "mixed race", "amerindian", "white")>>
-<<elseif ($activeSlave.nationality is "Argentinian")>>
+<<case "Armenian">>
+ <<set $activeSlave.race to either("indo-aryan", "semitic")>>
+<<case "Lebanese" "Jordanian">>
+ <<set $activeSlave.race to either("middle eastern", "semitic")>>
+<<case "Afghan" "Emirati" "Omani">>
+ <<set $activeSlave.race to either("indo-aryan", "middle eastern")>>
+<<case "Thai">>
+ <<set $activeSlave.race to either("asian", "asian", "malay")>>
+<<case "Argentinian">>
<<set $activeSlave.race to either("white", "latina", "latina")>>
-<<elseif ($activeSlave.nationality is "Chilean")>>
+<<case "Burmese" "Nepalese">>
+ <<set $activeSlave.race to either("asian", "asian", "indo-aryan")>>
+<<case "Moroccan">>
+ <<set $activeSlave.race to either("middle eastern", "middle eastern", "black")>>
+<<case "Spanish">>
+ <<set $activeSlave.race to either("semitic", "southern European", "southern European")>>
+<<case "Chilean">>
<<set $activeSlave.race to either("white", "latina", "latina", "latina")>>
-<<elseif ($activeSlave.nationality is "Colombian")>>
- <<set $activeSlave.race to either("latina")>>
-<<elseif ($activeSlave.nationality is "Egyptian")>>
- <<set $activeSlave.race to either("black", "middle eastern", "middle eastern", "middle eastern", "semitic")>>
-<<elseif ($activeSlave.nationality is "Turkish")>>
- <<set $activeSlave.race to either("middle eastern", "middle eastern", "middle eastern", "semitic")>>
-<<elseif ($activeSlave.nationality is "Iranian")>>
+<<case "Iranian" "Pakistani">>
<<set $activeSlave.race to either("indo-aryan", "indo-aryan", "indo-aryan", "semitic")>>
-<<elseif ($activeSlave.nationality is "Armenian")>>
- <<set $activeSlave.race to either("indo-aryan", "semitic")>>
-<<elseif ($activeSlave.nationality is "Israeli")>>
+<<case "Israeli">>
<<set $activeSlave.race to either("white", "middle eastern", "semitic", "semitic")>>
-<<elseif ($activeSlave.nationality is "Saudi")>>
- <<set $activeSlave.race to either("black", "asian", "middle eastern", "middle eastern")>>
-<<elseif ($activeSlave.nationality is "Moroccan")>>
- <<set $activeSlave.race to either("middle eastern", "middle eastern", "black")>>
-<<elseif ($activeSlave.nationality is "Nigerian")>>
- <<set $activeSlave.race to either("black")>>
-<<elseif ($activeSlave.nationality is "Kenyan")>>
- <<set $activeSlave.race to either("black")>>
-<<elseif ($activeSlave.nationality is "Zimbabwean")>>
- <<set $activeSlave.race to either("black", "black", "black", "black", "white")>>
-<<elseif ($activeSlave.nationality is "Ugandan")>>
- <<set $activeSlave.race to either("black")>>
-<<elseif ($activeSlave.nationality is "Tanzanian")>>
+<<case "Tanzanian" "Ghanan">>
<<set $activeSlave.race to either("black", "black", "black", "semitic")>>
-<<elseif ($activeSlave.nationality is "Ghanan")>>
- <<set $activeSlave.race to either("black", "black", "black", "semitic")>>
-<<elseif ($activeSlave.nationality is "Congolese")>>
- <<set $activeSlave.race to either("black")>>
-<<elseif ($activeSlave.nationality is "Ethiopian")>>
- <<set $activeSlave.race to either("black", "black", "black", "middle eastern", "semitic")>>
-<<elseif ($activeSlave.nationality is "South African")>>
+<<case "South African">>
<<set $activeSlave.race to either("black", "black", "black", "white")>>
-<<elseif ($activeSlave.nationality is "Chinese")>>
- <<set $activeSlave.race to either("asian")>>
-<<elseif ($activeSlave.nationality is "Korean")>>
- <<set $activeSlave.race to either("asian")>>
-<<elseif ($activeSlave.nationality is "Japanese")>>
- <<set $activeSlave.race to either("asian")>>
-<<elseif ($activeSlave.nationality is "Thai")>>
- <<set $activeSlave.race to either("asian", "asian", "malay")>>
-<<elseif ($activeSlave.nationality is "Vietnamese")>>
- <<set $activeSlave.race to either("asian")>>
-<<elseif ($activeSlave.nationality is "Indonesian")>>
- <<set $activeSlave.race to either("asian", "malay", "malay", "pacific islander")>>
-<<elseif ($activeSlave.nationality is "Filipina")>>
- <<set $activeSlave.race to either("asian", "malay", "malay", "pacific islander")>>
-<<elseif ($activeSlave.nationality is "Burmese")>>
- <<set $activeSlave.race to either("asian", "asian", "indo-aryan")>>
-<<elseif ($activeSlave.nationality is "Nepalese")>>
- <<set $activeSlave.race to either("asian", "asian", "indo-aryan")>>
-<<elseif ($activeSlave.nationality is "Uzbek")>>
- <<set $activeSlave.race to either("asian")>>
-<<elseif ($activeSlave.nationality is "Afghan")>>
- <<set $activeSlave.race to either("indo-aryan", "middle eastern")>>
-<<elseif ($activeSlave.nationality is "Algerian")>>
- <<set $activeSlave.race to either("middle eastern")>>
-<<elseif ($activeSlave.nationality is "Libyan")>>
- <<set $activeSlave.race to either("middle eastern")>>
-<<elseif ($activeSlave.nationality is "Tunisian")>>
- <<set $activeSlave.race to either("middle eastern")>>
-<<elseif ($activeSlave.nationality is "Lebanese")>>
- <<set $activeSlave.race to either("middle eastern", "semitic")>>
-<<elseif ($activeSlave.nationality is "Jordanian")>>
- <<set $activeSlave.race to either("middle eastern", "semitic")>>
-<<elseif ($activeSlave.nationality is "Emirati")>>
- <<set $activeSlave.race to either("middle eastern", "indo-aryan")>>
-<<elseif ($activeSlave.nationality is "Omani")>>
- <<set $activeSlave.race to either("middle eastern", "indo-aryan")>>
-<<elseif ($activeSlave.nationality is "Malian")>>
- <<set $activeSlave.race to either("black", "black", "black", "black", "black", "middle eastern")>>
-<<elseif ($activeSlave.nationality is "Sudanese")>>
+<<case "Sudanese">>
<<set $activeSlave.race to either("black", "black", "black", "middle eastern")>>
-<<elseif ($activeSlave.nationality is "Yemeni")>>
- <<set $activeSlave.race to either("black", "semitic", "middle eastern", "middle eastern", "middle eastern")>>
-<<elseif ($activeSlave.nationality is "Iraqi")>>
- <<set $activeSlave.race to either("semitic", "middle eastern", "middle eastern", "middle eastern", "middle eastern")>>
-<<elseif ($activeSlave.nationality is "Indian")>>
- <<set $activeSlave.race to either("indo-aryan")>>
-<<elseif ($activeSlave.nationality is "Malaysian")>>
+<<case "Malaysian">>
<<set $activeSlave.race to either("asian", "malay", "malay", "malay")>>
-<<elseif ($activeSlave.nationality is "Kazakh")>>
- <<set $activeSlave.race to either("asian", "asian", "asian", "semitic", "indo-aryan")>>
-<<elseif ($activeSlave.nationality is "Pakistani")>>
- <<set $activeSlave.race to either("indo-aryan", "indo-aryan", "indo-aryan", "semitic")>>
-<<elseif ($activeSlave.nationality is "Bangladeshi")>>
- <<set $activeSlave.race to either("indo-aryan")>>
-<<elseif ($activeSlave.nationality is "Belarusian")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Russian")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Ukrainian")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Irish")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Icelandic")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Finnish")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Swiss")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Danish")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Norwegian")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Austrian")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Slovak")>>
- <<set $activeSlave.race to either("white", "white", "white", "white", "indo-aryan")>>
-<<elseif ($activeSlave.nationality is "Dutch")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Belgian")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Czech")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Serbian")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Portuguese")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Hungarian")>>
+<<case "Indonesian" "Filipina">>
+ <<set $activeSlave.race to either("asian", "malay", "malay", "pacific islander")>>
+<<case "Australian">>
+ <<set $activeSlave.race to either("white", "white", "black", "asian")>>
+<<case "Saudi">>
+ <<set $activeSlave.race to either("black", "asian", "middle eastern", "middle eastern")>>
+<<case "Slovak" "Hungarian">>
<<set $activeSlave.race to either("white", "white", "white", "white", "indo-aryan")>>
-<<elseif ($activeSlave.nationality is "Estonian")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Polish")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Lithuanian")>>
- <<set $activeSlave.race to either("white")>>
-<<elseif ($activeSlave.nationality is "Romanian")>>
+<<case "Canadian">>
+ <<set $activeSlave.race to either("white", "white", "white", "white", "amerindian")>>
+<<case "Zimbabwean">>
+ <<set $activeSlave.race to either("black", "black", "black", "black", "white")>>
+<<case "Swedish">>
+ <<set $activeSlave.race to either("middle eastern", "white", "white", "white", "white")>>
+<<case "Ethiopian">>
+ <<set $activeSlave.race to either("black", "black", "black", "middle eastern", "semitic")>>
+<<case "Kazakh">>
+ <<set $activeSlave.race to either("asian", "asian", "asian", "semitic", "indo-aryan")>>
+<<case "Egyptian" "Turkish" "Yemeni">>
+ <<set $activeSlave.race to either("black", "middle eastern", "middle eastern", "middle eastern", "semitic")>>
+<<case "Italian">>
+ <<set $activeSlave.race to either("middle eastern", "southern European", "southern European", "white", "white")>>
+<<case "a New Zealander">>
+ <<set $activeSlave.race to either("white", "white", "white", "white", "pacific islander")>>
+<<case "Iraqi">>
+ <<set $activeSlave.race to either("semitic", "middle eastern", "middle eastern", "middle eastern", "middle eastern")>>
+<<case "Brazilian">>
+ <<set $activeSlave.race to either("black", "latina", "mixed race", "mixed race", "amerindian", "white")>>
+<<case "Mexican">>
+ <<set $activeSlave.race to either("latina", "latina", "latina", "latina", "latina", "amerindian")>>
+<<case "Romanian">>
<<set $activeSlave.race to either("semitic", "white", "white", "white", "white", "indo-aryan")>>
-<<elseif ($activeSlave.nationality is "German")>>
+<<case "Malian">>
+ <<set $activeSlave.race to either("black", "black", "black", "black", "black", "middle eastern")>>
+<<case "American">>
+ <<set $activeSlave.race to either("black", "middle eastern", "white", "white", "white", "latina", "latina", "asian", "amerindian", "mixed race")>>
+<<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 "German">>
<<set $activeSlave.race to either("black", "middle eastern", "white", "white", "white", "white", "white", "white")>>
-<<elseif ($activeSlave.nationality is "Swedish")>>
- <<set $activeSlave.race to either("middle eastern", "white", "white", "white", "white")>>
-<<elseif ($activeSlave.nationality is "French")>>
+<<case "French">>
<<set $activeSlave.race to either("black", "middle eastern", "white", "white", "white", "white", "white", "southern European")>>
-<<elseif ($activeSlave.nationality is "Italian")>>
- <<set $activeSlave.race to either("middle eastern", "southern European", "southern European", "white", "white")>>
-<<elseif ($activeSlave.nationality is "Greek")>>
- <<set $activeSlave.race to either("southern European")>>
-<<elseif ($activeSlave.nationality is "Spanish")>>
- <<set $activeSlave.race to either("semitic", "southern European", "southern European")>>
-<<elseif ($activeSlave.nationality is "British")>>
+<<case "British">>
<<set $activeSlave.race to either("indo-aryan", "white", "white", "white", "white", "white", "white", "white", "white", "white")>>
-<<elseif ($activeSlave.nationality is "Scottish")>>
+<<case "Scottish">>
<<set $activeSlave.race to either("middle eastern", "indo-aryan", "white", "white", "white", "white", "white", "white", "white")>>
-<<elseif ($activeSlave.nationality is "Australian")>>
- <<set $activeSlave.race to either("white", "white", "black", "asian")>>
-<<elseif ($activeSlave.nationality is "a New Zealander")>>
- <<set $activeSlave.race to either("white", "white", "white", "white", "pacific islander")>>
-<</if>>
+
+
+<</switch>>
/% Begin mixed race rate adjustment. %/
/% Some countries are extremely ethnically homogeneous and unlikely to change soon. %/