string OPIT[10000];
string SHAR[10000];
int OC[10000];
if (Бот_Обучение==1)enabletimer(0);
int MOC=formatsn(getcontrol(EDIT_0));//0
//Координаты сканирования линии
int LINE_X1=780;
int LINE_X2=1110;
int LINE_Y1=740;
int LINE_Y2=LINE_Y1+1;
//Зона сканирования шара
int Shar0[4]={645, 950, 678, 973}
int Shar1[4]={935, 940, 980, 970}
int Shar2[4]={1170, 940, 1220, 970}
int otrez=10;//Делим на столько отрезков линию
int otr=(LINE_X2-LINE_X1)/otrez;//Узнаем длину отрезка
int r=20;
int Color_White=16448255;//Белый пиксель
int Цвет_Шар=5921369;//Цвет пикселя шара
int CE, XE, YE;
int SCREEN[5000][5000];
string T;
string Shar;
int kml_OPIT=0;
if (fopen ("E:\бот\бот\ii.txt", "r")!=0)
{
A: fread(OPIT[kml_OPIT]);
fread(SHAR[kml_OPIT]);
if (fread(OC[kml_OPIT]))
{
//Нсли файл открыт для работы бота
if (Бот_Обучение==0)
{
if (OC[kml_OPIT]>=MOC) kml_OPIT++;//Если оценка равна илы выше чем в настройках
}
else kml_OPIT++;
goto A;
}
fclose();
if (kml_OPIT>0) kml_OPIT++;
OPIT[kml_OPIT]="";
}
int tkml_OPIT=kml_OPIT;//Запоминаем сколько уроков мы прочитали с файла
getdisplay(CE, XE, YE);
int p2=100;//Пауза после нажатия
Положение_Шара();//Узнаем пложение шара
loop()
{
T="";
screen (#SCREEN[0][0], 0, 0, XE, YE, -1);//Получаем скрин всего экрана
for (int X=LINE_X1; X<LINE_X2; X=X+otr)
{
if (sumcolor(otr, X, LINE_Y1, X+otr, LINE_Y2, Color_White, r, r, r, r, r, r, #SCREEN[0][0])==otr) T=T+"_";//Если на данном отрезке все пикселя белые
else T=T+"O";
}
//Если обучение
//<37 ^38 >39
if (Бот_Обучение==1)
{
//Если во время обучения была нажата кнопка, откатываем несколько шагов запомненных уроков назад (так как до этого шар был не на верном месте)
if (getkeystate(37) || getkeystate(38) || getkeystate(39))
{
kml_OPIT=kml_OPIT-3;
if (kml_OPIT<tkml_OPIT)kml_OPIT=tkml_OPIT;//Не откатывать менее чем прочитали с файла
sleep(p2);
continue;
}
if (T=="__________" || T=="OOOOOOOOOO")continue;//Игнорирует полностью белое или заполненное поле пикселей
OPIT[kml_OPIT]=T;//Запоминаем карту заполненных пикселей
Положение_Шара();//Узнаем пложение шара
SHAR[kml_OPIT]=Shar;//Запоминаем положение шара
kiborlog (0, OPIT[kml_OPIT]+" "+SHAR[kml_OPIT]+" -- "+format(kml_OPIT), 5, 5, 500, 300);
kml_OPIT++;//Увеличиваем счетчик уроков
OPIT[kml_OPIT]="";
}
//Если запущен Бот на работу
if (Бот_Обучение==0)
{
//Смотрим весь список уроков
for (int n=0; n<kml_OPIT; n++)
{
if (T==OPIT[n])//Если карта просканированных пикселей совпала с картой урока
{
if (Shar!=SHAR[n])//Если положение шара не такое как на уроке
{
//Сдвигаем шар в нужную позицию учитывая где он сейчас
if (Shar=="0")
{
if (SHAR[n]=="1"){key(39);sleep(p2); Положение_Шара();}
if (SHAR[n]=="2"){key(39);sleep(250);key(39);sleep(p2); Положение_Шара();}
}
if (Shar=="1")
{
if (SHAR[n]=="0"){key(37);sleep(p2); Положение_Шара();}
if (SHAR[n]=="2"){key(39);sleep(p2); Положение_Шара();}
}
if (Shar=="2")
{
if (SHAR[n]=="0"){key(37);sleep(250);key(37);sleep(p2); Положение_Шара();}
if (SHAR[n]=="1"){key(37);sleep(p2); Положение_Шара();}
}
}
kiborlog (0, T+" "+Shar+" -- "+OPIT[n]+" "+SHAR[n], 5, 5, 500, 300);
goto NNR;//Выходим с цикла чтения уроков
}
}
kiborlog (0, T+" "+Shar, 5, 5, 500, 300);
NNR:;
}
}
ex:;
function save()
{
string OPIT1[10000];
string SHAR1[10000];
int OC1[10000];
int kml_OPIT1;
//Присваиваем оценки каждому уроку по количеству его совпадений Пикселей и Положению шара
//Уроки (совпадение Пикселей и Положению шара) могут повторяться, но самые высокие оценки получат те которые выше по списку
initialarray(#OC[0], 0);
for (int e=0; e<kml_OPIT; e++)
{
for (int e1=e+1; e1<kml_OPIT; e1++)
{
if (OPIT[e]==OPIT[e1] && SHAR[e]==SHAR[e1])OC[e]++;
}
}
////////////////////////////////
//Отсеиваем все уроки 0 оценкой
//Отсеиваем уроки (совпадение Пикселей и Положению шара) которые ниже по списку
//Остаются только уроки с наиболее высшей оценкой, так как они выше по списку.
kml_OPIT1=0;
for (e=0; e<kml_OPIT; e++)
{
if (OC[e]==0)goto nn;
for (e1=0; e1<kml_OPIT1; e1++)
{
if (OPIT[e]==OPIT1[e1] && SHAR[e]==SHAR1[e1])goto nn;
}
OPIT1[kml_OPIT1]=OPIT[e];
SHAR1[kml_OPIT1]=SHAR[e];
OC1[kml_OPIT1]=OC[e];
kml_OPIT1++;
nn:;
}
////////////////////////////////
string T_OPIT;
string T_SHAR;
int T_OC;
//Сравниваем оценки которые присвоены одинаковым Совпадением пикселей, но имеют разное положение шара
//Составляем список состоящий только из уроков которые имеют высшие оценки.
//Будут появляться дубликаты
kml_OPIT=0;
for (e=0; e<kml_OPIT1; e++)
{
T_OPIT=OPIT1[e];
T_SHAR=SHAR1[e];
T_OC=OC1[e];
for (e1=0; e1<kml_OPIT1; e1++)
{
if (OPIT1[e]==OPIT1[e1])
{
if (OC1[e1]>T_OC)
{
T_OPIT=OPIT1[e1];
T_SHAR=SHAR1[e1];
T_OC=OC1[e1];
}
}
}
OPIT[kml_OPIT]=T_OPIT;
SHAR[kml_OPIT]=T_SHAR;
OC[kml_OPIT]=T_OC;
kml_OPIT++;
}
////////////////////////////////
//Отсеиваем дубликаты
kml_OPIT1=0;
for (e=0; e<kml_OPIT; e++)
{
for (e1=0; e1<kml_OPIT1; e1++)
{
if (OPIT[e]==OPIT1[e1] && SHAR[e]==SHAR1[e1])goto nn1;
}
OPIT1[kml_OPIT1]=OPIT[e];
SHAR1[kml_OPIT1]=SHAR[e];
OC1[kml_OPIT1]=OC[e];
kml_OPIT1++;
nn1:;
}
////////////////////////////////
if (fopen ("E:\бот\бот\ii.txt", "w")!=0)
{
for (e=0; e<kml_OPIT1; e++)
{
fwrite(OPIT1[e]);fwrite(" ");
fwrite(SHAR1[e]);
Все гости форума могут просматривать этот раздел. Только зарегистрированные пользователи могут создавать новые темы в этом разделе. Только зарегистрированные пользователи могут отвечать на сообщения в этом разделе.
Помощь
Поиск
Пользователи
Кибор » Кибор - Интегрированная среда разработки ботов » Готовые скрипты
Без описания
