From 2cf1c519a361dba2b7fa2c26b12c1c0d978a8b66 Mon Sep 17 00:00:00 2001 From: lowercasedonkey <lowercasedonkey@gmail.com> Date: Wed, 29 Jan 2020 17:45:51 -0500 Subject: [PATCH] simplify contract cost calc --- src/uncategorized/recETS.tw | 158 +++++++++++++++++------------------- 1 file changed, 75 insertions(+), 83 deletions(-) diff --git a/src/uncategorized/recETS.tw b/src/uncategorized/recETS.tw index 7c50e654d1f..413a2f80ae2 100644 --- a/src/uncategorized/recETS.tw +++ b/src/uncategorized/recETS.tw @@ -1633,9 +1633,9 @@ <</if>> /* Enslave both */ -<<switch $RecETSevent>> - <<case "addict mother daughter" "desperate broodmother" "mismatched pair" "posh mother daughter">> - <<if $cash >= (_ContractCost*2)>> +<<if $cash >= (_ContractCost*2)>> + <<switch $RecETSevent>> + <<case "addict mother daughter" "desperate broodmother" "mismatched pair" "posh mother daughter">> <<switch $RecETSevent>> <<case "addict mother daughter" "posh mother daughter">> <<link "Manipulate $him to enslave both mother and _daughter2">> @@ -1704,89 +1704,81 @@ ERROR: bad recETS event $RecETSevent <<print "[[Go back to previous passage '" + previous() +"'][previous()]]">> </div> <</switch>> - <<else>> - <<if $cash < _ContractCost>> - <div class="detail"> - You lack the necessary funds to enslave them both. - </div> - <</if>> - <</if>> - <<case "identical herm pair" "identical pair" "incest brother brother" "incest brother sister" "incest father daughter" "incest father son" "incest mother daughter" "incest mother son" "incest sister sister" "incest twin brother" "incest twin sister" "incest twins mixed" "matched pair">> - <<if $cash >= _ContractCost*2>> - <<switch $RecETSevent>> - <<case "identical herm pair" "identical pair" "matched pair">> - <<link "Buy them both">> - <<run newSlave($relative)>> - <<run newSlave($relative2)>> - <<run cashX(forceNeg(_ContractCost), "slaveTransfer", $relative)>> - <<run cashX(forceNeg(_ContractCost), "slaveTransfer", $relative2)>> - <<replace #result>> - <p> + <<case "identical herm pair" "identical pair" "incest brother brother" "incest brother sister" "incest father daughter" "incest father son" "incest mother daughter" "incest mother son" "incest sister sister" "incest twin brother" "incest twin sister" "incest twins mixed" "matched pair">> + <<switch $RecETSevent>> + <<case "identical herm pair" "identical pair" "matched pair">> + <<link "Buy them both">> + <<run newSlave($relative)>> + <<run newSlave($relative2)>> + <<run cashX(forceNeg(_ContractCost), "slaveTransfer", $relative)>> + <<run cashX(forceNeg(_ContractCost), "slaveTransfer", $relative2)>> + <<replace #result>> + <p> + <<switch $RecETSevent>> + <<case "identical herm pair">> + They giggle and kiss each other rather passionately, their miniskirts becoming pinned against their pregnancies by their stiffening pricks. They're very well trained but not very disciplined, though their pervertedness will be fun. + "You know we each are carrying the other'<<s>> twin<<s>>, right?" + <<case "identical pair">> + They giggle and kiss each other rather sexually, pressing their nearly identical bodies closely together. They're clearly very well trained. + <<case "matched pair">> + They giggle and kiss each other rather sexually, pressing their nearly identical bodies closely together so their hips and shapely buttocks hide any sign of their difference. They're clearly very well trained. + <</switch>> + </p> + <</replace>> + <</link>> + <<case "incest brother brother" "incest brother sister" "incest father daughter" "incest father son" "incest mother daughter" "incest mother son" "incest sister sister" "incest twin brother" "incest twin sister" "incest twins mixed">> + <<link "Buy them both">> + <<replace #mainbody>> <<switch $RecETSevent>> - <<case "identical herm pair">> - They giggle and kiss each other rather passionately, their miniskirts becoming pinned against their pregnancies by their stiffening pricks. They're very well trained but not very disciplined, though their pervertedness will be fun. - "You know we each are carrying the other'<<s>> twin<<s>>, right?" - <<case "identical pair">> - They giggle and kiss each other rather sexually, pressing their nearly identical bodies closely together. They're clearly very well trained. - <<case "matched pair">> - They giggle and kiss each other rather sexually, pressing their nearly identical bodies closely together so their hips and shapely buttocks hide any sign of their difference. They're clearly very well trained. + <<case "incest brother brother">> + They hug each other tightly as the older $sister slips a hand down the younger's pants. They ought to be an interesting addition to your penthouse. + <<case "incest brother sister">> + They cheer happily and hug each other tightly. They ought to be an interesting addition to your penthouse. + <<case "incest father daughter">> + The _daughter2 cheers happily and hugs _his2 relieved father. $He leans in and kisses _him2 deeply. They ought to be an interesting addition to your penthouse. + <<case "incest father son">> + The father hugs $his _daughter2 tight and slips a hand down _his2 pants. They ought to be an interesting addition to your penthouse. + <<case "incest mother daughter">> + The _daughter2 cheers happily and hugs _his2 relieved mother. $He leans in and kisses _him2 deeply. They ought to be an interesting addition to your penthouse. + <<case "incest mother son">> + The _daughter2 cheers happily and hugs _his2 relieved mother. $He leans in and kisses _him2 deeply. They ought to be an interesting addition to your penthouse. + <<case "incest sister sister">> + They cheer happily and hug each other tightly. They ought to be an interesting addition to your penthouse. + <<case "incest twin brother">> + They hug each other tightly as they slip a hand down the other's pants. They ought to be an interesting addition to your penthouse. + <<case "incest twin sister">> + They cheer happily and hug each other tightly. They ought to be an interesting addition to your penthouse. + <<case "incest twins mixed">> + They cheer happily and hug each other tightly. They ought to be an interesting addition to your penthouse. <</switch>> - </p> - <</replace>> - <</link>> - <<case "incest brother brother" "incest brother sister" "incest father daughter" "incest father son" "incest mother daughter" "incest mother son" "incest sister sister" "incest twin brother" "incest twin sister" "incest twins mixed">> - <<link "Buy them both">> - <<replace #mainbody>> - <<switch $RecETSevent>> - <<case "incest brother brother">> - They hug each other tightly as the older $sister slips a hand down the younger's pants. They ought to be an interesting addition to your penthouse. - <<case "incest brother sister">> - They cheer happily and hug each other tightly. They ought to be an interesting addition to your penthouse. - <<case "incest father daughter">> - The _daughter2 cheers happily and hugs _his2 relieved father. $He leans in and kisses _him2 deeply. They ought to be an interesting addition to your penthouse. - <<case "incest father son">> - The father hugs $his _daughter2 tight and slips a hand down _his2 pants. They ought to be an interesting addition to your penthouse. - <<case "incest mother daughter">> - The _daughter2 cheers happily and hugs _his2 relieved mother. $He leans in and kisses _him2 deeply. They ought to be an interesting addition to your penthouse. - <<case "incest mother son">> - The _daughter2 cheers happily and hugs _his2 relieved mother. $He leans in and kisses _him2 deeply. They ought to be an interesting addition to your penthouse. - <<case "incest sister sister">> - They cheer happily and hug each other tightly. They ought to be an interesting addition to your penthouse. - <<case "incest twin brother">> - They hug each other tightly as they slip a hand down the other's pants. They ought to be an interesting addition to your penthouse. - <<case "incest twin sister">> - They cheer happily and hug each other tightly. They ought to be an interesting addition to your penthouse. - <<case "incest twins mixed">> - They cheer happily and hug each other tightly. They ought to be an interesting addition to your penthouse. - <</switch>> - <<switch $RecETSevent>> - <<case "incest brother sister" "incest mother son">> - <<run newSlave($relative2)>> - <<run newSlave($relative)>> - <<default>> - <<run newSlave($relative)>> - <<run newSlave($relative2)>> - <</switch>> - <<include "newSlaveIncestSex">> - <</replace>> - <<run cashX(forceNeg(_ContractCost), "slaveTransfer", $relative)>> - <<run cashX(forceNeg(_ContractCost), "slaveTransfer", $relative2)>> - <</link>> - <<default>> - <div class="error"> - ERROR: bad recETS event $RecETSevent <<print "[[Go back to previous passage '" + previous() +"'][previous()]]">> - </div> - <</switch>> - <<else>> - <div class="deatil> - You lack the necessary funds to enslave them both. + <<switch $RecETSevent>> + <<case "incest brother sister" "incest mother son">> + <<run newSlave($relative2)>> + <<run newSlave($relative)>> + <<default>> + <<run newSlave($relative)>> + <<run newSlave($relative2)>> + <</switch>> + <<include "newSlaveIncestSex">> + <</replace>> + <<run cashX(forceNeg(_ContractCost), "slaveTransfer", $relative)>> + <<run cashX(forceNeg(_ContractCost), "slaveTransfer", $relative2)>> + <</link>> + <<default>> + <div class="error"> + ERROR: bad recETS event $RecETSevent <<print "[[Go back to previous passage '" + previous() +"'][previous()]]">> + </div> + <</switch>> + <<default>> + <div class="error"> + ERROR: bad recETS event $RecETSevent <<print "[[Go back to previous passage '" + previous() +"'][previous()]]">> </div> - <</if>> - <<default>> - <div class="error"> - ERROR: bad recETS event $RecETSevent <<print "[[Go back to previous passage '" + previous() +"'][previous()]]">> - </div> -<</switch>> + <</switch>> +<<else>> + <div class="detail"> + You lack the necessary funds to enslave them both. + </div> +<</if>> <<if $cheatMode == 1>> <p> -- GitLab