WebSVN – Kolibri OS – Diff – /programs/games/almaz/ALMAZ.ASM

-WND_COLOR equ 0x54000000
+; Author: RU095@YANDEX.RU
 use32
   org	 0x0
   db	 'MENUET01'
   dd	 0x0
   dd	 0x0
 include 'lang.inc'
-include '..\..\macros.inc' ; макросы облегчают жизнь ассемблерщиков!
+include '..\..\macros.inc' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§ì  áá¥¬¡«¥àé¨ª®¢!
 include 'ASCL.INC'
-include 'ASCGL.INC'
+include 'ASCGL.INC'
 WND_COLOR equ 0x74000000
 gif_hash_offset = gif_hash_area
 COLOR_ORDER equ MENUETOS
-DELAY equ  2	     ; Задержка перед переходом к следующему кадру в мсек
+DELAY equ  2	     ;  ¤¥à¦ª  ¯¥à¥¤ ¯¥à¥å®¤®¬ ª á«¥¤ãîé¥¬ã ª ¤àã ¢ ¬á¥ª
 START:
 ;****************
-; Открываем фаил
+; âªàë¢ ¥¬ ä ¨«
     call draw_subimage
     jmp  still
   key:
- ; блока движения персонажа
+ ; ¡«®ª  ¤¢¨¦¥¨ï ¯¥àá® ¦
     mov  eax,2
     int  0x40
-     cmp  ah, 179	   ; право  4
+     cmp  ah, 179	   ; ¯à ¢®  4
      je go_mov
-     cmp  ah, 176	   ; лево  1
+     cmp  ah, 176	   ; «¥¢®  1
      je go_mov
-     cmp  ah, 178	   ; верх  3
+     cmp  ah, 178	   ; ¢¥àå  3
      je go_mov
-     cmp  ah, 177	   ; низ  2
+     cmp  ah, 177	   ; ¨§  2
      je go_mov
-     cmp  ah, 120	   ; низ  2
+     cmp  ah, 120	   ; ¨§  2
      je go_fire
-     cmp  ah, 122	   ; низ  2
+     cmp  ah, 122	   ; ¨§  2
      je go_fire
-     cmp  ah, 239	   ; низ  2
+     cmp  ah, 239	   ; ¨§  2
      je go_fire_left
-     cmp  ah, 231	   ; низ  2
+     cmp  ah, 231	   ; ¨§  2
      je go_fire
       jmp no_mov    ; if not left, right, up, down, then go NO MOV
     go_mov:
        ;mov ebx, [v_mov2]
        mov [v_mov2], ah
-       sub word [v_mov2], 175	; отнимаем от кода клавиши 175 и остается 1,2,3 или 4 соответственно направления движения персонажа
+       sub word [v_mov2], 175	; ®â¨¬ ¥¬ ®â ª®¤  ª« ¢¨è¨ 175 ¨ ®áâ ¥âáï 1,2,3 ¨«¨ 4 á®®â¢¥âáâ¢¥®  ¯à ¢«¥¨ï ¤¢¨¦¥¨ï ¯¥àá® ¦
       jmp no_mov    ; if not left, right, up, down, then go NO MOV
     go_fire_left:
        xor eax,eax
        mov ah, 122
        call fire
       jmp no_mov
     go_fire:
        call fire
     no_mov:
- ; конец блока движения персонажа
+ ; ª®¥æ ¡«®ª  ¤¢¨¦¥¨ï ¯¥àá® ¦
     jmp  still
+  button:
-  button:
+    mov  eax, 17
+    int  0x40
+    cmp  ah,1
-    mov  eax, 17
+    jne  noclose
-    int  0x40
+  _close:
     or	 eax,-1
-    cmp  ah, 1
+    int  0x40
-    jne still
+  noclose:
-    mcall -1
+    jmp  still
+;   *********************************************
-;   *********************************************
+;   *******      *******
-;   *******  ОПРЕДЕЛЕНИЕ И ОТРИСОВКА ОКНА *******
+;   *********************************************
 ;   *********************************************
+draw_window:
     startwd
 draw_window:
-    startwd
+    mcall 48, 4
     mov  ecx, 50*65536+516
 ;*******************************************
  labirint:
-   ; вывод блоков лабиринта
+   ; ¢ë¢®¤ ¡«®ª®¢ « ¡¨à¨â
    cycle:
     mov     eax, [Lab]
-    shl     eax, 5	    ; сдвиг регистра в право на 5 позиции все равно что умножили на 32
+    shl     eax, 5	    ; á¤¢¨£ à¥£¨áâà  ¢ ¯à ¢®   5 ¯®§¨æ¨¨ ¢á¥ à ¢® çâ® ã¬®¦¨«¨   32
     mov     [perem1], eax
     mov     eax, [Lab]
-    shr     eax, 4	    ; сдвиг регистра в лево
+    shr     eax, 4	    ; á¤¢¨£ à¥£¨áâà  ¢ «¥¢®
-    shl     eax, 5	    ; сдвиг обратно (все равно что целочисленное делениена 256)
+    shl     eax, 5	    ; á¤¢¨£ ®¡à â® (¢á¥ à ¢® çâ® æ¥«®ç¨á«¥®¥ ¤¥«¥¨¥  256)
     mov     [perem2], eax
-    shl     eax, 4	    ; все равно что отнимаем от координат ненужный прирост -> У-256*X
+    shl     eax, 4	    ; ¢á¥ à ¢® çâ® ®â¨¬ ¥¬ ®â ª®®à¤¨ â ¥ã¦ë© ¯à¨à®áâ -> -256*X
     sbb  dword [perem1], eax;
   mov	 ebx, [Lab]
   sbb	 ebx, 1
-  mov	  eax,[Dangeon + ebx]	 ; берет байт из дангеон + смещение
+  mov	  eax,[Dangeon + ebx]	 ; ¡¥à¥â ¡ ©â ¨§ ¤ £¥® + á¬¥é¥¨¥
   cmp  ah, 1   ;
   je go_block
   cmp  ah, 0   ;
   je back_block
-  cmp  ah, 12	; закраска фона за алмазом
+  cmp  ah, 12	; § ªà áª  ä®  §   «¬ §®¬
   je back_block
   cmp  ah, 3   ;
   je boom_block
   door_block:
     imgtoimg img_door1,dword [perem1],dword [perem2],canvas
     mov eax, [gold]
-    cmp ax, 10	      ; если собрано более 10 алмазов дверь открыта
+    cmp ax, 10	      ; ¥á«¨ á®¡à ® ¡®«¥¥ 10  «¬ §®¢ ¤¢¥àì ®âªàëâ
     jna end_block
     imgtoimg img_door2,dword [perem1],dword [perem2],canvas
    jmp end_block
   boom_block:
     imgtoimg img_area,dword [perem1],dword [perem2],canvas
-	   mov ebp,18 ; кадр
+	   mov ebp,18 ; ª ¤à
 	   mov eax, dword [perem1]
 	   mov dword [X_anime], eax
 	     cmp ecx, 0
 	     jne  end_block
 	       mov    ebx, [Lab]
-		mov	byte [Dangeon + ebx], 0    ; берет байт из дангеон + смещение
+		mov	byte [Dangeon + ebx], 0    ; ¡¥à¥â ¡ ©â ¨§ ¤ £¥® + á¬¥é¥¨¥
  ret   ; END labirint
 ;*******************************************
 ; ЛЕСТНИЦА
 ;*******************************************
  lestniza:
-   ; вывод блоков лабиринта
+   ; ¢ë¢®¤ ¡«®ª®¢ « ¡¨à¨â
    cycle2:
     mov     eax, [Lab]
-    shl     eax, 5	    ; сдвиг регистра в право на 5 позиции все равно что умножили на 32
+    shl     eax, 5	    ; á¤¢¨£ à¥£¨áâà  ¢ ¯à ¢®   5 ¯®§¨æ¨¨ ¢á¥ à ¢® çâ® ã¬®¦¨«¨   32
     mov     [perem1], eax
     mov     eax, [Lab]
-    shr     eax, 4	    ; сдвиг регистра в лево
+    shr     eax, 4	    ; á¤¢¨£ à¥£¨áâà  ¢ «¥¢®
-    shl     eax, 5	    ; сдвиг обратно (все равно что целочисленное делениена 256)
+    shl     eax, 5	    ; á¤¢¨£ ®¡à â® (¢á¥ à ¢® çâ® æ¥«®ç¨á«¥®¥ ¤¥«¥¨¥  256)
     mov     [perem2], eax
-    shl     eax, 4	    ; все равно что отнимаем от координат ненужный прирост -> У-256*X
+    shl     eax, 4	    ; ¢á¥ à ¢® çâ® ®â¨¬ ¥¬ ®â ª®®à¤¨ â ¥ã¦ë© ¯à¨à®áâ -> -256*X
     sbb  dword [perem1], eax;
   mov	 ebx, [Lab]
 ;*******************************************
-; ВОДА     и  АЛМАЗЫ
+;      ¨
 ;*******************************************
  water:
-   ; вывод воды лабиринта
+   ; ¢ë¢®¤ ¢®¤ë « ¡¨à¨â
    cycle3:
     mov     eax, [Lab]
-    shl     eax, 5	    ; сдвиг регистра в право на 5 позиции все равно что умножили на 32
+    shl     eax, 5	    ; á¤¢¨£ à¥£¨áâà  ¢ ¯à ¢®   5 ¯®§¨æ¨¨ ¢á¥ à ¢® çâ® ã¬®¦¨«¨   32
     mov     [perem1], eax
     mov     eax, [Lab]
-    shr     eax, 4	    ; сдвиг регистра в лево
+    shr     eax, 4	    ; á¤¢¨£ à¥£¨áâà  ¢ «¥¢®
-    shl     eax, 5	    ; сдвиг обратно (все равно что целочисленное делениена 256)
+    shl     eax, 5	    ; á¤¢¨£ ®¡à â® (¢á¥ à ¢® çâ® æ¥«®ç¨á«¥®¥ ¤¥«¥¨¥  256)
     mov     [perem2], eax
-    shl     eax, 4	    ; все равно что отнимаем от координат ненужный прирост -> У-256*X
+    shl     eax, 4	    ; ¢á¥ à ¢® çâ® ®â¨¬ ¥¬ ®â ª®®à¤¨ â ¥ã¦ë© ¯à¨à®áâ -> -256*X
     sbb  dword [perem1], eax;
   mov	 ebx, [Lab]
   sbb	 ebx, 1
-  mov	  eax,[Dangeon + ebx]	 ; берет байт из дангеон + смещение
+  mov	  eax,[Dangeon + ebx]	 ; ¡¥à¥â ¡ ©â ¨§ ¤ £¥® + á¬¥é¥¨¥
    cmp eax, 10
    ja almaz2
-   mov ebp,14 ; кадр
+   mov ebp,14 ; ª ¤à
    mov eax, dword [perem1]
    mov dword [X_anime], eax
    mov eax, dword [perem2]
    mov dword [Y_anime], eax
    almaz2:
    cmp eax, 20
    ja almaz3
-   mov ebp,15 ; кадр
+   mov ebp,15 ; ª ¤à
    mov eax, dword [perem1]
    mov dword [X_anime], eax
    mov eax, dword [perem2]
    mov dword [Y_anime], eax
    call animashka
    jmp end_water
    almaz3:
-   mov ebp,16 ; кадр
+   mov ebp,16 ; ª ¤à
    mov eax, dword [perem1]
    mov dword [X_anime], eax
    mov eax, dword [perem2]
  ret   ; END water
 ;*******************************************
-; Выводим следующий кадр из списка картинок
+; ë¢®¤¨¬ á«¥¤ãîé¨© ª ¤à ¨§ á¯¨áª  ª àâ¨®ª
 ;*******************************************
 draw_subimage:
-  ;aframetoimg Image,32, 32,canvas,0x00ffffff ; НЕВИДИМЫЙ, прозрачный ЦВЕТ ИЛИ НЕ РИСУЕМЫЙ
+  ;aframetoimg Image,32, 32,canvas,0x00ffffff ; , ¯à®§à çë©
   call labirint
   call lestniza
   call enemy_mas
   call enemy_mov
 ;-------------------------------------------------------------------------------
     mov ebx, [gold]
-    cmp bx, 5		;увеличение скорости врагов если украл более 9
+    cmp bx, 5		;ã¢¥«¨ç¥¨¥ áª®à®áâ¨ ¢à £®¢ ¥á«¨ ãªà « ¡®«¥¥ 9
     jna lov_velo
      call enemy_mas
      call enemy_mov
     lov_velo:
 ;-------------------------------------------------------------------------------
 ;-------------------------------------------------------------------------------
     mov ebx, [gold]
-    cmp bx, 9		;увеличение скорости врагов если украл более 9
+    cmp bx, 9		;ã¢¥«¨ç¥¨¥ áª®à®áâ¨ ¢à £®¢ ¥á«¨ ãªà « ¡®«¥¥ 9
     jna lov_velo2
      call enemy_mas
   call bullet_mas
   call proverka_gold
   call potop
-  setimg 6,20,canvas
+  setimg 0,0,canvas
   call timer
   call tablo
 ret
 ;@@@@@@@@@@@@@@@@@@
 animashka:
-;!!!ВАЖНО перед вызовом процедуры должен быть установлен ebx[номер кадра] и x,y
+;!!! ¯¥à¥¤ ¢ë§®¢®¬ ¯à®æ¥¤ãàë ¤®«¦¥ ¡ëâì ãáâ ®¢«¥ ebx[®¬¥à ª ¤à ] ¨ x,y
   mov edi,coords
-  mov esi, Image ; гиф анимашка в памяти
+  mov esi, Image ; £¨ä  ¨¬ èª  ¢ ¯ ¬ïâ¨
 ;
-;  mov ebp, dword [edi+8] ;ecx здесь конкретный номер выводимого кадра
+;  mov ebp, dword [edi+8] ;ecx §¤¥áì ª®ªà¥âë© ®¬¥à ¢ë¢®¤¨¬®£® ª ¤à
-;  inc ebp ; увеличение кадра
+;  inc ebp ; ã¢¥«¨ç¥¨¥ ª ¤à
-;  cmp ebp,3 ;  максимальное количество кадров !!!!!!!
+;  cmp ebp,3 ;  ¬ ªá¨¬ «ì®¥ ª®«¨ç¥áâ¢® ª ¤à®¢ !!!!!!!
-;  jna ok_fr ; если выводимы кадр меньше максимального количества кадров
+;  jna ok_fr ; ¥á«¨ ¢ë¢®¤¨¬ë ª ¤à ¬¥ìè¥ ¬ ªá¨¬ «ì®£® ª®«¨ç¥áâ¢  ª ¤à®¢
-;!!!!!!!!!  mov ebp,2 ;обнуление кадра
+;!!!!!!!!!  mov ebp,2 ;®¡ã«¥¨¥ ª ¤à
 ok_fr:
-  mov dword [edi+8], ebp ;номер выводимого кадра
+  mov dword [edi+8], ebp ;®¬¥à ¢ë¢®¤¨¬®£® ª ¤à
 loo:
-  cmp ebp,0  ; если кадр нулевой то сразу на вывод ?
+  cmp ebp,0  ; ¥á«¨ ª ¤à ã«¥¢®© â® áà §ã   ¢ë¢®¤ ?
   je  setpic
-  movzx eax,word [esi+4]   ; если нет то увеличиваем х у ?
+  movzx eax,word [esi+4]   ; ¥á«¨ ¥â â® ã¢¥«¨ç¨¢ ¥¬ å ã ?
   movzx ebx,word [esi+6]
-  mul ebx ;dword [esi+4] умножает ebx на eax и результат в eax edx
+  mul ebx ;dword [esi+4] ã¬®¦ ¥â ebx   eax ¨ à¥§ã«ìâ â ¢ eax edx
-  mov ebx,3 ; количество кадров ???
+  mov ebx,3 ; ª®«¨ç¥áâ¢® ª ¤à®¢ ???
   mul ebx
   add eax,8
   add esi,eax
   dec ebp
   jmp loo
 setpic:
   pushad
-; aframetoimg esi,dword [edi], dword [edi+4],canvas,0x00ffffff ; НЕВИДИМЫЙ, прозрачный ЦВЕТ ИЛИ НЕ РИСУЕМЫЙ
+; aframetoimg esi,dword [edi], dword [edi+4],canvas,0x00ffffff ; , ¯à®§à çë©
-;  aframetoimg esi,32, 32,canvas,0x00ffffff ; НЕВИДИМЫЙ, прозрачный ЦВЕТ ИЛИ НЕ РИСУЕМЫЙ
+;  aframetoimg esi,32, 32,canvas,0x00ffffff ; , ¯à®§à çë©
      mov     eax,[timer1]    ;
      add     eax, 1;
      mov     [timer1], eax
-     cmp     eax, 64   ;      таймер от 0 до 64
+     cmp     eax, 64   ;      â ©¬¥à ®â 0 ¤® 64
      je nul_timer
      jmp timer_dalee
      nul_timer :
      mov    [timer1], 0
      timer_dalee:
 ;*******************************************
 ; ENEMY
 ;*******************************************
- enemy_mas:	  ; вывод ENEmy    ENEMYYYYYYYYYYYYYYY ENEMYYYYYYYYYYYYYY !!!
+ enemy_mas:	  ; ¢ë¢®¤ ENEmy    ENEMYYYYYYYYYYYYYYY ENEMYYYYYYYYYYYYYY !!!
-  mov word [Lab2], 0 ; все делать в WORD один элемент в массиве +2 следующий враг соотвтетственно 6*2= + 12
+  mov word [Lab2], 0 ; ¢á¥ ¤¥« âì ¢ WORD ®¤¨ í«¥¬¥â ¢ ¬ áá¨¢¥ +2 á«¥¤ãîé¨© ¢à £ á®®â¢â¥âáâ¢¥® 6*2= + 12
  cycle4:
   mov	 ebx, 0
   mov	 ecx, 0
   mov	 edx, 0
   mov	 esi, 0
   mov	 word bx, [Lab2]
-  mov	 word ax,[Enemy+bx]    ; берет байт из Enemy + смещение
+  mov	 word ax,[Enemy+bx]    ; ¡¥à¥â ¡ ©â ¨§ Enemy + á¬¥é¥¨¥
-  cmp  ax, 1   ;   обычный враг номер 1
+  cmp  ax, 1   ;   ®¡ëçë© ¢à £ ®¬¥à 1
   je go_enemy
   jmp end_enemy
   go_enemy:
-  add	 word bx, 2 ; X кооридината данного врага
+  add	 word bx, 2 ; X ª®®à¨¤¨ â  ¤ ®£® ¢à £
   mov	 word ax, [Enemy + bx]
   mov	 word [X_enemy], ax
-  add	 word bx, 2 ; Y кооридината данного врага
+  add	 word bx, 2 ; Y ª®®à¨¤¨ â  ¤ ®£® ¢à £
   mov	 word ax, [Enemy + ebx]
   mov	 word [Y_enemy], ax
-  add	 word bx, 2 ; положение в массиве данного врага
+  add	 word bx, 2 ; ¯®«®¦¥¨¥ ¢ ¬ áá¨¢¥ ¤ ®£® ¢à £
   mov	 word ax, [Enemy + ebx]
   mov	 word [lab_enemy], ax
-  add	 word bx, 2 ; направление движения данного врага
+  add	 word bx, 2 ;  ¯à ¢«¥¨¥ ¤¢¨¦¥¨ï ¤ ®£® ¢à £
   mov	 word ax, [Enemy + ebx]
   mov	 word [mov_enemy], ax
   jmp enemy_2
    enemy_1:
-   mov ebp,0 ; кадр
+   mov ebp,0 ; ª ¤à
    mov eax, dword [X_enemy]
    mov dword [X_anime], eax
    mov eax, dword [Y_enemy]
    mov dword [Y_anime], eax
    call animashka
    jmp enemy_bmp_end
    enemy_2:
-   mov ebp,1 ; кадр
+   mov ebp,1 ; ª ¤à
    mov eax, dword [X_enemy]
 ;$$$$$$$$$$$$$$$$$$$$$$$$$$
 ;   ENEMY MOV
 ;$$$$$$$$$$$$$$$$$$$$$$$$$$
 enemy_mov:
-  mov word [Lab2], 0 ; все делать в WORD один элемент в массиве +2 следующий враг соотвтетственно 6*2= + 12
+  mov word [Lab2], 0 ; ¢á¥ ¤¥« âì ¢ WORD ®¤¨ í«¥¬¥â ¢ ¬ áá¨¢¥ +2 á«¥¤ãîé¨© ¢à £ á®®â¢â¥âáâ¢¥® 6*2= + 12
  cycle5:
   mov	 ebx, 0
   mov	 ecx, 0
   mov	 edx, 0
   mov	 esi, 0
   mov	 word bx, [Lab2]
-  mov	 word ax,[Enemy+bx]    ; берет байт из Enemy + смещение
+  mov	 word ax,[Enemy+bx]    ; ¡¥à¥â ¡ ©â ¨§ Enemy + á¬¥é¥¨¥
-  cmp  ax, 1   ;   обычный враг номер 1
+  cmp  ax, 1   ;   ®¡ëçë© ¢à £ ®¬¥à 1
   je go_mov_enemy
   jmp end_mov_enemy
   go_mov_enemy:
-  add	 word bx, 2 ; X кооридината данного врага
+  add	 word bx, 2 ; X ª®®à¨¤¨ â  ¤ ®£® ¢à £
   mov	 word ax, [Enemy + bx]
   mov	 word [X_enemy], ax
-  add	 word bx, 2 ; Y кооридината данного врага
+  add	 word bx, 2 ; Y ª®®à¨¤¨ â  ¤ ®£® ¢à £
   mov	 word ax, [Enemy + ebx]
   mov	 word [Y_enemy], ax
-  add	 word bx, 2 ; положение в массиве данного врага
+  add	 word bx, 2 ; ¯®«®¦¥¨¥ ¢ ¬ áá¨¢¥ ¤ ®£® ¢à £
   mov	 word ax, [Enemy + ebx]
   mov	 word [lab_enemy], ax
-  add	 word bx, 2 ; направление движения данного врага
+  add	 word bx, 2 ;  ¯à ¢«¥¨¥ ¤¢¨¦¥¨ï ¤ ®£® ¢à £
   mov	 word ax, [Enemy + ebx]
   mov	 word [mov_enemy], ax
   add	 word bx, 2 ; enemy LIFE
   mov	 word ax, [Enemy + ebx]
   mov	 word [life_enemy], ax
-  cmp  ax, 499;            ; замороженные враги
+  cmp  ax, 499;            ; § ¬®à®¦¥ë¥ ¢à £¨
 	  call load_level  ; DEAD HIRO
 	  delay 150
        ne_em:
-     ;Блок попадания 1 пули
+     ;«®ª ¯®¯ ¤ ¨ï 1 ¯ã«¨
   mov	 word bx, 0
   mov	 word ax,[Bullet + ebx]
   cmp ax, 0
     no_bullet:
      ;БЛОК ПРИРОСТА ДВИЖЕНИЯ ВРАГОВ
 	mov word ax, [mov_enemy]		      ;
 	cmp ax, 1	     ; left                   ;
 	jne next_2				      ;
 	  sbb	 word [X_enemy], 1		      ;
 	  mov	 word ax, [X_enemy]		      ;
 	  mov	 word bx, [Lab2]		      ;
-	  add	 word bx, 2 ; X кооридината данного врага
+	  add	 word bx, 2 ; X ª®®à¨¤¨ â  ¤ ®£® ¢à £
 	  mov	 word [Enemy + bx], ax		      ;
+						      ;
 	next_2: 				      ;
 	cmp ax, 2	     ; down                   ;
 	jne next_3				      ;
 	  add	 word [Y_enemy], 1		      ;
 	  mov	 word ax, [Y_enemy]		      ;
 	  mov	 word bx, [Lab2]		      ;
-	  add	 word bx, 4 ; Y кооридината данного врага
+	  add	 word bx, 4 ; Y ª®®à¨¤¨ â  ¤ ®£® ¢à £
 	  mov	 word [Enemy + bx], ax		      ;
+						      ;
 	next_3: 				      ;
 	cmp ax, 3	     ; up                     ;
 	jne next_4				      ;
 	  sbb	 word [Y_enemy], 1		      ;
 	  mov	 word ax, [Y_enemy]		      ;
 	  mov	 word bx, [Lab2]		      ;
-	  add	 word bx, 4 ; Y кооридината данного врага
+	  add	 word bx, 4 ; Y ª®®à¨¤¨ â  ¤ ®£® ¢à £
 	  mov	 word [Enemy + bx], ax		      ;
+						      ;
 	next_4: 				      ;
 	cmp ax, 4	     ; right                  ;
 	jne next_end
-	     ;Гравитационная заплатка   лечит трабл - когда враг двигается слева на право то пролетает один пустой блок
+	     ;à ¢¨â æ¨® ï § ¯« âª    «¥ç¨â âà ¡« - ª®£¤  ¢à £ ¤¢¨£ ¥âáï á«¥¢    ¯à ¢® â® ¯à®«¥â ¥â ®¤¨ ¯ãáâ®© ¡«®ª
-	      mov word bx, [X_enemy] ; Это условие позволяет добежать до позиции напротив блока
+	      mov word bx, [X_enemy] ; â® ãá«®¢¨¥ ¯®§¢®«ï¥â ¤®¡¥¦ âì ¤® ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
-	      and ebx, 31    ; X в позиции напротив блока
+	      and ebx, 31    ; X ¢ ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
 	      cmp bx, 0     ;
 	      jne n4_dalee   ;
 		mov    bx,[lab_enemy]
 		add    bx,16
 		mov    ax, [Dangeon + bx]
 		and   eax,15
 		 cmp word ax, 0
 		 je next_end
 		 cmp word ax, 4
 		 je next_end
-	      ;конец заплатки
+	      ;ª®¥æ § ¯« âª¨
 	   n4_dalee:
 	;
 	  add	 word [X_enemy], 1		      ;
 	  mov	 word ax, [X_enemy]		      ;
 	  mov	 word bx, [Lab2]		      ;
-	  add	 word bx, 2 ; X кооридината данного врага
+	  add	 word bx, 2 ; X ª®®à¨¤¨ â  ¤ ®£® ¢à £
 	  mov	 word [Enemy + bx], ax		      ;
 						      ;
 	next_end:
-	  ;END БЛОК ПРИРОСТА ДВИЖЕНИЯ ВРАГ
+	  ;END
+	  ;
-     ;  Рандомный выбор на леснице
+     ;   ¤®¬ë© ¢ë¡®à   «¥á¨æ¥
-	mov word bx, [X_enemy] ; Это условие позволяет добежать до позиции напротив блока
+	mov word bx, [X_enemy] ; â® ãá«®¢¨¥ ¯®§¢®«ï¥â ¤®¡¥¦ âì ¤® ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
-	and ebx, 31    ; X в позиции напротив блока
+	and ebx, 31    ; X ¢ ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
 	cmp bx, 0     ;
 		mov eax, [Ypl]
 		cmp eax, [Y_enemy]
 		jna bolee
-		mov    word [mov_enemy],2		    ; вниз
+		mov    word [mov_enemy],2		    ; ¢¨§
 		mov    word ax, [mov_enemy]		    ;
 		mov    word bx, [Lab2]			    ;
-		add    word bx, 8  ; направление движения данного врага
+		add    word bx, 8  ;  ¯à ¢«¥¨¥ ¤¢¨¦¥¨ï ¤ ®£® ¢à £
 		mov    word [Enemy + bx], ax		    ;
 		jmp end_les
 		bolee:
 		mov    word [mov_enemy],3		    ; up
 		mov    word ax, [mov_enemy]		    ;
 		mov    word bx, [Lab2]			    ;
-		add    word bx, 8  ; направление движения данного врага
+		add    word bx, 8  ;  ¯à ¢«¥¨¥ ¤¢¨¦¥¨ï ¤ ®£® ¢à £
 		mov    word [Enemy + bx], ax		    ;
 		jmp end_les
 		mov eax, [Xpl]
 		cmp eax, [X_enemy]
 		jna bolee2
-		mov    word [mov_enemy],4		    ; вниз
+		mov    word [mov_enemy],4		    ; ¢¨§
 		mov    word ax, [mov_enemy]		    ;
 		mov    word bx, [Lab2]			    ;
-		add    word bx, 8  ; направление движения данного врага
+		add    word bx, 8  ;  ¯à ¢«¥¨¥ ¤¢¨¦¥¨ï ¤ ®£® ¢à £
 		mov    word [Enemy + bx], ax		    ;
 		jmp end_les
 		bolee2:
 		mov    word [mov_enemy],1		    ; up
 		mov    word ax, [mov_enemy]		    ;
 		mov    word bx, [Lab2]			    ;
-		add    word bx, 8  ; направление движения данного врага
+		add    word bx, 8  ;  ¯à ¢«¥¨¥ ¤¢¨¦¥¨ï ¤ ®£® ¢à £
 		mov    word [Enemy + bx], ax		    ;
 	end_les:
-     ;  end Рандомный выбор на леснице
+     ;  end  ¤®¬ë© ¢ë¡®à   «¥á¨æ¥
-     ;Гравитация
+     ;à ¢¨â æ¨ï
-	mov word bx, [X_enemy] ; Это условие позволяет добежать до позиции напротив блока
+	mov word bx, [X_enemy] ; â® ãá«®¢¨¥ ¯®§¢®«ï¥â ¤®¡¥¦ âì ¤® ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
-	and ebx, 31    ; X в позиции напротив блока
+	and ebx, 31    ; X ¢ ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
 	cmp bx, 0     ;
 		 cmp word ax, 4
 		 je grava
 		 jmp end_grava
 		grava:
-		mov    word [mov_enemy], 2		    ; padenie ВРАГА
+		mov    word [mov_enemy], 2		    ; padenie
 		mov    word ax, [mov_enemy]		    ;
 		mov    word bx, [Lab2]			    ;
-		add    word bx, 8  ; направление движения данного врага
+		add    word bx, 8  ;  ¯à ¢«¥¨¥ ¤¢¨¦¥¨ï ¤ ®£® ¢à £
 		mov    word [Enemy + bx], ax		    ;
 	end_grava:
-     ;конец гравитации
+     ;ª®¥æ £à ¢¨â æ¨¨
-	  ;блок расчета положения врага в лабиринте
+	  ;¡«®ª à áç¥â  ¯®«®¦¥¨ï ¢à £  ¢ « ¡¨à¨â¥
 	    mov eax, 0				  ;
 	    mov eax, [Y_enemy]			      ;
 	    shr eax, 5				  ;
 	    shl eax, 4				  ;
 	    mov ebx, 0				  ;
 	    mov ebx, [X_enemy]			      ;
 	    shr ebx, 5				  ;
 	    add eax, ebx			  ;
 	    mov [lab_enemy], eax		   ;
 		mov    word bx, [Lab2]			    ;
-		add    word bx, 6  ; направление движения данного врага
+		add    word bx, 6  ;  ¯à ¢«¥¨¥ ¤¢¨¦¥¨ï ¤ ®£® ¢à £
 		mov    word [Enemy + bx], ax		    ;
-	  ;блок расчета положения врага в лабиринте
+	  ;¡«®ª à áç¥â  ¯®«®¦¥¨ï ¢à £  ¢ « ¡¨à¨â¥
-       ;БЛОК ЗПАПРЕТА ДВижения
+       ;  ¨¦¥¨ï
-	mov word bx, [Y_enemy] ; Это условие позволяет добежать до позиции напротив блока
+	mov word bx, [Y_enemy] ; â® ãá«®¢¨¥ ¯®§¢®«ï¥â ¤®¡¥¦ âì ¤® ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
-	and bx, 31    ; Y в позиции напротив блока
+	and bx, 31    ; Y ¢ ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
 	cmp bx, 0     ;
 	jne end_zapret	 ;
-	   mov word ax, [X_enemy] ; Это условие позволяет добежать до позиции напротив блока
+	   mov word ax, [X_enemy] ; â® ãá«®¢¨¥ ¯®§¢®«ï¥â ¤®¡¥¦ âì ¤® ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
-	   and ax, 31	 ; X в позиции напротив блока
+	   and ax, 31	 ; X ¢ ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
 	   cmp ax, 0	 ;
 	   jne end_zapret   ;
-	      mov word ax, [mov_enemy] ; Это условие позволяет добежать до позиции напротив блока
+	      mov word ax, [mov_enemy] ; â® ãá«®¢¨¥ ¯®§¢®«ï¥â ¤®¡¥¦ âì ¤® ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
 	      cmp ax, 0
 	      jne duma1
-		    ; Рандомный выбор движения
+		    ;  ¤®¬ë© ¢ë¡®à ¤¢¨¦¥¨ï
 		 mov eax, [timer1]
 		 and eax, 3
 		 cmp eax, 0
 		 jne dalee_duma1
 		 add eax, 4
 		 dalee_duma1:
 		mov    word [mov_enemy], ax		     ;
 		mov    word ax, [mov_enemy]		    ;
 		mov    word bx, [Lab2]			    ;
-		add    word bx, 8  ; направление движения данного врага
+		add    word bx, 8  ;  ¯à ¢«¥¨¥ ¤¢¨¦¥¨ï ¤ ®£® ¢à £
 		mov    word [Enemy + bx], ax		    ;
 	      duma1:
 	      cmp ax, 4
-	      jne duma2  ; прверка справа
+	      jne duma2  ; ¯à¢¥àª  á¯à ¢
 		mov    bx,[lab_enemy]
 		add    bx,1
 		mov    ax, [Dangeon + bx]
 		and   eax,3
 		 cmp ax, 0
 		 jne duma_stop
 		 jmp duma_end
 	      duma2:
 	      cmp ax, 1
-	      jne duma3  ; слева
+	      jne duma3  ; á«¥¢
 		mov    bx,[lab_enemy]
 		sbb    bx,1
 		mov    ax, [Dangeon + bx]
 		and   eax,3
 		 cmp ax, 0
 		 jne duma_stop
 		 jmp duma_end
 	      duma3:
 	      cmp ax, 2
-	      jne duma4  ; снизу
+	      jne duma4  ; á¨§ã
 		mov    bx,[lab_enemy]
 		add    bx,16
 		mov    ax, [Dangeon + bx]
 		and   eax,3
 		 cmp ax, 0
 		 jne duma_stop
 		 jmp duma_end
 	      duma4:
 	      cmp ax, 3
-	      jne duma_stop  ; сверху
+	      jne duma_stop  ; á¢¥àåã
-		mov    bx,[lab_enemy]	  ; если кирпич над головой
+		mov    bx,[lab_enemy]	  ; ¥á«¨ ª¨à¯¨ç  ¤ £®«®¢®©
 		sbb    bx,16
 		mov    ax, [Dangeon + bx]
 		and   eax,3
-		 cmp ax, 0		  ; если кирпич над головой
+		 cmp ax, 0		  ; ¥á«¨ ª¨à¯¨ç  ¤ £®«®¢®©
 		 jne duma_stop
 ;*****************************
  hiro:
-  mov ecx, [v_fire]   ;стрельба
+  mov ecx, [v_fire]   ;áâà¥«ì¡
   cmp ecx, 0
   je  next_anima
       cmp ecx, 1
 	je wprawo
-	 mov ebp,12 ; кадр
+	 mov ebp,12 ; ª ¤à
 	 mov eax, dword [Xpl]
 	 mov dword [X_anime], eax
 	 mov eax, dword [Ypl]
 	 mov dword [Y_anime], eax
 	 call animashka
-	     mov ecx, [timer1]	 ;стрельба
+	     mov ecx, [timer1]	 ;áâà¥«ì¡
 	     and ecx, 15
 	     cmp ecx, 0
 	     jne  end_hiro
 	      mov dword [v_fire], 0
 	  jmp end_hiro
 	 wprawo:
-	 mov ebp,11 ; кадр
+	 mov ebp,11 ; ª ¤à
 	 mov eax, dword [Xpl]
 	 mov dword [X_anime], eax
 	 mov eax, dword [Ypl]
 	 mov dword [Y_anime], eax
 	 call animashka
-	     mov ecx, [timer1]	 ;стрельба
+	     mov ecx, [timer1]	 ;áâà¥«ì¡
 	     and ecx, 15
 	     cmp ecx, 0
 	     jne  end_hiro
 	      mov dword [v_fire], 0
 	  jmp end_hiro
-		      ;стрельба
+		      ;áâà¥«ì¡
    jmp end_hiro
   and  eax, 15
   cmp  eax, 7	;
   ja next_l1
-   mov ebp,3 ; кадр
+   mov ebp,3 ; ª ¤à
    mov eax, dword [Xpl]
    mov dword [X_anime], eax
    mov eax, dword [Ypl]
    mov dword [Y_anime], eax
    call animashka
    jmp end_hiro
    next_l1:
-   mov ebp,5 ; кадр
+   mov ebp,5 ; ª ¤à
    mov eax, dword [Xpl]
    mov dword [X_anime], eax
    mov eax, dword [Ypl]
    mov dword [Y_anime], eax
    call animashka
        pusha
-       mcall 55, eax, , , Music_mov   ; звук выстрела
+       mcall 55, eax, , , Music_mov   ; §¢ãª ¢ëáâà¥«
        popa
   and  eax, 15
   cmp  eax, 7	;
   ja next_d1
-   mov ebp,4 ; кадр
+   mov ebp,4 ; ª ¤à
    mov eax, dword [Xpl]
    mov dword [X_anime], eax
    mov eax, dword [Ypl]
    mov dword [Y_anime], eax
    call animashka
        pusha
-       mcall 55, eax, , , Music_mov   ; звук выстрела
+       mcall 55, eax, , , Music_mov   ; §¢ãª ¢ëáâà¥«
        popa
    jmp end_hiro
    next_d1:
-   mov ebp,6 ; кадр
+   mov ebp,6 ; ª ¤à
    mov eax, dword [Xpl]
    mov dword [X_anime], eax
    mov eax, dword [Ypl]
   next_d:
   cmp eax, 2
   jne next_u
-   mov ebp,13 ; кадр
+   mov ebp,13 ; ª ¤à
     mov eax, [temp2]
     cmp eax, 8
     jne padaem
-   mov ebp,10 ; кадр
+   mov ebp,10 ; ª ¤à
     padaem:
     mov eax, [temp5]
     cmp eax, 8
     jne padaem2
-   mov ebp,10 ; кадр
+   mov ebp,10 ; ª ¤à
     padaem2:
    mov eax, dword [Xpl]
    mov dword [X_anime], eax
    mov eax, dword [Ypl]
    mov dword [Y_anime], eax
   and  eax, 15
   cmp  eax, 7	;
   ja next_u1
-   mov ebp,10 ; кадр
+   mov ebp,10 ; ª ¤à
    mov eax, dword [Xpl]
    mov dword [X_anime], eax
    mov eax, dword [Ypl]
    mov dword [Y_anime], eax
    call animashka
    jmp end_hiro
    next_u1:
-   mov ebp,9 ; кадр
+   mov ebp,9 ; ª ¤à
    mov eax, dword [Xpl]
    mov dword [X_anime], eax
    mov eax, dword [Ypl]
    mov dword [Y_anime], eax
   next_s:
   cmp eax, 0
   jne next_s
-   mov ebp,17; кадр
+   mov ebp,17; ª ¤à
    mov eax, dword [Xpl]
    mov dword [X_anime], eax
    mov eax, dword [Ypl]
    mov dword [Y_anime], eax
    call animashka
 ;  Hiro MOV
 ;****************
 hiro_mov:
-     ;ПРЕГРАД
+     ;
-       ; вычисление соседних блоков
+       ; ¢ëç¨á«¥¨¥ á®á¥¤¨å ¡«®ª®¢
        mov    ebx, [hiro_lab]
        sbb    ebx,2
        mov    eax,[Dangeon + bx]    ;                 up
        mov    [temp1], ah	    ;               temp4
+				    ;
        add    ebx,1		    ;        left    hiro  right
        mov    eax,[Dangeon + bx]    ;       temp1   temp2  temp3
        mov    [temp2], ah	    ;
 ;-------------------------------------------------------------------------------
-;     Сбор алмазов
+;     ¡®à  «¬ §®¢
 ;-------------------------------------------------------------------------------
-	mov ecx, [Ypl] ; Это условие позволяет добежать до позиции напротив блока
+	mov ecx, [Ypl] ; â® ãá«®¢¨¥ ¯®§¢®«ï¥â ¤®¡¥¦ âì ¤® ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
-	and ecx, 31    ; Y в позиции напротив блока
+	and ecx, 31    ; Y ¢ ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
-	mov edx, [Xpl] ; Это условие позволяет добежать до позиции напротив блока
+	mov edx, [Xpl] ; â® ãá«®¢¨¥ ¯®§¢®«ï¥â ¤®¡¥¦ âì ¤® ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
-	and edx, 31    ; Y в позиции напротив блока
+	and edx, 31    ; Y ¢ ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
-	or edx,ecx ; Мы четко спозиционированы по Х и У
+	or edx,ecx ; ë ç¥âª® á¯®§¨æ¨®¨à®¢ ë ¯®  ¨
 	cmp edx, 0
 	jne no_almaz
 	  cmp ah, 12
 	  jne no_almaz
 	  xor cx, cx
-	  add ebx,1  ; ЗАПЛАТКА !!!  без нее почемуто обнуляет не алмазы а соседние блоки
+	  add ebx,1  ;  !!!  ¡¥§ ¥¥ ¯®ç¥¬ãâ® ®¡ã«ï¥â ¥  «¬ §ë   á®á¥¤¨¥ ¡«®ª¨
 	  mov  [Dangeon + bx], ch
-	  sbb ebx, 1  ; ЗАПЛАТКА !!!
+	  sbb ebx, 1  ;  !!!
 	  mov ecx, [gold]
 	  add ecx, 1
 	  mov [gold], ecx
        pusha
-       mcall 55, eax, , , Music_almaz	; звук Almaz
+       mcall 55, eax, , , Music_almaz	; §¢ãª Almaz
        popa
 	  no_almaz:
 ;-------------------------------------------------------------------------------
-;     Сбор алмазов
+;     ¡®à  «¬ §®¢
 ;-------------------------------------------------------------------------------
 				    ;                down
        add    ebx,1		    ;               temp5
        mov    eax,[Dangeon + bx]    ;
        mov    [temp3], ah
        sbb    ebx,17		    ; !!!!!!!!!!!!
-       mov    eax,[Dangeon + bx]    ; при отсутствии библиотеки  MACROS.INC   ebx=17 , при ее присутствии ebx=16
+       mov    eax,[Dangeon + bx]    ; ¯à¨ ®âáãâáâ¢¨¨ ¡¨¡«¨®â¥ª¨  MACROS.INC   ebx=17 , ¯à¨ ¥¥ ¯à¨áãâáâ¢¨¨ ebx=16
        mov    [temp4], ah
        add    ebx,32		    ;
        mov    eax,[Dangeon + bx]    ;
        mov    [temp5], ah
-       ; вычисление соседних блоков
+       ; ¢ëç¨á«¥¨¥ á®á¥¤¨å ¡«®ª®¢
-     ;разрешение на движение
+     ;à §à¥è¥¨¥   ¤¢¨¦¥¨¥
      mov     eax,0		;
 	 and	 eax,2
 	 cmp eax, 0
 	 je smena2
-	 mov ebx, [Xpl] ; Это условие позволяет добежать до позиции напротив блока
+	 mov ebx, [Xpl] ; â® ãá«®¢¨¥ ¯®§¢®«ï¥â ¤®¡¥¦ âì ¤® ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
-	 and ebx, 31	; X в позиции напротив блока
+	 and ebx, 31	; X ¢ ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
 	 cmp ebx, 0	;
 	 jne end_tamgna   ;
 	  smena2:
 	  mov eax, [v_mov2]
 	  and eax, 7
 	  mov [v_mov], eax
      end_tamgna:
-     ;разрешение на движение
+     ;à §à¥è¥¨¥   ¤¢¨¦¥¨¥
      ;УПИРАНИЕ В ПРЕГРАДУ
 	mov ebx, [Ypl] ;
-	and ebx, 31    ; Y в позиции напротив блока
+	and ebx, 31    ; Y ¢ ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
 	cmp ebx, 0     ;
 	jne end_stop   ;
-	mov eax, [Xpl] ; без макроса этого блока не было он был внутри блока упираний
+	mov eax, [Xpl] ; ¡¥§ ¬ ªà®á  íâ®£® ¡«®ª  ¥ ¡ë«® ® ¡ë« ¢ãâà¨ ¡«®ª  ã¯¨à ¨©
-	and eax, 31    ; X в позиции напротив блока
+	and eax, 31    ; X ¢ ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
 	cmp eax, 0     ;
 	jne end_stop   ;
      mov eax, [v_mov]
      cmp  eax, 2
        je stop_d
        jmp stop_u
        stop_d:
 	mov ebx, [temp4]
 	and ebx,3
 	and eax, ebx
-    ;    mov ebx, [Ypl] ; Это условие позволяет добежать до позиции напротив блока
+    ;    mov ebx, [Ypl] ; â® ãá«®¢¨¥ ¯®§¢®«ï¥â ¤®¡¥¦ âì ¤® ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
-    ;    and ebx, 31    ; Y в позиции напротив блока
+    ;    and ebx, 31    ; Y ¢ ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
     ;    cmp ebx, 0     ;
     ;    jne end_stop   ;
 	mov ebx, [temp1]
 	and ebx,3
-    ;    mov eax, [Xpl] ; Это условие позволяет добежать до позиции напротив блока
+    ;    mov eax, [Xpl] ; â® ãá«®¢¨¥ ¯®§¢®«ï¥â ¤®¡¥¦ âì ¤® ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
-    ;    and eax, 31    ; Y в позиции напротив блока
+    ;    and eax, 31    ; Y ¢ ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
     ;    cmp eax, 0     ;
     ;    jne end_stop   ;
 	  mov ebx, 0
 	  mov [v_mov], ebx
       end_stop:
-     ;ПРЕГРАДЫ
+     ;
      ;GRAVITACION
-	mov ebx, [Ypl] ; Это условие позволяет добежать до позиции напротив блока
+	mov ebx, [Ypl] ; â® ãá«®¢¨¥ ¯®§¢®«ï¥â ¤®¡¥¦ âì ¤® ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
-	and ebx, 31    ; Y в позиции напротив блока
+	and ebx, 31    ; Y ¢ ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
-	mov eax, [Xpl] ; Это условие позволяет добежать до позиции напротив блока
+	mov eax, [Xpl] ; â® ãá«®¢¨¥ ¯®§¢®«ï¥â ¤®¡¥¦ âì ¤® ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
-	and eax, 31    ; Y в позиции напротив блока
+	and eax, 31    ; Y ¢ ¯®§¨æ¨¨  ¯à®â¨¢ ¡«®ª
-	or eax,ebx ; Мы четко спозиционированы по Х и У
+	or eax,ebx ; ë ç¥âª® á¯®§¨æ¨®¨à®¢ ë ¯®  ¨
 	cmp eax, 0
 	jne end_grav
 	  mov ebx, [temp2]    ;
-	  cmp ebx, 0	      ; запрет на прыжки вверх
+	  cmp ebx, 0	      ; § ¯à¥â   ¯àë¦ª¨ ¢¢¥àå
 	  jne end_grav	      ;
 	 mov [v_mov2],ebx     ;
 	dalee_gra:
 	add eax, [temp5]       ;
-	cmp eax, 0	       ; падение в пустоту
+	cmp eax, 0	       ; ¯ ¤¥¨¥ ¢ ¯ãáâ®âã
 	 jne dalee_g	       ;
 	 mov eax, 2	       ;
 	 mov [v_mov],eax       ;
 	 mov eax, 0	       ;
 	 mov [v_mov2],eax      ;
 	 dalee_g:
 	cmp eax, 4	       ;
-	 jne dalee_g2	       ; падение в воду
+	 jne dalee_g2	       ; ¯ ¤¥¨¥ ¢ ¢®¤ã
 	 mov eax, 2	       ;
 	 mov [v_mov],eax       ;
 	 mov eax, 0	       ;
 	 mov [v_mov2],eax      ;
 	 dalee_g2:
 	cmp eax, 12		;
-	 jne end_grav	       ; падение на алмаз
+	 jne end_grav	       ; ¯ ¤¥¨¥    «¬ §
 	 mov eax, 2	       ;
 	 mov [v_mov],eax       ;
      ; ПРИРОСТ КООРДИНАТ ГЕРОЯ
      mov     eax,0		;
      mov     eax,[v_mov]	;
 	h_right:		;
 	 mov ebx, [Xpl] 	;
 	 add ebx, 2		;
 	 mov [Xpl], ebx 	;
-    jmp hiro_mov_end	       ;прирост
+    jmp hiro_mov_end	       ;¯à¨à®áâ
-     ; ПРИРОСТ КООРДИНАТ ГЕРОЯ
+     ;
     hiro_mov_end:
-    ; вычисляем положение героя в лабиринте
+    ; ¢ëç¨á«ï¥¬ ¯®«®¦¥¨¥ £¥à®ï ¢ « ¡¨à¨â¥
     mov eax, 0				  ;
     mov dword eax, [Ypl]			;
     shr eax, 5				  ;
     shl eax, 4				  ;
     mov ebx, 0				  ;
     mov dword ebx, [Xpl]			;
     shr ebx, 5				  ;
     add eax, ebx			  ;
     mov [hiro_lab], eax 		  ;
-    ; вычисляем положение героя в лабиринте
+    ; ¢ëç¨á«ï¥¬ ¯®«®¦¥¨¥ £¥à®ï ¢ « ¡¨à¨â¥
 ret
 ;****************
 ;  end Hiro mov
 ;****************
 ;*******************************************
 ; BULLET
 ;*******************************************
  bullet_mas:
-  mov word [Lab3], 0 ; все делать в WORD один элемент в массиве +2 следующий враг соотвтетственно 6*2= + 12
+  mov word [Lab3], 0 ; ¢á¥ ¤¥« âì ¢ WORD ®¤¨ í«¥¬¥â ¢ ¬ áá¨¢¥ +2 á«¥¤ãîé¨© ¢à £ á®®â¢â¥âáâ¢¥® 6*2= + 12
  cycle7:
   mov	 word bx, [Lab3]
-  mov	 word ax, [Bullet+bx]	 ; берет байт из Enemy + смещение
+  mov	 word ax, [Bullet+bx]	 ; ¡¥à¥â ¡ ©â ¨§ Enemy + á¬¥é¥¨¥
   cmp  ax, 1   ;   bullet ok
   je go_bullet
   jmp end_bullet
   go_bullet:
-  add	 word bx, 2 ; X кооридината данного врага
+  add	 word bx, 2 ; X ª®®à¨¤¨ â  ¤ ®£® ¢à £
   mov	 word ax, [Bullet + bx]
 ;*******************************************
 ; BULLET MOV
 ;*******************************************
  bullet_mov:
-  mov word [Lab3], 0 ; все делать в WORD один элемент в массиве +2 следующий враг соотвтетственно 6*2= + 12
+  mov word [Lab3], 0 ; ¢á¥ ¤¥« âì ¢ WORD ®¤¨ í«¥¬¥â ¢ ¬ áá¨¢¥ +2 á«¥¤ãîé¨© ¢à £ á®®â¢â¥âáâ¢¥® 6*2= + 12
  cycle8:
   mov	 word bx, [Lab3]
-  mov	 word ax, [Bullet+bx]	 ; берет байт из Enemy + смещение
+  mov	 word ax, [Bullet+bx]	 ; ¡¥à¥â ¡ ©â ¨§ Enemy + á¬¥é¥¨¥
   cmp  ax, 1   ;   bullet ok
   je go_bullet_mov
   jmp end_bullet_mov
   go_bullet_mov:
-  add	 word bx, 2 ; X кооридината данного врага
+  add	 word bx, 2 ; X ª®®à¨¤¨ â  ¤ ®£® ¢à £
   mov	 word ax, [Bullet + bx]
   mov	 word [X_bul], ax
       mov word [Bullet + bx], ax
     end_bullet_mov:
-    ; вычисляем положение BULLET в лабиринте
+    ; ¢ëç¨á«ï¥¬ ¯®«®¦¥¨¥ BULLET ¢ « ¡¨à¨â¥
     mov eax, 0				  ;
     mov eax, [Y_bul]			  ;
     shr eax, 5				  ;
     shl eax, 4				  ;
     mov ebx, 0				  ;
     mov ebx, [X_bul]			  ;
     shr ebx, 5				  ;
     add eax, ebx			  ;
     mov [lab_bullet], ax		   ;
-    ; вычисляем положение BULLET в лабиринте
+    ; ¢ëç¨á«ï¥¬ ¯®«®¦¥¨¥ BULLET ¢ « ¡¨à¨â¥
 		mov    word bx,[lab_bullet]
 		mov    dx, [Dangeon + bx]
 		and   edx,3
 		 cmp dx, 0
 		 je letit_dalee
 		 cmp dx, 2
 		 je beton
-		   mov	  byte [Dangeon + bx], 3    ; РАЗРУШЕНИЕ КИРПИЧЕЙ
+		   mov	  byte [Dangeon + bx], 3    ;
   mov  cx, [Bullet + ebx]
   cmp cx, 0
    jne end_fire
        pusha
-       mcall 55, eax, , , Music_bah   ; звук выстрела
+       mcall 55, eax, , , Music_bah   ; §¢ãª ¢ëáâà¥«
        popa
   mov	 byte [Bullet + ebx], 1
-  add	 word bx, 2 ; X кооридината данного врага
+  add	 word bx, 2 ; X ª®®à¨¤¨ â  ¤ ®£® ¢à £
   mov	 ax, [Xpl]
   add	 ax, 8
   mov	 word [Bullet + ebx],ax
-  add	 word bx, 2 ; X кооридината данного врага
+  add	 word bx, 2 ; X ª®®à¨¤¨ â  ¤ ®£® ¢à £
   mov	 ax, [Ypl]
   add	 ax, 16
 ret
 ;-------------------------------------------------------------------------------
-;------------------------Загрузка уровней---------------------------------------
+;------------------------ £àã§ª  ãà®¢¥©---------------------------------------
 load_level:
     imgtoimg img_level,32,32,canvas
-  setimg 6,20,canvas
+  setimg 0,0,canvas
     xor eax,eax
     xor ebx,ebx
     mov [Y_bul], eax
     mov [gold], eax
     mov dword [Xpl], 32
     mov dword [Ypl], 448
-    mov dword [hiro_lab],0 ; проекция героя в лабиринт
+    mov dword [hiro_lab],0 ; ¯à®¥ªæ¨ï £¥à®ï ¢ « ¡¨à¨â
     mov dword [v_mov], 0
     mov dword [v_mov2], 0
     mov dword [v_fire], 0
     xor eax,eax
      xor ebx, ebx
      mov    ebx, [Lab]
      add ebx, [delta_level]
-     mov     ax,[Dangeon2 + ebx]    ; берет байт из дангеон + смещение
+     mov     ax,[Dangeon2 + ebx]    ; ¡¥à¥â ¡ ©â ¨§ ¤ £¥® + á¬¥é¥¨¥
      sbb ebx, [delta_level]
-     mov      [Dangeon + ebx], ax    ; берет байт из дангеон + смещение
+     mov      [Dangeon + ebx], ax    ; ¡¥à¥â ¡ ©â ¨§ ¤ £¥® + á¬¥é¥¨¥
      add word [Lab],1
      mov     eax, [Lab]
 proverka_gold:
 mov eax, [gold]
  cmp ax, 10
   jna net_deneg
-   mov eax, [temp2] ; добежать до двери
+   mov eax, [temp2] ; ¤®¡¥¦ âì ¤® ¤¢¥à¨
    cmp ax, 16
     jne net_deneg
-       mov ax, [numer_level]  ; увеличение левела
+       mov ax, [numer_level]  ; ã¢¥«¨ç¥¨¥ «¥¢¥«
        add ax, 1
        mov [numer_level],  ax
        mov [demon_kolvo], ax   ;
   net_deneg:
 ret
 ;-------------------------------------------------------------------------------
 ; УТОП
 potop:
-   mov eax, [temp2] ; добежать до двери
+   mov eax, [temp2] ; ¤®¡¥¦ âì ¤® ¤¢¥à¨
    cmp ax, 4
     jne jiwoy
-       mov dword [gold], 0  ; увеличение левела
+       mov dword [gold], 0  ; ã¢¥«¨ç¥¨¥ «¥¢¥«
      call load_level
      delay 100
    jiwoy:
 ret
 ;************************************
-;положение врагов на новом уровне
+;¯®«®¦¥¨¥ ¢à £®¢   ®¢®¬ ãà®¢¥
 enemy_plaz:
-  mov word [Lab2], 0 ; все делать в WORD один элемент в массиве +2 следующий враг соотвтетственно 6*2= + 12
+  mov word [Lab2], 0 ; ¢á¥ ¤¥« âì ¢ WORD ®¤¨ í«¥¬¥â ¢ ¬ áá¨¢¥ +2 á«¥¤ãîé¨© ¢à £ á®®â¢â¥âáâ¢¥® 6*2= + 12
   mov ax, [demon_kolvo]
 	  random 14, eax
 	  add eax, 1
 	  shl eax,5
 	  mov	 word bx, [Lab2]		      ;
-	  add	 word bx, 2 ; X кооридината данного врага
+	  add	 word bx, 2 ; X ª®®à¨¤¨ â  ¤ ®£® ¢à £
 	  mov	 word [Enemy + bx], ax		      ;
+						      ;
 	  random 12, eax
 	  add eax, 1
 	  shl eax,5
 	  mov	 word bx, [Lab2]		      ;
-	  add	 word bx, 4 ; Y кооридината данного врага
+	  add	 word bx, 4 ; Y ª®®à¨¤¨ â  ¤ ®£® ¢à £
 	  mov	 word [Enemy + bx], ax		      ;
 	  mov	 word bx, [Lab2]		      ;
-	  add	 word bx, 8 ; направление движения
+	  add	 word bx, 8 ;  ¯à ¢«¥¨¥ ¤¢¨¦¥¨ï
 	  mov	 word [Enemy + bx], 0		     ;
-	  add	 word bx, 2 ; жизнь
+	  add	 word bx, 2 ; ¦¨§ì
 	  mov	 word [Enemy + bx], 500 	      ;
 ret
-I_END:	; конец программы
+I_END:	; ª®¥æ ¯à®£à ¬¬ë
 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-  Xpl:	     dd 32  ; координаты героя
+  Xpl:	     dd 32  ; ª®®à¤¨ âë £¥à®ï
   Ypl:	     dd 448
-  hiro_lab:  dd 0 ; проекция героя в лабиринт
+  hiro_lab:  dd 0 ; ¯à®¥ªæ¨ï £¥à®ï ¢ « ¡¨à¨â
   mov_enemy:	dw 0
   lab_enemy:	dw 0
   life_enemy:	 dw 0
-  anime : dd 0 ; переменная для анимации героя и пр
+  anime : dd 0 ; ¯¥à¥¬¥ ï ¤«ï  ¨¬ æ¨¨ £¥à®ï ¨ ¯à
-  anime2 : dd 0 ; переменная для анимации героя и пр
+  anime2 : dd 0 ; ¯¥à¥¬¥ ï ¤«ï  ¨¬ æ¨¨ £¥à®ï ¨ ¯à
   temp1: dd 0
   temp2: dd 0
   temp3: dd 0
   temp4: dd 0
   temp5: dd 0
-  v_mov:     dd 0  ; направления движения персонажа
+  v_mov:     dd 0  ;  ¯à ¢«¥¨ï ¤¢¨¦¥¨ï ¯¥àá® ¦
-  v_mov2:     dd 0  ; направления движения персонажа
+  v_mov2:     dd 0  ;  ¯à ¢«¥¨ï ¤¢¨¦¥¨ï ¯¥àá® ¦
-  v_fire:     dd 0  ; направления движения персонажа
+  v_fire:     dd 0  ;  ¯à ¢«¥¨ï ¤¢¨¦¥¨ï ¯¥àá® ¦
   Lab:	     dd 0
   Lab2:      dw 0
   Lab3:      dw 0
   perem1:    dd 0
   perem2:    dd 0
-  timer1 dd 0 ; таймер используемый для анимации воды, врагов   --- бегает от 0 до 10
+  timer1 dd 0 ; â ©¬¥à ¨á¯®«ì§ã¥¬ë© ¤«ï  ¨¬ æ¨¨ ¢®¤ë, ¢à £®¢   --- ¡¥£ ¥â ®â 0 ¤® 10
 ;-------------------------------------------------------------------------------
-;1 обычная стена, 2 непробиваемая, 4 вода, 8 лесница, 12 алмаз, 0 пустота    16 - exit
+;1 ®¡ëç ï áâ¥ , 2 ¥¯à®¡¨¢ ¥¬ ï, 4 ¢®¤ , 8 «¥á¨æ , 12  «¬ §, 0 ¯ãáâ®â     16 - exit
 	dw 0,0,0,0,0,0
 ;-------------------------------------------------------------------------------
-Enemy:	dw  1,448,128,0,0,500	;враги класс,Х,У,положение в лабиринте,направление движения,жизнь
+Enemy:	dw  1,448,128,0,0,500	;¢à £¨ ª« áá,,,¯®«®¦¥¨¥ ¢ « ¡¨à¨â¥, ¯à ¢«¥¨¥ ¤¢¨¦¥¨ï,¦¨§ì
 	dw  0,32,32,0,0,0
 	dw  0,64,32,0,0,0
 	dw  0,416,32,0,0,0
 	dw  0,256,256,0,0,0
 	dw  0,448,448,0,0,0
 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+if lang eq ru
+title db ' ¤«ï ®«¨¡à¨  z/x áâà¥«ïâì',0
+else
+title db 'Dungeon for KolibriOS  z/x - shoot',0
+endf
 bullet_bmp:
 file 'bullet.bmp'
 rb 1
 door2_bmp:
 file 'door2.bmp'
 rb 1
 title db 'Dungeon (z/x - shoot)',0
 img_level:
   db  0x09, 0x03, 0
 entered    rd 1
-imgcount  rd 1	     ; кол-во всего кадров в анимации
+imgcount  rd 1	     ; ª®«-¢® ¢á¥£® ª ¤à®¢ ¢  ¨¬ æ¨¨
-img_index  rd 1      ; номер текущего кадра
+img_index  rd 1      ; ®¬¥à â¥ªãé¥£® ª ¤à
-;hashtable rd 4096    ; рабочая область для РеадГИФ процедуры
+;hashtable rd 4096    ; à ¡®ç ï ®¡« áâì ¤«ï ¥ ¤ ¯à®æ¥¤ãàë
-workarea:
-file 'aniall.gif'
+workarea:
 file 'aniall.gif'
-;temp rb 0x100000 ; место для ГИФ фаила
+;temp rb 0x100000 ; ¬¥áâ® ¤«ï  ä ¨«
 rb 10

Subversion Repositories Kolibri OS

(root)/programs/games/almaz/ALMAZ.ASM @ 6218 – Rev 8485 → 8488