win W_Kib;
int Screen[3000][3000];
int K_Kib;
int X_Kib[1000];
int Y_Kib[1000];
int Color0[5] = {989485, 1713975, 397081, 4864310, 13948363};
int Kol0[5] = {200, 100, 90, 80, 70};
int eCol_Kib;
int eX_Kib;
int eY_Kib;

getdisplay(eCol_Kib, eX_Kib, eY_Kib);

KIB_1: if (FindHeapcolor(0, #Screen[0][0], #W_Kib, W_Kib.leftclient, W_Kib.topclient, 68, 147, 136, 294, #Color0[0], #Kol0[0], 5, 5, 1, 0, 0, 0, #K_Kib, #X_Kib[0], #Y_Kib[0], 0, 0, eX_Kib, eY_Kib, 1500, 1500, 10, 0, "0, 0, 0, 0", 0, "Бездействие", 0, 0, 1500, 0, 5, 5, 0, 0)>0) goto KIB_2;
goto KIB_3;
KIB_2:;
textbkcolor(0, 16777215); textout(0, X_Kib, Y_Kib, "Текст", 0);
goto KIB_1;
KIB_3:;
textbkcolor(0, 16777215); textout(0, -1, -1, "Текст", 0);
goto KIB_1;

function FindHeapcolor(int ew, int #Scr, win #w, int v_x, int v_y, int Obl_n_x, int Obl_n_y, int Obl_o_x, int Obl_o_y, int #col, int #kol, int k_col, int kol_col, int k, int Sort, int sortx, int sorty, int #mK, int #mX, int #mY, int ex1, int ey1, int ex2, int ey2, int p1, int t, int r, int ignor, string mas_ignor, int p2, string m, int smx, int smy, int p3, int per_m, int per_x, int per_y, int p4, int povtor)
{
pause (p1);
int pvt=0;
int tsmx=smx, tsmy=smy;
S:;
if (t==0)goto d1r;
looptime(t)
{
d1r:;
if (ew==0)mK=findheapcolor(k, #col[0], #kol[0], k_col, kol_col, #mX[0], #mY[0], Obl_n_x, Obl_n_y, Obl_o_x, Obl_o_y, ex1, ey1, ex2, ey2, r, r, r, r, r, r, -1);
if (ew==1)mK=findheapcolor(k, #col[0], #kol[0], k_col, kol_col, #mX[0], #mY[0], Obl_n_x, Obl_n_y, Obl_o_x, Obl_o_y, v_x+ex1, v_y+ey1, v_x+ex2, v_y+ey2, r, r, r, r, r, r, -1);
if (ew==2)mK=findheapcolor(k, #col[0], #kol[0], k_col, kol_col, #mX[0], #mY[0], Obl_n_x, Obl_n_y, Obl_o_x, Obl_o_y, ex1, ey1, ex2, ey2, r, r, r, r, r, r, w);
if (ew==3 || ew==4)mK=findheapcolor(k, #col[0], #kol[0], k_col, kol_col, #mX[0], #mY[0], Obl_n_x, Obl_n_y, Obl_o_x, Obl_o_y, ex1, ey1, ex2, ey2, r, r, r, r, r, r, #Scr[0][0]);
if (mK>0 || t==0) break;
sleep(5);
}
if (mK<1) return mK;
if (ew==3 || ew==4){ex1=ex1+screenstartx(); ey1=ey1+screenstarty();}
for (int n=0; n<mK; n++)
{
mX[n]=mX[n]+ex1;
mY[n]=mY[n]+ey1;
}
if (ignor)
{
mas_ignor=mas_ignor+"^r^n";
string P[4];
int x1, y1, x2, y2;
if (regexsearch(4, #P[0], mas_ignor, "[0-9]+(?=,|\r\n)")==4)
{
x1=formatsn(P[0]); y1=formatsn(P[1]); x2=formatsn(P[2]); y2=formatsn(P[3]);
for (n=0; n<mK; n++)
{
if (mX[n]>x1 && mX[n]<x2 && mY[n]>y1 && mY[n]<y2)
{
mK--;
for (int n1=n; n1<mK; n1++)
{
mX[n1]=mX[n1+1]; mY[n1]=mY[n1+1];
}
if (mK<1) return mK;
n--;
}
}
while (regexsearch(4, #P[0])==4)
{
x1=formatsn(P[0]); y1=formatsn(P[1]); x2=formatsn(P[2]); y2=formatsn(P[3]);
for (n=0; n<mK; n++)
{
if (mX[n]>x1 && mX[n]<x2 && mY[n]>y1 && mY[n]<y2)
{
mK--;
for (n1=n; n1<mK; n1++)
{
mX[n1]=mX[n1+1]; mY[n1]=mY[n1+1];
}
if (mK<1) return mK;
n--;
}
}
}
}
}

if (Sort) sort(sortx, sorty, #mX[0], #mY[0], mK);
pause (p2);
if (ew==0 || ew==3 || ew==1)
{
if (ew==1){smx=v_x+smx; smy=v_y+smy;}
if (m=="Левую клик"){mouse(LEFT, smx+mX[0], smy+mY[0]); goto hy;}
if (m=="Среднюю клик"){mouse(MIDDLE, smx+mX[0], smy+mY[0]); goto hy;}
if (m=="Правую клик"){mouse(RIGHT, smx+mX[0], smy+mY[0]); goto hy;}
if (m=="Левую нажать"){mousedown(LEFT, smx+mX[0], smy+mY[0]); goto hy;}
if (m=="Среднюю нажать"){mousedown(MIDDLE, smx+mX[0], smy+mY[0]); goto hy;}
if (m=="Правую нажать"){mousedown(RIGHT, smx+mX[0], smy+mY[0]); goto hy;}
if (m=="Левую отпустить"){mouseup(LEFT, smx+mX[0], smy+mY[0]); goto hy;}
if (m=="Среднюю отпустить"){mouseup(MIDDLE, smx+mX[0], smy+mY[0]); goto hy;}
if (m=="Правую отпустить"){mouseup(RIGHT, smx+mX[0], smy+mY[0]); goto hy;}
if (m=="Левая двойной клик"){mousedbl(LEFT, smx+mX[0], smy+mY[0]); goto hy;}
if (m=="Средняя двойной клик"){mousedbl(MIDDLE, smx+mX[0], smy+mY[0]); goto hy;}
if (m=="Правая двойной клик"){mousedbl(RIGHT, smx+mX[0], smy+mY[0]); goto hy;}
if (m=="Переместить"){mousemove(smx+mX[0], smy+mY[0]); goto hy;}
}
if (ew==2 || ew==4)
{
if (m=="Левую клик"){sendmouse(LEFT, smx+mX[0], smy+mY[0], w); goto hy;}
if (m=="Среднюю клик"){sendmouse(MIDDLE, smx+mX[0], smy+mY[0], w); goto hy;}
if (m=="Правую клик"){sendmouse(RIGHT, smx+mX[0], smy+mY[0], w); goto hy;}
if (m=="Левую нажать"){sendmousedown(LEFT, smx+mX[0], smy+mY[0], w); goto hy;}
if (m=="Среднюю нажать"){sendmousedown(MIDDLE, smx+mX[0], smy+mY[0], w); goto hy;}
if (m=="Правую нажать"){sendmousedown(RIGHT, smx+mX[0], smy+mY[0], w); goto hy;}
if (m=="Левую отпустить"){sendmouseup(LEFT, smx+mX[0], smy+mY[0], w); goto hy;}
if (m=="Среднюю отпустить"){sendmouseup(MIDDLE, smx+mX[0], smy+mY[0], w); goto hy;}
if (m=="Правую отпустить"){sendmouseup(RIGHT, smx+mX[0], smy+mY[0], w); goto hy;}
if (m=="Левая двойной клик"){sendmousedbl(LEFT, smx+mX[0], smy+mY[0], w); goto hy;}
if (m=="Средняя двойной клик"){sendmousedbl(MIDDLE, smx+mX[0], smy+mY[0], w); goto hy;}
if (m=="Правая двойной клик"){sendmousedbl(RIGHT, smx+mX[0], smy+mY[0], w); goto hy;}
if (m=="Переместить")sendmousemove(smx+mX[0], smy+mY[0], w);
}
hy: if (m!="Бездействие")
{
pause (p3);
if (per_m)
{
if (ew==0 || ew==3 || ew==1)mousemove(per_x, per_y);
if (ew==2 || ew==4)sendmousemove(per_x, per_y, w);
}
}
int tX, tY;
if (p4>0)
{
looptime(p4)
{
if (ew==0){if (findheapcolor(1, #col[0], #kol[0], k_col, kol_col, #tX, #tY, Obl_n_x, Obl_n_y, Obl_o_x, Obl_o_y, ex1, ey1, ex2, ey2, r, r, r, r, r, r, -1)==0) return mK;}
if (ew==1){if (findheapcolor(1, #col[0], #kol[0], k_col, kol_col, #tX, #tY, Obl_n_x, Obl_n_y, Obl_o_x, Obl_o_y, v_x+ex1, v_y+ey1, v_x+ex2, v_y+ey2, r, r, r, r, r, r, -1)==0) return mK;}
if (ew==2){if (findheapcolor(1, #col[0], #kol[0], k_col, kol_col, #tX, #tY, Obl_n_x, Obl_n_y, Obl_o_x, Obl_o_y, ex1, ey1, ex2, ey2, r, r, r, r, r, r, w)==0) return mK;}
if (ew==3 || ew==4){if (findheapcolor(1, #col[0], #kol[0], k_col, kol_col, #tX, #tY, Obl_n_x, Obl_n_y, Obl_o_x, Obl_o_y, ex1, ey1, ex2, ey2, r, r, r, r, r, r, #Scr[0][0])==0) return mK;}
sleep(5);
}
}
if (povtor>0 && pvt<povtor)
{
smx=tsmx; smy=tsmy;
if (ew==0){if (findheapcolor(1, #col[0], #kol[0], k_col, kol_col, #tX, #tY, Obl_n_x, Obl_n_y, Obl_o_x, Obl_o_y, ex1, ey1, ex2, ey2, r, r, r, r, r, r, -1)==1) {pvt++; goto S;}}
if (ew==1){if (findheapcolor(1, #col[0], #kol[0], k_col, kol_col, #tX, #tY, Obl_n_x, Obl_n_y, Obl_o_x, Obl_o_y, v_x+ex1, v_y+ey1, v_x+ex2, v_y+ey2, r, r, r, r, r, r, -1)==1) {pvt++; goto S;}}
if (ew==2){if (findheapcolor(1, #col[0], #kol[0], k_col, kol_col, #tX, #tY, Obl_n_x, Obl_n_y, Obl_o_x, Obl_o_y, ex1, ey1, ex2, ey2, r, r, r, r, r, r, w)==1) {pvt++; goto S;}}
if (ew==3 || ew==4){if (findheapcolor(1, #col[0], #kol[0], k_col, kol_col, #tX, #tY, Obl_n_x, Obl_n_y, Obl_o_x, Obl_o_y, ex1, ey1, ex2, ey2, r, r, r, r, r, r, #Scr[0][0])==1) {pvt++; goto S;}}
}
return mK;
}

getdisplay ( eCol_Kib , eX_Kib , eY_Kib )
if ( FindHeapcolor ( 0 , # Screen [ 0 ] [ 0 ] , # W_Kib , W_Kib.leftclient , W_Kib.topclient , 500 , 500 , 500 , 500 , # Color0 [ 0 ] , # Kol0 [ 0 ] , 10 , 8 , - 1 , 0 , 0 , 0 , # K_Kib , # X_Kib [ 0 ] , # Y_Kib [ 0 ] , 0 , 0 , eX_Kib , eY_Kib , 1000 , 1000 , 10 , 0 , " 0 " + formatic ( 44 ) + " 0 " + formatic ( 44 ) + " 0 " + formatic ( 44 ) + " 0 " , 1000 , " Бездействие " , 0 , 0 , 0 , 0 , 5 , 5 , 0 , 0 ) > 0 )
pause ( p1 )
int pvt = 0
int tsmx = smx , tsmy = smy
if ( t == 0 )
looptime ( t )
if ( ew == 0 )
mK = findheapcolor ( k , # col [ 0 ] , # kol [ 0 ] , k_col , kol_col , # mX [ 0 ] , # mY [ 0 ] , Obl_n_x , Obl_n_y , Obl_o_x , Obl_o_y , ex1 , ey1 , ex2 , ey2 , r , r , r , r , r , r , - 1 )
if ( ew == 1 )