kolibrios-fun/programs/games/megamaze/trunk/fhouse.inc

FH_levelp:
		mcall 40,100111b
    call get_xy_sf
    call erase_field
    sub  esi,2
    mov  [levptr],esi
    movzx ecx,byte[esi-2]
    sub  ecx,2
    xor  eax,eax
  .lp:
    lodsb
    mov  byte[field+eax],-1
    loop .lp
    mov  dword[player],-1
    mov  [win_flag],3
    ret

FH_key:
		cmp  eax,-1
		je   FH_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
    jmp  FH_mouse.fromkey
  .ex:
    ret

FH_drawm:
    mov  ecx,[cell_count]
  .lp:
    push ecx
    movzx ebx,byte[field+ecx-1]
    test ebx,ebx
    jz   .no
    lea  eax,[ecx-1]
    call get_xy
    mov  edx,0
    cmp  ebx,0xf
    jne  .stable
    mov  edx,0x909090
  .stable:
    mcall 13,[lx],[ly]
  .no:
    pop  ecx
    loop .lp

    mov  eax,[player]
    cmp  eax,-1
    je   .ex
    call get_xy
    mcall 13,[lx],[ly],0xff00
    mov  eax,[finish]
    call get_xy
    mcall 13,[lx],[ly],0xff0000

    mov  ecx,[stepptr]
    jecxz .ex
    mov  ebx,area
    mov  edi,[player]
    mov  edx,0xffffff
  .lp3:
    push ecx
    mov  esi,edi
    movzx eax,byte[ebx]
    movzx ecx,byte[ebx+1]
    add  ebx,2
  .lp2:
    add  edi,[dirs+eax*4]
    loop .lp2
		call getline
    pop  ecx
    loop .lp3
  .ex:
    ret

FH_mouse:
    mov  [jump],drw;red
		call get_last_mclick
		cmp  byte[field+ebx],0
		jne  .ex
		cmp  dword[player],-1
		jne  .nostart
		mov  dword[player],ebx
		mov  byte[field+ebx],0xf
		mov  [finish],ebx
		and  [win_flag],0
    mov  [cur_step],area
    and  [stepptr],0
    ret
	.nostart:
		mov  eax,[finish]
		call get_offset
		cmp  eax,-1
		je   .ex
	.fromkey:
		xor  ecx,ecx
		mov  edx,eax
		mov  esi,[finish]
	.lp:
		add  esi,[dirs+edx*4]
		cmp  byte[field+esi],0
		jnz  .exlp
		mov  eax,[finish]
		mov  ebx,esi
		call get_offset
		cmp  eax,edx
		jne  .exlp
		mov  byte[field+esi],0xf
		inc  ecx
		mov  [finish],esi
		jmp  .lp

	.exlp:
		jecxz .ex
		mov  eax,edx
		mov  edi,[cur_step]
		stosb
		mov  [edi],cl
		inc  edi
		mov  [cur_step],edi
		inc  [stepptr]
		mov  edi,field
		mov  ecx,[cell_count]
		xor  eax,eax
		repne scasb
		je   .ch_deadend
		mov  [win_flag],1
	.ex:
		ret
	.ch_deadend:
		mov  ecx,4
		mov  edx,dirs
	.lpp:
		mov  eax,[finish]
		mov  ebx,[edx]
		add  ebx,eax
		push ebx
		call get_offset
		pop  ebx
		cmp  eax,-1
		je   .nxtlp
		cmp  byte[field+ebx],0
		jz   .ex
	.nxtlp:
		add  edx,4
		loop .lpp
		mov  [win_flag],4
		ret

FH_level:
file 'fhouse.bin'

if lang eq ru
	FH_help mstr \
	'<27> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>砫<EFBFBD><E7A0AB><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD><EFBFBD>',\
	'<27><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>室<EFBFBD><E5AEA4> <20><>१ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>⪨ <20><>',\
	'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠧ<>.',\
	' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠧ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>אַ,',\
	'<27><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⮫쪮 <20> <20><><EFBFBD><EFBFBD>, <20><>। <20><><EFBFBD><EFBFBD>묨',\
	'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⠬<EFBFBD> <20><><EFBFBD> 㦥 <20><><EFBFBD><EFBFBD>饭<EFBFBD>묨 <20><><EFBFBD>⪠<EFBFBD><E2AAA0>.','',\
	'http://www.clickmazes.com'
else
	FH_help mstr \
	'For each puzzle find the starting square and draw',\
	'a path moving horizontally and vertically that',\
	'passes through each open square exactly once.','',\
	'At each move the red runner will always run',\
	'straight, as far as possible, stopping only when',\
	"blocked by the grid's edge, a black square, or a",\
	'square already visited.','',\
	'http://www.clickmazes.com'
end if