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}"