WebSVN – Kolibri OS – Diff – /programs/games/nu_pogodi/trunk/nu_pogod.asm

 	dd sys_path
 include '../../../macros.inc'
 include '../../../proc32.inc'
+include '../../../develop/libraries/box_lib/load_lib.mac'
-include '../../../develop/libraries/box_lib/load_lib.mac'
+include '../../../develop/libraries/box_lib/trunk/box_lib.mac' ;¬ ªà®áë ¤«ï § ¤ ¨ï í«¥¬¥â®¢ box_lib
 include 'mem.inc'
 include 'dll.inc'
 BUT1_L equ 15 ;®âáâã¯ á«¥¢
 BUT1_W equ 50 ;è¨à¨
 BUT1_H equ 20 ;¢ëá®â
 BUT1_NEXT_TOP equ (BUT1_T+BUT1_H)*65536
 game_select_mode db 1 ;à¥¦¨¬ ¢ë¡®à  ¨£àë
 FILE_NAME_MAX equ 20 ;¬ ªá¨¬ «ì ï ¤«¨  ¨¬¥¨ ä ©«  (¡¥§ ¯ ¯®ª, ®â®á¨â¥«ì® â¥ªãé¥©)
 ;§ ç¥¨ï ¨¬¥ ¯® ã¬®«ç ¨î
 ini_def_decorat_file db 'curici.png',0
+ini_def_unit_file db 'wolf.png',0
-ini_def_unit_file db 'wolf.png',0
+ini_def_objects_file db 'eggs.png',0
-ini_def_objects_file db 'eggs.png',0
+ini_def_lost_file db 'chi.png',0
 ;¨¬¥  ä ©«®¢
 fn_icon0 rb FILE_NAME_MAX ;¨¬ï ä ©«  á ¤¥ª®à æ¨ï¬¨
 fn_icon1 rb FILE_NAME_MAX ;¨¬ï ä ©«  á ¢®«ª®¬ ¨ § ©æ¥¬
 fn_icon2 rb FILE_NAME_MAX ;¨¬ï ä ©«  á ï©æ ¬¨
+fn_icon3 rb FILE_NAME_MAX ;¨¬ï ä ©«  á æ¨¯«ïâ ¬¨
+fn_font db 'font8x9.bmp',0
-fn_icon3 db 'chi.png',0 ;¨¬ï ä ©«  á æ¨¯«ïâ ¬¨
+fn_icon_tl_sys db 'tl_sys_16.png',0
+TREE_ICON_SYS16_BMP_SIZE equ 256*3*11+54 ;à §¬¥à bmp ä ©«  á á¨áâ¥¬ë¬¨ ¨ª®ª ¬¨
+ini_m_name db 'main.ini',0
+key_count db 'count',0
+key_game db 'g'
-fn_font db 'font8x9.bmp',0
+	key_game_ind db 0,0,0
-ini_name db 'nu_pogod.ini',0
+ini_name rb FILE_NAME_MAX ;¨¬ï ini ä ©«  c ¢ë¡à ®© ¨£à®©
 ini_sec_files db 'Files',0
+key_file_decorat db 'file_decorat',0
-key_file_decorat db 'file_decorat',0
+key_file_unit db 'file_unit',0
-key_file_unit db 'file_unit',0
+key_file_objects db 'file_objects',0
-key_file_objects db 'file_objects',0
+key_file_lost db 'file_lost',0
 key_displ_w db 'displ_w',0
 	stdcall mem.Free,[image_data_gray] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
 	popad
 	ret
 endp
+txt_tile_type_0 rb FILE_NAME_MAX
 align 4
-start:
+user_is_select:
-	load_libraries l_libs_start,load_lib_end
+	push ecx esi edi
-	;¯à®¢¥àª    áª®«ìª® ã¤ ç® § £ã§¨« áì  è  «¨¡
+	stdcall [tl_node_get_data], tree1
-	mov	ebp,lib0
+	pop esi
-	cmp	dword [ebp+ll_struc_size-4],0
+	cmp esi,0 ;¥á«¨ ¨¬ï ¨£àë ¯ãáâ®¥
+	je @f
-	jz	@f
+		mov edi,ini_name
-		mcall -1 ;exit not correct
+		mov ecx,FILE_NAME_MAX
+		cld
-	@@:
+		rep movsb
-	mov	ebp,lib1
-	cmp	dword [ebp+ll_struc_size-4],0
-	jz	@f
+		mov byte[game_select_mode],0
+		call InitAll
-		mcall -1 ;exit not correct
+	@@:
-	@@:
+	pop edi esi ecx
+	call draw_window
+	ret
+;******************************************************************************
+; äãªæ¨ï, ª®â®à ï 1 à § ¤¥« ¥â ¢á¥  áâà®©ª¨ ã¦ë¥ ¤«ï ¨£àë
 ;******************************************************************************
-	mcall 40,0x27
+align 4
-	mcall 48,3,sc,sizeof.system_colors ;¯®«ãç ¥¬ á¨áâ¥¬ë¥ æ¢¥â
+InitAll:
 	pushad
 	;à ¡®â  á ä ©«®¬  áâà®¥ª
 	copy_path ini_name,sys_path,file_name,0x0
 	stdcall dword[ini_get_int],file_name,ini_sec_files,key_displ_w,210
 	mov	dword[displ_w],eax
 	stdcall dword[ini_get_int],file_name,ini_sec_files,key_displ_h,140
+	mov	dword[displ_h],eax
+	stdcall dword[ini_get_str],file_name,ini_sec_files,key_file_decorat,fn_icon0,FILE_NAME_MAX,ini_def_decorat_file
-	mov	dword[displ_h],eax
+	stdcall dword[ini_get_str],file_name,ini_sec_files,key_file_unit,fn_icon1,FILE_NAME_MAX,ini_def_unit_file
-	stdcall dword[ini_get_str],file_name,ini_sec_files,key_file_decorat,fn_icon0,FILE_NAME_MAX,ini_def_decorat_file
+	stdcall dword[ini_get_str],file_name,ini_sec_files,key_file_objects,fn_icon2,FILE_NAME_MAX,ini_def_objects_file
-	stdcall dword[ini_get_str],file_name,ini_sec_files,key_file_unit,fn_icon1,FILE_NAME_MAX,ini_def_unit_file
+	stdcall dword[ini_get_str],file_name,ini_sec_files,key_file_lost,fn_icon3,FILE_NAME_MAX,ini_def_lost_file
 	stdcall dword[ini_get_str],file_name,ini_sec_files,key_file_objects,fn_icon2,FILE_NAME_MAX,ini_def_objects_file
 	mov buf2d_h,edx
 	stdcall [buf2d_create], buf_fon ;á®§¤ ¥¬ ¡ãä¥à á ä®®¢ë¬¨ ¤¥ª®à æ¨ï¬¨
 	call InitBackgroundBuffer ;§ ¯®«ï¥¬ ¡ãä¥à á ä®®¢ë¬¨ ¤¥ª®à æ¨ï¬¨
+	stdcall InitGame,0
+	popad
+	ret
+align 4
+start:
+	load_libraries l_libs_start,load_lib_end
+	;¯à®¢¥àª    áª®«ìª® ã¤ ç® § £ã§¨« áì  è  «¨¡
+	mov	ebp,lib0
+	cmp	dword [ebp+ll_struc_size-4],0
+	jz	@f
+		mcall -1 ;exit not correct
+	@@:
+	mov	ebp,lib1
+	cmp	dword [ebp+ll_struc_size-4],0
+	jz	@f
+		mcall -1 ;exit not correct
+	@@:
+	mcall 40,0x27
+	mcall 48,3,sc,sizeof.system_colors ;¯®«ãç ¥¬ á¨áâ¥¬ë¥ æ¢¥â
+;******************************************************************************
+; ¯®¤£®â®¢ª  á¯¨áª  ¨£®à
+;******************************************************************************
+	stdcall dword[tl_data_init], tree1
+	load_image_file fn_icon_tl_sys, image_data_gray,TREE_ICON_SYS16_BMP_SIZE
+	stdcall [buf2d_create_f_img], buf_tree_sys,[image_data_gray] ;á®§¤ ¥¬ ¡ãä¥à
+	stdcall mem.Free,[image_data_gray] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
+	mov edi,buf_tree_sys
+	m2m dword[tree1.data_img_sys],buf2d_data
+	;à ¡®â  á £« ¢ë¬ ä ©«®¬  áâà®¥ª
+	copy_path ini_m_name,sys_path,file_name,0x0
+	stdcall dword[ini_get_int],file_name,ini_sec_files,key_count,1
+	mov	ecx,eax
+	mov dl,'0'
+	cld
+	@@:
+		mov byte[key_game_ind],dl
+		inc dl
+		push ecx edx
+		stdcall dword[ini_get_str],file_name,ini_sec_files,key_game,txt_tile_type_0,FILE_NAME_MAX,ini_def_decorat_file
+		stdcall dword[tl_node_add], txt_tile_type_0, 0, tree1 ;¤®¡ ¢«ï¥¬  §¢ ¨¥ ¨£àë
+		stdcall dword[tl_cur_next], tree1 ;¯¥à¥®á¨¬ ªãàá®à ¢¨§, çâ®-¡ë ¥ ¯®¬¥ï«áï ¯®àï¤®ª ¨£à
+		pop edx ecx
+	loop @b
+	stdcall dword[tl_cur_beg], tree1 ;¯¥à¥®á¨¬ ªãàá®à ¢¢¥àå
 	stdcall InitGame,0
 	mcall 26,9
 red_win:
 	call draw_window
 align 4
+still: ;£« ¢ë© æ¨ª«
-still: ;£« ¢ë© æ¨ª«
+	cmp byte[game_select_mode],0
+	jne .select_mode
-	mcall 26,9
+	mcall 26,9 ;¡¥à¥¬ á¨áâ¥¬®¥ ¢à¥¬ï
 	mov ebx,[last_time]
 	add ebx,dword[game_spd] ;delay
 	sub ebx,eax
 	cmp ebx,dword[game_spd] ;delay
 	mcall 23
 	cmp eax,0
+	je it_is_time_now
-	je it_is_time_now
+	jmp @f
+	.select_mode:
+		mcall 10
-	;mcall 10
+	@@:
-	cmp al,0x1 ;¨§¬¥¨«®áì ¯®«®¦¥¨¥ ®ª
+	cmp al,1 ;¨§¬¥¨«®áì ¯®«®¦¥¨¥ ®ª
 	jz red_win
-	cmp al,0x2
+	cmp al,2
+	jz key
+	cmp al,3
+	jz button
+	cmp al,6
+	jz mouse
+	jmp still
+align 4
+mouse:
-	jz key
+	cmp byte[game_select_mode],0
-	cmp al,0x3
+	je @f
-	jz button
+		stdcall [tl_mouse], tree1 ;¥á«¨ ¨£à  ¥é¥ ¥ ¢ë¡à
 	@@:
 	jmp still
+align 4
+it_is_time_now:
 	mcall 26,9
-align 4
+	mov [last_time],eax
 it_is_time_now:
-	mcall 26,9
+	cmp byte[game_select_mode],0
-	mov [last_time],eax
+	jne still
 	;...§¤¥áì ¨¤ãâ ¤¥©áâ¢¨ï, ¢ë§ë¢ ¥¬ë¥ ª ¦¤ë¥ delay á®âëå ¤®«¥© á¥ªã¤...
 	call MoveEggs
+	call draw_display
+	jmp still
+align 4
+key:
-	call draw_display
+	push eax ebx
-	jmp still
+	mcall 2
-align 4
+	cmp byte[game_select_mode],0
-key:
+	je @f
 	;or edx,0x33000000
 	or edx,0x73000000
 	mov edi,hed
 	mcall ;á®§¤ ¨¥ ®ª
+	cmp byte[game_select_mode],0
+	jne .select_mode
 	mcall 9,procinfo,-1
 	mov edi,buf_displ
 	mov eax,dword[procinfo.client_box.width]
 	cmp eax,dword[displ_w]
 	xor ebx,ebx
 	mov bx,buf2d_l
 	mov ecx,dword[displ_h]
 	int 0x40 ;à¨á®¢ ¨¥ «¥¢®£® ¡®ª®¢®£® ¯®«ï
+	jmp @f
+	.select_mode:
+		stdcall dword[tl_draw],dword tree1
+	@@:
 	mcall 12,2
 	popad
 	ret
 align 4
 draw_display:
-	stdcall mem_copy, dword[buf_fon],dword[buf_displ],315*210*3;dword[displ_bytes] ;ª®¯¨à®¢ ¨¥ ¨§®¡à ¦¥¨ï ¨§ ä®®¢®£® ¡ãä¥à
+	stdcall mem_copy, dword[buf_fon],dword[buf_displ],dword[displ_bytes] ;ª®¯¨à®¢ ¨¥ ¨§®¡à ¦¥¨ï ¨§ ä®®¢®£® ¡ãä¥à
 	call DrawZaac ;à¨áã¥¬ § ©æ
 	jne still
 .exit:
 	stdcall [buf2d_delete],buf_fon ;ã¤ «ï¥¬ ¡ãä¥à
 	stdcall [buf2d_delete],buf_displ ;ã¤ «ï¥¬ ¡ãä¥à
 	stdcall [buf2d_delete],buf_tree_sys
 	stdcall [buf2d_delete],buf_font
 	cld
 	@@: ;ã¤ «ï¥¬ 22 ¡ãä¥à
 		stdcall [buf2d_delete],edi
 		add edi,BUF_STRUCT_SIZE
 		loop @b
+	mov dword[tree1.data_img_sys],0 ;ç¨áâ¨¬ ãª § â¥«ì   ¨§®¡à ¦¥¨¥
 	stdcall dword[tl_data_clear], tree1
 	mcall -1 ;¢ëå®¤ ¨§ ¯à®£à ¬¬ë
 head_f_i:
 head_f_l  db '¨áâ¥¬ ï ®è¨¡ª ',0
 system_dir0 db '/sys/lib/'
-name_buf2d db 'buf2d.obj',0
+lib0_name db 'buf2d.obj',0
 err_message_found_lib0 db '¥ ã¤ «®áì  ©â¨ ¡¨¡«¨®â¥ªã buf2d.obj',0
 err_message_import0 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ buf2d.obj',0
 system_dir1 db '/sys/lib/'
-name_libimg db 'libimg.obj',0
+lib1_name db 'libimg.obj',0
 err_message_found_lib1 db '¥ ã¤ «®áì  ©â¨ ¡¨¡«¨®â¥ªã libimg.obj',0
 err_message_import1 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ libimg.obj',0
+system_dir2 db '/sys/lib/'
+lib2_name db 'libini.obj',0
+err_message_found_lib2 db '¥ ã¤ «®áì  ©â¨ ¡¨¡«¨®â¥ªã libini.obj',0
+err_message_import2 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ libini.obj',0
-system_dir2 db '/sys/lib/'
+system_dir3 db '/sys/lib/'
-libini_name db 'libini.obj',0
+lib3_name db 'box_lib.obj',0
-err_message_found_lib2 db '¥ ã¤ «®áì  ©â¨ ¡¨¡«¨®â¥ªã libini.obj',0
+err_message_found_lib3 db '¥ ã¤ «®áì  ©â¨ ¡¨¡«¨®â¥ªã box_lib.obj',0
-err_message_import2 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ libini.obj',0
+err_message_import3 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ box_lib.obj',0
 ;library structures
-;library structures
+l_libs_start:
-l_libs_start:
+	lib0 l_libs lib0_name,	sys_path, file_name, system_dir0, err_message_found_lib0, head_f_l, import_buf2d_lib, err_message_import0, head_f_i
-	lib0 l_libs name_buf2d,  sys_path, file_name, system_dir0, err_message_found_lib0, head_f_l, import_buf2d_lib, err_message_import0, head_f_i
+	lib1 l_libs lib1_name, sys_path, file_name, system_dir1, err_message_found_lib1, head_f_l, import_libimg, err_message_import1, head_f_i
 last_time dd ?
 image_data dd 0 ;¯ ¬ïâì ¤«ï ¯à¥®¡à §®¢ ¨ï ª àâ¨ª¨ äãªæ¨ï¬¨ libimg
 image_data_gray dd 0 ;¯ ¬ïâì á ¢à¥¬¥ë¬¨ á¥àë¬¨ ¨§®¡à ¦¥¨ï¬¨ ¢ ä®à¬ â¥ 24-bit, ¨§ ª®â®àëå ¡ã¤ãâ á®§¤ ¢ âìáï âà ä à¥âë
 run_file_70 FileInfoBlock
-hed db 'Nu pogodi 22.08.10',0 ;¯®¤¯¨áì ®ª
+hed db 'Nu pogodi 08.09.10',0 ;¯®¤¯¨áì ®ª
+sc system_colors  ;á¨áâ¥¬ë¥ æ¢¥â
+count_of_dir_list_files equ 10
+el_focus dd tree1
+tree1 tree_list FILE_NAME_MAX,count_of_dir_list_files+2, tl_key_no_edit+tl_draw_par_line+tl_list_box_mode,\
+,16, 0x8080ff,0x0000ff,0xffffff, 10,10,140,100, 0,0,0, el_focus,\
+,user_is_select
+align 4
+buf_tree_sys:
+	dd 0 ;ãª § â¥«ì   ¡ãä¥à ¨§®¡à ¦¥¨ï
+	dw 0 ;+4 left
+	dw 0 ;+6 top
+	dd 16 ;+8 w
+	dd 16*11 ;+12 h
+	dd 0 ;+16 color
-sc system_colors  ;á¨áâ¥¬ë¥ æ¢¥â
+	db 24 ;+20 bit in pixel
 align 4
 buf_font: ;¡ãä¥à á® èà¨äâ®¬
 	dd 0 ;ãª § â¥«ì   ¡ãä¥à ¨§®¡à ¦¥¨ï
 	rb 13*BUF_STRUCT_SIZE
 align 4
-libini_import:
+import_libini:
 	dd alib_init0
 	ini_get_str   dd aini_get_str
 	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
+align 4
+import_box_lib:
+	dd alib_init2
+	;scrollbar_ver_draw  dd aScrollbar_ver_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_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
+dd 0,0
+	alib_init2 db 'lib_init',0
+	;aScrollbar_ver_draw  db 'scrollbar_v_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_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
 i_end:
 	rb 1024
 	align 16
 	procinfo process_information
 stacktop:
 	sys_path rb 4096
 	file_name:
-		rb 4096
-	plugin_path:
 		rb 4096
 	openfile_path:
 		rb 4096
 	filename_area:
 		rb 256
 mem:

Subversion Repositories Kolibri OS

(root)/programs/games/nu_pogodi/trunk/nu_pogod.asm – Rev 1577 → 1609