Subversion Repositories Kolibri OS

Rev

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

Rev 3013 Rev 3082
Line 4... Line 4...
4 
LEVNUM equ 500
 4 
LEVNUM equ 500
5 
 XFOFS equ 10
 5 
 XFOFS equ 10
6 
 YFOFS equ 55
 6 
 YFOFS equ 55
7 
 MSGXO equ 32
 7 
 MSGXO equ 32
8 
GAMES_ALL equ 12
 8 
GAMES_ALL equ 12
9 
WNDCOLOR equ 0x03c0c0c0;0x03f6f6f6;
 9 
WNDCOLOR equ 0x13c0c0c0;0x13f6f6f6;
10 
MINCS equ 40
 10 
MINCS equ 40
11 
MAXCS equ 80
 11 
MAXCS equ 80
12 
macro icall lbl
 12 
macro icall lbl
13 
{
 13 
{
14 
	call [lbl+ebp*4]
 14 
	call [lbl+ebp*4]
Line 297... Line 297...
297 
    push  ebx
 297 
    push  ebx
298 
    add   ebx,50 shl 16+XFOFS*2+20
 298 
    add   ebx,50 shl 16+XFOFS*2+20
299 
    mov   ecx,[fy]
 299 
    mov   ecx,[fy]
300 
    imul  ecx,[Ces]
 300 
    imul  ecx,[Ces]
301 
    add   ecx,10 shl 16+YFOFS+30
 301 
    add   ecx,10 shl 16+YFOFS+30
302 
    mcall 0,,,WNDCOLOR
 302 
	mov edx, WNDCOLOR
- 
 
 303 
	mov edi, header
- 
 
 304 
    mcall 0
Line 303... Line 305...
303
305
304 
	push	edx
 - 
 
305 
	mcall	4,<8,8>,0x10ffffff,header,header.size
 - 
 
306 
	pop	esi
 306 
	mov esi, edx
307 
	and	esi,0xffffff
 307 
	and	esi,0xffffff
308 
	mcall	9,prc_info,-1
 308 
	mcall 9,prc_info,-1
Line 309... Line 309...
309 
	pop	ebx
 309 
	pop	ebx
310
310
311 
	mov	eax,[prc_info+70] ;status of window
 311 
	mov	eax,[prc_info+70] ;status of window
Line 312... Line 312...
312 
	test	eax,100b
 312 
	test	eax,100b
Line 313... Line 313...
313 
	jne	.end
 313 
	jne	.end
Line 314... Line 314...
314
314
315 
    add   ebx,XFOFS shl 16+XFOFS*2
 315 
    add   ebx,XFOFS shl 16
316 
 
 316 
 
317 
    mcall 8,,<25,12>,2
 317 
    mcall 8,,<25,12>,2
Line 318... Line 318...
318 
 
 318 
 
319 
    mcall 8,,<40,12>,3
 319 
    mcall 8,,<40,12>,3
320 
    add   ebx,14 shl 16
 320 
    add   ebx,13 shl 16
321 
    inc   edx
 321 
    inc   edx
322 
    mcall
 322 
    mcall
323 
 
 323 
 
324 
    mov   ecx,ebp
 324 
    mov   ecx,ebp
325 
    mov   edx,game_names+4
 325 
    mov   edx,game_names+4
326 
    call  get_mstr
 326 
    call  get_mstr
Line 752... Line 752...
752 
  mcall 7,,STRIP2 shl 16+STRIP2
 752 
  mcall 7,,STRIP2 shl 16+STRIP2
753 
  popa
 753 
  popa
754 
	ret
 754 
	ret
Line 755... Line 755...
755 
 
 755 
 
756 
OR_strip:
 - 
 
757 
;file 'orient2.gif'
 756 
OR_strip:
758 
file 'orientg2.gif'
 757 
file 'orientg2.gif'
759 
	rd 2
 758 
	rd 2
Line 760... Line 759...
760 
	gif_unp dd 0
 759 
	gif_unp dd 0
Line 786... Line 785...
786 
levels	      dd TM_level,SMZ_level,TILT_level,TILT2_level,FH_level,LP_level,\
 785 
levels	      dd TM_level,SMZ_level,TILT_level,TILT2_level,FH_level,LP_level,\
787 
	 WG_level,BB_level,MAR_level,CSTEP_level,OR_level,NLT_level,CZ_level
 786 
	 WG_level,BB_level,MAR_level,CSTEP_level,OR_level,NLT_level,CZ_level
788 
help_msg      dd TM_help,SMZ_help,TILT_help,TILT2_help,FH_help,LP_help,WG_help,\
 787 
help_msg      dd TM_help,SMZ_help,TILT_help,TILT2_help,FH_help,LP_help,WG_help,\
789 
	 BB_help,MAR_help,CSTEP_help,OR_help,NLT_help,CZ_help
 788 
	 BB_help,MAR_help,CSTEP_help,OR_help,NLT_help,CZ_help
Line 790... Line -...
790 
 
 - 
 
791 
if lang eq ru
 - 
 
792 
  header db 'Mega Maze'
 - 
 
793 
else
 789 
 
794 
  header db 'Mega Maze'
 - 
 
795 
end if
 - 
 
Line 796... Line 790...
796 
   .size = $ - header
 790 
header db 'Mega Maze', 0
Line 797... Line 791...
797 
 
 791 
 
798 
next_msg db '< >'
 792 
next_msg db '< >'