Форум работает в тестовом режиме. Все данные были перенесены со старого сайта 2018 года. Некоторая информация может быть недоступна, например вложения или хайды. Просьба сообщать о данных случаях через функционал "Жалоба", прямо под постом, где отсуствуют данные из хайда или проблемы с вложением.
Могут быть проблемы в "выкидыванием" с форума (слетевшей авторизацией). Нужно собрать статистику таких случаев.
Есть Тема, куда можете сообщить о проблемах с сайтом либо просто передать привет.

Фарм зона +возврат на спот +баф(аль+б)+оповешение о капчи

Рег
28 Сен 2015
Сообщения
8
Реакции
0
var obj: TL2NPC;
obj2: TL2Effect;


Enemy: TL2Live;
Begin
while true do begin


// Если перс умер
if User.Dead then
begin
// Вырубаем бота, встаем
Engine.FaceControl(0,false);
Engine.gohome;
delay(15000);


// Летим куда-то
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsbuffer', True);
Delay (15000);
Engine.BypassToServer('_bbsbufferbypass_cast 3063 x x', True);
Delay (10000);
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsgatekeeper', True);
Delay (2000);
Engine.BypassToServer('_bbsgatekeeper_main-35.htm', True);
Delay (2000);
Engine.BypassToServer('15', True);
delay (1000)
end;
delay (500);


if user.InRange(110, 235082, -3248,777) then begin
Engine.MoveTo(648, 235752, -3248);
Engine.MoveTo(232, 237656, -3048);
Engine.MoveTo(1640, 239112, -3080);
Engine.MoveTo(2600, 240440, -2832);
Engine.MoveTo(2744, 242120, -2344);
Engine.MoveTo(4504, 243608, -1920);
Engine.MoveTo(5720, 242424, -1896);
Engine.MoveTo(6040, 241432, -1952);
Engine.MoveTo(7320, 240680, -2032);
Engine.MoveTo(8088, 239896, -2064);


end;


// Когда прибежали на спот, включаем бота
Engine.FaceControl(0,true);


end;


end.






var Captcha:string;
begin
while true do
begin
delay(500) ;
end;
if Captcha <> Engine.DlgText then
begin
Captcha := Engine.DlgText;
if (Pos('снятия', Captcha) <> 0) then
PlaySound('Sounds/hp.wav',false);
Delay(1800);
end;
end.



Только вот капча вроде не правильно настроена (
разбираюсь дальше.
Если есть у кого свои варианты ,буду рад помощи )
 
parazit написал(а):
if user.InRange(110, 235082, -3248,777) then begin
Возможно глупый вопрос, подскажите как выяснить эти координаты которые указаны в скобках, после того как прогрузился нужно пробежать еще подальше
 
_bbsbuffer не на всех серверах такой байпасс.
Скрипт дорабатывать нужно и у 90% не выйдет)
 
@AlexandrNumberOne,

встаешь на точку и жмёшь alt+v
в боте в поле скриптов появится надпись

Engine.MoveTo(103758, 49400, -3544);
цифры и есть твоё месторасположение
 
ane13, это понятно, вопрос именно про ту строку, когда alt+v жмешь, там 3 цифры, а именно в этой строке 4, это смущает (110, 235082, -3248,777)
 
@AlexandrNumberOne,
первые три это координаты (x,y,z) четвертая - радиус, в зоне которого будет действовать условие

в данном случае - 777(радиус вокруг точки)
можно добавить и пятую цифру - это будет радиус по высоте)
 
Назад
Сверху