Могут быть проблемы в "выкидыванием" с форума (слетевшей авторизацией). Нужно собрать статистику таких случаев.
Есть Тема, куда можете сообщить о проблемах с сайтом либо просто передать привет.
готовый скрипт
-
Простая капча "Продолжить"
На многих мелких серверах ставят такую капчу. Begin while true do begin Engine.BypassToServer('00', True) ; Engine.DlgSel('Продолжить'); Delay(1000); end; end. -
N
Скрипт на баф
Выкладываю скрипт на баф, тестил на таких серверах как европвп, кетраварс, голдворлд, и пару зарубежек. Использовать как Buff('Набор мага'); Вместо набор мага вписывать значение строки, желательно с учетом регистра символов. [sharedmedia=core:attachments:252] Если возникнут вопросы...- nokia812010
- Тема
- готовый скрипт
- Ответы: 17
- Форум: Adrenalin
-
Квест на ТТ рецепты Emerial.ru (Динамические байпассы)
Скрипт простой, писал для себя. Если убьют, придется отменить квест, ребафнуться и прилететь в ХС. Рандомных MoveTo тоже нет, поэтому есть где поработать с напильником ;) Запускать перед нпц Jeremy, дальше сделает все сам. UPD: Как сообщил про100, на эмериале теперь капча на взятие квеста. -
Кач сх L2Tales 1-80+
Пока работает на л2тейлс, простой скрипт выкачки СХ с 1 до 80+ лвл Профили: Профили закидывать в папку Settings -
TP unit - Модуль для городов
Автор: evnetiy я НЕ ЗНАЮ будет ли работать на адреналине, но скорее всего - будет, так как писался для шадова. Сам модуль АРХИполезный для скриптеров, если работает. Почитайте. История изменений uses TP; begin Script.NewThread(@PingMonitor); //Дальше идет наш скрипт. //Конец... -
Математическая капча
Решает задачку на сложение двух чисел в капче, как на скрине. uses SysUtils; var tmpDialog,tmpString:string; var posCaptcha, num1, num2, resultNum, count:integer; begin while Engine.Status = lsOnline do begin tmpDialog := Engine.DlgText; if (Pos('Активирован штраф'... -
Квест на НГ броню
var Npc: TL2Npc; shot: TL2Item; Item: TL2Item; qItem: TL2Item; shw: TL2Item; Quest: TItemList; function CheckStatus: Boolean; begin Result:=true; if User.Dead then begin Print('Dead. Pressing to village.'); Delay(1000); Engine.FaceControl(0,false); Engine.GoHome; Delay(3000)... -
Спам в чат
var s:string; begin s:='!'; while true do begin Engine.Say(' ПРОДАМ ДУШУ ДЬЯВОЛУ НЕДОРОГО',1,s); delay(10000); //ждём 10 секунд и спамим заново end; end. Взято с TopHope Чтобы изменить чат, в который отправлять сообщения, требуется изменить 2 параметр функции Engine.Say. То есть если 1... -
Массовый свип ИЛ - Эпилог
var i: Integer; begin while engine.status = lsOnline do begin for i := 0 to NpcList.Count - 1 do begin if (NpcList.Items(i).Dead) and (NpcList.Items(i).Sweepable) then begin Engine.FaceControl(0,false); Engine.CancelTarget; Engine.SetTarget(NpcList.Items(i)); delay(500); Engine.UseSkill(42)... -
Окна телепортируются за вами
Пример работы с GetControl, позволяющим управлять другими запущенными ботами, из скрипта первого бота uses Classes, SysUtils; var myChars: TStringList; procedure allDlgOpen; var remoteControl: TL2Control; i: integer; begin for i:=0 to myChars.Count-1 do begin remoteControl :=... -
Бег вокруг перса при атаке
uses SysUtils; var CenterX,CenterY,CenterZ,NowRadius,NowAngle: integer; GuardName:string; DisableBot:boolean; Obj:Tl2Live; procedure GoToPoint(X,Y,Z,Radius,Angle:integer); //Расчёт конечной точки с учетом угла begin... -
Фарм ДВ + Баф averia.ws x70
var Item:TL2Item; Begin while 1<>2 do begin if User.Dead then begin Engine.FaceControl(0,false); Engine.gohome; delay(15000); end; if (Inventory.User.ByID(728,Item)) and (Item.Count < 55) then begin // докуп мп Engine.BypassToServer('_bbshome', True) ... -
Логирование действий бота в ICQ
uses SysUtils, ICQ; const ICQUin = 12341234; //ICQ на которую будет заходить бот ICQPas = 'пароль'; //Пароль для входа ICQContact = 44445555; //ICQ кому нужно писать type TMyICQ = class(TICQ) public procedure OnMessageRecv(Sender: tobject; Msg, UIN: string); override; end; var... -
Автоматический логин
uses SysUtils; function ShellExecuteW(hwnd: integer; lpOperation, lpFile, lpParameters, lpDirectory: PChar; nShowCmd: integer): integer; stdcall; external 'Shell32.dll'; function keybd_event(bVk, bScan: byte; dwFlags, dwExtraInfo: integer): integer; stdcall; external 'user32.dll'... -
Анти мираж, анти флешки, анти агр (Возврат таргета при сбросе)
Скрипт предотвращает скидывание таргета при мираже, флешках и агре uses sysutils,Classes; var charT:tl2live; obj:tl2effect; begin while engine.status = lsonline do begin if (user.target.valid) then if not (User.Buffs.byID(18,obj)) and not (User.Buffs.ByID(28,obj)) then... -
Запись пути
Для разработки скриптов часто требуется заставить персонажа бежать по определенному пути. Этот скрипт записывает путь, который мы прошли. В итоге получаем готовый список команд. [CENTER] В .txt формате: -
Сохранение открытого диалога
Скрипт сохраняет открытый диалог в файл C:\1.html uses SysUtils, Classes; var L:TStringList; Begin print(Engine.DlgText); L := TStringList.Create; //Создаем объект (список для строк) L.Add(Engine.DlgText); //Добавляем в список строку... -
Ввод каптчи и парсинг
Парсинг - самый элементарный пример - для понимания, также можно парсить байпасы у бафера... var str1, str2, str3: string; P: Integer; begin str1 := '[email protected]'; // Наш пример email адреса str2 := '@'; // До этого символа мы будем потом вырезать логин... -
Крафт Итемов
uses SysUtils; Var i:integer; begin while delay(250) do begin Engine.MakeItem(7);//Номер Итема в по скписку в окне крафта while user.curMP<50 do //Нужно МР на крафт begin engine.useitem(4223);//ID Mp банок delay(250); end; end; end. П.С, Все... -
АвтоБаф по команде в чат
uses sysutils,classes; begin while Engine.Status = lsOnline do begin if (ChatMessage.ChatType = ctParty) and ChatMessage.Unread then //непрочитанное сообщение тип чата mtPrivate=ПМ mtParty mtAll=белый begin if pos('pow',ChatMessage.Text)>0 then begin...