Прохожий
Покинул форум
Сообщений всего: 2
Дата рег-ции: Янв. 2024
Репутация: 0
|
Помогите пожалуйста я создал скрипт, по начало он запускаться не хотел, но после того как я его укоротил он запустился, но спустя один цикл cтал вылетать Kibor.
Вот сам скрипт:
int A;
if (getcontrol (COMBO_1)=="н1") {A = 0};
if (getcontrol (COMBO_1)=="н2") {A = 1};
if (getcontrol (COMBO_1)=="н3") {A = 2};
int Bb;
if (getcontrol (COMBO_1)=="н1") {Bb = 25};
if (getcontrol (COMBO_1)=="н2") {Bb = 24};
if (getcontrol (COMBO_1)=="н3") {Bb = 27};
int B = 0;
int Screen[3000][3000];
win Alb = window ("Albion Online Client"); // захватывает окно Альбиона
enabletopscreen();
loadsymbolbase ("Check.sib");//база цифр
activate(Alb);// активирует окно, на случай если закрыто
enablerealmouse(7, 15, 0, 0); // реальные движения\
//Чтение таблицы
string Rez[50][500];//Двухмерный массив string, куда запишутся данные с таблицы
int X, Y;//Сюда запишется ширина и высота таблицы в столбцах и ячейках
int rr=readgs(#Rez[0][0], #X, #Y, "1X-_Xr7cnlGHqWkPzKIzCg1WcG-Vo2KwmMNZ68kKqjLo");
//Старт
while (B<Bb);
{
string data = Rez[A][B];
sendlanguage("00000419", 0); // переводит на русский
writeclipboard(data); // сохраняет в буфер
pause(70);
//messagebox(data);
//mouse(LEFT,894, 348, 1, Alb); //вкладка заказать
mouse(LEFT,342,191, 1, Alb); //очистить
Find:
mousedbl(LEFT,283, 191, 1, Alb); //поиск
pause(100);
if (ScanPixel(#Screen[0][0], #Alb, Alb.leftclient, Alb.topclient, 100, 200, 248, 192, 14214125, 10) == 0){goto Find};
keydown(CONTROL); //вставка
key('v');
keyup(CONTROL);
pause(600);
mouse(LEFT,734, 307, 1, Alb); //продать х2
pause(200);
mouse(LEFT,417, 283, 1, Alb); //качество
pause(200);
mouse(LEFT,410, 303, 1, Alb); //обычное
pause(600);
// Просмотр цены
string Price4;
readtext (NUM | MARK, #Price4, 40, 3, 100, -1, -1, -1, -1, 0, -1, 552, 260, 605, 273, Alb);
regexreplace(-1, #Price4, Price4, ",", "");
regexreplace(-1, #Price4, Price4, " ", "");
mouse(LEFT,198, 284, 1, Alb); //Тир
pause(200);
mouse(LEFT,191, 322, 1, Alb); //т5
pause(450);
string Price5;
readtext (NUM | MARK, #Price5, 40, 3, 100, -1, -1, -1, -1, 0, -1, 552, 260, 605, 273, Alb);
regexreplace(-1, #Price5, Price5, ",", "");
regexreplace(-1, #Price5, Price5, " ", "");
mouse(LEFT,198, 284, 1, Alb); //Тир
pause(200);
mouse(LEFT,193, 342, 1, Alb); //т6
pause(450);
string Price6;
readtext (NUM | MARK, #Price6, 40, 3, 100, -1, -1, -1, -1, 0, -1, 552, 260, 605, 273, Alb);
regexreplace(-1, #Price6, Price6, ",", "");
regexreplace(-1, #Price6, Price6, " ", "");
mouse(LEFT,198, 284, 1, Alb); //Тир
pause(200);
mouse(LEFT,191, 362, 1, Alb); //т7
pause(450);
string Price7;
readtext (NUM | MARK, #Price7, 40, 3, 100, -1, -1, -1, -1, 0, -1, 552, 260, 605, 273, Alb);
regexreplace(-1, #Price7, Price7, ",", "");
regexreplace(-1, #Price7, Price7, " ", "");
mouse(LEFT,198, 284, 1, Alb); //Тир
pause(200);
mouse(LEFT,191, 381, 1, Alb); //т8
pause(450);
string Price8;
readtext (NUM | MARK, #Price8, 40, 3, 100, -1, -1, -1, -1, 0, -1, 552, 260, 605, 273, Alb);
regexreplace(-1, #Price8, Price8, ",", "");
regexreplace(-1, #Price8, Price8, " ", "");
pause(500);
mouse(LEFT,495, 220, 1, Alb); //закрыть
//Для добавления в конец надо открывать с "a", перезапись "w"
if (fopen ("price1.txt", "a")!=0)
{//если открылся
//fwrite(data);fwrite("(знаток)"); fwrite(" \\ "); fwrite(Price4);//1 строчка
//fwrite(ENDL);//перевод строки
fwrite(data);fwrite("(эксперт)"); fwrite(" \\ "); fwrite(Price5);
fwrite(ENDL);
fwrite(data);fwrite("(мастер)"); fwrite(" \\ "); fwrite(Price6);
fwrite(ENDL);
fwrite(data);fwrite("(магистр)"); fwrite(" \\ "); fwrite(Price7);
fwrite(ENDL);
//fwrite(data);fwrite("(старейшина)"); fwrite(" \\ "); fwrite(Price8);
//fwrite(ENDL);
fclose();//закрываем файл
}
B++;
}
////////// Функции //////////
function ScanPixel(int #Scr, win #w, int v_x, int v_y, int p1, int t, int px, int py, int col, int r)
{
pause (p1);
if (t==0)t=1;
looptime(t)
{
if (scanpixel(v_x+px, v_y+py, col, r, r, r, r, r, r, -1)) return 1;
sleep(5);
}
return 0;
}
////////// Интерфейс //////////
CREATE_INTERFACE
{
DIALOG "HI" 175 100 //РазмерX РазмерY
BUTTONSCRIPT "Стартуем" 12 40 148 20 //ПозицияX ПозицияY РазмерX РазмерY
//Добавление контролов управления ......
STATIC_0 "Набор экипа" 20 15 80 20
COMBO_1 0 "н1" | "н2" | "н3" 90 13 60 100
}(Отредактировано автором: 13 Января, 2024 - 22:49:24) |
Помощь
Поиск
Пользователи
Описание: Вылетает Kibor после одного цикла в скрипте
