///////////////////////////////////////////////////

int PrivyazkaXY[14][14];//Значок настройки чата (для нахождения окна игры на экране.)
int P_X[1], P_Y[1];//Координаты значка настройки чата на экране
int Privyazka_Radar[12][13];//Значок открытия карты (для нахождения радара)
int P_R_X[1], P_R_Y[1];//Координаты значка открытия карты на экране
int R_X, R_Y;//Координаты середины радара(положение перса)
int R_S_X, R_S_Y;//Координаты левого верхнего угра радара
int R_F_X, R_F_Y;//Координаты нижнего правого угра радара
int r_x[1], r_y[1];//Координаты первой найденой точки на радаре (Моб)
int Vid_Mob[9][9];//Картинка кружочка появляющегося над мобом если на него мышь навести
int V_M_X[1], V_M_Y[1];//Переменные для координат кружочка. (Нам надо проверить только

наличие кружочка. Координаты не важны)
//int Tab_Vid[180][46];//Рисунок таблички которая появляется вверху если щелкнуть на мобе
//int P_T_X[1], P_T_Y[1];//Координаты этой таблички
int c_X, c_Y;//Координаты середины экрана. Примерное положение перса
//int ypor=0;//Счетчик циклов (считает количество циклов когда цель вне досягаемости)
//int hag_st=0;//Переключатель для выбора стороны обхода
int razvorot_obxod=0;//Переключатель для развернуться
int S_X,S_Y,F_X,F_Y;//Левые верхние и нижние правые координаты на экране где находится

область поиска в окне игры.
int Mob_X=2, Mob_Y=2;//Размер крестика который должен быть весь динамичным. (Половинные

размеры)
int Raz_Din_X=50, Raz_Din_Y=50;//Полный размер моба (Половинные размеры) В этом объеме

больше не искать динамику.
int k;//Количество найденых объектов на экране
int x[50], y[50];//Координаты этих объектов
int payza_sravn=1500;//Пауза между сравнением изображения игры для поиска мобов. Увеличить

если при поиске не находятся все мобы. Не успевает показать все меняющиеся пикселя.
int TX, TY;//Вспомагательные
int payza_sravn_R=1500;//Пауза между сравнением изображения радара для поиска на нем мобов

///image////
int Image_0[1][3];
int Image_1[3][5];
int Image_2[24][10];
int Image_3[41][10];



int PosX;int PosY;

int buf_time[2];//тут находится время бафов
buf_time[0]=60000; buf_time[1]=600000;
int buf_t[2];//тут находится счетчик время бафов
buf_t[0]; buf_t[1];

int kX, kY;
win wind;

int error_tim=5000;//Это время давать на то что бы ударил по мобу от взятия в таргет -

превысил - застрял (снять таргет)
int k_error_tim;//Это счетчик времени если перс за определенное время не добежал и не

ударил (застрял)
int error_tim1=25000;
int k_error_tim1;

int col, xek, yek;//цвет экрана и разрешение

////////////////////////////////////////////////////

nastroitclient();
Load_Image();
Pozicion_Image();
//buf_start();
sleep(1000);

//////////////////////////////////////////

sd2:;
if (findimage(1, #Image_0[0][0], 0, #PosX, #PosY, 0, 0, 1280, 768, wind)==0)
{
target();
pause(300);
poisk_null();
pause(300);
Poisk_Radar();
pause(300);
}

goto sd2;
/////////////////
k_error_tim=gettime();//Записать время текущее
k_error_tim1=gettime();//Записать время текущее

sd:;
//hp();
//cp();
if (findimage(1, #Image_0[0][0], 0, #PosX, #PosY, 0, 0, 1280, 768, wind)==1)
{
{
if (gettime()-k_error_tim>error_tim)//Если превысил время (застрял или долгий бой)
{
if (findimage(1, #Image_1[0][0], 0, #PosX, #PosY, 0, 0, 1280, 768, wind)==1)//Усли моб

целый (красный конец хп) значит застрял
{
sendkey(ESCAPE, wind);//Нажать Es (таргет снять)
pause(rand(250, 350));
Cikl();
goto sd2;
}
}

if (gettime()-k_error_tim1>error_tim1)//Если превысил время (застрял или долгий бой)
{
if (findimage(1, #Image_0[0][0], 0, #PosX, #PosY, 0, 0, 1280, 768, wind)==1)//Усли моб

целый (красный конец хп) значит застрял
{
sendkey(ESCAPE, wind);//Нажать Es (таргет снять)
pause(rand(250, 350));
Cikl();
goto sd2;
}
}

mp();
//hp();
//cp();

attack();

goto sd;
}
pause(rand(100, 300));
sendkey(ESCAPE, wind);//Нажать Es
}
//bufi();

goto sd2;

/////////////////////////////////////////////////////

function target()
{
if (findimage(1, #Image_0[0][0], 0, #PosX, #PosY, 0, 0, 1280, 768, wind)==0)
{
sendkey(F4, wind); //макрос на ассист
pause(rand(350, 450));
}
attack();
}

/////////////////////////////////////////////////////

function attack()
{
sendkey(F1, wind); // атака моба
pause(rand(300, 400));
sendkey(F1, wind); // атака моба
pause(rand(300, 400));
sendkey(F3, wind); // атака моба
pause(rand(300, 400));
}

/////////////////////////////////////////////////////

function Poisk_Radar()//Искать мобов на радаре и передвижение бота к мобу
{
int j=0;
int kj=10;
int rastX=10, rastY=10;
mousemove(c_X, c_Y, wind);//Мышь навести на себя
sleep(500);
finddynamic(0, #r_x[0], #r_y[0], 0, 0, 0, 0, R_S_X, R_S_Y, R_F_X, R_F_Y, wind);//Получить

изображение радара
sleep(payza_sravn_R);//Пауза между сравнением для поиска изменений
if (finddynamic(1, #r_x[0], #r_y[0], 2, 2, 5, 5, R_S_X, R_S_Y, R_F_X, R_F_Y,

wind)==1)//Получить изображение радара и сравнить с прошлым. Получить координаты

динамичных объектов.
{
s:;
rastX=(R_S_X+r_x[0]-R_X)*20;//Растояние на радаре от наденой точки до середины радара

(игрока) X
rastY=(R_S_Y+r_y[0]-R_Y)*20;//Растояние на радаре от наденой точки до середины радара

(игрока) Y
if (rastX<0)rastX=-rastX;
if (rastY<0)rastY=-rastY;
if (rastX>220)rastX=rand(200, 220);
if (rastY>220)rastY=rand(200, 220);

Зависимо от направления щелкать мышью и бежать к мобу
if (R_S_X+r_x[0]<R_X && R_S_Y+r_y[0]<R_Y){mouse(LEFT, c_X-rastX, c_Y-rastY, 0,

wind);kj=10; target();}//mX_mY
if (R_S_X+r_x[0]<R_X && R_S_Y+r_y[0]>R_Y){mouse(LEFT, c_X-rastX, c_Y+rastY, 0, wind);

kj=20; target();}//mX_pY
if (R_S_X+r_x[0]>R_X && R_S_Y+r_y[0]>R_Y){mouse(LEFT, c_X+rastX, c_Y+rastY, 0, wind);

kj=20; target();}//pX_pY
if (R_S_X+r_x[0]>R_X && R_S_Y+r_y[0]<R_Y){mouse(LEFT, c_X+rastX, c_Y-rastY, 0, wind);

kj=10; target();}//pX_mY
poisk_null();
j++;
sleep(300);
if (j<kj) goto s;//Повторить указанное количество шагов
mouse(LEFT, c_X, c_Y, 0, wind);//Щелкнуть на себя
}

}

/////////////////////////////////////////////////////

function poisk_null()
{
k=Poisk();//Искать всю динамику на экране игры
if (k>49)//Развернуть (много динамики. шум)
{
razvorot_obxod=0;
Cikl1();
Poisk_Radar();
target();
}

sort();//Сортировка по растоянию Моб-Персонаж
if (k>25)k=25;//Оставить 25 ближних

if (Perebor_Mobov()==1)
{
sleep(rand(150, 250));
target();
}//Перебрать динамику в цикле и если моб атаковать
Poisk_Radar();
target();
razvorot_obxod++;//Счетчик необходимости разворота увеличиваем
if (razvorot_obxod>1)//Развернуться
{
razvorot_obxod=0;
Cikl1();//Функция разворота
}
sleep(200);
target();
}

/////////////////////////////////////////////////////

function Perebor_Mobov()//Перебор всех динамичных объектов на экране
{
int n=0;
ck: if (n<k)//1//Цикл перебора найденых анимированных участков
{
TX=S_X+x[n]; TY=S_Y+y[n];
Trysit_Mouse(TX, TY);//Потрусить мышью над мобом

if (findimage(1, #Vid_Mob[0][0], 0, #V_M_X[0], #V_M_Y[0], TX-80, TY-100, TX+80, TY,

wind)==1)//Проверяем появление кружочка над объектом. Он появляется над мобами и т.д.
{
mousedbl(LEFT, TX, TY, 0, wind);//Кликнуть на объекте
sleep(200);
target(); //Идем проверять или это точно моб и если моб бьем его
}
n++;
goto ck;
}//1
}

/////////////////////////////////////////////////////

function Trysit_Mouse(int x, int y)//Потрусить мышью над мобом
{
mousemove(x, y, wind); sleep(50);
mousemove(x-1, y, wind); sleep(50);
mousemove(x, y-1, wind); sleep(50);
mousemove(x+1, y, wind); sleep(50);
mousemove(x, y+1, wind); sleep(50);
mousemove(x, y, wind); sleep(50);
}

/////////////////////////////////////////////////////

function Poisk()//Сканируем экран на наличие динамики (мобов и т. д.)
{
finddynamic(0, #x[0], #y[0], 0, 0, 0, 0, S_X, S_Y, F_X, F_Y, wind);//Получить изображение

игры
sleep(payza_sravn);//Пауза между сравнением для поиска изменений
finddynamic(50, #x[0], #y[0], Mob_X, Mob_Y, Raz_Din_X, Raz_Din_Y, S_X, S_Y, F_X, F_Y,

wind);//Получить изображение игры и сравнить с прошлым. Получить координаты динамичных

объектов.
}

/////////////////////////////////////////////////////

function Cikl()//Изменяем положение перса или разворачиваем его для выхода из столбняка.
{
mouse(LEFT, c_X+rand(150, 200), c_Y+rand(150, 200), 0, wind);
sleep(rand(700, 1200));
target();
mouse(LEFT, c_X+rand(150, 200), c_Y-rand(150, 200), 0, wind);
sleep(rand(700, 1200));
target();
mouse(LEFT, c_X-rand(150, 200), c_Y-rand(150, 200), 0, wind);
sleep(rand(700, 1200));
target();
mouse(LEFT, c_X-rand(150, 200), c_Y+rand(150, 200), 0, wind);
sleep(rand(700, 1200));
target();
}

/////////////////////////////////////////////////////

function Cikl1()
{
sendkey(END, wind);//нажать среднюю кнопку разворот
sleep(2000);
target();
attack();
}

/////////////////////////////////////////////////////

function sort()//Сортировка по растоянию Моб-Персонаж (пузырьковая сортировка)
{
int rast, rast1, rsX, rsY, n, n1, t_x, t_y;
n=0;
pr: if (n<k)
{
//////////
n1=k-1;
pr1: if (n1>n)
{
/////////
rsX=x[n1-1]-(c_X-S_X); rsY=y[n1-1]-(c_Y-S_Y); rast=(rsX*rsX)+(rsY*rsY);
rsX=x[n1]-(c_X-S_X); rsY=y[n1]-(c_Y-S_Y); rast1=(rsX*rsX)+(rsY*rsY);
if (rast>rast1)
{
t_x=x[n1-1];t_y=y[n1-1];
x[n1-1]=x[n1];y[n1-1]=y[n1];
x[n1]=t_x;y[n1]=t_y;
}
/////////
n1--;
goto pr1;
}
//////////
n++;
goto pr;
}
}

/////////////////////////////////////////////////////
function nastroitclient()
{
getdisplay(col, xek, yek);//Определить какое разрешение
xek=xek/2-200; yek=yek/2;//Вывод текста по эти координатам. центр

textbkcolor (0,8421631);//Установка цвета текста
textout(0, xek, yek, "Жми F12", 0);
hu: if (getkeystate(123)==0){sleep(20); goto hu;}
sleep(200);
getmouse(kX, kY);
wind=getwindow(1, kX, kY);
pause (1000);//Пауза что бы успел отпустить кнопку

wind.widthclient=1280;
wind.heightclient=768;

moveclient(wind);

textout(0, xek, yek, "", 2);
resettextout(1);
textbkcolor (0,65280);//Установка цвета текста
}

///////////////////////////////////////////////////////////////////////

function Load_Image()//Грузятся рисунки
{
if (loadimage (#Image_0[0][0], "C:\Kibor\allbts\nachalo_hp.bmp"==-1)return -1;
if (loadimage (#Image_1[0][0], "C:\Kibor\allbts\konec_hp.bmp"==-1)return -1;
if (loadimage (#Image_2[0][0], "C:\Kibor\allbts\hp.bmp"==-1)return -1;
if (loadimage (#Image_3[0][0], "C:\Kibor\allbts\mp.bmp"==-1)return -1;
if (loadimage (#PrivyazkaXY[0][0], "C:\Kibor\allbts\chat.bmp"==-1)return -1;
if (loadimage (#Vid_Mob[0][0], "C:\Kibor\allbts\t_mob.bmp"==-1)return -1;
if (loadimage (#Privyazka_Radar[0][0], "C:\Kibor\allbts\radar12.bmp"==-1)return -1;
return 0;
}

///////////////////////////////////////////////////////////////////////

function Pozicion_Image()//Узнать позиции рисунков на экране для обозначения координат

окна игры и необходимых элементов для работы бота
{
int xe, ye, color;
getdisplay(color, xe,ye);//Знать разрешение экрана
if (findimage(1, #PrivyazkaXY[0][0], 0, #P_X[0], #P_Y[0], 0, 0, xe, ye, wind)==0)

{messagebox("Не найден в игре рисунок кнопки настройки чата. Позиция не определена.";

return -1;}
S_X=P_X[0]; S_Y=P_Y[0]-605;//Левый верхний угол игрового поля
F_X=P_X[0]+1266; F_Y=P_Y[0]-160;//Правый нижний угол игрового поля
c_X=S_X+630; c_Y=S_Y+360;//Центр поля (позиция игрока)

if (findimage(1, #Privyazka_Radar[0][0], 0, #P_R_X[0], #P_R_Y[0], 0, 0, xe, ye, wind)==0)

{messagebox("Не найден в игре рисунок кнопки настройка радара. Включите радар и повторите

попытку."; return -1;}
R_X=P_R_X[0]-78; R_Y=P_R_Y[0]+74;//Координаты центра радара (позиция игрока)
R_S_X=P_R_X[0]-123; R_S_Y=P_R_Y[0]+20;//Координаты левого верхнего угра радара
R_F_X=P_R_X[0]-33; R_F_Y=P_R_Y[0]+125;//Координаты нижнего правого угра радара
}


//1267, 15 // molotok
//1234, 140 // priviy
//1144, 32 // leviy
//1189, 89 // centr
///////////////////////////////////////////////////////////////////////