Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 1517 → Rev 1518

/programs/games/snake/trunk/pause.asm
0,0 → 1,80
;;===Pause_mode================================================================================================================
 
Pause_mode:
 
mov [action], 0
mov eax, [time_wait_limit]
mov [time_to_wait], eax
 
Pause_Redraw_window:
mcall 12,1
mcall 0,200*65536+WINDOW_WIDTH,326*65536+WINDOW_HEIGHT,[window_style], ,window_title
 
call Draw_decorations
call Draw_pause_picture
call Draw_pause_strings
 
mcall 12,2
Pause_Wait_for_event:
mcall 10 ; wait for event
; ok, what an event?
dec al ; has the window been moved or resized?
jz Pause_Redraw_window
dec al ; was a key pressed?
jz Pause_Is_key
 
 
Pause_Is_button: ; a button was pressed
mcall 17 ; get button number
shr eax, 8 ; we should do it to get the real button code
 
cmp eax, 1
je Exit
 
jmp Pause_Wait_for_event
 
 
Pause_Is_key: ; a key was pressed
mcall 2 ; get keycode
cmp ah, 0x1B ; Escape - go to menu
je First_menu
cmp ah, 0x20 ; Space - resume game
je Level_body
jmp Pause_Wait_for_event
 
;;---Pause_mode----------------------------------------------------------------------------------------------------------------
 
 
;;===Some_functions============================================================================================================
 
Draw_pause_picture:
;;===Draw_pause_picture========================================================================================================
 
mov al, 6
mov bh, 2
mov ecx, picture_pause
mov edx, [pause_picture_color]
call Draw_picture
 
ret
;;---Draw_pause_picture--------------------------------------------------------------------------------------------------------
Draw_pause_strings:
;;===Draw_pause_strings================================================================================================
 
mcall 4,219*65536+BOTTOM_MIDDLE_STRINGS,[navigation_strings_color],string_resume_space ; Show 'RESUME - SPACE' string
call Draw_menu_esc ; Show 'MENU - ESC' string
 
 
ret
 
;;---Draw_pause_strings------------------------------------------------------------------------------------------------
;;---Some_functions------------------------------------------------------------------------------------------------------------