X {g5dHJqpd/X ( @ (//(  0/80@0?/8 0( ?G@POWOXOP?H0@/7@O_``h_hPX 0(P_oppxow_g@O/8'' 7p`o?G/7 0??H/8`/o?GOX@H0?/pOW?H/8 7OP?G/7( P0@PX@O0@ 0O @H/@' 00@@P0?'_OP@H( 7/7' ^^^^^^^^^^^^^^^^^^^^^^^^^^TeeBBBBeTT^^^^^^^eBDJ33333JJDBeZ^^^^TD33==#####==3JDBT^^^^eJ=###=3DeZ^^TB3# #=3JBZ^^T3#  #=JBT^^J# Sll #=JBZ^T# %,68??86,/@A*< ##45('.6787-9%:;*<=#$+&,--.,/01)2 3 $%&&'%($!)* ##  !"#     ??dh[@ add_objvar _type,_i; _type=argument0; _i=srch_free(1); switch(_type) { case 1: obj[_i,idd]=_i; obj[_i,type]=1; obj[_i,name]=get_string('Podaj nazwe punktu:',0); obj[_i,chck]=0; if show_menu('Pozycja: tutaj|Pozycja: szczegolowa',1)+1!=1 { obj[_i,x1]=get_integer('Podaj pozycje na osi x:',0); obj[_i,y1]=get_integer('Podaj pozycje na osi y:',0); } else { obj[_i,x1]=mx; obj[_i,y1]=my; } break; case 2: obj[_i,chck]=0; obj[_i,idd]=_i; obj[_i,type]=2; obj[_i,name]=get_string('Podaj nazwe lini:',0); var _check; _check=show_menu('Pozycja poczatku: tutaj|Pozycja poczatku: szczegolowa|Pozycja poczatku: punkt',0)+1; if _check=2 { obj[_i,x1]=get_integer('Podaj pozycje na osi x:',0); obj[_i,y1]=get_integer('Podaj pozycje na osi y:',0); } else if _check=1 { obj[_i,x1]=mx; obj[_i,y1]=my; } else { var _name,__id; _name=get_string('Podaj nazwe punktu:',0); __id=whr_nam(_name); if __id!=0 { obj[_i,x1]=obj[__id,x1]; obj[_i,y1]=obj[__id,y1]; } else { show_message('Taki punkt nie istnieje!'); exit; } } _check=show_menu('Pozycja konca: szczegolowa|Pozycja konca: dlugosc|Pozycja konca: punkt',0)+1; if _check=1 { obj[_i,x2]=get_integer('Podaj pozycje na osi x:',0); obj[_i,y2]=get_integer('Podaj pozycje na osi y:',0); } else if _check=2 { obj[_i,len]=get_integer('Podaj dlugosc lini:',0); obj[_i,dir]=get_integer('Podaj kierunek lini:',0); obj[_i,x2]=obj[_i,x1]+lengthdir_x(obj[_i,len],obj[_i,dir]); obj[_i,y2]=obj[_i,y1]+lengthdir_y(obj[_i,len],obj[_i,dir]); } else { var _name,__id; _name=get_string('Podaj nazwe punktu:',0); __id=whr_nam(_name); if __id!=0 { obj[_i,x2]=obj[__id,x1]; obj[_i,y2]=obj[__id,y1]; } else { show_message('Taki punkt nie istnieje!'); exit; } } break; }pl_quekvar wyb; wyb=show_message_ext(string(argument0),'Tak',0,'Nie'); if wyb=1 return true; else return false;del_objKvar _td; _td=argument0; if objnum<_td { return 0; } else { for(i=_td; i0 && checking { for(i=1; i<=objnum; i+=1) { switch(obj[i,type]) { case 1: if obj[i,chck]=0 && obj[i,x1]>mx && obj[i,y1]>my && obj[i,x1]mouse_x || obj[i,y1]>mouse_y obj[i,chck]=0; break; case 2: if obj[i,chck]=0 && obj[i,x1]>mx && obj[i,y1]>my && obj[i,x1]mx && obj[i,y2]>my && obj[i,x2]mouse_x || obj[i,y1]>mouse_y || obj[i,x2]mouse_x || obj[i,y2]>mouse_y obj[i,chck]=0; break; } } } 00000008[ checking=0;00000006[checking=0; mx=mouse_x; my=mouse_y; var _chckd,_hm; _chckd=0; _hm=0; if objnum>0 { for(i=1; i<=objnum; i+=1) { if obj[i,chck]=0 continue; _hm+=1; _chckd[_hm]=obj[i,idd]; } } if _hm>0 { switch(show_menu('Usun zaznaczone|Wyrownaj zaznaczone',-1)+1) { case 1: for(i=1; i<=_hm; i+=1) { show_message(string(i)); del_obj(_chckd[i]-i+1); } break; case 2: for(i=1; i<=_hm; i+=1) { obj[i,x1]=obj[i,x1] div grid_w; obj[i,y1]=obj[i,y1] div grid_h; obj[i,x2]=obj[i,x2] div grid_w; obj[i,y2]=obj[i,y2] div grid_h; } break; } } else { switch(show_menu('Wyczysc|Dodaj...',-1)+1) { case 1: if pl_que('Czy napewno chcesz wyczyscic zeszyt?') objnum=0; break; case 2: var _type; _type=show_menu('Punkt|Linia',-1)+1 if _type add_obj(_type); break; } }00000005[%checking=1; mx=mouse_x; my=mouse_y;0000000[!if grid { draw_set_color(c_ltgray); for(i=0; i<=room_width/grid_w; i+=1) { draw_line(i*grid_w,0,i*grid_w,room_height); } for(i=0; i<=room_height/grid_h; i+=1) { draw_line(0,i*grid_h,room_width,i*grid_h); } } draw_set_font(font); if objnum>0 { for(i=1; i<=objnum; i+=1) { if obj[i,chck]=1 draw_set_color(c_lime); else draw_set_color(c_black); switch(obj[i,type]) { case 1: draw_circle(obj[i,x1],obj[i,y1],5,0); draw_text(obj[i,x1]-string_width(obj[i,name])/2,obj[i,y1]-20,obj[i,name]); break; case 2: draw_line(obj[i,x1],obj[i,y1],obj[i,x2],obj[i,y2]); break; } } } if checking && mx