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

Subversion Repositories Kolibri OS

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