forked from KolibriOS/kolibrios
141 lines
3.2 KiB
PHP
141 lines
3.2 KiB
PHP
|
; level format
|
|||
|
|
; [fx|fy]..[field cells x2]..[worm_count]..[worm_len][start cell #][body dirs x2]
|
|||
|
|
|
|||
|
|
; internal format
|
|||
|
|
; [stepptr]= worms #
|
|||
|
|
; area: [worm_len][start_cell #][end_cell #]..[dirs]..
|
|||
|
|
; [cur_step]: dragged worm pointer
|
|||
|
|
; [finish]: 0 - if head dragged, 1- if tail
|
|||
|
|
CZ_levelp:
|
|||
|
|
call get_xy_sf
|
|||
|
|
call LP_levelp.bit2
|
|||
|
|
mov dword[area],5;0
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
CZ_key:
|
|||
|
|
mov [jump],still
|
|||
|
|
cmp eax,176
|
|||
|
|
jb .ex
|
|||
|
|
cmp eax,179
|
|||
|
|
ja .ex
|
|||
|
|
mov ecx,dword[area]
|
|||
|
|
lea ebx,[eax-176]
|
|||
|
|
mov eax,[player]
|
|||
|
|
call check_bounds
|
|||
|
|
je .ex
|
|||
|
|
cmp ecx,5
|
|||
|
|
jne .novert
|
|||
|
|
.vert:
|
|||
|
|
add eax,[dirs+ebx*4]
|
|||
|
|
call check_bounds
|
|||
|
|
je .ex
|
|||
|
|
mov ecx,eax
|
|||
|
|
add ecx,[dirs+ebx*4]
|
|||
|
|
mov cl,[field+ecx]
|
|||
|
|
cmp cl,[field+eax]
|
|||
|
|
jne .ex
|
|||
|
|
mov dword[area],ebx
|
|||
|
|
.ok:
|
|||
|
|
mov [player],eax
|
|||
|
|
cmp eax,[finish]
|
|||
|
|
jne .jm
|
|||
|
|
cmp dword[area],5
|
|||
|
|
jne .jm
|
|||
|
|
mov [win_flag],1
|
|||
|
|
.jm:
|
|||
|
|
mov [jump],drw
|
|||
|
|
.ex:
|
|||
|
|
ret
|
|||
|
|
.novert:
|
|||
|
|
mov edx,ebx
|
|||
|
|
cmp edx,ecx ; the same dir
|
|||
|
|
jne .nosame
|
|||
|
|
add eax,[dirs+ebx*4]
|
|||
|
|
call check_bounds
|
|||
|
|
je .ex
|
|||
|
|
.set5:
|
|||
|
|
mov dword[area],5
|
|||
|
|
add eax,[dirs+ebx*4]
|
|||
|
|
jmp .ok
|
|||
|
|
.nosame:
|
|||
|
|
xor edx,11b
|
|||
|
|
cmp edx,ecx ; the opposite dir
|
|||
|
|
je .set5
|
|||
|
|
add eax,[dirs+ebx*4]
|
|||
|
|
mov ebx,ecx
|
|||
|
|
xor ecx,11b
|
|||
|
|
add eax,[dirs+ecx*4]
|
|||
|
|
jmp .vert
|
|||
|
|
|
|||
|
|
CZ_drawm:
|
|||
|
|
mov ecx,[cell_count]
|
|||
|
|
mov esi,field
|
|||
|
|
mov [sq_size],3
|
|||
|
|
.lp:
|
|||
|
|
push ecx
|
|||
|
|
movzx ebx,byte[field+ecx-1]
|
|||
|
|
shr ebx,6
|
|||
|
|
lea eax,[ecx-1]
|
|||
|
|
call get_xy
|
|||
|
|
add [lx],5-2 shl 16
|
|||
|
|
add [ly],5-2 shl 16
|
|||
|
|
mov edx,[f_colors+ebx*4]
|
|||
|
|
mcall 13,[lx],[ly]
|
|||
|
|
.no:
|
|||
|
|
pop ecx
|
|||
|
|
loop .lp
|
|||
|
|
|
|||
|
|
inc [sq_size]
|
|||
|
|
mov eax,[player]
|
|||
|
|
call get_xy
|
|||
|
|
xor edx,edx
|
|||
|
|
cmp dword[area],5
|
|||
|
|
je .vert
|
|||
|
|
push [lx]
|
|||
|
|
push [ly]
|
|||
|
|
mov edx,dword[area]
|
|||
|
|
add eax,[dirs+edx*4]
|
|||
|
|
call get_xy
|
|||
|
|
mcall 13,[lx],[ly]
|
|||
|
|
pop [ly]
|
|||
|
|
pop [lx]
|
|||
|
|
.vert:
|
|||
|
|
mcall 13,[lx],[ly]
|
|||
|
|
add [sq_size],5
|
|||
|
|
mov eax,[finish]
|
|||
|
|
call get_xy
|
|||
|
|
mcall 13,[lx],[ly],0xffffff
|
|||
|
|
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
CZ_level:
|
|||
|
|
file 'colzone.bin'
|
|||
|
|
|
|||
|
|
if lang eq ru
|
|||
|
|
CZ_help mstr \
|
|||
|
|
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> 2 <20>㡨<EFBFBD><E3A1A8><EFBFBD> <20>⮨<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>襭<EFBFBD><E8A5AD><EFBFBD>',\
|
|||
|
|
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⮩ <20><>᪥. <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><>४<EFBFBD><E0A5AA><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><>',\
|
|||
|
|
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⨪<EFBFBD><E2A8AA>. <20><><EFBFBD><EFBFBD> <20><>稭<EFBFBD><E7A8AD><EFBFBD> <20><><EFBFBD><EFBFBD> <20>',\
|
|||
|
|
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⮦<> <20> <20><><EFBFBD>⨪<EFBFBD><E2A8AA>쭮<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.',\
|
|||
|
|
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>몠<EFBFBD>뢠<EFBFBD><EBA2A0> <20><><EFBFBD> <20><> <20>।<EFBFBD><E0A5A4><EFBFBD> <20><>⪨ <20> ᢥ<><E1A2A5>',\
|
|||
|
|
'⮣<> - <20>㡨<EFBFBD><E3A1A8> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ᥣ<EFBFBD><E1A5A3> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>',\
|
|||
|
|
'<27><><EFBFBD>⪨ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 梥<><E6A2A5>. <20><><EFBFBD><EFBFBD> <20><> <20>⮡ࠦ<E2AEA1><E0A0A6> <20> 3D,',\
|
|||
|
|
'<27><><EFBFBD>⮬<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><EFBFBD><E0AEA5><EFBFBD><EFBFBD>.','',\
|
|||
|
|
'http://www.clickmazes.com'
|
|||
|
|
else
|
|||
|
|
CZ_help mstr \
|
|||
|
|
'A black block, made of two black cubes stuck',\
|
|||
|
|
'together, sits on a coloured grid. Your challenge',\
|
|||
|
|
'is to roll the black block to its target',\
|
|||
|
|
'position, which is marked with a small white',\
|
|||
|
|
'square. The block starts on one end (vertical)',\
|
|||
|
|
'and must also finish in this position. The block',\
|
|||
|
|
'is not permitted to roll off the grid and, in',\
|
|||
|
|
'addition, the block must always lie entirely',\
|
|||
|
|
'within one colour-zone. Note the block is not',\
|
|||
|
|
'displayed in 3D, in effect you see only its',\
|
|||
|
|
'shadow.','',\
|
|||
|
|
'http://www.clickmazes.com'
|
|||
|
|
end if
|