diff --git a/src/pregmod/widgets/pregmodWidgets.tw b/src/pregmod/widgets/pregmodWidgets.tw index 3eeae830887bd8320f536e794c6574b7c7806bf0..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>> @@ -348,39 +348,39 @@ In order to be eligible to be bred, the potential breeding bitch must first sati <<widget "BreedingEligibility">> <<set _passing = 0>> <br><br> - $activeSlave.slaveName is up for review: - <<if $activeSlave.intelligence+$activeSlave.intelligenceImplant >= $activeStandard.intelligence>> + <<= 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@@ the intelligence test. <<set _passing-->> <</if>> - <<if Beauty($activeSlave) >= $activeStandard.beauty>> + <<if Beauty(getSlave($AS)) >= $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>> + <<if getSlave($AS).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>> + <<if getSlave($AS).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>> + <<if getSlave($AS).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>> + <<if getSlave($AS).race == $activeStandard.raceSup>> <br>$He @@.lime;PASSED@@ racial testing. <<else>> <br>$He @@.red;FAILED@@ racial testing. @@ -388,7 +388,7 @@ In order to be eligible to be bred, the potential breeding bitch must first sati <</if>> <</if>> <<if $arcologies[0].FSSubjugationist > 20>> - <<if $activeSlave.race != $activeStandard.raceSub>> + <<if getSlave($AS).race != $activeStandard.raceSub>> <br>$He @@.lime;PASSED@@ racial testing. <<else>> <br>$He @@.red;FAILED@@ racial testing. @@ -396,8 +396,8 @@ In order to be eligible to be bred, the potential breeding bitch must first sati <</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>> + <<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. @@ -408,7 +408,7 @@ In order to be eligible to be bred, the potential breeding bitch must first sati <<set _passing-->> <</if>> <<elseif $arcologies[0].FSStatuesqueGlorification > 20>> - <<if ($activeSlave.height-($activeSlave.heightImplant*10)) > $activeStandard.height>> + <<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. @@ -416,14 +416,14 @@ In order to be eligible to be bred, the potential breeding bitch must first sati <</if>> <</if>> <<if $arcologies[0].FSGenderRadicalist > 20>> - <<if $activeSlave.dick >= $activeStandard.dick && $activeSlave.balls >= $activeStandard.balls>> + <<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 $activeSlave.dick == $activeStandard.dick && $activeSlave.balls == $activeStandard.balls>> + <<if getSlave($AS).dick == $activeStandard.dick && getSlave($AS).balls == $activeStandard.balls>> <br>$He @@.lime;PASSED@@ genital inspection. <<else>> <br>$He @@.red;FAILED@@ genital inspection. @@ -431,20 +431,20 @@ In order to be eligible to be bred, the potential breeding bitch must first sati <</if>> <</if>> <<if $arcologies[0].FSPaternalist > 20>> - <<if $activeSlave.intelligenceImplant >= $activeStandard.intelligenceImplant>> + <<if getSlave($AS).intelligenceImplant >= $activeStandard.intelligenceImplant>> <br>$He @@.lime;PASSED@@ educational trials. <<else>> <br>$He @@.red;FAILED@@ educational trials. <<set _passing-->> <</if>> - <<if $activeSlave.health.condition >= $activeStandard.health>> + <<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 $activeSlave.intelligenceImplant >= $activeStandard.intelligenceImplant>> + <<if getSlave($AS).intelligenceImplant >= $activeStandard.intelligenceImplant>> <br>$He @@.lime;PASSED@@ educational trials. <<else>> <br>$He @@.red;FAILED@@ educational trials. @@ -452,20 +452,20 @@ In order to be eligible to be bred, the potential breeding bitch must first sati <</if>> <</if>> <<if $arcologies[0].FSIntellectualDependency > 20>> - <<if $activeSlave.energy >= $activeStandard.energy>> + <<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 $activeSlave.skill.vaginal + $activeSlave.skill.anal + $activeSlave.skill.oral + $activeSlave.skill.entertainment + $activeSlave.skill.whoring >= $activeStandard.skill>> + <<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 $activeSlave.accent <= $activeStandard.accent>> + <<if getSlave($AS).accent <= $activeStandard.accent>> <br>$He @@.lime;PASSED@@ $his speech test. <<else>> <br>$He @@.red;FAILED@@ $his speech test. @@ -473,13 +473,13 @@ In order to be eligible to be bred, the potential breeding bitch must first sati <</if>> <</if>> <<if $arcologies[0].FSBodyPurist > 20>> - <<if $activeSlave.chem <= $activeStandard.chem>> + <<if getSlave($AS).chem <= $activeStandard.chem>> <br>$He @@.lime;PASSED@@ health examinations. <<else>> <br>$He @@.red;FAILED@@ health examinations. <<set _passing-->> <</if>> - <<if $activeSlave.boobsImplant == 0 && $activeSlave.buttImplant == 0 && $activeSlave.lipsImplant == 0 && $activeSlave.hipsImplant == 0 && $activeSlave.shouldersImplant == 0 && $activeSlave.faceImplant <= 5 && $activeSlave.bellyImplant == -1>> + <<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. @@ -487,14 +487,14 @@ In order to be eligible to be bred, the potential breeding bitch must first sati <</if>> <</if>> <<if $arcologies[0].FSMaturityPreferentialist > 20>> - <<if $activeSlave.physicalAge > $activeStandard.age>> + <<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 $activeSlave.physicalAge < $activeStandard.age>> + <<if getSlave($AS).physicalAge < $activeStandard.age>> <br>$He @@.lime;PASSED@@ age examinations. <<else>> <br>$He @@.red;FAILED@@ age examinations. @@ -502,32 +502,32 @@ In order to be eligible to be bred, the potential breeding bitch must first sati <</if>> <</if>> <<if $arcologies[0].FSSlimnessEnthusiast > 20>> - <<if $activeSlave.weight <= $activeStandard.weightMax>> + <<if getSlave($AS).weight <= $activeStandard.weightMax>> <br>$He @@.lime;MET@@ weight limits. <<else>> <br>$He @@.red;EXCEEDED@@ weight limits. <<set _passing-->> <</if>> - <<if $activeSlave.butt <= $activeStandard.butt>> + <<if getSlave($AS).butt <= $activeStandard.butt>> <br>$He @@.lime;MET@@ ass measurements. <<else>> <br>$He @@.red;EXCEEDED@@ ass measurements. <<set _passing-->> <</if>> - <<if $activeSlave.boobs <= $activeStandard.boobs>> + <<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 ($activeSlave.butt - $activeSlave.buttImplant) >= $activeStandard.butt>> + <<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 ($activeSlave.boobs - $activeSlave.boobsImplant) >= $activeStandard.boobs>> + <<if (getSlave($AS).boobs - getSlave($AS).boobsImplant) >= $activeStandard.boobs>> <br>$He @@.lime;MET@@ chest measurements. <<else>> <br>$He @@.red;FAILED@@ to meet chest measurements. @@ -535,9 +535,9 @@ In order to be eligible to be bred, the potential breeding bitch must first sati <</if>> <</if>> <<if $arcologies[0].FSPastoralist > 20>> - <<if $activeSlave.lactation == $activeStandard.lactation>> + <<if getSlave($AS).lactation == $activeStandard.lactation>> <br>$He @@.lime;MET@@ milk production standards. - <<elseif $activeSlave.lactation > $activeStandard.lactation>> + <<elseif getSlave($AS).lactation > $activeStandard.lactation>> <br>$He @@.red;EXCEEDED@@ milk production standards. <<set _passing-->> <<else>> @@ -548,16 +548,16 @@ In order to be eligible to be bred, the potential breeding bitch must first sati <<if $arcologies[0].FSPhysicalIdealist > 20>> <<if $arcologies[0].FSPhysicalIdealistLaw == 1>> <<if $arcologies[0].FSSlimnessEnthusiast > 20>> - <<if $activeSlave.weight <= $activeStandard.weightMax>> + <<if getSlave($AS).weight <= $activeStandard.weightMax>> <br>$He @@.lime;MET@@ weight limits. <<else>> <br>$He @@.red;EXCEEDED@@ weight limits. <<set _passing-->> <</if>> <</if>> - <<if $activeSlave.muscles > $activeStandard.musclesMin && $activeSlave.muscles < $activeStandard.musclesMax>> + <<if getSlave($AS).muscles > $activeStandard.musclesMin && getSlave($AS).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)>> + <<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>> @@ -567,7 +567,7 @@ In order to be eligible to be bred, the potential breeding bitch must first sati <<set _passing-->> <</if>> <<else>> - <<if $activeSlave.muscles > $activeStandard.musclesMin>> + <<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. @@ -575,7 +575,7 @@ In order to be eligible to be bred, the potential breeding bitch must first sati <</if>> <</if>> <<elseif $arcologies[0].FSHedonisticDecadence > 20>> - <<if $activeSlave.weight > $activeStandard.weightMin>> + <<if getSlave($AS).weight > $activeStandard.weightMin>> <br>$He @@.lime;MET@@ the minimum weight limit. <<else>> <br>$He @@.red;failed@@ to meet minimum weight limits. @@ -584,17 +584,17 @@ In order to be eligible to be bred, the potential breeding bitch must first sati <</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. + 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($activeSlave)>>" has been deemed @@.red;unsuitable@@ for breeding and has been @@.green;sterilized@@ as per agreement. - <<set $activeSlave.preg = -3>> + 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>> - 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. + 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 $activeSlave.breedingMark = 1, $activeSlave.pregControl = "none">> + <<set getSlave($AS).breedingMark = 1, getSlave($AS).pregControl = "none">> <</if>> <br>@@.yellowgreen;<<print cashFormat(5000)>>@@ has been deducted from your account as agreed. - <<= removeJob($activeSlave, $activeSlave.assignment)>> + <<= removeJob(getSlave($AS), getSlave($AS).assignment)>> <</widget>> <<widget "PlayerRace">>