10 Апреля 2026 11:40 
Навигация
 +  - 
Скачать игры
Сейчас на сайте
10.04.2026
Andreal
05:02:57
offline
09.04.2026
Warhangel
12:26:31
offline
09.04.2026
Serega9107
14:22:59
offline
09.04.2026
ferittttt
1 день
offline
08.04.2026
cthfabvec
1 день
offline
Последние фото
Game of Blocks : WesterosCraft and Game of Thrones
Game of Blocks : Wes...
Альбом: Скриншоты

Вынос трёх пати куполом
Вынос трёх пати куполом
Альбом: Скриншоты



Альбом: Флора

Последние видео
Видео THE WORLD LIVE -  since 2008 | earthTV : So thank you for the many views of this stream, please enjoy the original classic television version of THE WORLD LIVE, first uploaded here for you in 2008 with just 7 locations.

Онлайн камеры:  THE WORLD LIVE - since 2008 | earthTV

Видео The Best Of Norway's Railway Cab Views : I\

Онлайн камеры:  The Best Of Norway's Railway Cab Views

Видео 130 LIVE World Cameras : 130 LIVE World Cameras, Relaxing Music, Map, Daily Timelapse - Your Armchair Travel

Онлайн камеры:  130 LIVE World Cameras

Наша кнопочка
FAQ7.ru
Код:
RSS каналы
Новости
Комменты
Форум
Статьи
Фото
Файлы
Ссылки
Объявления
Реклама
RU CLICKSРусский трафик
Автор темы: Warhangel
ID темы: 2990
Информация о теме:
Имеются 1 сообщений по данной теме, которая была просмотрена 42 раз.
Реклама
Обменник Обменник
Пополнить Steam | | | Если нужен Youtube | | | Виртуальные visa, mastercard | | | Спросить у нейронки
Просмотр темы
Логин:
Пароль:  
Форум » Игровые форумы » Lineage » Боты и скрипты
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов)  
Ответить
Иконка 
Адреналин: клановый баф и фарм
Наверх Распечатать сообщение #1
Опубликовано 06-04-2026 04:23
Аватар пользователя

Супер Администратор



Сообщений: 2718
Вас поблагодарили: 32
раз(а) в 27 сообщениях

Зарегистрирован: 24.03.10
Со дня регистрации: 5861
Откуда: Россия

Скрыть награды


Пожаловаться на это сообщение 

Взять клан баф и на фарм


 var
  Ch1, Ch2, Ch3, Ch4, Ch5, Ch6: TL2Char;
  NomeEu: String;

procedure teleport1;
begin
     // Community Board Teleport Sequence
     Engine.Facecontrol(0,False);
     delay(2000);
     engine.bypasstoserver('_bbsloc');
     delay(2000);
     engine.bypasstoserver( '_bbstop;51');
     delay(2000);
     engine.bypasstoserver('_bbstop;512');
     delay(2000);
     engine.bypasstoserver('_bbsteleport;teleport; 82698 148638 -3473 5000');
     delay(10000);
end;

procedure teleport2;
begin
     // Gatekeeper and Movement Sequence
     Engine.Facecontrol(0,False);
     delay(2000);
     Engine.MoveTo(83400, 147944, -3400); 
     Delay(5000);
     Engine.SetTarget(30080);  // Target GK NPC
     Delay(2000);
     Engine.DlgOpen; // Opens NPC dialogue
     Delay(2000);
     Engine.DlgSel(1);
     Delay(2000);
     Engine.DlgSel(15);
     Delay(2000);
     Engine.SetTarget(31115); // Gatekeeper Ziggurat
     Delay(2000);
     Engine.DlgOpen; // Opens NPC dialogue
     Delay(2000);
     Engine.DlgSel(1);
     Delay(2000);

     // Walking to specific farm coordinates
     Engine.MoveTo(47368, 170312, -4976);
     Engine.MoveTo(47400, 170600, -4976);
     Engine.MoveTo(48168, 170600, -4976);
     Engine.MoveTo(48424, 170296, -4976);
     Engine.MoveTo(50536, 170296, -4976);
     Engine.MoveTo(51208, 170328, -4976);

     Engine.LoadZone('DovBranded.zmap'); // Load farm zone
     Engine.Facecontrol(0,True); // Enable bot combat
end;

procedure buff2;
begin
    // Buffing Routine at NPC
    Engine.Facecontrol(0,False);
    Engine.EnterText('/Stand');

     // Return to buffer if not in range
     if not user.inrange(143992, 27092, -2248, 500) then begin
       Engine.UseItem(1829); // Scroll of Escape
       Delay(40000);
     end;

  Engine.MoveTo(-144200, 27144, -2248);
  Engine.SetTarget(35447); // Clan hall manager
  Delay(1500);
  Engine.DlgOpen;
  Delay(1500);
  Engine.BypassToServer('npc_268470824_functions');
  Delay(500);
  Engine.BypassToServer('npc_268470824_functions support');
  Delay(500);
 
  // Specific Buff Bypasses
  Engine.BypassToServer('npc_268470824_support 4342 2'); // Wind Walk
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4344 3'); // Shield
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4346 4'); // Mental Shield
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4345 3'); // Might
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4347 6'); // Bless the Body
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4349 2'); // Magic Barrier
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4350 4'); // Resist Shock
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4348 6'); // Bless the Soul
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4351 6'); // Concentration
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4352 2'); // Berserker Spirit
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4353 6'); // Bless Shield
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4358 3'); // Guidance
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4354 4'); // Vampiric Rage
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4355 1'); // Acumen
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4356 1'); // Empower
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4357 1'); // Haste
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4359 1'); // Focus
  Delay(500);
  Engine.BypassToServer('npc_268470824_support 4360 1'); // Death Whisper
end;

begin
  NomeEu := User.Name;

  // Starts infinite loop while script is active
  while true do begin // Checks every 2000ms
    delay(2000);
   
    // Safety check: is the user at the gathering point?
    if user.inrange(143992, 27092, -2248, 500) then begin
     
      // Check if all party members are present or if it's the current user
      if ((NomeEu = 'Dov')     or (CharList.ByName('Dov', Ch1))) and
          ((NomeEu = 'Narakas') or (CharList.ByName('Narakas', Ch2))) and
          ((NomeEu = 'Alfwod')  or (CharList.ByName('Alfwod', Ch3))) and
          ((NomeEu = 'Faneth')  or (CharList.ByName('Faneth', Ch4))) and
          ((NomeEu = 'Leliar')  or (CharList.ByName('Leliar', Ch5))) and
          ((NomeEu = 'Baleak')  or (CharList.ByName('Baleak', Ch6))) then
      begin
        Print('All allies (except me, ' + NomeEu + ') are present!');

        buff2;
        teleport1;
        teleport2; // Proceed to farm routines

        Script.Stop;
      end
      else
      begin
        // Logic for missing party members
        Print('ERROR: Someone moved away or logged out! Waiting.');
      end;
     
    end
    else
    begin
      // If user is lost or not at the start point, use escape
      Engine.UseItem(1829); // Return to town for safety
      Delay(40000);
    end;   
  end;
end.

 

Extract the HTML file from the Clan Hall Manager:

uses classes;
begin
with Tstringlist.create do
try
  Text := Engine.DlgText;
  SaveToFile(exepath+'show dlg'+'.txt');
finally
  Free;
 end;
end.
 Offline
 
Посетить сайт автораОтправить e-mail
Цитировать
Ответить
Здесь присутствуют: 1 (пользователей: 0, гостей: 1)

« Предыдущая тема | Следующая тема »
 RSS Перейти на форум:
Розыгрыши 728х90

Последние объявления
ФотоЗаголовокГородРазмещено
Игра Stark World 2024
• Игры - Игровые ресурсы Цена: 1 1
Волгоград11.07.2024
(на 24 месяца)
Облако тегов тем форума
Янукович выступил с заявлением, Первая помощь 1 - 450 (Руководство), Квест на Orc Monk, Facebook обеспечит стейблкоин Libra пятью национальными валютами, Компиляция ядра для линукс (ArcEmu), Немного о современном Aion-е и взгляд в его будущее, Душевая кабина, Русский досвидос: Лизонька против Аниме, Победители Евровидения с 1956 по 2018 год, Адреналин: Скрипт на фарм катакомб, Beat Hazard Abuse, Дрова на 7ку для игрушки Blood, Коммьюнити-менеджер покинул Aion, Battle: Los Angeles, Priest и Pirates of the Caribbean, Джамп-клоны
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Торренты Радио Видеочат

Powered by PHP-Fusion copyright © 2002 - 2026 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.