712 lines
14 KiB
NASM
712 lines
14 KiB
NASM
|
LEVELCONV equ 10
|
|||
|
|
SQ equ 8
|
|||
|
|
FLDSIZE equ 49
|
|||
|
|
FLDSIZE2 equ FLDSIZE*8
|
|||
|
|
DELAY equ 20
|
|||
|
|
TICKS equ 10
|
|||
|
|
LEV_START equ 1
|
|||
|
|
MOBILITY equ 9;13
|
|||
|
|
|
|||
|
|
use32
|
|||
|
|
org 0x0
|
|||
|
|
|
|||
|
|
db 'MENUET01' ; 8 byte id
|
|||
|
|
dd 0x01 ; header version
|
|||
|
|
dd run ; start of code
|
|||
|
|
dd I_END ; size of image
|
|||
|
|
dd stak+0x400 ; memory for app
|
|||
|
|
dd stak+0x400 ; esp
|
|||
|
|
dd 0x0 , 0x0 ; I_Param , I_Icon
|
|||
|
|
include "lang.inc"
|
|||
|
|
include "MACROS.INC"
|
|||
|
|
;include "DEBUG.INC"
|
|||
|
|
|
|||
|
|
run:
|
|||
|
|
if LEVELCONV eq 1
|
|||
|
|
call compress_levels
|
|||
|
|
jmp close
|
|||
|
|
end if
|
|||
|
|
mcall 3
|
|||
|
|
mov cl,16
|
|||
|
|
ror eax,cl
|
|||
|
|
mov [generator],eax ; random generator from Tetris
|
|||
|
|
reset:
|
|||
|
|
mov [levptr],level
|
|||
|
|
mov [levnum],LEV_START
|
|||
|
|
if ~ LEV_START eq 1
|
|||
|
|
mov ecx,[levnum]
|
|||
|
|
dec ecx
|
|||
|
|
mov esi,[levptr]
|
|||
|
|
jecxz start
|
|||
|
|
.lp:
|
|||
|
|
movzx eax,word[esi]
|
|||
|
|
and eax,0x7fff
|
|||
|
|
add esi,eax ; limit
|
|||
|
|
loop .lp
|
|||
|
|
mov [levptr],esi
|
|||
|
|
; sub esi,level
|
|||
|
|
; dpd esi
|
|||
|
|
end if
|
|||
|
|
start:
|
|||
|
|
mov ecx,[generator]
|
|||
|
|
and ecx,0xff
|
|||
|
|
.shuf:
|
|||
|
|
call random
|
|||
|
|
loop .shuf
|
|||
|
|
xor eax,eax
|
|||
|
|
and [locked],eax
|
|||
|
|
and [captured],eax
|
|||
|
|
mov [ticks],TICKS
|
|||
|
|
mov [mode],-1
|
|||
|
|
mov ebx,FLDSIZE
|
|||
|
|
mov eax,[generator]
|
|||
|
|
xor edx,edx
|
|||
|
|
div ebx
|
|||
|
|
mov cl,dl
|
|||
|
|
call random
|
|||
|
|
mov eax,[generator]
|
|||
|
|
xor edx,edx
|
|||
|
|
div ebx
|
|||
|
|
mov ch,dl
|
|||
|
|
xchg eax,ecx
|
|||
|
|
movzx ecx,al
|
|||
|
|
imul cx,bx
|
|||
|
|
shr ax,8
|
|||
|
|
add cx,ax
|
|||
|
|
mov esi,[levptr]
|
|||
|
|
mov [dot],ecx
|
|||
|
|
call decompress_level
|
|||
|
|
mov ebx,8
|
|||
|
|
call nokey
|
|||
|
|
red:
|
|||
|
|
call draw_window
|
|||
|
|
; and [event],0
|
|||
|
|
|
|||
|
|
still:
|
|||
|
|
|
|||
|
|
.flush:
|
|||
|
|
mcall 2
|
|||
|
|
test al,al
|
|||
|
|
jz .flush
|
|||
|
|
|
|||
|
|
mov ebx,DELAY
|
|||
|
|
mov eax,[levnum]
|
|||
|
|
shr eax,1
|
|||
|
|
sub ebx,eax
|
|||
|
|
mov eax,23
|
|||
|
|
cmp [mode],0
|
|||
|
|
jl .wait
|
|||
|
|
mov eax,10
|
|||
|
|
.wait:
|
|||
|
|
mcall
|
|||
|
|
.evt:
|
|||
|
|
mov ebx,8
|
|||
|
|
test eax,eax
|
|||
|
|
jne .ev_yes
|
|||
|
|
dec [ticks]
|
|||
|
|
jne still
|
|||
|
|
; mov [ticks],TICKS
|
|||
|
|
; cmp al,[event]
|
|||
|
|
jmp key.ex
|
|||
|
|
; and [event],al
|
|||
|
|
; jmp still
|
|||
|
|
.ev_yes:
|
|||
|
|
cmp eax,2
|
|||
|
|
je key
|
|||
|
|
cmp eax,1 ; redraw request ?
|
|||
|
|
je red
|
|||
|
|
cmp eax,3 ; button in buffer ?
|
|||
|
|
je button
|
|||
|
|
key:
|
|||
|
|
; mov [event],al
|
|||
|
|
mcall 2
|
|||
|
|
cmp ah,13
|
|||
|
|
je button.mode
|
|||
|
|
cmp ah,27
|
|||
|
|
je button.mode
|
|||
|
|
cmp [mode],-1
|
|||
|
|
jne still
|
|||
|
|
cmp ah,104
|
|||
|
|
jne .nohelp
|
|||
|
|
mov [mode],4
|
|||
|
|
jmp red
|
|||
|
|
.nohelp:
|
|||
|
|
cmp ah,112
|
|||
|
|
jne .nopau
|
|||
|
|
mov [mode],3
|
|||
|
|
jmp red
|
|||
|
|
.nopau:
|
|||
|
|
shr eax,8
|
|||
|
|
; dpd eax
|
|||
|
|
cmp eax,' '
|
|||
|
|
je .ex
|
|||
|
|
cmp eax,176
|
|||
|
|
jb still
|
|||
|
|
cmp eax,179
|
|||
|
|
ja still
|
|||
|
|
cmp [locked],0
|
|||
|
|
jnz still
|
|||
|
|
lea ebx,[eax-176]
|
|||
|
|
.ex:
|
|||
|
|
mov [ticks],TICKS
|
|||
|
|
call nokey
|
|||
|
|
call evolution
|
|||
|
|
call red_field
|
|||
|
|
jmp still
|
|||
|
|
|
|||
|
|
button: ; BUTTON - only close supported
|
|||
|
|
mcall 17
|
|||
|
|
cmp ah,2
|
|||
|
|
jne close
|
|||
|
|
mcall 8,,,2+1 shl 31
|
|||
|
|
; mov [event],2
|
|||
|
|
.mode:
|
|||
|
|
mov [ticks],TICKS
|
|||
|
|
mov al,[mode]
|
|||
|
|
cmp al,1
|
|||
|
|
je reset
|
|||
|
|
cmp al,2
|
|||
|
|
je reset
|
|||
|
|
mov [mode],-1
|
|||
|
|
test al,al
|
|||
|
|
jnz .no0
|
|||
|
|
inc [levnum]
|
|||
|
|
jmp start
|
|||
|
|
.no0:
|
|||
|
|
jmp red
|
|||
|
|
close:
|
|||
|
|
or eax,-1
|
|||
|
|
int 0x40
|
|||
|
|
|
|||
|
|
; *********************************************
|
|||
|
|
; ******* WINDOW DEFINITIONS AND DRAW ********
|
|||
|
|
; *********************************************
|
|||
|
|
draw_window:
|
|||
|
|
mov [ticks],TICKS
|
|||
|
|
mcall 12,1
|
|||
|
|
mcall 0,<100,FLDSIZE2+16>,<100,FLDSIZE2+38>,0x03008000
|
|||
|
|
mcall 4,<8,8>,0x10ffffff,header,header.size
|
|||
|
|
mov esi,ecx
|
|||
|
|
if lang eq ru
|
|||
|
|
mcall 47,0x20000,[levnum],<165,8>
|
|||
|
|
else
|
|||
|
|
mcall 47,0x20000,[levnum],<145,8>
|
|||
|
|
end if
|
|||
|
|
call red_field
|
|||
|
|
cmp [mode],0
|
|||
|
|
jl .edraw
|
|||
|
|
mov ecx,(FLDSIZE2-20) shl 16+20
|
|||
|
|
cmp [mode],4
|
|||
|
|
jne .nohelp
|
|||
|
|
mov ecx,100 shl 16+FLDSIZE2-35-100+38
|
|||
|
|
.nohelp:
|
|||
|
|
mcall 13,<5+8,FLDSIZE2-8>,,0xf5deb3;0xffff00
|
|||
|
|
mcall 8,<FLDSIZE2-40,35>,<FLDSIZE2-18,15>,2,0xc0c000
|
|||
|
|
mcall 4,<363,FLDSIZE2-20+6>,0x100000ff,msg_ok,2
|
|||
|
|
mov ebx,(5+8+35)shl 16+FLDSIZE2-20+6
|
|||
|
|
movzx ecx,[mode]
|
|||
|
|
mov edx,messages+4
|
|||
|
|
cmp ecx,4
|
|||
|
|
jne .nxt
|
|||
|
|
mov edx,desc+4
|
|||
|
|
xor ecx,ecx
|
|||
|
|
mov ebx,20 shl 16+110
|
|||
|
|
.nxt:
|
|||
|
|
mov esi,[edx-4]
|
|||
|
|
jecxz .drw
|
|||
|
|
dec ecx
|
|||
|
|
lea edx,[edx+esi+4]
|
|||
|
|
jmp .nxt
|
|||
|
|
.drw:
|
|||
|
|
cmp esi,-1
|
|||
|
|
je .edraw
|
|||
|
|
mcall ,,0x000000ff
|
|||
|
|
mov ecx,1
|
|||
|
|
add ebx,18
|
|||
|
|
cmp [mode],4
|
|||
|
|
je .nxt
|
|||
|
|
.edraw:
|
|||
|
|
mcall 12,2
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
red_field:
|
|||
|
|
mov edi,field
|
|||
|
|
mov ebp,28 shl 16+SQ ; y
|
|||
|
|
mov ecx,FLDSIZE
|
|||
|
|
.lp1:
|
|||
|
|
push ecx
|
|||
|
|
mov ecx,FLDSIZE
|
|||
|
|
mov ebx,8 shl 16+SQ ; x
|
|||
|
|
.lp2:
|
|||
|
|
push ecx
|
|||
|
|
mov edx,0x8000
|
|||
|
|
cmp byte[edi],0
|
|||
|
|
je .zero
|
|||
|
|
cmp byte[edi],2
|
|||
|
|
jne .nored
|
|||
|
|
mov edx,0xff0000
|
|||
|
|
cmp [locked],0
|
|||
|
|
jz .zero
|
|||
|
|
mov edx,0xa00000
|
|||
|
|
jmp .zero
|
|||
|
|
.nored:
|
|||
|
|
mov edx,0
|
|||
|
|
.zero:
|
|||
|
|
mcall 13,,ebp
|
|||
|
|
inc edi
|
|||
|
|
pop ecx
|
|||
|
|
add ebx,8 shl 16
|
|||
|
|
loop .lp2
|
|||
|
|
pop ecx
|
|||
|
|
add ebp,8 shl 16
|
|||
|
|
loop .lp1
|
|||
|
|
|
|||
|
|
mov eax,[dot]
|
|||
|
|
mov cl,FLDSIZE
|
|||
|
|
div cl
|
|||
|
|
|
|||
|
|
; movzx ebx,ah
|
|||
|
|
; shl ebx,19
|
|||
|
|
; add ebx,8 shl 16+7
|
|||
|
|
; movzx ecx,al
|
|||
|
|
; shl ecx,19
|
|||
|
|
; add ecx,28 shl 16+7
|
|||
|
|
; push eax
|
|||
|
|
; mcall 13,,,0xff
|
|||
|
|
; pop eax
|
|||
|
|
|
|||
|
|
movzx ebx,ah
|
|||
|
|
shl ebx,19
|
|||
|
|
add ebx,8 shl 16
|
|||
|
|
shld edx,ebx,16
|
|||
|
|
add dx,SQ-1
|
|||
|
|
mov bx,dx
|
|||
|
|
movzx ecx,al
|
|||
|
|
shl ecx,19
|
|||
|
|
add ecx,28 shl 16
|
|||
|
|
shld edx,ecx,16
|
|||
|
|
add dx,SQ-1
|
|||
|
|
mov cx,dx
|
|||
|
|
mcall 38,,,0xffffff
|
|||
|
|
ror ecx,16
|
|||
|
|
mcall
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
nokey:
|
|||
|
|
xor eax,eax
|
|||
|
|
mov edi,buff
|
|||
|
|
mov ecx,FLDSIZE*FLDSIZE+3
|
|||
|
|
push ecx edi
|
|||
|
|
rep stosb
|
|||
|
|
pop edi
|
|||
|
|
;mov esi,field
|
|||
|
|
mov edi,field
|
|||
|
|
mov edx,FLDSIZE
|
|||
|
|
pop ecx
|
|||
|
|
.llp:
|
|||
|
|
mov eax,2
|
|||
|
|
repne scasb
|
|||
|
|
jecxz .exx
|
|||
|
|
and byte[edi-1],0
|
|||
|
|
push ecx
|
|||
|
|
lea eax,[edi-field-1]
|
|||
|
|
div dl
|
|||
|
|
call get_cell
|
|||
|
|
mov byte[buff+ecx],2
|
|||
|
|
pop ecx
|
|||
|
|
loop .llp
|
|||
|
|
.exx:
|
|||
|
|
mov edi,field
|
|||
|
|
mov esi,buff
|
|||
|
|
mov ecx,FLDSIZE*FLDSIZE
|
|||
|
|
.lp4:
|
|||
|
|
lodsb
|
|||
|
|
cmp al,2
|
|||
|
|
jne .skip3
|
|||
|
|
mov [edi],al
|
|||
|
|
.skip3:
|
|||
|
|
inc edi
|
|||
|
|
loop .lp4
|
|||
|
|
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
get_cell:
|
|||
|
|
; ax - source cell [x][y]
|
|||
|
|
; ebx - direction
|
|||
|
|
; 4 2 5
|
|||
|
|
; 0 . 3
|
|||
|
|
; 6 1 7
|
|||
|
|
; out - ecx cell ptr
|
|||
|
|
|
|||
|
|
push eax ebx
|
|||
|
|
add ax,[ebx*2+dirs]
|
|||
|
|
mov ebx,FLDSIZE
|
|||
|
|
.c0:
|
|||
|
|
cmp al,bl
|
|||
|
|
jb .c1
|
|||
|
|
sub al,bl
|
|||
|
|
jmp .c0
|
|||
|
|
.c1:
|
|||
|
|
cmp ah,bl
|
|||
|
|
jb .c2
|
|||
|
|
sub ah,bl
|
|||
|
|
jmp .c1
|
|||
|
|
.c2:
|
|||
|
|
movzx ecx,al
|
|||
|
|
imul cx,bx
|
|||
|
|
shr ax,8
|
|||
|
|
add cx,ax
|
|||
|
|
pop ebx eax
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
evolution:
|
|||
|
|
xor edi,edi
|
|||
|
|
and [locked],edi
|
|||
|
|
mov edx,FLDSIZE
|
|||
|
|
mov ecx,FLDSIZE*FLDSIZE
|
|||
|
|
.l1:
|
|||
|
|
push ecx
|
|||
|
|
mov eax,edi
|
|||
|
|
div dl
|
|||
|
|
mov ecx,8
|
|||
|
|
xor ebx,ebx
|
|||
|
|
mov word[neib],bx ; neighbour count
|
|||
|
|
.l2:
|
|||
|
|
push ecx
|
|||
|
|
call get_cell
|
|||
|
|
movzx esi,byte[field+ecx]
|
|||
|
|
test esi,esi ; 0?
|
|||
|
|
jz .skip2
|
|||
|
|
inc byte[neib-1+esi]
|
|||
|
|
.skip2:
|
|||
|
|
inc ebx
|
|||
|
|
pop ecx
|
|||
|
|
loop .l2
|
|||
|
|
mov cl,[neib]
|
|||
|
|
add cl,[neib+1]
|
|||
|
|
cmp cl,2
|
|||
|
|
jne .no2
|
|||
|
|
mov al,[field+edi]
|
|||
|
|
jmp .writebuf
|
|||
|
|
.no2:
|
|||
|
|
xor al,al
|
|||
|
|
cmp cl,3
|
|||
|
|
jne .writebuf
|
|||
|
|
inc al
|
|||
|
|
mov cl,[neib+1]
|
|||
|
|
cmp cl,[neib]
|
|||
|
|
jb .writebuf
|
|||
|
|
inc al
|
|||
|
|
.writebuf:
|
|||
|
|
mov [buff+edi],al
|
|||
|
|
pop ecx
|
|||
|
|
inc edi
|
|||
|
|
loop .l1
|
|||
|
|
|
|||
|
|
mov esi,buff
|
|||
|
|
mov edi,field
|
|||
|
|
mov ecx,FLDSIZE*FLDSIZE
|
|||
|
|
rep movsb
|
|||
|
|
call square_check
|
|||
|
|
call dot_move
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
square_check:
|
|||
|
|
mov ecx,FLDSIZE*FLDSIZE+3
|
|||
|
|
mov edx,FLDSIZE
|
|||
|
|
mov edi,field
|
|||
|
|
xor eax,eax
|
|||
|
|
pusha
|
|||
|
|
and dword[cells],eax
|
|||
|
|
and [locked],eax
|
|||
|
|
.nored:
|
|||
|
|
mov al,[edi]
|
|||
|
|
inc edi
|
|||
|
|
dec ecx
|
|||
|
|
jecxz .ex1
|
|||
|
|
test al,al
|
|||
|
|
jz .nored
|
|||
|
|
inc [cells-2+eax*2]
|
|||
|
|
jmp .nored
|
|||
|
|
.ex1:
|
|||
|
|
mov ax,[cells+2]
|
|||
|
|
cmp ax,[cells]
|
|||
|
|
ja dot_move.next_lev
|
|||
|
|
cmp [cells+2],4
|
|||
|
|
je .sq_check
|
|||
|
|
add esp,32
|
|||
|
|
cmp [cells+2],0
|
|||
|
|
jne .loc
|
|||
|
|
mov [mode],1
|
|||
|
|
mov dword[esp+4],red
|
|||
|
|
.loc:
|
|||
|
|
inc [locked]
|
|||
|
|
ret
|
|||
|
|
.sq_check:
|
|||
|
|
popa
|
|||
|
|
.nored2:
|
|||
|
|
mov eax,2
|
|||
|
|
repne scasb
|
|||
|
|
jecxz .loc
|
|||
|
|
lea eax,[edi-field-1]
|
|||
|
|
div dl
|
|||
|
|
xor dh,dh
|
|||
|
|
push ecx
|
|||
|
|
mov ebx,1
|
|||
|
|
call get_cell
|
|||
|
|
add dh,[field+ecx]
|
|||
|
|
mov ebx,3
|
|||
|
|
call get_cell
|
|||
|
|
add dh,[field+ecx]
|
|||
|
|
mov ebx,7
|
|||
|
|
call get_cell
|
|||
|
|
add dh,[field+ecx]
|
|||
|
|
pop ecx
|
|||
|
|
cmp dh,6
|
|||
|
|
jne .nored2
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
random:
|
|||
|
|
mov eax, [generator]
|
|||
|
|
sub eax,0x43ab45b5 ; next random number
|
|||
|
|
ror eax,1
|
|||
|
|
xor eax,0x32c4324f
|
|||
|
|
ror eax,1
|
|||
|
|
mov [generator],eax
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
dot_move:
|
|||
|
|
call random
|
|||
|
|
mov eax,[generator]
|
|||
|
|
xor edx,edx
|
|||
|
|
mov ebx,MOBILITY
|
|||
|
|
div ebx
|
|||
|
|
cmp edx,8
|
|||
|
|
jb .nostay
|
|||
|
|
mov edx,16
|
|||
|
|
.nostay:
|
|||
|
|
mov ebx,edx
|
|||
|
|
shr ebx,1
|
|||
|
|
mov eax,[dot]
|
|||
|
|
; dpd eax
|
|||
|
|
mov cl,FLDSIZE
|
|||
|
|
div cl
|
|||
|
|
call get_cell
|
|||
|
|
mov [dot],ecx
|
|||
|
|
cmp byte[field+ecx],2
|
|||
|
|
jne .nocap
|
|||
|
|
inc [captured]
|
|||
|
|
cmp [captured],2
|
|||
|
|
jne .ex
|
|||
|
|
.next_lev:
|
|||
|
|
mov [mode],0
|
|||
|
|
pop eax
|
|||
|
|
mov eax,[levptr]
|
|||
|
|
cmp word[eax],0
|
|||
|
|
jne .nxt
|
|||
|
|
mov [mode],2
|
|||
|
|
.nxt:
|
|||
|
|
mov dword[esp],red
|
|||
|
|
ret
|
|||
|
|
.nocap:
|
|||
|
|
and [captured],0
|
|||
|
|
.ex:
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
if LEVELCONV eq 1
|
|||
|
|
fileinfo:
|
|||
|
|
|
|||
|
|
dd 2
|
|||
|
|
dd 0x0
|
|||
|
|
dd 0x0
|
|||
|
|
.fsize dd 10000
|
|||
|
|
.ptr dd 0x20000
|
|||
|
|
db '/RD/1/newlev.bin',0
|
|||
|
|
|
|||
|
|
macro flush
|
|||
|
|
{
|
|||
|
|
mov [edi],dh
|
|||
|
|
inc edi
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
compress_levels:
|
|||
|
|
mov esi,raw_level
|
|||
|
|
mov edi,I_END
|
|||
|
|
mov [fileinfo.ptr],edi
|
|||
|
|
mov ecx,(raw_level_size-raw_level)/(FLDSIZE*FLDSIZE*4) ; 19
|
|||
|
|
.lp1:
|
|||
|
|
push ecx
|
|||
|
|
mov ecx,FLDSIZE*FLDSIZE
|
|||
|
|
mov ebx,edi
|
|||
|
|
mov eax,[esi]
|
|||
|
|
; movzx eax,byte[esi]
|
|||
|
|
movzx edx,al
|
|||
|
|
dpd edx
|
|||
|
|
shl eax,15
|
|||
|
|
stosw
|
|||
|
|
.lp2:
|
|||
|
|
lodsd ;lodsb
|
|||
|
|
cmp al,0xd
|
|||
|
|
jne .nored
|
|||
|
|
flush
|
|||
|
|
xor al,al
|
|||
|
|
stosb
|
|||
|
|
add esi,4
|
|||
|
|
dec ecx
|
|||
|
|
xor dh,dh
|
|||
|
|
jmp .eloop
|
|||
|
|
.nored:
|
|||
|
|
cmp al,dl
|
|||
|
|
jne .change
|
|||
|
|
inc dh
|
|||
|
|
cmp dh,0xff
|
|||
|
|
jb .eloop
|
|||
|
|
flush
|
|||
|
|
xor dh,dh
|
|||
|
|
jmp .eloop
|
|||
|
|
.change:
|
|||
|
|
flush
|
|||
|
|
xor dl,1
|
|||
|
|
mov dh,1
|
|||
|
|
.eloop:
|
|||
|
|
loop .lp2
|
|||
|
|
flush
|
|||
|
|
mov eax,edi
|
|||
|
|
sub eax,ebx
|
|||
|
|
add [ebx],ax
|
|||
|
|
pop ecx
|
|||
|
|
loop .lp1
|
|||
|
|
xor eax,eax
|
|||
|
|
stosw
|
|||
|
|
sub edi,I_END
|
|||
|
|
mov [fileinfo.fsize],edi
|
|||
|
|
mcall 70,fileinfo
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
raw_level:
|
|||
|
|
file 'noname1.dat'
|
|||
|
|
raw_level_size:
|
|||
|
|
|
|||
|
|
end if
|
|||
|
|
|
|||
|
|
decompress_level:
|
|||
|
|
; esi - level begin
|
|||
|
|
mov edi,field
|
|||
|
|
movzx edx,word[esi]
|
|||
|
|
xor ecx,ecx
|
|||
|
|
mov eax,edx
|
|||
|
|
and edx,0x7fff
|
|||
|
|
add edx,esi ; limit
|
|||
|
|
mov [levptr],edx
|
|||
|
|
add esi,2
|
|||
|
|
shr eax,15
|
|||
|
|
.next:
|
|||
|
|
cmp esi,edx
|
|||
|
|
jae .exloop
|
|||
|
|
movzx ebx,byte[esi]
|
|||
|
|
inc esi
|
|||
|
|
test ebx,ebx
|
|||
|
|
jne .nored
|
|||
|
|
rep stosb
|
|||
|
|
xor al,1
|
|||
|
|
mov word[edi],0x0202
|
|||
|
|
add edi,2
|
|||
|
|
jmp .next
|
|||
|
|
.nored:
|
|||
|
|
add ecx,ebx
|
|||
|
|
cmp ebx,0xff
|
|||
|
|
je .next
|
|||
|
|
rep stosb
|
|||
|
|
xor al,1
|
|||
|
|
jmp .next
|
|||
|
|
.exloop:
|
|||
|
|
rep stosb
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
; DATA AREA
|
|||
|
|
|
|||
|
|
FS1 equ (FLDSIZE-1)
|
|||
|
|
dirs dw FS1 shl 8,\
|
|||
|
|
1,\
|
|||
|
|
FS1,\
|
|||
|
|
1 shl 8,\
|
|||
|
|
FS1 shl 8+FS1,\
|
|||
|
|
1 shl 8+FS1,\
|
|||
|
|
FS1 shl 8+1,\
|
|||
|
|
1 shl 8+1,\
|
|||
|
|
0
|
|||
|
|
level:
|
|||
|
|
file 'rlevels.bin'
|
|||
|
|
|
|||
|
|
msg_ok db 'OK'
|
|||
|
|
if lang eq ru
|
|||
|
|
header db 'Red Square - <20><EFBFBD><E0AEA2><EFBFBD> h - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, p - <20><>㧠'
|
|||
|
|
.size = $ - header
|
|||
|
|
messages mstr '<27>⫨筮! <20><> <20><><EFBFBD><EFBFBD>室<EFBFBD><E5AEA4><EFBFBD> <20><> <><E1ABA5><EFBFBD>騩 <20><EFBFBD><E0AEA2><EFBFBD>.',\
|
|||
|
|
'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>⪨ 㭨<EFBFBD>⮦<EFBFBD><EFBFBD><EFBFBD>. <EFBFBD><EFBFBD> <EFBFBD>ந<EFBFBD>ࠫ<EFBFBD>.',\
|
|||
|
|
'<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>諨 <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>. <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ࠢ<EFBFBD>塞!',\
|
|||
|
|
'<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>ਮ<EFBFBD>⠭<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>...'
|
|||
|
|
|
|||
|
|
desc mstr ' <20><> <20><>ࠥ<EFBFBD><E0A0A5> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⨪<EFBFBD><E2A8AA>. <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> - <20>릨<EFBFBD><EBA6A8> <20>।<EFBFBD>',\
|
|||
|
|
'ࠧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>⮪. <EFBFBD> <EFBFBD><EFBFBD><EFBFBD> 㤠<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',\
|
|||
|
|
'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>⨪, <EFBFBD><EFBFBD> <EFBFBD>ன<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>.',\
|
|||
|
|
' <EFBFBD>⮡<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>⨪, <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',\
|
|||
|
|
'<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>⮪ <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>殮<EFBFBD><EFBFBD><EFBFBD> 2 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.',\
|
|||
|
|
' <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠧ<EFBFBD><EFBFBD>襭, <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD>ந<EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',\
|
|||
|
|
'<EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>樨 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢮ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',\
|
|||
|
|
'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>⮪ <EFBFBD>⠭<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, 祬 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>㤥<EFBFBD>',\
|
|||
|
|
"<EFBFBD>ன<EFBFBD><EFBFBD><EFBFBD>.",\
|
|||
|
|
'---',\
|
|||
|
|
'<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>⮭ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>५ <EFBFBD>४<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',\
|
|||
|
|
'<EFBFBD>ணࠬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>稭<EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD>ࠪ⨪<EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD>. <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ॠ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',\
|
|||
|
|
'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>⮩ <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>祭<EFBFBD>.',\
|
|||
|
|
'---',\
|
|||
|
|
'<EFBFBD>ਣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> Win32 <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᠫ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>ਢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>, 2002',\
|
|||
|
|
'<EFBFBD><EFBFBD><EFBFBD>ணࠬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ᥬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Willow, 2005'
|
|||
|
|
else
|
|||
|
|
header db 'Red Square - Level h - Help, p - Pause'
|
|||
|
|
.size = $ - header
|
|||
|
|
messages mstr 'Well done! You are on the next level',\
|
|||
|
|
'Your red cells are vanished! Game over.',\
|
|||
|
|
"You've completed the game. Congratulations!",\
|
|||
|
|
'Game paused...'
|
|||
|
|
|
|||
|
|
desc mstr ' The main goal of the game for your red square is to stay',\
|
|||
|
|
'alive going through the evolving black cells. If you manage to',\
|
|||
|
|
'catch the white cross, you will pass the level.',\
|
|||
|
|
' To catch the white cross, it must be covered by red cell',\
|
|||
|
|
'during 2 generations.',\
|
|||
|
|
" If your red square is corrupted, you haven't lost yet. You",\
|
|||
|
|
'may have a luck, and if your red cells is developing and the',\
|
|||
|
|
'quantity of black cells is bigger than that of black cells,',\
|
|||
|
|
"you'll pass the level.",\
|
|||
|
|
'---',\
|
|||
|
|
'John Horton Conway has created a great game. Almost every',\
|
|||
|
|
'programmer begins his professional work from it. But the real',\
|
|||
|
|
'possibilities of this game have not discovered yet.',\
|
|||
|
|
'---',\
|
|||
|
|
'Original game under Win32 by Vladimir Privalov, 2002',\
|
|||
|
|
'Programmed in assembly by Willow, 2005'
|
|||
|
|
end if
|
|||
|
|
I_END:
|
|||
|
|
neib db ?,?
|
|||
|
|
cells dw ?,?
|
|||
|
|
mode db ?
|
|||
|
|
levptr dd ?
|
|||
|
|
levnum dd ?
|
|||
|
|
reds dd ?
|
|||
|
|
locked dd ?
|
|||
|
|
generator dd ?
|
|||
|
|
dot dd ?
|
|||
|
|
ticks dd ?
|
|||
|
|
captured dd ?
|
|||
|
|
if LEVELCONV eq 1
|
|||
|
|
os_work rb 4096
|
|||
|
|
end if
|
|||
|
|
field:
|
|||
|
|
rb FLDSIZE*FLDSIZE
|
|||
|
|
rd 1
|
|||
|
|
buff:
|
|||
|
|
rb FLDSIZE*FLDSIZE
|
|||
|
|
stak:
|