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


use32
	org 0x0
	db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
	dd 0x1
	dd start
	dd i_end ;à §¬¥à ¯à¨«®¦¥­¨ï
	dd mem
	dd stacktop
	dd 0x0
	dd sys_path
 
include '../../../macros.inc'
include '../../../proc32.inc'
include '../../../develop/libraries/box_lib/load_lib.mac'
include 'mem.inc'
include 'dll.inc'
 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc, dll.Load
 
;ä« £¨, ¤«ï äã­ªæ¨¨ ®¡à¥§ ­¨ï ¡ãä¥à 
BUF2D_OPT_CROP_TOP equ 1 ;®¡à¥§ª  á¢¥àåã
BUF2D_OPT_CROP_LEFT equ 2 ;®¡à¥§ª  á«¥¢ 
BUF2D_OPT_CROP_BOTTOM equ 4 ;®¡à¥§ª  á­¨§ã
BUF2D_OPT_CROP_RIGHT equ 8 ;®¡à¥§ª  á¯à ¢ 
BUF2D_BIT_OPT_CROP_TOP equ 0
BUF2D_BIT_OPT_CROP_LEFT equ 1
BUF2D_BIT_OPT_CROP_BOTTOM equ 2
BUF2D_BIT_OPT_CROP_RIGHT equ 3
 
BUF_STRUCT_SIZE equ 21
buf2d_data equ dword[edi] ;¤ ­­ë¥ ¡ãä¥à  ¨§®¡à ¦¥­¨ï
buf2d_w equ dword[edi+8] ;è¨à¨­  ¡ãä¥à 
buf2d_h equ dword[edi+12] ;¢ëá®â  ¡ãä¥à 
buf2d_l equ word[edi+4] ;®âáâã¯ á«¥¢ 
buf2d_t equ word[edi+6] ;®âáâã¯ á¢¥àåã
buf2d_size_lt equ dword[edi+4] ;®âáâã¯ á«¥¢  ¨ á¯à ¢  ¤«ï ¡ãä¥à 
buf2d_color equ dword[edi+16] ;æ¢¥â ä®­  ¡ãä¥à 
buf2d_bits equ byte[edi+20] ;ª®«¨ç¥áâ¢® ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥­¨ï
 
struct FileInfoBlock
	Function dd ?
	Position dd ?
	Flags	 dd ?
	Count	 dd ?
	Buffer	 dd ?
		db ?
	FileName dd ?
ends
 
displ_w dd ? ;è¨à¨­  ¯®«ï
displ_h dd ? ;¢ëá®â  ¯®«ï
displ_bytes dd ? ;à §¬¥à 1-£® ä ©«  á ¨§®¡à ¦¥­¨¥¬
;displ_bytes equ 315*210*3 ;à §¬¥à 1-£® ä ©«  á ¨§®¡à ¦¥­¨¥¬
 
OFFS_SHADOW_X equ 2 ;á¤¢¨£ â¥­¥© ¯® ®á¨ 'x'
OFFS_SHADOW_Y equ 2 ;á¤¢¨£ â¥­¥© ¯® ®á¨ 'y'
IMAGE_FONT_SIZE equ 128*144*3
 
use_but equ 1
 
if use_but eq 1
BUT1_T equ 10 ;®âáâã¯ á¢¥àåã
BUT1_L equ 15 ;®âáâã¯ á«¥¢ 
BUT1_W equ 50 ;è¨à¨­ 
BUT1_H equ 20 ;¢ëá®â 
BUT1_NEXT_TOP equ (BUT1_T+BUT1_H)*65536
end if
 
FILE_NAME_MAX equ 20 ;¬ ªá¨¬ «ì­ ï ¤«¨­­  ¨¬¥­¨ ä ©«  (¡¥§ ¯ ¯®ª, ®â­®á¨â¥«ì­® â¥ªãé¥©)
;§­ ç¥­¨ï ¨¬¥­ ¯® ã¬®«ç ­¨î
ini_def_unit_file db 'wolf.png',0
;¨¬¥­  ä ©«®¢
fn_icon0 db 'curici.png',0 ;¨¬ï ä ©«  á ¤¥ª®à æ¨ï¬¨
fn_icon1 rb FILE_NAME_MAX ;¨¬ï ä ©«  á ¢®«ª®¬ ¨ § ©æ¥¬
fn_icon2 db 'eggs.png',0 ;¨¬ï ä ©«  á ï©æ ¬¨
fn_icon3 db 'chi.png',0 ;¨¬ï ä ©«  á æ¨¯«ïâ ¬¨
fn_font db 'font8x9.bmp',0
 
ini_name db 'nu_pogod.ini',0
ini_sec_files db 'Files',0
key_file_unit db 'file_unit',0
key_displ_w db 'displ_w',0
key_displ_h db 'displ_h',0
 
ini_sec_color db 'Colors',0
key_color_unit db 'unit',0
 
;æ¢¥â  ¢ ¨£à¥
color_fon dd 0xffffff
color_shadows dd 0xd0d0d0 ;æ¢¥â â¥­¥©
color_trees dd 0x008000 ;æ¢¥â âà ¢ë
color_wolf dd 0x800000 ;æ¢¥â ¢®«ª  ¨ § ©æ 
color_egg dd 0x404080 ;æ¢¥â ï©æ 
color_chick dd 0x00d0d0 ;æ¢¥â æ¨¯«¥­ª 
color_curici dd 0x8080d0 ;æ¢¥â ªãà¨æë
color_perilo dd 0x000080 ;æ¢¥â ¯¥à¨«  (£à¥¡­ï)
;æ¢¥â  ¨­â¥àä¥©á 
color_but_sm dd 0x808080 ;æ¢¥â ¬ «¥­ìª¨å ª­®¯®ª
color_but_te dd 0xffffff ;æ¢¥â â¥ªáâ  ­  ª­®¯ª å
 
macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥­¨©
	copy_path path,sys_path,file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«­ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥­¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ®­ ¢ ®¤­®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
 
	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]
	@@:
}
 
;¤ ­­ë¥ ¨£àë
bit_zaac equ 2 ;¡¨â § ©æ 
val_zaac equ 4 ;æ¨äà  ®â¢¥ç îé ï §  ¡¨â § ©æ 
bit_mig equ 3 ;¡¨â ¬¨£ ­¨ï
val_mig equ 8 ;æ¨äà  ®â¢¥ç îé ï §  ¡¨â ¬¨£ ­¨ï
mask_lot_lu    equ 1b ;¬ áª  ¤«ï «¥¢®£® ¢¥àå­¥£® «®âª 
mask_lot_ld    equ 100000b ;¬ áª  ¤«ï «¥¢®£® ­¨¦­¥£® «®âª 
mask_lot_ru    equ 10000000000b ;¬ áª  ¤«ï ¯à ¢®£® ¢¥àå­¥£® «®âª 
mask_lot_rd    equ 1000000000000000b ;¬ áª  ¤«ï ¯à ¢®£® ­¨¦­¥£® «®âª 
mask_clear_all equ 11111011111011110111101111011110b ;¬ áª  ¤«ï ®ç¨áâª¨ ¯ ¤ îé¨å ï¨æ ¨ ¯à¨¡¥¦ ¢è¨å æ¨¯«ïâ
mask_fail_eggs equ 100001000010000100000b ;¬ áª  ¯ ¤ îé¨å ï¨æ
mask_chi_left  equ 11111000000000000000000000b ;¬ áª  «¥¢ëå æ¨¯«ïâ
mask_chi_right equ 11111000000000000000000000000000b ;¬ áª  ¯à ¢ëå æ¨¯«ïâ
mask_chi_cr_l  equ 1000000000000000000000b ;¬ áª  ¤«ï á®§¤ ­¨ï «¥¢®£®
mask_chi_cr_r  equ 1000000000000000000000000000b ;¬ áª  ¤«ï á®§¤ ­¨ï ¯à ¢®£®
bit_chi_left  equ 21 ;1-© ¡¨â ª®â®àë© ®â¢¥ç ¥â §  ¡¥£ãé¥£® á«¥¢ 
bit_chi_right equ 27 ;1-© ¡¨â ª®â®àë© ®â¢¥ç ¥â §  ¡¥£ãé¥£® ¯à ¢ 
val_zaac_time_y equ 5 ;ª®««¨ç¥áâ¢® â ªâ®¢, ª®â®à®¥ ®¡ï§ â¥«ì­® ¤®«¦¥­ ¯à®¢¨á¥âì § ïæ
val_zaac_time_n equ 7 ;ª®««¨ç¥áâ¢® â ªâ®¢, ª®â®à®¥ ®¡ï§ â¥«ì­® ¤®«¦¥­ ¡ëâì á¯àïâ ­­ë¬ § ïæ
 
txt_game_a db '£à  ',0
txt_game_b db '£à  ',0
 
zaac_status db 0
pos_wolf db 0 ;¯®§¨æ¨ï ¢®«ª  0-© ¡¨â á«¥¢ /á¯à ¢ , 1-© ¡¨â á¢¥àåã/¢­¨§
;rb 1
pos_eggs dd 0 ;¯®§¨æ¨¨ à á¯®«®¦¥­¨ï ï¨æ ¨ æ¨¯«ïâ
eggs_count dw 0 ;ª®««¨ç¥áâ¢® ¯®©¬ ­ëå ï¨æ
game_text db '£à  _',13
some_text db '0'
	rb 8 ;â¥ªáâ á ç¨á«®¬ ¯®©¬ ­­ëå ï¨æ
count_last db 0 ;áç¥âç¨ª ¯à®¯ãé¥­­ëå ï¨æ
game_spd dd 0 ;§ ¤¥à¦ª  ¨£àë
 
;¤«ï £¥­¥à æ¨¨ á«ãç ©­ëå ç¨á¥«
rand_x dd 0
 
align 4
rand_next:
;x(k+1) = (a*x(k)+c) mod m
; a=22695477, c=1, m=2^32
push eax
	mov eax,dword[rand_x]
	imul eax,22695477
	inc eax
	mov dword[rand_x],eax
pop eax
	ret
 
;á®§¤ ¥¬ ¯à®§à ç­ë¥ ¡ãä¥à  ¯® 8 ¡¨â (âà ä à¥âë), ¤«ï à¨á®¢ ­¨ï
;£¤¥ buf - ¡ãä¥à ­  ®á­®¢¥ ª®â®à®£® ¡ã¤¥â á®§¤ ­ âà ä à¥â
;ä®­®¢ë© æ¢¥â ¡ãä¥à  ¤®«¦¥­ ¡ëâì 0xffffff, ¨­ ç¥ ­¥ ¯à®¨§®©¤¥â ®¡à¥§ª 
;¯® ä®­®¢®¬ã æ¢¥âã ¨ âà ä à¥â ¡ã¤¥â § ­¨¬ â ì¬­®£® ¬¥áâ  ¢ ¯ ¬ïâ¨
align 4
proc CreateTrapharetBuffer, buf:dword, img_data:dword
	push eax edi
	mov edi,dword[buf]
 
	;§ ¯®«­¥­¨¥ ¤ ­­ëå ¡ãä¥à 
	mov buf2d_size_lt,0
	mov eax,dword[displ_w]
	mov buf2d_w,eax
	mov eax,dword[displ_h]
	mov buf2d_h,eax
	mov buf2d_color,0xffffff
	mov buf2d_bits,24
 
	stdcall [buf2d_create_f_img], edi,[img_data] ;á®§¤ ¥¬ ¡ãä¥à
	stdcall [buf2d_conv_24_to_8], edi,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç­®áâ¨ 8¡¨â
	;®¡à¥§ ¥¬ «¨è­¨¥ ªà ï ¡ãä¥à , ¤«ï ¡®«¥¥ ¡ëáâà®£® à¨á®¢ ­¨ï
	stdcall [buf2d_crop_color], edi,buf2d_color,BUF2D_OPT_CROP_TOP+BUF2D_OPT_CROP_BOTTOM+BUF2D_OPT_CROP_RIGHT+BUF2D_OPT_CROP_LEFT
	pop edi eax
	ret
endp
 
align 4
InitBackgroundBuffer: ;á®§¤ ­¨¥ ä®­®¢®£® ¨§®¡à ¦¥­¨ï
	pushad
	mov edi,buf_fon
	mov eax,[color_fon]
	mov buf2d_color,eax
	stdcall [buf2d_clear], edi,eax
	mov esi,edi
 
	xor eax,eax
	xor ebx,ebx
 
	mov edi,buf_decor
	mov ax,buf2d_t
	add eax,OFFS_SHADOW_Y
	mov bx,buf2d_l
	add ebx,OFFS_SHADOW_X
	stdcall [buf2d_bit_blt_alpha], esi, ebx,eax, edi,[color_shadows] ;à¨áã¥¬ â¥­¨ ¤®¬¨ª®¢
	add edi,BUF_STRUCT_SIZE
	mov ax,buf2d_t
	add eax,OFFS_SHADOW_Y
	mov bx,buf2d_l
	add ebx,OFFS_SHADOW_X
	stdcall [buf2d_bit_blt_alpha], esi, ebx,eax, edi,[color_shadows] ;à¨áã¥¬ â¥­¨ ªãà¨æ
	add edi,BUF_STRUCT_SIZE
	mov ax,buf2d_t
	add eax,OFFS_SHADOW_Y
	mov bx,buf2d_l
	add ebx,OFFS_SHADOW_X
	stdcall [buf2d_bit_blt_alpha], esi, ebx,eax, edi,[color_shadows] ;à¨áã¥¬ â¥­¨ ¤¥à¥¢ì¥¢
 
	mov edi,buf_decor
	mov ax,buf2d_t
	stdcall [buf2d_bit_blt_alpha], esi, 0,eax, edi,[color_perilo] ;à¨áã¥¬ ¤®¬¨ª¨
	add edi,BUF_STRUCT_SIZE
	mov ax,buf2d_t
	stdcall [buf2d_bit_blt_alpha], esi, 0,eax, edi,[color_curici] ;à¨áã¥¬ ªãà¨æë
	add edi,BUF_STRUCT_SIZE
	mov ax,buf2d_t
	stdcall [buf2d_bit_blt_alpha], esi, 0,eax, edi,[color_trees] ;à¨áã¥¬ ¤¥à¥¢ìï
	popad
	ret
 
;à¨áã¥â ª àâ¨­ªã ¢ ¡ãä¥à¥ buf ¨§ ¬ áá¨¢  ¡ãä¥à®¢ buf_img á ¨­¤¥ªá®¬ ind
;â. ¥. buf <- buf_img[ind]
align 4
proc DrawArrayImg, buf:dword, buf_img:dword, ind:dword, color:dword
	pushad
		mov edi,dword[ind]
		imul edi,BUF_STRUCT_SIZE
		add edi,dword[buf_img]
 
		mov esi,dword[buf]
		xor eax,eax
		mov ax,buf2d_t
		xor ebx,ebx
		mov bx,buf2d_l
		stdcall [buf2d_bit_blt_alpha], esi, ebx,eax, edi,[color]
	popad
	ret
endp
 
align 4
DrawZaac: ;à¨á®¢ ­¨¥ § ©æ 
	push eax
	bt word[pos_wolf],bit_zaac
	jae .end_mig
 
	stdcall DrawArrayImg, buf_displ,buf_wolf,6,[color_wolf] ;à¨áã¥¬ â¥«® § ©æ 
	mov eax,dword[pos_eggs]
	and eax,mask_chi_right+mask_chi_left
	cmp eax,0
	je .end_mig ;¥á«¨ ­¥â ¡¥£ îé¨å æ¨¯«ïâ, â® § ïæ àãª®© ­¥ ¬ è¥â
	bt word[pos_wolf],bit_mig
	jc @f
		stdcall DrawArrayImg, buf_displ,buf_wolf,7,[color_wolf] ;à¨áã¥¬ àãªã § ©æ  ¢¢¥àåã
		jmp .end_mig
	@@:
		stdcall DrawArrayImg, buf_displ,buf_wolf,8,[color_wolf] ;à¨áã¥¬ àãªã § ©æ  ¢­¨§ã
	.end_mig:
	pop eax
	ret
 
align 4
DrawWolf: ;à¨áã¥â ¢®«ª  á ª®à§¨­ ¬¨
	bt word[pos_wolf],0
	jc @f
		stdcall DrawArrayImg, buf_displ,buf_wolf,0,[color_wolf]
		bt word[pos_wolf],1
		jc .corz_ldn
			stdcall DrawArrayImg, buf_displ,buf_wolf,1,[color_wolf]
			jmp .corz_lend
		.corz_ldn:
			stdcall DrawArrayImg, buf_displ,buf_wolf,2,[color_wolf]
		.corz_lend:
		jmp .wolf_b
	@@:
		stdcall DrawArrayImg, buf_displ,buf_wolf,3,[color_wolf]
		bt word[pos_wolf],1
		jc .corz_rdn
			stdcall DrawArrayImg, buf_displ,buf_wolf,4,[color_wolf]
			jmp .corz_rend
		.corz_rdn:
			stdcall DrawArrayImg, buf_displ,buf_wolf,5,[color_wolf]
		.corz_rend:
	.wolf_b:
	ret
 
align 4
DrawEggs: ;à¨áã¥â ï©æ 
	pushad
	cld
 
	mov eax,dword[pos_eggs]
	xor ebx,ebx
	mov ecx,20 ;æ¨ª« ¤«ï à¨á®¢ ­¨ï ª®âïé¨åáï ï¨æ
	@@:
		bt eax,ebx
		jae .draw_egg
			stdcall DrawArrayImg, buf_displ,buf_egg,ebx,[color_egg]
		.draw_egg:
		inc ebx
		loop @b
 
	;mov eax,dword[pos_eggs]
	and eax,mask_chi_left
	cmp eax,0
	je @f
		stdcall DrawArrayImg, buf_displ,buf_egg,20,[color_egg] ;à §¡¨â®¥ ï©æ® á«¥¢ 
	@@:
	mov eax,dword[pos_eggs]
	and eax,mask_chi_right
	cmp eax,0
	je @f
		stdcall DrawArrayImg, buf_displ,buf_egg,21,[color_egg] ;à §¡¨â®¥ ï©æ® á¯à ¢ 
	@@:
 
	mov eax,dword[pos_eggs]
	xor edx,edx
	mov ebx,bit_chi_left
	mov ecx,5 ;æ¨ª« ¤«ï à¨á®¢ ­¨ï «¥¢ëå æ¨¯«ïâ
	@@:
		bt eax,ebx
		jae .draw_chick_l
			stdcall DrawArrayImg, buf_displ,buf_chi,edx,[color_chick]
		.draw_chick_l:
		inc ebx
		inc edx
		loop @b
	mov ebx,bit_chi_right
	mov ecx,5 ;æ¨ª« ¤«ï à¨á®¢ ­¨ï ¯à ¢ëå æ¨¯«ïâ
	@@:
		bt eax,ebx
		jae .draw_chick_r
			stdcall DrawArrayImg, buf_displ,buf_chi,edx,[color_chick]
		.draw_chick_r:
		inc ebx
		inc edx
		loop @b
 
	xor eax,eax
	mov al,byte[count_last]
	mov ecx,eax ;æ¨ª« ¤«ï à¨á®¢ ­¨ï èâà ä­ëå ®çª®¢
	shr ecx,1
	mov edx,10 ;¨­¤¥ªá ­ ç «  èâà ä­ëå ¨ª®­®ª ¢ ¡ãä¥à¥ buf_chi
	cmp ecx,0
	je .no_unit_last
	@@:
		stdcall DrawArrayImg, buf_displ,buf_chi,edx,[color_chick]
		inc edx
		loop @b
	.no_unit_last:
 
	bt ax,0 ;¯à®¢¥àï¥¬ ¬¨£ îé¥¥ ­¥ ç¥â­®¥ ®çª®
	jae @f
		bt word[pos_wolf],bit_mig
		jc @f
			stdcall DrawArrayImg, buf_displ,buf_chi,edx,[color_chick] ;¬¨£ îé¥¥ èâà ä­®¥ ®çª®
	@@:
 
	popad
	ret
 
align 4
CountEggsInc: ;ã¢¥«¨ç¨¢ ¥¬ áç¥âç¨ª ï¨æ ­  1
	push eax edi
		xor eax,eax
		inc word[eggs_count] ;ã¢¥«¨ç¨¢ ¥¬ áç¥âç¨ª ï¨æ
		cmp word[eggs_count],200 ;¡®­ãá­ë¥ ®çª¨
		je @f
		cmp word[eggs_count],500 ;¡®­ãá­ë¥ ®çª¨
		je @f
			jmp .no_bonus
		@@:
			mov byte[count_last],0
		.no_bonus:
 
		mov ax,word[eggs_count]
		mov edi,some_text
		call convert_to_str ;®¡­®¢«ï¥¬ â¥ªáâ®¢ãî áâà®ªã
		and ax,0xf ;ç¥à¥§ ª ¦¤ë¥ 16 ï¨æ ã¬¥­ìè ¥¬ ¢à¥¬ï
		cmp ax,0
		jne @f
			cmp dword[game_spd],15 ;¬¨­¨¬ «ì­ ï § ¤¥à¦ª 
			jle @f
				dec dword[game_spd]
		@@:
	pop edi eax
	ret
 
;input:
; eax - ¬ áª , ãª §ë¢ îé ï á ª ª®© áâà®­ë ã¯ «® ï©æ®
align 4
CountLastInc: ;­ ç¨á«¥­¨¥ èâà ä­ëå ®çª®¢
	inc byte[count_last] ;¯®«®¢¨­ ® èâà ä­®£® ®çª 
	bt word[pos_wolf],bit_zaac
	jc @f
		inc byte[count_last] ;¥á«¨ ­¥â § ©æ  â® ¥é¥ 1-­  ¯®«®¢¨­  èâà ä­®£® ®çª 
	@@:
	cmp byte[count_last],6
	jle @f
		mov byte[count_last],6 ;áâ ¢¨¬ ®£à ­¨ç¥­¨ ­  ç¨á«® èâà ä­ëå ®çª®¢
	@@:
	or dword[pos_eggs],eax ;á®§¤ ¥¬ ¡¥£ãé¥£® æ¨¯«¥­ª 
	ret
 
align 4
MoveEggs:
	pushad
	xor byte[pos_wolf],val_mig ;¡¨â ¤«ï ¬¨£ ­¨ï
 
	cmp byte[count_last],6 ;¬ ªá¨¬ «ì­®¥ ç¨á«® èâà ä­ëå ®çª®¢
	je .end_fun
 
	rol dword[pos_eggs],1
	mov ecx,dword[pos_eggs]
	and ecx,mask_fail_eggs
	cmp ecx,0
	je .no_fail ;­¥â ¯ ¤ îé¨å ï¨æ
		;­ ç¨á«¥­¨¥ ï¨æ ¯®¯ ¢è¨å ¢ ª®à§¨­ã
		;¨«¨ ­ ç¨á«¥­¨¥ èâà ä­ëå ®çª®¢
		xor ebx,ebx
		mov bl,byte[pos_wolf] ;¡¥à¥¬ ¯ à ¬¥âàë (¯®§¨æ¨î) ¢®«ª 
		and bl,3 ;­  ¢áïª¨© á«ãç ©
 
		bt ecx,5 ;¯à®¢¥àï¥¬ ¢¥àå­¥¥ «¥¢®¥ ¯¥à¨«®
		jae .perilo_lu
			cmp bx,0 ;¯à®¢¥àï¥¬ ­ «¨ç¨¥ ª®à§¨­ë
			jne @f
				call CountEggsInc
				jmp .perilo_lu
			@@:
				mov eax,mask_chi_cr_l
				call CountLastInc
			.perilo_lu:
		bt ecx,10 ;¯à®¢¥àï¥¬ ­¨¦­¥¥ «¥¢®¥ ¯¥à¨«®
		jae .perilo_ld
			cmp bx,2 ;¯à®¢¥àï¥¬ ­ «¨ç¨¥ ª®à§¨­ë
			jne @f
				call CountEggsInc
				jmp .perilo_ld
			@@:
				mov eax,mask_chi_cr_l
				call CountLastInc
		.perilo_ld:
		bt ecx,15 ;¯à®¢¥àï¥¬ ¢¥àå­¥¥ ¯à ¢®¥ ¯¥à¨«®
		jae .perilo_ru
			cmp bx,1 ;¯à®¢¥àï¥¬ ­ «¨ç¨¥ ª®à§¨­ë
			jne @f
				call CountEggsInc
				jmp .perilo_ru
			@@:
				mov eax,mask_chi_cr_r
				call CountLastInc
		.perilo_ru:
		bt ecx,20 ;¯à®¢¥àï¥¬ ­¨¦­¥¥ ¯à ¢®¥ ¯¥à¨«®
		jae .perilo_rd
			cmp bx,3 ;¯à®¢¥àï¥¬ ­ «¨ç¨¥ ª®à§¨­ë
			jne @f
				call CountEggsInc
				jmp .perilo_rd
			@@:
				mov eax,mask_chi_cr_r
				call CountLastInc
		.perilo_rd:
	.no_fail:
 
	and dword[pos_eggs],mask_clear_all ;®ç¨áâª  ã¯ ¢è¨å ï¨æ ¨ ¤®¡¥¦ ¢è¨å ªãà¥©
 
	call rand_next
	cmp byte[zaac_status],0
	jle @f
		dec byte[zaac_status]
		jmp .no_zaac_move ;§ ïæ ¯®ª  ­¥ ¤¢¨£ ¥âáï
	@@:
	
	bt dword[rand_x],6 ;§ ïæ ®â ä®­ àï ¬¥­ï¥â áâ âãá
	jc @f
		xor byte[pos_wolf],val_zaac ;¢ëá®¢ë¢ ¥¬/§ á®¢ë¢ ¥¬ § ©æ 
		bt word[pos_wolf],val_zaac
		jc .zaac_n
			mov byte[zaac_status],val_zaac_time_y ;áâ ¢¨¬ ¬¨­¨¬ «ì­®¥ ¢à¥¬ï ¤«ï á¬¥­ë áâ âãá 
			jmp @f
		.zaac_n:
			mov byte[zaac_status],val_zaac_time_n ;áâ ¢¨¬ ¬¨­¨¬ «ì­®¥ ¢à¥¬ï ¤«ï á¬¥­ë áâ âãá 
	@@:
	.no_zaac_move:
 
	;á®§¤ ­¨¥ ­®¢ëå ï¨æ
	bt dword[rand_x],4 ;¯à®¢¥àï¥¬ ¡ã¤¥¬ «¨ á®§¤ ¢ âì ­®¢®¥ ï©æ®
	jc .end_creat
	bt dword[rand_x],5 ;¯à®¢¥àï¥¬ á ª ª®© áâ®à®­ë ¡ã¤¥¬ á®§¤ ¢ âì ­®¢®¥ ï©æ®
	jc .creat_r
		bt dword[rand_x],7
		jc @f
			or dword[pos_eggs],mask_lot_lu
			jmp .end_creat
		@@:
			or dword[pos_eggs],mask_lot_ld
			jmp .end_creat
	.creat_r:
		bt dword[rand_x],7
		jc @f
			or dword[pos_eggs],mask_lot_ru
			jmp .end_creat
		@@:
			or dword[pos_eggs],mask_lot_rd
			;jmp .end_creat
	.end_creat:
 
	.end_fun:
	popad
	ret
 
align 4
proc InitGame, b:dword ;¯¥à¢®­ ç «ì­ë¥ ­ áâà®©ª¨ ¨£àë
	mov word[eggs_count],0 ;ª®««¨ç¥áâ¢® ¯®©¬ ­ëå ï¨æ
	mov byte[some_text],'0'
	mov byte[some_text+1],0 ;â¥ªáâ á ç¨á«®¬ ¯®©¬ ­­ëå ï¨æ
	mov byte[count_last],0
	mov dword[pos_eggs],0
	mov byte[zaac_status],0
 
	cmp dword[b],0
	jne @f
		mov byte[game_text+5],''
		mov dword[game_spd],65 ;§ ¤¥à¦ª  ¨£àë
		jmp .end_init
	@@:
		mov byte[game_text+5],''
		mov dword[game_spd],35 ;§ ¤¥à¦ª  ¨£àë
	.end_init:
 
	push eax ebx
		mcall 26,9
		mov dword[rand_x],eax ;§ ¯®«­ï¥¬ 1-¥ á«ãç ©­®¥ ç¨á«®
	pop ebx eax
 
	ret
endp
 
align 4
proc LoadArrayBuffer, f_name:dword, buf_start:dword, count:dword
	pushad
	mov edx,dword[displ_bytes]
	mov ecx,edx
	imul ecx,dword[count]
	mov eax,dword[f_name]
	load_image_file eax,image_data_gray,ecx
		mov edx,dword[displ_bytes]
		mov eax,[image_data_gray]
		mov edi,dword[buf_start]
		mov ecx,dword[count]
		cld
		@@: ;áç¨âë¢ ¥¬ 3 ¡ãä¥à  á ¤¥ª®à æ¨ï¬¨
			stdcall CreateTrapharetBuffer,edi,eax
			add eax,edx
			add edi,BUF_STRUCT_SIZE
			loop @b
	stdcall mem.Free,[image_data_gray] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
	popad
	ret
endp
 
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 ;¯®«ãç ¥¬ á¨áâ¥¬­ë¥ æ¢¥â 
 
	;à ¡®â  á ä ©«®¬ ­ áâà®¥ª
	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_color],file_name,ini_sec_color,key_color_unit,0
	mov	dword[color_wolf],eax
	stdcall dword[ini_get_str],file_name,ini_sec_files,key_file_unit,fn_icon1,FILE_NAME_MAX,ini_def_unit_file
 
 
	mov edx,dword[displ_w]
	imul edx,dword[displ_h]
	lea edx,[edx+edx*2]
	mov dword[displ_bytes],edx ;¢ëç¨á«ï¥¬ à §¬¥à ¨£à®¢®£® ¯®«ï
 
	stdcall LoadArrayBuffer, fn_icon0, buf_decor,3 ;áç¨âë¢ ¥¬ 3 ¡ãä¥à  á ¤¥ª®à æ¨ï¬¨
	stdcall LoadArrayBuffer, fn_icon1, buf_wolf,9 ;áç¨âë¢ ¥¬ 9 ¡ãä¥à®¢ á ¢®«ª®¬ ¨ § ©æ¥¬
	stdcall LoadArrayBuffer, fn_icon2, buf_egg,22 ;áç¨âë¢ ¥¬ 22 ¡ãä¥à®¢ á ï©æ ¬¨
	stdcall LoadArrayBuffer, fn_icon3, buf_chi,13 ;áç¨âë¢ ¥¬ 13 ¡ãä¥à®¢ á æ¨¯«ïâ ¬¨
 
	load_image_file fn_font, image_data_gray,IMAGE_FONT_SIZE
	stdcall [buf2d_create_f_img], buf_font,[image_data_gray] ;á®§¤ ¥¬ ¡ãä¥à
	stdcall mem.Free,[image_data_gray] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
 
	stdcall [buf2d_conv_24_to_8], buf_font,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç­®áâ¨ 8 ¡¨â
	stdcall [buf2d_convert_text_matrix], buf_font
 
;¯à®¢¥àª  § ­¨¬ ¥¬®£® ¡ãä¥à®¬ ¬¥áâ 
;mov edi,buf_wolf
;add edi,BUF_STRUCT_SIZE ;¯¥à¥å®¤¨¬ ­  ¡ãä¥à ª®à§¨­ë
;stdcall [buf2d_clear],edi,0x808080 ;§ «¨¢ ¥¬ ¥£® á¥àë¬ æ¢¥â®¬
 
	mov ebx,dword[displ_w]
	mov edx,dword[displ_h]
 
	mov edi,buf_displ
	mov buf2d_w,ebx
	mov buf2d_h,edx
	stdcall [buf2d_create], buf_displ ;á®§¤ ¥¬ ¡ãä¥à ¤«ï ¢ë¢®¤  ­  íªà ­
 
	mov edi,buf_fon
	mov buf2d_w,ebx
	mov buf2d_h,edx
	stdcall [buf2d_create], buf_fon ;á®§¤ ¥¬ ¡ãä¥à á ä®­®¢ë¬¨ ¤¥ª®à æ¨ï¬¨
 
	call InitBackgroundBuffer ;§ ¯®«­ï¥¬ ¡ãä¥à á ä®­®¢ë¬¨ ¤¥ª®à æ¨ï¬¨
	stdcall InitGame,0
	mcall 26,9
	mov [last_time],ebx
 
 
 
align 4
red_win:
	call draw_window
 
align 4
still: ;£« ¢­ë© æ¨ª«
	mcall 26,9
	mov ebx,[last_time]
	add ebx,dword[game_spd] ;delay
	sub ebx,eax
	cmp ebx,dword[game_spd] ;delay
	ja it_is_time_now
	test ebx,ebx
	jz it_is_time_now
	mcall 23
 
	cmp eax,0
	je it_is_time_now
 
	;mcall 10
 
	cmp al,0x1 ;¨§¬¥­¨«®áì ¯®«®¦¥­¨¥ ®ª­ 
	jz red_win
	cmp al,0x2
	jz key
	cmp al,0x3
	jz button
 
	jmp still
 
align 4
it_is_time_now:
	mcall 26,9
	mov [last_time],eax
 
	;...§¤¥áì ¨¤ãâ ¤¥©áâ¢¨ï, ¢ë§ë¢ ¥¬ë¥ ª ¦¤ë¥ delay á®âëå ¤®«¥© á¥ªã­¤...
	call MoveEggs
	call draw_display
	jmp still
 
align 4
key:
	push eax ebx
	mcall 2
 
	cmp ah,176 ;Left
	jne @f
		and byte[pos_wolf],0xfe
	@@:
	cmp ah,179 ;Right
	jne @f
		or byte[pos_wolf],1
	@@:
	cmp ah,178 ;Up
	jne @f
		and byte[pos_wolf],0xff-2
	@@:
	cmp ah,177 ;Down
	jne @f
		or byte[pos_wolf],2
	@@:
 
	cmp ah,97 ;a
	jne @f
		and byte[pos_wolf],0xff-3 ;00
	@@:
	cmp ah,122 ;z
	jne @f
		and byte[pos_wolf],0xff-1
		or byte[pos_wolf],2 ;10
	@@:
	cmp ah,39 ;'
	jne @f
		and byte[pos_wolf],0xff-2
		or byte[pos_wolf],1 ;01
	@@:
	cmp ah,47 ;/
	jne @f
		or byte[pos_wolf],3 ;11
	@@:
 
	pop ebx eax
	jmp still
 
 
align 4
draw_window:
	pushad
	mcall 12,1
 
	xor eax,eax
	mov ebx,20*65536+480
	mov ecx,20*65536+270
	mov edx,[sc.work]
	;or edx,0x33000000
	or edx,0x73000000
	mov edi,hed
	mcall ;á®§¤ ­¨¥ ®ª­ 
 
	mcall 9,procinfo,-1
	mov edi,buf_displ
	mov eax,dword[procinfo.client_box.width]
	cmp eax,dword[displ_w]
	jle @f
		sub eax,dword[displ_w]
		shr eax,1
		mov buf2d_l,ax ;¢ë¯à ¢­¨¢ ¥¬ ¡ãä¥à ¯® æ¥­âàã ®ª­ 
	@@:
 
	call draw_display
 
	mov eax,13 ;à¨á®¢ ­¨¥ ¯àï¬®ã£®«ì­¨ª 
	mov edx,[sc.work]
	xor esi,esi
	mov si,buf2d_l
	add esi,dword[displ_w]
	mov ebx,dword[procinfo.client_box.width]
	inc ebx
	cmp esi,ebx
	jge @f
		sub ebx,esi
		rol ebx,16
		mov bx,si
		rol ebx,16
		mov ecx,dword[procinfo.client_box.height]
		inc ecx
		int 0x40 ;à¨á®¢ ­¨¥ ¯à ¢®£® ¡®ª®¢®£® ¯®«ï
		jmp .draw_s
	@@:
		mov esi,dword[procinfo.client_box.width] ;ª®£¤  ¯® è¨à¨­¥ ­¥ ¢« §¨â
		inc esi
	.draw_s:
 
if use_but eq 1
	; *** à¨á®¢ ­¨¥ ª­®¯®ª ***
push esi
	mov eax,8
	xor ebx,ebx
	mov bx,buf2d_l
	add ebx,buf2d_w
	add ebx,BUT1_L
	shl ebx,16
	mov bx,BUT1_W
	mov ecx,BUT1_T*65536+BUT1_H
	mov edx,5
	;or edx,0x40000000
	mov esi,dword[color_but_sm]
	int 0x40
 
	inc edx
	add ecx,BUT1_NEXT_TOP
	int 0x40
pop esi
 
	mov eax,4 ; ð¡R÷ÿ-ð? ¢?ò¡¢ÿ
	mov bx,BUT1_H
	add ebx,3*65536;+3
	mov ecx,dword[color_but_te]
	or  ecx,0x80000000
	mov edx,txt_game_a
	int 0x40
 
	ror ebx,16
	add ebx,BUT1_NEXT_TOP
	ror ebx,16
	mov edx,txt_game_b
	int 0x40
 
	; *** ¢®ááâ ­®¢«¥­¨¥ ¯ à ¬¥âà®¢ ***
	mov eax,13 ;à¨á®¢ ­¨¥ ¯àï¬®ã£®«ì­¨ª 
	mov edx,[sc.work]
end if
 
	mov ebx,esi
	mov ecx,dword[procinfo.client_box.height]
	inc ecx
	mov esi,dword[displ_h]
	cmp esi,ebx
	jge @f
		sub ecx,esi
		rol ecx,16
		mov cx,si
		rol ecx,16
		int 0x40 ;à¨á®¢ ­¨¥ ­¨¦­¥£® ¯®«ï
	@@:
	
	xor ebx,ebx
	mov bx,buf2d_l
	mov ecx,dword[displ_h]
	int 0x40 ;à¨á®¢ ­¨¥ «¥¢®£® ¡®ª®¢®£® ¯®«ï
 
	mcall 12,2
	popad
	ret
 
align 4
draw_display:
 
	stdcall mem_copy, dword[buf_fon],dword[buf_displ],315*210*3;dword[displ_bytes] ;ª®¯¨à®¢ ­¨¥ ¨§®¡à ¦¥­¨ï ¨§ ä®­®¢®£® ¡ãä¥à 
	call DrawZaac ;à¨áã¥¬ § ©æ 
	call DrawWolf ;à¨áã¥¬ ¢®«ª 
	call DrawEggs ;à¨áã¥¬ ï©æ 
 
push eax
	mov eax,dword[displ_w]
	shr eax,1
	stdcall [buf2d_draw_text], buf_displ, buf_font,game_text,eax,OFFS_SHADOW_X,[color_curici] ;à¨áã¥¬ áâà®ªã á â¥ªáâ®¬
pop eax
	stdcall [buf2d_draw], buf_displ
	ret
 
align 4
button:
	mcall 17 ;¯®«ãç¨âì ª®¤ ­ ¦ â®© ª­®¯ª¨
	if use_but eq 1
	cmp ah,5
	jne @f
		stdcall InitGame,0
	@@:
	cmp ah,6
	jne @f
		stdcall InitGame,1
	@@:	end if
	cmp ah,1
	jne still
.exit:
	stdcall [buf2d_delete],buf_fon ;ã¤ «ï¥¬ ¡ãä¥à
	stdcall [buf2d_delete],buf_displ ;ã¤ «ï¥¬ ¡ãä¥à
 
	stdcall [buf2d_delete],buf_font
 
	cld
	mov ecx,3
	mov edi,buf_decor
	@@: ;ã¤ «ï¥¬ 3 ¡ãä¥à 
		stdcall [buf2d_delete],edi
		add edi,BUF_STRUCT_SIZE
		loop @b
	mov ecx,9
	mov edi,buf_wolf
	@@: ;ã¤ «ï¥¬ 9 ¡ãä¥à®¢ á ¢®«ª®¬ ¨ § ©æ¥¬
		stdcall [buf2d_delete],edi
		add edi,BUF_STRUCT_SIZE
		loop @b
	mov ecx,13
	mov edi,buf_chi
	@@: ;ã¤ «ï¥¬ 13 ¡ãä¥à®¢
		stdcall [buf2d_delete],edi
		add edi,BUF_STRUCT_SIZE
		loop @b
	mov ecx,22
	mov edi,buf_egg
	@@: ;ã¤ «ï¥¬ 22 ¡ãä¥à 
		stdcall [buf2d_delete],edi
		add edi,BUF_STRUCT_SIZE
		loop @b
 
	mcall -1 ;¢ëå®¤ ¨§ ¯à®£à ¬¬ë
 
head_f_i:
head_f_l  db '¨áâ¥¬­ ï ®è¨¡ª ',0
 
system_dir0 db '/sys/lib/'
name_buf2d 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
err_message_found_lib1 db '¥ ã¤ «®áì ­ ©â¨ ¡¨¡«¨®â¥ªã libimg.obj',0
err_message_import1 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ libimg.obj',0
 
system_dir2 db '/sys/lib/'
libini_name db 'libini.obj',0
err_message_found_lib2 db '¥ ã¤ «®áì ­ ©â¨ ¡¨¡«¨®â¥ªã libini.obj',0
err_message_import2 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ libini.obj',0
 
;library structures
l_libs_start:
	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 name_libimg, sys_path, file_name, system_dir1, err_message_found_lib1, head_f_l, import_libimg, err_message_import1, head_f_i
	lib2 l_libs libini_name, sys_path, file_name, system_dir2, err_message_found_lib2, head_f_l, libini_import, err_message_import2, head_f_i
load_lib_end:
 
align 4
proc mem_copy, source:dword, destination:dword, len:dword
  push ecx esi edi
    cld
    mov esi, dword[source]
    mov edi, dword[destination]
    mov ecx, dword[len]
    rep movsb
  pop edi esi ecx
  ret
endp
 
align 4
convert_to_str:
	pushad
	;mov eax,dword[value]
	;mov edi,dword[text]
	mov dword[edi+1],0
	cld
	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 ¤ ­­ ï ª®¬ ­¤  - «¨è­ ï))
  ;sbb al,$69  ;- ç¥áâ­® ¤ ­­ ï ¨­áâàãªæ¨ï ¬¥­ï § áâ ¢«ï¥â § ¤ã¬ âìáï â.¥. ï ­¥ §­ î ª ª íâ® à ¡®â ¥â
  ;das        ;¯®á«¥ ¤ ­­®© ª®¬ ­¤ë ª ª ¡ë ¯à®¨áå®¤¨â ã¬¥­ìè¥­¨¥ al ­  66h  (¢ ª­¨£¥ ­ ¯¨á ­® ¤àã£®¥)
  or al,0x30  ;¤ ­­ ï ª®¬ ­¤  ª®à®ç¥  ç¥¬ ¤¢¥ ¢ëè¥ 
  stosb       ;§ ¯¨á âì í«¥¬¥­â ¨§ à¥£¨áâà  al ¢ ïç¥ªã ¯ ¬ïâ¨ es:edi
  ret	      ;¢¥à­ãâìáï ç¥­ì ¨­â¥à¥á­ë© å®¤ â.ª. ¯®ª  ¢ áâ¥ª¥ åà ­¨âìáï ª®«-¢® ¢ë§®¢®¢ â® áâ®«ìª® à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï
 
 
last_time dd ?
image_data dd 0 ;¯ ¬ïâì ¤«ï ¯à¥®¡à §®¢ ­¨ï ª àâ¨­ª¨ äã­ªæ¨ï¬¨ libimg
image_data_gray dd 0 ;¯ ¬ïâì á ¢à¥¬¥­­ë¬¨ á¥àë¬¨ ¨§®¡à ¦¥­¨ï¬¨ ¢ ä®à¬ â¥ 24-bit, ¨§ ª®â®àëå ¡ã¤ãâ á®§¤ ¢ âìáï âà ä à¥âë
 
run_file_70 FileInfoBlock
hed db 'Nu pogodi 03.08.10',0 ;¯®¤¯¨áì ®ª­ 
sc system_colors  ;á¨áâ¥¬­ë¥ æ¢¥â 
 
align 4
buf_font: ;¡ãä¥à á® èà¨äâ®¬
	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
 
align 4
buf_displ:
	dd 0 ;ãª § â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
	dw 25,0
	dd ? ;+8 w
	dd ? ;+12 h
	dd 0 ;+16 color
	db 24 ;+20 bit in pixel
 
align 4
buf_fon: ;ä®­®¢ë© ¡ãä¥à
	dd 0 ;ãª § â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
	dw 0 ;+4 left
	dw 0 ;+6 top
	dd ? ;+8 w
	dd ? ;+12 h
	dd 0xffffff ;+16 color
	db 24 ;+20 bit in pixel
 
align 4
buf_decor: ;¡ãä¥à  á ¤¥ª®à æ¨ï¬¨: ¤®¬¨ª ¬¨ ¨ à¥©ª ¬¨; á ªãà¨æ ¬¨; á à áâ¥­¨ï¬¨
	rb 3*BUF_STRUCT_SIZE
 
align 4
buf_wolf:
	rb 9*BUF_STRUCT_SIZE
 
align 4
buf_egg:
	rb 22*BUF_STRUCT_SIZE
 
align 4
buf_chi:
	rb 13*BUF_STRUCT_SIZE
 
 
 
align 4
libini_import:
	dd alib_init0
	ini_get_str   dd aini_get_str
	ini_get_int   dd aini_get_int
	ini_get_color dd aini_get_color
dd 0,0
	alib_init0     db 'lib_init',0
	aini_get_str   db 'ini_get_str',0
	aini_get_int   db 'ini_get_int',0
	aini_get_color db 'ini_get_color',0
 
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
import_buf2d_lib:
	dd sz_lib_init
	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_line dd sz_buf2d_line
	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_cruve_bezier dd sz_buf2d_cruve_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	
	dd 0,0
	sz_lib_init 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_line db 'buf2d_line',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_cruve_bezier db 'buf2d_cruve_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
 
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:

Rev 1552	Rev 1555
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 0x0	9	dd 0x0
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 'mem.inc'	15	include 'mem.inc'
16	include 'dll.inc'	16	include 'dll.inc'
17		17
18	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc, dll.Load	18	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc, dll.Load
19		19
20	;ä« £¨, ¤«ï äãªæ¨¨ ®¡à¥§ ¨ï ¡ãä¥à	20	;ä« £¨, ¤«ï äãªæ¨¨ ®¡à¥§ ¨ï ¡ãä¥à
21	BUF2D_OPT_CROP_TOP equ 1 ;®¡à¥§ª á¢¥àåã	21	BUF2D_OPT_CROP_TOP equ 1 ;®¡à¥§ª á¢¥àåã
22	BUF2D_OPT_CROP_LEFT equ 2 ;®¡à¥§ª á«¥¢	22	BUF2D_OPT_CROP_LEFT equ 2 ;®¡à¥§ª á«¥¢
23	BUF2D_OPT_CROP_BOTTOM equ 4 ;®¡à¥§ª á¨§ã	23	BUF2D_OPT_CROP_BOTTOM equ 4 ;®¡à¥§ª á¨§ã
24	BUF2D_OPT_CROP_RIGHT equ 8 ;®¡à¥§ª á¯à ¢	24	BUF2D_OPT_CROP_RIGHT equ 8 ;®¡à¥§ª á¯à ¢
25	BUF2D_BIT_OPT_CROP_TOP equ 0	25	BUF2D_BIT_OPT_CROP_TOP equ 0
26	BUF2D_BIT_OPT_CROP_LEFT equ 1	26	BUF2D_BIT_OPT_CROP_LEFT equ 1
27	BUF2D_BIT_OPT_CROP_BOTTOM equ 2	27	BUF2D_BIT_OPT_CROP_BOTTOM equ 2
28	BUF2D_BIT_OPT_CROP_RIGHT equ 3	28	BUF2D_BIT_OPT_CROP_RIGHT equ 3
29		29
30	BUF_STRUCT_SIZE equ 21	30	BUF_STRUCT_SIZE equ 21
31	buf2d_data equ dword[edi] ;¤ ë¥ ¡ãä¥à ¨§®¡à ¦¥¨ï	31	buf2d_data equ dword[edi] ;¤ ë¥ ¡ãä¥à ¨§®¡à ¦¥¨ï
32	buf2d_w equ dword[edi+8] ;è¨à¨ ¡ãä¥à	32	buf2d_w equ dword[edi+8] ;è¨à¨ ¡ãä¥à
33	buf2d_h equ dword[edi+12] ;¢ëá®â ¡ãä¥à	33	buf2d_h equ dword[edi+12] ;¢ëá®â ¡ãä¥à
34	buf2d_l equ word[edi+4] ;®âáâã¯ á«¥¢	34	buf2d_l equ word[edi+4] ;®âáâã¯ á«¥¢
35	buf2d_t equ word[edi+6] ;®âáâã¯ á¢¥àåã	35	buf2d_t equ word[edi+6] ;®âáâã¯ á¢¥àåã
36	buf2d_size_lt equ dword[edi+4] ;®âáâã¯ á«¥¢ ¨ á¯à ¢ ¤«ï ¡ãä¥à	36	buf2d_size_lt equ dword[edi+4] ;®âáâã¯ á«¥¢ ¨ á¯à ¢ ¤«ï ¡ãä¥à
37	buf2d_color equ dword[edi+16] ;æ¢¥â ä® ¡ãä¥à	37	buf2d_color equ dword[edi+16] ;æ¢¥â ä® ¡ãä¥à
38	buf2d_bits equ byte[edi+20] ;ª®«¨ç¥áâ¢® ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥¨ï	38	buf2d_bits equ byte[edi+20] ;ª®«¨ç¥áâ¢® ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥¨ï
39		39
40	struct FileInfoBlock	40	struct FileInfoBlock
41	Function dd ?	41	Function dd ?
42	Position dd ?	42	Position dd ?
43	Flags dd ?	43	Flags dd ?
44	Count dd ?	44	Count dd ?
45	Buffer dd ?	45	Buffer dd ?
46	db ?	46	db ?
47	FileName dd ?	47	FileName dd ?
48	ends	48	ends
49		49
50	displ_w dd ? ;è¨à¨ ¯®«ï	50	displ_w dd ? ;è¨à¨ ¯®«ï
51	displ_h dd ? ;¢ëá®â ¯®«ï	51	displ_h dd ? ;¢ëá®â ¯®«ï
52	displ_bytes dd ? ;à §¬¥à 1-£® ä ©« á ¨§®¡à ¦¥¨¥¬	52	displ_bytes dd ? ;à §¬¥à 1-£® ä ©« á ¨§®¡à ¦¥¨¥¬
53	;displ_bytes equ 3152103 ;à §¬¥à 1-£® ä ©« á ¨§®¡à ¦¥¨¥¬	53	;displ_bytes equ 3152103 ;à §¬¥à 1-£® ä ©« á ¨§®¡à ¦¥¨¥¬
54		54
55	OFFS_SHADOW_X equ 2 ;á¤¢¨£ â¥¥© ¯® ®á¨ 'x'	55	OFFS_SHADOW_X equ 2 ;á¤¢¨£ â¥¥© ¯® ®á¨ 'x'
56	OFFS_SHADOW_Y equ 2 ;á¤¢¨£ â¥¥© ¯® ®á¨ 'y'	56	OFFS_SHADOW_Y equ 2 ;á¤¢¨£ â¥¥© ¯® ®á¨ 'y'
57	IMAGE_FONT_SIZE equ 1281443	57	IMAGE_FONT_SIZE equ 1281443
58		58
59	use_but equ 1	59	use_but equ 1
60		60
61	if use_but eq 1	61	if use_but eq 1
62	BUT1_T equ 10 ;®âáâã¯ á¢¥àåã	62	BUT1_T equ 10 ;®âáâã¯ á¢¥àåã
63	BUT1_L equ 15 ;®âáâã¯ á«¥¢	63	BUT1_L equ 15 ;®âáâã¯ á«¥¢
64	BUT1_W equ 50 ;è¨à¨	64	BUT1_W equ 50 ;è¨à¨
65	BUT1_H equ 20 ;¢ëá®â	65	BUT1_H equ 20 ;¢ëá®â
66	BUT1_NEXT_TOP equ (BUT1_T+BUT1_H)*65536	66	BUT1_NEXT_TOP equ (BUT1_T+BUT1_H)*65536
67	end if	67	end if
-		68
-		69	FILE_NAME_MAX equ 20 ;¬ ªá¨¬ «ì ï ¤«¨ ¨¬¥¨ ä ©« (¡¥§ ¯ ¯®ª, ®â®á¨â¥«ì® â¥ªãé¥©)
-		70	;§ ç¥¨ï ¨¬¥ ¯® ã¬®«ç ¨î
-		71	ini_def_unit_file db 'wolf.png',0
68		72	;¨¬¥ ä ©«®¢
69	fn_icon0 db 'curici.png',0 ;¨¬ï ä ©« á ¤¥ª®à æ¨ï¬¨	73	fn_icon0 db 'curici.png',0 ;¨¬ï ä ©« á ¤¥ª®à æ¨ï¬¨
70	fn_icon1 db 'wolf.png',0 ;¨¬ï ä ©« á ¢®«ª®¬ ¨ § ©æ¥¬	74	fn_icon1 rb FILE_NAME_MAX ;¨¬ï ä ©« á ¢®«ª®¬ ¨ § ©æ¥¬
71	fn_icon2 db 'eggs.png',0 ;¨¬ï ä ©« á ï©æ ¬¨	75	fn_icon2 db 'eggs.png',0 ;¨¬ï ä ©« á ï©æ ¬¨
72	fn_icon3 db 'chi.png',0 ;¨¬ï ä ©« á æ¨¯«ïâ ¬¨	76	fn_icon3 db 'chi.png',0 ;¨¬ï ä ©« á æ¨¯«ïâ ¬¨
73	fn_font db 'font8x9.bmp',0	77	fn_font db 'font8x9.bmp',0
74		78
75	ini_name db 'nu_pogod.ini',0	79	ini_name db 'nu_pogod.ini',0
76	ini_sec_files db 'Files',0	80	ini_sec_files db 'Files',0
-		81	key_file_unit db 'file_unit',0
77	key_displ_w db 'displ_w',0	82	key_displ_w db 'displ_w',0
78	key_displ_h db 'displ_h',0	83	key_displ_h db 'displ_h',0
-		84
79	ini_sec_color db 'Colors',0	85	ini_sec_color db 'Colors',0
80	key_color_unit db 'unit',0	86	key_color_unit db 'unit',0
81		87
82	;æ¢¥â ¢ ¨£à¥	88	;æ¢¥â ¢ ¨£à¥
83	color_fon dd 0xffffff	89	color_fon dd 0xffffff
84	color_shadows dd 0xd0d0d0 ;æ¢¥â â¥¥©	90	color_shadows dd 0xd0d0d0 ;æ¢¥â â¥¥©
85	color_trees dd 0x008000 ;æ¢¥â âà ¢ë	91	color_trees dd 0x008000 ;æ¢¥â âà ¢ë
86	color_wolf dd 0x800000 ;æ¢¥â ¢®«ª ¨ § ©æ	92	color_wolf dd 0x800000 ;æ¢¥â ¢®«ª ¨ § ©æ
87	color_egg dd 0x404080 ;æ¢¥â ï©æ	93	color_egg dd 0x404080 ;æ¢¥â ï©æ
88	color_chick dd 0x00d0d0 ;æ¢¥â æ¨¯«¥ª	94	color_chick dd 0x00d0d0 ;æ¢¥â æ¨¯«¥ª
89	color_curici dd 0x8080d0 ;æ¢¥â ªãà¨æë	95	color_curici dd 0x8080d0 ;æ¢¥â ªãà¨æë
90	color_perilo dd 0x000080 ;æ¢¥â ¯¥à¨« (£à¥¡ï)	96	color_perilo dd 0x000080 ;æ¢¥â ¯¥à¨« (£à¥¡ï)
91	;æ¢¥â ¨â¥àä¥©á	97	;æ¢¥â ¨â¥àä¥©á
92	color_but_sm dd 0x808080 ;æ¢¥â ¬ «¥ìª¨å ª®¯®ª	98	color_but_sm dd 0x808080 ;æ¢¥â ¬ «¥ìª¨å ª®¯®ª
93	color_but_te dd 0xffffff ;æ¢¥â â¥ªáâ ª®¯ª å	99	color_but_te dd 0xffffff ;æ¢¥â â¥ªáâ ª®¯ª å
94		100
95	macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨©	101	macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨©
96	copy_path path,sys_path,file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©	102	copy_path path,sys_path,file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
97		103
98	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï	104	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï
99	mov [buf],eax	105	mov [buf],eax
100		106
101	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨	107	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨
102	mov [run_file_70.Function], 0	108	mov [run_file_70.Function], 0
103	mov [run_file_70.Position], 0	109	mov [run_file_70.Position], 0
104	mov [run_file_70.Flags], 0	110	mov [run_file_70.Flags], 0
105	mov [run_file_70.Count], dword size	111	mov [run_file_70.Count], dword size
106	m2m [run_file_70.Buffer], [buf]	112	m2m [run_file_70.Buffer], [buf]
107	mov byte[run_file_70+20], 0	113	mov byte[run_file_70+20], 0
108	mov [run_file_70.FileName], file_name	114	mov [run_file_70.FileName], file_name
109	mov ebx,run_file_70	115	mov ebx,run_file_70
110	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï	116	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï
111	cmp ebx,0xffffffff	117	cmp ebx,0xffffffff
112	je @f	118	je @f
113	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data	119	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data
114	stdcall dword[img_decode], dword[buf],ebx,0	120	stdcall dword[img_decode], dword[buf],ebx,0
115	mov dword[image_data],eax	121	mov dword[image_data],eax
116	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb	122	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb
117	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]	123	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
118	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data	124	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data
119	stdcall dword[img_destroy], dword[image_data]	125	stdcall dword[img_destroy], dword[image_data]
120	@@:	126	@@:
121	}	127	}
122		128
123	;¤ ë¥ ¨£àë	129	;¤ ë¥ ¨£àë
124	bit_zaac equ 2 ;¡¨â § ©æ	130	bit_zaac equ 2 ;¡¨â § ©æ
125	val_zaac equ 4 ;æ¨äà ®â¢¥ç îé ï § ¡¨â § ©æ	131	val_zaac equ 4 ;æ¨äà ®â¢¥ç îé ï § ¡¨â § ©æ
126	bit_mig equ 3 ;¡¨â ¬¨£ ¨ï	132	bit_mig equ 3 ;¡¨â ¬¨£ ¨ï
127	val_mig equ 8 ;æ¨äà ®â¢¥ç îé ï § ¡¨â ¬¨£ ¨ï	133	val_mig equ 8 ;æ¨äà ®â¢¥ç îé ï § ¡¨â ¬¨£ ¨ï
128	mask_lot_lu equ 1b ;¬ áª ¤«ï «¥¢®£® ¢¥àå¥£® «®âª	134	mask_lot_lu equ 1b ;¬ áª ¤«ï «¥¢®£® ¢¥àå¥£® «®âª
129	mask_lot_ld equ 100000b ;¬ áª ¤«ï «¥¢®£® ¨¦¥£® «®âª	135	mask_lot_ld equ 100000b ;¬ áª ¤«ï «¥¢®£® ¨¦¥£® «®âª
130	mask_lot_ru equ 10000000000b ;¬ áª ¤«ï ¯à ¢®£® ¢¥àå¥£® «®âª	136	mask_lot_ru equ 10000000000b ;¬ áª ¤«ï ¯à ¢®£® ¢¥àå¥£® «®âª
131	mask_lot_rd equ 1000000000000000b ;¬ áª ¤«ï ¯à ¢®£® ¨¦¥£® «®âª	137	mask_lot_rd equ 1000000000000000b ;¬ áª ¤«ï ¯à ¢®£® ¨¦¥£® «®âª
132	mask_clear_all equ 11111011111011110111101111011110b ;¬ áª ¤«ï ®ç¨áâª¨ ¯ ¤ îé¨å ï¨æ ¨ ¯à¨¡¥¦ ¢è¨å æ¨¯«ïâ	138	mask_clear_all equ 11111011111011110111101111011110b ;¬ áª ¤«ï ®ç¨áâª¨ ¯ ¤ îé¨å ï¨æ ¨ ¯à¨¡¥¦ ¢è¨å æ¨¯«ïâ
133	mask_fail_eggs equ 100001000010000100000b ;¬ áª ¯ ¤ îé¨å ï¨æ	139	mask_fail_eggs equ 100001000010000100000b ;¬ áª ¯ ¤ îé¨å ï¨æ
134	mask_chi_left equ 11111000000000000000000000b ;¬ áª «¥¢ëå æ¨¯«ïâ	140	mask_chi_left equ 11111000000000000000000000b ;¬ áª «¥¢ëå æ¨¯«ïâ
135	mask_chi_right equ 11111000000000000000000000000000b ;¬ áª ¯à ¢ëå æ¨¯«ïâ	141	mask_chi_right equ 11111000000000000000000000000000b ;¬ áª ¯à ¢ëå æ¨¯«ïâ
136	mask_chi_cr_l equ 1000000000000000000000b ;¬ áª ¤«ï á®§¤ ¨ï «¥¢®£®	142	mask_chi_cr_l equ 1000000000000000000000b ;¬ áª ¤«ï á®§¤ ¨ï «¥¢®£®
137	mask_chi_cr_r equ 1000000000000000000000000000b ;¬ áª ¤«ï á®§¤ ¨ï ¯à ¢®£®	143	mask_chi_cr_r equ 1000000000000000000000000000b ;¬ áª ¤«ï á®§¤ ¨ï ¯à ¢®£®
138	bit_chi_left equ 21 ;1-© ¡¨â ª®â®àë© ®â¢¥ç ¥â § ¡¥£ãé¥£® á«¥¢	144	bit_chi_left equ 21 ;1-© ¡¨â ª®â®àë© ®â¢¥ç ¥â § ¡¥£ãé¥£® á«¥¢
139	bit_chi_right equ 27 ;1-© ¡¨â ª®â®àë© ®â¢¥ç ¥â § ¡¥£ãé¥£® ¯à ¢	145	bit_chi_right equ 27 ;1-© ¡¨â ª®â®àë© ®â¢¥ç ¥â § ¡¥£ãé¥£® ¯à ¢
140	val_zaac_time_y equ 5 ;ª®««¨ç¥áâ¢® â ªâ®¢, ª®â®à®¥ ®¡ï§ â¥«ì® ¤®«¦¥ ¯à®¢¨á¥âì § ïæ	146	val_zaac_time_y equ 5 ;ª®««¨ç¥áâ¢® â ªâ®¢, ª®â®à®¥ ®¡ï§ â¥«ì® ¤®«¦¥ ¯à®¢¨á¥âì § ïæ
141	val_zaac_time_n equ 7 ;ª®««¨ç¥áâ¢® â ªâ®¢, ª®â®à®¥ ®¡ï§ â¥«ì® ¤®«¦¥ ¡ëâì á¯àïâ ë¬ § ïæ	147	val_zaac_time_n equ 7 ;ª®««¨ç¥áâ¢® â ªâ®¢, ª®â®à®¥ ®¡ï§ â¥«ì® ¤®«¦¥ ¡ëâì á¯àïâ ë¬ § ïæ
142		148
143	txt_game_a db '£à ',0	149	txt_game_a db '£à ',0
144	txt_game_b db '£à ',0	150	txt_game_b db '£à ',0
145		151
146	zaac_status db 0	152	zaac_status db 0
147	pos_wolf db 0 ;¯®§¨æ¨ï ¢®«ª 0-© ¡¨â á«¥¢ /á¯à ¢ , 1-© ¡¨â á¢¥àåã/¢¨§	153	pos_wolf db 0 ;¯®§¨æ¨ï ¢®«ª 0-© ¡¨â á«¥¢ /á¯à ¢ , 1-© ¡¨â á¢¥àåã/¢¨§
148	;rb 1	154	;rb 1
149	pos_eggs dd 0 ;¯®§¨æ¨¨ à á¯®«®¦¥¨ï ï¨æ ¨ æ¨¯«ïâ	155	pos_eggs dd 0 ;¯®§¨æ¨¨ à á¯®«®¦¥¨ï ï¨æ ¨ æ¨¯«ïâ
150	eggs_count dw 0 ;ª®««¨ç¥áâ¢® ¯®©¬ ëå ï¨æ	156	eggs_count dw 0 ;ª®««¨ç¥áâ¢® ¯®©¬ ëå ï¨æ
151	game_text db '£à _',13	157	game_text db '£à _',13
152	some_text db '0'	158	some_text db '0'
153	rb 8 ;â¥ªáâ á ç¨á«®¬ ¯®©¬ ëå ï¨æ	159	rb 8 ;â¥ªáâ á ç¨á«®¬ ¯®©¬ ëå ï¨æ
154	count_last db 0 ;áç¥âç¨ª ¯à®¯ãé¥ëå ï¨æ	160	count_last db 0 ;áç¥âç¨ª ¯à®¯ãé¥ëå ï¨æ
155	game_spd dd 0 ;§ ¤¥à¦ª ¨£àë	161	game_spd dd 0 ;§ ¤¥à¦ª ¨£àë
156		162
157	;¤«ï £¥¥à æ¨¨ á«ãç ©ëå ç¨á¥«	163	;¤«ï £¥¥à æ¨¨ á«ãç ©ëå ç¨á¥«
158	rand_x dd 0	164	rand_x dd 0
159		165
160	align 4	166	align 4
161	rand_next:	167	rand_next:
162	;x(k+1) = (a*x(k)+c) mod m	168	;x(k+1) = (a*x(k)+c) mod m
163	; a=22695477, c=1, m=2^32	169	; a=22695477, c=1, m=2^32
164	push eax	170	push eax
165	mov eax,dword[rand_x]	171	mov eax,dword[rand_x]
166	imul eax,22695477	172	imul eax,22695477
167	inc eax	173	inc eax
168	mov dword[rand_x],eax	174	mov dword[rand_x],eax
169	pop eax	175	pop eax
170	ret	176	ret
171		177
172	;á®§¤ ¥¬ ¯à®§à çë¥ ¡ãä¥à ¯® 8 ¡¨â (âà ä à¥âë), ¤«ï à¨á®¢ ¨ï	178	;á®§¤ ¥¬ ¯à®§à çë¥ ¡ãä¥à ¯® 8 ¡¨â (âà ä à¥âë), ¤«ï à¨á®¢ ¨ï
173	;£¤¥ buf - ¡ãä¥à ®á®¢¥ ª®â®à®£® ¡ã¤¥â á®§¤ âà ä à¥â	179	;£¤¥ buf - ¡ãä¥à ®á®¢¥ ª®â®à®£® ¡ã¤¥â á®§¤ âà ä à¥â
174	;ä®®¢ë© æ¢¥â ¡ãä¥à ¤®«¦¥ ¡ëâì 0xffffff, ¨ ç¥ ¥ ¯à®¨§®©¤¥â ®¡à¥§ª	180	;ä®®¢ë© æ¢¥â ¡ãä¥à ¤®«¦¥ ¡ëâì 0xffffff, ¨ ç¥ ¥ ¯à®¨§®©¤¥â ®¡à¥§ª
175	;¯® ä®®¢®¬ã æ¢¥âã ¨ âà ä à¥â ¡ã¤¥â § ¨¬ â ì¬®£® ¬¥áâ ¢ ¯ ¬ïâ¨	181	;¯® ä®®¢®¬ã æ¢¥âã ¨ âà ä à¥â ¡ã¤¥â § ¨¬ â ì¬®£® ¬¥áâ ¢ ¯ ¬ïâ¨
176	align 4	182	align 4
177	proc CreateTrapharetBuffer, buf:dword, img_data:dword	183	proc CreateTrapharetBuffer, buf:dword, img_data:dword
178	push eax edi	184	push eax edi
179	mov edi,dword[buf]	185	mov edi,dword[buf]
180		186
181	;§ ¯®«¥¨¥ ¤ ëå ¡ãä¥à	187	;§ ¯®«¥¨¥ ¤ ëå ¡ãä¥à
182	mov buf2d_size_lt,0	188	mov buf2d_size_lt,0
183	mov eax,dword[displ_w]	189	mov eax,dword[displ_w]
184	mov buf2d_w,eax	190	mov buf2d_w,eax
185	mov eax,dword[displ_h]	191	mov eax,dword[displ_h]
186	mov buf2d_h,eax	192	mov buf2d_h,eax
187	mov buf2d_color,0xffffff	193	mov buf2d_color,0xffffff
188	mov buf2d_bits,24	194	mov buf2d_bits,24
189		195
190	stdcall [buf2d_create_f_img], edi,[img_data] ;á®§¤ ¥¬ ¡ãä¥à	196	stdcall [buf2d_create_f_img], edi,[img_data] ;á®§¤ ¥¬ ¡ãä¥à
191	stdcall [buf2d_conv_24_to_8], edi,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç®áâ¨ 8¡¨â	197	stdcall [buf2d_conv_24_to_8], edi,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç®áâ¨ 8¡¨â
192	;®¡à¥§ ¥¬ «¨è¨¥ ªà ï ¡ãä¥à , ¤«ï ¡®«¥¥ ¡ëáâà®£® à¨á®¢ ¨ï	198	;®¡à¥§ ¥¬ «¨è¨¥ ªà ï ¡ãä¥à , ¤«ï ¡®«¥¥ ¡ëáâà®£® à¨á®¢ ¨ï
193	stdcall [buf2d_crop_color], edi,buf2d_color,BUF2D_OPT_CROP_TOP+BUF2D_OPT_CROP_BOTTOM+BUF2D_OPT_CROP_RIGHT+BUF2D_OPT_CROP_LEFT	199	stdcall [buf2d_crop_color], edi,buf2d_color,BUF2D_OPT_CROP_TOP+BUF2D_OPT_CROP_BOTTOM+BUF2D_OPT_CROP_RIGHT+BUF2D_OPT_CROP_LEFT
194	pop edi eax	200	pop edi eax
195	ret	201	ret
196	endp	202	endp
197		203
198	align 4	204	align 4
199	InitBackgroundBuffer: ;á®§¤ ¨¥ ä®®¢®£® ¨§®¡à ¦¥¨ï	205	InitBackgroundBuffer: ;á®§¤ ¨¥ ä®®¢®£® ¨§®¡à ¦¥¨ï
200	pushad	206	pushad
201	mov edi,buf_fon	207	mov edi,buf_fon
202	mov eax,[color_fon]	208	mov eax,[color_fon]
203	mov buf2d_color,eax	209	mov buf2d_color,eax
204	stdcall [buf2d_clear], edi,eax	210	stdcall [buf2d_clear], edi,eax
205	mov esi,edi	211	mov esi,edi
206		212
207	xor eax,eax	213	xor eax,eax
208	xor ebx,ebx	214	xor ebx,ebx
209		215
210	mov edi,buf_decor	216	mov edi,buf_decor
211	mov ax,buf2d_t	217	mov ax,buf2d_t
212	add eax,OFFS_SHADOW_Y	218	add eax,OFFS_SHADOW_Y
213	mov bx,buf2d_l	219	mov bx,buf2d_l
214	add ebx,OFFS_SHADOW_X	220	add ebx,OFFS_SHADOW_X
215	stdcall [buf2d_bit_blt_alpha], esi, ebx,eax, edi,[color_shadows] ;à¨áã¥¬ â¥¨ ¤®¬¨ª®¢	221	stdcall [buf2d_bit_blt_alpha], esi, ebx,eax, edi,[color_shadows] ;à¨áã¥¬ â¥¨ ¤®¬¨ª®¢
216	add edi,BUF_STRUCT_SIZE	222	add edi,BUF_STRUCT_SIZE
217	mov ax,buf2d_t	223	mov ax,buf2d_t
218	add eax,OFFS_SHADOW_Y	224	add eax,OFFS_SHADOW_Y
219	mov bx,buf2d_l	225	mov bx,buf2d_l
220	add ebx,OFFS_SHADOW_X	226	add ebx,OFFS_SHADOW_X
221	stdcall [buf2d_bit_blt_alpha], esi, ebx,eax, edi,[color_shadows] ;à¨áã¥¬ â¥¨ ªãà¨æ	227	stdcall [buf2d_bit_blt_alpha], esi, ebx,eax, edi,[color_shadows] ;à¨áã¥¬ â¥¨ ªãà¨æ
222	add edi,BUF_STRUCT_SIZE	228	add edi,BUF_STRUCT_SIZE
223	mov ax,buf2d_t	229	mov ax,buf2d_t
224	add eax,OFFS_SHADOW_Y	230	add eax,OFFS_SHADOW_Y
225	mov bx,buf2d_l	231	mov bx,buf2d_l
226	add ebx,OFFS_SHADOW_X	232	add ebx,OFFS_SHADOW_X
227	stdcall [buf2d_bit_blt_alpha], esi, ebx,eax, edi,[color_shadows] ;à¨áã¥¬ â¥¨ ¤¥à¥¢ì¥¢	233	stdcall [buf2d_bit_blt_alpha], esi, ebx,eax, edi,[color_shadows] ;à¨áã¥¬ â¥¨ ¤¥à¥¢ì¥¢
228		234
229	mov edi,buf_decor	235	mov edi,buf_decor
230	mov ax,buf2d_t	236	mov ax,buf2d_t
231	stdcall [buf2d_bit_blt_alpha], esi, 0,eax, edi,[color_perilo] ;à¨áã¥¬ ¤®¬¨ª¨	237	stdcall [buf2d_bit_blt_alpha], esi, 0,eax, edi,[color_perilo] ;à¨áã¥¬ ¤®¬¨ª¨
232	add edi,BUF_STRUCT_SIZE	238	add edi,BUF_STRUCT_SIZE
233	mov ax,buf2d_t	239	mov ax,buf2d_t
234	stdcall [buf2d_bit_blt_alpha], esi, 0,eax, edi,[color_curici] ;à¨áã¥¬ ªãà¨æë	240	stdcall [buf2d_bit_blt_alpha], esi, 0,eax, edi,[color_curici] ;à¨áã¥¬ ªãà¨æë
235	add edi,BUF_STRUCT_SIZE	241	add edi,BUF_STRUCT_SIZE
236	mov ax,buf2d_t	242	mov ax,buf2d_t
237	stdcall [buf2d_bit_blt_alpha], esi, 0,eax, edi,[color_trees] ;à¨áã¥¬ ¤¥à¥¢ìï	243	stdcall [buf2d_bit_blt_alpha], esi, 0,eax, edi,[color_trees] ;à¨áã¥¬ ¤¥à¥¢ìï
238	popad	244	popad
239	ret	245	ret
240		246
241	;à¨áã¥â ª àâ¨ªã ¢ ¡ãä¥à¥ buf ¨§ ¬ áá¨¢ ¡ãä¥à®¢ buf_img á ¨¤¥ªá®¬ ind	247	;à¨áã¥â ª àâ¨ªã ¢ ¡ãä¥à¥ buf ¨§ ¬ áá¨¢ ¡ãä¥à®¢ buf_img á ¨¤¥ªá®¬ ind
242	;â. ¥. buf <- buf_img[ind]	248	;â. ¥. buf <- buf_img[ind]
243	align 4	249	align 4
244	proc DrawArrayImg, buf:dword, buf_img:dword, ind:dword, color:dword	250	proc DrawArrayImg, buf:dword, buf_img:dword, ind:dword, color:dword
245	pushad	251	pushad
246	mov edi,dword[ind]	252	mov edi,dword[ind]
247	imul edi,BUF_STRUCT_SIZE	253	imul edi,BUF_STRUCT_SIZE
248	add edi,dword[buf_img]	254	add edi,dword[buf_img]
249		255
250	mov esi,dword[buf]	256	mov esi,dword[buf]
251	xor eax,eax	257	xor eax,eax
252	mov ax,buf2d_t	258	mov ax,buf2d_t
253	xor ebx,ebx	259	xor ebx,ebx
254	mov bx,buf2d_l	260	mov bx,buf2d_l
255	stdcall [buf2d_bit_blt_alpha], esi, ebx,eax, edi,[color]	261	stdcall [buf2d_bit_blt_alpha], esi, ebx,eax, edi,[color]
256	popad	262	popad
257	ret	263	ret
258	endp	264	endp
259		265
260	align 4	266	align 4
261	DrawZaac: ;à¨á®¢ ¨¥ § ©æ	267	DrawZaac: ;à¨á®¢ ¨¥ § ©æ
262	push eax	268	push eax
263	bt word[pos_wolf],bit_zaac	269	bt word[pos_wolf],bit_zaac
264	jae .end_mig	270	jae .end_mig
265		271
266	stdcall DrawArrayImg, buf_displ,buf_wolf,6,[color_wolf] ;à¨áã¥¬ â¥«® § ©æ	272	stdcall DrawArrayImg, buf_displ,buf_wolf,6,[color_wolf] ;à¨áã¥¬ â¥«® § ©æ
267	mov eax,dword[pos_eggs]	273	mov eax,dword[pos_eggs]
268	and eax,mask_chi_right+mask_chi_left	274	and eax,mask_chi_right+mask_chi_left
269	cmp eax,0	275	cmp eax,0
270	je .end_mig ;¥á«¨ ¥â ¡¥£ îé¨å æ¨¯«ïâ, â® § ïæ àãª®© ¥ ¬ è¥â	276	je .end_mig ;¥á«¨ ¥â ¡¥£ îé¨å æ¨¯«ïâ, â® § ïæ àãª®© ¥ ¬ è¥â
271	bt word[pos_wolf],bit_mig	277	bt word[pos_wolf],bit_mig
272	jc @f	278	jc @f
273	stdcall DrawArrayImg, buf_displ,buf_wolf,7,[color_wolf] ;à¨áã¥¬ àãªã § ©æ ¢¢¥àåã	279	stdcall DrawArrayImg, buf_displ,buf_wolf,7,[color_wolf] ;à¨áã¥¬ àãªã § ©æ ¢¢¥àåã
274	jmp .end_mig	280	jmp .end_mig
275	@@:	281	@@:
276	stdcall DrawArrayImg, buf_displ,buf_wolf,8,[color_wolf] ;à¨áã¥¬ àãªã § ©æ ¢¨§ã	282	stdcall DrawArrayImg, buf_displ,buf_wolf,8,[color_wolf] ;à¨áã¥¬ àãªã § ©æ ¢¨§ã
277	.end_mig:	283	.end_mig:
278	pop eax	284	pop eax
279	ret	285	ret
280		286
281	align 4	287	align 4
282	DrawWolf: ;à¨áã¥â ¢®«ª á ª®à§¨ ¬¨	288	DrawWolf: ;à¨áã¥â ¢®«ª á ª®à§¨ ¬¨
283	bt word[pos_wolf],0	289	bt word[pos_wolf],0
284	jc @f	290	jc @f
285	stdcall DrawArrayImg, buf_displ,buf_wolf,0,[color_wolf]	291	stdcall DrawArrayImg, buf_displ,buf_wolf,0,[color_wolf]
286	bt word[pos_wolf],1	292	bt word[pos_wolf],1
287	jc .corz_ldn	293	jc .corz_ldn
288	stdcall DrawArrayImg, buf_displ,buf_wolf,1,[color_wolf]	294	stdcall DrawArrayImg, buf_displ,buf_wolf,1,[color_wolf]
289	jmp .corz_lend	295	jmp .corz_lend
290	.corz_ldn:	296	.corz_ldn:
291	stdcall DrawArrayImg, buf_displ,buf_wolf,2,[color_wolf]	297	stdcall DrawArrayImg, buf_displ,buf_wolf,2,[color_wolf]
292	.corz_lend:	298	.corz_lend:
293	jmp .wolf_b	299	jmp .wolf_b
294	@@:	300	@@:
295	stdcall DrawArrayImg, buf_displ,buf_wolf,3,[color_wolf]	301	stdcall DrawArrayImg, buf_displ,buf_wolf,3,[color_wolf]
296	bt word[pos_wolf],1	302	bt word[pos_wolf],1
297	jc .corz_rdn	303	jc .corz_rdn
298	stdcall DrawArrayImg, buf_displ,buf_wolf,4,[color_wolf]	304	stdcall DrawArrayImg, buf_displ,buf_wolf,4,[color_wolf]
299	jmp .corz_rend	305	jmp .corz_rend
300	.corz_rdn:	306	.corz_rdn:
301	stdcall DrawArrayImg, buf_displ,buf_wolf,5,[color_wolf]	307	stdcall DrawArrayImg, buf_displ,buf_wolf,5,[color_wolf]
302	.corz_rend:	308	.corz_rend:
303	.wolf_b:	309	.wolf_b:
304	ret	310	ret
305		311
306	align 4	312	align 4
307	DrawEggs: ;à¨áã¥â ï©æ	313	DrawEggs: ;à¨áã¥â ï©æ
308	pushad	314	pushad
309	cld	315	cld
310		316
311	mov eax,dword[pos_eggs]	317	mov eax,dword[pos_eggs]
312	xor ebx,ebx	318	xor ebx,ebx
313	mov ecx,20 ;æ¨ª« ¤«ï à¨á®¢ ¨ï ª®âïé¨åáï ï¨æ	319	mov ecx,20 ;æ¨ª« ¤«ï à¨á®¢ ¨ï ª®âïé¨åáï ï¨æ
314	@@:	320	@@:
315	bt eax,ebx	321	bt eax,ebx
316	jae .draw_egg	322	jae .draw_egg
317	stdcall DrawArrayImg, buf_displ,buf_egg,ebx,[color_egg]	323	stdcall DrawArrayImg, buf_displ,buf_egg,ebx,[color_egg]
318	.draw_egg:	324	.draw_egg:
319	inc ebx	325	inc ebx
320	loop @b	326	loop @b
321		327
322	;mov eax,dword[pos_eggs]	328	;mov eax,dword[pos_eggs]
323	and eax,mask_chi_left	329	and eax,mask_chi_left
324	cmp eax,0	330	cmp eax,0
325	je @f	331	je @f
326	stdcall DrawArrayImg, buf_displ,buf_egg,20,[color_egg] ;à §¡¨â®¥ ï©æ® á«¥¢	332	stdcall DrawArrayImg, buf_displ,buf_egg,20,[color_egg] ;à §¡¨â®¥ ï©æ® á«¥¢
327	@@:	333	@@:
328	mov eax,dword[pos_eggs]	334	mov eax,dword[pos_eggs]
329	and eax,mask_chi_right	335	and eax,mask_chi_right
330	cmp eax,0	336	cmp eax,0
331	je @f	337	je @f
332	stdcall DrawArrayImg, buf_displ,buf_egg,21,[color_egg] ;à §¡¨â®¥ ï©æ® á¯à ¢	338	stdcall DrawArrayImg, buf_displ,buf_egg,21,[color_egg] ;à §¡¨â®¥ ï©æ® á¯à ¢
333	@@:	339	@@:
334		340
335	mov eax,dword[pos_eggs]	341	mov eax,dword[pos_eggs]
336	xor edx,edx	342	xor edx,edx
337	mov ebx,bit_chi_left	343	mov ebx,bit_chi_left
338	mov ecx,5 ;æ¨ª« ¤«ï à¨á®¢ ¨ï «¥¢ëå æ¨¯«ïâ	344	mov ecx,5 ;æ¨ª« ¤«ï à¨á®¢ ¨ï «¥¢ëå æ¨¯«ïâ
339	@@:	345	@@:
340	bt eax,ebx	346	bt eax,ebx
341	jae .draw_chick_l	347	jae .draw_chick_l
342	stdcall DrawArrayImg, buf_displ,buf_chi,edx,[color_chick]	348	stdcall DrawArrayImg, buf_displ,buf_chi,edx,[color_chick]
343	.draw_chick_l:	349	.draw_chick_l:
344	inc ebx	350	inc ebx
345	inc edx	351	inc edx
346	loop @b	352	loop @b
347	mov ebx,bit_chi_right	353	mov ebx,bit_chi_right
348	mov ecx,5 ;æ¨ª« ¤«ï à¨á®¢ ¨ï ¯à ¢ëå æ¨¯«ïâ	354	mov ecx,5 ;æ¨ª« ¤«ï à¨á®¢ ¨ï ¯à ¢ëå æ¨¯«ïâ
349	@@:	355	@@:
350	bt eax,ebx	356	bt eax,ebx
351	jae .draw_chick_r	357	jae .draw_chick_r
352	stdcall DrawArrayImg, buf_displ,buf_chi,edx,[color_chick]	358	stdcall DrawArrayImg, buf_displ,buf_chi,edx,[color_chick]
353	.draw_chick_r:	359	.draw_chick_r:
354	inc ebx	360	inc ebx
355	inc edx	361	inc edx
356	loop @b	362	loop @b
357		363
358	xor eax,eax	364	xor eax,eax
359	mov al,byte[count_last]	365	mov al,byte[count_last]
360	mov ecx,eax ;æ¨ª« ¤«ï à¨á®¢ ¨ï èâà äëå ®çª®¢	366	mov ecx,eax ;æ¨ª« ¤«ï à¨á®¢ ¨ï èâà äëå ®çª®¢
361	shr ecx,1	367	shr ecx,1
362	mov edx,10 ;¨¤¥ªá ç « èâà äëå ¨ª®®ª ¢ ¡ãä¥à¥ buf_chi	368	mov edx,10 ;¨¤¥ªá ç « èâà äëå ¨ª®®ª ¢ ¡ãä¥à¥ buf_chi
363	cmp ecx,0	369	cmp ecx,0
364	je .no_unit_last	370	je .no_unit_last
365	@@:	371	@@:
366	stdcall DrawArrayImg, buf_displ,buf_chi,edx,[color_chick]	372	stdcall DrawArrayImg, buf_displ,buf_chi,edx,[color_chick]
367	inc edx	373	inc edx
368	loop @b	374	loop @b
369	.no_unit_last:	375	.no_unit_last:
370		376
371	bt ax,0 ;¯à®¢¥àï¥¬ ¬¨£ îé¥¥ ¥ ç¥â®¥ ®çª®	377	bt ax,0 ;¯à®¢¥àï¥¬ ¬¨£ îé¥¥ ¥ ç¥â®¥ ®çª®
372	jae @f	378	jae @f
373	bt word[pos_wolf],bit_mig	379	bt word[pos_wolf],bit_mig
374	jc @f	380	jc @f
375	stdcall DrawArrayImg, buf_displ,buf_chi,edx,[color_chick] ;¬¨£ îé¥¥ èâà ä®¥ ®çª®	381	stdcall DrawArrayImg, buf_displ,buf_chi,edx,[color_chick] ;¬¨£ îé¥¥ èâà ä®¥ ®çª®
376	@@:	382	@@:
377		383
378	popad	384	popad
379	ret	385	ret
380		386
381	align 4	387	align 4
382	CountEggsInc: ;ã¢¥«¨ç¨¢ ¥¬ áç¥âç¨ª ï¨æ 1	388	CountEggsInc: ;ã¢¥«¨ç¨¢ ¥¬ áç¥âç¨ª ï¨æ 1
383	push eax edi	389	push eax edi
384	xor eax,eax	390	xor eax,eax
385	inc word[eggs_count] ;ã¢¥«¨ç¨¢ ¥¬ áç¥âç¨ª ï¨æ	391	inc word[eggs_count] ;ã¢¥«¨ç¨¢ ¥¬ áç¥âç¨ª ï¨æ
386	cmp word[eggs_count],200 ;¡®ãáë¥ ®çª¨	392	cmp word[eggs_count],200 ;¡®ãáë¥ ®çª¨
387	je @f	393	je @f
388	cmp word[eggs_count],500 ;¡®ãáë¥ ®çª¨	394	cmp word[eggs_count],500 ;¡®ãáë¥ ®çª¨
389	je @f	395	je @f
390	jmp .no_bonus	396	jmp .no_bonus
391	@@:	397	@@:
392	mov byte[count_last],0	398	mov byte[count_last],0
393	.no_bonus:	399	.no_bonus:
394		400
395	mov ax,word[eggs_count]	401	mov ax,word[eggs_count]
396	mov edi,some_text	402	mov edi,some_text
397	call convert_to_str ;®¡®¢«ï¥¬ â¥ªáâ®¢ãî áâà®ªã	403	call convert_to_str ;®¡®¢«ï¥¬ â¥ªáâ®¢ãî áâà®ªã
398	and ax,0xf ;ç¥à¥§ ª ¦¤ë¥ 16 ï¨æ ã¬¥ìè ¥¬ ¢à¥¬ï	404	and ax,0xf ;ç¥à¥§ ª ¦¤ë¥ 16 ï¨æ ã¬¥ìè ¥¬ ¢à¥¬ï
399	cmp ax,0	405	cmp ax,0
400	jne @f	406	jne @f
401	cmp dword[game_spd],15 ;¬¨¨¬ «ì ï § ¤¥à¦ª	407	cmp dword[game_spd],15 ;¬¨¨¬ «ì ï § ¤¥à¦ª
402	jle @f	408	jle @f
403	dec dword[game_spd]	409	dec dword[game_spd]
404	@@:	410	@@:
405	pop edi eax	411	pop edi eax
406	ret	412	ret
407		413
408	;input:	414	;input:
409	; eax - ¬ áª , ãª §ë¢ îé ï á ª ª®© áâà®ë ã¯ «® ï©æ®	415	; eax - ¬ áª , ãª §ë¢ îé ï á ª ª®© áâà®ë ã¯ «® ï©æ®
410	align 4	416	align 4
411	CountLastInc: ; ç¨á«¥¨¥ èâà äëå ®çª®¢	417	CountLastInc: ; ç¨á«¥¨¥ èâà äëå ®çª®¢
412	inc byte[count_last] ;¯®«®¢¨ ® èâà ä®£® ®çª	418	inc byte[count_last] ;¯®«®¢¨ ® èâà ä®£® ®çª
413	bt word[pos_wolf],bit_zaac	419	bt word[pos_wolf],bit_zaac
414	jc @f	420	jc @f
415	inc byte[count_last] ;¥á«¨ ¥â § ©æ â® ¥é¥ 1- ¯®«®¢¨ èâà ä®£® ®çª	421	inc byte[count_last] ;¥á«¨ ¥â § ©æ â® ¥é¥ 1- ¯®«®¢¨ èâà ä®£® ®çª
416	@@:	422	@@:
417	cmp byte[count_last],6	423	cmp byte[count_last],6
418	jle @f	424	jle @f
419	mov byte[count_last],6 ;áâ ¢¨¬ ®£à ¨ç¥¨ ç¨á«® èâà äëå ®çª®¢	425	mov byte[count_last],6 ;áâ ¢¨¬ ®£à ¨ç¥¨ ç¨á«® èâà äëå ®çª®¢
420	@@:	426	@@:
421	or dword[pos_eggs],eax ;á®§¤ ¥¬ ¡¥£ãé¥£® æ¨¯«¥ª	427	or dword[pos_eggs],eax ;á®§¤ ¥¬ ¡¥£ãé¥£® æ¨¯«¥ª
422	ret	428	ret
423		429
424	align 4	430	align 4
425	MoveEggs:	431	MoveEggs:
426	pushad	432	pushad
427	xor byte[pos_wolf],val_mig ;¡¨â ¤«ï ¬¨£ ¨ï	433	xor byte[pos_wolf],val_mig ;¡¨â ¤«ï ¬¨£ ¨ï
428		434
429	cmp byte[count_last],6 ;¬ ªá¨¬ «ì®¥ ç¨á«® èâà äëå ®çª®¢	435	cmp byte[count_last],6 ;¬ ªá¨¬ «ì®¥ ç¨á«® èâà äëå ®çª®¢
430	je .end_fun	436	je .end_fun
431		437
432	rol dword[pos_eggs],1	438	rol dword[pos_eggs],1
433	mov ecx,dword[pos_eggs]	439	mov ecx,dword[pos_eggs]
434	and ecx,mask_fail_eggs	440	and ecx,mask_fail_eggs
435	cmp ecx,0	441	cmp ecx,0
436	je .no_fail ;¥â ¯ ¤ îé¨å ï¨æ	442	je .no_fail ;¥â ¯ ¤ îé¨å ï¨æ
437	; ç¨á«¥¨¥ ï¨æ ¯®¯ ¢è¨å ¢ ª®à§¨ã	443	; ç¨á«¥¨¥ ï¨æ ¯®¯ ¢è¨å ¢ ª®à§¨ã
438	;¨«¨ ç¨á«¥¨¥ èâà äëå ®çª®¢	444	;¨«¨ ç¨á«¥¨¥ èâà äëå ®çª®¢
439	xor ebx,ebx	445	xor ebx,ebx
440	mov bl,byte[pos_wolf] ;¡¥à¥¬ ¯ à ¬¥âàë (¯®§¨æ¨î) ¢®«ª	446	mov bl,byte[pos_wolf] ;¡¥à¥¬ ¯ à ¬¥âàë (¯®§¨æ¨î) ¢®«ª
441	and bl,3 ; ¢áïª¨© á«ãç ©	447	and bl,3 ; ¢áïª¨© á«ãç ©
442		448
443	bt ecx,5 ;¯à®¢¥àï¥¬ ¢¥àå¥¥ «¥¢®¥ ¯¥à¨«®	449	bt ecx,5 ;¯à®¢¥àï¥¬ ¢¥àå¥¥ «¥¢®¥ ¯¥à¨«®
444	jae .perilo_lu	450	jae .perilo_lu
445	cmp bx,0 ;¯à®¢¥àï¥¬ «¨ç¨¥ ª®à§¨ë	451	cmp bx,0 ;¯à®¢¥àï¥¬ «¨ç¨¥ ª®à§¨ë
446	jne @f	452	jne @f
447	call CountEggsInc	453	call CountEggsInc
448	jmp .perilo_lu	454	jmp .perilo_lu
449	@@:	455	@@:
450	mov eax,mask_chi_cr_l	456	mov eax,mask_chi_cr_l
451	call CountLastInc	457	call CountLastInc
452	.perilo_lu:	458	.perilo_lu:
453	bt ecx,10 ;¯à®¢¥àï¥¬ ¨¦¥¥ «¥¢®¥ ¯¥à¨«®	459	bt ecx,10 ;¯à®¢¥àï¥¬ ¨¦¥¥ «¥¢®¥ ¯¥à¨«®
454	jae .perilo_ld	460	jae .perilo_ld
455	cmp bx,2 ;¯à®¢¥àï¥¬ «¨ç¨¥ ª®à§¨ë	461	cmp bx,2 ;¯à®¢¥àï¥¬ «¨ç¨¥ ª®à§¨ë
456	jne @f	462	jne @f
457	call CountEggsInc	463	call CountEggsInc
458	jmp .perilo_ld	464	jmp .perilo_ld
459	@@:	465	@@:
460	mov eax,mask_chi_cr_l	466	mov eax,mask_chi_cr_l
461	call CountLastInc	467	call CountLastInc
462	.perilo_ld:	468	.perilo_ld:
463	bt ecx,15 ;¯à®¢¥àï¥¬ ¢¥àå¥¥ ¯à ¢®¥ ¯¥à¨«®	469	bt ecx,15 ;¯à®¢¥àï¥¬ ¢¥àå¥¥ ¯à ¢®¥ ¯¥à¨«®
464	jae .perilo_ru	470	jae .perilo_ru
465	cmp bx,1 ;¯à®¢¥àï¥¬ «¨ç¨¥ ª®à§¨ë	471	cmp bx,1 ;¯à®¢¥àï¥¬ «¨ç¨¥ ª®à§¨ë
466	jne @f	472	jne @f
467	call CountEggsInc	473	call CountEggsInc
468	jmp .perilo_ru	474	jmp .perilo_ru
469	@@:	475	@@:
470	mov eax,mask_chi_cr_r	476	mov eax,mask_chi_cr_r
471	call CountLastInc	477	call CountLastInc
472	.perilo_ru:	478	.perilo_ru:
473	bt ecx,20 ;¯à®¢¥àï¥¬ ¨¦¥¥ ¯à ¢®¥ ¯¥à¨«®	479	bt ecx,20 ;¯à®¢¥àï¥¬ ¨¦¥¥ ¯à ¢®¥ ¯¥à¨«®
474	jae .perilo_rd	480	jae .perilo_rd
475	cmp bx,3 ;¯à®¢¥àï¥¬ «¨ç¨¥ ª®à§¨ë	481	cmp bx,3 ;¯à®¢¥àï¥¬ «¨ç¨¥ ª®à§¨ë
476	jne @f	482	jne @f
477	call CountEggsInc	483	call CountEggsInc
478	jmp .perilo_rd	484	jmp .perilo_rd
479	@@:	485	@@:
480	mov eax,mask_chi_cr_r	486	mov eax,mask_chi_cr_r
481	call CountLastInc	487	call CountLastInc
482	.perilo_rd:	488	.perilo_rd:
483	.no_fail:	489	.no_fail:
484		490
485	and dword[pos_eggs],mask_clear_all ;®ç¨áâª ã¯ ¢è¨å ï¨æ ¨ ¤®¡¥¦ ¢è¨å ªãà¥©	491	and dword[pos_eggs],mask_clear_all ;®ç¨áâª ã¯ ¢è¨å ï¨æ ¨ ¤®¡¥¦ ¢è¨å ªãà¥©
486		492
487	call rand_next	493	call rand_next
488	cmp byte[zaac_status],0	494	cmp byte[zaac_status],0
489	jle @f	495	jle @f
490	dec byte[zaac_status]	496	dec byte[zaac_status]
491	jmp .no_zaac_move ;§ ïæ ¯®ª ¥ ¤¢¨£ ¥âáï	497	jmp .no_zaac_move ;§ ïæ ¯®ª ¥ ¤¢¨£ ¥âáï
492	@@:	498	@@:
493		499
494	bt dword[rand_x],6 ;§ ïæ ®â ä® àï ¬¥ï¥â áâ âãá	500	bt dword[rand_x],6 ;§ ïæ ®â ä® àï ¬¥ï¥â áâ âãá

Subversion Repositories Kolibri OS

(root)/programs/games/nu_pogodi/trunk/nu_pogod.asm – Rev 1552 → 1555