int n, s, a;
win w_KIB;
int ex_KIB, ey_KIB, sum_KIB, x_KIB, y_KIB;
int Image_0_KIB[19][11];
int Image_1_KIB[12][9];
int Image_2_KIB[23][3];
int Image_3_KIB[53][10];
int Image_4_KIB[9][9];
int Image_5_KIB[26][10];

start_();

m_KIB2: if (findimage_(#Image_0_KIB[0][0], 0, 0, 0, 1, 0, 0, 0, -1, 0, 100, 1, 0, 0, ex_KIB, ey_KIB, #sum_KIB, #x_KIB, #y_KIB)>0) goto m_KIB4;
else goto m_KIB4;
m_KIB4: if (findimage_(#Image_2_KIB[0][0], 0, 0, 0, 1, 0, 0, 0, -1, 0, 100, 1, 0, 0, ex_KIB, ey_KIB, #sum_KIB, #x_KIB, #y_KIB)>0) goto m_KIB6;
else goto m_KIB6;
m_KIB6: if (findimage_(#Image_3_KIB[0][0], 120000, 0, 0, 0, 0, 0, 0, -1, 0, 100, 1, 0, 0, ex_KIB, ey_KIB, #sum_KIB, #x_KIB, #y_KIB)>0) goto m_KIB7;
else goto m_KIB3;
m_KIB7: key(" Привет:3 ", 1, 1, w_KIB);
key(13);
key(" текст вапавпвуе3453 ", 1, 1, w_KIB);
pause(2000);
key(13);
n=0;
m_KIB11: if (findimage_(#Image_2_KIB[0][0], 1000, 0, 0, 1, 0, 0, 0, -1, 0, 100, 1, 0, 0, ex_KIB, ey_KIB, #sum_KIB, #x_KIB, #y_KIB)>0) goto m_KIB6;
else goto m_KIB14;
m_KIB3: findimage_(#Image_1_KIB[0][0], 2000, 0, 0, 1, 0, 0, 0, -1, 0, 100, 1, 0, 0, ex_KIB, ey_KIB, #sum_KIB, #x_KIB, #y_KIB);
key_(13, 1, 1000, 1000); goto m_KIB2;
m_KIB5: R:; goto m_KIB3;
m_KIB9: E:; goto m_KIB8;
m_KIB10: Q:;
key(" текст 53453453", 1, 1, w_KIB);
key(13);
findimage_(#Image_5_KIB[0][0], 0, 0, 0, 0, 0, 0, 0, -1, 0, 100, 1, 0, 0, ex_KIB, ey_KIB, #a, #x_KIB, #y_KIB);
m_KIB12: if (findimage_(#Image_4_KIB[0][0], 1000, 0, 0, 0, 0, 0, 0, -1, 0, 100, 1, 0, 0, ex_KIB, ey_KIB, #sum_KIB, #x_KIB, #y_KIB)>0) goto m_KIB17;
else goto m_KIB11;
m_KIB17: beep(100, 300);
beep(200, 300);
beep(300, 300);
beep(400, 300);
beep(500, 300);
beep(600, 300);
beep(700, 300);
beep(800, 300);
key(" текст 123123 ) ", 1, 1, w_KIB);
key(13);
pause(30000);
beep(1000, 1000); goto exit_KIB;
m_KIB15: n++;
if (n==15) goto Q;
if (s==2) goto E;
if (n==20) goto R; goto m_KIB12;
m_KIB14: findimage_(#Image_5_KIB[0][0], 0, 0, 0, 0, 0, 0, 0, -1, 0, 100, 1, 0, 0, ex_KIB, ey_KIB, #s, #x_KIB, #y_KIB); goto m_KIB15;
m_KIB8: beep(100, 300);
beep(200, 300);
beep(300, 300);
beep(400, 300);
beep(500, 300);
beep(600, 300);
exit_KIB:;


function start_()
{
load_image_();
pause(1000);
int x, y;
getmouse(x, y);
w_KIB=getwindow(1, x, y);
ex_KIB=w_KIB.widthclient; ey_KIB=w_KIB.heightclient;
}


function key_(int k, int m, int p1, int p2)
{
pause(p1);
if (m==1) sendkey(k, w_KIB);
if (m==2) keydown(k);
if (m==3) keyup(k);
pause(p2);
}


function findimage_(int #Image, int t, int p1, int p2, int m, int xm, int ym, int p3, int fon, int r, int p, int k, int xs, int ys, int xf, int yf, int#sum, int#x, int#y)
{
int timKIB, sumKIB, xKIB, yKIB;
pause(p1);
sumKIB=0;
if (t!=1) timKIB=gettime();
a: if (r==0 && p==100){sum=findimage(k, #Image[0][0], fon, #x[0], #y[0], xs, ys, xf, yf, w_KIB); if (sum>0) goto e;}
else {sum=findimage(k, #Image[0][0], fon, #x[0], #y[0], xs, ys, xf, yf, r, r, r, r, r, r, p, 1, w_KIB); if (sum>0) goto e;}
if (t==0) return 0;
if (gettime()-timKIB<t){sleep(20); goto a;}
return 0;
e: sumKIB=sum; xKIB=x[0]; yKIB=y[0];
pause(p2);
if (m==1){sendmouse(LEFT, xs+xKIB+xm, ys+yKIB+ym, w_KIB); pause(p3);}
if (m==2){sendmouse(MIDDLE, xs+xKIB+xm, ys+yKIB+ym, w_KIB); pause(p3);}
if (m==3){sendmouse(RIGHT, xs+xKIB+xm, ys+yKIB+ym, w_KIB); pause(p3);}
if (m==4){sendmousedown(LEFT, xs+xKIB+xm, ys+yKIB+ym, w_KIB); pause(p3);}
if (m==5){sendmousedown(MIDDLE, xs+xKIB+xm, ys+yKIB+ym, w_KIB); pause(p3);}
if (m==6){sendmousedown(RIGHT, xs+xKIB+xm, ys+yKIB+ym, w_KIB); pause(p3);}
if (m==7){sendmouseup(LEFT, xs+xKIB+xm, ys+yKIB+ym, w_KIB); pause(p3);}
if (m==8){sendmouseup(MIDDLE, xs+xKIB+xm, ys+yKIB+ym, w_KIB); pause(p3);}
if (m==9){sendmouseup(RIGHT, xs+xKIB+xm, ys+yKIB+ym, w_KIB); pause(p3);}
if (m==10){sendmousemove(xs+xKIB+xm, ys+yKIB+ym, w_KIB); pause(p3);}
return sumKIB;
}




function load_image_()
{
loadimage (#Image_0_KIB[0][0], "D:\Kibor\Бот_чат\арена\некто\начать_чат.bmp");
loadimage (#Image_1_KIB[0][0], "D:\Kibor\Бот_чат\арена\некто\откл.bmp");
loadimage (#Image_2_KIB[0][0], "D:\Kibor\Бот_чат\арена\некто\начать_новую.bmp");
loadimage (#Image_3_KIB[0][0], "D:\Kibor\Бот_чат\арена\некто\найден.bmp");
loadimage (#Image_4_KIB[0][0], "D:\Kibor\Бот_чат\арена\некто\плюс.bmp");
loadimage (#Image_5_KIB[0][0], "D:\Kibor\Бот_чат\арена\некто\некто.bmp");
}