The premise of the game is that you're going to do a week's worth of work from home in (link-reveal: "7 minutes.")[..]
If you (link-reveal: "work harder")[], the more money you gain - but (link-reveal: "you get more tired")[.]
Every once in a while you may receive a (link-reveal: "compliment")[] or a (link-reveal: "criticism")[.]
Be wary -- (link-reveal: "a criticism")[] will mean the work you do does less, and the less work you do the (link-reveal: "more criticism")[] you receive.
[Here are the rules.]<1|
(click-append: ?0)[]
(click-replace: ?1)[(set: $married to (confirm: "This is optional, but would you like a roommate at home?"))(if:$married)[(set: $rgender to (prompt: "Are they male, or female? (m/f)",""))(set: $rname to (prompt: "What is their name?",""))](if: $married)[(if: $rgender is in ("M","m", "F","f"))[(set: $rgender to (either:"male","female"))I didn't understand your response, but they'll be $rgender for this game.]
(if: $rname is "" or $rname is 0)[(set: $rname to "Bot")I've named them $rname.]]
[(link-replace: "Here are the rules.")[Every 30 seconds [a day passes]<2|]]
]
(set: $gender to (either:"male","female"))
(if: $gender is "female")[
(set: $rate to 0.81)
(set: $orate to 1)
](else:)[
(set: $rate to 1)
(set: $orate to 0.81)
]
(if: $rgender is "F" or $rgender is "f" or $rgender is "female")[
(set: $rrate to 0.81)
](else:)[
(set: $rrate to 1)
]
(set: $wage to 9)
(set: $cps to 6) <!-- clicks per second -->
(set: $sph to 2) <!-- seconds per hour -->
(set: $hour to (($wage * $rate) / ($cps * $sph)))
(set: $ohour to (($wage * $orate) / ($cps * $sph)))
(set: $rhour to (($wage * $rrate) / ($cps * $sph)))
(set: $bal to 0)
(set: $obal to 0)
(set: $day to 1)
(set: $asleep to false)
(click-append: ?2)[, and every 20 seconds you need to [sleep to make it the next day.]<3|]
(click-append: ?3)[
Then it's (link-reveal:"cookie clicker.")[
You can click a button to do (link-reveal:"work")[], and another to (link-reveal: "sleep")[.
(if: $married)[
Your roommate, (link-reveal: "$rname")[], is also working from home -- and the two of you can (link-reveal: '"check in"')[] with eachother about your progress.]
You ready to (t8n-depart: "slide-left")[[start your first day?|day-main]]]]
]|0>[$gender]
[[just checking->day-main]]
[[go back->intro]]|=
[(text-style: "bold")+(text-style: "underline")[Day |0>[$day]]
(set: $asleep to false)(set:$skipday to false)(set: $counter to 30)(set: $bal to it + ($work * $hour))(set: $obal to it + ($work * $ohour))(set: $rbal to it + ($work * $rhour))(set: $work to 0)(set: $totalsleep to it + $sleep)(set: $sleep to 0)(set: $wait to 2)(set: $blurred to true)|amount>[Day ends in 30 seconds!]
|worked>[You've earned $(round:($work * $hour)) today]
[
|==
|work>[(text-color: "white")[(link-repeat: "work")[(set: $work to it + 1)]]]
=|=
|sleep>[(text-color: "white")[(link-repeat: "sleep")[(set: $sleep to it + $counter)(set:$skipday to true)(set: $counter to 1)(set: $timer to 6)]]]
==|
|nap>[(text-color: "white")[(link-repeat: "nap")[(set: $nap to it + 1)(set:$asleep to true)(set: $timer to 4)]]]
]
(if: $overtime > 0)[You worked |2>[$overtime] extra clicks yesterday!(set:$overtime to 0)]
(live:)[(replace: ?worked)[You've earned $(round:($work * $hour)) today]]
(live: 1s)[
(set: $counter to it - 1)
(if: $asleep or $skipday)[
(set: $timer to it - 1)
(if: $timer > 0 or $skipday)[
(replace: ?work)[(text-color: "black")[work]]
(replace: ?sleep)[(text-color: "black")[sleep]]
(replace: ?nap)[(text-color: "black")[nap]]
] (else:)[
(set: $asleep to false)
(replace: ?work)[(text-color: "white")[(link-repeat: "work")[(set: $work to it + 1)]]]
(replace: ?sleep)[(text-color: "white")[(link-repeat: "sleep")[(set: $sleep to it + $counter)(set:$skipday to true)(set: $counter to 1)(set: $timer to 6)]]]
(replace: ?nap)[(text-color: "white")[(link-repeat: "nap")[(set: $nap to it + 1)(set:$asleep to true)(set: $timer to 4)]]]
]
]
(if: $counter is -5)[
(set: $day to it + 1)
(set: $overtime to $work - it)
(set: $counter to 30)
(if: $day <= 7)[
(t8n-depart: "slide-left")(go-to: "day-main")
](else:)[
(t8n-depart: "slide-left")(go-to: "conclusion")
]
](else-if: $counter is 10)[
(replace: ?amount)[You should probably sleep soon...($counter)]
(set: $overtime to $work)
](else-if: $counter < 10 and $counter >= 5)[
(replace: ?amount)[You should probably sleep soon...($counter)]
](else-if: $counter <= 5 and $counter >= 1)[
(replace: ?amount)[You should sleep...($counter)]
](else-if: $counter < 1 or $skipday)[
(replace: ?amount)[You fall asleep.]
(set: $skipday to true)
(set: $asleep to true)
](else:)[
(replace: ?amount)[Day ends in $counter seconds!]
]
]
]
=|
(if:$married is true)[(set: $cpeer to "black")(link-repeat: "Peek at " + $rname + "'s Screen")[(set: $blurred to not $blurred)]
|peer>[]
[[conclusion]]
(live: )[
(if: $blurred)[(replace: ?peer)[(text-color: "black")[$rname's made $(round:($work * $ohour)) today...]]](else:)[(replace: ?peer)[(text-color: "white")[$rname's made $(round:($work * $ohour)) today...]]]
]
]
(live: 1s)[(if: not $blurred)[(if: $wait is 0)[(set: $wait to 2)(set: $blurred to true)](else:)[(set: $wait to it - 1)]]]Do you feel like you worked hard?
(if: $gender is "female")[
Well you made $(round:$bal). For comparison, your male counterpart made $(round:$obal)...
](else:)[
Well you made $(round:$bal). For comparison, your female counterpart made $(round:$obal)...
]
So your roommate, $rname, made $(round: $rbal).
[[reference|https://www.payscale.com/data/gender-pay-gap]]