Aren/kolibrios
1
0
Fork 0
mirror of https://github.com/KolibriOS/kolibrios.git synced 2024-11-24 17:59:38 +03:00
Code Issues Packages Projects Releases Wiki Activity

game 15: correct window title

Browse Source 
git-svn-id: svn://kolibrios.org@2681 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Kirill Lipatov (Leency) 2012-05-25 15:52:44 +00:00
parent 85b76b0477
commit 86226de4d6
1 changed files with 10 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
programs/games/15/trunk/15.ASM
View File

@ -8,7 +8,7 @@ include '..\..\..\macros.inc' ; decreases program size (not required)
StatusColor equ 0x02ffffff
StatusColor2 equ 0x02dc1e14
BgdColor equ 0x04aabbcc
BgdColor equ 0x14aabbcc
; Main window dimensions
XXwindow equ 200 shl 16+276
@ -80,7 +80,7 @@ START:
add esi,conf
add esi,eax
add al,0x31
mov [lenTitle-1],al ;task number to program title
mov [txtTitle+17],al ;task number to program title
mov [task],esi
mov edi,curconf
rep movsb ; initial configuration
@ -157,26 +157,10 @@ fail:
; *******************************
draw_window:
mov eax,12
mov ebx,1 ; begin draw
mcall
mcall 12, 1 ; begin draw
mcall 0, XXwindow, YYwindow, BgdColor,, txtTitle ; CREATING WINDOW
; CREATING WINDOW
mov eax,0
mov ebx,XXwindow
mov ecx,YYwindow
mov edx,BgdColor
mov esi,0x805080d0
mov edi,0x005080d0
mcall
; PROGRAM TITLE
mov eax,4
mov ebx,8*65536+8
mov ecx,0x10000000
mov edx,txtTitle
mov esi,lenTitle-txtTitle
mcall
mov eax,8 ; SHUFFLE BUTTON
mov ebx,XXSh
@ -188,7 +172,7 @@ draw_window:
mov ebx,XXCnf ; CONF BUTTON
mov ecx,YYCnf
mov edx,20
mov esi,BtnColor
;mov esi,BtnColor
mcall
mov ebx, XYShText ; SHUFFLE TEXT
@ -210,9 +194,7 @@ draw_window:
call draw_moves
mov eax,12
mov ebx,2 ; end of drawing
mcall
mcall 12, 2 ; end of drawing
ret
@ -459,13 +441,12 @@ else
end if
lenCnf:
txtTitle: ; áâப  § £®«®¢ª 
txtTitle: ; áâப  § £®«®¢ª 
if lang eq ru
db 'ˆ£à  15 - § ¤ ç  X'
db 'ˆ£à  15 - § ¤ ç  X', 0
else
db 'Game 15 - puzzle X'
db 'Game 15 - puzzle X', 0
end if
lenTitle: ; ¨ ¥ñ ª®­¥æ
txtVictory:
if lang eq ru