Subversion Repositories Kolibri OS

Rev

Rev 551 | Rev 5780 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 551 Rev 2681
Line 6... Line 6...
6 
include 'lang.inc'
 6 
include 'lang.inc'
7 
include '..\..\..\macros.inc' ; decreases program size (not required)
 7 
include '..\..\..\macros.inc' ; decreases program size (not required)
Line 8... Line 8...
8 
 
 8 
 
9 
StatusColor equ 0x02ffffff
 9 
StatusColor equ 0x02ffffff
10 
StatusColor2 equ 0x02dc1e14
 10 
StatusColor2 equ 0x02dc1e14
Line 11... Line 11...
11 
BgdColor equ 0x04aabbcc
 11 
BgdColor equ 0x14aabbcc
12 
 
 12 
 
13 
; Main window dimensions
 13 
; Main window dimensions
14 
XXwindow equ 200 shl 16+276
 14 
XXwindow equ 200 shl 16+276
Line 78... Line 78...
78 
    mov  esi,eax
 78 
    mov  esi,eax
79 
    shl  esi,4
 79 
    shl  esi,4
80 
    add  esi,conf
 80 
    add  esi,conf
81 
    add  esi,eax
 81 
    add  esi,eax
82 
    add  al,0x31
 82 
    add  al,0x31
83 
    mov  [lenTitle-1],al     ;task number to program title
 83 
    mov  [txtTitle+17],al     ;task number to program title
84 
    mov  [task],esi
 84 
    mov  [task],esi
85 
    mov  edi,curconf
 85 
    mov  edi,curconf
86 
    rep  movsb          ; initial configuration
 86 
    rep  movsb          ; initial configuration
Line 87... Line 87...
87 
 
 87 
 
Line 155... Line 155...
155 
;   *******************************
 155 
;   *******************************
156 
;   *******  WINDOW DRAWING *******
 156 
;   *******  WINDOW DRAWING *******
157 
;   *******************************
 157 
;   *******************************
Line 158... Line 158...
158 
 
 158 
 
159 
draw_window:
 - 
 
160 
    mov  eax,12
 - 
 
161 
    mov  ebx,1                     ; begin draw
 - 
 
Line 162... Line -...
162 
    mcall
 - 
 
163 
 
 - 
 
164 
                                   ; CREATING WINDOW
 - 
 
165 
    mov  eax,0
 159 
draw_window:
166 
    mov  ebx,XXwindow
 160
167 
    mov  ecx,YYwindow
 - 
 
168 
    mov  edx,BgdColor
 - 
 
169 
    mov  esi,0x805080d0
 - 
 
Line 170... Line -...
170 
    mov  edi,0x005080d0
 - 
 
171 
    mcall
 - 
 
172 
 
 - 
 
173 
                                   ; PROGRAM TITLE
 - 
 
174 
    mov  eax,4
 - 
 
175 
    mov  ebx,8*65536+8
 - 
 
176 
    mov  ecx,0x10000000
 - 
 
Line 177... Line 161...
177 
    mov  edx,txtTitle
 161 
    mcall 12, 1 ; begin draw
178 
    mov  esi,lenTitle-txtTitle
 162 
	mcall 0, XXwindow, YYwindow, BgdColor,, txtTitle ; CREATING WINDOW
179 
    mcall
 163 
 
180 
 
 164 
 
Line 186... Line 170...
186 
    mcall
 170 
    mcall
Line 187... Line 171...
187 
 
 171 
 
188 
    mov  ebx,XXCnf                  ; CONF BUTTON
 172 
    mov  ebx,XXCnf                  ; CONF BUTTON
189 
    mov  ecx,YYCnf
 173 
    mov  ecx,YYCnf
190 
    mov  edx,20
 174 
    mov  edx,20
191 
    mov  esi,BtnColor
 175 
    ;mov  esi,BtnColor
Line 192... Line 176...
192 
    mcall
 176 
    mcall
193 
 
 177 
 
194 
    mov  ebx, XYShText             ; SHUFFLE TEXT
 178 
    mov  ebx, XYShText             ; SHUFFLE TEXT
Line 208... Line 192...
208 
    call draw_button
 192 
    call draw_button
209 
    loop dbut
 193 
    loop dbut
Line 210... Line 194...
210 
 
 194 
 
Line 211... Line -...
211 
    call draw_moves
 - 
 
212 
 
 195 
    call draw_moves
213 
    mov  eax,12
 - 
 
214 
    mov  ebx,2                     ; end of drawing
 196 
 
Line 215... Line 197...
215 
    mcall
 197 
    mcall 12, 2 ; end of drawing
216 
    ret
 198 
    ret
Line 459... Line 441...
459 
end if
 441 
end if
460 
lenCnf:
 442 
lenCnf:
Line 461... Line 443...
461 
 
 443 
 
462 
txtTitle:               ; áâப  § £®«®¢ª 
 444 
txtTitle:              ; áâப  § £®«®¢ª 
463 
if lang eq ru
 445 
if lang eq ru
464 
     db   'ˆ£à  15 - § ¤ ç  X'
 446 
     db   'ˆ£à  15 - § ¤ ç  X', 0
465 
else
 447 
else
466 
     db   'Game 15 - puzzle X'
 448 
     db   'Game 15 - puzzle X', 0
467 
end if
 - 
 
Line 468... Line 449...
468 
lenTitle:                ; ¨ ¥ñ ª®­¥æ
 449 
end if
469 
 
 450 
 
470 
txtVictory:
 451 
txtVictory:
471 
if lang eq ru
 452 
if lang eq ru