; 10.06.2010 staper@inbox.ru ;Œ £¨ç¥áª¨© ª¢ ¤à â - íâ® ¡®à â ª¨å 楫ëå ç¨á¥«, çâ® ¨å á㬬ë ;¢ áâப å, á⮫¡æ å (०¥ ¢ ¤¨ £® «ïå) à ¢ë. ;ਬ¥à: ; 16 3 2 13 ; 5 10 11 8 ; 9 6 7 12 ; 4 15 14 1 use32 org 0x0 db 'MENUET01' dd 0x1, START, I_END, (D_END+100) and not 3, (D_END+100) and not 3, 0, 0 ;–¢¥â : Bckgrd_clr equ 0xffffff ;ä® Brdr_line_clr equ 0xb0b0b0 ;«¨¨¨ ¯® £à ¨æ ¬ Inter_line_clr equ 0xb0b0b0 ;¢ãâ२¥ «¨¨¨ Square_clr equ 0xdddddd ;梥⠪ãàá®à Fix_nmb_clr equ 0x83459 ;áâ â¨ç®¥ § 票¥ Chg_nmb_clr equ 0;x008d8d ;¯¥à¥¬¥®¥ § 票¥ Text_clr equ 0x000000 ;⥪áâ Message_clr equ 0x0000ff ;á®®¡é¥¨ï max_dif equ 10 min_dif equ 2 len_kub equ 30 ;¤«¨ áâ®à®ë ª¢ ¤à ⨪ beg_x equ 40 ;ª®®à¤¨ â • «¥¢®£® ¢¥à奣® 㣫 beg_y equ 50 ;ª®®à¤¨ â Y «¥¢®£® ¢¥à奣® 㣫 sym_x equ 20 sym_y equ 20 win_x equ 400 ;è¨à¨ ®ª win_y equ 400 ;¢ëá®â ®ª DEBUG equ 0 macro dbg_dec num {pushad newline debug_print_dec num popad } include '../../../macros.inc' ;include 'debug.inc' include 'editbox_ex.mac' include 'lang.inc' START: ;mcall 40,7 redraw_all: mcall 12,1 mcall 48,4 add eax,100*65536+win_x mov ecx,eax mcall 0,100*65536+win_y,,(0x34000000+Bckgrd_clr),,title movzx eax,[Difficult] mov ebx,len_kub xor edx,edx mul ebx add eax,beg_x*65536+beg_x xchg eax,ebx mcall 38,,beg_y*65536+beg_y,Brdr_line_clr mov edx,Inter_line_clr movzx esi,[Difficult] dec esi @@: add ecx,len_kub*65536+len_kub mcall dec esi jnz @b add ecx,len_kub*65536+len_kub mcall ,,,Brdr_line_clr movzx eax,[Difficult] mov ecx,len_kub xor edx,edx mul ecx add eax,(beg_y+1)*65536+beg_y-1 xchg eax,ecx mov ebx,beg_x*65536+beg_x mcall 38,,,Brdr_line_clr mov edx,Inter_line_clr movzx esi,[Difficult] dec esi @@: add ebx,len_kub*65536+len_kub mcall dec esi jnz @b add ebx,len_kub*65536+len_kub mcall ,,,Brdr_line_clr mcall 8,<4,78>,<4,13>,2,0xbbbbbb mcall 4,<8,7>,(0x80000000+Text_clr),txt.clear mcall ,<105,7>,,txt.dif call show_level push dword Map;esi; mov esi,Map mcall 12,2 draw_pole: if DEBUG call SysMsgBoardNum ;show esp endf movzx eax,[Y] dec al movzx ebx,[Difficult] mul bl mov bl,[X] add al,bl pop esi ; mov esi,Map push eax ;ªãàá®à稪 movzx eax,[Difficult] mov ebx,eax mul eax sub eax,ebx mov edi,eax pop eax push eax ; mov edi,81-9 movzx ebp,[Difficult] mov ebx,beg_x*65536+beg_x+sym_x mov ecx,beg_y*65536+beg_y+sym_y call out_numbers pop eax call out_sum still: mcall 10 dec al jz redraw_all dec al jz key dec al jnz still ;button: mcall 17 cmp ah,1 jne @f mcall -1 .clear: @@: mov ecx,max_dif*max_dif mov esi,Map @@: mov byte [esi+ecx-1],0 loop @b jmp redraw_all key: mcall 2 .43: cmp ah,43 ;+ jne .45 cmp [Difficult],max_dif je still inc [Difficult] jmp redraw_all jmp still .45: ;- cmp ah,45 jne .99 cmp [Difficult],min_dif je still dec [Difficult] jmp redraw_all jmp still .99: cmp ah,0x58 je @f cmp ah,0x78 jne .39 @@: jmp still.clear .39: cmp ah,0x39 ja .110 cmp ah,0x30 jb still sub ah,0x30 mov cl,ah movzx eax,[Y] dec al mov ebx,max_dif;[Difficult] mul bl mov bl,[X] dec bl add al,bl mov esi,Map bt [flags],9 jnc @f mov bl,[esi+eax] push eax mov ax,10 xor dl,dl mul bl add cl,al pop eax mov [esi+eax],cl btr [flags],9 jmp .onedraw @@: mov [esi+eax],cl bts [flags],9 jmp .onedraw .110: cmp ah,110 ;n jne .176 .new_game: jmp redraw_all .176: cmp ah,176 ;ªãàá®àë jne .177 call draw_one_symbol dec [X] cmp [X],1 jge @f push eax movzx eax,[Difficult] mov [X],al pop eax @@: btr [flags],9 jmp .onedraw .177: cmp ah,177 jne .178 call draw_one_symbol inc [Y] push eax movzx eax,[Difficult] cmp [Y],al jbe @f mov [Y],1 @@: pop eax btr [flags],9 jmp .onedraw .178: cmp ah,178 jne .179 call draw_one_symbol dec [Y] cmp [Y],1 jge @f push eax movzx eax,[Difficult] mov [Y],al pop eax @@: btr [flags],9 jmp .onedraw .179: cmp ah,179 jne still call draw_one_symbol inc [X] push eax movzx eax,[Difficult] cmp [X],al jbe @f mov [X],1 @@: btr [flags],9 pop eax .onedraw: bts [flags],4 call draw_one_symbol call out_one_sum jmp still ;.todraw show_level: movzx ecx,[Difficult] mcall 47,0x10000,,<205,5>,(0x50000000+Text_clr),Bckgrd_clr ret draw_one_symbol: movzx eax,[X] mov ebx,len_kub*65536+len_kub mul ebx xchg eax,ebx add ebx,(beg_x*65536+beg_y-len_kub*65536+len_kub) movzx eax,[Y] mov ecx,len_kub*65536+len_kub mul ecx xchg eax,ecx add ecx,(beg_y*65536+beg_y+sym_y-len_kub*65536+len_kub) movzx eax,[Y] dec al push ebx movzx ebx,[Difficult] mul bl mov bl,[X] add al,bl dec al pop ebx mov esi,Map add esi,eax push dword 0 ;¥ ªãàá®à bt [flags],4 jnc @f mov dword [esp],1 ;ªãàá®à btr [flags],4 @@: mov edi,0 mov ebp,1 call out_numbers pop eax ret out_numbers: push ebx ecx esi shr ebx,16 inc bx shl ebx,16 add ebx,len_kub-1 shr ecx,16 inc cx shl ecx,16 add ecx,len_kub-1 mov edx,Bckgrd_clr push ebp dec dword [esp+4*5] jnz @f mov edx,Square_clr @@: mcall 13 pop ebp pop esi push ebx edx mov eax,esi sub eax,Map-1 xor edx,edx movzx ebx,[Difficult] div ebx push edx xor edx,edx mov ebx,max_dif mul ebx pop edx test edx,edx jnz @f movzx edx,[Difficult] sub eax,max_dif @@: add eax,edx mov al,[eax+Map-1] pop edx ebx test al,al ; cmp byte [esi],0 jnz .changeable_number jmp .null .end: inc esi dec ebp jnz out_numbers test edi,edi jz @f push ebx edx movzx eax,[Difficult] sub edi,eax mov ebp,eax mov ebx,len_kub*65536 xor edx,edx mul ebx push eax movzx eax,[Difficult] mov ebx,len_kub mul ebx pop ebx add eax,ebx pop edx pop ebx sub ebx,eax ; add ebx,-9*24*65536-9*24 add ecx,len_kub*65536+len_kub jmp out_numbers @@: ret .null: pop ecx ebx add ebx,len_kub*65536+len_kub jmp .end .changeable_number: push esi shr ebx,16 shr ecx,16 mov dx,bx shl edx,16 mov dx,cx add edx,8*65536+4 push ebx edx mov eax,esi sub eax,Map-1 xor edx,edx movzx ebx,[Difficult] div ebx push edx xor edx,edx mov ebx,max_dif mul ebx pop edx test edx,edx jnz @f movzx edx,[Difficult] sub eax,max_dif @@: add eax,edx pop edx ebx movzx ebx,byte [eax+Map-1];[esi] push esi ebp edi edx sub edx,2*65536-3 push edx xchg eax,ebx mov ebx,10 xor edx,edx div ebx mov ebx,edx pop edx push ebx test eax,eax jz .only_first_num ; bt [flags],9 ; jc .only_first_num xchg eax,ebx shl bx,4 add ebx,FONT mov ecx,8*65536+16 mov edi,Pltr.ch cmp dword [esp+4*9],0 jne @f mov edi,Pltr.chk @@: mov esi,1 mov ebp,0 mcall 65 .only_first_num: pop ebx shl bl,4 add ebx,FONT mov ecx,8*65536+16 add edx,8*65536 mov edi,Pltr.ch cmp dword [esp+4*8],0 jne @f mov edi,Pltr.chk @@: mov esi,1 mov ebp,0 mcall 65 pop edx edi ebp esi pop esi ecx ebx add ebx,len_kub*65536+len_kub jmp .end out_sum: movzx eax,[Difficult] push eax mov esi,Map mov edi,out_sum_buf .1: xor ebx,ebx xor ecx,ecx xor edx,edx .2: mov dl,[ebx+esi] add ecx,edx inc ebx cmp ebx,[esp] jne .2 mov word [edi],cx add edi,2 add esi,max_dif dec eax jnz .1 push out_sum_buf movzx eax,[Difficult] mov ebx,len_kub*65536 xor edx,edx mul ebx add eax,40*65536 push eax mov edx,(beg_x-30)*65536+beg_y+10 mov ebx,0x30000 mov esi,0x50000000+Fix_nmb_clr mov edi,Bckgrd_clr .3: mov ecx,[esp+4] mov cx,[ecx] shl ecx,16 shr ecx,16 mcall 47 push edx add edx,[esp+4] mcall pop edx add edx,len_kub add dword [esp+4],2 dec dword [esp+8] jnz .3 pop eax pop eax pop eax movzx eax,[Difficult] push eax mov esi,Map mov edi,out_sum_buf xor ebx,ebx .4: xor ecx,ecx xor edx,edx mov ebx,[esp] .5: mov dl,[esi] add ecx,edx add esi,max_dif dec ebx jnz .5 mov word [edi],cx add edi,2 push eax mov eax,max_dif xor edx,edx mul dword [esp+4] dec eax sub esi,eax pop eax dec eax jnz .4 push out_sum_buf movzx eax,[Difficult] mov ebx,len_kub xor edx,edx mul ebx add eax,35 push eax mov edx,(beg_x+5)*65536+beg_y-20 mov ebx,0x30000 mov esi,0x50000000+Fix_nmb_clr mov edi,Bckgrd_clr .6: mov ecx,[esp+4] mov ecx,[ecx] shl ecx,16 shr ecx,16 mcall 47 push edx add edx,[esp+4] mcall pop edx add edx,len_kub*65536;[esp] add dword [esp+4],2 dec dword [esp+8] jnz .6 pop eax pop eax pop eax ret out_one_sum: movzx ecx,[Difficult] mov esi,Map xor edx,edx movzx eax,[Y] dec al mov ebx,max_dif mul bl add esi,eax @@: mov al,[esi] inc esi add edx,eax loop @b mov ecx,edx movzx eax,[Difficult] mov ebx,len_kub*65536 xor edx,edx mul ebx add eax,40*65536 push eax movzx eax,[Y] dec eax mov ebx,len_kub xor edx,edx mul ebx mov edx,(beg_x-30)*65536+beg_y+10 add edx,eax mov ebx,0x30000 mov esi,0x50000000+Fix_nmb_clr mov edi,Bckgrd_clr mcall 47 add edx,[esp] mcall pop eax movzx ecx,[Difficult] mov esi,Map xor edx,edx movzx eax,[X] dec al add esi,eax @@: mov al,[esi] add esi,max_dif add edx,eax loop @b mov ecx,edx movzx eax,[Difficult] mov ebx,len_kub xor edx,edx mul ebx add eax,35 push eax movzx eax,[X] dec eax mov ebx,len_kub*65536 xor edx,edx mul ebx mov edx,eax add edx,(beg_x+5)*65536+beg_y-20 mov ebx,0x30000 mov esi,0x50000000+Fix_nmb_clr mov edi,Bckgrd_clr mcall 47 add edx,[esp] mcall pop edx ret if DEBUG SysMsgBoardNum: ;warning: destroys eax,ebx,ecx,esi mov ebx,esp mov ecx,8 mov esi,(number_to_out+1) .1: mov eax,ebx and eax,0xF add al,'0' cmp al,(10+'0') jb @f add al,('A'-'0'-10) @@: mov [esi+ecx],al shr ebx,4 loop .1 dec esi mcall 71,1,number_to_out ret number_to_out db '0x00000000',13,10,0 endf if lang eq ru title db 'Œ £¨ç¥áª¨© ª¢ ¤à â',0 txt: .dif db "‘«®¦®áâì (+/-):",0 .clear db 'Žç¨áâ¨âì (x)',0 else title db 'Magical square',0 txt: .dif db "Difficult (+/-)",0 .clear db 'Clear (x)',0 endf align 4 ; «¨âàë: Pltr: .ch dd Bckgrd_clr,Chg_nmb_clr .chk dd Square_clr,Chg_nmb_clr .fx dd Bckgrd_clr,Fix_nmb_clr .fxk dd Square_clr,Fix_nmb_clr FONT file "MSquare.fnt" X db 1 Y db 1 Difficult db 3 I_END: align 16 Map rb max_dif*max_dif out_sum_buf rw max_dif flags rw 1 D_END: ;¡¨â 0: á¬. ¯¥à¥¤ draw_pole ;2: ¢ draw_pole ¨ key ;4: in draw_one_symbol ;9: ¢¢¥¤ñ ¯¥à¢ ï æ¨äà ç¨á«