diff --git a/src/pregmod/widgets/pregmodWidgets.tw b/src/pregmod/widgets/pregmodWidgets.tw index 7abda5270e1c73f230d970b4e014033407183d5c..ae146851adc33459094d2142b7be5b9caaf17de9 100644 --- a/src/pregmod/widgets/pregmodWidgets.tw +++ b/src/pregmod/widgets/pregmodWidgets.tw @@ -165,7 +165,7 @@ <<set $activeStandard.face = 40>> <</if>> <<if $arcologies[0].FSIntellectualDependency > 20>> - <<set $activeSlave.energy = 100>> + <<set $activeStandard.energy = 100>> <<elseif $arcologies[0].FSSlaveProfessionalism > 20>> <<if $failedElite > 100>> <<set $activeStandard.skill = 500>> @@ -346,255 +346,255 @@ In order to be eligible to be bred, the potential breeding bitch must first sati <</widget>> <<widget "BreedingEligibility">> -<<set _passing = 0>> -<br><br> -$activeSlave.slaveName is up for review: -<<if $activeSlave.intelligence+$activeSlave.intelligenceImplant >= $activeStandard.intelligence>> - <br>$He @@.lime;PASSED@@ the intelligence test. -<<else>> - <br>$He @@.red;FAILED@@ the intelligence test. - <<set _passing-->> -<</if>> -<<if Beauty($activeSlave) >= $activeStandard.beauty>> - <br>$He @@.lime;PASSED@@ the beauty test. -<<else>> - <br>$He @@.red;FAILED@@ the beauty test. - <<set _passing-->> -<</if>> -<<if $activeSlave.face >= $activeStandard.face>> - <br>$He @@.lime;PASSED@@ the facial attractiveness test. -<<else>> - <br>$He @@.red;FAILED@@ the facial attractiveness test. - <<set _passing-->> -<</if>> -<<if $activeSlave.chem <= $activeStandard.chem>> - <br>$He @@.lime;PASSED@@ the carcinogen test. -<<else>> - <br>$He @@.red;FAILED@@ the carcinogen test. - <<set _passing-->> -<</if>> -<<if $activeSlave.addict <= $activeStandard.addict>> - <br>$He @@.lime;PASSED@@ the drug test. -<<else>> - <br>$He @@.red;FAILED@@ the drug test. - <<set _passing-->> -<</if>> -<<if $arcologies[0].FSSupremacist > 20>> - <<if $activeSlave.race == $activeStandard.raceSup>> - <br>$He @@.lime;PASSED@@ racial testing. - <<else>> - <br>$He @@.red;FAILED@@ racial testing. - <<set _passing-->> - <</if>> -<</if>> -<<if $arcologies[0].FSSubjugationist > 20>> - <<if $activeSlave.race != $activeStandard.raceSub>> - <br>$He @@.lime;PASSED@@ racial testing. - <<else>> - <br>$He @@.red;FAILED@@ racial testing. - <<set _passing-->> - <</if>> -<</if>> -<<if $arcologies[0].FSPetiteAdmiration > 20>> - <<if ($activeSlave.height-($activeSlave.heightImplant*10)) < $activeStandard.height>> - <<if ($activeSlave.height-($activeSlave.heightImplant*10)) < Height.mean($activeSlave)-15>> - <br>$He @@.lime;MET@@ height requirements. - <<else>> - <br>$He @@.red;FAILED@@ to meet height requirements. - <<set _passing-->> - <</if>> - <<else>> - <br>$He @@.red;FAILED@@ to meet height requirements. - <<set _passing-->> - <</if>> -<<elseif $arcologies[0].FSStatuesqueGlorification > 20>> - <<if ($activeSlave.height-($activeSlave.heightImplant*10)) > $activeStandard.height>> - <br>$He @@.lime;MET@@ height requirements. - <<else>> - <br>$He @@.red;FAILED@@ to meet height requirements. - <<set _passing-->> - <</if>> -<</if>> -<<if $arcologies[0].FSGenderRadicalist > 20>> - <<if $activeSlave.dick >= $activeStandard.dick && $activeSlave.balls >= $activeStandard.balls>> - <br>$He @@.lime;PASSED@@ penis inspection. + <<set _passing = 0>> + <br><br> + <<= getSlave($AS)>>.slaveName is up for review: + <<if getSlave($AS).intelligence+getSlave($AS).intelligenceImplant >= $activeStandard.intelligence>> + <br>$He @@.lime;PASSED@@ the intelligence test. <<else>> - <br>$He @@.red;FAILED@@ penis inspection. + <br>$He @@.red;FAILED@@ the intelligence test. <<set _passing-->> <</if>> -<<elseif $arcologies[0].FSGenderFundamentalist > 20>> - <<if $activeSlave.dick == $activeStandard.dick && $activeSlave.balls == $activeStandard.balls>> - <br>$He @@.lime;PASSED@@ genital inspection. + <<if Beauty(getSlave($AS)) >= $activeStandard.beauty>> + <br>$He @@.lime;PASSED@@ the beauty test. <<else>> - <br>$He @@.red;FAILED@@ genital inspection. + <br>$He @@.red;FAILED@@ the beauty test. <<set _passing-->> <</if>> -<</if>> -<<if $arcologies[0].FSPaternalist > 20>> - <<if $activeSlave.intelligenceImplant >= $activeStandard.intelligenceImplant>> - <br>$He @@.lime;PASSED@@ educational trials. + <<if getSlave($AS).face >= $activeStandard.face>> + <br>$He @@.lime;PASSED@@ the facial attractiveness test. <<else>> - <br>$He @@.red;FAILED@@ educational trials. + <br>$He @@.red;FAILED@@ the facial attractiveness test. <<set _passing-->> <</if>> - <<if $activeSlave.health.condition >= $activeStandard.health>> - <br>$He @@.lime;PASSED@@ health examinations. + <<if getSlave($AS).chem <= $activeStandard.chem>> + <br>$He @@.lime;PASSED@@ the carcinogen test. <<else>> - <br>$He @@.red;FAILED@@ health examinations. + <br>$He @@.red;FAILED@@ the carcinogen test. <<set _passing-->> <</if>> -<<elseif $arcologies[0].FSSlaveProfessionalism > 20>> - <<if $activeSlave.intelligenceImplant >= $activeStandard.intelligenceImplant>> - <br>$He @@.lime;PASSED@@ educational trials. + <<if getSlave($AS).addict <= $activeStandard.addict>> + <br>$He @@.lime;PASSED@@ the drug test. <<else>> - <br>$He @@.red;FAILED@@ educational trials. + <br>$He @@.red;FAILED@@ the drug test. <<set _passing-->> <</if>> -<</if>> -<<if $arcologies[0].FSIntellectualDependency > 20>> - <<if $activeSlave.energy >= $activeStandard.energy>> - <br>$He @@.lime;PASSED@@ libido testing. - <<else>> - <br>$He @@.red;FAILED@@ libido testing. - <<set _passing-->> - <</if>> -<<elseif $arcologies[0].FSSlaveProfessionalism > 20>> - <<if $activeSlave.skill.vaginal + $activeSlave.skill.anal + $activeSlave.skill.oral + $activeSlave.skill.entertainment + $activeSlave.skill.whoring >= $activeStandard.skill>> - <br>$He @@.lime;PASSED@@ skill retention trials. - <<else>> - <br>$He @@.red;FAILED@@ skill retention trials. - <<set _passing-->> - <</if>> - <<if $activeSlave.accent <= $activeStandard.accent>> - <br>$He @@.lime;PASSED@@ $his speech test. - <<else>> - <br>$He @@.red;FAILED@@ $his speech test. - <<set _passing-->> - <</if>> -<</if>> -<<if $arcologies[0].FSBodyPurist > 20>> - <<if $activeSlave.chem <= $activeStandard.chem>> - <br>$He @@.lime;PASSED@@ health examinations. - <<else>> - <br>$He @@.red;FAILED@@ health examinations. - <<set _passing-->> + <<if $arcologies[0].FSSupremacist > 20>> + <<if getSlave($AS).race == $activeStandard.raceSup>> + <br>$He @@.lime;PASSED@@ racial testing. + <<else>> + <br>$He @@.red;FAILED@@ racial testing. + <<set _passing-->> + <</if>> <</if>> - <<if $activeSlave.boobsImplant == 0 && $activeSlave.buttImplant == 0 && $activeSlave.lipsImplant == 0 && $activeSlave.hipsImplant == 0 && $activeSlave.shouldersImplant == 0 && $activeSlave.faceImplant <= 5 && $activeSlave.bellyImplant == -1>> - <br>$He @@.lime;PASSED@@ implant examinations. - <<else>> - <br>$He @@.red;FAILED@@ implant examinations. - <<set _passing-->> + <<if $arcologies[0].FSSubjugationist > 20>> + <<if getSlave($AS).race != $activeStandard.raceSub>> + <br>$He @@.lime;PASSED@@ racial testing. + <<else>> + <br>$He @@.red;FAILED@@ racial testing. + <<set _passing-->> + <</if>> <</if>> -<</if>> -<<if $arcologies[0].FSMaturityPreferentialist > 20>> - <<if $activeSlave.physicalAge > $activeStandard.age>> - <br>$He @@.lime;PASSED@@ age examinations. - <<else>> - <br>$He @@.red;FAILED@@ age examinations. - <<set _passing-->> + <<if $arcologies[0].FSPetiteAdmiration > 20>> + <<if (getSlave($AS).height-(getSlave($AS).heightImplant*10)) < $activeStandard.height>> + <<if (getSlave($AS).height-(getSlave($AS).heightImplant*10)) < Height.mean(getSlave($AS))-15>> + <br>$He @@.lime;MET@@ height requirements. + <<else>> + <br>$He @@.red;FAILED@@ to meet height requirements. + <<set _passing-->> + <</if>> + <<else>> + <br>$He @@.red;FAILED@@ to meet height requirements. + <<set _passing-->> + <</if>> + <<elseif $arcologies[0].FSStatuesqueGlorification > 20>> + <<if (getSlave($AS).height-(getSlave($AS).heightImplant*10)) > $activeStandard.height>> + <br>$He @@.lime;MET@@ height requirements. + <<else>> + <br>$He @@.red;FAILED@@ to meet height requirements. + <<set _passing-->> + <</if>> <</if>> -<<elseif $arcologies[0].FSYouthPreferentialist > 20>> - <<if $activeSlave.physicalAge < $activeStandard.age>> - <br>$He @@.lime;PASSED@@ age examinations. - <<else>> - <br>$He @@.red;FAILED@@ age examinations. - <<set _passing-->> + <<if $arcologies[0].FSGenderRadicalist > 20>> + <<if getSlave($AS).dick >= $activeStandard.dick && getSlave($AS).balls >= $activeStandard.balls>> + <br>$He @@.lime;PASSED@@ penis inspection. + <<else>> + <br>$He @@.red;FAILED@@ penis inspection. + <<set _passing-->> + <</if>> + <<elseif $arcologies[0].FSGenderFundamentalist > 20>> + <<if getSlave($AS).dick == $activeStandard.dick && getSlave($AS).balls == $activeStandard.balls>> + <br>$He @@.lime;PASSED@@ genital inspection. + <<else>> + <br>$He @@.red;FAILED@@ genital inspection. + <<set _passing-->> + <</if>> <</if>> -<</if>> -<<if $arcologies[0].FSSlimnessEnthusiast > 20>> - <<if $activeSlave.weight <= $activeStandard.weightMax>> - <br>$He @@.lime;MET@@ weight limits. - <<else>> - <br>$He @@.red;EXCEEDED@@ weight limits. - <<set _passing-->> + <<if $arcologies[0].FSPaternalist > 20>> + <<if getSlave($AS).intelligenceImplant >= $activeStandard.intelligenceImplant>> + <br>$He @@.lime;PASSED@@ educational trials. + <<else>> + <br>$He @@.red;FAILED@@ educational trials. + <<set _passing-->> + <</if>> + <<if getSlave($AS).health.condition >= $activeStandard.health>> + <br>$He @@.lime;PASSED@@ health examinations. + <<else>> + <br>$He @@.red;FAILED@@ health examinations. + <<set _passing-->> + <</if>> + <<elseif $arcologies[0].FSSlaveProfessionalism > 20>> + <<if getSlave($AS).intelligenceImplant >= $activeStandard.intelligenceImplant>> + <br>$He @@.lime;PASSED@@ educational trials. + <<else>> + <br>$He @@.red;FAILED@@ educational trials. + <<set _passing-->> + <</if>> <</if>> - <<if $activeSlave.butt <= $activeStandard.butt>> - <br>$He @@.lime;MET@@ ass measurements. - <<else>> - <br>$He @@.red;EXCEEDED@@ ass measurements. - <<set _passing-->> + <<if $arcologies[0].FSIntellectualDependency > 20>> + <<if getSlave($AS).energy >= $activeStandard.energy>> + <br>$He @@.lime;PASSED@@ libido testing. + <<else>> + <br>$He @@.red;FAILED@@ libido testing. + <<set _passing-->> + <</if>> + <<elseif $arcologies[0].FSSlaveProfessionalism > 20>> + <<if getSlave($AS).skill.vaginal + getSlave($AS).skill.anal + getSlave($AS).skill.oral + getSlave($AS).skill.entertainment + getSlave($AS).skill.whoring >= $activeStandard.skill>> + <br>$He @@.lime;PASSED@@ skill retention trials. + <<else>> + <br>$He @@.red;FAILED@@ skill retention trials. + <<set _passing-->> + <</if>> + <<if getSlave($AS).accent <= $activeStandard.accent>> + <br>$He @@.lime;PASSED@@ $his speech test. + <<else>> + <br>$He @@.red;FAILED@@ $his speech test. + <<set _passing-->> + <</if>> <</if>> - <<if $activeSlave.boobs <= $activeStandard.boobs>> - <br>$He @@.lime;MET@@ chest measurements. - <<else>> - <br>$He @@.red;EXCEEDED@@ chest measurements. - <<set _passing-->> + <<if $arcologies[0].FSBodyPurist > 20>> + <<if getSlave($AS).chem <= $activeStandard.chem>> + <br>$He @@.lime;PASSED@@ health examinations. + <<else>> + <br>$He @@.red;FAILED@@ health examinations. + <<set _passing-->> + <</if>> + <<if getSlave($AS).boobsImplant == 0 && getSlave($AS).buttImplant == 0 && getSlave($AS).lipsImplant == 0 && getSlave($AS).hipsImplant == 0 && getSlave($AS).shouldersImplant == 0 && getSlave($AS).faceImplant <= 5 && getSlave($AS).bellyImplant == -1>> + <br>$He @@.lime;PASSED@@ implant examinations. + <<else>> + <br>$He @@.red;FAILED@@ implant examinations. + <<set _passing-->> + <</if>> <</if>> -<<elseif $arcologies[0].FSAssetExpansionist > 20>> - <<if ($activeSlave.butt - $activeSlave.buttImplant) >= $activeStandard.butt>> - <br>$He @@.lime;MET@@ ass measurements. - <<else>> - <br>$He @@.red;FAILED@@ to meet ass measurements. - <<set _passing-->> + <<if $arcologies[0].FSMaturityPreferentialist > 20>> + <<if getSlave($AS).physicalAge > $activeStandard.age>> + <br>$He @@.lime;PASSED@@ age examinations. + <<else>> + <br>$He @@.red;FAILED@@ age examinations. + <<set _passing-->> + <</if>> + <<elseif $arcologies[0].FSYouthPreferentialist > 20>> + <<if getSlave($AS).physicalAge < $activeStandard.age>> + <br>$He @@.lime;PASSED@@ age examinations. + <<else>> + <br>$He @@.red;FAILED@@ age examinations. + <<set _passing-->> + <</if>> <</if>> - <<if ($activeSlave.boobs - $activeSlave.boobsImplant) >= $activeStandard.boobs>> - <br>$He @@.lime;MET@@ chest measurements. - <<else>> - <br>$He @@.red;FAILED@@ to meet chest measurements. - <<set _passing-->> + <<if $arcologies[0].FSSlimnessEnthusiast > 20>> + <<if getSlave($AS).weight <= $activeStandard.weightMax>> + <br>$He @@.lime;MET@@ weight limits. + <<else>> + <br>$He @@.red;EXCEEDED@@ weight limits. + <<set _passing-->> + <</if>> + <<if getSlave($AS).butt <= $activeStandard.butt>> + <br>$He @@.lime;MET@@ ass measurements. + <<else>> + <br>$He @@.red;EXCEEDED@@ ass measurements. + <<set _passing-->> + <</if>> + <<if getSlave($AS).boobs <= $activeStandard.boobs>> + <br>$He @@.lime;MET@@ chest measurements. + <<else>> + <br>$He @@.red;EXCEEDED@@ chest measurements. + <<set _passing-->> + <</if>> + <<elseif $arcologies[0].FSAssetExpansionist > 20>> + <<if (getSlave($AS).butt - getSlave($AS).buttImplant) >= $activeStandard.butt>> + <br>$He @@.lime;MET@@ ass measurements. + <<else>> + <br>$He @@.red;FAILED@@ to meet ass measurements. + <<set _passing-->> + <</if>> + <<if (getSlave($AS).boobs - getSlave($AS).boobsImplant) >= $activeStandard.boobs>> + <br>$He @@.lime;MET@@ chest measurements. + <<else>> + <br>$He @@.red;FAILED@@ to meet chest measurements. + <<set _passing-->> + <</if>> <</if>> -<</if>> -<<if $arcologies[0].FSPastoralist > 20>> - <<if $activeSlave.lactation == $activeStandard.lactation>> - <br>$He @@.lime;MET@@ milk production standards. - <<elseif $activeSlave.lactation > $activeStandard.lactation>> - <br>$He @@.red;EXCEEDED@@ milk production standards. - <<set _passing-->> - <<else>> - <br>$He @@.red;FAILED@@ to meet milk production standards. - <<set _passing-->> + <<if $arcologies[0].FSPastoralist > 20>> + <<if getSlave($AS).lactation == $activeStandard.lactation>> + <br>$He @@.lime;MET@@ milk production standards. + <<elseif getSlave($AS).lactation > $activeStandard.lactation>> + <br>$He @@.red;EXCEEDED@@ milk production standards. + <<set _passing-->> + <<else>> + <br>$He @@.red;FAILED@@ to meet milk production standards. + <<set _passing-->> + <</if>> <</if>> -<</if>> -<<if $arcologies[0].FSPhysicalIdealist > 20>> - <<if $arcologies[0].FSPhysicalIdealistLaw == 1>> - <<if $arcologies[0].FSSlimnessEnthusiast > 20>> - <<if $activeSlave.weight <= $activeStandard.weightMax>> - <br>$He @@.lime;MET@@ weight limits. + <<if $arcologies[0].FSPhysicalIdealist > 20>> + <<if $arcologies[0].FSPhysicalIdealistLaw == 1>> + <<if $arcologies[0].FSSlimnessEnthusiast > 20>> + <<if getSlave($AS).weight <= $activeStandard.weightMax>> + <br>$He @@.lime;MET@@ weight limits. + <<else>> + <br>$He @@.red;EXCEEDED@@ weight limits. + <<set _passing-->> + <</if>> + <</if>> + <<if getSlave($AS).muscles > $activeStandard.musclesMin && getSlave($AS).muscles < $activeStandard.musclesMax>> + <br>$He @@.lime;MET@@ the required muscle standard. + <<elseif (getSlave($AS).muscles <= $activeStandard.musclesMin && getSlave($AS).muscles > $activeStandard.musclesMin-20) || (getSlave($AS).muscles >= $activeStandard.musclesMax && getSlave($AS).muscles < $activeStandard.musclesMax+30)>> + <br>$He @@.yellow;failed@@ to match the required muscle standard, but was deemed within fixable range. + <<if _passing == 0>> + <<set _passing = 2>> + <</if>> <<else>> - <br>$He @@.red;EXCEEDED@@ weight limits. + <br>$He @@.red;FAILED@@ to match the required muscle standard. <<set _passing-->> <</if>> - <</if>> - <<if $activeSlave.muscles > $activeStandard.musclesMin && $activeSlave.muscles < $activeStandard.musclesMax>> - <br>$He @@.lime;MET@@ the required muscle standard. - <<elseif ($activeSlave.muscles <= $activeStandard.musclesMin && $activeSlave.muscles > $activeStandard.musclesMin-20) || ($activeSlave.muscles >= $activeStandard.musclesMax && $activeSlave.muscles < $activeStandard.musclesMax+30)>> - <br>$He @@.yellow;failed@@ to match the required muscle standard, but was deemed within fixable range. - <<if _passing == 0>> - <<set _passing = 2>> - <</if>> <<else>> - <br>$He @@.red;FAILED@@ to match the required muscle standard. - <<set _passing-->> + <<if getSlave($AS).muscles > $activeStandard.musclesMin>> + <br>$He @@.lime;MET@@ the required muscle mass. + <<else>> + <br>$He @@.red;FAILED@@ to meet the required muscle mass. + <<set _passing-->> + <</if>> <</if>> - <<else>> - <<if $activeSlave.muscles > $activeStandard.musclesMin>> - <br>$He @@.lime;MET@@ the required muscle mass. + <<elseif $arcologies[0].FSHedonisticDecadence > 20>> + <<if getSlave($AS).weight > $activeStandard.weightMin>> + <br>$He @@.lime;MET@@ the minimum weight limit. <<else>> - <br>$He @@.red;FAILED@@ to meet the required muscle mass. + <br>$He @@.red;failed@@ to meet minimum weight limits. <<set _passing-->> <</if>> <</if>> -<<elseif $arcologies[0].FSHedonisticDecadence > 20>> - <<if $activeSlave.weight > $activeStandard.weightMin>> - <br>$He @@.lime;MET@@ the minimum weight limit. + <br><br> + <<if _passing == 2>> + The slave known as "<<= SlaveFullName(getSlave($AS))>>" has been deemed @@.yellow;currently unsuitable@@ for breeding, but may be resubmitted after corrections are applied. We understand the subjective nature of "fit" and do not wish to preclude the use a viable breeder over such a trivial fix. $He has been placed on a contraceptive routine to protect against "accidents" in the interim. + <<elseif _passing != 0>> + The slave known as "<<= SlaveFullName(getSlave($AS))>>" has been deemed @@.red;unsuitable@@ for breeding and has been @@.green;sterilized@@ as per agreement. + <<set getSlave($AS).preg = -3>> <<else>> - <br>$He @@.red;failed@@ to meet minimum weight limits. - <<set _passing-->> + The slave known as "<<= SlaveFullName(getSlave($AS))>>" has been deemed @@.green;worthy@@ of being used for breeding and has been marked as such. Please note the increased restrictions on breeding slaves. + <br>They are not permitted for public use or anything that may harm their growing child. The child within them is considered a member of the Elite class and as such, any harm that comes to them will result in severe penalties to the breeder's owner. Development of the child will be closely monitored; should the fetus be identified as not of the owner's blood (or any other member of the Elite class), said owner shall face severe fines. + <<set getSlave($AS).breedingMark = 1, getSlave($AS).pregControl = "none">> <</if>> -<</if>> -<br><br> -<<if _passing == 2>> - The slave known as "<<= SlaveFullName($activeSlave)>>" has been deemed @@.yellow;currently unsuitable@@ for breeding, but may be resubmitted after corrections are applied. We understand the subjective nature of "fit" and do not wish to preclude the use a viable breeder over such a trivial fix. $He has been placed on a contraceptive routine to protect against "accidents" in the interim. -<<elseif _passing != 0>> - The slave known as "<<= SlaveFullName($activeSlave)>>" has been deemed @@.red;unsuitable@@ for breeding and has been @@.green;sterilized@@ as per agreement. - <<set $activeSlave.preg = -3>> -<<else>> - The slave known as "<<= SlaveFullName($activeSlave)>>" has been deemed @@.green;worthy@@ of being used for breeding and has been marked as such. Please note the increased restrictions on breeding slaves. - <br>They are not permitted for public use or anything that may harm their growing child. The child within them is considered a member of the Elite class and as such, any harm that comes to them will result in severe penalties to the breeder's owner. Development of the child will be closely monitored; should the fetus be identified as not of the owner's blood (or any other member of the Elite class), said owner shall face severe fines. - <<set $activeSlave.breedingMark = 1, $activeSlave.pregControl = "none">> -<</if>> -<br>@@.yellowgreen;<<print cashFormat(5000)>>@@ has been deducted from your account as agreed. -<<= removeJob($activeSlave, $activeSlave.assignment)>> + <br>@@.yellowgreen;<<print cashFormat(5000)>>@@ has been deducted from your account as agreed. + <<= removeJob(getSlave($AS), getSlave($AS).assignment)>> <</widget>> <<widget "PlayerRace">>