๐Ÿ“ฆ sleepyfran / duets

๐Ÿ“„ Social.fs ยท 20 lines
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20module Duets.Cli.Text.Social

open Duets.Entities

let actionPrompt date dayMoment attributes npc relationshipLevel =
    $"""{Generic.infoBar date dayMoment attributes}
{Emoji.socializing} Talking with {npc.Name |> Styles.person} | {Emoji.relationshipLevel} {relationshipLevel}
What do you want to do?"""
    |> Styles.prompt

let relationshipType =
    function
    | Friend -> "Friend"
    | Bandmate -> "Bandmate"

let npcSaysPrefix (npcName: string) = $"{Styles.person npcName}: "

let npcSays npcName text =
    $"{npcSaysPrefix npcName}{Styles.dialog text}"