Сообщения без ответов | Активные темы Текущее время: Чт окт 18, 2018 7:15 pm



Ответить на тему  [ Сообщений: 9 ] 
Скрипт на фракцию риболова (Руофф) 
Автор Сообщение
Куда я попал

Зарегистрирован: Сб ноя 04, 2017 12:21 pm
Сообщений: 36
Сообщение Скрипт на фракцию риболова (Руофф)
Видел много просьб на этот скрипт,
Что он делает: чекает статус квеста и при его выполнении заканчивает рыбалку и бежит сдавать, берет новый и назад на место рыбалки.
Рыбачить нужно на северном мосту в гиране
Взять квест на фракцию прибежать на место и начать рыбачить, запустить скрипт
Минус скрипта:
Окно должно быть активное т.к. для начала и завершения рыбалки бот кликает по скилу на экране(пока не нашел как лучше оптимизировать)
Ловил рассой фео
Внимание: Бот кликает по экрану размер 1600х900 оконный
редактировать место клика в этой строчке в 2-х местах первые 2 значения.
mouseClick(960,435,200);

Код:
uses sysutils,classes;
 var Buff: TL2Buff;
 var s:string;
function SetCursorPos(x, y : integer): boolean; stdcall; external 'user32.dll';
function mouse_event(dwFlags, dx, dy, dwData: byte; dwExtraInfo: integer): void; stdcall; external 'user32.dll';

procedure mouseClick(x, y, _delay : integer);
begin

SetCursorPos(x, y);
mouse_event($0002, 0, 0, 0, 0);
delay(_delay);
mouse_event($0004, 0, 0, 0, 0);
end;

procedure StatusQ(ID:integer=-1);
 Var
 i:integer;
 stat:string;
 begin
  while 1<>2 do begin
 for i:=2 to 2 do
 begin
 if Engine.QuestStatus(937,2)  then
  begin
delay(3000);
mouseClick(960,435,200);
Delay(1000);
Engine.FaceControl(0,true);
Delay(1000);
Engine.MoveTo(83893, 143114, -3559);
Engine.MoveTo(83890, 143540, -3431);
Engine.MoveTo(83630, 144426, -3431);
Engine.MoveTo(83139, 144537, -3431);
Engine.MoveTo(81540, 144619, -3559);
Engine.MoveTo(81475, 145681, -3559);
Engine.MoveTo(81325, 146824, -3559);
Engine.MoveTo(81245, 146912, -3559);
Engine.MoveTo(80612, 146985, -3559);
Engine.MoveTo(79990, 147394, -3559);
Engine.MoveTo(79935, 147634, -3559);
Engine.MoveTo(80328, 147667, -3534);
Engine.MoveTo(80469, 147705, -3534);
        // выделение нпц с ИД указанным в скобках,ид видны справа снизу в боте рядом с именем нпц 
          Engine.SetTarget(31572);
          delay(500);
          Engine.DlgOpen();
          delay(500);
          Engine.DlgSel(10);
          delay(500);
          Engine.DlgSel(1);   // сдали квест
          delay(500);
          Engine.DlgSel(1);
          delay(500);
          Engine.DlgOpen();
          delay(500);
          Engine.DlgSel(10);     // берем заного
          delay(500);
          Engine.DlgSel(1);   
          delay(500);
          Engine.DlgSel(1);   
          delay(500);
          Engine.DlgSel(1);   
          delay(500);
          Engine.DlgSel(1);
          delay(500);      
//от нпс

Engine.MoveTo(80098, 147641, -3534);
Engine.MoveTo(79891, 147568, -3559);
Engine.MoveTo(80253, 147179, -3559);
Engine.MoveTo(81093, 146905, -3559);
Engine.MoveTo(81484, 146870, -3559);
Engine.MoveTo(81548, 145177, -3559);
Engine.MoveTo(81684, 144607, -3559);
Engine.MoveTo(82808, 144534, -3559);
Engine.MoveTo(83571, 144390, -3431);
Engine.MoveTo(83916, 143993, -3431);
Engine.MoveTo(83880, 143088, -3559);
Engine.MoveTo(84044, 143095, -3559);
delay(1000);
Engine.FaceControl(0,false);
delay(1000);
end;
 begin
if User.InRange(84044, 143095, -3559,40) then
  begin
delay(500);
Engine.MoveTo(83736, 143054, -3559);
delay(5000);
mouseClick(960,435,200);
end;
end;
end;
end;
 end;
 begin
 StatusQ(937); // вписываем ID  квеста
 end.



Чт дек 07, 2017 3:26 am
Профиль
Куда я попал

Зарегистрирован: Сб ноя 04, 2017 12:21 pm
Сообщений: 36
Сообщение Re: Скрипт на фракцию риболова (Руофф)
З.ы. забыл добавить, в интерфейсе выставить баф на бег т.к. скрипт активирует его при пробежках(чтоб быстрее сдавал)


Чт дек 07, 2017 3:30 am
Профиль
Куда я попал

Зарегистрирован: Ср окт 07, 2015 7:13 pm
Сообщений: 47
Сообщение Re: Скрипт на фракцию риболова (Руофф)
Что такое "бафф на бег"?


Вс дек 10, 2017 8:29 am
Профиль
Куда я попал

Зарегистрирован: Сб ноя 04, 2017 12:21 pm
Сообщений: 36
Сообщение Re: Скрипт на фракцию риболова (Руофф)
Boto писал(а):
Что такое "бафф на бег"?

Изображение
На 87 лвле
Наездник Ветра
На 15 сек. Скорость +60. Эффект пропадает, если персонаж получает урон.


Вс дек 10, 2017 2:11 pm
Профиль
Куда я попал

Зарегистрирован: Ср окт 07, 2015 7:13 pm
Сообщений: 47
Сообщение Re: Скрипт на фракцию риболова (Руофф)
Ну у меня скрипт не пошел(( Видимо хотел баффнуть несуществующий бафф(


Пн дек 11, 2017 5:13 am
Профиль
Куда я попал

Зарегистрирован: Сб ноя 04, 2017 12:21 pm
Сообщений: 36
Сообщение Re: Скрипт на фракцию риболова (Руофф)
В скрипте нет бафа, он только активирует интерфейс и бежит по точкам.
Удалите строчки из скрипта
Engine.FaceControl(0,true);
Engine.FaceControl(0,false);


Пн дек 11, 2017 9:29 am
Профиль
Куда я попал

Зарегистрирован: Ср окт 07, 2015 7:13 pm
Сообщений: 47
Сообщение Re: Скрипт на фракцию риболова (Руофф)
Скрипт включает настройки бота? А у меня в настройках селф баффы, прием пати, юз итемов, куча событий ((( Т.е. при работе скрипта настройки бота должны быть девственно чистыми? )))


Вт дек 12, 2017 9:21 am
Профиль
Куда я попал

Зарегистрирован: Сб ноя 04, 2017 12:21 pm
Сообщений: 36
Сообщение Re: Скрипт на фракцию риболова (Руофф)
Boto писал(а):
Скрипт включает настройки бота? А у меня в настройках селф баффы, прием пати, юз итемов, куча событий ((( Т.е. при работе скрипта настройки бота должны быть девственно чистыми? )))

Удалите строчки из скрипта
Engine.FaceControl(0,true);
Engine.FaceControl(0,false);


Вт дек 12, 2017 10:53 am
Профиль

Зарегистрирован: Чт дек 25, 2014 1:14 pm
Сообщений: 12
Сообщение Re: Скрипт на фракцию риболова (Руофф)
респект таким ребятам, автору благодарчик


Пн янв 01, 2018 4:49 pm
Профиль
Показать сообщения за:  Сортировать по:  
Ответить на тему   [ Сообщений: 9 ] 

Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Разработано: g-yar.
Русская поддержка phpBB