blob: 9990cb31d7efafcf619f44e3832d0a582c32dfa3 (
plain)
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
namespace LivingVillage.Desktop
open System
module ChineseText =
type SceneKind =
| VillageScene
| Waterway
| WhiteWallHome
| StoneBridgeScene
| BambooGrove
| VegetableGardenScene
type DayNightKind =
| DayTime
| NightTime
type MenuHeadingKind =
| MainMenuHeading
| SettingsHeading
| ControlsHeading
type StatusHeadingKind =
| StatusHeading
| ReadyStatus
| PausedStatus
type ChineseCopy =
{ SceneTitle: string
Ready: string }
type TextLayout =
{ Lines: string list
MissingGlyphs: char list }
let sceneLabel scene =
match scene with
| VillageScene -> "江南水乡"
| Waterway -> "水道"
| WhiteWallHome -> "白墙黛瓦民居"
| StoneBridgeScene -> "石桥"
| BambooGrove -> "竹林"
| VegetableGardenScene -> "菜圃"
let dayNightLabel time =
match time with
| DayTime -> "白天"
| NightTime -> "夜晚"
let menuHeading heading =
match heading with
| MainMenuHeading -> "主菜单"
| SettingsHeading -> "设置"
| ControlsHeading -> "操作说明"
let statusHeading status =
match status with
| StatusHeading -> "状态"
| ReadyStatus -> "准备就绪"
| PausedStatus -> "已暂停"
let copy : ChineseCopy =
{ SceneTitle = "江南水乡"
Ready = "准备就绪" }
let requiredUiLabels : string list =
[ "江南水乡"
"水道"
"白墙黛瓦民居"
"石桥"
"竹林"
"菜圃"
"白天"
"夜晚"
"主菜单"
"设置"
"操作说明"
"状态"
"准备就绪"
"已暂停"
"继续游戏"
"开始新游戏"
"读取存档"
"退出"
"移动"
"互动"
"对话"
"观察"
"需求"
"年鉴"
"关系"
"暂停"
"速度"
"保存"
"读取"
"菜单或关闭"
"选择"
"确认"
"村庄"
"饥饿"
"精力"
"社交"
"金钱"
"最紧迫"
"无记录"
"交易"
"交易成功"
"交易失败"
"报价"
"总价"
"进入民居"
"离开民居"
"民居内景"
"请选择对话方式"
"对话完成"
"对话失败"
"年鉴已打开" ]
let layoutText (maxWidth: int) (supported: Set<char>) (text: string) : TextLayout =
let width = max 1 maxWidth
let normalized, missing =
text
|> Seq.fold
(fun (characters, missingGlyphs) character ->
if Set.contains character supported then
character :: characters, missingGlyphs
else
'□' :: characters, character :: missingGlyphs)
([], [])
{ Lines =
normalized
|> List.rev
|> List.chunkBySize width
|> List.map (fun line -> new String(Array.ofList line))
MissingGlyphs = List.rev missing }
|
