Subversion Repositories Kolibri OS

;;===First_menu_mode===========================================================================================================

First_menu:

      mcall     40,111b                         ; set events: standart

    mov  [is_new_record],   0

      call      Show_cursor

    mov  [score],   0

      call      Set_first_level_of_play_mode

  .redraw:

      mcall     12,1

    mov  ebx, [wp_x]

    shl  ebx, 16

    add  ebx, dword[window_width]

    mov  ecx, [wp_y]

    shl  ecx, 16

    add  ecx, dword[window_height]

      mcall     0, , ,[window_style], ,window_title

      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?

    dec  al                                     ; has the window been moved or resized?

     jz  .redraw                                ;

    dec  al                                     ; was a key pressed?

     jz  .key                                   ;

  .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                                 ; is it close button?

     je  Save_do_smth_else_and_exit             ; if so, jump to quit...

    cmp  eax, 0xD0                              ; 'play' button?

     je  Level_begin

    cmp  eax, 0xD1                              ; 'exit' button?

     je  Save_do_smth_else_and_exit

    cmp  eax, 0xD2                              ; change play mode button?

     jne @f

      call      Change_play_mode

      call      Delete_buttons

      call      Draw_buttons

     jmp .still                                 ; jump to wait for another event

  @@:

    cmp  eax, 0xD3                              ; '+INC+' button?

     jne @f

      call      Increase_geometry

     jmp .redraw                                ; jump to wait for another event

  @@:

    cmp  eax, 0xD4                              ; '-dec-' button?

     jne @f

      call      Decrease_geometry

     jmp .redraw                                ; jump to wait for another event

  @@:

     jmp .still                                 ; jump to wait for another event

  .key:                                         ; a key was pressed

      mcall     2                               ; get keycode

    cmp  ah, 0x1B                               ; Escape

     je  Save_do_smth_else_and_exit

    cmp  ah, 0x0D                               ; Enter

     je  Level_begin

    cmp  ah, 0x20                               ; Space

     jne @f

      call      Change_play_mode

      call      Delete_buttons

      call      Draw_buttons

     jmp .still                                 ; jump to wait for another event

  @@:

     jmp .still                                 ; jump to wait for another event

;;---First_menu_mode-----------------------------------------------------------------------------------------------------------

;;===Some_functions============================================================================================================

Draw_first_menu_picture:

    ;;===Draw_first_menu_picture================================================================================================

    mov  ax,  2*0x100+24

    mov  cx,  1*0x100+5

    mov  edx, [snake_picture_color]

    mov  esi, picture_first_menu_snake

      call      Draw_picture

    mov  ax,  3*0x100+11

    mov  cx,  8*0x100+5

    mov  edx, [version_picture_color]

    mov  esi, picture_first_menu_version

      call      Draw_picture

    ret

    ;;---Draw_first_menu_picture------------------------------------------------------------------------------------------------

Draw_menu_strings:

    ;;===Make_menu_strings======================================================================================================

    mov  ebx, [window_width]

    shr  ebx, 1

    sub  ebx, press_to_start.size*3+6

    shl  ebx, 16

    add  ebx, dword[bottom_middle_strings]

      mcall     4, ,[navigation_strings_color],press_to_start

    mov  ebx, [window_width]

    shr  ebx, 1

    sub  ebx, press_esc_to_exit.size*3+6

    shl  ebx, 16

    add  ebx, [top_strings]

      mcall     , ,[navigation_strings_color],press_esc_to_exit

;      mcall     ,406*65536+TOP_STRINGS,[navigation_strings_color],press_F2_to_options

    ret

    ;;---Make_menu_strings------------------------------------------------------------------------------------------------------

Draw_buttons:

    ;;===Draw_buttons===========================================================================================================

    mov  ebx, [button_x_left]

    shl  ebx, 16

    mov  bx,  word[button_width_short]

    mov  ecx, [button_y_top]

    shl  ecx, 16

    add  cx,  word[button_height]

      mcall     8, , ,0x000000D0,[button_color]                             ; top left button

    shr  ecx, 16

    mov  bx,  cx

    mov  edx, [button_height]

    shr  edx, 1

    sub  edx, 3                                                             ; ~half of font height

    add  bx,  dx

    ror  ebx, 16

    mov  edx, [button_width_short]

    shr  edx, 1

    sub  edx, string_button_play.size*3

    add  bx,  dx

    ror  ebx, 16

      mcall     4, ,[button_text_color],string_button_play

    mov  ebx, [button_x_right]

    shl  ebx, 16

    mov  bx,  word[button_width_short]

    mov  ecx, [button_y_top]

    shl  ecx, 16

    add  cx,  word[button_height]

      mcall     8, , ,0x000000D1,                                           ; top right button

    shr  ecx, 16

    mov  bx,  cx

    mov  edx, [button_height]

    shr  edx, 1

    sub  edx, 3                                                             ; ~half of font height

    add  bx,  dx

    ror  ebx, 16

    mov  edx, [button_width_short]

    shr  edx, 1

    sub  edx, string_button_exit.size*3

    add  bx,  dx

    ror  ebx, 16

      mcall     4, ,[button_text_color],string_button_exit

    mov  ebx, [button_x_left]

    shl  ebx, 16

    mov  bx,  word[button_width_long]

    mov  ecx, [button_y_middle]

    shl  ecx, 16

    add  cx,  word[button_height]

      mcall     8, , ,0x000000D2,                                           ; middle button

    shr  ecx, 16

    mov  bx,  cx

    mov  edi, [button_height]

    shr  edi, 1

    sub  edi, 3                                                             ; ~half of font height

    add  bx,  di

    ror  ebx, 16

    mov  edi, [button_width_long]

    shr  edi, 1

    cmp  [play_mode],   0

     jne @f

    sub  edi, string_button_pm_classic.size*3

    mov  edx, string_button_pm_classic

     jmp .skip

  @@:

    sub  edi, string_button_pm_levels.size*3

    mov  edx, string_button_pm_levels

  .skip:

    add  bx,  di

    ror  ebx, 16

      mcall     4, ,[button_text_color],

    mov  ebx, [button_x_left]

    shl  ebx, 16

    mov  bx,  word[button_width_short]

    mov  ecx, [button_y_bottom]

    shl  ecx, 16

    add  cx,  word[button_height]

      mcall     8, , ,0x000000D3,                                           ; bottom left button

    shr  ecx, 16

    mov  bx,  cx

    mov  edx, [button_height]

    shr  edx, 1

    sub  edx, 3                                                             ; ~half of font height

    add  bx,  dx

    ror  ebx, 16

    mov  edx, [button_width_short]

    shr  edx, 1

    sub  edx, string_button_inc.size*3

    add  bx,  dx

    ror  ebx, 16

      mcall     4, ,[button_text_color],string_button_inc

    mov  ebx, [button_x_right]

    shl  ebx, 16

    mov  bx,  word[button_width_short]

    mov  ecx, [button_y_bottom]

    shl  ecx, 16

    add  cx,  word[button_height]

      mcall     8, , ,0x000000D4,

    shr  ecx, 16

    mov  bx,  cx

    mov  edx, [button_height]

    shr  edx, 1

    sub  edx, 3                                                             ; ~half of font height

    add  bx,  dx

    ror  ebx, 16

    mov  edx, [button_width_short]

    shr  edx, 1

    sub  edx, string_button_dec.size*3

    add  bx,  dx

    ror  ebx, 16

      mcall     4, ,[button_text_color],string_button_dec

    ret

    ;;---Draw_buttons----------------------------------------------------------------------------------------------------------

Delete_buttons:

    ;;===Delete_buttons========================================================================================================

      mcall     8,,,0x800000D0

      mcall      ,,,0x800000D1

      mcall      ,,,0x800000D2

      mcall      ,,,0x800000D3

      mcall      ,,,0x800000D4

    ret

    ;;---Delete_buttons--------------------------------------------------------------------------------------------------------

Change_play_mode:

    ;;===Change_play_mode======================================================================================================

    cmp  [play_mode],   LEVELS_MODE

     jne @f

    mov  [play_mode],   CLASSIC_MODE

    mov  [cur_level_number],   0

    ret

  @@:

    inc  [play_mode]

      call      Set_first_level_of_play_mode

    ret

    ;;---Change_play_mode------------------------------------------------------------------------------------------------------

Set_first_level_of_play_mode:

    ;;===Set_first_level_of_play_mode==========================================================================================

    cmp  [play_mode],   CLASSIC_MODE

     jne @f

    mov  [cur_level_number],   CLASSIC_MODE_FIRST_LEVEL

  @@:

    cmp  [play_mode],   LEVELS_MODE

     jne @f

    mov  [cur_level_number],   LEVELS_MODE_FIRST_LEVEL

  @@:

    ret

    ;;---Set_first_level_of_play_mode-------------------------------------------------------------------------------------------

;;---Some_functions-------------------------------------------------------------------------------------------------------------