22:20 | 21.11.2017
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Lineage 2 » Adrenalin бот » Скрипты для Adrenalin » Фарм варки
Фарм варки
Sonik · Offline · Дата: Суббота, 05.12.2015, 19:08 | Сообщение # 1

  • Подполковник
  • Сообщений: 143
 
3
 
Бот фармит варку. В случае смерти он встает в гдд, бежит к тп и летит обратно в варку. Помимо этого, в скрипте есть оповещалка о появлении капчи. Так же есть наработки обхода капчи, где нужно просто нажать "продолжить", для этого достаточно раскомментировать строки в процедуре PassCaptcha. Ну и если нужно, бот будет проверять, не слетели ли у него бафы. И, если слетели, он сделает сое (раскомментируйте строки 74-79). Как узнать номера строк в скрипте просто скопируйте в нотпад++ там и смотрите.

Код
var Captcha, Cap:string;
var i: integer;

procedure Goddart();
BEGIN
delay(5000);
// Подлетим к гк
Engine.BypassToServer('_bbshome', True);
           Delay (500);
           Engine.BypassToServer('15', True);
           Delay (500);
           Engine.BypassToServer('1a', True);
           Delay (500);
           Engine.BypassToServer('10', True);
           Delay (2000);

           // Го в варку
  Engine.SetTarget('Tatiana');
  Delay(5000);
  Engine.DlgOpen;
  //Здесь диалог с NPC ГК Tatiana (GDD)
   Delay(500);
  Engine.DlgSel(1);
  Delay(500);
  Engine.BypassToServer('08', True); // To Varka
  
  //Engine.CancelTarget;
END;


procedure PassCaptcha();
begin
    Captcha := Engine.DlgText;
    
  i:=pos('LEVEL>',Captcha);
  Cap:=copy(Captcha,i+6,5);

    if (Pos('снятия', Captcha) <> 0) then
    begin
    
    PlaySound('Sounds/hp.wav',false);
    
    Engine.EnterText(Cap);
    Engine.BypassToServer('00 '+Cap);
     
    //print(Captcha);
    //print(Cap);
    //Engine.DlgSel('Продолжить');
    //Engine.BypassToServer('00');
    end;
   // Delay(1800);
end;


var obj:TL2Effect;
BEGIN
  while true do
  begin
    while true do begin
       PassCaptcha();
       Delay (5000);

        if not user.InRange(125937, -40863, -3728,15000,15000) then
          Goddart();
       
        
       if User.Dead then
       begin
       Engine.GoHome;
       Delay(7000);
       break;
       end;

     //  if not User.Buffs.Byid(1085, Obj)  then
     //  begin
     //   Engine.UseItem(736, false);
     //   Delay(25000);
     //   break;
     //  end;
     
    end;
    // Если померли, пора ребаф и лететь обратно
    
    Goddart();

  Delay (5000);
  end;
  
END.

Форум » Lineage 2 » Adrenalin бот » Скрипты для Adrenalin » Фарм варки
Страница 1 из 11
Поиск: