I'd like to introduce three multi-language programs for answering a forum thread: How i can add multi language program ? asked by MehmetTR.
The first one is the easiest TextWindow sample. The array msg is for multi-language texts. You can get nth text as msg[n][lang], while lang is a language id. I used ISO 639-1 language code for the id.
langList
=
"en=English;de=Deutsch;"
msg
[
1
]
=
"en=Good Morning.;de=Guten Morgen.;"
msg
[
2
]
=
"en=Good Afternoon.;de=Guten Tag.;"
msg
[
3
]
=
"en=Good Evening.;de=Guten Abend.;"
While
"True"
error
=
"True"
While
error
TextWindow
.
Write
(
"Language: "
)
TextWindow
.
Write
(
"1 ("
+
langList
[
"en"
]
+
") or "
)
TextWindow
.
Write
(
"2 ("
+
langList
[
"de"
]
+
")? "
)
num
=
TextWindow
.
ReadNumber
(
)
If
num
=
1
Then
lang
=
"en"
error
=
"False"
ElseIf
num
=
2
Then
lang
=
"de"
error
=
"False"
EndIf
EndWhile
TextWindow
.
WriteLine
(
msg
[
1
]
[
lang
]
)
TextWindow
.
WriteLine
(
msg
[
2
]
[
lang
]
)
TextWindow
.
WriteLine
(
msg
[
3
]
[
lang
]
)
EndWhile
The second one BGF911-2 supports 20 languages. I modified Jibba Jabba's Drop Down Menu System for this program.
The last one is a game Small Quest (alpha version). This game supports three languages and reads texts from files (*en-US.dat, *ja-JP.dat or *pt-BR.dat).
Let's create international programs!