In the bathroom, would you like to \n\n[[Have Sex|Living Room][$counter = $counter+1; $sexcount=$sexcount+1]]\n[[Cry|Living Room][$counter = $counter-1; $crycount=$crycount+1]]\n[[Both|Living Room][$sexcount=$sexcount+1; $crycount=$crycount+1]]\n[[Neither|Living Room]]\n

In the living room, would you like to \n\n[[Have Sex|Kitchen][$counter = $counter+1; $sexcount=$sexcount+1]]\n[[Cry|Kitchen][$counter = $counter-1; $crycount=$crycount+1]]\n[[Both|Kitchen][$sexcount=$sexcount+1; $crycount=$crycount+1]]\n[[Neither|Kitchen]]\n

In the bedroom, would you like to \n\n[[Have Sex|Ending][$counter = $counter+1; $sexcount=$sexcount+1]]\n[[Cry|Ending][$counter = $counter-1; $crycount=$crycount+1]]\n[[Both|Ending][$sexcount=$sexcount+1; $crycount=$crycount+1]]\n[[Neither|Ending]]\n

<<if $sexcount==0 and $crycount==0>>\nYou never cried or had sex, that's the worst life of all.\n<<endif>>\n<<if $sexcount>0 or $crycount>0>>\n<<if $counter<0>>\nCommiserations, you've cried in more rooms than you've had sex in - you haven't had a successful life.\n<<endif>>\n<<if $counter>0>>\nCongratulations, you've had sex in more rooms than you've cried in - you have had a successful life.\n<<endif>>\n<<if $counter==0>>\nYou had sex in the same number of rooms that you cried in - you've had a full life.\n<<endif>>\n<<endif>>

<<set $counter = 0>>\n<<set $sexcount = 0>>\n<<set $crycount = 0>>\n\nIn the hallway, would you like to \n\n[[Have Sex|Bathroom][$counter = $counter+1; $sexcount=$sexcount+1]]\n[[Cry|Bathroom][$counter = $counter-1; $crycount=$crycount+1]]\n[[Both|Bathroom][$sexcount=$sexcount+1; $crycount=$crycount+1]]\n[[Neither|Bathroom]]\n

Place and Time

increpare

In the kitchen, would you like to \n\n[[Have Sex|Bedroom][$counter = $counter+1; $sexcount=$sexcount+1]]\n[[Cry|Bedroom][$counter = $counter-1; $crycount=$crycount+1]]\n[[Both|Bedroom][$sexcount=$sexcount+1; $crycount=$crycount+1]]\n[[Neither|Bedroom]]\n