WebSVN – Kolibri OS – Diff – /programs/games/snake/trunk/level.asm

 Level_begin:
+      call      Load_level
-      call      Load_level
+      call      Get_eat
-      call      Get_eat
+        mcall     66,1,1                          ; set scan codes mode for keyboard
     mov  [time_before_waiting], eax
     mov  eax, [time_wait_limit]
     mov  [time_to_wait],    eax
+  .redraw:
-  .redraw:
+      call      Set_geometry
-      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     12,1
       mcall     0, , ,[window_style], ,window_title
       call      Draw_decorations
   .button:                                      ; ¯à®æ¥¤ãà  ®¡à ¡®ª¨ ª®¯®ª ¢ ¯à®£à ¬¬¥
       mcall     17                              ; äãªæ¨ï 17: ¯®«ãç¨âì ®¬¥à  ¦ â®© ª®¯ª¨
     shr  eax, 8                                 ; á¤¢¨£ ¥¬ à¥£¨áâà eax   8 ¡¨â ¢¯à ¢®, çâ®¡ë ¯®«ãç¨âì ®¬¥à  ¦ â®© ª®¯ª¨
     cmp  eax, 1
-     je  Save_do_smth_else_and_exit             ; ¥á«¨ íâ® ¥ ª®¯ª  1 (§ à¥§¥à¢¨à®¢   á¨áâ¥¬®© ª ª ª®¯ª  § ªàëâ¨ï ¯à®£à ¬¬ë), ¯à®¯ãáª ¥¬ 2 á«¥¤ãîé¨¥ áâà®çª¨ ª®¤
+     je  Save_do_smth_else_and_exit
      jmp .still
+  .key:
+      mcall     2                               ; get keycode
+;pushf
+;pusha
+;movzx eax, ah
+;dph eax
 ;newline
-  .key:
+;popa
-      mcall     2                               ; get keycode
+;popf
+    cmp  ah,  0x01                              ; Escape
+     je  First_menu
-    cmp  ah,  0x1B                              ; Escape
+    cmp  ah,  0x39                              ; Space
-     je  First_menu
+     je  Pause_mode
-    cmp  ah,  0x20                              ; Space
+    cmp  ah,  0x4B                              ; Left
+     je  .key.left
+    cmp  ah,  [shortcut_move_left]              ; Left
-     je  Pause_mode
+     je  .key.left
+    cmp  ah,  0x50                              ; Down
+     je  .key.down
-    cmp  ah,  0xB0                              ; Left
+    cmp  ah,  [shortcut_move_down]              ; Down
-     je  .key.left
+     je  .key.down
-    cmp  ah,  0xB1                              ; Down
+    cmp  ah,  0x48                              ; Up
+     je  .key.up
+    cmp  ah,  [shortcut_move_up]                ; Up
+     je  .key.up
+    cmp  ah,  0x4D                              ; Right
+     je  .key.right
+    cmp  ah,  [shortcut_move_right]             ; Right
+     je  .key.right
+    cmp  ah,  0x4B+0x80                         ; Left released
+     je  .key.released.left
+    mov  al,  [shortcut_move_left]
+    add  al,  0x80
+    cmp  ah,  al                                ; Left released
+     je  .key.released.left
+    cmp  ah,  0x50+0x80                         ; Down released
+     je  .key.released.down
+    mov  al,  [shortcut_move_down]
+    add  al,  0x80
+    cmp  ah,  al                                ; Down released
+     je  .key.released.down
+    cmp  ah,  0x48+0x80                         ; Up released
+     je  .key.released.up
+    mov  al,  [shortcut_move_up]
+    add  al,  0x80
+    cmp  ah,  al                                ; Up released
+     je  .key.released.up
+    cmp  ah,  0x4D+0x80                         ; Right released
+     je  .key.released.right
+    mov  al,  [shortcut_move_right]
+    add  al,  0x80
+    cmp  ah,  al                                ; Right released
+     je  .key.released.right
+    cmp  ah, [shortcut_reverse]
+     jne @f
+      call      Reverse_snake
+     jmp .still
+  @@:
+    cmp  ah, [shortcut_increase]
+     jne @f
+      call      Increase_geometry
+     jmp .redraw
+  @@:
-     je  .key.down
+    cmp  ah, [shortcut_decrease]
-    cmp  ah,  0xB2                              ; Up
+     jne @f
-     je  .key.up
+      call      Decrease_geometry
-    cmp  ah,  0xB3                              ; Right
+     jmp .redraw
-     je  .key.right
+  @@:
+     jmp .still                                 ; jump to wait for another event
+  .key.left:
+    bts  [action],  0
-     jmp .still                                 ; jump to wait for another event
+     jc  @f
+    mov  [time_to_wait],    0
+  @@:
     cmp  [smart_reverse],   1
      jne @f
-  .key.left:
+    cmp  [snake_direction], RIGHT
-    bts  [action],  0
+     je  .still
-     jc  @f
+  @@:
-    mov  [time_to_wait],    0
+    mov  [snake_direction_next],    LEFT
+    bts  [acceleration_mask],   LEFT
+     jc  Game_step
+     jmp .still
+  .key.down:
-  @@:
+    bts  [action],  0
+     jc  @f
+    mov  [time_to_wait],    0
-    mov  [snake_direction_next],    LEFT
+  @@:
-     jmp .still
+    cmp  [smart_reverse],   1
      jne @f
-  .key.down:
+    cmp  [snake_direction], UP
-    bts  [action],  0
+     je  .still
-     jc  @f
+  @@:
+    mov  [snake_direction_next],    DOWN
+    bts  [acceleration_mask],   DOWN
+     jc  Game_step
+     jmp .still
-    mov  [time_to_wait],    0
+  .key.up:
+    bts  [action],  0
+     jc  @f
-  @@:
+    mov  [time_to_wait],    0
-    mov  [snake_direction_next],    DOWN
+  @@:
-     jmp .still
+    cmp  [smart_reverse],   1
      jne @f
-  .key.up:
+    cmp  [snake_direction], DOWN
-    bts  [action],  0
+     je  .still
+  @@:
+    mov  [snake_direction_next],    UP
+    bts  [acceleration_mask],   UP
+     jc  Game_step
+     jmp .still
      jc  @f
+  .key.right:
+    bts  [action],  0
+     jc  @f
+    mov  [time_to_wait],    0
+  @@:
+    cmp  [smart_reverse],   1
+     jne @f
+    cmp  [snake_direction], LEFT
+     je  .still
+  @@:
+    mov  [snake_direction_next],    RIGHT
+    bts  [acceleration_mask],   RIGHT
+     jc  Game_step
+     jmp .still
+  .key.released.left:
+    btr  [acceleration_mask],   LEFT
+     jmp .still
     mov  [time_to_wait],    0
-  @@:
+  .key.released.down:
       call      Draw_square
     sub  esi, 2
     mov  bx,  [esi]
     mov  edx, [snake_color]
       call      Draw_square
+      call      Draw_lives_in_head
     ret
      je  Game_over
     mov  ax,  word[eat]
     mov  cl,  1
       call      Draw_on_map
       call      Draw_head_prehead
+    cmp  [play_mode],   CLASSIC_MODE
+     jne .is_not_classic_mode
+    dec  byte[speed_up_counter]
+     jns @f
+    mov  al,  byte[speed_up_counter+1]
+    mov  byte[speed_up_counter],    al
+    cmp  [time_wait_limit], 4
+     jl  @f
+    dec  [time_wait_limit]
+  @@:
+  .is_not_classic_mode:
+    cmp  [play_mode],   LEVELS_MODE
+     jne .is_not_levels_mode
+    cmp  [snake_length_x2], (EAT_TO_END_LEVEL+3)*2
+     je  .skip
+  .is_not_levels_mode:
       call      Get_eat
       call      Draw_eat
+  .skip:
      jmp Keys_done
       call      Draw_on_map
     pop ax
       call      Get_from_map
       call      Get_from_map
     test bl,  bl
      jnz Game_over
     cmp  bh,  0
      jnl @b
     dec  cl
     cmp  cl,  0
-     jl  @f
+     jl  .picture
+    push eax ebx
+      mcall     5,PAUSE_WHILE_DRAWING_SPLASH
+      mcall     2
-    push eax ebx
+    cmp  ah,  0x39                              ; Space
-      mcall     5,PAUSE_WHILE_DRAWING_SPLASH
-    pop  ebx eax
+     jne @f
     pop  ebx eax
+     jmp .quit
+  @@:
+    cmp  ah,  0x1C                              ; Enter
+     jne @f
+    pop  ebx eax
+     jmp .quit
+  @@:
-     jmp .draw
+    pop  ebx eax
-  @@:
+     jmp .draw
   .picture:
     mov  ax,  2*0x100+24
     mov  esi, digits_font
   @@:
     test al,  al
      jz  @f
-    add  esi, 20
+    add  esi, 5
     dec  al
      jmp @b
   @@:
     pop  ax
     mov  esi, digits_font
   @@:
     test ah,  ah
      jz  @f
-    add  esi, 20
+    add  esi, 5
     dec  ah
      jmp @b
   @@:
     mov  ax,  15*0x100+4
     mov  cx,  8*0x100+5
     mov  edx, [splash_level_number_color]
+      call      Draw_picture
-      call      Draw_picture
+      mcall     26,9
+    mov  [time_before_waiting], eax
+    mov  [time_to_wait],    PAUSE_BETWEEN_LEVELS
+  @@:
+      mcall     23,[time_to_wait]
+      mcall     2
+    cmp  ah,  0x39                              ; Space
+     je  .quit
+    cmp  ah,  0x1C                              ; Enter
+     je  .quit
+      mcall     26,9
+    push eax
+    sub  eax, [time_before_waiting]
+    pop  [time_before_waiting]
+    sub  [time_to_wait],  eax
-      mcall     5,PAUSE_BETWEEN_LEVELS
+     jns @b
   .quit:
+    ret
+    ;;---Draw_splash-----------------------------------------------------------------------------------------------------------
+Draw_lives_in_head:
+    ;;===Draw_lives_in_head====================================================================================================
+    cmp  [play_mode],   LEVELS_MODE
+     jne .quit
+    test [show_lives_style],    2
+     jz  .quit
+    mov  eax, snake_dots-2
+    add  eax, [snake_length_x2]
+    mov  ax,  word[eax]
+    mov  bl,  ah
+    mul  byte[g_s]
+    mov  edx, [gbxm1]
+    add  dx,  ax
+    shl  edx, 16
+    mov  al,  bl
+    mul  byte[g_s]
+    mov  dx,  word[gbym1]
+    add  dx,  ax
+    mov  eax, [g_s]
+    shl  eax, 16
+    add  eax, [g_s]
+    and  eax, 0xfffefffe
+    shr  eax, 1
+    add  edx, eax
+    sub  edx, 0x00020003
+      mcall     47,0x80010001,lives,,[lives_in_head_number_color]
+  .quit:
     ret

Subversion Repositories Kolibri OS

(root)/programs/games/snake/trunk/level.asm – Rev 1566 → 1677