/programs/games/snake/trunk/first_menu.asm |
---|
19,14 → 19,15 |
call Set_geometry |
mcall 12,1 |
mcall 0, , ,[window_style], ,window_title |
test [proc_info.wnd_state], 0x04 ; is rolled up? |
jnz @f |
call Draw_decorations |
call Draw_first_menu_picture |
call Draw_menu_strings |
call Draw_buttons |
@@: |
mcall 12,2 |
.still: |
mcall 10 ; wait for event |
; ok, what an event? |
/programs/games/snake/trunk/game_over.asm |
---|
36,13 → 36,14 |
call Set_geometry |
mcall 12,1 |
mcall 0, , ,[window_style], ,window_title |
test [proc_info.wnd_state], 0x04 ; is rolled up? |
jnz @f |
call Draw_decorations |
call Draw_game_over_picture |
call Draw_game_over_strings ; edit_box is here |
mcall 12,2 |
@@: |
.still: |
mcall 10 ; wait for event |
; ok, what an event? |
/programs/games/snake/trunk/level.asm |
---|
19,6 → 19,8 |
call Set_geometry |
mcall 12,1 |
mcall 0, , ,[window_style], ,window_title |
test [proc_info.wnd_state], 0x04 ; is rolled up? |
jnz Pause_mode |
call Draw_decorations |
call Draw_stones |
25,7 → 27,6 |
call Draw_snake |
call Draw_eat |
call Draw_level_strings |
mcall 12,2 |
.still: |
/programs/games/snake/trunk/pause.asm |
---|
12,14 → 12,14 |
call Set_geometry |
mcall 12,1 |
mcall 0, , ,[window_style], ,window_title |
test [proc_info.wnd_state], 0x04 ; is rolled up? |
jnz @f |
call Draw_decorations |
call Draw_pause_picture |
call Draw_pause_strings |
mcall 12,2 |
@@: |
.still: |
mcall 10 ; wait for event |
; ok, what an event? |
/programs/games/snake/trunk/snake.asm |
---|
12,7 → 12,7 |
include '../../../system/launch/trunk/mem.inc' |
include '../../../develop/libraries/libs-dev/.test/dll.inc' |
include '../../../develop/libraries/box_lib/trunk/box_lib.mac' |
include '../../../system/board/trunk/debug.inc' |
;include '../../../system/board/trunk/debug.inc' |
;;===Define_chapter============================================================================================================ |
188,7 → 188,7 |
mov eax, WINDOW_MODE_WINDOWED |
call Set_window_mode |
mcall 0,0,0,0x51000000 ; create empty window. Set_geometry will set all parameters |
mcall 0,0,0,[window_style_windowed] ; create empty window. Set_geometry will set all parameters |
call Set_geometry.by_hotkey |
mcall 71,1,window_title |
249,7 → 249,15 |
jnz .by_hotkey |
mcall 9,proc_info,-1 |
test [proc_info.wnd_state], 0x04 ; is rolled up? |
jz @f |
mov eax, [proc_info.box.width] |
mov [window_width], eax |
mov eax, [proc_info.box.height] |
mov [window_height], eax |
jmp .quit |
@@: |
mov eax, [proc_info.box.width] |
cmp eax, [window_width] |
jne @f |
mov eax, [proc_info.box.height] |
328,7 → 336,14 |
.by_hotkey: |
mcall 9,proc_info,-1 |
mov [resized_by_hotkey], 0 |
test [proc_info.wnd_state], 0x04 ; is rolled up? |
jz @f |
mov eax, [proc_info.box.width] |
mov [window_width], eax |
mov eax, [proc_info.box.height] |
mov [window_height], eax |
jmp .quit |
@@: |
mov eax, [square_side_length] |
inc eax ; space between squares |
mov [g_s], eax |