int r=10, i, k;
int color1[5], color2[5], color3[5];
color1[0]=12502980; color1[1]=11647155; color1[2]=5658198; color1[3]=7239800; color1[4]=4672844;
color2[0]=5795980; color2[1]=6587037; color2[2]=5336192; color2[3]=342619; color2[4]=2966622;
color3[0]=5994637; color3[1]=3895931; color3[2]=4620688; color3[3]=5465984; color3[4]=2842216;

int kol1[5], kol2[5], kol3[5];
kol1[0]=15; kol1[1]=15; kol1[2]=15; kol1[3]=15; kol1[4]=15;
kol2[0]=20; kol2[1]=15; kol2[2]=15; kol2[3]=5; kol2[4]=5;
kol3[0]=40; kol3[1]=10; kol3[2]=5; kol3[3]=5; kol3[4]=5;


int x[50], y[50];
sleep(500);
int colors, xw, yw;
getdisplay(colors, xw, yw);



k=findheapcolor(50, #color1[0], #kol1[0], 5, 5, #x[0], #y[0], 20, 20, 60, 60, 0, 0, xw, yw, r, r, r, r, r, r, -1);
messagebox (format(k)+" объектов нашли");
textbkcolor (16777215, 255);
for(i=0; i<k; i++)
{
textout(i, x[i], y[i], format(i), 0);
mousemove(x[i], y[i]);
sleep(500);
}

k=findheapcolor(50, #color2[0], #kol2[0], 5, 5, #x[0], #y[0], 20, 20, 60, 60, 0, 0, xw, yw, r, r, r, r, r, r, -1);
messagebox (format(k)+" объектов нашли");
textbkcolor (16777215, 3581134);
for(i=0; i<k; i++)
{
textout(i, x[i], y[i], format(i), 0);
mousemove(x[i], y[i]);
sleep(500);
}

k=findheapcolor(50, #color3[0], #kol3[0], 5, 5, #x[0], #y[0], 20, 20, 60, 60, 0, 0, xw, yw, r, r, r, r, r, r, -1);
messagebox (format(k)+" объектов нашли");
textbkcolor (16777215, 3370616);
for(i=0; i<k; i++)
{
textout(i, x[i], y[i], format(i), 0);
mousemove(x[i], y[i]);
sleep(500);
}

messagebox ("end");