WebSVN – Kolibri OS – Diff – /programs/develop/info3ds/info3ds.asm


use32
	org 0x0
	db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
	dd 0x1
	dd start
	dd i_end ;à §¬¥à ¯à¨«®¦¥­¨ï
	dd mem
	dd stacktop
	dd 0
	dd sys_path
 
include '../../macros.inc'
include '../../proc32.inc'
include '../../develop/libraries/box_lib/load_lib.mac'
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
 
include '../../dll.inc'
include 'lang.inc'
include 'info_fun_float.inc'
 
debug equ 0
 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 
struct FileInfoBlock
	Function dd ?
	Position dd ?
	Flags	 dd ?
	Count	 dd ?
	Buffer	 dd ?
		db ?
	FileName dd ?
ends
 
run_file_70 FileInfoBlock
image_data dd 0 ;ãª § â¥«ì ­  ¢à¥¬¥­­ãî ¯ ¬ïâì. ¤«ï ­ã¦¥­ ¯à¥®¡à §®¢ ­¨ï ¨§®¡à ¦¥­¨ï
open_file_lif dd 0 ;ãª § â¥«ì ­  ¯ ¬ïâì ¤«ï ®âªàëâ¨ï ä ©«®¢ 3ds
 
;
fn_toolbar db 'toolbar.png',0
IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*7
image_data_toolbar dd 0
;
TREE_ICON_SYS16_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*11+54 ;à §¬¥à bmp ä ©«  á á¨áâ¥¬­ë¬¨ ¨ª®­ª ¬¨
icon_tl_sys dd 0 ;ãª § â¥¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï á¨áâ¥¬­ëå ¨ª®­®ª
icon_toolbar dd 0 ;ãª § â¥¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï ¨ª®­®ª ®¡ê¥ªâ®¢
TOOLBAR_ICON_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*7+54 ;à §¬¥à bmp ä ©«  á ¨ª®­ª ¬¨ ®¡ê¥ªâ®¢
;
IMAGE_FILE1_SIZE equ 128*144*3+54 ;à §¬¥à ä ©«  á ¨§®¡à ¦¥­¨¥¬
 
macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥­¨©
	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥­­®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬
	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ ­ «¨ áâà®ª®© ¯ à ¬¥âà path
		jmp @f
			local .path_str
			.path_str db path ;ä®à¬¨àã¥¬ «®ª «ì­ãî ¯¥à¥¬¥­­ãî
			db 0
		@@:
		;32 - áâ ­¤ àâ­ë©  ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥­ ¡ëâì ¡ãä¥à á á¨áâ¥¬­ë¬ ¯ãâ¥¬
		copy_path .path_str,[32],file_name,0x0
	else
		copy_path path,[32],file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«­ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥­¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ®­ ¢ ®¤­®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
	end if
 
	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥­¨ï
	mov [buf],eax
 
	mov eax,70 ;70-ï äã­ªæ¨ï à ¡®â  á ä ©« ¬¨
	mov [run_file_70.Function], 0
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov [run_file_70.Count], dword size
	m2m [run_file_70.Buffer], [buf]
	mov byte[run_file_70+20], 0
	mov [run_file_70.FileName], file_name
	mov ebx,run_file_70
	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥­¨ï
	cmp ebx,0xffffffff
	je @f
		;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥­¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥­­ë© ¡ãä¥à image_data
		stdcall dword[img_decode], dword[buf],ebx,0
		mov dword[image_data],eax
		;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥­¨¥ ª ä®à¬ âã rgb
		stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
		;ã¤ «ï¥¬ ¢à¥¬¥­­ë© ¡ãä¥à image_data
		stdcall dword[img_destroy], dword[image_data]
	@@:
}
 
;--------------------------------------
include 'data.inc'
 
level_stack dd 0
offs_last_timer dd 0 ;¯®á«¥¤­¨© á¤¢¨£ ¯®ª § ­ë© ¢ äã­ªæ¨¨ â ©¬¥à 
 
ID_ICON_CHUNK_MAIN equ 0 ;¨ª®­ª  £« ¢­®£® ¡«®ª 
ID_ICON_CHUNK_NOT_FOUND equ 1 ;¨ª®­ª  ­¥ ¨§¢¥áâ­®£® ¡«®ª 
ID_ICON_DATA equ 2 ;¨ª®­ª  ¤«ï ¤ ­­ëå ¡«®ª , ­¥ ®¯à¥¤¥«¥­­®© áâàãªâãàë
 
FILE_ERROR_CHUNK_SIZE equ -3 ;®è¨¡ª  ¢ à §¬¥à¥ ¡«®ª 
 
align 4
file_3ds:
.offs: dd 0 ;+0 ãª § â¥«ì ­  ­ ç «® ¡«®ª 
.size: dd 0 ;+4 à §¬¥à ¡«®ª  (¤«ï 1-£® ¯ à ¬¥âà  = à §¬¥à ä ©«  3ds)
rb 8*MAX_FILE_LEVEL
 
size_one_list equ 40
list_offs_text equ 12 ;á¤¢¨£ ­ ç «  â¥ªáâ  ¢ «¨áâ¥
buffer rb size_one_list ;¡ãä¥à ¤«ï ¤®¡ ¢«¥­¨ï áâàãªâãà ¢ á¯¨á®ª tree1
 
txt_3ds_symb db 0,0
;--------------------------------------
 
include 'info_wnd_coords.inc'
 
align 4
start:
	load_libraries l_libs_start,l_libs_end
	;¯à®¢¥àª  ­  áª®«ìª® ã¤ ç­® § £ã§¨« áì ­ è  «¨¡ 
	mov	ebp,lib_7
	cmp	dword [ebp+ll_struc_size-4],0
	jz	@f
		mcall -1 ;exit not correct
	@@:
	mcall 48,3,sc,sizeof.system_colors
	mcall 40,0x27
	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª  ¤¨ «®£ 
 
	stdcall dword[tl_data_init], tree1
	;á¨áâ¥¬­ë¥ ¨ª®­ª¨ 16*16 ¤«ï tree_list
	load_image_file 'tl_sys_16.png', icon_tl_sys,TREE_ICON_SYS16_BMP_SIZE
	;¥á«¨ ¨§®¡à ¦¥­¨¥ ­¥ ®âªàë«®áì, â® ¢ icon_tl_sys ¡ã¤ãâ
	;­¥ ¨­¨æ¨ «¨§¨à®¢ ­­ë¥ ¤ ­­ë¥, ­® ®è¨¡ª¨ ­¥ ¡ã¤¥â, â. ª. ¡ãä¥à ­ã¦­®£® à §¬¥à 
	mov eax,dword[icon_tl_sys]
	mov dword[tree1.data_img_sys],eax
 
	load_image_file 'objects.png', icon_toolbar,TOOLBAR_ICON_BMP_SIZE
	mov eax,dword[icon_toolbar]
	mov dword[tree1.data_img],eax
 
	stdcall [buf2d_create], buf_0 ;á®§¤ ­¨¥ ¡ãä¥à 
 
	load_image_file 'font8x9.bmp', image_data_toolbar,IMAGE_FILE1_SIZE
	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;á®§¤ ¥¬ ¡ãä¥à
	stdcall mem.Free,[image_data_toolbar] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
	stdcall [buf2d_conv_24_to_8], buf_1,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç­®áâ¨ 8 ¡¨â
	stdcall [buf2d_convert_text_matrix], buf_1
 
	load_image_file fn_toolbar, image_data_toolbar,IMAGE_TOOLBAR_SIZE
 
	stdcall mem.Alloc,MAX_FILE_SIZE
	mov dword[open_file_lif],eax
 
	mcall 26,9
	mov [last_time],eax
 
align 4
red_win:
	call draw_window
 
align 4
still:
	mcall 26,9
	mov ebx,[last_time]
	add ebx,10 ;§ ¤¥à¦ª 
	cmp ebx,eax
	jge @f
		mov ebx,eax
	@@:
	sub ebx,eax
	;cmp ebx,10 ;§ ¤¥à¦ª 
	;ja timer_funct
	;test ebx,ebx
	;jz timer_funct
	mcall 23
	cmp eax,0
	je timer_funct
 
	cmp al,1
	jz red_win
	cmp al,2
	jz key
	cmp al,3
	jz button
	cmp al,6
	jne @f
		mcall 9,procinfo,-1
		cmp ax,word[procinfo+4]
		jne @f ;®ª­® ­¥  ªâ¨¢­®
		call mouse
	@@:
	jmp still
 
align 4
mouse:
	stdcall [tl_mouse], dword tree1
	ret
 
align 4
timer_funct:
	pushad
if debug
	mov eax,4
	mov ebx,(5 shl 16)+8
	mov ecx,0xff+0x80000000
	mov edx,txt_0002
	int 0x40
end if
	mcall 26,9
	mov [last_time],eax
 
	;
	stdcall [tl_node_get_data],tree1
	pop ebx
	cmp ebx,0
	je @f
		mov eax,dword[ebx] ;¯®«ãç ¥¬ §­ ç¥­¨¥ á¤¢¨£  ¢ë¡à ­­®£® ¡«®ª  ®â­®á¨â¥«ì­® ­ ç «  ä ©« 
		mov ecx,dword[ebx+4] ;à §¬¥à ¡«®ª 
		stdcall hex_in_str, txt_3ds_offs.dig, eax,8
		stdcall hex_in_str, txt_3ds_offs.siz, ecx,8
 
		add eax,dword[open_file_lif] ;¯®«ãç ¥¬ §­ ç¥­¨¥ á¤¢¨£  ¢ ¯ ¬ïâ¨
		cmp dword[offs_last_timer],eax
		je @f
			mov dword[offs_last_timer],eax
			call buf_draw_beg
			stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs,5,35,0xb000
			mov edx,dword[ebx+8]
			cmp edx,0 ;á¬®âà¨¬ ¥áâì «¨ ®¯¨á ­¨¥ ¡«®ª 
			je .no_info
				stdcall [buf2d_draw_text], buf_0, buf_1,edx,5,45,0xb000
			.no_info:
			add ecx,eax ;¯®«ãç ¥¬ à §¬¥à ¡«®ª 
			stdcall buf_draw_hex_table,eax,ecx ;¤®¡ ¢«¥­¨¥ 16-à¨ç­ëå ¤ ­­ëå
			stdcall [buf2d_draw], buf_0 ;®¡­®¢«ï¥¬ ¡ãä¥à ­  íªà ­¥
	@@:
	popad
	jmp still
 
align 4
buf_draw_beg:
	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à
	stdcall [buf2d_draw_text], buf_0, buf_1,txt_open_3ds,5,5,0xff
	stdcall [buf2d_draw_text], buf_0, buf_1,openfile_path,5,15,0xff
	cmp dword[level_stack],FILE_ERROR_CHUNK_SIZE ;¢®§¬®¦­  ®è¨¡ª  ä ©« 
	jne @f
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_err_sizes,5,25,0xff0000
	@@:
	ret
 
align 4
proc buf_draw_hex_table, offs:dword, size_line:dword
	pushad
	locals
		coord_y dd 55 ;ª®®à¤¨­ â  y ¤«ï ­ ç «  ¢ë¢®¤  â ¡«¨æë
	endl
		mov esi,dword[offs]
		mov edi,dword[open_file_lif]
		add edi,dword[file_3ds.size] ;edi - ãª § â¥«ì ­  ª®­¥æ ä ©«  ¢ ¯ ¬ïâ¨
		mov dword[txt_3ds_offs.dig],0
		cld
		.cycle_rows:
			mov ebx,5 ;®âáâã¯ á«¥¢  ¤«ï æ¨äà
			mov edx,5+10*24 ;®âáâã¯ á«¥¢  ¤«ï â¥ªáâ 
			mov ecx,10
			@@:
				stdcall hex_in_str, txt_3ds_offs.dig, dword[esi],2
				stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs.dig,ebx,[coord_y],0
 
				mov al,byte[esi]
				mov byte[txt_3ds_symb],al
				stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_symb,edx,[coord_y],0x808080
				inc esi
				cmp esi,dword[size_line]
				jne .end_block
					stdcall draw_block_end_line, dword[coord_y]
				.end_block:
				cmp esi,edi
				jge @f ;jg ???
				add ebx,24
				add edx,9 ;è¨à¨­  1-£® á¨¬¢®«  +1pix
				loop @b
			add dword[coord_y],10 ;¢ëá®â  1-£® á¨¬¢®«  (¨«¨ ¨­â¥à¢ « ¬¥¦¤ã áâà®ª ¬¨)
			mov ebx,dword[buf_0.h]
			cmp dword[coord_y],ebx
			jl .cycle_rows
		@@:
	popad
	ret
endp
 
align 4
proc draw_block_end_line, coord_y:dword
	push eax ebx ecx
		add ebx,20 ;20 = width 2.5 symbols
		mov eax,[coord_y]
		sub eax,2
		mov ecx,eax
		add ecx,10
		stdcall [buf2d_line], buf_0, 0,ecx,ebx,ecx ,0xff
		stdcall [buf2d_line], buf_0, ebx,ecx,ebx,eax ,0xff
		stdcall [buf2d_line], buf_0, ebx,eax,5+10*24-4,eax ,0xff
	pop ecx ebx eax
	ret
endp
 
align 4
draw_window:
pushad
	mcall 12,1
	xor eax,eax
	mov ebx,(20 shl 16)+560
	mov ecx,(20 shl 16)+315
	mov edx,[sc.work]
	or  edx,(3 shl 24)+0x10000000+0x20000000
	mov edi,capt
	int 0x40
 
	mcall 9,procinfo,-1
	mov eax,dword[procinfo.box.height]
	cmp eax,250
	jge @f
		mov eax,250
	@@:
	sub eax,65
	mov dword[tree1.box_height],eax
	mov word[w_scr_t1+4],ax ;­®¢ë¥ à §¬¥àë áªà®««¨­£ 
	cmp eax,dword[buf_0.h] ;ã¢¥«¨ç¨¢ ¥¬ ¢ëá®âã ¡ãä¥à 
	jle @f
		stdcall [buf2d_resize],buf_0,0,eax
		mov dword[offs_last_timer],0 ;¤«ï ®¡­®¢«¥­¨ï ¡ãä¥à  ¢ â ©¬¥à¥
	@@:
 
	mov eax,dword[procinfo.box.width]
	cmp eax,400
	jge @f
		mov eax,400
	@@:
	sub eax,[buf_0.w]
	sub eax,41
	mov dword[tree1.box_width],eax
	add ax,word[tree1.box_left]
	mov word[w_scr_t1.start_x],ax
	add ax,16+5
	mov word[buf_0.l],ax
 
	mov eax,8
	mov ebx,(5 shl 16)+20
	mov ecx,(5 shl 16)+20
	mov edx,3
	mov esi,[sc.work_button]
	int 0x40
 
	mov ebx,(30 shl 16)+20
	mov ecx,(5 shl 16)+20
	mov edx,4
	int 0x40
 
	cmp byte[can_save],0
	je @f
		mov ebx,(55 shl 16)+20
		mov ecx,(5 shl 16)+20
		mov edx,5
		int 0x40
	@@:
 
	mov ebx,(85 shl 16)+20
	mov ecx,(5 shl 16)+20
	mov edx,6 ;®ª­® á ª®®à¤¨­ â ¬¨
	int 0x40
 
	mov eax,7
	mov ebx,[image_data_toolbar]
	mov ecx,(16 shl 16)+16
	mov edx,(7 shl 16)+7 ;new
	int 0x40
 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(32 shl 16)+7 ;open
	int 0x40
 
	cmp byte[can_save],0
	je @f
		add ebx,IMAGE_TOOLBAR_ICON_SIZE
		mov edx,(57 shl 16)+7 ;save
		int 0x40
	@@:
 
	mov dword[w_scr_t1.all_redraw],1
	stdcall [tl_draw],dword tree1
 
	stdcall [buf2d_draw], buf_0
 
	mcall 12,2
popad
	ret
 
align 4
key:
	mcall 2
	stdcall [tl_key], dword tree1
	jmp still
 
 
align 4
button:
	mcall 17
	cmp ah,3
	jne @f
		call but_new_file
	@@:
	cmp ah,4
	jne @f
		call but_open_file
	@@:
	cmp ah,5
	jne @f
		call but_save_file
	@@:
	cmp ah,6
	jne @f
		call but_wnd_coords
	@@:
 
	cmp ah,1
	jne still
.exit:
	mov dword[tree1.data_img],0
	mov dword[tree1.data_img_sys],0
	stdcall dword[tl_data_clear], tree1
	stdcall [buf2d_delete],buf_0
	stdcall [buf2d_delete],buf_1 ;ã¤ «ï¥¬ ¡ãä¥à
	stdcall mem.Free,[image_data_toolbar]
	stdcall mem.Free,[open_file_lif]
	mcall -1
 
 
align 4
but_new_file:
	mov byte[can_save],0
	stdcall [tl_info_clear], tree1 ;®ç¨áâª  á¯¨áª  ®¡ê¥ªâ®¢
	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à
	;;;call draw_window
	stdcall [tl_draw], tree1
	stdcall [buf2d_draw], buf_0 ;®¡­®¢«ï¥¬ ¡ãä¥à ­  íªà ­¥
	ret
 
align 4
but_open_file:
	pushad
	copy_path open_dialog_name,communication_area_default_path,file_name,0
	mov [OpenDialog_data.type],0
	stdcall [OpenDialog_Start],OpenDialog_data
	cmp [OpenDialog_data.status],2
	je .end_open_file
	;ª®¤ ¯à¨ ã¤ ç­®¬ ®âªàëâ¨¨ ¤¨ «®£ 
 
	mov eax,70 ;70-ï äã­ªæ¨ï à ¡®â  á ä ©« ¬¨
	mov [run_file_70.Function], 0
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov dword[run_file_70.Count], MAX_FILE_SIZE
	m2m [run_file_70.Buffer], dword[open_file_lif]
	mov byte[run_file_70+20], 0
	mov dword[run_file_70.FileName], openfile_path
	mov ebx,run_file_70
	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥­¨ï
	cmp ebx,0xffffffff
	je .end_open_file
 
	;add ebx,[open_file_lif]
	;mov byte[ebx],0 ;­  á«ãç © ¥á«¨ à ­¥¥ ¡ë« ®âªàëâ ä ©« ¡®«ìè¥£® à §¬¥à  ç¨áâ¨¬ ª®­¥æ ¡ãä¥à  á ä ©«®¬
	;mcall 71,1,openfile_path
 
	mov byte[can_save],0
	stdcall [tl_info_clear], tree1 ;®ç¨áâª  á¯¨áª  ®¡ê¥ªâ®¢
 
	mov esi,dword[open_file_lif]
	cmp word[esi],CHUNK_MAIN
	je @f
		call buf_draw_beg
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_no_3ds,5,25,0xff0000 ;à¨áã¥¬ áâà®ªã á â¥ªáâ®¬
		jmp .end_open
	@@:
	cmp dword[esi+2],MAX_FILE_SIZE
	jle @f
		call buf_draw_beg
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_big_file,5,25,0xff0000 ;à¨áã¥¬ áâà®ªã á â¥ªáâ®¬
		jmp .end_open
	@@:
	;--- ®¡à ¡®âª  ®âªàëâ®£® *.3ds ä ©« 
	mov eax,file_3ds
	mov dword[level_stack],0 ;®¡­ã«ï¥¬ ãà®¢¥­ì áâ¥ª 
	mov dword[offs_last_timer],0
	;--- ¤®¡ ¢«¥­¨¥ £« ¢­®£® ¡«®ª  ¢ á¯¨á®ª
	stdcall add_3ds_object, ID_ICON_CHUNK_MAIN,0,dword[esi+2],0
	call block_children ;¢å®¤ ¢ ¤®ç¥à­¨© ¡«®ª
 
	mov edi,dword[file_3ds.offs]
	add edi,dword[file_3ds.size]
	.cycle_main:
		cmp dword[level_stack],0
		jle .end_cycle
		
		cmp esi,edi ;¥á«¨ ª®­¥æ ä ©« 
		jge .end_cycle
 
		mov edx,dword[esi+2] ;à §¬¥à ¡«®ª 
		call block_analiz
		cmp dword[bl_found],0
		jne @f
			;®¡ê¥ªâ ­¥ ¨§¢¥áâ­®£® ¢¨¤ 
			stdcall add_3ds_object, ID_ICON_CHUNK_NOT_FOUND,dword[level_stack],edx,0
			call block_next
			jmp .cycle_main
		@@:
			;®¡ê¥ªâ ¨§¢¥áâ­®£® ¢¨¤ 
			mov ecx,dword[bl_found]
			mov bx,word[ecx+2] ;­®¬¥à ¨ª®­ª¨ ¤«ï ®¡ê¥ªâ 
			stdcall add_3ds_object, ebx,dword[level_stack],edx,dword[ecx+5]
			cmp byte[ecx+4],1
			je .bl_data
				;¡«®ª á®¤¥à¦¨â ¤®ç¥à­¨¥ ¡«®ª¨
				call block_children ;¢å®¤ ¢ ¤®ç¥à­¨© ¡«®ª
				jmp .cycle_main
			.bl_data:
				;¡«®ª á®¤¥à¦¨â ¤ ­­ë¥
				call block_analiz_data
				jmp .cycle_main
	.end_cycle:
		stdcall [tl_cur_beg], tree1
		stdcall [tl_draw], tree1
	.end_open:
 
	stdcall [buf2d_draw], buf_0 ;®¡­®¢«ï¥¬ ¡ãä¥à ­  íªà ­¥
	.end_open_file:
	popad
	ret
 
; ­ «¨§ ¤ ­­ëå ¡«®ª 
;input:
; esi - memory pointer
;output:
; eax - new stack pointer
; esi - new memory pointer
align 4
block_analiz_data:
	push ebx ecx edx edi
		mov dx,word[esi]
		mov ecx,dword[esi+2]
		sub ecx,6 ;à §¬¥à ¤ ­­ëå ¢ ¡«®ª¥
		add esi,6
		mov ebx,dword[level_stack]
		inc ebx
		; ***  ­ «¨§ ¡«®ª®¢ á à §­ë¬¨ ¤ ­­ë¬¨ ¨ ¢ë¤¥«¥­¨¥¬ ¯®¤¡«®ª®¢
		cmp dx,CHUNK_OBJBLOCK ;®¡ê¥ªâ
		jne @f
			push ax
				cld
				xor al,al
				mov edi,esi
				repne scasb
			pop ax
			sub edi,esi ;edi - strlen
			stdcall add_3ds_object, ID_ICON_DATA,ebx,edi,0 ;­ §¢ ­¨¥ ®¡ê¥ªâ 
			add esi,edi
			;sub ecx,edi ;ã¦¥ á¤¥« ­® ¢ repne
			jmp .next_bl
		@@:
		cmp dx,CHUNK_VERTLIST ;á¯¨á®ª ¢¥àè¨­
		je .vertexes
		cmp dx,0x4111 ;ä« £¨ ¢¥àè¨­
		je .vertexes
		cmp dx,CHUNK_MAPLIST ;â¥ªáâãà­ë¥ ª®®à¤¨­ âë
		je .vertexes
		jmp @f
		.vertexes: ;®¡à ¡®âª  ¡«®ª®¢, á®¤¥à¦ é¨å ¤ ­­ë¥ ¢¥àè¨­
			stdcall add_3ds_object, ID_ICON_DATA,ebx,2,txt_count ;ç¨á«® ¢¥àè¨­
			add esi,2
			sub ecx,2
			stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0 ;¤ ­­ë¥ ¢¥àè¨­
			sub esi,8 ;¢®ááâ ­®¢«¥­¨¥ esi
			call block_next
			jmp .end_f		
		@@:
		cmp dx,CHUNK_FACELIST ;á¯¨á®ª £à ­¥©
		jne @f
			stdcall add_3ds_object, ID_ICON_DATA,ebx,2,txt_count ;ç¨á«® £à ­¥©
			push eax
			xor eax,eax
			mov ax,[esi]
			shl eax,3
			add esi,2
			sub ecx,2
			stdcall add_3ds_object, ID_ICON_DATA,ebx,eax,0 ;¤ ­­ë¥ ¢¥àè¨­
 
			sub ecx,eax
			cmp ecx,1
			jl .data_3 ;¯à®¢¥àï¥¬ ¥áâì «¨ ¡«®ª ®¯¨áë¢ îé¨© ¬ â¥à¨ «, ¯à¨¬¥­ï¥¬ë© ª ®¡ê¥ªâã
				add esi,eax
				pop eax
				jmp .next_bl
				;stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0 ;¤ ­­ë¥ ¬ â¥à¨ « 
				;sub esi,eax ;¢®ááâ ­®¢«¥­¨¥ esi
			.data_3:
 
			sub esi,8 ;¢®ááâ ­®¢«¥­¨¥ esi
			pop eax
			call block_next
			jmp .end_f		
		@@:
		cmp dx,CHUNK_FACEMAT ;¬ â¥à¨ «ë £à ­¥©
		jne @f
			push ax
				cld
				xor al,al
				mov edi,esi
				repne scasb
			pop ax
			sub edi,esi ;edi - strlen
			stdcall add_3ds_object, ID_ICON_DATA,ebx,edi,0 ;­ §¢ ­¨¥ ®¡ê¥ªâ 
			add esi,edi
			;sub ecx,edi ;ã¦¥ á¤¥« ­® ¢ repne
			stdcall add_3ds_object, ID_ICON_DATA,ebx,2,txt_count ;ç¨á«® £à ­¥©
			add esi,2
			sub ecx,2
			stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0 ;­®¬¥à  £à ­¥©, ª ª®â®àë¬ ¯à¨¬¥­¥­ ¬ â¥à¨ «
			sub esi,edi ;¢®ááâ ­®¢«¥­¨¥ esi (1)
			sub esi,8   ;¢®ááâ ­®¢«¥­¨¥ esi (2)
			call block_next
			jmp .end_f
		@@:
		; ***  ­ «¨§ ¡«®ª  á ¤ ­­ë¬¨ ¯® ã¬®«ç ­¨î (¡¥§ ¢ë¤¥«¥­¨ï ¯®¤¡«®ª®¢)
			stdcall add_3ds_object, ID_ICON_DATA,ebx,ecx,0
			sub esi,6 ;¢®ááâ ­®¢«¥­¨¥ esi
			call block_next
			jmp .end_f
		.next_bl:
		; *** ­ áâà®©ª¨ ¤«ï  ­ «¨§  ®áâ ¢è¨åáï ¯®¤¡«®ª®¢
			mov dword[eax],esi ;ãª § â¥«ì ­  ­ ç «® ¡«®ª 
			mov ebx,dword[esi+2]
			mov dword[eax+4],ebx ;à §¬¥à ¡«®ª 
			inc dword[level_stack]
			add eax,8
		.end_f:
	pop edi edx ecx ebx
	ret
 
;¢å®¤ ¢ 1-© ¤®ç¥à­¨© ¡«®ª
;output:
; edx - destroy
align 4
block_children:
	push ecx
		;¯à®¢¥àª  ¯à ¢¨«ì­®áâ¨ à §¬¥à®¢ ¤®ç¥à­¥£® ¡«®ª 
		mov ebx,esi ;á¬¥é¥­¨¥ ­ ç «  à®¤¨â¥«ìáª®£® ¡«®ª 
		add ebx,6 ;¯¥à¥å®¤ ­  ­ ç «® ¤®ç¥à­¥£® ¡«®ª 
		add ebx,dword[ebx+2] ;¤®¡ ¢«ï¥¬ à §¬¥à ¤®ç¥à­¥£® ¡«®ª 
		mov ecx,esi ;á¬¥é¥­¨¥ ­ ç «  à®¤¨â¥«ìáª®£® ¡«®ª 
		add ecx,dword[esi+2] ;¤®¡ ¢«ï¥¬ à §¬¥à à®¤¨â¥«ìáª®£® ¡«®ª 
		cmp ebx,ecx ;ãç¨âë¢ âì § £®«®¢ª¨ ­¥ ­ã¦­®, â. ª. áà ¢­¨¢ îâáï â®«ìª® ¤ ­­ë¥ ¡«®ª®¢
		jle @f
			;¤¨ £­®áâ¨à®¢ «¨ ®è¨¡ªã ä ©« , ¤®ç¥à­¨© ¡«®ª ¢ëå®¤¨â §  ¯à¥¤¥«ë à®¤¨â¥«ìáª®£®
			mov dword[level_stack],FILE_ERROR_CHUNK_SIZE
			jmp .end_f
		@@:
		mov dword[eax],esi ;ãª § â¥«ì ­  ­ ç «® ¡«®ª 
		mov ebx,dword[esi+2]
		mov dword[eax+4],ebx ;à §¬¥à ¡«®ª 
		add esi,6 ;¯¥à¥å®¤¨¬ ª ¤ ­­ë¬ ¡«®ª 
		inc dword[level_stack]
		add eax,8
	.end_f:
	pop ecx
	ret
 
;¯¥à¥å®¤ ª á«¥¤ãé¥¬ã ¡«®ªã â¥ªãé¥£® ãà®¢­ï
align 4
block_next:
push ebx
	add esi,dword[esi+2] ;¯à®¯ãáª ¥¬ ¤ ­­ë¥ ¡«®ª 
 
	;¯à®¢¥àª  à §¬¥à®¢ à®¤¨â¥«ìáª®£® ¡«®ª , ¤«ï ¢®§¬®¦­®£® ¢ëå®¤  ­  ¢¥àå­¨© ãà®¢¥­ì ¥á«¨ ª®­¥æ ¡«®ª 
	@@:
	mov ebx,dword[eax-8]
	add ebx,dword[eax-4]
	cmp esi,ebx
	jl @f
		dec dword[level_stack]
		sub eax,8
		cmp dword[level_stack],0
		jg @b
	@@:
pop ebx
	ret
 
;äã­ªæ¨ï ¯®¨áª  áâàãªâãàë ®¯¨áë¢ îé¥© ¡«®ª
;input:
;esi - memory pointer
;output:
;dword[bl_found] - pointer to chunk struct (= 0 if not found)
align 4
bl_found dd 0
block_analiz:
pushad
	mov dword[bl_found],0
	mov ecx,type_bloks
	@@:
		mov bx,word[ecx]
		cmp word[esi],bx
		je .found
		add ecx,sizeof.block_3ds
		cmp ecx,type_bloks.end
		jl @b
	jmp .no_found
	.found:
		mov dword[bl_found],ecx
	.no_found:
popad
	ret
 
;input:
; esi - ãª § â¥«ì ­   ­ «¨§¨àã¥¬ë¥ ¤ ­­ë¥
align 4
proc add_3ds_object, icon:dword,level:dword,size_bl:dword,info_bl:dword
	pushad
		mov bx,word[icon]
		shl ebx,16
		mov bx,word[level]
 
		mov eax,esi
		sub eax,dword[open_file_lif]
		mov dword[buffer],eax ;á¬¥é¥­¨¥ ¡«®ª 
		mov ecx,dword[size_bl]
		mov dword[buffer+4],ecx ;à §¬¥à ¡«®ª  (¨á¯®«ì§ã¥âáï ¢ äã­ªæ¨¨ buf_draw_hex_table ¤«ï à¨á®¢ ­¨ï «¨­¨¨)
		mov ecx,dword[info_bl]
		mov dword[buffer+8],ecx
		stdcall hex_in_str, buffer+list_offs_text,dword[esi+1],2
		stdcall hex_in_str, buffer+list_offs_text+2,dword[esi],2 ;ª®¤ 3ds ¡«®ª 
		cmp ecx,0
		jne @f
			mov byte[buffer+list_offs_text+4],0 ;0 - á¨¬¢®« ª®­¥æ  áâà®ª¨
			jmp .no_capt
		@@:
			mov byte[buffer+list_offs_text+4],' '
			mov esi,ecx
			mov edi,buffer+list_offs_text+5
			mov ecx,size_one_list-(list_offs_text+5)
			cld
			rep movsb
			mov byte[buffer+size_one_list-1],0 ;0 - á¨¬¢®« ª®­¥æ  áâà®ª¨
		.no_capt:
		stdcall [tl_node_add], buffer, ebx, tree1
		stdcall [tl_cur_next], tree1
		if debug
			stdcall print_err,sz_add_3ds_object,buffer+list_offs_text
		end if
	popad
	ret
endp
 
if debug
sz_add_3ds_object db 13,10,'3ds_object',0
 
align 4
proc print_err, fun:dword, mes:dword ;¢ë¢®¤¨¬ á®®¡é¥­¨¥ ®¡ è¨¡ª¥ ­  ¤®áªã ®â« ¤ª¨
	pushad
	mov eax,63
	mov ebx,1
 
	mov esi,[fun]
	@@:
		mov cl,byte[esi]
		int 0x40
		inc esi
		cmp byte[esi],0
		jne @b
	mov cl,':'
	int 0x40
	mov cl,' '
	int 0x40
	mov esi,[mes]
	@@:
		mov cl,byte[esi]
		int 0x40
		inc esi
		cmp byte[esi],0
		jne @b
	popad
	ret
endp
end if
 
align 4
proc hex_in_str, buf:dword,val:dword,zif:dword
	pushad
		mov edi,dword[buf]
		mov ecx,dword[zif]
		add edi,ecx
		dec edi
		mov ebx,dword[val]
 
		.cycle:
			mov al,bl
			and al,0xf
			cmp al,10
			jl @f
				add al,'a'-'0'-10
			@@:
			add al,'0'
			mov byte[edi],al
			dec edi
			shr ebx,4
		loop .cycle
 
	popad
	ret
endp
 
align 4
but_save_file:
	pushad
	copy_path open_dialog_name,communication_area_default_path,file_name,0
	mov [OpenDialog_data.type],1
	stdcall [OpenDialog_Start],OpenDialog_data
	cmp [OpenDialog_data.status],2
	je .end_save_file
	;ª®¤ ¯à¨ ã¤ ç­®¬ ®âªàëâ¨¨ ¤¨ «®£ 
 
	mov eax,70 ;70-ï äã­ªæ¨ï à ¡®â  á ä ©« ¬¨
	mov [run_file_70.Function], 2
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov ebx, dword[open_file_lif]
	mov [run_file_70.Buffer], ebx
	mov ebx,dword[ebx+2]
	mov dword[run_file_70.Count], ebx ;à §¬¥à ä ©« 
	mov byte[run_file_70+20], 0
	mov dword[run_file_70.FileName], openfile_path
	mov ebx,run_file_70
	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥­¨ï
	cmp ebx,0xffffffff
	je .end_save_file
 
	.end_save_file:
	popad
	ret
 
align 4
but_wnd_coords:
	cmp byte[prop_wnd_run],0
	jne @f
		pushad
		mcall 51,1,prop_start,thread_coords
		popad
	@@:
	ret
 
 
;input:
; buf - ãª § â¥«ì ­  áâà®ªã, ç¨á«® ¤®«¦­® ¡ëâì ¢ 10 ¨«¨ 16 à¨ç­®¬ ¢¨¤¥
;output:
; eax - ç¨á«®
align 4
proc conv_str_to_int, buf:dword
	xor eax,eax
	push ebx ecx esi
	xor ebx,ebx
	mov esi,[buf]
	;®¯à¥¤¥«¥­¨¥ ®âà¨æ â¥«ì­ëå ç¨á¥«
	xor ecx,ecx
	inc ecx
	cmp byte[esi],'-'
	jne @f
		dec ecx
		inc esi
	@@:
 
	cmp word[esi],'0x'
	je .load_digit_16
 
	.load_digit_10: ;áç¨âë¢ ­¨¥ 10-â¨ç­ëå æ¨äà
		mov bl,byte[esi]
		cmp bl,'0'
		jl @f
		cmp bl,'9'
		jg @f
			sub bl,'0'
			imul eax,10
			add eax,ebx
			inc esi
			jmp .load_digit_10
	jmp @f
 
	.load_digit_16: ;áç¨âë¢ ­¨¥ 16-à¨ç­ëå æ¨äà
		add esi,2
	.cycle_16:
		mov bl,byte[esi]
		cmp bl,'0'
		jl @f
		cmp bl,'f'
		jg @f
		cmp bl,'9'
		jle .us1
			cmp bl,'A'
			jl @f ;®âá¥¨¢ ¥¬ á¨¬¢®«ë >'9' ¨ <'A'
		.us1: ;á®áâ ¢­®¥ ãá«®¢¨¥
		cmp bl,'F'
		jle .us2
			cmp bl,'a'
			jl @f ;®âá¥¨¢ ¥¬ á¨¬¢®«ë >'F' ¨ <'a'
			sub bl,32 ;¯¥à¥¢®¤¨¬ á¨¬¢®«ë ¢ ¢¥àå­¨© à¥£¨áâà, ¤«ï ã¯à®é¥­¨ï ¨å ¯®á«¥¤ãé¥© ®¡à ¡®âª¨
		.us2: ;á®áâ ¢­®¥ ãá«®¢¨¥
			sub bl,'0'
			cmp bl,9
			jle .cor1
				sub bl,7 ;convert 'A' to '10'
			.cor1:
			shl eax,4
			add eax,ebx
			inc esi
			jmp .cycle_16
	@@:
	cmp ecx,0 ;¥á«¨ ç¨á«® ®âà¨æ â¥«ì­®¥
	jne @f
		sub ecx,eax
		mov eax,ecx
	@@:
	pop esi ecx ebx
	ret
endp
 
;¤ ­­ë¥ ¤«ï ¤¨ «®£  ®âªàëâ¨ï ä ©«®¢
align 4
OpenDialog_data:
.type			dd 0 ;0 - ®âªàëâì, 1 - á®åà ­¨âì, 2 - ¢ë¡à âì ¤âà¥ªâ®à¨î
.procinfo		dd procinfo	;+4
.com_area_name		dd communication_area_name	;+8
.com_area		dd 0	;+12
.opendir_path		dd plugin_path	;+16
.dir_default_path	dd default_dir ;+20
.start_path		dd file_name ;+24 ¯ãâì ª ¤¨ «®£ã ®âªàëâ¨ï ä ©«®¢
.draw_window		dd draw_window	;+28
.status 		dd 0	;+32
.openfile_path		dd openfile_path	;+36 ¯ãâì ª ®âªàë¢ ¥¬®¬ã ä ©«ã
.filename_area		dd filename_area	;+40
.filter_area		dd Filter
.x:
.x_size 		dw 420 ;+48 ; Window X size
.x_start		dw 10 ;+50 ; Window X position
.y:
.y_size 		dw 320 ;+52 ; Window y size
.y_start		dw 10 ;+54 ; Window Y position
 
default_dir db '/rd/1',0
 
communication_area_name:
	db 'FFFFFFFF_open_dialog',0
open_dialog_name:
	db 'opendial',0
communication_area_default_path:
	db '/rd/1/File managers/',0
 
Filter:
dd Filter.end - Filter.1
.1:
db '3DS',0
db 'TXT',0
.end:
db 0
 
 
 
head_f_i:
head_f_l db '¨áâ¥¬­ ï ®è¨¡ª ',0
 
system_dir_0 db '/sys/lib/'
lib_name_0 db 'proc_lib.obj',0
err_message_found_lib_0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,0
err_message_import_0 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,0
 
system_dir_1 db '/sys/lib/'
lib_name_1 db 'libimg.obj',0
err_message_found_lib_1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,0
err_message_import_1 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,0
 
system_dir_2 db '/sys/lib/'
lib_name_2 db 'box_lib.obj',0
err_msg_found_lib_2 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'box_lib.obj',39,0
err_msg_import_2 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'box_lib',39,0
 
system_dir_7 db '/sys/lib/'
lib_name_7 db 'buf2d.obj',0
err_msg_found_lib_7 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,0
err_msg_import_7 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,0
 
l_libs_start:
	lib0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\
		err_message_found_lib_0, head_f_l, proclib_import,err_message_import_0, head_f_i
	lib1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\
		err_message_found_lib_1, head_f_l, import_libimg, err_message_import_1, head_f_i
	lib_2 l_libs lib_name_2, sys_path, library_path, system_dir_2,\
		err_msg_found_lib_2,head_f_l,import_box_lib,err_msg_import_2,head_f_i
	lib_7 l_libs lib_name_7, sys_path, library_path, system_dir_7,\
		err_msg_found_lib_7,head_f_l,import_buf2d,err_msg_import_7,head_f_i
l_libs_end:
 
align 4
import_libimg:
	dd alib_init1
	img_is_img  dd aimg_is_img
	img_info    dd aimg_info
	img_from_file dd aimg_from_file
	img_to_file dd aimg_to_file
	img_from_rgb dd aimg_from_rgb
	img_to_rgb  dd aimg_to_rgb
	img_to_rgb2 dd aimg_to_rgb2
	img_decode  dd aimg_decode
	img_encode  dd aimg_encode
	img_create  dd aimg_create
	img_destroy dd aimg_destroy
	img_destroy_layer dd aimg_destroy_layer
	img_count   dd aimg_count
	img_lock_bits dd aimg_lock_bits
	img_unlock_bits dd aimg_unlock_bits
	img_flip    dd aimg_flip
	img_flip_layer dd aimg_flip_layer
	img_rotate  dd aimg_rotate
	img_rotate_layer dd aimg_rotate_layer
	img_draw    dd aimg_draw
 
	dd 0,0
	alib_init1   db 'lib_init',0
	aimg_is_img  db 'img_is_img',0 ;®¯à¥¤¥«ï¥â ¯® ¤ ­­ë¬, ¬®¦¥â «¨ ¡¨¡«¨®â¥ª  á¤¥« âì ¨§ ­¨å ¨§®¡à ¦¥­¨¥
	aimg_info    db 'img_info',0
	aimg_from_file db 'img_from_file',0
	aimg_to_file db 'img_to_file',0
	aimg_from_rgb db 'img_from_rgb',0
	aimg_to_rgb  db 'img_to_rgb',0 ;¯à¥®¡à §®¢ ­¨¥ ¨§®¡à ¦¥­¨ï ¢ ¤ ­­ë¥ RGB
	aimg_to_rgb2 db 'img_to_rgb2',0
	aimg_decode  db 'img_decode',0 ; ¢â®¬ â¨ç¥áª¨ ®¯à¥¤¥«ï¥â ä®à¬ â £à ä¨ç¥áª¨å ¤ ­­ëå
	aimg_encode  db 'img_encode',0
	aimg_create  db 'img_create',0
	aimg_destroy db 'img_destroy',0
	aimg_destroy_layer db 'img_destroy_layer',0
	aimg_count   db 'img_count',0
	aimg_lock_bits db 'img_lock_bits',0
	aimg_unlock_bits db 'img_unlock_bits',0
	aimg_flip    db 'img_flip',0
	aimg_flip_layer db 'img_flip_layer',0
	aimg_rotate  db 'img_rotate',0
	aimg_rotate_layer db 'img_rotate_layer',0
	aimg_draw    db 'img_draw',0
 
align 4
proclib_import: ;®¯¨á ­¨¥ íªá¯®àâ¨àã¥¬ëå äã­ªæ¨©
	OpenDialog_Init dd aOpenDialog_Init
	OpenDialog_Start dd aOpenDialog_Start
dd 0,0
	aOpenDialog_Init db 'OpenDialog_init',0
	aOpenDialog_Start db 'OpenDialog_start',0
 
align 4
import_buf2d:
	dd sz_init0
	buf2d_create dd sz_buf2d_create
	buf2d_create_f_img dd sz_buf2d_create_f_img
	buf2d_clear dd sz_buf2d_clear
	buf2d_draw dd sz_buf2d_draw
	buf2d_delete dd sz_buf2d_delete
	buf2d_resize dd sz_buf2d_resize
	buf2d_line dd sz_buf2d_line
	buf2d_rect_by_size dd sz_buf2d_rect_by_size
	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
	buf2d_circle dd sz_buf2d_circle
	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
	buf2d_bit_blt dd sz_buf2d_bit_blt
	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
	buf2d_curve_bezier dd sz_buf2d_curve_bezier
	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
	buf2d_draw_text dd sz_buf2d_draw_text
	buf2d_crop_color dd sz_buf2d_crop_color
	buf2d_offset_h dd sz_buf2d_offset_h
	buf2d_flood_fill dd sz_buf2d_flood_fill
	buf2d_set_pixel dd sz_buf2d_set_pixel
	dd 0,0
	sz_init0 db 'lib_init',0
	sz_buf2d_create db 'buf2d_create',0
	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
	sz_buf2d_clear db 'buf2d_clear',0
	sz_buf2d_draw db 'buf2d_draw',0
	sz_buf2d_delete db 'buf2d_delete',0
	sz_buf2d_resize db 'buf2d_resize',0
	sz_buf2d_line db 'buf2d_line',0
	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
	sz_buf2d_circle db 'buf2d_circle',0
	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
	sz_buf2d_draw_text db 'buf2d_draw_text',0
	sz_buf2d_crop_color db 'buf2d_crop_color',0
	sz_buf2d_offset_h db 'buf2d_offset_h',0
	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
 
align 4
import_box_lib:
	dd sz_init1
	init_checkbox dd sz_init_checkbox
	check_box_draw dd sz_check_box_draw
	edit_box_draw dd sz_edit_box_draw
	edit_box_key dd sz_edit_box_key
	edit_box_mouse dd sz_edit_box_mouse
	edit_box_set_text dd sz_edit_box_set_text
	scrollbar_ver_draw dd sz_scrollbar_ver_draw
	scrollbar_hor_draw dd sz_scrollbar_hor_draw
 
	tl_data_init dd sz_tl_data_init
	tl_data_clear dd sz_tl_data_clear
	tl_info_clear dd sz_tl_info_clear
	tl_key dd sz_tl_key
	tl_mouse dd sz_tl_mouse
	tl_draw dd sz_tl_draw
	tl_info_undo dd sz_tl_info_undo
	tl_info_redo dd sz_tl_info_redo
	tl_node_add dd sz_tl_node_add
	tl_node_set_data dd sz_tl_node_set_data
	tl_node_get_data dd sz_tl_node_get_data
	tl_node_delete dd sz_tl_node_delete
	tl_node_move_up dd sz_tl_node_move_up
	tl_node_move_down dd sz_tl_node_move_down
	tl_cur_beg dd sz_tl_cur_beg
	tl_cur_next dd sz_tl_cur_next
	tl_cur_perv dd sz_tl_cur_perv
	tl_node_close_open dd sz_tl_node_close_open
	tl_node_lev_inc dd sz_tl_node_lev_inc
	tl_node_lev_dec dd sz_tl_node_lev_dec
	tl_node_poi_get_info dd sz_tl_node_poi_get_info
	tl_node_poi_get_next_info dd sz_tl_node_poi_get_next_info
	tl_node_poi_get_data dd sz_tl_node_poi_get_data
 
	dd 0,0
	sz_init1 db 'lib_init',0
	sz_init_checkbox db 'init_checkbox2',0
	sz_check_box_draw db 'check_box_draw2',0
	sz_edit_box_draw db 'edit_box',0
	sz_edit_box_key db 'edit_box_key',0
	sz_edit_box_mouse db 'edit_box_mouse',0
	sz_edit_box_set_text db 'edit_box_set_text',0
	sz_scrollbar_ver_draw db 'scrollbar_v_draw',0
	sz_scrollbar_hor_draw db 'scrollbar_h_draw',0
 
	sz_tl_data_init db 'tl_data_init',0
	sz_tl_data_clear db 'tl_data_clear',0
	sz_tl_info_clear db 'tl_info_clear',0
	sz_tl_key db 'tl_key',0
	sz_tl_mouse db 'tl_mouse',0
	sz_tl_draw db 'tl_draw',0
	sz_tl_info_undo db 'tl_info_undo',0
	sz_tl_info_redo db 'tl_info_redo',0
	sz_tl_node_add db 'tl_node_add',0
	sz_tl_node_set_data db 'tl_node_set_data',0
	sz_tl_node_get_data db 'tl_node_get_data',0
	sz_tl_node_delete db 'tl_node_delete',0
	sz_tl_node_move_up db 'tl_node_move_up',0
	sz_tl_node_move_down db 'tl_node_move_down',0
	sz_tl_cur_beg db 'tl_cur_beg',0
	sz_tl_cur_next db 'tl_cur_next',0
	sz_tl_cur_perv db 'tl_cur_perv',0
	sz_tl_node_close_open db 'tl_node_close_open',0
	sz_tl_node_lev_inc db 'tl_node_lev_inc',0
	sz_tl_node_lev_dec db 'tl_node_lev_dec',0
	sz_tl_node_poi_get_info db 'tl_node_poi_get_info',0
	sz_tl_node_poi_get_next_info db 'tl_node_poi_get_next_info',0
	sz_tl_node_poi_get_data db 'tl_node_poi_get_data',0
 
 
 
mouse_dd dd 0x0
sc system_colors 
last_time dd 0
 
align 16
procinfo process_information 
 
align 4
buf_0: dd 0 ;ãª § â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
.l: dw 205 ;+4 left
.t: dw 35 ;+6 top
.w: dd 340 ;+8 w
.h: dd 250 ;+12 h
.color: dd 0xffffd0 ;+16 color
	db 24 ;+20 bit in pixel
 
align 4
buf_1:
	dd 0 ;ãª § â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
	dw 25 ;+4 left
	dw 25 ;+6 top
	dd 128 ;+8 w
	dd 144 ;+12 h
	dd 0 ;+16 color
	db 24 ;+20 bit in pixel
 
el_focus dd tree1
tree1 tree_list size_one_list,200+2, tl_key_no_edit+tl_draw_par_line,\
	16,16, 0xffffff,0xb0d0ff,0xd000ff, 5,35,195-16,250, 16,list_offs_text,0, el_focus,\
	w_scr_t1,0
 
align 4
w_scr_t1:
.size_x     dw 16 ;+0
.start_x    dw 0
rb 2+2
.btn_high   dd 15 ;+8
.type	    dd 1  ;+12
.max_area   dd 100  ;+16
rb 4+4
.bckg_col   dd 0xeeeeee ;+28
.frnt_col   dd 0xbbddff ;+32
.line_col   dd 0  ;+36
rb 4+2+2
.run_x:
rb 2+2+2+2+4+4+4+4+4+4
.all_redraw dd 0 ;+80
.ar_offset  dd 1 ;+84
 
 
 
;íâ®â ª®¤ ­¥ ¬®©, ®­ ¯à¥®¡à §ã¥â ç¨á«® ¢ áâà®ªã
;input:
; eax = value
; edi = string buffer
;output:
align 4
tl_convert_to_str:
	pushad
		mov dword[edi+1],0;0x20202020
		call .str
	popad
	ret
 
align 4
.str:
	mov ecx,0x0a ;§ ¤ ¥âáï á¨áâ¥¬  áç¨á«¥­¨ï ¨§¬¥­ïîâáï à¥£¨áâàë ebx,eax,ecx,edx ¢å®¤­ë¥ ¯ à ¬¥âàë eax - ç¨á«®
    ;¯à¥à¥¢®¤ ç¨á«  ¢ ASCII áâà®ªã ¢§®¤­ë¥ ¤ ­­ë¥ ecx=á¨áâ¥¬  áç¨á«¥­ï edi  ¤à¥á ªã¤  § ¯¨áë¢ âì, ¡ã¤¥¬ áâà®ªã, ¯à¨ç¥¬ ª®­¥æ ¯¥à¥¬¥­­®© 
	cmp eax,ecx  ;áà ¢­¨âì ¥á«¨ ¢ eax ¬¥­ìè¥ ç¥¬ ¢ ecx â® ¯¥à¥©â¨ ­  @@-1 â.¥. ­  pop eax
	jb @f
		xor edx,edx  ;®ç¨áâ¨âì edx
		div ecx      ;à §¤¥«¨âì - ®áâ â®ª ¢ edx
		push edx     ;¯®«®¦¨âì ¢ áâ¥ª
		;dec edi             ;á¬¥é¥­¨¥ ­¥®¡å®¤¨¬®¥ ¤«ï § ¯¨á¨ á ª®­æ  áâà®ª¨
		call .str ;¯¥à¥©â¨ ­  á ¬ã á¥¡ï â.¥. ¢ë§¢ âì á ¬ã á¥¡ï ¨ â ª ¤® â®£® ¬®¬¥­â  ¯®ª  ¢ eax ­¥ áâ ­¥â ¬¥­ìè¥ ç¥¬ ¢ ecx
		pop eax
	@@: ;cmp al,10 ;¯à®¢¥à¨âì ­¥ ¬¥­ìè¥ «¨ §­ ç¥­¨¥ ¢ al ç¥¬ 10 (¤«ï á¨áâ¥¬ë áç¨á«¥­ï 10 ¤ ­­ ï ª®¬ ­¤  - «¨è­ ï))
	or al,0x30  ;¤ ­­ ï ª®¬ ­¤  ª®à®ç¥  ç¥¬ ¤¢¥ ¢ëè¥
	stosb	    ;§ ¯¨á âì í«¥¬¥­â ¨§ à¥£¨áâà  al ¢ ïç¥ªã ¯ ¬ïâ¨ es:edi
	ret	      ;¢¥à­ãâìáï ç¥­ì ¨­â¥à¥á­ë© å®¤ â.ª. ¯®ª  ¢ áâ¥ª¥ åà ­¨âìáï ª®«-¢® ¢ë§®¢®¢ â® áâ®«ìª® à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï
 
i_end:
	rb 1024
thread_coords:
	rb 1024
stacktop:
	sys_path rb 1024
	file_name:
		rb 1024 ;4096 
	library_path rb 1024
	plugin_path rb 4096
	openfile_path rb 4096
	filename_area rb 256
mem:
>
>

Rev 2173	Rev 3014
1	use32	1	use32
2	org 0x0	2	org 0x0
3	db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â	3	db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â
4	dd 0x1	4	dd 0x1
5	dd start	5	dd start
6	dd i_end ;à §¬¥à ¯à¨«®¦¥¨ï	6	dd i_end ;à §¬¥à ¯à¨«®¦¥¨ï
7	dd mem	7	dd mem
8	dd stacktop	8	dd stacktop
9	dd 0	9	dd 0
10	dd sys_path	10	dd sys_path
11		11
12	include '../../macros.inc'	12	include '../../macros.inc'
13	include '../../proc32.inc'	13	include '../../proc32.inc'
14	include '../../develop/libraries/box_lib/load_lib.mac'	14	include '../../develop/libraries/box_lib/load_lib.mac'
15	include '../../develop/libraries/box_lib/trunk/box_lib.mac'	15	include '../../develop/libraries/box_lib/trunk/box_lib.mac'
16	include 'mem.inc'	-
17	include 'dll.inc'	16	include '../../dll.inc'
18	include 'lang.inc'	17	include 'lang.inc'
19	include 'info_fun_float.inc'	18	include 'info_fun_float.inc'
20		19
21	debug equ 0	20	debug equ 0
22		21
23	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load	22	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
24		23
25	struct FileInfoBlock	24	struct FileInfoBlock
26	Function dd ?	25	Function dd ?
27	Position dd ?	26	Position dd ?
28	Flags dd ?	27	Flags dd ?
29	Count dd ?	28	Count dd ?
30	Buffer dd ?	29	Buffer dd ?
31	db ?	30	db ?
32	FileName dd ?	31	FileName dd ?
33	ends	32	ends
34		33
35	run_file_70 FileInfoBlock	34	run_file_70 FileInfoBlock
36	image_data dd 0 ;ãª § â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì. ¤«ï ã¦¥ ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï	35	image_data dd 0 ;ãª § â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì. ¤«ï ã¦¥ ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï
37	open_file_lif dd 0 ;ãª § â¥«ì ¯ ¬ïâì ¤«ï ®âªàëâ¨ï ä ©«®¢ 3ds	36	open_file_lif dd 0 ;ãª § â¥«ì ¯ ¬ïâì ¤«ï ®âªàëâ¨ï ä ©«®¢ 3ds
38		37
39	;	38	;
40	fn_toolbar db 'toolbar.png',0	39	fn_toolbar db 'toolbar.png',0
41	IMAGE_TOOLBAR_ICON_SIZE equ 16163	40	IMAGE_TOOLBAR_ICON_SIZE equ 16163
42	IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*7	41	IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*7
43	image_data_toolbar dd 0	42	image_data_toolbar dd 0
44	;	43	;
45	TREE_ICON_SYS16_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*11+54 ;à §¬¥à bmp ä ©« á á¨áâ¥¬ë¬¨ ¨ª®ª ¬¨	44	TREE_ICON_SYS16_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*11+54 ;à §¬¥à bmp ä ©« á á¨áâ¥¬ë¬¨ ¨ª®ª ¬¨
46	icon_tl_sys dd 0 ;ãª § â¥¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï á¨áâ¥¬ëå ¨ª®®ª	45	icon_tl_sys dd 0 ;ãª § â¥¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï á¨áâ¥¬ëå ¨ª®®ª
47	icon_toolbar dd 0 ;ãª § â¥¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï ¨ª®®ª ®¡ê¥ªâ®¢	46	icon_toolbar dd 0 ;ãª § â¥¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï ¨ª®®ª ®¡ê¥ªâ®¢
48	TOOLBAR_ICON_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*7+54 ;à §¬¥à bmp ä ©« á ¨ª®ª ¬¨ ®¡ê¥ªâ®¢	47	TOOLBAR_ICON_BMP_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*7+54 ;à §¬¥à bmp ä ©« á ¨ª®ª ¬¨ ®¡ê¥ªâ®¢
49	;	48	;
50	IMAGE_FILE1_SIZE equ 1281443+54 ;à §¬¥à ä ©« á ¨§®¡à ¦¥¨¥¬	49	IMAGE_FILE1_SIZE equ 1281443+54 ;à §¬¥à ä ©« á ¨§®¡à ¦¥¨¥¬
51		50
52	macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨©	51	macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨©
53	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬	52	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬
54	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ «¨ áâà®ª®© ¯ à ¬¥âà path	53	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ «¨ áâà®ª®© ¯ à ¬¥âà path
55	jmp @f	54	jmp @f
56	local .path_str	55	local .path_str
57	.path_str db path ;ä®à¬¨àã¥¬ «®ª «ìãî ¯¥à¥¬¥ãî	56	.path_str db path ;ä®à¬¨àã¥¬ «®ª «ìãî ¯¥à¥¬¥ãî
58	db 0	57	db 0
59	@@:	58	@@:
60	;32 - áâ ¤ àâë© ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ãâ¥¬	59	;32 - áâ ¤ àâë© ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ãâ¥¬
61	copy_path .path_str,[32],file_name,0x0	60	copy_path .path_str,[32],file_name,0x0
62	else	61	else
63	copy_path path,[32],file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©	62	copy_path path,[32],file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
64	end if	63	end if
65		64
66	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï	65	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï
67	mov [buf],eax	66	mov [buf],eax
68		67
69	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨	68	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨
70	mov [run_file_70.Function], 0	69	mov [run_file_70.Function], 0
71	mov [run_file_70.Position], 0	70	mov [run_file_70.Position], 0
72	mov [run_file_70.Flags], 0	71	mov [run_file_70.Flags], 0
73	mov [run_file_70.Count], dword size	72	mov [run_file_70.Count], dword size
74	m2m [run_file_70.Buffer], [buf]	73	m2m [run_file_70.Buffer], [buf]
75	mov byte[run_file_70+20], 0	74	mov byte[run_file_70+20], 0
76	mov [run_file_70.FileName], file_name	75	mov [run_file_70.FileName], file_name
77	mov ebx,run_file_70	76	mov ebx,run_file_70
78	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï	77	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï
79	cmp ebx,0xffffffff	78	cmp ebx,0xffffffff
80	je @f	79	je @f
81	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data	80	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data
82	stdcall dword[img_decode], dword[buf],ebx,0	81	stdcall dword[img_decode], dword[buf],ebx,0
83	mov dword[image_data],eax	82	mov dword[image_data],eax
84	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb	83	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb
85	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]	84	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
86	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data	85	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data
87	stdcall dword[img_destroy], dword[image_data]	86	stdcall dword[img_destroy], dword[image_data]
88	@@:	87	@@:
89	}	88	}
90		89
91	;--------------------------------------	90	;--------------------------------------
92	include 'data.inc'	91	include 'data.inc'
93		92
94	level_stack dd 0	93	level_stack dd 0
95	offs_last_timer dd 0 ;¯®á«¥¤¨© á¤¢¨£ ¯®ª § ë© ¢ äãªæ¨¨ â ©¬¥à	94	offs_last_timer dd 0 ;¯®á«¥¤¨© á¤¢¨£ ¯®ª § ë© ¢ äãªæ¨¨ â ©¬¥à
96		95
97	ID_ICON_CHUNK_MAIN equ 0 ;¨ª®ª £« ¢®£® ¡«®ª	96	ID_ICON_CHUNK_MAIN equ 0 ;¨ª®ª £« ¢®£® ¡«®ª
98	ID_ICON_CHUNK_NOT_FOUND equ 1 ;¨ª®ª ¥ ¨§¢¥áâ®£® ¡«®ª	97	ID_ICON_CHUNK_NOT_FOUND equ 1 ;¨ª®ª ¥ ¨§¢¥áâ®£® ¡«®ª
99	ID_ICON_DATA equ 2 ;¨ª®ª ¤«ï ¤ ëå ¡«®ª , ¥ ®¯à¥¤¥«¥®© áâàãªâãàë	98	ID_ICON_DATA equ 2 ;¨ª®ª ¤«ï ¤ ëå ¡«®ª , ¥ ®¯à¥¤¥«¥®© áâàãªâãàë
100		99
101	FILE_ERROR_CHUNK_SIZE equ -3 ;®è¨¡ª ¢ à §¬¥à¥ ¡«®ª	100	FILE_ERROR_CHUNK_SIZE equ -3 ;®è¨¡ª ¢ à §¬¥à¥ ¡«®ª
102		101
103	align 4	102	align 4
104	file_3ds:	103	file_3ds:
105	.offs: dd 0 ;+0 ãª § â¥«ì ç «® ¡«®ª	104	.offs: dd 0 ;+0 ãª § â¥«ì ç «® ¡«®ª
106	.size: dd 0 ;+4 à §¬¥à ¡«®ª (¤«ï 1-£® ¯ à ¬¥âà = à §¬¥à ä ©« 3ds)	105	.size: dd 0 ;+4 à §¬¥à ¡«®ª (¤«ï 1-£® ¯ à ¬¥âà = à §¬¥à ä ©« 3ds)
107	rb 8*MAX_FILE_LEVEL	106	rb 8*MAX_FILE_LEVEL
108		107
109	size_one_list equ 40	108	size_one_list equ 40
110	list_offs_text equ 12 ;á¤¢¨£ ç « â¥ªáâ ¢ «¨áâ¥	109	list_offs_text equ 12 ;á¤¢¨£ ç « â¥ªáâ ¢ «¨áâ¥
111	buffer rb size_one_list ;¡ãä¥à ¤«ï ¤®¡ ¢«¥¨ï áâàãªâãà ¢ á¯¨á®ª tree1	110	buffer rb size_one_list ;¡ãä¥à ¤«ï ¤®¡ ¢«¥¨ï áâàãªâãà ¢ á¯¨á®ª tree1
112		111
113	txt_3ds_symb db 0,0	112	txt_3ds_symb db 0,0
114	;--------------------------------------	113	;--------------------------------------
115		114
116	include 'info_wnd_coords.inc'	115	include 'info_wnd_coords.inc'
117		116
118	align 4	117	align 4
119	start:	118	start:
120	load_libraries l_libs_start,l_libs_end	119	load_libraries l_libs_start,l_libs_end
121	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨« áì è «¨¡	120	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨« áì è «¨¡
122	mov ebp,lib_7	121	mov ebp,lib_7
123	cmp dword [ebp+ll_struc_size-4],0	122	cmp dword [ebp+ll_struc_size-4],0
124	jz @f	123	jz @f
125	mcall -1 ;exit not correct	124	mcall -1 ;exit not correct
126	@@:	125	@@:
127	mcall 48,3,sc,sizeof.system_colors	126	mcall 48,3,sc,sizeof.system_colors
128	mcall 40,0x27	127	mcall 40,0x27
129	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª ¤¨ «®£	128	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª ¤¨ «®£
130		129
131	stdcall dword[tl_data_init], tree1	130	stdcall dword[tl_data_init], tree1
132	;á¨áâ¥¬ë¥ ¨ª®ª¨ 16*16 ¤«ï tree_list	131	;á¨áâ¥¬ë¥ ¨ª®ª¨ 16*16 ¤«ï tree_list
133	load_image_file 'tl_sys_16.png', icon_tl_sys,TREE_ICON_SYS16_BMP_SIZE	132	load_image_file 'tl_sys_16.png', icon_tl_sys,TREE_ICON_SYS16_BMP_SIZE
134	;¥á«¨ ¨§®¡à ¦¥¨¥ ¥ ®âªàë«®áì, â® ¢ icon_tl_sys ¡ã¤ãâ	133	;¥á«¨ ¨§®¡à ¦¥¨¥ ¥ ®âªàë«®áì, â® ¢ icon_tl_sys ¡ã¤ãâ
135	;¥ ¨¨æ¨ «¨§¨à®¢ ë¥ ¤ ë¥, ® ®è¨¡ª¨ ¥ ¡ã¤¥â, â. ª. ¡ãä¥à ã¦®£® à §¬¥à	134	;¥ ¨¨æ¨ «¨§¨à®¢ ë¥ ¤ ë¥, ® ®è¨¡ª¨ ¥ ¡ã¤¥â, â. ª. ¡ãä¥à ã¦®£® à §¬¥à
136	mov eax,dword[icon_tl_sys]	135	mov eax,dword[icon_tl_sys]
137	mov dword[tree1.data_img_sys],eax	136	mov dword[tree1.data_img_sys],eax
138		137
139	load_image_file 'objects.png', icon_toolbar,TOOLBAR_ICON_BMP_SIZE	138	load_image_file 'objects.png', icon_toolbar,TOOLBAR_ICON_BMP_SIZE
140	mov eax,dword[icon_toolbar]	139	mov eax,dword[icon_toolbar]
141	mov dword[tree1.data_img],eax	140	mov dword[tree1.data_img],eax
142		141
143	stdcall [buf2d_create], buf_0 ;á®§¤ ¨¥ ¡ãä¥à	142	stdcall [buf2d_create], buf_0 ;á®§¤ ¨¥ ¡ãä¥à
144		143
145	load_image_file 'font8x9.bmp', image_data_toolbar,IMAGE_FILE1_SIZE	144	load_image_file 'font8x9.bmp', image_data_toolbar,IMAGE_FILE1_SIZE
146	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;á®§¤ ¥¬ ¡ãä¥à	145	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;á®§¤ ¥¬ ¡ãä¥à
147	stdcall mem.Free,[image_data_toolbar] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì	146	stdcall mem.Free,[image_data_toolbar] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
148	stdcall [buf2d_conv_24_to_8], buf_1,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç®áâ¨ 8 ¡¨â	147	stdcall [buf2d_conv_24_to_8], buf_1,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç®áâ¨ 8 ¡¨â
149	stdcall [buf2d_convert_text_matrix], buf_1	148	stdcall [buf2d_convert_text_matrix], buf_1
150		149
151	load_image_file fn_toolbar, image_data_toolbar,IMAGE_TOOLBAR_SIZE	150	load_image_file fn_toolbar, image_data_toolbar,IMAGE_TOOLBAR_SIZE
152		151
153	stdcall mem.Alloc,MAX_FILE_SIZE	152	stdcall mem.Alloc,MAX_FILE_SIZE
154	mov dword[open_file_lif],eax	153	mov dword[open_file_lif],eax
155		154
156	mcall 26,9	155	mcall 26,9
157	mov [last_time],eax	156	mov [last_time],eax
158		157
159	align 4	158	align 4
160	red_win:	159	red_win:
161	call draw_window	160	call draw_window
162		161
163	align 4	162	align 4
164	still:	163	still:
165	mcall 26,9	164	mcall 26,9
166	mov ebx,[last_time]	165	mov ebx,[last_time]
167	add ebx,10 ;§ ¤¥à¦ª	166	add ebx,10 ;§ ¤¥à¦ª
168	cmp ebx,eax	167	cmp ebx,eax
169	jge @f	168	jge @f
170	mov ebx,eax	169	mov ebx,eax
171	@@:	170	@@:
172	sub ebx,eax	171	sub ebx,eax
173	;cmp ebx,10 ;§ ¤¥à¦ª	172	;cmp ebx,10 ;§ ¤¥à¦ª
174	;ja timer_funct	173	;ja timer_funct
175	;test ebx,ebx	174	;test ebx,ebx
176	;jz timer_funct	175	;jz timer_funct
177	mcall 23	176	mcall 23
178	cmp eax,0	177	cmp eax,0
179	je timer_funct	178	je timer_funct
180		179
181	cmp al,1	180	cmp al,1
182	jz red_win	181	jz red_win
183	cmp al,2	182	cmp al,2
184	jz key	183	jz key
185	cmp al,3	184	cmp al,3
186	jz button	185	jz button
187	cmp al,6	186	cmp al,6
188	jne @f	187	jne @f
189	mcall 9,procinfo,-1	188	mcall 9,procinfo,-1
190	cmp ax,word[procinfo+4]	189	cmp ax,word[procinfo+4]
191	jne @f ;®ª® ¥ ªâ¨¢®	190	jne @f ;®ª® ¥ ªâ¨¢®
192	call mouse	191	call mouse
193	@@:	192	@@:
194	jmp still	193	jmp still
195		194
196	align 4	195	align 4
197	mouse:	196	mouse:
198	stdcall [tl_mouse], dword tree1	197	stdcall [tl_mouse], dword tree1
199	ret	198	ret
200		199
201	align 4	200	align 4
202	timer_funct:	201	timer_funct:
203	pushad	202	pushad
204	if debug	203	if debug
205	mov eax,4	204	mov eax,4
206	mov ebx,(5 shl 16)+8	205	mov ebx,(5 shl 16)+8
207	mov ecx,0xff+0x80000000	206	mov ecx,0xff+0x80000000
208	mov edx,txt_0002	207	mov edx,txt_0002
209	int 0x40	208	int 0x40
210	end if	209	end if
211	mcall 26,9	210	mcall 26,9
212	mov [last_time],eax	211	mov [last_time],eax
213		212
214	;	213	;
215	stdcall [tl_node_get_data],tree1	214	stdcall [tl_node_get_data],tree1
216	pop ebx	215	pop ebx
217	cmp ebx,0	216	cmp ebx,0
218	je @f	217	je @f
219	mov eax,dword[ebx] ;¯®«ãç ¥¬ § ç¥¨¥ á¤¢¨£ ¢ë¡à ®£® ¡«®ª ®â®á¨â¥«ì® ç « ä ©«	218	mov eax,dword[ebx] ;¯®«ãç ¥¬ § ç¥¨¥ á¤¢¨£ ¢ë¡à ®£® ¡«®ª ®â®á¨â¥«ì® ç « ä ©«
220	mov ecx,dword[ebx+4] ;à §¬¥à ¡«®ª	219	mov ecx,dword[ebx+4] ;à §¬¥à ¡«®ª
221	stdcall hex_in_str, txt_3ds_offs.dig, eax,8	220	stdcall hex_in_str, txt_3ds_offs.dig, eax,8
222	stdcall hex_in_str, txt_3ds_offs.siz, ecx,8	221	stdcall hex_in_str, txt_3ds_offs.siz, ecx,8
223		222
224	add eax,dword[open_file_lif] ;¯®«ãç ¥¬ § ç¥¨¥ á¤¢¨£ ¢ ¯ ¬ïâ¨	223	add eax,dword[open_file_lif] ;¯®«ãç ¥¬ § ç¥¨¥ á¤¢¨£ ¢ ¯ ¬ïâ¨
225	cmp dword[offs_last_timer],eax	224	cmp dword[offs_last_timer],eax
226	je @f	225	je @f
227	mov dword[offs_last_timer],eax	226	mov dword[offs_last_timer],eax
228	call buf_draw_beg	227	call buf_draw_beg
229	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs,5,35,0xb000	228	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs,5,35,0xb000
230	mov edx,dword[ebx+8]	229	mov edx,dword[ebx+8]
231	cmp edx,0 ;á¬®âà¨¬ ¥áâì «¨ ®¯¨á ¨¥ ¡«®ª	230	cmp edx,0 ;á¬®âà¨¬ ¥áâì «¨ ®¯¨á ¨¥ ¡«®ª
232	je .no_info	231	je .no_info
233	stdcall [buf2d_draw_text], buf_0, buf_1,edx,5,45,0xb000	232	stdcall [buf2d_draw_text], buf_0, buf_1,edx,5,45,0xb000
234	.no_info:	233	.no_info:
235	add ecx,eax ;¯®«ãç ¥¬ à §¬¥à ¡«®ª	234	add ecx,eax ;¯®«ãç ¥¬ à §¬¥à ¡«®ª
236	stdcall buf_draw_hex_table,eax,ecx ;¤®¡ ¢«¥¨¥ 16-à¨çëå ¤ ëå	235	stdcall buf_draw_hex_table,eax,ecx ;¤®¡ ¢«¥¨¥ 16-à¨çëå ¤ ëå
237	stdcall [buf2d_draw], buf_0 ;®¡®¢«ï¥¬ ¡ãä¥à íªà ¥	236	stdcall [buf2d_draw], buf_0 ;®¡®¢«ï¥¬ ¡ãä¥à íªà ¥
238	@@:	237	@@:
239	popad	238	popad
240	jmp still	239	jmp still
241		240
242	align 4	241	align 4
243	buf_draw_beg:	242	buf_draw_beg:
244	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à	243	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à
245	stdcall [buf2d_draw_text], buf_0, buf_1,txt_open_3ds,5,5,0xff	244	stdcall [buf2d_draw_text], buf_0, buf_1,txt_open_3ds,5,5,0xff
246	stdcall [buf2d_draw_text], buf_0, buf_1,openfile_path,5,15,0xff	245	stdcall [buf2d_draw_text], buf_0, buf_1,openfile_path,5,15,0xff
247	cmp dword[level_stack],FILE_ERROR_CHUNK_SIZE ;¢®§¬®¦ ®è¨¡ª ä ©«	246	cmp dword[level_stack],FILE_ERROR_CHUNK_SIZE ;¢®§¬®¦ ®è¨¡ª ä ©«
248	jne @f	247	jne @f
249	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_err_sizes,5,25,0xff0000	248	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_err_sizes,5,25,0xff0000
250	@@:	249	@@:
251	ret	250	ret
252		251
253	align 4	252	align 4
254	proc buf_draw_hex_table, offs:dword, size_line:dword	253	proc buf_draw_hex_table, offs:dword, size_line:dword
255	pushad	254	pushad
256	locals	255	locals
257	coord_y dd 55 ;ª®®à¤¨ â y ¤«ï ç « ¢ë¢®¤ â ¡«¨æë	256	coord_y dd 55 ;ª®®à¤¨ â y ¤«ï ç « ¢ë¢®¤ â ¡«¨æë
258	endl	257	endl
259	mov esi,dword[offs]	258	mov esi,dword[offs]
260	mov edi,dword[open_file_lif]	259	mov edi,dword[open_file_lif]
261	add edi,dword[file_3ds.size] ;edi - ãª § â¥«ì ª®¥æ ä ©« ¢ ¯ ¬ïâ¨	260	add edi,dword[file_3ds.size] ;edi - ãª § â¥«ì ª®¥æ ä ©« ¢ ¯ ¬ïâ¨
262	mov dword[txt_3ds_offs.dig],0	261	mov dword[txt_3ds_offs.dig],0
263	cld	262	cld
264	.cycle_rows:	263	.cycle_rows:
265	mov ebx,5 ;®âáâã¯ á«¥¢ ¤«ï æ¨äà	264	mov ebx,5 ;®âáâã¯ á«¥¢ ¤«ï æ¨äà
266	mov edx,5+10*24 ;®âáâã¯ á«¥¢ ¤«ï â¥ªáâ	265	mov edx,5+10*24 ;®âáâã¯ á«¥¢ ¤«ï â¥ªáâ
267	mov ecx,10	266	mov ecx,10
268	@@:	267	@@:
269	stdcall hex_in_str, txt_3ds_offs.dig, dword[esi],2	268	stdcall hex_in_str, txt_3ds_offs.dig, dword[esi],2
270	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs.dig,ebx,[coord_y],0	269	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_offs.dig,ebx,[coord_y],0
271		270
272	mov al,byte[esi]	271	mov al,byte[esi]
273	mov byte[txt_3ds_symb],al	272	mov byte[txt_3ds_symb],al
274	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_symb,edx,[coord_y],0x808080	273	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_symb,edx,[coord_y],0x808080
275	inc esi	274	inc esi
276	cmp esi,dword[size_line]	275	cmp esi,dword[size_line]
277	jne .end_block	276	jne .end_block
278	stdcall draw_block_end_line, dword[coord_y]	277	stdcall draw_block_end_line, dword[coord_y]
279	.end_block:	278	.end_block:
280	cmp esi,edi	279	cmp esi,edi
281	jge @f ;jg ???	280	jge @f ;jg ???
282	add ebx,24	281	add ebx,24
283	add edx,9 ;è¨à¨ 1-£® á¨¬¢®« +1pix	282	add edx,9 ;è¨à¨ 1-£® á¨¬¢®« +1pix
284	loop @b	283	loop @b
285	add dword[coord_y],10 ;¢ëá®â 1-£® á¨¬¢®« (¨«¨ ¨â¥à¢ « ¬¥¦¤ã áâà®ª ¬¨)	284	add dword[coord_y],10 ;¢ëá®â 1-£® á¨¬¢®« (¨«¨ ¨â¥à¢ « ¬¥¦¤ã áâà®ª ¬¨)
286	mov ebx,dword[buf_0.h]	285	mov ebx,dword[buf_0.h]
287	cmp dword[coord_y],ebx	286	cmp dword[coord_y],ebx
288	jl .cycle_rows	287	jl .cycle_rows
289	@@:	288	@@:
290	popad	289	popad
291	ret	290	ret
292	endp	291	endp
293		292
294	align 4	293	align 4
295	proc draw_block_end_line, coord_y:dword	294	proc draw_block_end_line, coord_y:dword
296	push eax ebx ecx	295	push eax ebx ecx
297	add ebx,20 ;20 = width 2.5 symbols	296	add ebx,20 ;20 = width 2.5 symbols
298	mov eax,[coord_y]	297	mov eax,[coord_y]
299	sub eax,2	298	sub eax,2
300	mov ecx,eax	299	mov ecx,eax
301	add ecx,10	300	add ecx,10
302	stdcall [buf2d_line], buf_0, 0,ecx,ebx,ecx ,0xff	301	stdcall [buf2d_line], buf_0, 0,ecx,ebx,ecx ,0xff
303	stdcall [buf2d_line], buf_0, ebx,ecx,ebx,eax ,0xff	302	stdcall [buf2d_line], buf_0, ebx,ecx,ebx,eax ,0xff
304	stdcall [buf2d_line], buf_0, ebx,eax,5+10*24-4,eax ,0xff	303	stdcall [buf2d_line], buf_0, ebx,eax,5+10*24-4,eax ,0xff
305	pop ecx ebx eax	304	pop ecx ebx eax
306	ret	305	ret
307	endp	306	endp
308		307
309	align 4	308	align 4
310	draw_window:	309	draw_window:
311	pushad	310	pushad
312	mcall 12,1	311	mcall 12,1
313	xor eax,eax	312	xor eax,eax
314	mov ebx,(20 shl 16)+560	313	mov ebx,(20 shl 16)+560
315	mov ecx,(20 shl 16)+315	314	mov ecx,(20 shl 16)+315
316	mov edx,[sc.work]	315	mov edx,[sc.work]
317	or edx,(3 shl 24)+0x10000000+0x20000000	316	or edx,(3 shl 24)+0x10000000+0x20000000
318	mov edi,capt	317	mov edi,capt
319	int 0x40	318	int 0x40
320		319
321	mcall 9,procinfo,-1	320	mcall 9,procinfo,-1
322	mov eax,dword[procinfo.box.height]	321	mov eax,dword[procinfo.box.height]
323	cmp eax,250	322	cmp eax,250
324	jge @f	323	jge @f
325	mov eax,250	324	mov eax,250
326	@@:	325	@@:
327	sub eax,65	326	sub eax,65
328	mov dword[tree1.box_height],eax	327	mov dword[tree1.box_height],eax
329	mov word[w_scr_t1+4],ax ;®¢ë¥ à §¬¥àë áªà®««¨£	328	mov word[w_scr_t1+4],ax ;®¢ë¥ à §¬¥àë áªà®««¨£
330	cmp eax,dword[buf_0.h] ;ã¢¥«¨ç¨¢ ¥¬ ¢ëá®âã ¡ãä¥à	329	cmp eax,dword[buf_0.h] ;ã¢¥«¨ç¨¢ ¥¬ ¢ëá®âã ¡ãä¥à
331	jle @f	330	jle @f
332	stdcall [buf2d_resize],buf_0,0,eax	331	stdcall [buf2d_resize],buf_0,0,eax
333	mov dword[offs_last_timer],0 ;¤«ï ®¡®¢«¥¨ï ¡ãä¥à ¢ â ©¬¥à¥	332	mov dword[offs_last_timer],0 ;¤«ï ®¡®¢«¥¨ï ¡ãä¥à ¢ â ©¬¥à¥
334	@@:	333	@@:
335		334
336	mov eax,dword[procinfo.box.width]	335	mov eax,dword[procinfo.box.width]
337	cmp eax,400	336	cmp eax,400
338	jge @f	337	jge @f
339	mov eax,400	338	mov eax,400
340	@@:	339	@@:
341	sub eax,[buf_0.w]	340	sub eax,[buf_0.w]
342	sub eax,41	341	sub eax,41
343	mov dword[tree1.box_width],eax	342	mov dword[tree1.box_width],eax
344	add ax,word[tree1.box_left]	343	add ax,word[tree1.box_left]
345	mov word[w_scr_t1.start_x],ax	344	mov word[w_scr_t1.start_x],ax
346	add ax,16+5	345	add ax,16+5
347	mov word[buf_0.l],ax	346	mov word[buf_0.l],ax
348		347
349	mov eax,8	348	mov eax,8
350	mov ebx,(5 shl 16)+20	349	mov ebx,(5 shl 16)+20
351	mov ecx,(5 shl 16)+20	350	mov ecx,(5 shl 16)+20
352	mov edx,3	351	mov edx,3
353	mov esi,[sc.work_button]	352	mov esi,[sc.work_button]
354	int 0x40	353	int 0x40
355		354
356	mov ebx,(30 shl 16)+20	355	mov ebx,(30 shl 16)+20
357	mov ecx,(5 shl 16)+20	356	mov ecx,(5 shl 16)+20
358	mov edx,4	357	mov edx,4
359	int 0x40	358	int 0x40
360		359
361	cmp byte[can_save],0	360	cmp byte[can_save],0
362	je @f	361	je @f
363	mov ebx,(55 shl 16)+20	362	mov ebx,(55 shl 16)+20
364	mov ecx,(5 shl 16)+20	363	mov ecx,(5 shl 16)+20
365	mov edx,5	364	mov edx,5
366	int 0x40	365	int 0x40
367	@@:	366	@@:
368		367
369	mov ebx,(85 shl 16)+20	368	mov ebx,(85 shl 16)+20
370	mov ecx,(5 shl 16)+20	369	mov ecx,(5 shl 16)+20
371	mov edx,6 ;®ª® á ª®®à¤¨ â ¬¨	370	mov edx,6 ;®ª® á ª®®à¤¨ â ¬¨
372	int 0x40	371	int 0x40
373		372
374	mov eax,7	373	mov eax,7
375	mov ebx,[image_data_toolbar]	374	mov ebx,[image_data_toolbar]
376	mov ecx,(16 shl 16)+16	375	mov ecx,(16 shl 16)+16
377	mov edx,(7 shl 16)+7 ;new	376	mov edx,(7 shl 16)+7 ;new
378	int 0x40	377	int 0x40
379		378
380	add ebx,IMAGE_TOOLBAR_ICON_SIZE	379	add ebx,IMAGE_TOOLBAR_ICON_SIZE
381	mov edx,(32 shl 16)+7 ;open	380	mov edx,(32 shl 16)+7 ;open
382	int 0x40	381	int 0x40
383		382
384	cmp byte[can_save],0	383	cmp byte[can_save],0
385	je @f	384	je @f
386	add ebx,IMAGE_TOOLBAR_ICON_SIZE	385	add ebx,IMAGE_TOOLBAR_ICON_SIZE
387	mov edx,(57 shl 16)+7 ;save	386	mov edx,(57 shl 16)+7 ;save
388	int 0x40	387	int 0x40
389	@@:	388	@@:
390		389
391	mov dword[w_scr_t1.all_redraw],1	390	mov dword[w_scr_t1.all_redraw],1
392	stdcall [tl_draw],dword tree1	391	stdcall [tl_draw],dword tree1
393		392
394	stdcall [buf2d_draw], buf_0	393	stdcall [buf2d_draw], buf_0
395		394
396	mcall 12,2	395	mcall 12,2
397	popad	396	popad
398	ret	397	ret
399		398
400	align 4	399	align 4
401	key:	400	key:
402	mcall 2	401	mcall 2
403	stdcall [tl_key], dword tree1	402	stdcall [tl_key], dword tree1
404	jmp still	403	jmp still
405		404
406		405
407	align 4	406	align 4
408	button:	407	button:
409	mcall 17	408	mcall 17
410	cmp ah,3	409	cmp ah,3
411	jne @f	410	jne @f
412	call but_new_file	411	call but_new_file
413	@@:	412	@@:
414	cmp ah,4	413	cmp ah,4
415	jne @f	414	jne @f
416	call but_open_file	415	call but_open_file
417	@@:	416	@@:
418	cmp ah,5	417	cmp ah,5
419	jne @f	418	jne @f
420	call but_save_file	419	call but_save_file
421	@@:	420	@@:
422	cmp ah,6	421	cmp ah,6
423	jne @f	422	jne @f
424	call but_wnd_coords	423	call but_wnd_coords
425	@@:	424	@@:
426		425
427	cmp ah,1	426	cmp ah,1
428	jne still	427	jne still
429	.exit:	428	.exit:
430	mov dword[tree1.data_img],0	429	mov dword[tree1.data_img],0
431	mov dword[tree1.data_img_sys],0	430	mov dword[tree1.data_img_sys],0
432	stdcall dword[tl_data_clear], tree1	431	stdcall dword[tl_data_clear], tree1
433	stdcall [buf2d_delete],buf_0	432	stdcall [buf2d_delete],buf_0
434	stdcall [buf2d_delete],buf_1 ;ã¤ «ï¥¬ ¡ãä¥à	433	stdcall [buf2d_delete],buf_1 ;ã¤ «ï¥¬ ¡ãä¥à
435	stdcall mem.Free,[image_data_toolbar]	434	stdcall mem.Free,[image_data_toolbar]
436	stdcall mem.Free,[open_file_lif]	435	stdcall mem.Free,[open_file_lif]
437	mcall -1	436	mcall -1
438		437
439		438
440	align 4	439	align 4
441	but_new_file:	440	but_new_file:
442	mov byte[can_save],0	441	mov byte[can_save],0
443	stdcall [tl_info_clear], tree1 ;®ç¨áâª á¯¨áª ®¡ê¥ªâ®¢	442	stdcall [tl_info_clear], tree1 ;®ç¨áâª á¯¨áª ®¡ê¥ªâ®¢
444	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à	443	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à
445	;;;call draw_window	444	;;;call draw_window
446	stdcall [tl_draw], tree1	445	stdcall [tl_draw], tree1
447	stdcall [buf2d_draw], buf_0 ;®¡®¢«ï¥¬ ¡ãä¥à íªà ¥	446	stdcall [buf2d_draw], buf_0 ;®¡®¢«ï¥¬ ¡ãä¥à íªà ¥
448	ret	447	ret
449		448
450	align 4	449	align 4
451	but_open_file:	450	but_open_file:
452	pushad	451	pushad
453	copy_path open_dialog_name,communication_area_default_path,file_name,0	452	copy_path open_dialog_name,communication_area_default_path,file_name,0
454	mov [OpenDialog_data.type],0	453	mov [OpenDialog_data.type],0
455	stdcall [OpenDialog_Start],OpenDialog_data	454	stdcall [OpenDialog_Start],OpenDialog_data
456	cmp [OpenDialog_data.status],2	455	cmp [OpenDialog_data.status],2
457	je .end_open_file	456	je .end_open_file
458	;ª®¤ ¯à¨ ã¤ ç®¬ ®âªàëâ¨¨ ¤¨ «®£	457	;ª®¤ ¯à¨ ã¤ ç®¬ ®âªàëâ¨¨ ¤¨ «®£
459		458
460	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨	459	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨
461	mov [run_file_70.Function], 0	460	mov [run_file_70.Function], 0
462	mov [run_file_70.Position], 0	461	mov [run_file_70.Position], 0
463	mov [run_file_70.Flags], 0	462	mov [run_file_70.Flags], 0
464	mov dword[run_file_70.Count], MAX_FILE_SIZE	463	mov dword[run_file_70.Count], MAX_FILE_SIZE
465	m2m [run_file_70.Buffer], dword[open_file_lif]	464	m2m [run_file_70.Buffer], dword[open_file_lif]
466	mov byte[run_file_70+20], 0	465	mov byte[run_file_70+20], 0
467	mov dword[run_file_70.FileName], openfile_path	466	mov dword[run_file_70.FileName], openfile_path
468	mov ebx,run_file_70	467	mov ebx,run_file_70
469	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï	468	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï
470	cmp ebx,0xffffffff	469	cmp ebx,0xffffffff
471	je .end_open_file	470	je .end_open_file
472		471
473	;add ebx,[open_file_lif]	472	;add ebx,[open_file_lif]
474	;mov byte[ebx],0 ; á«ãç © ¥á«¨ à ¥¥ ¡ë« ®âªàëâ ä ©« ¡®«ìè¥£® à §¬¥à ç¨áâ¨¬ ª®¥æ ¡ãä¥à á ä ©«®¬	473	;mov byte[ebx],0 ; á«ãç © ¥á«¨ à ¥¥ ¡ë« ®âªàëâ ä ©« ¡®«ìè¥£® à §¬¥à ç¨áâ¨¬ ª®¥æ ¡ãä¥à á ä ©«®¬
475	;mcall 71,1,openfile_path	474	;mcall 71,1,openfile_path
476		475
477	mov byte[can_save],0	476	mov byte[can_save],0
478	stdcall [tl_info_clear], tree1 ;®ç¨áâª á¯¨áª ®¡ê¥ªâ®¢	477	stdcall [tl_info_clear], tree1 ;®ç¨áâª á¯¨áª ®¡ê¥ªâ®¢
479		478
480	mov esi,dword[open_file_lif]	479	mov esi,dword[open_file_lif]
481	cmp word[esi],CHUNK_MAIN	480	cmp word[esi],CHUNK_MAIN
482	je @f	481	je @f
483	call buf_draw_beg	482	call buf_draw_beg
484	stdcall [buf2d_draw_text], buf_0, buf_1,txt_no_3ds,5,25,0xff0000 ;à¨áã¥¬ áâà®ªã á â¥ªáâ®¬	483	stdcall [buf2d_draw_text], buf_0, buf_1,txt_no_3ds,5,25,0xff0000 ;à¨áã¥¬ áâà®ªã á â¥ªáâ®¬
485	jmp .end_open	484	jmp .end_open
486	@@:	485	@@:
487	cmp dword[esi+2],MAX_FILE_SIZE	486	cmp dword[esi+2],MAX_FILE_SIZE
488	jle @f	487	jle @f
489	call buf_draw_beg	488	call buf_draw_beg
490	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_big_file,5,25,0xff0000 ;à¨áã¥¬ áâà®ªã á â¥ªáâ®¬	489	stdcall [buf2d_draw_text], buf_0, buf_1,txt_3ds_big_file,5,25,0xff0000 ;à¨áã¥¬ áâà®ªã á â¥ªáâ®¬
491	jmp .end_open	490	jmp .end_open
492	@@:	491	@@:
493	;--- ®¡à ¡®âª ®âªàëâ®£® *.3ds ä ©«	492	;--- ®¡à ¡®âª ®âªàëâ®£® *.3ds ä ©«
494	mov eax,file_3ds	493	mov eax,file_3ds
495	mov dword[level_stack],0 ;®¡ã«ï¥¬ ãà®¢¥ì áâ¥ª	494	mov dword[level_stack],0 ;®¡ã«ï¥¬ ãà®¢¥ì áâ¥ª
496	mov dword[offs_last_timer],0	495	mov dword[offs_last_timer],0
497	;--- ¤®¡ ¢«¥¨¥ £« ¢®£® ¡«®ª ¢ á¯¨á®ª	496	;--- ¤®¡ ¢«¥¨¥ £« ¢®£® ¡«®ª ¢ á¯¨á®ª
498	stdcall add_3ds_object, ID_ICON_CHUNK_MAIN,0,dword[esi+2],0	497	stdcall add_3ds_object, ID_ICON_CHUNK_MAIN,0,dword[esi+2],0
499	call block_children ;¢å®¤ ¢ ¤®ç¥à¨© ¡«®ª	498	call block_children ;¢å®¤ ¢ ¤®ç¥à¨© ¡«®ª
500		499

Subversion Repositories Kolibri OS

(root)/programs/develop/info3ds/info3ds.asm – Rev 2173 → 3014