📦 sleepyfran / duets

duets / src / Duets.Cli / Text / Character.fs
📄 Character.fs · 13 lines 
1
2
3
4
5
6
7
8
9
10
11
12
13module Duets.Cli.Text.Character

open Duets.Entities

let attributeName attr =
    match attr with
    | CharacterAttribute.Drunkenness -> "Drunkenness"
    | CharacterAttribute.Energy -> "Energy"
    | CharacterAttribute.Fame -> "Fame"
    | CharacterAttribute.Health -> "Health"
    | CharacterAttribute.Hunger -> "Hunger"
    | CharacterAttribute.Mood -> "Mood"