play4fan.ru

Скрипт кач на хрониках GOD Ertheia 1-85 лвл

Sonik — Fri, 18 Dec 2015 17:03:13 GMT

[GoD]Ertheia 1-85 leveling script - скрипт для авто прокачки персонажа, рекомендуется использовать мага, тк с воина бывают некоторые глюки, так же рекомендуется избегать дисконектов из игры скрипт полсе дисконекта не сможет продолжаться.

Инфа от автора можете скопировать и перевести с помощью гугл переводчика или яндекс или другим.

Цитата

Hi,

I have stopped botting on Core almost a year ago and have finally decided to "share" the scripts that did me in and acquired me an auto-ban from Innova. Of course this is most likely because I created countless characters each day, using this, and not because of how the script actually works

The script is super long but basically takes your Ertheia character through the leveling and quests to 85 (and subclass! ). I used it mostly to level wizards because they were easier and faster, and in the end I only cared about subclassing them to Wynn Summoners anyway. Because of this favouring, the Wizard script does actually do all of this fancy stuff, while the Warrior_C script stops around 76 as the characters just can't keep lvling in C grade effectively anymore. The Warrior_A script continues to 85 and does the change quests.

So to summarise:
1. Make an Ertheia character
2. Run 1-40 script (this will level the character up, do the quests, get the EQ, buy SOE/shots etc). Your character should be standing in front of the NPC in Faeron Village.
3. Run 40-76 script, character will go to Gludio (buy SOE/shots etc), then Dion, then Cruma and continue leveling up.

When on quests, script can easily break if you disconnect etc. It can't really recover so try avoiding this

When leveling up in spots 40-85, the script will recover if you are in the right city for that level range:
40-54 Faeron, Dion, Oren
54-64 Oren, Aden
64-70 Aden, Goddard
70+ Goddard

Finally - these scripts worked well in Ertheia update, but I have not installed L2 since then so I do not know how do they behave in the latest update. If you want to, you can fix the scripts yourself. I will provide no much further support.

Also - please edit all instances of YOUR BOT FOLDERin all of the scripts to what it's supposed to be for you.

Готовый скрипт на ТТ рецы бижы

Sonik — Fri, 11 Dec 2015 15:21:54 GMT

Скрипт на фарм S рецептов на бижутерю, работал на русском кленте Интерлюде, хотя на на более новых хрониках изменений неблыо должен работать на ХФ. В скрипте есть так же авто баф, но нужно сделать шаблон бафов.

Пати на баф

Sonik — Tue, 08 Dec 2015 15:11:13 GMT

Пати на баф скрипт полезне тем кто качается с твинами типо бд, свс или еще кто нибудь кто дает баф только в пати. Этот скрипт проверяет оставшееся время бафа и кидает пати если бафам осталось 10 сек до конца, кидает баф, а потом выходит из пати и так по кругу. Так же имеется проверка вермени бафа если больше определенного то будет кик из пати.

Код

var buff:tl2buff;
begin
  while true do
  begin
    if((user.buffs.byid(тут id бафа,buff) and (buff.endtime<10000)) or not user.buffs.byid(тут id бафа ,buff)) then
    begin
      engine.inviteparty('Dissy');
    end;

    if(user.buffs.byid(тут id бафа ,buff) and (buff.endtime>90000)) then
    begin
      engine.dismissparty('Dissy');
    end;
    delay(3000);
  end;
end.

Проверка на смерть

Sonik — Sat, 05 Dec 2015 16:13:20 GMT

Проверка на смерть - скрипт проверяет не умер ли ваш персонаж и после это будет выполнено какое либо действие которое вам нужно задать

Код

function CheckDeath: Boolean;//Проверка на смерть
begin
  Result:=false;
    if User.Dead then //умерли
    begin
        Result:=true;
        Print('Bot Umer');//печатаем в лог
        Delay(1000);
        Engine.FaceControl(0,false);//выключаем бота
        Engine.GoHome;//встаем в город
        Delay(10000);//отдыхаем
    end;
end;

Пользоваться так:
Копируем весь текст в начало скрипта после Uses classes,sysutils; строки и дальше в самом коде, там где нужно проверить на смерть пишем:

Код

if CheckDeath then
begin
//Тут маршрут по городу и возврат назад на спот
end;

Фарм варки

Sonik — Sat, 05 Dec 2015 16:08:55 GMT

Бот фармит варку. В случае смерти он встает в гдд, бежит к тп и летит обратно в варку. Помимо этого, в скрипте есть оповещалка о появлении капчи. Так же есть наработки обхода капчи, где нужно просто нажать "продолжить", для этого достаточно раскомментировать строки в процедуре 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.

Отправка почты при выполнении условия

Sonik — Sat, 05 Dec 2015 16:05:11 GMT

Если адены больше 250 000 то шлем почту

Код

if inventory.User.ByID(57, Item) and (Item.count > 250000) then
begin
Engine.SendMail('Ник', 'тема', 'комент',[id,кол-во,id,кол-во,id,кол-во,id,кол-во,id,кол-во,id,кол-во]);
delay(1000);
end;

Вариант 2

Код

//Send All items, or count of items
function getItemById(id: integer): TL2Item;
var
   tmpItem: TL2Item;
   i: integer;
begin
   Result := nil;
   if Inventory.User.ByID(id, tmpItem) then
      Result := tmpItem;
end;

Procedure SendItem(ItemID:integer;Count:integer=0);
if count=0 then
Engine.SendMail(recipient, 'Mail N'+Random(999).ToString , '' ,[itemid,getItemById(itemid).count]) else
Engine.SendMail(recipient, 'Mail N'+Random(999).ToString , '' ,[itemid,count]);
end;

//Example
begin
  while delay(100) do
begin
  if getItemById(57).count>10000000 then SendItem(57,9900000);//check adena and send
end;
end.

Фарм рецев TT evro PVP x100

Sonik — Sat, 05 Dec 2015 15:57:43 GMT

Форум: Скрипты для Adrenalin
Автор темы: Sonik
Автор последнего сообщения: Sonik
Количество ответов: 0

Start of Fate

Sonik — Sat, 05 Dec 2015 13:32:56 GMT

Форум: Скрипты для Adrenalin
Автор темы: Sonik
Автор последнего сообщения: Sonik
Количество ответов: 0

Certification of Fate

Sonik — Sat, 05 Dec 2015 13:29:30 GMT

Форум: Скрипты для Adrenalin
Автор темы: Sonik
Автор последнего сообщения: Sonik
Количество ответов: 0

Возрат на сохраненную точку после смерти с ребафом

Sonik — Sat, 05 Dec 2015 13:25:26 GMT

Если персонаж умер или его слили то он возвращается город бафается и возвращается на указанную точку.

Код

function CheckItemCount (const itemID: Integer; const quest: Boolean = False) : Integer;
var tempItem: TL2Item;

begin
if quest then Inventory.Quest.ByID(itemID, tempItem)
else Inventory.User.ByID(itemID, tempItem);
Result := tempItem.Count;
end; //
// Все что выше, не трогаем. Эта секция для инвентаря.

procedure onn;
begin
Engine.FaceControl(0,true);
end;

procedure atak2;
begin
onn;
Engine.LoadConfig('имя персонажа.xml'); // вписываем имя персонажа
delay(300);
while 1<>2 do begin
if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд
begin
Engine.GoHome;
Engine.FaceControl(0,False);
Delay(15000);
buff;
tp1;
onn;
end;
delay(5000);
end;
end;

procedure buff;
begin
Engine.BypassToServer('_bbshome', True) ; //ваши настройки меню на баф
delay(1000);
Engine.BypassToServer('12', True) ;
delay(1000);
Engine.BypassToServer('132 Player', True) ;
delay(3000);
Engine.BypassToServer('130', True) ;
delay(3000);
end;

procedure tp1;
begin
Engine.BypassToServer('_bbshome', True) ; // ваши настройки меню на тп
delay(1000);
Engine.BypassToServer('13', True) ;
delay(1000);
Engine.BypassToServer('114', True) ;
delay(1000);
end;

begin
while 1<>2 do begin
buff;
tp1;
atak2;
end;
end.