;------------------------------------------------------------------------------ align 4 START_mouse_thread: mcall 40,100000b ; only Event 6 - Mouse ;------------------------------------------------------------------------------ align 4 still_mouse: mcall 10 align 4 mouse: mcall 37,2 cmp eax,1 ; ĺńëč íĺ ëĺâŕ˙, âîçâđŕň jne still_mouse ; ęîîđäčíŕňű ęóđńîđŕ xor ebx,ebx mcall 37 mov ebx,eax ; eax = cursor_x shr eax,16 ; ebx = cursor_y and ebx,0xffff mov [curx1],eax ; curx1 = cursor_x mov [cury1],ebx ; cury1 = cursor_y ; ęîěó ďđčíŕäëĺćčň ňî÷ęŕ? mcall 34,[curx1],[cury1] cmp al,1 ; 1 - ˙äđî jne still_mouse ; check for icon by click down call check_icons_position mov eax,[click_pos] test eax,eax jz still_mouse mov eax,[current_X_mouse_thread] mov [curx_restore],eax mov eax,[current_Y_mouse_thread] mov [cury_restore],eax call draw_select ;-------------------------------------- align 4 @@: ; ďîäîćä¸ě, ďîęŕ ďîëüçîâŕňĺëü íĺ îňďóńňčë ďđŕâóţ ęíîďęó ěűřč mcall 37,2 ; íŕćŕňű ëč ęíîďęč ěűřč? test eax,1 ; ĺńëč îňďóńňčë jz @f ; čä¸ě â íŕ÷ŕëî ăëŕâíîăî öčęëŕ mcall 68,1 ; číŕ÷ĺ ďĺđĺęëţ÷čěń˙ íŕ ńëĺäóţůčé ďîňîę ńčńňĺěű č ęîăäŕ jmp @b ; âűďîëíĺíčĺ âĺđíĺňń˙ ýňîěó ďîňîęó, ďđîâĺđčě ěűřü îď˙ňü ;-------------------------------------- align 4 @@: ; ęîîđäčíŕňű ęóđńîđŕ xor ebx,ebx mcall 37 mov ebx,eax ; eax = cursor_x shr eax,16 ; ebx = cursor_y and ebx,0xffff mov [curx2],eax ; curx1 = cursor_x mov [cury2],ebx ; cury1 = cursor_y ; ęîěó ďđčíŕäëĺćčň ňî÷ęŕ? mcall 34,[curx2],[cury2] cmp al,1 ; 1 - ˙äđî je @f call restore_background jmp still_mouse ;-------------------------------------- align 4 @@: ; check for icon by click down call check_icons_position mov eax,[click_pos] test eax,eax jz still_mouse push eax mov eax,[curx2] mov [curx1],eax mov eax,[cury2] mov [cury1],eax ; check for icon by click up call check_icons_position pop eax call restore_background mov ebx,[click_pos] test ebx,ebx jz still_mouse cmp eax,ebx jne still_mouse ;-------------------------------------- ;start_appl: mov esi,[adress_of_icon_data_2] mov ebx,1 mov edi,finfo.path call fill_paths inc ebx mov edi,param_str mov dword[finfo_start+8],edi call fill_paths cmp byte[edi],0 jne .no0 and dword[finfo_start+8],0 ;-------------------------------------- align 4 .no0: mov ebx,finfo_start mcall 70 jmp still_mouse ;------------------------------------------------------------------------------ align 4 fill_paths: push esi edi movzx ecx,byte[str_lens+ebx] add esi,[positions+ebx*4] push esi add esi,ecx ;-------------------------------------- align 4 .l1: dec esi cmp byte[esi],' ' jnz .found loop .l1 pop esi jmp .noms ;-------------------------------------- align 4 .found: lea ecx,[esi+1] pop esi sub ecx,esi rep movsb ;-------------------------------------- align 4 .noms: and byte[edi],0 pop edi esi ret ;------------------------------------------------------------------------------ align 4 check_icons_position: mov ecx,[icons] mov ebx,icon_data ;-------------------------------------- align 4 .loop: push ebx ecx mov [adress_of_icon_data_2],ebx mov eax,[ebx] call calc_icon_pos mov [current_X_mouse_thread],ebx mov [current_Y_mouse_thread],eax mov eax,[curx1] mov ebx,[current_X_mouse_thread] cmp eax,ebx jb .next add ebx,52 cmp eax,ebx ja .next mov eax,[cury1] mov ebx,[current_Y_mouse_thread] cmp eax,ebx jb .next add ebx,52 cmp eax,ebx ja .next pop ecx ebx mov eax,[adress_of_icon_data_2] mov [click_pos],eax ret ;-------------------------------------- align 4 .next: pop ecx ebx add ebx,REC_SIZE dec ecx jnz .loop ; all icons survived! xor eax,eax mov [click_pos],eax ret ;------------------------------------------------------------------------------ align 4 draw_select: mcall 68,12,52*52*4+8 mov [draw_area_2],eax mov ebx,52 mov [eax],ebx mov [eax+4],ebx ;-------------------------------------- ; draw black square mov eax,-1 mov edi,[draw_area_2] add edi,8 cld mov ecx,52*52 rep stosd ;-------------------------------------- ; draw white square mov eax,0xff000000 mov edi,[draw_area_2] add edi,8+(4*1)+(52*4*1) mov ebx,50 cld ;-------------------------------------- align 4 @@: mov ecx,50 rep stosd add edi,2*4 dec ebx jnz @b ;-------------------------------------- ; draw black square xor eax,eax mov edi,[draw_area_2] add edi,8+(4*2)+(52*4*2) mov ebx,48 cld ;-------------------------------------- align 4 @@: mov ecx,48 rep stosd add edi,4*4 dec ebx jnz @b ;-------------------------------------- mov edx,[current_X_mouse_thread] shl edx,16 add edx,[current_Y_mouse_thread] mov ebx,[draw_area_2] add ebx,8 mcall 25,,<52,52> mcall 68,13,[draw_area_2] ret ;------------------------------------------------------------------------------ align 4 restore_background: pusha mov eax,[curx_restore] mov ecx,eax shl ecx,16 add ecx,eax add ecx,52 mov eax,[cury_restore] mov edx,eax shl edx,16 add edx,eax add edx,52 mcall 15,9 popa ret ;------------------------------------------------------------------------------