Subversion Repositories Kolibri OS

Rev

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

Rev 1566 Rev 1677
Line 1... Line 1...
1
;;===First_menu_mode===========================================================================================================
1
;;===First_menu_mode===========================================================================================================
Line 2... Line 2...
2
 
2
 
-
 
3
First_menu:
-
 
4
    mov  byte[window_title+5],  0
3
First_menu:
5
      mcall     71,1,window_title
-
 
6
      mcall     40,111b                         ; set events: standart
4
      mcall     40,111b                         ; set events: standart
7
      mcall     66,1,1                          ; set scan codes mode for keyboard
-
 
8
    mov  [is_new_record],   0
5
    mov  [is_new_record],   0
9
    mov  [lives],   START_LIVES
Line 6... Line 10...
6
      call      Show_cursor
10
      call      Show_cursor
7
 
11
 
Line -... Line 12...
-
 
12
    mov  [score],   0
-
 
13
      call      Set_first_level_of_play_mode
-
 
14
 
8
    mov  [score],   0
15
    mov  ebx, [time_wait_limit_const]
-
 
16
    mov  [time_wait_limit], ebx
9
      call      Set_first_level_of_play_mode
17
 
10
 
-
 
11
  .redraw:
-
 
12
      mcall     12,1
-
 
13
    mov  ebx, [wp_x]
-
 
14
    shl  ebx, 16
-
 
15
    add  ebx, dword[window_width]
-
 
16
    mov  ecx, [wp_y]
18
  .redraw:
Line 17... Line 19...
17
    shl  ecx, 16
19
      call      Set_geometry
18
    add  ecx, dword[window_height]
20
      mcall     12,1
19
      mcall     0, , ,[window_style], ,window_title
21
      mcall     0, , ,[window_style], ,window_title
Line 66... Line 68...
66
 
68
 
67
 
69
 
Line 68... Line 70...
68
  .key:                                         ; a key was pressed
70
  .key:                                         ; a key was pressed
69
      mcall     2                               ; get keycode
71
      mcall     2                               ; get keycode
70
 
72
 
71
    cmp  ah, 0x1B                               ; Escape
73
    cmp  ah, 0x01                               ; Escape
72
     je  Save_do_smth_else_and_exit
74
     je  Save_do_smth_else_and_exit
73
    cmp  ah, 0x0D                               ; Enter
75
    cmp  ah, 0x1C                               ; Enter
74
     je  Level_begin
76
     je  Level_begin
75
    cmp  ah, 0x20                               ; Space
77
    cmp  ah, 0x39                               ; Space
76
     jne @f
78
     jne @f
77
      call      Change_play_mode
79
      call      Change_play_mode
78
      call      Delete_buttons
80
      call      Delete_buttons
-
 
81
      call      Draw_buttons
-
 
82
     jmp .still                                 ; jump to wait for another event
-
 
83
  @@:
-
 
84
    cmp  ah, [shortcut_increase]
-
 
85
     jne @f
-
 
86
      call      Increase_geometry
-
 
87
     jmp .redraw
-
 
88
  @@:
-
 
89
    cmp  ah, [shortcut_decrease]
-
 
90
     jne @f
79
      call      Draw_buttons
91
      call      Decrease_geometry
Line 80... Line 92...
80
     jmp .still                                 ; jump to wait for another event
92
     jmp .redraw