mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-14 10:57:08 +03:00
246 lines
4.3 KiB
PHP
246 lines
4.3 KiB
PHP
|
LP_levelp:
|
|||
|
mcall 40,100111b
|
|||
|
inc [drag_flag]
|
|||
|
lodsb
|
|||
|
lodsw
|
|||
|
mov byte[fx],al
|
|||
|
mov byte[fy],ah
|
|||
|
and dword[player],0
|
|||
|
and dword[finish],0
|
|||
|
call get_xy_sf.count
|
|||
|
call erase_field
|
|||
|
; mov [levptr],esi
|
|||
|
.bit2:
|
|||
|
mov edx,8/2
|
|||
|
mov edi,field
|
|||
|
lodsb
|
|||
|
mov ecx,[cell_count]
|
|||
|
.lp:
|
|||
|
mov bl,al
|
|||
|
rol al,2
|
|||
|
and bl,11000000b
|
|||
|
mov [edi],bl
|
|||
|
inc edi
|
|||
|
dec edx
|
|||
|
test edx,edx
|
|||
|
jnz .nxt
|
|||
|
mov edx,8/2
|
|||
|
lodsb
|
|||
|
.nxt:
|
|||
|
loop .lp
|
|||
|
ret
|
|||
|
|
|||
|
LP_key:
|
|||
|
cmp eax,0
|
|||
|
jl LP_mouse
|
|||
|
cmp eax,8
|
|||
|
jne .nobsp
|
|||
|
cmp [stepptr],0
|
|||
|
jne .no1st
|
|||
|
mov [jump],run.game
|
|||
|
ret
|
|||
|
.no1st:
|
|||
|
mov [win_flag],0
|
|||
|
sub [cur_step],2
|
|||
|
mov esi,[cur_step]
|
|||
|
mov edi,[finish]
|
|||
|
mov eax,3
|
|||
|
movzx ebx,byte[esi]
|
|||
|
sub eax,ebx
|
|||
|
movzx ecx,byte[esi+1]
|
|||
|
.lp0:
|
|||
|
and byte[field+edi],0
|
|||
|
add edi,[dirs+eax*4]
|
|||
|
loop .lp0
|
|||
|
mov [finish],edi
|
|||
|
dec [stepptr]
|
|||
|
ret
|
|||
|
.nobsp:
|
|||
|
cmp eax,176
|
|||
|
jb .ex
|
|||
|
cmp eax,179
|
|||
|
ja .ex
|
|||
|
sub eax,176
|
|||
|
.ex:
|
|||
|
ret
|
|||
|
|
|||
|
LP_drawm:
|
|||
|
and [pause_time],0
|
|||
|
mov ecx,[cell_count]
|
|||
|
.lp:
|
|||
|
push ecx
|
|||
|
mov bl,byte[field+ecx-1]
|
|||
|
push ebx
|
|||
|
lea eax,[ecx-1]
|
|||
|
mov ecx,eax
|
|||
|
call get_xy
|
|||
|
|
|||
|
mov al,bl
|
|||
|
and al,0xf
|
|||
|
test bl,11000000b
|
|||
|
jnz .noempty
|
|||
|
mov esi,LP_aw
|
|||
|
mov ecx,11
|
|||
|
call LP_draw_alert
|
|||
|
jmp .no
|
|||
|
.noempty:
|
|||
|
mov edx,0
|
|||
|
test bl,10000000b
|
|||
|
je .stable
|
|||
|
mov edx,0xffffff
|
|||
|
mov esi,LP_aw
|
|||
|
mov ecx,7
|
|||
|
jmp .d13
|
|||
|
.stable:
|
|||
|
mov esi,LP_em
|
|||
|
mov ecx,9
|
|||
|
.d13:
|
|||
|
call LP_draw_alert
|
|||
|
mcall 13,[lx],[ly]
|
|||
|
.no:
|
|||
|
mov esi,[esp+4]
|
|||
|
dec esi
|
|||
|
mov edi,esi
|
|||
|
mov edx,0x0000FF
|
|||
|
; ecx - cell #
|
|||
|
test byte[esp],10b
|
|||
|
je .no_dn
|
|||
|
add edi,[dirs+4*1]
|
|||
|
call getline
|
|||
|
.no_dn:
|
|||
|
test byte[esp],1000b
|
|||
|
je .no_right
|
|||
|
mov edi,esi
|
|||
|
add edi,[dirs+4*3]
|
|||
|
call getline
|
|||
|
.no_right:
|
|||
|
pop ebx
|
|||
|
pop ecx
|
|||
|
.valid:
|
|||
|
loop .lp2
|
|||
|
jmp .exlp
|
|||
|
.lp2:
|
|||
|
jmp .lp
|
|||
|
.exlp:
|
|||
|
|
|||
|
mov esi,[player]
|
|||
|
mov edi,[finish]
|
|||
|
cmp esi,edi
|
|||
|
je .ex
|
|||
|
mov edx,0x7777FF
|
|||
|
call getline
|
|||
|
.ex:
|
|||
|
cmp [pause_time],0
|
|||
|
jne .ex2
|
|||
|
xor ecx,ecx
|
|||
|
xor ebx,ebx
|
|||
|
mov edx,5
|
|||
|
; eax - cur cell content, ebx - cell #, ecx - cell counter, edx - dir
|
|||
|
.chwin:
|
|||
|
movzx eax,byte[field+ebx]
|
|||
|
and eax,0xf
|
|||
|
btr eax,edx
|
|||
|
bsf edx,eax
|
|||
|
je .ex3
|
|||
|
inc ecx
|
|||
|
add ebx,[dirs+edx*4]
|
|||
|
jz .ex3
|
|||
|
xor edx,11b
|
|||
|
jmp .chwin
|
|||
|
.ex3:
|
|||
|
cmp ecx,[cell_count]
|
|||
|
jne .ex2
|
|||
|
mov [win_flag],1
|
|||
|
.ex2:
|
|||
|
ret
|
|||
|
|
|||
|
LP_mouse:
|
|||
|
cmp [win_flag],1
|
|||
|
je .ex
|
|||
|
mov [jump],still
|
|||
|
mov edx,eax
|
|||
|
call get_last_mclick
|
|||
|
cmp edx,-2
|
|||
|
jne .no1st
|
|||
|
test eax,eax
|
|||
|
jnz .noempty
|
|||
|
mov eax,[player]
|
|||
|
mov ebx,[finish]
|
|||
|
call get_offset
|
|||
|
mov ecx,eax
|
|||
|
mov edx,0x101
|
|||
|
shl dl,cl
|
|||
|
xor ecx,11b
|
|||
|
shl dh,cl
|
|||
|
mov ecx,ebx
|
|||
|
jecxz LP_drawm.ex2
|
|||
|
mov esi,[player]
|
|||
|
.lp:
|
|||
|
xor [field+esi],dl
|
|||
|
add esi,[dirs+eax*4]
|
|||
|
xor [field+esi],dh
|
|||
|
loop .lp
|
|||
|
xor ebx,ebx
|
|||
|
.noempty:
|
|||
|
mov [player],ebx
|
|||
|
jmp .exx
|
|||
|
.no1st:
|
|||
|
test eax,eax
|
|||
|
jz .ex
|
|||
|
mov eax,[player]
|
|||
|
push ebx
|
|||
|
call get_offset
|
|||
|
pop ebx
|
|||
|
cmp eax,-1
|
|||
|
je .ex
|
|||
|
.exx:
|
|||
|
mov [finish],ebx
|
|||
|
mov [jump],drw
|
|||
|
; ud2
|
|||
|
.ex:
|
|||
|
ret
|
|||
|
|
|||
|
|
|||
|
LP_aw db 1001b,0110b
|
|||
|
LP_em db 0000b,0001b,0010b,0100b,1000b
|
|||
|
LP_ab db 0011b,0101b,1100b,1010b,1001b,0110b
|
|||
|
|
|||
|
LP_draw_alert:
|
|||
|
; al-cell, esi - ptr,ecx - len
|
|||
|
.lp:
|
|||
|
cmp al,[esi]
|
|||
|
je .ex
|
|||
|
inc esi
|
|||
|
loop .lp
|
|||
|
pusha
|
|||
|
mov ebx,[lx]
|
|||
|
mov ecx,[ly]
|
|||
|
add ebx,4-2 shl 16
|
|||
|
add ecx,4-2 shl 16
|
|||
|
mcall 13,,,0xFFAAAA
|
|||
|
mov [pause_time],eax
|
|||
|
popa
|
|||
|
.ex:
|
|||
|
ret
|
|||
|
|
|||
|
LP_level:
|
|||
|
file 'loops.bin'
|
|||
|
|
|||
|
if lang eq ru
|
|||
|
LP_help mstr \
|
|||
|
'<27><>१ <20><><EFBFBD> <20><><EFBFBD>⪨ <20><>אַ㣮<EFACAE>쭨<EFBFBD><ECADA8> <20><><EFBFBD><EFBFBD>室<EFBFBD><E5AEA4><EFBFBD>',\
|
|||
|
'<27><EFBFBD><E0AEA2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20><><EFBFBD>室<EFBFBD> <20><>१ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',\
|
|||
|
'<27><>㦮<EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>易<EFBFBD><EFA7A0> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD>室<EFBFBD>',\
|
|||
|
'<27><>१ <20><><EFBFBD><EFBFBD><EFBFBD> <20><>㦮<EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>稢<EFBFBD><E7A8A2><EFBFBD> <20><>',\
|
|||
|
'<27><><EFBFBD><EFBFBD><EFBFBD>. <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD>⪠<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> ᥡ<> <20><><EFBFBD>',\
|
|||
|
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.','',\
|
|||
|
'http://puzzleprograms.narod.ru'
|
|||
|
else
|
|||
|
LP_help mstr \
|
|||
|
'You have to draw closed line over every grid',\
|
|||
|
'cell. On black square line must turn, and it must',\
|
|||
|
'go straight when over white square. The line may',\
|
|||
|
'behave anyhow elsewhere.','',\
|
|||
|
'http://puzzleprograms.narod.ru'
|
|||
|
end if
|