diff options
Diffstat (limited to 'src/LivingVillage.Desktop/Interaction.fs')
| -rw-r--r-- | src/LivingVillage.Desktop/Interaction.fs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/LivingVillage.Desktop/Interaction.fs b/src/LivingVillage.Desktop/Interaction.fs index 91e09ae..20ffa17 100644 --- a/src/LivingVillage.Desktop/Interaction.fs +++ b/src/LivingVillage.Desktop/Interaction.fs @@ -434,6 +434,14 @@ module M5Interaction = Some(statusText view) | _ -> None + /// Minimal corner status for the persistent HUD: day counter plus money/energy taken + /// directly from the avatar's real needs (no invented values). + let cornerStatusLines (world: World) : string list = + let day = world.Tick / Sim.ticksPerDay + 1L + let needs = world.Avatar.Mind.Needs + [ sprintf "天数 %d" day + sprintf "金钱 %.0f / 精力 %.0f" needs.Money needs.Energy ] + let private annalLine (entry: AnnalEntry) : string = match entry.Kind with | DialogueAnnal outcome -> |