(set: $days to it + 1)\
(if: $startword is 0)[(set: $word to "shave")(set: $startword to 1)](else:)[(set: $word to "bleed")]\
$linkreveal[(live: 1.35s)[(if: $word is "bleed")[(link-goto: "Shave", "day")(set: $word to "shave")](else-if: $word is "shave")[(link-goto: "Cut", "day")(set: $word to "cut")](else-if: $word is "cut")[(if: $bleedcount < 3)[(set: $bleedcount to it + 1 )(link-goto: "Bleed", "day")(set: $word to "bleed")](else:)[(set: $bleedcount to 0)$blood[(link-goto: "Bleed", "day")(set: $word to "bleed")]]]]]
(set: $blood to (text-colour: red)+(text-style: "blur"))\
(set: $bleedcount to 0)\
(set: $days to 0)\
(set: $noshave to true)\
(set: $mirror to true)\
(set: $laser to true)\
(set: $end to true)\
(set: $poem to (css: "font-size: 40px;"))\
(set: $header to (css: "font-size: 80px;"))\
(set: $thought to (css: "font-size: 420px;"))\
(set: $status to (t8n: "dissolve")+(t8n-time:1.6s)+(hover-style:(text-color: #2f2f2f))+(css: "font-size: 15px;"))\
(set: $linkreveal to (t8n: "dissolve")+(t8n-time:2s))\
(set: $linkreveal2 to (t8n: "dissolve")+(t8n-time:2s)+(t8n-delay:2s))\
(set: $linkreveal3 to (t8n: "dissolve")+(t8n-time:2s)+(t8n-delay:4s))\
(set: $linkreveal4 to (t8n: "dissolve")+(t8n-time:2s)+(t8n-delay:7s))\
(set: $linkreveal5alt to (t8n: "dissolve")+(t8n-time:2s)+(t8n-delay:9s)+(text-style: "italic"))\
(set: $linkreveal5 to (t8n: "dissolve")+(t8n-time:2s)+(t8n-delay:10s))\
(set: $blur to (text-style: "blur"))\
(set: $fade to (text-style: "fade-in-out")+(text-style: "bold"))\
(set: $sway to (text-style: "sway"))\
(set: $fancy to (text-style: "emboss")+(text-style: "expand"))\
(set: $subheader to (text-style: "emboss")+(text-style: "expand")+(text-colour: #555555)+(text-size:2))\
(set: $daystate to $word)\
(if: $daystate is "shave")[(display: "dayshave")]\
(else-if: $daystate is "cut")[(display: "daycut")]\
(else-if: $daystate is "bleed")[(display: "daybleed")]\
(if: $days is 6)[$linkreveal2[[[Do it again.|18]]]](else-if: $days is 12)[$linkreveal2[[[Do it again.|24]]]](else-if: $days is 18)[$linkreveal2[[[Do it again.|30]]]](else:)[$linkreveal2[[[Do it again.|daymisc]]]](set: $shavestate to (either: "You shave; it itches all day.", "You shave; but you miss a spot.", "You shave; you look exactly the same.", "You shave, your razor is almost blunt.",))\
(print: $shavestate)(set: $cutstate to (either: "You cut; it doesn't scar.", "You cut; nobody notices.", "You cut; the scab heals.", "You cut; the day goes on."))\
(print: $cutstate)(set: $bleedstate to (either: "You bleed; the blood gets on your shirt.", "You bleed; it runs down your leg.", "You bleed; the bandage doesn't stick.", "You bleed; wipe it off."))\
(print: $bleedstate)$linkreveal[(live: 1.5s)[(if: $word is "bleed")[(set: $word to "shave")(link-goto: "Shave", "day")](else-if: $word is "shave")[(set: $word to "cut")(link-goto: "Cut", "day")](else-if: $word is "cut")[(set: $word to "bleed")(if: $bleedcount < 3)[(set: $bleedcount to it + 1 )(link-goto: "Bleed", "day")](else:)[(set: $bleedcount to 0)$blood[(link-goto: "Bleed", "day")]]]]]ending states:
(current-time: ) → String
(if: time > 5s)
(if: visits > 4).$linkreveal[This isn't so much a game as it is something between an autobiography and a cry for help with buttons. Because of this, it may not be much fun to play, and for that, I do apologise.]
$linkreveal2[As a content warning, this ...thing is about gender dysphoria, bleeding, and self harm, and I think it's best not to play it if you're in a bad state yourself. It did help me a bit to make it, and it might help you too, but it's also just words on a screen, so let's not get our hopes up.]
$linkreveal3[[[Anyway|12]]]$linkreveal[You're twelve years old, and something is wrong with your face. You're told this is a sign of becoming a man, that you're growing up now.]
$linkreveal2[But nobody has told you what to do about it.]
$linkreveal3[(display: "Start")]$linkreveal[You're eighteen years old. You're told you're a man now. Your face has changed, but the hair is still the same. You look like yourself, and every year, this becomes more wrong. ]
$linkreveal2[But you still don't know what to do about it.]
$linkreveal3[(display: "Start")]$linkreveal[You're twenty-four years old. And you don't know if you're a man now. Your face is changing again, and now you cannot tell if you look like yourself. The mirror shows you someone who could one day look like you.]
$linkreveal2[But only if you want to do something about it.]
$linkreveal3[(display: "Start")]$linkreveal[You're thirty years old, and you're no longer a man now. Your hair grows back slower these days, and when you look in the mirror, you see yourself. And it doesn't hurt as much.]
$linkreveal2[This hasn't happened yet.]
$linkreveal3[But it could.]
$linkreveal4[If you do something about it.]
$linkreveal5[[[Do it again.|End]]](set: $end to false)\
|again>[$linkreveal2[(cycling-link: "Do it again.", "And again.", "And again.", "Again.", "Again.", "Again.", "Again.")]]
(after: 12s)[(replace: ?again)[[[Enough.|restart]]]](set: $daymsg to (either: "It's another day.", "It's another fucking day.", "It's a day.", "Wake up.", "A new day.", "Fuck.",))\
[(print: $daymsg)]
(display: "Start")I think that's enough for now. Let's take a break.
$linkreveal[After all, you can always (click:"Start Again.")[(restart:)]]