diff --git a/src/js/storyJS.tw b/src/js/storyJS.tw
index 52a3e3cad0dff8d6030b7e37632052d0599deeae..1a06947903848996de83ec154d6786cf4a6fede2 100644
--- a/src/js/storyJS.tw
+++ b/src/js/storyJS.tw
@@ -536,6 +536,29 @@ window.areTwins = function(slave1, slave2) {
}
};
+//3 = half-sisters, 2 = sisters, 1 = twins, 0 = not related
+window.areSisters = function(c1, c2) {
+ if(c1.ID == c2.ID) {
+ return 0;
+ }
+ var sib = 4;
+ if(sameMom(c1, c2)) {
+ sib -= 1;
+ }
+ if(sameDad(c1, c2)) {
+ sib -=1;
+ }
+ if (sib == 2 && c1.actualAge == c2.actualAge && c1.birthWeek == c2.birthWeek) {
+ sib -= 1;
+ }
+ if(sib == 4) {
+ return 0
+ } else {
+ return sib;
+ }
+}
+
+/*
window.areSisters = function(slave1, slave2) {
if (slave1.ID == slave2.ID) {
return 0; //you are not your own sister
@@ -559,6 +582,7 @@ window.areSisters = function(slave1, slave2) {
return 0; //not related
}
};
+*/
window.totalRelatives = function(slave) {
var relatives = 0;
diff --git a/src/pregmod/extendedFamilyWidgets.tw b/src/pregmod/extendedFamilyWidgets.tw
new file mode 100644
index 0000000000000000000000000000000000000000..cef276de55ce53c12f5a429ea435fc6dedbae91e
--- /dev/null
+++ b/src/pregmod/extendedFamilyWidgets.tw
@@ -0,0 +1,900 @@
+:: extended family widgets [nobr 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>>
+ $pronounCap's @@color:lightgreen;your child;@@ you knocked yourself up and gave birth to $object.
+<</if>>
+
+<<if $activeSlave.father == -1 && $activeSlave.mother != -1>>
+ $pronounCap's @@color:lightgreen;your child;@@ 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>>
+ $pronounCap's @@color:lightgreen;your child;@@ 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>>
+ $pronounCap 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>>
+ $pronounCap 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 sibling passages - determines how many siblings you have*/
+<<set $children = []>>
+<<set $rel_num to areSisters($activeSlave, $PC)>>
+<<if($rel_num gt 0)>>
+ <<if($activeSlave.vagina > -1)>>
+ <<set $rel_type to "sister">>
+ <<else>>
+ <<set $rel_type to "brother">>
+ <</if>>
+ <<if($rel_num == 1)>>
+ <<set $rel_desc to "your twin">>
+ <<elseif $rel_num == 2>>
+ <<set $rel_desc to "your ">>
+ <<elseif $rel_num == 3>>
+ <<set $rel_desc to "your half-">>
+ <</if>>
+ <<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $activeSlave.ID>>
+ <<if $rel_num == areSisters($activeSlave, $slaves[$i]) && ($activeSlave.vagina > -1) == ($slaves[$i].vagina > -1)>>
+ <<set console.log('sisters', $slaves[$i].birthName)>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+ <</if>>
+ <</for>>
+ $pronounCap
+<<if $children.length > 1>>
+ @@color:lightgreen;is your $rel_desc $rel_type 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 $rel_desc $rel_type with $children[0].slaveName.@@
+<<else>>
+ is @@color:lightgreen;your $rel_desc $rel_type.@@
+<</if>>
+<</if>>
+
+/*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 = []>>
+*/
+
+/*testtest twins? - determines how many twins a slave has*/
+<<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 && $slaves[$i].vagina > -1>>
+ <<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>>
+
+<<widget PlayerFamily>>
+
+<br><br>Your present family includes:
+
+/*Player parents, lists both your parents, or just one.*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+<<if $slaves[$i].ID == $PC.father || $slaves[$i].ID == $PC.mother>>
+ <<set $children.push($slaves[$i])>>
+<</if>>
+<</for>>
+ <<if $children.length > 1>>
+ <br>Your parents are @@color:lightgreen;$children[0].slaveName and $children[1].slaveName@@.
+ <<elseif $children.length > 0>>
+ <br>You know one of your parents, @@color:lightgreen;$children[0].slaveName@@.
+ <</if>>
+<<set $children = []>>
+
+/*Sister Test with aresisters*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $PC.ID>>
+ <<if areSisters($PC, $slaves[$i]) === 2 && areSisters($slaves[$i], $PC) === 2>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+ <</if>>
+<</for>>
+<<if $children.length > 2>>
+ <br>You are @@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>>
+ <br>You are sisters with @@color:lightgreen;$children[0].slaveName and $children[1].slaveName.@@
+<<elseif $children.length > 0>>
+ <br>Your sister is @@color:lightgreen;$children[0].slaveName.@@
+<</if>>
+<<set $children = []>>
+
+/*Half-Sister Test with aresisters */
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $slaves[$i].ID != $PC.ID>>
+ <<if areSisters($slaves[$i], $PC) == 3 && areSisters($PC, $slaves[$i]) == 3>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+<</if>>
+<</for>>
+<<if $children.length > 2>>
+ <br>You are half-sisters with @@color:lightgreen;
+ <<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>>
+ <br>You are half-sisters with @@color:lightgreen;$children[0].slaveName and $children[1].slaveName@@.
+<<elseif $children.length > 0>>
+ <br>You have one half-sisters, @@color:lightgreen;$children[0].slaveName@@.
+<</if>>
+<<set $children = []>>
+
+/*Player is Father, lists children you fathered*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $PC.ID == $slaves[$i].father>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+<</for>>
+<<if $children.length > 2>>
+ <br>You are the father of @@color:lightgreen;
+ <<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>>
+ <br>You are the father of two of your slaves, @@color:lightgreen;$children[0].slaveName, and $children[1].slaveName@@.
+<<elseif $children.length > 0>>
+ <br>You are the father of one of your slaves, @@color:lightgreen;$children[0].slaveName@@.
+<</if>>
+<<set $children = []>>
+
+/*Player is Mother, lists birthed children*/
+<<for $i to 0; $i < $slaves.length; $i++>>
+ <<if $PC.ID == $slaves[$i].mother>>
+ <<set $children.push($slaves[$i])>>
+ <</if>>
+<</for>>
+<<if $children.length > 2>>
+ <br>You are the mother of@@color:lightgreen;
+ <<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>>
+ <br>You are the mother of two of your slaves, @@color:lightgreen;$children[0].slaveName, and $children[1].slaveName@@.
+<<elseif $children.length > 0>>
+ <br>You are the mother of one of your slaves, @@color:lightgreen;$children[0].slaveName@@.
+<</if>>
+<<set $children = []>>
+
+<</widget>>
\ No newline at end of file
diff --git a/src/pregmod/pregmodWidgets.tw b/src/pregmod/pregmodWidgets.tw
index 4fe495ef23bb746c3030d27d2c1e4617cd5853ce..a670918efd5a4800355e8a524ebfe22aee2373d5 100644
--- a/src/pregmod/pregmodWidgets.tw
+++ b/src/pregmod/pregmodWidgets.tw
@@ -1551,903 +1551,4 @@ Of her $slaves[$i].pregType children; $slaves[$i].reservedChildren were taken to
<</if>> /* closes c-section */
-<</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>>
- $pronounCap's @@color:lightgreen;your child;@@ you knocked yourself up and gave birth to $object.
-<</if>>
-
-<<if $activeSlave.father == -1 && $activeSlave.mother != -1>>
- $pronounCap's @@color:lightgreen;your child;@@ 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>>
- $pronounCap's @@color:lightgreen;your child;@@ 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>>
- $pronounCap 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>>
- $pronounCap 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 sibling passages - determines how many siblings you have*/
-<<set $children = []>>
-<<set $rel_num to areSisters($activeSlave, $PC)>>
-<<if($rel_num gt 0)>>
- <<if($activeSlave.vagina > -1)>>
- <<set $rel_type to "sister">>
- <<else>>
- <<set $rel_type to "brother">>
- <</if>>
- <<if($rel_num == 1)>>
- <<set $rel_desc to "your twin">>
- <<elseif $rel_num == 2>>
- <<set $rel_desc to "your ">>
- <<elseif $rel_num == 3>>
- <<set $rel_desc to "your half-">>
- <</if>>
- <<for $i to 0; $i < $slaves.length; $i++>>
- <<if $slaves[$i].ID != $activeSlave.ID>>
- <<if $rel_num == areSisters($activeSlave, $slaves[$i]) && ($activeSlave.vagina > -1) == ($slaves[$i].vagina > -1)>>
- <<set console.log('sisters', $slaves[$i].birthName)>>
- <<set $children.push($slaves[$i])>>
- <</if>>
- <</if>>
- <</for>>
- $pronounCap
-<<if $children.length > 1>>
- @@color:lightgreen;is your $rel_desc $rel_type 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 $rel_desc $rel_type with $children[0].slaveName.@@
-<<else>>
- is @@color:lightgreen;your $rel_desc $rel_type.@@
-<</if>>
-<</if>>
-
-/*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 = []>>
-*/
-
-/*testtest twins? - determines how many twins a slave has*/
-<<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 && $slaves[$i].vagina > -1>>
- <<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>>
-
-<<widget PlayerFamily>>
-
-<br><br>Your present family includes:
-
-/*Player parents, lists both your parents, or just one.*/
-<<for $i to 0; $i < $slaves.length; $i++>>
-<<if $slaves[$i].ID == $PC.father || $slaves[$i].ID == $PC.mother>>
- <<set $children.push($slaves[$i])>>
-<</if>>
-<</for>>
- <<if $children.length > 1>>
- <br>Your parents are @@color:lightgreen;$children[0].slaveName and $children[1].slaveName@@.
- <<elseif $children.length > 0>>
- <br>You know one of your parents, @@color:lightgreen;$children[0].slaveName@@.
- <</if>>
-<<set $children = []>>
-
-/*Sister Test with aresisters*/
-<<for $i to 0; $i < $slaves.length; $i++>>
- <<if $slaves[$i].ID != $PC.ID>>
- <<if areSisters($PC, $slaves[$i]) === 2 && areSisters($slaves[$i], $PC) === 2>>
- <<set $children.push($slaves[$i])>>
- <</if>>
- <</if>>
-<</for>>
-<<if $children.length > 2>>
- <br>You are @@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>>
- <br>You are sisters with @@color:lightgreen;$children[0].slaveName and $children[1].slaveName.@@
-<<elseif $children.length > 0>>
- <br>Your sister is @@color:lightgreen;$children[0].slaveName.@@
-<</if>>
-<<set $children = []>>
-
-/*Half-Sister Test with aresisters */
-<<for $i to 0; $i < $slaves.length; $i++>>
- <<if $slaves[$i].ID != $PC.ID>>
- <<if areSisters($slaves[$i], $PC) == 3 && areSisters($PC, $slaves[$i]) == 3>>
- <<set $children.push($slaves[$i])>>
- <</if>>
-<</if>>
-<</for>>
-<<if $children.length > 2>>
- <br>You are half-sisters with @@color:lightgreen;
- <<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>>
- <br>You are half-sisters with @@color:lightgreen;$children[0].slaveName and $children[1].slaveName@@.
-<<elseif $children.length > 0>>
- <br>You have one half-sisters, @@color:lightgreen;$children[0].slaveName@@.
-<</if>>
-<<set $children = []>>
-
-/*Player is Father, lists children you fathered*/
-<<for $i to 0; $i < $slaves.length; $i++>>
- <<if $PC.ID == $slaves[$i].father>>
- <<set $children.push($slaves[$i])>>
- <</if>>
-<</for>>
-<<if $children.length > 2>>
- <br>You are the father of @@color:lightgreen;
- <<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>>
- <br>You are the father of two of your slaves, @@color:lightgreen;$children[0].slaveName, and $children[1].slaveName@@.
-<<elseif $children.length > 0>>
- <br>You are the father of one of your slaves, @@color:lightgreen;$children[0].slaveName@@.
-<</if>>
-<<set $children = []>>
-
-/*Player is Mother, lists birthed children*/
-<<for $i to 0; $i < $slaves.length; $i++>>
- <<if $PC.ID == $slaves[$i].mother>>
- <<set $children.push($slaves[$i])>>
- <</if>>
-<</for>>
-<<if $children.length > 2>>
- <br>You are the mother of@@color:lightgreen;
- <<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>>
- <br>You are the mother of two of your slaves, @@color:lightgreen;$children[0].slaveName, and $children[1].slaveName@@.
-<<elseif $children.length > 0>>
- <br>You are the mother of one of your slaves, @@color:lightgreen;$children[0].slaveName@@.
-<</if>>
-<<set $children = []>>
-
<</widget>>
\ No newline at end of file
diff --git a/src/uncategorized/generateXXSlave.tw b/src/uncategorized/generateXXSlave.tw
index 1ee7d5c3d12b7e7e07f2aa35b7e77a9ebc3cc7d7..8094d1c491ed1f1a6eb437e1d421fc86ef295517 100644
--- a/src/uncategorized/generateXXSlave.tw
+++ b/src/uncategorized/generateXXSlave.tw
@@ -172,7 +172,8 @@
<<set $seed to 162.5>>
-<<if $activeSlave.nationality is "American">>
+<<switch $activeSlave.nationality>>
+<<case "American">>
<<if $activeSlave.race is "white">>
<<set $seed to 165>>
<<elseif $activeSlave.race is "black">>
@@ -184,152 +185,153 @@
<<else>>
<<set $seed to 161.8>>
<</if>>
-<<elseif $activeSlave.nationality is "Afghan">>
-<<elseif $activeSlave.nationality is "Argentinian">>
+<<case "Afghan">>
+<<case "Argentinian">>
<<set $seed to 159.6>>
-<<elseif $activeSlave.nationality is "Armenian">>
-<<elseif $activeSlave.nationality is "Australian">>
+<<case "Armenian">>
+<<case "Australian">>
<<set $seed to 161.8>>
-<<elseif $activeSlave.nationality is "Austrian">>
+<<case "Austrian">>
<<set $seed to 166>>
-<<elseif $activeSlave.nationality is "Belarusian">>
+<<case "Belarusian">>
<<set $seed to 166.8>>
-<<elseif $activeSlave.nationality is "Belgian">>
-<<elseif $activeSlave.nationality is "Bolivian">>
+<<case "Belgian">>
+<<case "Bolivian">>
<<set $seed to 142.2>>
-<<elseif $activeSlave.nationality is "Brazilian">>
+<<case "Brazilian">>
<<set $seed to 158.8>>
-<<elseif $activeSlave.nationality is "British">>
+<<case "British">>
<<set $seed to 161.9>>
-<<elseif $activeSlave.nationality is "Canadian">>
+<<case "Canadian">>
<<set $seed to 162.3>>
-<<elseif $activeSlave.nationality is "Chilean">>
+<<case "Chilean">>
<<set $seed to 157.2>>
-<<elseif $activeSlave.nationality is "Chinese">>
+<<case "Chinese">>
<<set $seed to 155.8>>
-<<elseif $activeSlave.nationality is "Colombian">>
+<<case "Colombian">>
<<set $seed to 158.7>>
-<<elseif $activeSlave.nationality is "Congolese">>
+<<case "Congolese">>
<<set $seed to 157.7>>
-<<elseif $activeSlave.nationality is "Cuban">>
+<<case "Cuban">>
<<set $seed to 156>>
-<<elseif $activeSlave.nationality is "Czech">>
+<<case "Czech">>
<<set $seed to 167.22>>
-<<elseif $activeSlave.nationality is "Danish">>
+<<case "Danish">>
<<set $seed to 168.7>>
-<<elseif $activeSlave.nationality is "Dominican">>
+<<case "Dominican">>
<<set $seed to 156.4>>
-<<elseif $activeSlave.nationality is "Dutch">>
+<<case "Dutch">>
<<set $seed to 169>>
-<<elseif $activeSlave.nationality is "Emirati">>
+<<case "Emirati">>
<<set $seed to 156.4>>
-<<elseif $activeSlave.nationality is "Egyptian">>
+<<case "Egyptian">>
<<set $seed to 158.9>>
-<<elseif $activeSlave.nationality is "Estonian">>
-<<elseif $activeSlave.nationality is "Ethiopian">>
-<<elseif $activeSlave.nationality is "Finnish">>
+<<case "Estonian">>
+<<case "Ethiopian">>
+<<case "Finnish">>
<<set $seed to 165.3>>
-<<elseif $activeSlave.nationality is "French">>
+<<case "French">>
<<set $seed to 162.5>>
-<<elseif $activeSlave.nationality is "German">>
+<<case "German">>
<<set $seed to 162.8>>
-<<elseif $activeSlave.nationality is "Ghanan">>
+<<case "Ghanan">>
<<set $seed to 158.5>>
-<<elseif $activeSlave.nationality is "Greek">>
+<<case "Greek">>
<<set $seed to 165>>
-<<elseif $activeSlave.nationality is "Guatemalan">>
-<<elseif $activeSlave.nationality is "Haitian">>
-<<elseif $activeSlave.nationality is "Hungarian">>
+<<case "Guatemalan">>
+<<case "Haitian">>
+<<case "Hungarian">>
<<set $seed to 176>>
-<<elseif $activeSlave.nationality is "Icelandic">>
-<<elseif $activeSlave.nationality is "Indian">>
+<<case "Icelandic">>
+<<case "Indian">>
<<set $seed to 151.9>>
-<<elseif $activeSlave.nationality is "Indonesian">>
-<<elseif $activeSlave.nationality is "Iranian">>
+<<case "Indonesian">>
+<<case "Iranian">>
<<set $seed to 157.2>>
-<<elseif $activeSlave.nationality is "Iraqi">>
+<<case "Iraqi">>
<<set $seed to 155.8>>
-<<elseif $activeSlave.nationality is "Irish">>
+<<case "Irish">>
<<set $seed to 163>>
-<<elseif $activeSlave.nationality is "Israeli">>
+<<case "Israeli">>
<<set $seed to 166>>
-<<elseif $activeSlave.nationality is "Italian">>
-<<elseif $activeSlave.nationality is "Jamaican">>
+<<case "Italian">>
+<<case "Jamaican">>
<<set $seed to 160.8>>
-<<elseif $activeSlave.nationality is "Japanese">>
+<<case "Japanese">>
<<set $seed to 158>>
-<<elseif $activeSlave.nationality is "Jordanian">>
-<<elseif $activeSlave.nationality is "Kazakh">>
-<<elseif $activeSlave.nationality is "Kenyan">>
-<<elseif $activeSlave.nationality is "Korean">>
+<<case "Jordanian">>
+<<case "Kazakh">>
+<<case "Kenyan">>
+<<case "Korean">>
<<if either(1,2,3) is 3>>
<<set $seed to 154.9>>
<<else>>
<<set $seed to 157.4>>
<</if>>
-<<elseif $activeSlave.nationality is "Lebanese">>
-<<elseif $activeSlave.nationality is "Libyan">>
-<<elseif $activeSlave.nationality is "Lithuanian">>
+<<case "Lebanese">>
+<<case "Libyan">>
+<<case "Lithuanian">>
<<set $seed to 167.5>>
-<<elseif $activeSlave.nationality is "Malaysian">>
+<<case "Malaysian">>
<<set $seed to 154.7>>
-<<elseif $activeSlave.nationality is "Malian">>
+<<case "Malian">>
<<set $seed to 160.4>>
-<<elseif $activeSlave.nationality is "Mexican">>
+<<case "Mexican">>
<<set $seed to 154>>
-<<elseif $activeSlave.nationality is "Moroccan">>
-<<elseif $activeSlave.nationality is "Nepalese">>
-<<elseif $activeSlave.nationality is "Nigerian">>
+<<case "Moroccan">>
+<<case "Nepalese">>
+<<case "Nigerian">>
<<set $seed to 163.8>>
-<<elseif $activeSlave.nationality is "Norwegian">>
+<<case "Norwegian">>
<<set $seed to 157.8>>
-<<elseif $activeSlave.nationality is "Omani">>
-<<elseif $activeSlave.nationality is "Pakistani">>
+<<case "Omani">>
+<<case "Pakistani">>
/% Default to India's figures. %/
<<set $seed to 151.9>>
-<<elseif $activeSlave.nationality is "Peruvian">>
+<<case "Peruvian">>
<<set $seed to 151>>
-<<elseif $activeSlave.nationality is "Polish">>
+<<case "Polish">>
<<set $seed to 165.1>>
-<<elseif $activeSlave.nationality is "Portuguese">>
+<<case "Portuguese">>
<<set $seed to 165.1>>
-<<elseif $activeSlave.nationality is "Puerto Rican">>
+<<case "Puerto Rican">>
/% Use average for U.S. Hispanics. %/
<<set $seed to 158.9>>
-<<elseif $activeSlave.nationality is "Romanian">>
+<<case "Romanian">>
<<set $seed to 157>>
-<<elseif $activeSlave.nationality is "Russian">>
+<<case "Russian">>
<<set $seed to 164.1>>
-<<elseif $activeSlave.nationality is "Saudi">>
+<<case "Saudi">>
<<set $seed to 156.3>>
-<<elseif $activeSlave.nationality is "Scottish">>
+<<case "Scottish">>
<<set $seed to 163>>
-<<elseif $activeSlave.nationality is "Serbian">>
+<<case "Serbian">>
<<set $seed to 166.8>>
-<<elseif $activeSlave.nationality is "Slovak">>
+<<case "Slovak">>
<<set $seed to 165.6>>
-<<elseif $activeSlave.nationality is "Spanish">>
+<<case "Spanish">>
<<set $seed to 162.6>>
-<<elseif $activeSlave.nationality is "Sudanese">>
-<<elseif $activeSlave.nationality is "Swedish">>
+<<case "Sudanese">>
+<<case "Swedish">>
<<set $seed to 166.8>>
-<<elseif $activeSlave.nationality is "Swiss">>
-<<elseif $activeSlave.nationality is "Tanzanian">>
-<<elseif $activeSlave.nationality is "Thai">>
-<<elseif $activeSlave.nationality is "Tunisian">>
-<<elseif $activeSlave.nationality is "Turkish">>
+<<case "Swiss">>
+<<case "Tanzanian">>
+<<case "Thai">>
+<<case "Tunisian">>
+<<case "Turkish">>
<<set $seed to 161.9>>
-<<elseif $activeSlave.nationality is "Ugandan">>
-<<elseif $activeSlave.nationality is "Ukrainian">>
-<<elseif $activeSlave.nationality is "Uzbek">>
-<<elseif $activeSlave.nationality is "Venezuelan">>
-<<elseif $activeSlave.nationality is "Vietnamese">>
+<<case "Ugandan">>
+<<case "Ukrainian">>
+<<case "Uzbek">>
+<<case "Venezuelan">>
+<<case "Vietnamese">>
<<set $seed to 155.2>>
-<<elseif $activeSlave.nationality is "Yemeni">>
-<<elseif $activeSlave.nationality is "a New Zealander">>
+<<case "Yemeni">>
+<<case "a New Zealander">>
<<set $seed to 164>>
-<<elseif $activeSlave.nationality is "Zimbabwean">>
-<</if>>
+<<case "Zimbabwean">>
+<<default>>
+<</switch>>
/% Include adjustment factor for age. %/
<<if $activeSlave.physicalAge <= 13>>
diff --git a/src/uncategorized/generateXYSlave.tw b/src/uncategorized/generateXYSlave.tw
index b754494f0bba01bb0a6d5d8b27ada4dc278e7102..1e59de5aef9aba60173b1cf0653c45df74408229 100644
--- a/src/uncategorized/generateXYSlave.tw
+++ b/src/uncategorized/generateXYSlave.tw
@@ -182,7 +182,8 @@
<<set $seed to 177.6>>/% White people use European average if no country-specific figure available. %/
<</if>>
-<<if $activeSlave.nationality is "American">>
+<<switch $activeSlave.nationality>>
+<<case "American">>
<<if $activeSlave.race is "white">>
<<set $seed to 178.2>>
<<elseif $activeSlave.race is "black">>
@@ -192,154 +193,155 @@
<<else>>
<<set $seed to 176.4>>
<</if>>
-<<elseif $activeSlave.nationality is "Afghan">>
-<<elseif $activeSlave.nationality is "Argentinian">>
+<<case "Afghan">>
+<<case "Argentinian">>
<<set $seed to 174.46>>
-<<elseif $activeSlave.nationality is "Armenian">>
-<<elseif $activeSlave.nationality is "Australian">>
+<<case "Armenian">>
+<<case "Australian">>
<<set $seed to 175.6>>
-<<elseif $activeSlave.nationality is "Austrian">>
+<<case "Austrian">>
<<set $seed to 179>>
-<<elseif $activeSlave.nationality is "Belarusian">>
+<<case "Belarusian">>
<<set $seed to 176.9>>
-<<elseif $activeSlave.nationality is "Belgian">>
+<<case "Belgian">>
<<set $seed to 178.7>>
-<<elseif $activeSlave.nationality is "Bolivian">>
+<<case "Bolivian">>
<<set $seed to 160.0>>
-<<elseif $activeSlave.nationality is "Brazilian">>
+<<case "Brazilian">>
<<set $seed to 170.7>>
-<<elseif $activeSlave.nationality is "British">>
+<<case "British">>
<<set $seed to 175.3>>
-<<elseif $activeSlave.nationality is "Canadian">>
+<<case "Canadian">>
<<set $seed to 175.1>>
-<<elseif $activeSlave.nationality is "Chilean">>
+<<case "Chilean">>
<<set $seed to 169.6>>
-<<elseif $activeSlave.nationality is "Chinese">>
+<<case "Chinese">>
<<set $seed to 167.1>>
-<<elseif $activeSlave.nationality is "Colombian">>
+<<case "Colombian">>
<<set $seed to 170.6>>
-<<elseif $activeSlave.nationality is "Congolese">>
+<<case "Congolese">>
<<set $seed to 158.9>>
-<<elseif $activeSlave.nationality is "Cuban">>
+<<case "Cuban">>
<<set $seed to 168>>
-<<elseif $activeSlave.nationality is "Czech">>
+<<case "Czech">>
<<set $seed to 180.31>>
-<<elseif $activeSlave.nationality is "Danish">>
+<<case "Danish">>
<<set $seed to 180.4>>
-<<elseif $activeSlave.nationality is "Dominican">>
+<<case "Dominican">>
<<set $seed to 168.4>>
-<<elseif $activeSlave.nationality is "Dutch">>
+<<case "Dutch">>
<<set $seed to 181>>
-<<elseif $activeSlave.nationality is "Emirati">>
-<<elseif $activeSlave.nationality is "Egyptian">>
+<<case "Emirati">>
+<<case "Egyptian">>
<<set $seed to 170.3>>
-<<elseif $activeSlave.nationality is "Estonian">>
+<<case "Estonian">>
<<set $seed to 179.1>>
-<<elseif $activeSlave.nationality is "Ethiopian">>
-<<elseif $activeSlave.nationality is "Finnish">>
+<<case "Ethiopian">>
+<<case "Finnish">>
<<set $seed to 178.9>>
-<<elseif $activeSlave.nationality is "French">>
+<<case "French">>
<<set $seed to 175.6>>
-<<elseif $activeSlave.nationality is "German">>
+<<case "German">>
<<set $seed to 175.4>>
-<<elseif $activeSlave.nationality is "Ghanan">>
+<<case "Ghanan">>
<<set $seed to 169.5>>
-<<elseif $activeSlave.nationality is "Greek">>
+<<case "Greek">>
<<set $seed to 177>>
-<<elseif $activeSlave.nationality is "Guatemalan">>
-<<elseif $activeSlave.nationality is "Haitian">>
-<<elseif $activeSlave.nationality is "Hungarian">>
+<<case "Guatemalan">>
+<<case "Haitian">>
+<<case "Hungarian">>
<<set $seed to 176>>
-<<elseif $activeSlave.nationality is "Icelandic">>
-<<elseif $activeSlave.nationality is "Indian">>
+<<case "Icelandic">>
+<<case "Indian">>
<<set $seed to 164.7>>
-<<elseif $activeSlave.nationality is "Indonesian">>
-<<elseif $activeSlave.nationality is "Iranian">>
+<<case "Indonesian">>
+<<case "Iranian">>
<<set $seed to 170.3>>
-<<elseif $activeSlave.nationality is "Iraqi">>
+<<case "Iraqi">>
<<set $seed to 165.4>>
-<<elseif $activeSlave.nationality is "Irish">>
+<<case "Irish">>
<<set $seed to 177>>
-<<elseif $activeSlave.nationality is "Israeli">>
+<<case "Israeli">>
<<set $seed to 177>>
-<<elseif $activeSlave.nationality is "Italian">>
+<<case "Italian">>
<<set $seed to 176.5>>
-<<elseif $activeSlave.nationality is "Jamaican">>
+<<case "Jamaican">>
<<set $seed to 171.8>>
-<<elseif $activeSlave.nationality is "Japanese">>
+<<case "Japanese">>
<<set $seed to 172>>
-<<elseif $activeSlave.nationality is "Jordanian">>
-<<elseif $activeSlave.nationality is "Kazakh">>
-<<elseif $activeSlave.nationality is "Kenyan">>
-<<elseif $activeSlave.nationality is "Korean">>
+<<case "Jordanian">>
+<<case "Kazakh">>
+<<case "Kenyan">>
+<<case "Korean">>
<<if either(1,2,3) is 3>>
<<set $seed to 165.6>>
<<else>>
<<set $seed to 170.7>>
<</if>>
-<<elseif $activeSlave.nationality is "Lebanese">>
-<<elseif $activeSlave.nationality is "Libyan">>
-<<elseif $activeSlave.nationality is "Lithuanian">>
+<<case "Lebanese">>
+<<case "Libyan">>
+<<case "Lithuanian">>
<<set $seed to 177.2>>
-<<elseif $activeSlave.nationality is "Malaysian">>
+<<case "Malaysian">>
<<set $seed to 166.3>>
-<<elseif $activeSlave.nationality is "Malian">>
+<<case "Malian">>
<<set $seed to 171.3>>
-<<elseif $activeSlave.nationality is "Mexican">>
+<<case "Mexican">>
<<set $seed to 167>>
-<<elseif $activeSlave.nationality is "Moroccan">>
-<<elseif $activeSlave.nationality is "Nepalese">>
-<<elseif $activeSlave.nationality is "Nigerian">>
+<<case "Moroccan">>
+<<case "Nepalese">>
+<<case "Nigerian">>
<<set $seed to 163.8>>
-<<elseif $activeSlave.nationality is "Norwegian">>
+<<case "Norwegian">>
<<set $seed to 179.63>>
-<<elseif $activeSlave.nationality is "Omani">>
-<<elseif $activeSlave.nationality is "Pakistani">>
+<<case "Omani">>
+<<case "Pakistani">>
/% Default to India's figures. %/
<<set $seed to 164.7>>
-<<elseif $activeSlave.nationality is "Peruvian">>
+<<case "Peruvian">>
<<set $seed to 164>>
-<<elseif $activeSlave.nationality is "Polish">>
+<<case "Polish">>
<<set $seed to 178.7>>
-<<elseif $activeSlave.nationality is "Portuguese">>
+<<case "Portuguese">>
<<set $seed to 173.9>>
-<<elseif $activeSlave.nationality is "Puerto Rican">>
+<<case "Puerto Rican">>
/% Average for U.S. Hispanics == 172.4. No adjustment necessary. %/
-<<elseif $activeSlave.nationality is "Romanian">>
+<<case "Romanian">>
<<set $seed to 172>>
-<<elseif $activeSlave.nationality is "Russian">>
+<<case "Russian">>
<<set $seed to 177.2>>
-<<elseif $activeSlave.nationality is "Saudi">>
+<<case "Saudi">>
<<set $seed to 168.9>>
-<<elseif $activeSlave.nationality is "Scottish">>
+<<case "Scottish">>
<<set $seed to 177.6>>
-<<elseif $activeSlave.nationality is "Serbian">>
+<<case "Serbian">>
<<set $seed to 182>>
-<<elseif $activeSlave.nationality is "Slovak">>
+<<case "Slovak">>
<<set $seed to 179.4>>
-<<elseif $activeSlave.nationality is "Spanish">>
+<<case "Spanish">>
<<set $seed to 173.1>>
-<<elseif $activeSlave.nationality is "Sudanese">>
-<<elseif $activeSlave.nationality is "Swedish">>
+<<case "Sudanese">>
+<<case "Swedish">>
<<set $seed to 181.5>>
-<<elseif $activeSlave.nationality is "Swiss">>
+<<case "Swiss">>
<<set $seed to 178.2>>
-<<elseif $activeSlave.nationality is "Tanzanian">>
-<<elseif $activeSlave.nationality is "Thai">>
-<<elseif $activeSlave.nationality is "Tunisian">>
-<<elseif $activeSlave.nationality is "Turkish">>
+<<case "Tanzanian">>
+<<case "Thai">>
+<<case "Tunisian">>
+<<case "Turkish">>
<<set $seed to 173.6>>
-<<elseif $activeSlave.nationality is "Ugandan">>
-<<elseif $activeSlave.nationality is "Ukrainian">>
-<<elseif $activeSlave.nationality is "Uzbek">>
-<<elseif $activeSlave.nationality is "Venezuelan">>
-<<elseif $activeSlave.nationality is "Vietnamese">>
+<<case "Ugandan">>
+<<case "Ukrainian">>
+<<case "Uzbek">>
+<<case "Venezuelan">>
+<<case "Vietnamese">>
<<set $seed to 165.7>>
-<<elseif $activeSlave.nationality is "Yemeni">>
-<<elseif $activeSlave.nationality is "a New Zealander">>
+<<case "Yemeni">>
+<<case "a New Zealander">>
<<set $seed to 177>>
-<<elseif $activeSlave.nationality is "Zimbabwean">>
-<</if>>
+<<case "Zimbabwean">>
+<<default>>
+<</switch>>
/% Include adjustment factor for age. %/
<<if $activeSlave.physicalAge <= 15>>
diff --git a/src/utility/birthWidgets.tw b/src/utility/birthWidgets.tw
index 40f05d926fb22f158af08f117997e250207db182..afc60636992de24722abfcffcf3d56e5e4ea3cdf 100644
--- a/src/utility/birthWidgets.tw
+++ b/src/utility/birthWidgets.tw
@@ -155,13 +155,13 @@ She is lead to the auto-surgeon, since she is likely to face complications with
<<if $masterSuiteUpgradePregnancy == 1>>
She is helping into the birthing chamber, striped, and aided into the specialized chair. Instinctively, she begins to push out her bab<<if $slaves[$i].pregType > 1>>ies<<else>>y<</if>>. Her child<<if $slaves[$i].pregType > 1>>ren are<<else>> is<</if>> promptly taken and, following a shower and fresh change of clothes, she is returned to <<if $masterSuiteUpgradeLuxury == 1>>your big bed<<elseif $masterSuiteUpgradeLuxury is 2>>the fuckpit<<else>>the main room of the master suite<</if>>.
<<else>>
- After struggling to strip and tipping into one of the various seats around the room, she prepares to give birth. Instinctively, she begins to push out her bab<<if $slaves[$i].pregType > 1>>ies<<else>>y<</if>>, indifferent to her may be watching her. Her child<<if $slaves[$i].pregType > 1>>ren are<<else>> is<</if>> promptly taken and, following a shower and fresh change of clothes, she is helped back to <<if $masterSuiteUpgradeLuxury == 1>>your big bed<<elseif $masterSuiteUpgradeLuxury is 2>>the fuckpit<else>> her usual spot<</if>>.
+ After struggling to strip and tipping into one of the various seats around the room, she prepares to give birth. Instinctively, she begins to push out her bab<<if $slaves[$i].pregType > 1>>ies<<else>>y<</if>>, indifferent to her may be watching her. Her child<<if $slaves[$i].pregType > 1>>ren are<<else>> is<</if>> promptly taken and, following a shower and fresh change of clothes, she is helped back to <<if $masterSuiteUpgradeLuxury == 1>>your big bed<<elseif $masterSuiteUpgradeLuxury is 2>>the fuckpit<<else>> her usual spot<</if>>.
<</if>>
<<else>>
<<if $masterSuiteUpgradePregnancy == 1>>
She is helping into the birthing chamber, striped, and aided into the specialized chair. Finding it quite comfortable, she begins to push out her bab<<if $slaves[$i].pregType > 1>>ies<<else>>y<</if>>. Her child<<if $slaves[$i].pregType > 1>>ren are<<else>> is<</if>> promptly taken and, following a shower and fresh change of clothes, she is returned to <<if $masterSuiteUpgradeLuxury == 1>>your big bed<<elseif $masterSuiteUpgradeLuxury is 2>>the fuckpit<<else>>the main room of the master suite<</if>>.
<<else>>
- After struggling to strip and tipping into one of the various seats around the room, she prepares to give birth. She gets comfortable and begins to push out her bab<<if $slaves[$i].pregType > 1>>ies<<else>>y<</if>>. Her child<<if $slaves[$i].pregType > 1>>ren are<<else>> is<</if>> promptly taken and, following a shower and fresh change of clothes, she is returned to <<if $masterSuiteUpgradeLuxury == 1>>your big bed<<elseif $masterSuiteUpgradeLuxury is 2>>the fuckpit<else>> her preferred spot spot<</if>>.
+ After struggling to strip and tipping into one of the various seats around the room, she prepares to give birth. She gets comfortable and begins to push out her bab<<if $slaves[$i].pregType > 1>>ies<<else>>y<</if>>. Her child<<if $slaves[$i].pregType > 1>>ren are<<else>> is<</if>> promptly taken and, following a shower and fresh change of clothes, she is returned to <<if $masterSuiteUpgradeLuxury == 1>>your big bed<<elseif $masterSuiteUpgradeLuxury is 2>>the fuckpit<<else>> her preferred spot spot<</if>>.
<</if>>
<</if>>
<<else>>
@@ -169,13 +169,13 @@ She is lead to the auto-surgeon, since she is likely to face complications with
<<if $masterSuiteUpgradePregnancy == 1>>
She enters the birthing chamber, strips, and seats herself in the specialized chair. Instinctively, she begins to push out her bab<<if $slaves[$i].pregType > 1>>ies<<else>>y<</if>>. Her child<<if $slaves[$i].pregType > 1>>ren are<<else>> is<</if>> promptly taken and, following a shower and fresh change of clothes, she returns to <<if $masterSuiteUpgradeLuxury == 1>>your big bed<<elseif $masterSuiteUpgradeLuxury is 2>>the fuckpit<<else>>the main room of the master suite<</if>>.
<<else>>
- She strips and settles into one of the various seats around the room. Instinctively, she begins to push out her bab<<if $slaves[$i].pregType > 1>>ies<<else>>y<</if>>, indifferent to her may be watching her. Her child<<if $slaves[$i].pregType > 1>>ren are<<else>> is<</if>> promptly taken and, following a shower and fresh change of clothes, she returns to <<if $masterSuiteUpgradeLuxury == 1>>your big bed<<elseif $masterSuiteUpgradeLuxury is 2>>the fuckpit<else>> her usual spot<</if>>.
+ She strips and settles into one of the various seats around the room. Instinctively, she begins to push out her bab<<if $slaves[$i].pregType > 1>>ies<<else>>y<</if>>, indifferent to her may be watching her. Her child<<if $slaves[$i].pregType > 1>>ren are<<else>> is<</if>> promptly taken and, following a shower and fresh change of clothes, she returns to <<if $masterSuiteUpgradeLuxury == 1>>your big bed<<elseif $masterSuiteUpgradeLuxury is 2>>the fuckpit<<else>> her usual spot<</if>>.
<</if>>
<<else>>
<<if $masterSuiteUpgradePregnancy == 1>>
She enters the birthing chamber, strips, and seats herself in the specialized chair. Finding it quite comfortable, she begins to push out her bab<<if $slaves[$i].pregType > 1>>ies<<else>>y<</if>>. Her child<<if $slaves[$i].pregType > 1>>ren are<<else>> is<</if>> promptly taken and, following a shower and fresh change of clothes, she returns to <<if $masterSuiteUpgradeLuxury == 1>>your big bed<<elseif $masterSuiteUpgradeLuxury is 2>>the fuckpit<<else>>the main room of the master suite<</if>>.
<<else>>
- She strips and settles into one of the various seats around the room. She gets comfortable and begins to push out her bab<<if $slaves[$i].pregType > 1>>ies<<else>>y<</if>>. Her child<<if $slaves[$i].pregType > 1>>ren are<<else>> is<</if>> promptly taken and, following a shower and fresh change of clothes, she returns to <<if $masterSuiteUpgradeLuxury == 1>>your big bed<<elseif $masterSuiteUpgradeLuxury is 2>>the fuckpit<else>> her preferred spot spot<</if>>.
+ She strips and settles into one of the various seats around the room. She gets comfortable and begins to push out her bab<<if $slaves[$i].pregType > 1>>ies<<else>>y<</if>>. Her child<<if $slaves[$i].pregType > 1>>ren are<<else>> is<</if>> promptly taken and, following a shower and fresh change of clothes, she returns to <<if $masterSuiteUpgradeLuxury == 1>>your big bed<<elseif $masterSuiteUpgradeLuxury is 2>>the fuckpit<<else>> her preferred spot spot<</if>>.
<</if>>
<</if>>
<</if>>