๐Ÿ“ฆ sleepyfran / duets

๐Ÿ“„ Events.fs ยท 33 lines
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33[<RequireQualifiedAccess>]
module Duets.Cli.Text.Events

let healthDepletedFirst =
    Styles.danger "You start to feel lightheaded and your vision begins to blur"

let healthDepletedSecond =
    Styles.danger
        "The background noise starts to fade into the background and a buzz grows inside your ear..."

let hospitalized =
    Styles.information
        "You wake up in the hospital a week later. Your head hurts a bit, but other than that it seems like you will make it this time"

let feelingTipsy =
    Styles.information
        "You feel a bit tipsy, your eyes start to lower a bit and you seem to have a fixed smile on your face"

let feelingDrunk =
    Styles.information
        "You feel a bit drunk, doing stuff seems a bit more difficult than before"

let feelingReallyDrunk =
    Styles.danger
        "You feel really drunk. Your eyes are blurry and your legs don't seem to be able to follow the same pattern. A part of your body asks you to stop, but the other one wants a bit more fun..."

let soberingTipsy =
    Styles.information "You're feeling much better now, just slightly tipsy"

let soberingDrunk =
    Styles.information
        "You're starting to get sober, still feeling really drunk, but better than before"