From 4e370891be970b399426fd2bb833e87cbd3ad5b6 Mon Sep 17 00:00:00 2001 From: kaitz Date: Sun, 22 Sep 2013 13:29:22 +0000 Subject: [PATCH] Translated Pipes game to Estonian. git-svn-id: svn://kolibrios.org@3930 a494cfbc-eb01-0410-851d-a64ba20cac60 --- data/et/menu.dat | 2 +- kernel/trunk/data32et.inc | 2 +- kernel/trunk/gui/char2_et.mt | Bin 2560 -> 2560 bytes programs/games/pipes/build.bat | 3 + programs/games/pipes/build_et.bat | 6 ++ programs/games/pipes/pipes.asm | 124 +++++++++++++++++++++++++- programs/other/font_conv/char2_et.txt | 20 ++--- 7 files changed, 142 insertions(+), 15 deletions(-) create mode 100644 programs/games/pipes/build_et.bat diff --git a/data/et/menu.dat b/data/et/menu.dat index 907335f756..1f0abb70be 100644 --- a/data/et/menu.dat +++ b/data/et/menu.dat @@ -16,7 +16,7 @@ Loogika m Arcades > /@3 Memory Blocks /sys/games/mblocks FreeCell /sys/games/freecell -Pipes /sys/games/pipes +Torud /sys/games/pipes Kosilka /sys/games/kosilka RockeT ForceS /sys/games/rforces Find Numbers /sys/games/FindNumbers diff --git a/kernel/trunk/data32et.inc b/kernel/trunk/data32et.inc index b69947a509..d02923d7ea 100644 --- a/kernel/trunk/data32et.inc +++ b/kernel/trunk/data32et.inc @@ -24,7 +24,7 @@ boot_setostask: latin1 'Seadistan OS protsessi',0 boot_allirqs: latin1 'Unmasking IRQs',0 boot_tsc: latin1 'Loen TSC',0 - boot_cpufreq: latin1 'CPU sagedus on ',' ',' MHz',0 + boot_cpufreq: latin1 'CPU sagedus on ',' ',' MHz',0 boot_pal_ega: latin1 'Seadistan EGA/CGA 320x200 paletti',0 boot_pal_vga: latin1 'Seadistan VGA 640x480 paletti',0 boot_failed: latin1 'Esimese programmi käivitamine ebaõnnestus',0 diff --git a/kernel/trunk/gui/char2_et.mt b/kernel/trunk/gui/char2_et.mt index 1383dffea5864a01659fa10b72194dc4f38e5c34..ab11cc18686c010ead9d82f6f0abc60ecacf9d05 100644 GIT binary patch delta 22 dcmZn=X%N})l7mx`!QP?Hv5tXZ^Cu2IMgUJa25bNT delta 22 dcmZn=X%N})l7o|jLq^L}ONN7E^Cu2IMgT@61%vlang.inc @fasm pipes.asm pipes +@erase lang.inc @pause \ No newline at end of file diff --git a/programs/games/pipes/build_et.bat b/programs/games/pipes/build_et.bat new file mode 100644 index 0000000000..bf9d84eca2 --- /dev/null +++ b/programs/games/pipes/build_et.bat @@ -0,0 +1,6 @@ +@erase lang.inc +@echo lang fix et >lang.inc +@fasm -m 16384 pipes.asm pipes +@kpack pipes +@erase lang.inc +@pause \ No newline at end of file diff --git a/programs/games/pipes/pipes.asm b/programs/games/pipes/pipes.asm index d01bb71098..8e7d3b4926 100644 --- a/programs/games/pipes/pipes.asm +++ b/programs/games/pipes/pipes.asm @@ -14,7 +14,93 @@ fg3color equ 0x007F7F55 btcolor equ 0x005B6200 include '..\..\macros.inc' - +include 'lang.inc' +; fetch the UTF-8 character in string+offs to char +; common part for all encodings: translate pseudographics +; Pseudographics for the boot screen: +; 0x2500 -> 0xC4, 0x2502 -> 0xB3, 0x250C -> 0xDA, 0x2510 -> 0xBF, +; 0x2514 -> 0xC0, 0x2518 -> 0xD9, 0x252C -> 0xC2, 0x2534 -> 0xC1, 0x2551 -> 0xBA +macro fetch_utf8_char string, offs, char, graph +{ local first_byte, b + virtual at 0 + db string + if offs >= $ + char = -1 + else + ; fetch first byte + load first_byte byte from offs + if first_byte < 0x80 + char = first_byte + offs = offs + 1 + else if first_byte < 0xC0 + .err Invalid UTF-8 string + else if first_byte < 0xE0 + char = first_byte and 0x1F + load b byte from offs + 1 + char = (char shl 6) + (b and 0x3F) + offs = offs + 2 + else if first_byte < 0xF0 + char = first_byte and 0xF + load b byte from offs + 1 + char = (char shl 6) + (b and 0x3F) + load b byte from offs + 2 + char = (char shl 6) + (b and 0x3F) + offs = offs + 3 + else if first_byte < 0xF8 + char = first_byte and 0x7 + load b byte from offs + 1 + char = (char shl 6) + (b and 0x3F) + load b byte from offs + 2 + char = (char shl 6) + (b and 0x3F) + load b byte from offs + 3 + char = (char shl 6) + (b and 0x3F) + offs = offs + 4 + else + .err Invalid UTF-8 string + end if + end if + end virtual + if char = 0x2500 + graph = 0xC4 + else if char = 0x2502 + graph = 0xB3 + else if char = 0x250C + graph = 0xDA + else if char = 0x2510 + graph = 0xBF + else if char = 0x2514 + graph = 0xC0 + else if char = 0x2518 + graph = 0xD9 + else if char = 0x252C + graph = 0xC2 + else if char = 0x2534 + graph = 0xC1 + else if char = 0x2551 + graph = 0xBA + else + graph = 0 + end if +} +; Latin-1 encoding +; 0x00-0xFF - trivial map +macro latin1 [arg] +{ local offs, char, graph + offs = 0 + while 1 + fetch_utf8_char arg, offs, char, graph + if char = -1 + break + end if + if graph + db graph + else if char < 0x100 + db char + else + .err Failed to convert to Latin-1 + end if + end while +} use32 org 0x0 @@ -323,7 +409,11 @@ mov ebx,50 shl 16 +15 mov ecx,395 shl 16 +15 mov edx,bgcolor mcall +if lang eq et +add ebx,60 shl 16 + 30 +else add ebx,60 shl 16 + 20 +end if mcall add ebx,80 shl 16 mcall @@ -335,7 +425,11 @@ mov esi,fg2color mcall mov ebx,0x50000 mov ecx,[score] +if lang eq et +add edx,70 shl 16 +else add edx,60 shl 16 +end if mcall mov ebx,0x20000 mov ecx,[level] @@ -596,8 +690,31 @@ pusha ; DATA AREA - - +if lang eq et +title db 'Torud',0 +lbl_gameover: + db 19 + latin1 'M ä n g L ä b i !' +lbl_start_a_new_game: + db 21 + latin1 'Alusta enne uut mängu' +lbl_win: + db 32 + latin1 ' T u b l i ! ' + latin1 ' Lähme edasi! ' +lbl_yscore: + db 12 + latin1 'Sinu tulemus:' +lbl_toolbar: + db 43 + latin1 'Uus mäng: Lihtne Keskmine Raske' +lbl_copy: + db 24 + latin1 'v1.21 2006,Mario Birkner' +lbl_score: + db 28 + latin1 'Aeg: Tulemus: Tase:' +else title db 'Pipes',0 lbl_gameover: db 19 @@ -621,6 +738,7 @@ lbl_copy: lbl_score: db 28 db 'Time: Score: Level:' +end if stat db 3 ;0=gameplay 1=won 2-lost 3=stopped speed db 0 time dd 0 diff --git a/programs/other/font_conv/char2_et.txt b/programs/other/font_conv/char2_et.txt index 13c80a6202..9dda02e02b 100644 --- a/programs/other/font_conv/char2_et.txt +++ b/programs/other/font_conv/char2_et.txt @@ -2278,16 +2278,16 @@ o oI oI oooooo I I -0 I - o I - o I - ooo I - o o o I -o o oI - o o o I - ooo I - o I - o I +228 I +o o I + I +oooooo I + oI + ooooooI +o oI + ooooooI + I + I 0 I I I