forked from KolibriOS/kolibrios
2178 lines
54 KiB
NASM
2178 lines
54 KiB
NASM
|
||
WND_COLOR equ 0x54000000
|
||
|
||
use32
|
||
org 0x0
|
||
db 'MENUET01'
|
||
dd 0x01
|
||
dd START
|
||
dd I_END
|
||
dd 0x300000
|
||
dd 0x27fff0
|
||
dd 0x0
|
||
dd 0x0
|
||
|
||
include 'lang.inc'
|
||
include '..\..\macros.inc' ; макросы облегчают жизнь ассемблерщиков!
|
||
|
||
include 'ASCL.INC'
|
||
include 'ASCGL.INC'
|
||
|
||
|
||
|
||
gif_hash_offset = gif_hash_area
|
||
COLOR_ORDER equ MENUETOS
|
||
|
||
DELAY equ 2 ; Задержка перед переходом к следующему кадру в мсек
|
||
|
||
START:
|
||
;****************
|
||
; Открываем фаил
|
||
;****************
|
||
openfile:
|
||
; and [entered],0
|
||
; mov ecx,499*3*4 ;at start
|
||
xor ecx,ecx
|
||
mov ecx,1
|
||
|
||
; Convert gif to animation format
|
||
giftoani workarea,Image,ecx
|
||
bmptoimg bullet_bmp, img_bullet
|
||
bmptoimg level_bmp, img_level
|
||
bmptoimg kirpich, img_area
|
||
bmptoimg kirpich2, img_area2
|
||
bmptoimg kirpich3, img_area3
|
||
bmptoimg lest_bmp, img_lestniza
|
||
bmptoimg water1_bmp, img_water1
|
||
bmptoimg water2_bmp, img_water2
|
||
bmptoimg door1_bmp, img_door1
|
||
bmptoimg door2_bmp, img_door2
|
||
|
||
|
||
red:
|
||
call timer
|
||
call draw_window
|
||
; call load_level
|
||
; delay 200
|
||
|
||
still:
|
||
timeevent DELAY,no_event, red, key, button
|
||
|
||
no_event:
|
||
call draw_subimage
|
||
jmp still
|
||
|
||
key:
|
||
; блока движения персонажа
|
||
mov eax,2
|
||
int 0x40
|
||
cmp ah, 179 ; право 4
|
||
je go_mov
|
||
cmp ah, 176 ; лево 1
|
||
je go_mov
|
||
cmp ah, 178 ; верх 3
|
||
je go_mov
|
||
cmp ah, 177 ; низ 2
|
||
je go_mov
|
||
cmp ah, 120 ; низ 2
|
||
je go_fire
|
||
cmp ah, 122 ; низ 2
|
||
je go_fire
|
||
cmp ah, 239 ; низ 2
|
||
je go_fire_left
|
||
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 соответственно направления движения персонажа
|
||
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:
|
||
mov eax, 17
|
||
int 0x40
|
||
|
||
cmp ah, 1
|
||
jne still
|
||
mcall -1
|
||
|
||
; *********************************************
|
||
; ******* ОПРЕДЕЛЕНИЕ И ОТРИСОВКА ОКНА *******
|
||
; *********************************************
|
||
|
||
draw_window:
|
||
startwd
|
||
|
||
xor eax, eax ; more optimized "mov eax, 0"
|
||
mov ebx, 50*65536+522
|
||
mov ecx, 50*65536+536
|
||
mov edx, WND_COLOR
|
||
mov edi, title
|
||
int 0x40
|
||
|
||
xor ecx,ecx
|
||
call draw_subimage
|
||
cmp [imgcount],1
|
||
je .enddraw
|
||
|
||
mov ecx,[img_index]
|
||
|
||
call draw_subimage
|
||
|
||
.enddraw:
|
||
|
||
endwd
|
||
|
||
|
||
ret
|
||
|
||
;*******************************************
|
||
; LABIRINT
|
||
;*******************************************
|
||
|
||
labirint:
|
||
|
||
; вывод блоков лабиринта
|
||
cycle:
|
||
|
||
mov eax, [Lab]
|
||
shl eax, 5 ; сдвиг регистра в право на 5 позиции все равно что умножили на 32
|
||
mov [perem1], eax
|
||
mov eax, [Lab]
|
||
shr eax, 4 ; сдвиг регистра в лево
|
||
shl eax, 5 ; сдвиг обратно (все равно что целочисленное делениена 256)
|
||
mov [perem2], eax
|
||
shl eax, 4 ; все равно что отнимаем от координат ненужный прирост -> У-256*X
|
||
sbb dword [perem1], eax;
|
||
|
||
mov ebx, [Lab]
|
||
sbb ebx, 1
|
||
mov eax,[Dangeon + ebx] ; берет байт из дангеон + смещение
|
||
|
||
cmp ah, 1 ;
|
||
je go_block
|
||
|
||
cmp ah, 0 ;
|
||
je back_block
|
||
|
||
cmp ah, 12 ; закраска фона за алмазом
|
||
je back_block
|
||
|
||
cmp ah, 3 ;
|
||
je boom_block
|
||
|
||
cmp ah, 16 ;
|
||
je door_block
|
||
|
||
cmp ah, 2 ; закраска фона за алмазом
|
||
je cool_block
|
||
|
||
jmp end_block
|
||
go_block:
|
||
imgtoimg img_area,dword [perem1],dword [perem2],canvas
|
||
jmp end_block
|
||
|
||
cool_block:
|
||
imgtoimg img_area3,dword [perem1],dword [perem2],canvas
|
||
jmp end_block
|
||
|
||
|
||
back_block:
|
||
imgtoimg img_area2,dword [perem1],dword [perem2],canvas
|
||
jmp end_block
|
||
|
||
door_block:
|
||
imgtoimg img_door1,dword [perem1],dword [perem2],canvas
|
||
|
||
mov eax, [gold]
|
||
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 eax, dword [perem1]
|
||
mov dword [X_anime], eax
|
||
mov eax, dword [perem2]
|
||
mov dword [Y_anime], eax
|
||
call animashka
|
||
|
||
mov ecx, [timer1] ;
|
||
and ecx, 15
|
||
cmp ecx, 0
|
||
jne end_block
|
||
|
||
mov ebx, [Lab]
|
||
mov byte [Dangeon + ebx], 0 ; берет байт из дангеон + смещение
|
||
|
||
|
||
end_block:
|
||
|
||
add word [Lab],1
|
||
mov eax, [Lab]
|
||
|
||
cmp eax, 256 ; if eax == 0
|
||
je cycle_end ; jump to cycle_end:
|
||
jmp cycle ;
|
||
|
||
cycle_end:
|
||
|
||
mov eax, 0
|
||
mov [Lab],eax
|
||
|
||
ret ; END labirint
|
||
|
||
|
||
;*******************************************
|
||
; ЛЕСТНИЦА
|
||
;*******************************************
|
||
lestniza:
|
||
; вывод блоков лабиринта
|
||
cycle2:
|
||
|
||
mov eax, [Lab]
|
||
shl eax, 5 ; сдвиг регистра в право на 5 позиции все равно что умножили на 32
|
||
mov [perem1], eax
|
||
mov eax, [Lab]
|
||
shr eax, 4 ; сдвиг регистра в лево
|
||
shl eax, 5 ; сдвиг обратно (все равно что целочисленное делениена 256)
|
||
mov [perem2], eax
|
||
shl eax, 4 ; все равно что отнимаем от координат ненужный прирост -> У-256*X
|
||
sbb dword [perem1], eax;
|
||
|
||
|
||
mov ebx, [Lab]
|
||
sbb ebx, 1
|
||
mov eax,[Dangeon + ebx] ; берет байт из дангеон + смещение
|
||
|
||
cmp ah, 8 ;
|
||
je go_lestniza
|
||
|
||
jmp end_lestniza
|
||
go_lestniza:
|
||
|
||
imgtoimg img_lestniza,dword [perem1],dword [perem2],canvas
|
||
end_lestniza:
|
||
|
||
add word [Lab],1
|
||
mov eax, [Lab]
|
||
|
||
cmp eax, 256 ; if eax == 0
|
||
je cycle2_end ; jump to cycle_end:
|
||
jmp cycle2 ;
|
||
|
||
cycle2_end:
|
||
|
||
mov eax, 0
|
||
mov [Lab],eax
|
||
|
||
|
||
ret ; END lestniza
|
||
|
||
|
||
|
||
;*******************************************
|
||
; ВОДА и АЛМАЗЫ
|
||
;*******************************************
|
||
water:
|
||
|
||
; вывод воды лабиринта
|
||
cycle3:
|
||
|
||
mov eax, [Lab]
|
||
shl eax, 5 ; сдвиг регистра в право на 5 позиции все равно что умножили на 32
|
||
mov [perem1], eax
|
||
mov eax, [Lab]
|
||
shr eax, 4 ; сдвиг регистра в лево
|
||
shl eax, 5 ; сдвиг обратно (все равно что целочисленное делениена 256)
|
||
mov [perem2], eax
|
||
shl eax, 4 ; все равно что отнимаем от координат ненужный прирост -> У-256*X
|
||
sbb dword [perem1], eax;
|
||
|
||
|
||
mov ebx, [Lab]
|
||
sbb ebx, 1
|
||
mov eax,[Dangeon + ebx] ; берет байт из дангеон + смещение
|
||
|
||
cmp ah, 4 ;
|
||
je go_water
|
||
|
||
cmp ah, 12 ; рисование алмазов
|
||
je go_almaz
|
||
|
||
jmp end_water
|
||
go_water:
|
||
mov eax,0 ;
|
||
mov eax, [timer1];
|
||
and eax, 15
|
||
cmp eax, 7 ;
|
||
jb go_water2
|
||
|
||
imgtoimg img_water1,dword [perem1],dword [perem2],canvas
|
||
jmp end_water
|
||
|
||
go_water2:
|
||
imgtoimg img_water2,dword [perem1],dword [perem2],canvas
|
||
|
||
jmp end_water
|
||
go_almaz:
|
||
|
||
mov eax,0 ;
|
||
mov eax, [timer1];
|
||
and eax, 31
|
||
|
||
cmp eax, 10
|
||
ja almaz2
|
||
|
||
mov ebp,14 ; кадр
|
||
mov eax, dword [perem1]
|
||
mov dword [X_anime], eax
|
||
mov eax, dword [perem2]
|
||
mov dword [Y_anime], eax
|
||
call animashka
|
||
jmp end_water
|
||
|
||
almaz2:
|
||
cmp eax, 20
|
||
ja almaz3
|
||
|
||
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 eax, dword [perem1]
|
||
mov dword [X_anime], eax
|
||
mov eax, dword [perem2]
|
||
mov dword [Y_anime], eax
|
||
call animashka
|
||
|
||
|
||
end_water:
|
||
|
||
add word [Lab],1
|
||
mov eax, [Lab]
|
||
|
||
cmp eax, 256 ; if eax == 0
|
||
je cycle3_end ; jump to cycle_end:
|
||
jmp cycle3 ;
|
||
|
||
cycle3_end:
|
||
|
||
mov eax, 0
|
||
mov [Lab],eax
|
||
|
||
|
||
ret ; END water
|
||
|
||
|
||
;*******************************************
|
||
; Выводим следующий кадр из списка картинок
|
||
;*******************************************
|
||
draw_subimage:
|
||
;aframetoimg Image,32, 32,canvas,0x00ffffff ; НЕВИДИМЫЙ, прозрачный ЦВЕТ ИЛИ НЕ РИСУЕМЫЙ
|
||
|
||
call labirint
|
||
call lestniza
|
||
call enemy_mas
|
||
call enemy_mov
|
||
;-------------------------------------------------------------------------------
|
||
mov ebx, [gold]
|
||
cmp bx, 5 ;увеличение скорости врагов если украл более 9
|
||
jna lov_velo
|
||
call enemy_mas
|
||
call enemy_mov
|
||
lov_velo:
|
||
;-------------------------------------------------------------------------------
|
||
;-------------------------------------------------------------------------------
|
||
mov ebx, [gold]
|
||
cmp bx, 9 ;увеличение скорости врагов если украл более 9
|
||
jna lov_velo2
|
||
call enemy_mas
|
||
call enemy_mov
|
||
lov_velo2:
|
||
;-------------------------------------------------------------------------------
|
||
; call enemy_mas
|
||
; call enemy_mov
|
||
call hiro
|
||
call hiro_mov
|
||
call water
|
||
|
||
call bullet_mov
|
||
call bullet_mov
|
||
call bullet_mov
|
||
call bullet_mas
|
||
call bullet_mov
|
||
call bullet_mov
|
||
call bullet_mov
|
||
call bullet_mas
|
||
call proverka_gold
|
||
call potop
|
||
|
||
setimg 6,20,canvas
|
||
|
||
call timer
|
||
call tablo
|
||
ret
|
||
|
||
;@@@@@@@@@@@@@@@@@@
|
||
animashka:
|
||
;!!!ВАЖНО перед вызовом процедуры должен быть установлен ebx[номер кадра] и x,y
|
||
|
||
mov edi,coords
|
||
mov esi, Image ; гиф анимашка в памяти
|
||
;
|
||
; mov ebp, dword [edi+8] ;ecx здесь конкретный номер выводимого кадра
|
||
; inc ebp ; увеличение кадра
|
||
; cmp ebp,3 ; максимальное количество кадров !!!!!!!
|
||
; jna ok_fr ; если выводимы кадр меньше максимального количества кадров
|
||
;!!!!!!!!! mov ebp,2 ;обнуление кадра
|
||
|
||
ok_fr:
|
||
mov dword [edi+8], ebp ;номер выводимого кадра
|
||
loo:
|
||
cmp ebp,0 ; если кадр нулевой то сразу на вывод ?
|
||
je setpic
|
||
movzx eax,word [esi+4] ; если нет то увеличиваем х у ?
|
||
movzx ebx,word [esi+6]
|
||
mul ebx ;dword [esi+4] умножает ebx на eax и результат в eax edx
|
||
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,32, 32,canvas,0x00ffffff ; НЕВИДИМЫЙ, прозрачный ЦВЕТ ИЛИ НЕ РИСУЕМЫЙ
|
||
aframetoimg esi,dword [X_anime],dword [Y_anime],canvas,0x00ffffff ; НЕВИДИМЫЙ, прозрачный ЦВЕТ ИЛИ НЕ РИСУЕМЫЙ
|
||
;call enemy_mas
|
||
popad
|
||
ret
|
||
;@@@@@@@@@@@@@@
|
||
|
||
|
||
;-------------- TIMER --------------
|
||
timer:
|
||
mov eax,0 ;
|
||
mov eax,[timer1] ;
|
||
add eax, 1;
|
||
mov [timer1], eax
|
||
|
||
cmp eax, 64 ; таймер от 0 до 64
|
||
je nul_timer
|
||
jmp timer_dalee
|
||
nul_timer :
|
||
mov [timer1], 0
|
||
timer_dalee:
|
||
ret
|
||
;-------------- TIMER --------------
|
||
|
||
|
||
|
||
|
||
|
||
;*******************************************
|
||
; ENEMY
|
||
;*******************************************
|
||
|
||
enemy_mas: ; вывод ENEmy ENEMYYYYYYYYYYYYYYY ENEMYYYYYYYYYYYYYY !!!
|
||
|
||
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 + смещение
|
||
|
||
cmp ax, 1 ; обычный враг номер 1
|
||
je go_enemy
|
||
|
||
jmp end_enemy
|
||
go_enemy:
|
||
|
||
add word bx, 2 ; X кооридината данного врага
|
||
mov word ax, [Enemy + bx]
|
||
mov word [X_enemy], ax
|
||
|
||
add word bx, 2 ; Y кооридината данного врага
|
||
mov word ax, [Enemy + ebx]
|
||
mov word [Y_enemy], ax
|
||
|
||
add word bx, 2 ; положение в массиве данного врага
|
||
mov word ax, [Enemy + ebx]
|
||
mov word [lab_enemy], ax
|
||
|
||
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; ; замороженные враги
|
||
ja enemy_dalee
|
||
mov ebp,2 ; кадр
|
||
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_dalee:
|
||
xor eax,eax ;
|
||
mov eax, [X_enemy] ;
|
||
and eax, 15
|
||
cmp ax, 7;
|
||
ja enemy_1
|
||
|
||
jmp enemy_2
|
||
|
||
enemy_1:
|
||
|
||
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 eax, dword [X_enemy]
|
||
mov dword [X_anime], eax
|
||
mov eax, dword [Y_enemy]
|
||
mov dword [Y_anime], eax
|
||
call animashka
|
||
enemy_bmp_end:
|
||
|
||
end_enemy:
|
||
|
||
mov eax, 0
|
||
mov word ax, [Lab2]
|
||
|
||
cmp ax, 96 ; if eax == 0
|
||
je cycle4_end ; jump to cycle_end:
|
||
|
||
add word [Lab2],12
|
||
|
||
jmp cycle4 ;
|
||
|
||
cycle4_end:
|
||
|
||
ret ; END eNEMYYYYYYYYYYYYYYY ENEMYYYYYYYYYYYYYY !!!
|
||
|
||
;$$$$$$$$$$$$$$$$$$$$$$$$$$
|
||
; ENEMY MOV
|
||
;$$$$$$$$$$$$$$$$$$$$$$$$$$
|
||
enemy_mov:
|
||
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 + смещение
|
||
|
||
cmp ax, 1 ; обычный враг номер 1
|
||
je go_mov_enemy
|
||
|
||
jmp end_mov_enemy
|
||
go_mov_enemy:
|
||
|
||
add word bx, 2 ; X кооридината данного врага
|
||
mov word ax, [Enemy + bx]
|
||
mov word [X_enemy], ax
|
||
|
||
add word bx, 2 ; Y кооридината данного врага
|
||
mov word ax, [Enemy + ebx]
|
||
mov word [Y_enemy], ax
|
||
|
||
add word bx, 2 ; положение в массиве данного врага
|
||
mov word ax, [Enemy + ebx]
|
||
mov word [lab_enemy], ax
|
||
|
||
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; ; замороженные враги
|
||
ja dalee_enemy_mov
|
||
add ax, 1
|
||
|
||
mov word [Enemy + ebx], ax
|
||
|
||
jmp end_mov_enemy
|
||
|
||
dalee_enemy_mov:
|
||
; блок поедания героя
|
||
mov ax, [Xpl]
|
||
add ax, 23
|
||
cmp ax, [X_enemy]
|
||
jna ne_em
|
||
sbb ax, 45
|
||
cmp ax, [X_enemy]
|
||
ja ne_em
|
||
mov ax, [Ypl]
|
||
add ax, 23
|
||
cmp ax, [Y_enemy]
|
||
jna ne_em
|
||
sbb ax, 45
|
||
cmp ax, [Y_enemy]
|
||
ja ne_em
|
||
call load_level ; DEAD HIRO
|
||
delay 150
|
||
|
||
ne_em:
|
||
;Блок попадания 1 пули
|
||
|
||
mov word bx, 0
|
||
mov word ax,[Bullet + ebx]
|
||
cmp ax, 0
|
||
je no_bullet
|
||
|
||
add word bx, 2 ; [Xpl]
|
||
mov word cx, [Bullet + ebx]
|
||
|
||
add word bx, 2 ; [Ypl]
|
||
mov word dx, [Bullet + ebx]
|
||
|
||
cmp dx, [Y_enemy]
|
||
jna no_bullet
|
||
sbb dx, 32
|
||
cmp dx, [Y_enemy]
|
||
ja no_bullet
|
||
cmp cx, [X_enemy]
|
||
jna no_bullet
|
||
sbb cx, 32
|
||
cmp cx, [X_enemy]
|
||
ja no_bullet
|
||
mov word bx, [Lab2]
|
||
add word bx, 10 ; enemy LIFE
|
||
mov word [Enemy + ebx],0
|
||
|
||
mov byte [Bullet], 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 кооридината данного врага
|
||
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 кооридината данного врага
|
||
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 кооридината данного врага
|
||
mov word [Enemy + bx], ax ;
|
||
;
|
||
next_4: ;
|
||
cmp ax, 4 ; right ;
|
||
jne next_end
|
||
|
||
;Гравитационная заплатка лечит трабл - когда враг двигается слева на право то пролетает один пустой блок
|
||
mov word bx, [X_enemy] ; Это условие позволяет добежать до позиции напротив блока
|
||
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 кооридината данного врага
|
||
mov word [Enemy + bx], ax ;
|
||
;
|
||
next_end:
|
||
;END БЛОК ПРИРОСТА ДВИЖЕНИЯ ВРАГ
|
||
|
||
;
|
||
|
||
; Рандомный выбор на леснице
|
||
mov word bx, [X_enemy] ; Это условие позволяет добежать до позиции напротив блока
|
||
and ebx, 31 ; X в позиции напротив блока
|
||
cmp bx, 0 ;
|
||
jne end_les ;
|
||
mov word bx, [Y_enemy] ; Это условие позволяет добежать до позиции напротив блока
|
||
and ebx, 31 ; X в позиции напротив блока
|
||
cmp bx, 0 ;
|
||
jne end_les ;
|
||
|
||
random 300, eax
|
||
|
||
cmp eax, 150
|
||
ja les2
|
||
jmp end_up_or_down
|
||
les2:
|
||
|
||
mov eax, [Ypl]
|
||
cmp eax, [Y_enemy]
|
||
jna bolee
|
||
mov word [mov_enemy],2 ; вниз
|
||
mov word ax, [mov_enemy] ;
|
||
mov word bx, [Lab2] ;
|
||
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 ; направление движения данного врага
|
||
mov word [Enemy + bx], ax ;
|
||
jmp end_les
|
||
|
||
end_up_or_down:
|
||
|
||
random 300, eax
|
||
cmp eax, 150
|
||
ja les22
|
||
jmp end_les
|
||
les22:
|
||
|
||
mov eax, [Xpl]
|
||
cmp eax, [X_enemy]
|
||
jna bolee2
|
||
mov word [mov_enemy],4 ; вниз
|
||
mov word ax, [mov_enemy] ;
|
||
mov word bx, [Lab2] ;
|
||
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 ; направление движения данного врага
|
||
mov word [Enemy + bx], ax ;
|
||
|
||
end_les:
|
||
; end Рандомный выбор на леснице
|
||
|
||
;Гравитация
|
||
mov word bx, [X_enemy] ; Это условие позволяет добежать до позиции напротив блока
|
||
and ebx, 31 ; X в позиции напротив блока
|
||
cmp bx, 0 ;
|
||
jne end_grava ;
|
||
|
||
mov bx,[lab_enemy]
|
||
add bx,16
|
||
mov ax, [Dangeon + bx]
|
||
|
||
and eax,15
|
||
cmp word ax, 0
|
||
je grava
|
||
cmp word ax, 4
|
||
je grava
|
||
jmp end_grava
|
||
grava:
|
||
mov word [mov_enemy], 2 ; padenie ВРАГА
|
||
mov word ax, [mov_enemy] ;
|
||
mov word bx, [Lab2] ;
|
||
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 ; направление движения данного врага
|
||
mov word [Enemy + bx], ax ;
|
||
;блок расчета положения врага в лабиринте
|
||
|
||
|
||
|
||
|
||
|
||
|
||
;БЛОК ЗПАПРЕТА ДВижения
|
||
mov word bx, [Y_enemy] ; Это условие позволяет добежать до позиции напротив блока
|
||
and bx, 31 ; Y в позиции напротив блока
|
||
cmp bx, 0 ;
|
||
jne end_zapret ;
|
||
mov word ax, [X_enemy] ; Это условие позволяет добежать до позиции напротив блока
|
||
and ax, 31 ; X в позиции напротив блока
|
||
cmp ax, 0 ;
|
||
jne end_zapret ;
|
||
|
||
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 ; направление движения данного врага
|
||
mov word [Enemy + bx], ax ;
|
||
|
||
|
||
|
||
duma1:
|
||
cmp ax, 4
|
||
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 ; слева
|
||
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 ; снизу
|
||
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 ; сверху
|
||
|
||
mov bx,[lab_enemy] ; если кирпич над головой
|
||
sbb bx,16
|
||
mov ax, [Dangeon + bx]
|
||
and eax,3
|
||
cmp ax, 0 ; если кирпич над головой
|
||
jne duma_stop
|
||
|
||
mov bx,[lab_enemy] ; если враг не на леснице
|
||
mov ax, [Dangeon + bx]
|
||
and eax,15
|
||
cmp ax, 8
|
||
jne duma_stop
|
||
|
||
jmp duma_end
|
||
|
||
duma_stop:
|
||
|
||
mov word [mov_enemy], 0 ; ОСТАНОВКА ВРАГА
|
||
mov word ax, [mov_enemy] ;
|
||
mov word bx, [Lab2] ;
|
||
add word bx, 8 ; направление движения данного врага
|
||
mov word [Enemy + bx], ax ;
|
||
|
||
duma_end:
|
||
|
||
end_zapret:
|
||
;конец запрета
|
||
|
||
end_mov_enemy:
|
||
|
||
mov eax, 0
|
||
mov word ax, [Lab2]
|
||
|
||
cmp ax, 96 ; if eax == 0
|
||
je cycle5_end ; jump to cycle_end:
|
||
|
||
add word [Lab2],12
|
||
|
||
jmp cycle5 ;
|
||
|
||
cycle5_end:
|
||
|
||
|
||
ret
|
||
|
||
;*****************************
|
||
; HIRO
|
||
;*****************************
|
||
|
||
hiro:
|
||
|
||
mov ecx, [v_fire] ;стрельба
|
||
cmp ecx, 0
|
||
je next_anima
|
||
cmp ecx, 1
|
||
je wprawo
|
||
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] ;стрельба
|
||
and ecx, 15
|
||
cmp ecx, 0
|
||
jne end_hiro
|
||
mov dword [v_fire], 0
|
||
jmp end_hiro
|
||
|
||
wprawo:
|
||
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] ;стрельба
|
||
and ecx, 15
|
||
cmp ecx, 0
|
||
jne end_hiro
|
||
mov dword [v_fire], 0
|
||
jmp end_hiro
|
||
|
||
;стрельба
|
||
jmp end_hiro
|
||
|
||
next_anima:
|
||
mov eax, [v_mov]
|
||
cmp eax, 1
|
||
jne next_r
|
||
mov eax,0 ;
|
||
mov eax, [Xpl];
|
||
and eax, 15
|
||
cmp eax, 7 ;
|
||
ja next_l1
|
||
|
||
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 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 ; звук выстрела
|
||
popa
|
||
|
||
jmp end_hiro
|
||
|
||
next_r:
|
||
cmp eax, 4
|
||
jne next_d
|
||
|
||
mov eax,0 ;
|
||
mov eax, [Xpl];
|
||
and eax, 15
|
||
cmp eax, 7 ;
|
||
ja next_d1
|
||
|
||
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 ; звук выстрела
|
||
popa
|
||
jmp end_hiro
|
||
|
||
next_d1:
|
||
mov ebp,6 ; кадр
|
||
mov eax, dword [Xpl]
|
||
mov dword [X_anime], eax
|
||
mov eax, dword [Ypl]
|
||
mov dword [Y_anime], eax
|
||
call animashka
|
||
|
||
jmp end_hiro
|
||
|
||
next_d:
|
||
cmp eax, 2
|
||
jne next_u
|
||
mov ebp,13 ; кадр
|
||
mov eax, [temp2]
|
||
cmp eax, 8
|
||
jne padaem
|
||
mov ebp,10 ; кадр
|
||
padaem:
|
||
mov eax, [temp5]
|
||
cmp eax, 8
|
||
jne padaem2
|
||
mov ebp,10 ; кадр
|
||
padaem2:
|
||
mov eax, dword [Xpl]
|
||
mov dword [X_anime], eax
|
||
mov eax, dword [Ypl]
|
||
mov dword [Y_anime], eax
|
||
call animashka
|
||
jmp end_hiro
|
||
|
||
next_u:
|
||
cmp eax, 3
|
||
jne next_s
|
||
mov eax,0 ;
|
||
mov eax, [Ypl];
|
||
and eax, 15
|
||
cmp eax, 7 ;
|
||
ja next_u1
|
||
|
||
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 eax, dword [Xpl]
|
||
mov dword [X_anime], eax
|
||
mov eax, dword [Ypl]
|
||
mov dword [Y_anime], eax
|
||
call animashka
|
||
|
||
jmp end_hiro
|
||
|
||
next_s:
|
||
cmp eax, 0
|
||
jne next_s
|
||
mov ebp,17; кадр
|
||
mov eax, dword [Xpl]
|
||
mov dword [X_anime], eax
|
||
mov eax, dword [Ypl]
|
||
mov dword [Y_anime], eax
|
||
call animashka
|
||
jmp end_hiro
|
||
|
||
end_hiro:
|
||
|
||
ret ; END Hiro
|
||
;**************
|
||
; end HIRO
|
||
;**************
|
||
|
||
|
||
;****************
|
||
; 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] ; Это условие позволяет добежать до позиции напротив блока
|
||
and ecx, 31 ; Y в позиции напротив блока
|
||
|
||
mov edx, [Xpl] ; Это условие позволяет добежать до позиции напротив блока
|
||
and edx, 31 ; Y в позиции напротив блока
|
||
or edx,ecx ; Мы четко спозиционированы по Х и У
|
||
cmp edx, 0
|
||
jne no_almaz
|
||
|
||
cmp ah, 12
|
||
jne no_almaz
|
||
xor cx, cx
|
||
add ebx,1 ; ЗАПЛАТКА !!! без нее почемуто обнуляет не алмазы а соседние блоки
|
||
mov [Dangeon + bx], ch
|
||
sbb ebx, 1 ; ЗАПЛАТКА !!!
|
||
mov ecx, [gold]
|
||
add ecx, 1
|
||
mov [gold], ecx
|
||
pusha
|
||
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 [temp4], ah
|
||
|
||
add ebx,32 ;
|
||
mov eax,[Dangeon + bx] ;
|
||
mov [temp5], ah
|
||
; вычисление соседних блоков
|
||
|
||
|
||
|
||
|
||
|
||
;разрешение на движение
|
||
mov eax,0 ;
|
||
mov eax,[v_mov2] ;
|
||
and eax,7
|
||
and eax,2
|
||
cmp eax, 2
|
||
je smena
|
||
|
||
mov ebx, [Ypl] ; Это условие позволяет добежать до позиции напротив блока
|
||
and ebx, 31 ; Y в позиции напротив блока
|
||
cmp ebx, 0 ;
|
||
jne end_tamgna ;
|
||
smena:
|
||
|
||
mov eax,0 ;
|
||
mov eax,[v_mov2] ;
|
||
and eax,7
|
||
and eax,2
|
||
cmp eax, 0
|
||
je smena2
|
||
|
||
mov ebx, [Xpl] ; Это условие позволяет добежать до позиции напротив блока
|
||
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 в позиции напротив блока
|
||
cmp ebx, 0 ;
|
||
jne end_stop ;
|
||
mov eax, [Xpl] ; без макроса этого блока не было он был внутри блока упираний
|
||
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, [temp5]
|
||
;заплатка 2 равно 1 если бетон то это как кирпич, иначе герой проходит сквозь бетон
|
||
|
||
cmp ebx, 2
|
||
jne no_zaplat1
|
||
|
||
sbb ebx,1
|
||
|
||
no_zaplat1:
|
||
|
||
and ebx,3
|
||
or eax, ebx
|
||
|
||
cmp eax, 2
|
||
je end_stop
|
||
mov ebx, 0
|
||
mov [v_mov], ebx
|
||
|
||
stop_u:
|
||
cmp eax, 3
|
||
jne stop_l
|
||
|
||
mov ebx, [temp4]
|
||
and ebx,3
|
||
and eax, ebx
|
||
|
||
; mov ebx, [Ypl] ; Это условие позволяет добежать до позиции напротив блока
|
||
; and ebx, 31 ; Y в позиции напротив блока
|
||
; cmp ebx, 0 ;
|
||
; jne end_stop ;
|
||
|
||
|
||
cmp eax, 0
|
||
je end_stop
|
||
mov ebx, 0
|
||
mov [v_mov], ebx
|
||
|
||
stop_l:
|
||
cmp eax, 1
|
||
jne stop_r
|
||
|
||
mov ebx, [temp1]
|
||
and ebx,3
|
||
|
||
; mov eax, [Xpl] ; Это условие позволяет добежать до позиции напротив блока
|
||
; and eax, 31 ; Y в позиции напротив блока
|
||
; cmp eax, 0 ;
|
||
; jne end_stop ;
|
||
|
||
cmp ebx, 0
|
||
je end_stop
|
||
mov ebx, 0
|
||
mov [v_mov], ebx
|
||
|
||
stop_r:
|
||
cmp eax, 4
|
||
jne end_stop
|
||
|
||
mov ebx, [temp3]
|
||
and ebx,3
|
||
|
||
cmp ebx, 0
|
||
je end_stop
|
||
mov ebx, 0
|
||
mov [v_mov], ebx
|
||
|
||
end_stop:
|
||
;ПРЕГРАДЫ
|
||
|
||
|
||
;GRAVITACION
|
||
mov ebx, [Ypl] ; Это условие позволяет добежать до позиции напротив блока
|
||
and ebx, 31 ; Y в позиции напротив блока
|
||
|
||
mov eax, [Xpl] ; Это условие позволяет добежать до позиции напротив блока
|
||
and eax, 31 ; Y в позиции напротив блока
|
||
or eax,ebx ; Мы четко спозиционированы по Х и У
|
||
cmp eax, 0
|
||
jne end_grav
|
||
|
||
mov ebx, [temp2] ;
|
||
cmp ebx, 0 ; запрет на прыжки вверх
|
||
jne end_grav ;
|
||
mov ebx, [v_mov] ;
|
||
cmp ebx, 3 ;
|
||
jne dalee_gra ;
|
||
mov ebx, 0 ;
|
||
mov [v_mov],ebx ;
|
||
mov ebx, 0 ;
|
||
mov [v_mov2],ebx ;
|
||
|
||
dalee_gra:
|
||
add eax, [temp5] ;
|
||
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 ; падение в воду
|
||
mov eax, 2 ;
|
||
mov [v_mov],eax ;
|
||
mov eax, 0 ;
|
||
mov [v_mov2],eax ;
|
||
|
||
dalee_g2:
|
||
cmp eax, 12 ;
|
||
jne end_grav ; падение на алмаз
|
||
mov eax, 2 ;
|
||
mov [v_mov],eax ;
|
||
mov eax, 0 ;
|
||
mov [v_mov2],eax ;
|
||
|
||
end_grav:
|
||
;end GRAVITACION
|
||
|
||
|
||
|
||
|
||
; ПРИРОСТ КООРДИНАТ ГЕРОЯ
|
||
mov eax,0 ;
|
||
mov eax,[v_mov] ;
|
||
cmp eax, 2 ;
|
||
je h_down ;
|
||
jmp proverka2 ;
|
||
jmp hiro_mov_end ;
|
||
h_down: ;
|
||
mov ebx, [Ypl] ;
|
||
add ebx, 2 ; 3
|
||
mov [Ypl], ebx ; 1 4
|
||
jmp hiro_mov_end ;
|
||
;
|
||
proverka2: ;
|
||
cmp eax, 3 ; ;
|
||
je h_up ; PRIROST X Y
|
||
jmp proverka3 ;
|
||
jmp hiro_mov_end ;
|
||
h_up: ;
|
||
mov ebx, [Ypl] ;
|
||
sbb ebx, 2 ;
|
||
mov [Ypl], ebx ;
|
||
jmp hiro_mov_end ;
|
||
;
|
||
proverka3: ;
|
||
cmp eax, 1 ; ;
|
||
je h_left ;
|
||
jmp proverka4 ;
|
||
jmp hiro_mov_end ;
|
||
h_left: ;
|
||
mov ebx, [Xpl] ;
|
||
sbb ebx, 2 ;
|
||
mov [Xpl], ebx ;
|
||
jmp hiro_mov_end ;
|
||
;
|
||
proverka4: ;
|
||
cmp eax, 4 ;
|
||
je h_right ;
|
||
jmp hiro_mov_end ;
|
||
jmp hiro_mov_end ;
|
||
h_right: ;
|
||
mov ebx, [Xpl] ;
|
||
add ebx, 2 ;
|
||
mov [Xpl], ebx ;
|
||
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
|
||
cycle7:
|
||
mov word bx, [Lab3]
|
||
mov word ax, [Bullet+bx] ; берет байт из Enemy + смещение
|
||
|
||
cmp ax, 1 ; bullet ok
|
||
je go_bullet
|
||
|
||
jmp end_bullet
|
||
go_bullet:
|
||
|
||
add word bx, 2 ; X кооридината данного врага
|
||
mov word ax, [Bullet + bx]
|
||
mov word [X_bul], ax
|
||
|
||
add word bx, 2 ; X кооридината данного врага
|
||
mov word ax, [Bullet + bx]
|
||
mov word [Y_bul], ax
|
||
|
||
imgtoimg img_bullet, dword [X_bul], dword [Y_bul],canvas
|
||
end_bullet:
|
||
|
||
mov eax, 0
|
||
mov word ax, [Lab3]
|
||
|
||
cmp ax, 36 ; if eax == 0
|
||
je cycle7_end ; jump to cycle_end:
|
||
|
||
add word [Lab3],12
|
||
|
||
jmp cycle7 ;
|
||
|
||
cycle7_end:
|
||
ret ; end BULLET
|
||
;-------------------------------------------------------------------------------
|
||
|
||
|
||
;*******************************************
|
||
; BULLET MOV
|
||
;*******************************************
|
||
bullet_mov:
|
||
mov word [Lab3], 0 ; все делать в WORD один элемент в массиве +2 следующий враг соотвтетственно 6*2= + 12
|
||
|
||
cycle8:
|
||
mov word bx, [Lab3]
|
||
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 кооридината данного врага
|
||
mov word ax, [Bullet + bx]
|
||
mov word [X_bul], ax
|
||
|
||
add word bx, 2 ; X кооридината данного врага
|
||
mov word ax, [Bullet + bx]
|
||
mov word [Y_bul], ax
|
||
|
||
add word bx, 2 ;
|
||
mov word ax, [Bullet + bx]
|
||
mov word [mov_bullet], ax
|
||
|
||
cmp ax, 1
|
||
jne bul_muv_left
|
||
mov word ax, [X_bul]
|
||
sbb ax, 2
|
||
mov word bx, [Lab3]
|
||
add word bx, 2
|
||
mov word [Bullet + bx], ax
|
||
|
||
jmp end_bullet_mov
|
||
bul_muv_left:
|
||
mov word ax, [X_bul]
|
||
add ax, 2
|
||
mov word bx, [Lab3]
|
||
add word bx, 2
|
||
mov word [Bullet + bx], ax
|
||
|
||
end_bullet_mov:
|
||
|
||
; вычисляем положение 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 в лабиринте
|
||
|
||
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 ; РАЗРУШЕНИЕ КИРПИЧЕЙ
|
||
beton:
|
||
mov bx, [Lab3]
|
||
mov byte [Bullet + ebx], 0 ; берет байт из Enemy + смещение
|
||
|
||
|
||
|
||
|
||
|
||
letit_dalee:
|
||
mov eax, 0
|
||
mov word ax, [Lab3]
|
||
|
||
cmp ax, 36 ; if eax == 0
|
||
je cycle8_end ; jump to cycle_end:
|
||
|
||
add word [Lab3],12
|
||
|
||
jmp cycle8 ;
|
||
|
||
cycle8_end:
|
||
|
||
|
||
ret ; end BULLET
|
||
;-------------------------------------------------------------------------------
|
||
|
||
;-------------------------------------------------------------------------------
|
||
; TABLO TABLO TABLO TABLO TABLO TABLO
|
||
;*****************************************
|
||
tablo:
|
||
; WIWOD CIFR
|
||
;; mov eax, 13
|
||
; mov ebx, 140*65536 + 18
|
||
; mov ecx, 10*65536 + 8
|
||
; mov edx, 0x00ffffff
|
||
; int 0x40
|
||
; outcount [numer_level],140,10,0x224466,3*65536
|
||
|
||
; WIWOD CIFR
|
||
; mov eax, 13
|
||
; mov ebx, 160*65536 + 18
|
||
; mov ecx, 10*65536 + 8
|
||
; mov edx, 0x00ffffff
|
||
; int 0x40
|
||
; outcount [delta_level],160,10,0x224466,3*65536
|
||
|
||
; WIWOD CIFR
|
||
; mov eax, 13
|
||
; mov ebx, 180*65536 + 18
|
||
; mov ecx, 10*65536 + 8
|
||
; mov edx, 0x00ffffff
|
||
; int 0x40
|
||
; outcount [delta_level_end],180,10,0x224466,3*65536
|
||
|
||
ret
|
||
;-------------------------------------------------------------------------------
|
||
fire:
|
||
sbb ah, 121
|
||
mov [v_fire], ah
|
||
|
||
mov word bx, 0
|
||
mov cx, [Bullet + ebx]
|
||
cmp cx, 0
|
||
jne end_fire
|
||
pusha
|
||
mcall 55, eax, , , Music_bah ; звук выстрела
|
||
popa
|
||
|
||
mov byte [Bullet + ebx], 1
|
||
|
||
add word bx, 2 ; X кооридината данного врага
|
||
mov ax, [Xpl]
|
||
add ax, 8
|
||
mov word [Bullet + ebx],ax
|
||
|
||
add word bx, 2 ; X кооридината данного врага
|
||
mov ax, [Ypl]
|
||
add ax, 16
|
||
mov word [Bullet + ebx],ax
|
||
|
||
add word bx, 2 ;
|
||
mov ax,[v_fire]
|
||
mov word [Bullet + ebx],ax
|
||
|
||
end_fire:
|
||
ret
|
||
;-------------------------------------------------------------------------------
|
||
|
||
|
||
;------------------------Загрузка уровней---------------------------------------
|
||
load_level:
|
||
imgtoimg img_level,32,32,canvas
|
||
setimg 6,20,canvas
|
||
|
||
xor eax,eax
|
||
xor ebx,ebx
|
||
xor edx,edx
|
||
xor ecx,ecx
|
||
mov dword [Bullet], eax
|
||
mov dword [Bullet+2], eax
|
||
mov dword [Bullet+4], eax
|
||
mov dword [Bullet+6], eax
|
||
mov dword [Bullet+8], eax
|
||
mov dword [Bullet+10], eax
|
||
mov byte [Lab], 1
|
||
mov [lab_bullet], eax
|
||
mov [mov_bullet], eax
|
||
mov [X_bul], eax
|
||
mov [Y_bul], eax
|
||
mov [gold], eax
|
||
mov dword [Xpl], 32
|
||
mov dword [Ypl], 448
|
||
mov dword [hiro_lab],0 ; проекция героя в лабиринт
|
||
mov dword [v_mov], 0
|
||
mov dword [v_mov2], 0
|
||
mov dword [v_fire], 0
|
||
|
||
xor eax,eax
|
||
mov eax, [numer_level]
|
||
shl eax, 8
|
||
mov dword [delta_level], eax
|
||
add eax, 256
|
||
mov dword [delta_level_end], eax
|
||
|
||
cycleL:
|
||
|
||
xor ebx, ebx
|
||
mov ebx, [Lab]
|
||
add ebx, [delta_level]
|
||
mov ax,[Dangeon2 + ebx] ; берет байт из дангеон + смещение
|
||
|
||
sbb ebx, [delta_level]
|
||
mov [Dangeon + ebx], ax ; берет байт из дангеон + смещение
|
||
add word [Lab],1
|
||
mov eax, [Lab]
|
||
|
||
|
||
cmp eax, [delta_level_end] ; if eax == 0
|
||
je cycleL_end ; jump to cycle_end:
|
||
jmp cycleL ;
|
||
cycleL_end:
|
||
|
||
mov eax, 0
|
||
mov [Lab],eax
|
||
|
||
call enemy_plaz
|
||
|
||
ret
|
||
;-------------------------------------------------------------------------------
|
||
|
||
;************************************
|
||
;GOLD
|
||
proverka_gold:
|
||
mov eax, [gold]
|
||
cmp ax, 10
|
||
jna net_deneg
|
||
mov eax, [temp2] ; добежать до двери
|
||
cmp ax, 16
|
||
jne net_deneg
|
||
mov ax, [numer_level] ; увеличение левела
|
||
|
||
add ax, 1
|
||
mov [numer_level], ax
|
||
mov [demon_kolvo], ax ;
|
||
|
||
call load_level
|
||
delay 100
|
||
|
||
net_deneg:
|
||
ret
|
||
|
||
;-------------------------------------------------------------------------------
|
||
; УТОП
|
||
potop:
|
||
mov eax, [temp2] ; добежать до двери
|
||
cmp ax, 4
|
||
jne jiwoy
|
||
mov dword [gold], 0 ; увеличение левела
|
||
|
||
call load_level
|
||
delay 100
|
||
jiwoy:
|
||
ret
|
||
|
||
;************************************
|
||
;положение врагов на новом уровне
|
||
enemy_plaz:
|
||
mov word [Lab2], 0 ; все делать в WORD один элемент в массиве +2 следующий враг соотвтетственно 6*2= + 12
|
||
mov ax, [demon_kolvo]
|
||
mov [demon], ax
|
||
|
||
cycle55:
|
||
mov ebx, 0
|
||
mov ecx, 0
|
||
mov edx, 0
|
||
mov esi, 0
|
||
|
||
mov cx, [demon]
|
||
cmp cx, 0
|
||
je end_demon
|
||
mov word bx, [Lab2] ;
|
||
mov word [Enemy + bx], 1 ;
|
||
sbb cx, 1
|
||
mov [demon], cx
|
||
end_demon:
|
||
|
||
random 14, eax
|
||
add eax, 1
|
||
shl eax,5
|
||
mov word bx, [Lab2] ;
|
||
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 кооридината данного врага
|
||
mov word [Enemy + bx], ax ;
|
||
|
||
mov word bx, [Lab2] ;
|
||
add word bx, 8 ; направление движения
|
||
mov word [Enemy + bx], 0 ;
|
||
add word bx, 2 ; жизнь
|
||
mov word [Enemy + bx], 500 ;
|
||
|
||
|
||
mov eax, 0
|
||
mov word ax, [Lab2]
|
||
|
||
cmp ax, 96 ; if eax == 0
|
||
je cycle55_end ; jump to cycle_end:
|
||
|
||
add word [Lab2],12
|
||
|
||
jmp cycle55 ;
|
||
|
||
cycle55_end:
|
||
|
||
ret
|
||
|
||
|
||
I_END: ; конец программы
|
||
|
||
|
||
|
||
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
Xpl: dd 32 ; координаты героя
|
||
Ypl: dd 448
|
||
hiro_lab: dd 0 ; проекция героя в лабиринт
|
||
numer_level: dd 0
|
||
delta_level: dd 0
|
||
delta_level_end: dd 256
|
||
demon: dd 0
|
||
demon_kolvo: dd 1
|
||
|
||
gold: dd 0
|
||
|
||
X_enemy: dd 0
|
||
Y_enemy: dd 0
|
||
|
||
|
||
X_bul: dd 0
|
||
Y_bul: dd 0
|
||
|
||
X_anime: dd 0
|
||
Y_anime: dd 0
|
||
|
||
mov_bullet: dw 0
|
||
lab_bullet: dw 0
|
||
mov_enemy: dw 0
|
||
lab_enemy: dw 0
|
||
life_enemy: dw 0
|
||
|
||
anime : 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_mov2: 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
|
||
|
||
;-------------------------------------------------------------------------------
|
||
;1 обычная стена, 2 непробиваемая, 4 вода, 8 лесница, 12 алмаз, 0 пустота 16 - exit
|
||
;-------------------------------------------------------------------------------
|
||
Dangeon:
|
||
db 2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2
|
||
db 2,1,1,1,1,1,1,0,12,0,0,0,0,0,0,2
|
||
db 2,0,12,12,0,0,0,8,1,8,1,1,1,0,0,2
|
||
db 2,8,1,1,1,1,1,8,1,8,0,0,0,0,0,2
|
||
db 2,8,0,0,0,0,0,8,1,8,2,4,4,2,0,2
|
||
db 2,8,2,4,4,4,2,8,1,8,2,2,2,2,0,2
|
||
db 2,0,2,2,2,2,2,8,1,8,0,0,0,0,0,2
|
||
db 2,0,1,0,0,0,0,8,1,1,1,1,1,1,8,2
|
||
db 2,0,1,1,8,1,1,1,0,0,0,0,0,0,8,2
|
||
db 2,12,1,1,8,0,12,0,1,8,1,1,8,1,1,2
|
||
db 2,0,0,0,8,8,1,8,0,8,0,0,0,0,0,2
|
||
db 2,12,1,8,1,8,1,1,8,1,1,1,1,1,1,2
|
||
db 2,0,1,8,12,12,0,0,0,0,0,0,0,0,0,2
|
||
db 2,0,1,1,1,1,1,8,1,1,1,0,0,0,0,2
|
||
db 2,0,0,0,12,0,0,8,0,0,0,16,0,12,12,2
|
||
db 2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2
|
||
|
||
Dangeon2:
|
||
db 2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2
|
||
db 2,1,1,0,1,1,1,0,12,0,0,0,0,0,0,2
|
||
db 2,0,12,12,0,0,0,8,1,8,1,1,1,0,0,2
|
||
db 2,8,1,1,1,1,1,8,1,8,0,0,0,0,0,2
|
||
db 2,8,0,0,0,0,0,8,1,8,2,4,4,2,0,2 ;0
|
||
db 2,8,2,4,4,4,2,8,1,8,2,2,2,2,0,2
|
||
db 2,0,2,2,2,2,2,8,1,8,0,0,0,0,0,2
|
||
db 2,0,1,0,0,0,0,8,1,1,1,1,1,1,8,2
|
||
db 2,0,1,1,8,1,1,1,0,0,0,0,0,0,8,2
|
||
db 2,12,1,1,8,0,12,0,1,8,1,1,8,1,1,2
|
||
db 2,0,0,0,8,8,1,8,0,8,0,0,0,0,0,2
|
||
db 2,12,1,8,1,8,1,1,8,1,1,1,1,1,1,2
|
||
db 2,0,1,8,12,12,0,0,0,0,0,0,0,0,0,2
|
||
db 2,0,1,1,1,1,1,8,1,1,1,0,0,0,0,2
|
||
db 2,0,0,0,12,0,0,8,0,0,0,16,0,12,12,2
|
||
db 2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2;-------------------------------------------------------------------------------
|
||
db 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
|
||
db 2,0,0,0,0,0,0,0,0,0,0,16,0,0,0,2
|
||
db 2,12,1,8,1,0,0,0,0,0,0,1,8,0,0,2
|
||
db 2,0,1,8,1,0,0,0,0,0,0,1,0,8,0,2 ;1
|
||
db 2,12,1,8,1,1,0,0,0,0,1,1,0,8,0,2
|
||
db 2,0,1,8,1,0,12,12,12,12,0,1,8,8,0,2
|
||
db 2,12,1,8,1,0,1,1,1,1,0,1,8,0,0,2
|
||
db 2,0,1,8,0,0,0,0,0,0,0,0,8,0,0,2
|
||
db 2,0,1,1,1,1,8,1,8,1,1,1,1,1,8,2
|
||
db 2,0,0,0,12,0,8,0,8,0,0,0,12,0,8,2
|
||
db 2,0,1,1,1,1,1,0,1,8,1,1,8,1,1,2
|
||
db 2,0,0,0,0,0,0,0,0,8,1,0,8,0,0,2
|
||
db 2,0,1,1,1,1,1,8,1,1,1,1,1,1,8,2
|
||
db 2,0,0,12,0,0,0,8,0,0,12,0,0,0,8,2
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2;-------------------------------------------------------------------------------
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
|
||
db 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
|
||
db 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
|
||
db 2,0,0,0,0,0,0,0,0,12,0,12,0,0,0,2
|
||
db 2,0,0,0,0,0,0,8,1,1,1,1,1,1,0,2 ;2
|
||
db 2,0,8,0,12,12,0,8,0,0,0,0,0,2,4,2
|
||
db 2,0,8,1,1,1,1,0,0,0,0,0,0,2,2,2
|
||
db 2,0,8,0,0,0,0,12,1,1,1,1,0,0,0,2
|
||
db 2,0,8,1,0,1,0,12,0,0,0,0,0,0,0,2
|
||
db 2,0,8,0,1,1,12,12,0,0,0,8,1,1,1,2
|
||
db 2,0,8,0,12,0,0,12,0,0,0,8,0,12,0,2
|
||
db 2,0,8,0,0,0,8,1,8,0,0,1,8,1,8,2
|
||
db 2,0,8,0,0,8,1,1,1,8,0,0,8,0,8,2
|
||
db 2,0,1,1,1,1,1,1,1,1,1,1,1,1,8,2
|
||
db 2,0,0,0,0,0,0,0,16,0,0,0,0,0,8,2
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2;-------------------------------------------------------------------------------
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
|
||
db 2,0,0,0,0,12,0,0,0,0,0,0,16,0,0,2
|
||
db 2,0,8,1,1,1,1,1,1,1,1,1,1,1,0,2
|
||
db 2,0,8,0,0,0,0,0,12,0,0,0,0,0,0,2
|
||
db 2,0,8,0,0,0,0,1,8,1,0,0,0,0,0,2
|
||
db 2,0,8,0,0,0,1,1,8,1,1,0,0,0,0,2
|
||
db 2,0,8,0,12,1,1,1,8,1,1,1,12,0,0,2
|
||
db 2,0,8,0,1,1,12,1,8,1,12,1,1,0,0,2
|
||
db 2,0,0,1,1,1,1,1,8,1,1,1,1,0,0,2 ;3
|
||
db 2,0,1,0,0,0,0,0,8,1,0,0,0,1,0,2
|
||
db 2,0,1,0,1,1,1,1,8,1,1,1,0,1,0,2
|
||
db 2,0,1,1,12,1,12,1,8,1,1,1,0,1,0,2
|
||
db 2,0,1,1,1,1,1,1,8,1,1,1,0,1,0,2
|
||
db 2,0,1,1,12,1,12,1,8,1,1,1,12,1,0,2
|
||
db 2,0,0,0,0,0,0,0,8,0,0,0,0,0,0,2
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2;-------------------------------------------------------------------------------
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
|
||
db 2,0,12,0,0,0,0,0,0,0,0,0,16,0,0,2
|
||
db 2,0,1,8,1,1,1,1,1,1,8,1,1,1,8,2
|
||
db 2,0,0,8,0,0,0,0,0,0,8,0,0,0,8,2
|
||
db 2,0,1,1,1,1,1,8,1,1,1,1,1,1,0,2
|
||
db 2,0,0,12,0,0,12,8,0,0,12,0,0,0,0,2
|
||
db 2,12,1,1,1,8,1,1,1,1,8,1,1,1,8,2
|
||
db 2,0,0,0,0,8,0,0,0,0,8,0,0,0,8,2
|
||
db 2,8,1,1,1,1,1,1,8,1,1,1,1,1,0,2 ;4
|
||
db 2,8,0,0,0,12,0,0,8,0,0,12,0,0,0,2
|
||
db 2,0,1,8,1,1,1,1,1,1,1,1,8,1,0,2
|
||
db 2,0,0,8,12,0,0,0,0,12,0,0,8,0,0,2
|
||
db 2,8,1,1,1,1,1,1,8,1,1,1,1,1,8,2
|
||
db 2,8,12,0,0,0,0,0,0,0,0,0,0,12,8,2
|
||
db 2,8,2,4,4,4,4,4,4,4,4,4,4,2,8,2
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2;-------------------------------------------------------------------------------
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
|
||
db 2,8,1,8,12,8,1,8,1,8,1,8,1,8,1,2
|
||
db 2,8,2,8,1,8,1,8,1,8,1,8,12,8,12,2
|
||
db 2,8,1,8,1,8,2,8,12,8,1,8,1,8,1,2
|
||
db 2,8,12,8,0,8,0,8,0,8,0,8,0,8,0,2
|
||
db 2,1,8,1,1,1,1,1,8,1,1,1,1,1,8,2
|
||
db 2,0,8,0,0,0,0,0,8,0,0,12,0,0,8,2
|
||
db 2,0,8,12,0,2,12,0,8,1,1,1,1,1,8,2
|
||
db 2,0,1,1,8,1,1,1,8,0,0,0,0,0,8,2 ;5
|
||
db 2,0,1,0,8,0,0,0,8,0,0,12,0,0,8,2
|
||
db 2,0,1,0,8,0,0,0,8,1,1,1,1,1,8,2
|
||
db 2,0,1,12,8,0,0,2,8,0,0,0,0,0,8,2
|
||
db 2,8,1,1,1,1,8,1,1,1,1,8,1,1,1,2
|
||
db 2,8,0,0,0,0,8,2,0,0,2,8,0,0,0,2
|
||
db 2,0,8,0,12,8,8,2,4,4,2,8,0,0,16,2
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2;-------------------------------------------------------------------------------
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
|
||
db 2,0,8,0,8,0,8,0,8,0,0,8,0,8,16,2
|
||
db 2,1,8,1,8,1,8,1,8,1,1,8,1,8,1,2
|
||
db 2,0,8,0,8,0,8,0,8,8,0,8,0,8,0,2
|
||
db 2,1,1,8,1,1,1,1,1,8,1,1,8,1,1,2
|
||
db 2,0,0,8,8,0,12,8,0,8,8,12,8,8,0,2
|
||
db 2,1,1,1,8,1,1,8,1,1,8,1,1,8,1,2
|
||
db 2,0,8,0,8,0,12,8,0,0,8,0,12,8,0,2 ;6
|
||
db 2,1,8,1,1,1,1,1,8,1,1,1,1,1,1,2
|
||
db 2,0,8,0,12,8,0,0,8,12,0,8,0,0,0,2
|
||
db 2,1,8,1,1,8,1,1,8,1,1,8,1,1,1,2
|
||
db 2,0,0,8,0,8,8,0,8,8,0,8,8,0,0,2
|
||
db 2,1,1,8,1,1,8,1,1,8,1,1,8,1,1,2
|
||
db 2,0,0,8,12,0,8,0,12,8,0,12,8,12,12,2
|
||
db 2,8,8,1,1,1,1,1,1,1,1,1,1,1,1,2
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2;-------------------------------------------------------------------------------
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
|
||
db 2,0,12,0,12,0,12,12,0,12,0,12,0,0,0,2
|
||
db 2,1,1,1,8,1,1,1,1,1,1,8,1,1,1,2
|
||
db 2,0,0,0,8,0,0,12,0,0,0,8,0,0,0,2
|
||
db 2,1,1,1,1,1,1,1,8,1,1,1,1,1,1,2
|
||
db 2,0,0,0,12,0,0,0,8,12,0,0,0,0,0,2
|
||
db 2,1,1,1,8,1,1,1,1,1,1,8,1,1,1,2
|
||
db 2,0,0,0,8,0,0,0,0,0,0,8,0,0,0,2 ; 7
|
||
db 2,1,1,1,1,1,1,1,1,1,1,1,1,8,1,2
|
||
db 2,0,0,0,0,0,0,0,0,0,0,0,0,8,0,2
|
||
db 2,1,1,1,1,1,1,8,1,1,1,1,1,8,1,2
|
||
db 2,0,0,0,0,0,0,8,0,0,0,0,0,8,0,2
|
||
db 2,1,1,8,1,8,1,1,8,1,8,1,1,1,1,2
|
||
db 2,0,0,8,0,8,12,0,8,0,8,12,0,0,16,2
|
||
db 2,8,1,1,1,1,1,1,1,1,1,1,1,1,1,2
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2;-------------------------------------------------------------------------------
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
|
||
db 2,0,0,12,0,0,0,0,0,0,0,0,0,16,0,2
|
||
db 2,8,8,8,8,8,8,8,8,8,8,8,8,8,8,2
|
||
db 2,0,8,0,8,0,12,0,0,8,0,8,0,0,0,2
|
||
db 2,8,8,8,8,8,8,8,8,8,8,8,8,8,8,2
|
||
db 2,0,0,8,12,0,0,8,0,0,8,0,0,0,0,2
|
||
db 2,8,8,8,8,8,8,8,8,8,8,8,8,8,8,2
|
||
db 2,0,0,0,0,0,0,0,0,8,0,0,0,12,0,2
|
||
db 2,8,8,8,8,8,8,8,8,8,8,8,8,8,8,2
|
||
db 2,0,8,0,0,0,8,12,0,0,8,0,8,12,0,2
|
||
db 2,8,8,8,8,8,8,8,8,8,8,8,8,8,8,2
|
||
db 2,0,0,8,0,0,0,0,12,8,0,12,8,0,0,2
|
||
db 2,8,8,8,8,8,8,8,8,8,8,8,8,8,8,2
|
||
db 2,0,0,8,0,8,12,0,0,8,12,0,8,12,0,2
|
||
db 2,8,8,8,8,8,8,8,8,8,8,8,8,8,8,2
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2;-------------------------------------------------------------------------------
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
|
||
db 2,0,0,16,0,0,0,0,0,16,0,0,0,16,0,2
|
||
db 2,8,8,8,8,8,8,8,8,8,8,8,8,8,8,2
|
||
db 2,8,8,8,8,8,12,8,8,8,8,8,8,8,8,2
|
||
db 2,8,8,8,8,8,8,8,8,8,8,8,8,8,8,2
|
||
db 2,8,8,8,12,8,8,8,8,8,8,8,8,0,0,2
|
||
db 2,8,8,8,8,8,8,8,8,8,8,8,8,8,8,2
|
||
db 2,8,8,8,8,8,8,8,8,8,8,8,8,12,0,2
|
||
db 2,8,8,8,8,8,8,8,8,8,8,8,8,8,8,2
|
||
db 2,0,8,8,8,8,8,12,8,8,8,8,8,12,0,2
|
||
db 2,8,8,8,8,8,8,8,8,8,8,8,8,8,8,2
|
||
db 2,8,0,8,8,8,8,8,12,8,0,12,8,8,0,2
|
||
db 2,8,8,8,8,8,8,8,8,8,8,8,8,8,8,2
|
||
db 2,0,8,8,8,8,12,0,0,8,12,0,8,12,0,2
|
||
db 2,8,8,8,8,8,8,8,8,8,8,8,8,8,8,2
|
||
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2;-------------------------------------------------------------------------------
|
||
|
||
|
||
;-------------------------------------------------------------------------------
|
||
Bullet: dw 0,0,0,0,0,0
|
||
dw 0,0,0,0,0,0
|
||
dw 0,0,0,0,0,0
|
||
dw 0,0,0,0,0,0
|
||
;-------------------------------------------------------------------------------
|
||
|
||
|
||
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,256,224,0,0,0
|
||
dw 0,320,192,0,0,0
|
||
dw 0,32,256,0,0,0
|
||
dw 0,448,448,0,0,0
|
||
|
||
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
|
||
bullet_bmp:
|
||
file 'bullet.bmp'
|
||
rb 1
|
||
|
||
level_bmp:
|
||
file 'level2.bmp'
|
||
rb 1
|
||
|
||
kirpich:
|
||
file 'kirpich.bmp'
|
||
rb 1
|
||
|
||
kirpich3:
|
||
file 'kirpich2.bmp'
|
||
rb 1
|
||
|
||
kirpich2:
|
||
file 'oldkirpich.bmp'
|
||
rb 1
|
||
|
||
lest_bmp:
|
||
file 'lestnica.bmp'
|
||
rb 1
|
||
|
||
water1_bmp:
|
||
file 'water1.bmp'
|
||
rb 1
|
||
|
||
water2_bmp:
|
||
file 'water2.bmp'
|
||
rb 1
|
||
|
||
door1_bmp:
|
||
file 'door1.bmp'
|
||
rb 1
|
||
|
||
door2_bmp:
|
||
file 'door2.bmp'
|
||
rb 1
|
||
|
||
title db 'Dungeon (z/x - shoot)',0
|
||
|
||
img_level:
|
||
rb 448*448*3+8
|
||
|
||
;img_ded1:
|
||
;rb 448*448*3+8
|
||
|
||
img_area:
|
||
rb 32*32*3+8
|
||
|
||
img_area2:
|
||
rb 32*32*3+8
|
||
|
||
img_area3:
|
||
rb 32*32*3+8
|
||
|
||
img_bullet:
|
||
rb 4*8*3+8
|
||
|
||
img_lestniza:
|
||
rb 32*32*3+8
|
||
|
||
img_water1:
|
||
rb 32*32*3+8
|
||
|
||
img_water2:
|
||
rb 32*32*3+8
|
||
|
||
img_door1:
|
||
rb 32*32*3+8
|
||
|
||
img_door2:
|
||
rb 32*32*3+8
|
||
|
||
img_enemy1:
|
||
rb 32*32*3+8
|
||
|
||
img_enemy2:
|
||
rb 32*32*3+8
|
||
|
||
|
||
Music_bah:
|
||
db 0x0f, 0x09, 0
|
||
|
||
Music_mov:
|
||
db 0x00, 0x00, 0
|
||
|
||
Music_almaz:
|
||
db 0x09, 0x03, 0
|
||
|
||
entered rd 1
|
||
|
||
imgcount rd 1 ; кол-во всего кадров в анимации
|
||
img_index rd 1 ; номер текущего кадра
|
||
|
||
;hashtable rd 4096 ; рабочая область для РеадГИФ процедуры
|
||
workarea:
|
||
file 'aniall.gif'
|
||
|
||
|
||
;temp rb 0x100000 ; место для ГИФ фаила
|
||
rb 10
|
||
|
||
canvas:
|
||
xs dd 512
|
||
ys dd 512
|
||
rb 512*512*3
|
||
|
||
gif_hash_area:
|
||
rd 4096+1
|
||
|
||
coords:
|
||
rd 2
|
||
|
||
Image:
|