diff --git a/src/pregmod/familyPanic.tw b/src/pregmod/familyPanic.tw new file mode 100644 index 0000000000000000000000000000000000000000..fe12a4d9db2212c7a28750051ae9d0eba72247cd --- /dev/null +++ b/src/pregmod/familyPanic.tw @@ -0,0 +1,25 @@ +:: family panic [nobr] + +<<set $nextButton = "Back", $nextLink = "Main">> + +<<set $slaves.forEach(function(s) { s.sisters = 0; s.daughters = 0; })>> +<<set $PC.daughters = 0, $PC.sisters = 0>> + +<<for _fp = 0; _fp < $slaves.length; _fp++>> + <<if ($slaves[_fp].mother == -1 || $slaves[_fp].father == -1)>> + <<set $PC.daughters++>> + <</if>> + <<if areSisters($slaves[_fp], $PC) > 0>> + <<set $PC.sisters++>> + <</if>> + <<for _fpt = 0; _fpt < $slaves.length; _fpt++>> + <<if ($slaves[_fpt].mother == $slaves[_fp].ID) || ($slaves[_fpt].father == $slaves[_fp].ID)>> + <<set $slaves[_fp].daughters++>> + <</if>> + <<if areSisters($slaves[_fpt], $slaves[_fp]) > 0>> + <<set $slaves[_fp].sisters++>> + <</if>> + <</for>> +<</for>> + +//Family relations flushed and rebuilt.// \ No newline at end of file diff --git a/src/uncategorized/options.tw b/src/uncategorized/options.tw index 281b7b0ad8bf0c71471247a5ee69a701ac1ffc0d..b6f5b349d3e99a118634796dcb40054ec497b326 100644 --- a/src/uncategorized/options.tw +++ b/src/uncategorized/options.tw @@ -10,6 +10,9 @@ This save was created using FC version $ver build $releaseID. <br><br> Genetics array test: <<link "Run Test">><<goto "test genetics">><</link>> +<<if $familyTesting == 1>> +<br><<link "Reset extended family mode controllers">><<goto "family panic">><</link>> //Clears and rebuilds .sister and .daughter tracking.// +<</if>> <br><br>