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

 Level_begin:
+    mov  [score],   0
+    mov  [action],  0
-    mov  [score],   0
+    mov  eax,   [gw_mul_gh]
-    mov  [action],  0
+    sub  eax, 3
-    mov  [number_of_free_dots], GRID_WIDTH*GRID_HEIGHT-3
+    mov  [number_of_free_dots], ax
     mov  dword  [hi_score],    eax
   @@:
     mov  esi, start_map
     mov  edi, field_map
+    mov  ecx, [gw_mul_gh]
-    mov  ecx, GRID_WIDTH*GRID_HEIGHT/4
+    shr  ecx, 2
+    rep  movsd
-    rep  movsd
+      call      Get_eat
 Level_body:
     ;;===Level_body========================================================================================================
 mcall     26, 9
     mov  [time_before_waiting], eax
     mov  eax, [time_wait_limit]
+    mov  [time_to_wait],    eax
+  .redraw:
+      mcall     12,1
+    mov  ebx, [wp_x]
+    shl  ebx, 16
-    mov  [time_to_wait],    eax
+    add  ebx, dword[window_width]
     mov  ecx, [wp_y]
-  Redraw:
+    shl  ecx, 16
-      mcall     12,1
+    add  ecx, dword[window_height]
-      mcall     0,200*65536+WINDOW_WIDTH,326*65536+WINDOW_HEIGHT,[window_style], ,window_title
+      mcall     0, , ,[window_style], ,window_title
       call      Draw_decorations
       call      Draw_snake
       call      Draw_eat
       call      Draw_level_strings
       mcall     12,2
      jne Game_step
       mcall     26, 9
     mov  [time_before_waiting], eax
     mov  eax, [time_wait_limit]
     mov  [time_to_wait],    eax
-     jmp Waiting
+     jmp .still
   @@:
-      Message:                                  ; ok, what an event?
+      .message:                                 ; ok, what an event?
         dec  al                                 ; has the window been moved or resized?
-         jz  Redraw                             ;
+         jz  .redraw                            ;
         dec  al                                 ; was a key pressed?
-         jz  Key                                ;
+         jz  .key                               ;
         dec  al                                 ; was a button pressed?
-         jz  Button                             ;
+         jz  .button                            ;
-  Key:
+  .key:
       mcall     2                               ; get keycode
     cmp  ah,  0x1B                              ; Escape
      je  First_menu
     cmp  ah,  0x20                              ; Space
      je  Pause_mode
     cmp  ah,  0xB0                              ; Left
-     je  .left
+     je  .key.left
     cmp  ah,  0xB1                              ; Down
-     je  .down
+     je  .key.down
     cmp  ah,  0xB2                              ; Up
+     je  .key.up
+    cmp  ah,  0xB3                              ; Right
+     je  .key.right
+     jmp .still                                 ; jump to wait for another event
+  .button:                                       ; ¯à®æ¥¤ãà  ®¡à ¡®ª¨ ª®¯®ª ¢ ¯à®£à ¬¬¥
+      mcall     17                              ; äãªæ¨ï 17: ¯®«ãç¨âì ®¬¥à  ¦ â®© ª®¯ª¨
-     je  .up
+    shr  eax, 8                                 ; á¤¢¨£ ¥¬ à¥£¨áâà eax   8 ¡¨â ¢¯à ¢®, çâ®¡ë ¯®«ãç¨âì ®¬¥à  ¦ â®© ª®¯ª¨
-    cmp  ah,  0xB3                              ; Right
+    cmp  eax, 1
-     je  .right
+     je  Exit                                   ; ¥á«¨ íâ® ¥ ª®¯ª  1 (§ à¥§¥à¢¨à®¢   á¨áâ¥¬®© ª ª ª®¯ª  § ªàëâ¨ï ¯à®£à ¬¬ë), ¯à®¯ãáª ¥¬ 2 á«¥¤ãîé¨¥ áâà®çª¨ ª®¤
-     jmp Waiting                                ; jump to wait for another event
+     jmp .still
-  .left:
-    cmp  [action],  0
+  .key.left:
-     jne @f
+    bts  dword[action], 0
-    mov  [time_to_wait],    0
+     jc  @f
-  @@:
+    mov  [time_to_wait],    0
-    mov  [action],  1
+  @@:
-    mov  [snake_napravlenie_next],  0
-     jmp Waiting
+    mov  [snake_napravlenie_next],  LEFT
+     jmp .still
-  .down:
-    cmp  [action],  0
+  .key.down:
-     jne @f
+    bts  dword[action], 0
-    mov  [time_to_wait],    0
+     jc  @f
-  @@:
+    mov  [time_to_wait],    0
-    mov  [action],  1
-    mov  [snake_napravlenie_next],  1
+  @@:
-     jmp Waiting
+    mov  [snake_napravlenie_next],  DOWN
+     jmp .still
-  .up:
-    cmp  [action],  0
+  .key.up:
-     jne @f
+    bts  dword[action], 0
-    mov  [time_to_wait],    0
+     jc  @f
-  @@:
-    mov  [action],  1
+    mov  [time_to_wait],    0
-    mov  [snake_napravlenie_next],  2
-     jmp Waiting
-  .right:
-    cmp  [action],  0
-     jne @f
-    mov  [time_to_wait],    0
-  @@:
-    mov  [action],  1
-    mov  [snake_napravlenie_next],  3
-     jmp Waiting
+  @@:
     mov  [snake_napravlenie_next],  UP
      jmp .still
         mov  [snake_napravlenie],   LEFT
         mov  ax,  [edx]
         dec  al
         cmp  al,  -1
          jne @f
-        mov  al,  GRID_WIDTH-1
+        mov  al,  byte[g_w]
+        dec  al
       @@:
          jmp Snake_move
       .to_down:
         mov  [snake_napravlenie],   DOWN
         mov  ax,  [edx]
         inc  ah
-        cmp  ah,  GRID_HEIGHT
+        cmp  ah,  byte[g_h]
          jne @f
         mov  ah,  0
       @@:
         mov  [snake_napravlenie],   UP
         mov  ax,  [edx]
         dec  ah
         cmp  ah,  -1
          jne @f
-        mov  ah,  GRID_HEIGHT-1
+        mov  ah,  byte[g_h]
+        dec  ah
       @@:
          jmp Snake_move
       .to_right:
         mov  [snake_napravlenie],   RIGHT
         mov  ax,  [edx]
         inc  al
-        cmp  al,  GRID_WIDTH
+        cmp  al,  byte[g_w]
          jne @f
         mov  al,  0
       @@:
+Draw_level_strings:
+    ;;===Draw_level_strings================================================================================================
+    mov  ebx, [window_width]
+    shr  ebx, 1
+    sub  ebx, (string_resume_space-string_pause_space-1)*3+6
+    shl  ebx, 16
-Draw_level_strings:
+    add  ebx, [top_strings]
-    ;;===Draw_level_strings================================================================================================
+      mcall     4, ,[navigation_strings_color],string_pause_space ; Draw 'PAUSE - SPACE' string
-    call    Draw_menu_esc
-    call    Draw_score_string
-    call    Draw_score_number                   ; Draw score (number)
+;    call    Draw_menu_esc
-    call    Draw_hiscore_string
+    call    Draw_score_string
-    call    Draw_hiscore_number
-    call    Draw_champion_string
+    call    Draw_score_number                   ; Draw score (number)
+    call    Draw_champion_string
     call    Draw_champion_name
     call    Draw_hiscore_string
     mov  esi, snake_dots
     mov  edi, snake_dots-2
     add  edi, [snake_length_x2]
-  @@:
   @@:
     mov  ax,  [edi]
     xchg ax,  [esi]
-    mov  [edi], ax
     mov  [edi], ax
     dec  cx
-    add  esi, 2
-    sub  edi, 2
+    add  esi, 2
     sub  edi, 2
-    test  cx, cx
+    dec  cx
      jnz @b
      jmp .loop
   .place_found:
     sub  ebx, field_map
     mov  eax, ebx
-    mov  bl,  GRID_WIDTH
+    mov  bl,  byte[g_w]
     div  bl
     xchg al,  ah
     mov  eax, snake_dots
     mov  ebx, snake_dots+2
     mov  cl,  [eax]                             ; The last dot x_coord
-    mov  dl,  [ebx]                             ; The pre_last dot x_coord
+    mov  ch,  [ebx]                             ; The pre_last dot x_coord
-    cmp  cl,  dl
+    cmp  cl,  ch
+     je  .X_ravny
-     je  .X_ravny
+    cmp  cl,  0
      jne .skip2
-    cmp  cl,  0
-     jne .skip2
+    mov  dl,  byte[g_w]
     dec  dl
+    cmp  ch,  dl
+     jne .Normal_y_ravny
-    cmp  dl,  23
+    mov  [snake_napravlenie_next],  RIGHT
-     jne .Normal_y_ravny
+    ret
-    mov  [snake_napravlenie_next],  3
-    ret
+  .skip2:
+    mov  dl,  byte[g_w]
-  .skip2:
+    dec  dl
-    cmp  cl,  23
+    cmp  cl,  dl
      jne .Normal_y_ravny
-    cmp  dl,  0
+    cmp  ch,  0
      jne .Normal_y_ravny
-    mov  [snake_napravlenie_next],  0
+    mov  [snake_napravlenie_next],  LEFT
     ret
   .Normal_y_ravny:
-    cmp  cl,  dl
+    cmp  cl,  ch
      jg  .Napravlenie_to_right
-    mov  [snake_napravlenie_next],  0
+    mov  [snake_napravlenie_next],  LEFT
     ret
   .Napravlenie_to_right:
+    mov  [snake_napravlenie_next],  RIGHT
+    ret
-    mov  [snake_napravlenie_next],  3
-    ret
+  .X_ravny:
+    inc  eax
-  .X_ravny:
+    inc  ebx
-    inc  eax
+    mov  cl,  [eax]
+    mov  ch,  [ebx]
-    inc  ebx
+    cmp  cl,  0
-    mov  cl,  [eax]
+     jne .skip3
-    mov  dl,  [ebx]
     mov  dl,  byte[g_h]
-    cmp  cl,  0
+    dec  dl
-     jne .skip3
+    cmp  ch,  dl
      jne .Normal_x_ravny
-    cmp  dl,  10
+    mov  [snake_napravlenie_next],  DOWN
-     jne .Normal_x_ravny
+    ret
-    mov  [snake_napravlenie_next],  1
-    ret
+  .skip3:
     mov  dl,  byte[g_h]
-  .skip3:
+    dec  dl
-    cmp  cl,  10
+    cmp  ch,  dl
      jne .Normal_x_ravny
-    cmp  dl,  0
+    cmp  ch,  0
      jmp Keys_done
+  .eat_and_new_head_are_different:
+    push ax
-  .eat_and_new_head_are_different:
+    mov  ax,  word[snake_dots]
+    mov  cl,  0
       call      Draw_on_map
     mov  ecx, snake_dots-4
-    add  ecx, [snake_length_x2]
+    pop ax
     mov  bx,  word[snake_dots]
     mov  edx, [background_color]
-      call      Draw_square
-    mov  ax,  word[snake_dots]
-    mov  cl,  0
+      call      Draw_square
       call      Draw_on_map
   @@:
       mcall     26, 9
     mov  [time_before_waiting], eax
     mov  eax, [time_wait_limit]
     mov  [time_to_wait],    eax
-     jmp Waiting
+     jmp Level_body.still
-    ;;---Snake_move--------------------------------------------------------------------------------------------------------
+    ;;---Snake_move------------------------------------------------------------------------------------------------------------

Subversion Repositories Kolibri OS

(root)/programs/games/snake/trunk/level.asm – Rev 1518 → 1522