Перейти к содержимому

Фотография
* * * * * 1 Голосов

Нон стоп фарм варки

адреналин скрипт фарм

  • Авторизуйтесь для ответа в теме
Сообщений в теме: 9

#1
SARCAZM

SARCAZM

Делал для себя, сервер L2 Hunter. Под ваш сервер переделаете сами  ;) 

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

 

Все это безобразие делалось на скорую руку, так что не нужно тыкать пальцем что где-то можно было оптимизировать код или что так писать нельзя. У меня работало - и это главное :D

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.

  • 1

#2
Крымчанин82rus

Крымчанин82rus
  • 1
    0
    Не выбрано
    • Гремлин
    • На проверке

Спасибо огромное )


  • 0

#3
uniquelove

uniquelove
  • 21
    0
    Новогоднее
    • Lvl 14
    • Пользователь
    Город
    Белгород

после смерти бот не жмет в город и если нажать вручную стоит в гдд,пруф) пробывал на интерлюде


Сообщение отредактировал uniquelove: 24 Декабрь 2015 - 10:46

  • 0

                                                                            XV-fkIFVSG4.jpg


#4
savant

savant
  • 192
    132
    Ангелок
    • Lvl 40
    • Пользователь
    Город
    Барнаул

    Награды

            

uniquelove, на твоем сервере байпасы кажись неподошли.


  • 0

#5
Alp

Alp
  • 56
    28
    Горит!
    • Lvl 28
    • Пользователь
    ВКонтакте
    alp_xd
    Skype
    Alpfallen
    Город
    Черкассы

uniquelove, http://rawr.su/topic/2524-farm-varki/
вот байпассы только на бафера


  • 0

Тыкните Лайк, буду очень признателен. :dadada:


#6
uniquelove

uniquelove
  • 21
    0
    Новогоднее
    • Lvl 14
    • Пользователь
    Город
    Белгород

savant, я еще не разбираюсь о чем ты(

 


Alp, дай плиз на том топе права чтобы видеть

 


savant, ваще ниче не выходит , я кривожоп


  • 0

                                                                            XV-fkIFVSG4.jpg


#7
savant

savant
  • 192
    132
    Ангелок
    • Lvl 40
    • Пользователь
    Город
    Барнаул

    Награды

            

Alp, на бафера не пойдут. На окно Alt+B нужны. Либо вручную прописывать путь к ГК.


  • 0

#8
Alp

Alp
  • 56
    28
    Горит!
    • Lvl 28
    • Пользователь
    ВКонтакте
    alp_xd
    Skype
    Alpfallen
    Город
    Черкассы

savant, у него все через альт б сделано в скрипте, у меня все через нпц


  • 0

Тыкните Лайк, буду очень признателен. :dadada:


#9
platemate

platemate
  • 36
    2
    Не выбрано
    • Lvl 21
    • Пользователь

thanks, good work!


  • 0

#10
FAQ

FAQ
  • 3
    0
    Не выбрано
    • Lvl 1
    • Пользователь

 ну может какую то простенкую каптчу и пройдет
не думаю что еше остались такые фришки 


  • 0



Темы с аналогичным тегами наработки, адреналин, скрипт, фарм

Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных

Rawr.su - Сделано с для игроков.