Cправочник по скриптам

для бота под Lineage 2

Adrenaline
by Novikov
По вопросам активации программы:
ICQ: 292934301

Оглавление
Иерархия классов......................................................................................................................................................................................................................................................... 2
Описание классов ........................................................................................................................................................................................................................................................ 3
TL2Control = class ...................................................................................................................................................................................................................................................... 3
TL2Object = class ....................................................................................................................................................................................................................................................... 6
TL2Spawn = class(TL2Object); ................................................................................................................................................................................................................................... 6
TL2Drop = class(TL2Spawn); ...................................................................................................................................................................................................................................... 6
TL2Npc = class(TL2Live); ............................................................................................................................................................................................................................................ 6
TL2Pet = class(TL2Npc); ............................................................................................................................................................................................................................................. 6
TL2Char = class(TL2Live); ........................................................................................................................................................................................................................................... 6
TL2User = class(TL2Char); .......................................................................................................................................................................................................................................... 7
TL2Effect = class(TL2Object); ..................................................................................................................................................................................................................................... 7
TL2Buff = class(TL2Effect); ......................................................................................................................................................................................................................................... 7
TL2Live = class(TL2Spawn); ........................................................................................................................................................................................................................................ 8
TL2Skill = class(TL2Effect); ......................................................................................................................................................................................................................................... 9
TL2Item = class(TL2Object); ....................................................................................................................................................................................................................................... 9
TL2AucItem = class(TL2Item) ..................................................................................................................................................................................................................................... 9
TL2List = class;............................................................................................................................................................................................................................................................ 9
TL2Auction = class(TL2List) ......................................................................................................................................................................................................................................10
TL2WareHouse = class(TL2List) ...............................................................................................................................................................................................................................10
TSpawnList = class(TL2List); .....................................................................................................................................................................................................................................10
TNpcList = class(TL2List); .........................................................................................................................................................................................................................................10
TPetList = class(TL2List); ..........................................................................................................................................................................................................................................10
TCharList = class(TL2List); ........................................................................................................................................................................................................................................10
TDropList = class(TL2List); ........................................................................................................................................................................................................................................10
TSkillList = class(TL2List); .........................................................................................................................................................................................................................................10
TBuffList = class(TL2List); .........................................................................................................................................................................................................................................10
TItemList = class(TL2List); ........................................................................................................................................................................................................................................10
TParty = class; ..........................................................................................................................................................................................................................................................11
TInventory = class; ...................................................................................................................................................................................................................................................11
TConfirmDlg = class..................................................................................................................................................................................................................................................11
ChatMessage ...........................................................................................................................................................................................................................................................11
TL2Script = class .......................................................................................................................................................................................................................................................11
Глобальные функции и переменные: ......................................................................................................................................................................................................................12
Функции API бота: ..................................................................................................................................................................................................................................................12
Глобальные переменные ......................................................................................................................................................................................................................................12
Функции преобразования данных .......................................................................................................................................................................................................................12
API для каптчи ........................................................................................................................................................................................................................................................13
Прочее.....................................................................................................................................................................................................................................................................13
Перечисляемые типы. ...............................................................................................................................................................................................................................................14
Классы в подключаемых модулях. ...........................................................................................................................................................................................................................16
TTCPBlockSocket = class ..........................................................................................................................................................................................................................................16
TICQ = class ..............................................................................................................................................................................................................................................................17
ПРИМЕРЫ....................................................................................................................................................................................................................................................................18
ChatMessage ...........................................................................................................................................................................................................................................................18
Function [Link]..................................................................................................................................................................................................................................18
function [Link] ..............................................................................................................................................................................................................................18
function TL2Control. GameWindow ........................................................................................................................................................................................................................19
[Link](Who, What : String; Color : Integer); ...........................................................................................................................................................................................19
[Link]... ...................................................................................................................................................................................................................................................19
Отключить интерфейс на 15 сек всех кто в пати и на одном боте, при телепорте ..........................................................................................................................................20
Простейший делевел .............................................................................................................................................................................................................................................20
Автоматически кидаем репорт игроку взявшему нас в таргет ..........................................................................................................................................................................21
Перехват нажатия клавиш, вместе с ctrl alt shift. ................................................................................................................................................................................................21

Иерархия классов

TL2Item TL2Auction

TL2Control
TL2Drop
TL2Spawn TL2Char TL2User
TL2Object
TL2Live
TL2Npc TL2Pet
TParty
TL2Skill
TL2Effect
TInventory
TL2Buff
TL2Auction
TL2Script

TSpawnList
TConfirmDlg

TNpcList

TPetList

TL2List TCharList

TDropList

TSkillList

TBuffList

TItemList
Описание классов

TL2Control = class
Основной класс управления ботом. В скриптах
TL2Control = class доступен по имени Engine. Можно получить для
другого окна GetControl(const Name: string):
TL2Control;
Assist(const Name: string): Boolean; Делает своей целью, цель указанного игрока или NPC
Attack(TimeOut: Cardinal = 2000; Ctrl: Атака. TimeOut - задержка (мс); Ctrl - принудительная
Boolean = false): Boolean; атака
AuctionBuyItem(Item: TL2AucItem): Boolean; купить с аукциона
AuctionCancelItem(Item: TL2AucItem): Boolean; снимет предмет с продажи
AuctionGetMySales: Boolean; получить список своих лотов продажи

AuctionSearch(const Name: string; Grade:

Integer = -1; PageID: Integer = 0): Boolean; Поиск по аукциону. Grade: 0 - NG; 1 - D,.., 10 - R99.

AuctionSellItem(Item: TL2Item; Count, Price,

Days: Cardinal; CustomName: string = ''): выставить на продажу, Days: 1, 3, 5, 7
Boolean;
AutoSoulShot(const Name: string; Active: Включает/выключает на шотах автоматический режим.
Boolean): Boolean; Name - название шотов; Active - вкл/откл
AutoTarget(Range: Cardinal = 2000; ZRange: Авто-подбор цели в радиусе Range. NotBusy - выбирать
Cardinal = 300; NotBusy: Boolean = true): только "свободную" цель. (учитывает зоны на карте и
Boolean; объекты добавленные в IgnorList)

BlinkWindow(GameWindow: Boolean): Boolean; Мигает окном на панели задач. Если GameWindow - true то
мигает окном игры, иначе окном бота
BotWindow: Cardinal; Получить HWND окна с ботом.
ByPassToServer(const S : String) : Boolean; Отправить на сервер ByPass
CancelTarget: Boolean; Сбрасывает таргет
ClearIgnore; Очищает список игнора
ClearMail: Boolean; Очистить почту.
ClearZone; Очистка всех зон на карте.
ConfirmDialog(Accept: Boolean): Boolean; Отвечает на запросы Да/Нет
ConfirmDlg : TConfirmDlg; Получить класс TConfirmDlg;
CreateRoom(Text: string; LevelStart,
LevelEnd: Integer): Boolean; Создать комнату группы.
CloseRoom: Boolean; Закрыть комнату группы.
CrystalItem(ID : Cardinal) : Boolean; Кристализовать итем.
Delay(const time : Cardinal) : Boolean; Паузы для выполнения, в отличии от delay глобального,
возвращает True по истечению паузы
DestroyItem(const Name: string; Count: Уничтожает предмет с названием Name в количесвте
Cardinal): Boolean; Count
DismissParty(const Name: string): Boolean; Исключает игрока с именем Name из группы
DismissPet: Boolean; Отозывает пета (если есть)
DismissSum: Boolean; Отозывает самона (если есть)
Dispel(const Name: string): Boolean; Снимает с вашего персонажа баф с названием Name
DlgOpen: Boolean; Начинает диалог с NPC
DlgSel(const Txt: string; const TimeOut :
Integer = 1000): Boolean; overload; Выбирает при диалоге строку Txt

DlgSel(Index: integer; const TimeOut : Выбирает при диалоге строку с порядковым номером
Integer = 1000): Boolean; overload; Index. TimeOut время в мс сколько ожидать диалога.
DlgText: string; Содержит полный текст текущего диалога
DMoveTo(x, y, z : Integer) : Boolean; Двигаться в указанную точку без ожидания завершения.
DUseSkill(id : Cardinal; ctrl, Shift : Использовать скил с указанным id без проверки на откат,
Boolean) : Boolean; количество мп.
EnterText(const Txt: string): Boolean; Нажать Enter, написать Txt, нажать Enter.
Вызов функции в скрипте другого аккаунта. Вызываемая
Entry(var Param): Boolean; ф-ция должна иметь вид - function OnEntry(var Param):
Boolean; Param - любой передаваемый параметр.
Equipped(const Name: string): Integer; Проверка экипировки
FaceControl(ID: Integer; Active: Boolean):
Boolean; Вкл/откл клавишу интерфеиса.
FindEnemy(var Enemy: TL2Live; Obj: TL2Live; Поиск "врага" для объекта Obj в указанном радиусе
Range: Cardinal = 2000; ZRange: Cardinal = (относительно объекта Obj). Если результат ф-ции - true,
300): Boolean; то найденный "враг" будет записан в переменную Enemy.
FindPath(StartX, StartY, EndX, EndY: Integer; Расчитывает путь из Startx,y До Endx,y и помещает точки
PathList: TList): Boolean; в PathList подряд.
GameClose: Boolean; Закрывает игру (клиент L2)
Заводит персонажа под номером CharIndex в игру
GameStart(CharIndex: Integer = -1): Boolean; (должны находится на панели выбора персонажей), без
параметров при -1, зайдет на последнего активного
персонажа
GameTime: Cardinal; Текущее игровое время
GameVersion : Cardinal; Game Protocol
GameWindow : Cardinal; Получить HWND окна с игрой.
GetCharList: TCharList;
GetDailyItems : Boolean; Получить все ежедневные предметы.
GetDropList: TDropList;
GetFaceState(ID: Integer): Boolean; Узнать статус кнопки интерфейса. (FaceControl)
GetInventory: TInventory;
GetMailItems(MaxLoad: Cardinal = 65; Получить все письма с ограничениями по максимальное
MaxCount: Cardinal = 1000): Boolean; загрузке, и максимальному количеству итемов
GetNpcList: TNpcList;
GetParty: TParty;
GetPetList: TPetList;
GetSkillList: TSkillList;
GetUser: TL2User; Получание объекта User (TL2User) из другого аккаунта.
GoHome(ResType: TRestartType = rtTown) :
Boolean; Возвращает персонажа в город после смерти

Добавляет объект в список игнгора. Методы AutoTarget и

Ignore(Obj: TL2Spawn);
AutoPickup пропускают такие объекты
InviteParty(const Name: string; Loot: Приглашает в группу игрока с именем Name. Loot - тип
TLootType = ldLooter): Boolean; распределения дропа в группе
InZone(Obj: TL2Spawn): Boolean; overload; Объект находится в зоне?
InZone(X, Y, Z: Integer): Boolean; overload; Точка находится в зоне?
IsBusy(Obj: TL2Npc): Boolean; Проверяет объект на "занятость" другими игроками
IsDay: Boolean; День в игре?
JoinParty(Join: Boolean): Boolean; Отвечает на приглашение в группу
LearnSkill(ID: Cardinal): Boolean; Учит скил по ID. В HighFive и ниже должны находиться
возле тренера
LeaveParty: Boolean; Покидает группу
LoadConfig(const Name: string): Boolean; Загрузка конфига с именем Name. По умолчанию из папки
Settings, можно указать полный путь.
LoadItems(ToWH: Boolean; Items: array of Работа со складом, ToWH положить или взять с вархауса,
Cardinal): Boolean; Items массив пар, айди итема и число
LoadZone(const Name: string): Boolean; Загрузка зоны на карту из файла.
MakeItem(Index : Cardinal) : Boolean; скрафтить предмет, Index из списка крафта берется.
MoveItem(const Name: string; Count: Cardinal; Передает/забирает предмет с названием Name у пета в
ToPet: Boolean): Boolean; количестве Count
MoveTo(Obj: TL2Spawn; Dist: Integer):
Boolean; overload; Подойти к объекту Obj на дистанцию Dist

MoveTo(ToX: integer; ToY: integer; ToZ:

integer; const TimeOut : Integer = 8000): Двигаться в точку. TimeOut время в мс сколько пытаться
Boolean; overload; двигаться в точку

MoveToTarget(Dist: Integer = -100): Boolean; Подойти к цели на дистанцию Dist

MSG(Who, What : String; Color : Integer); Написать системное сообщение в окне бота, различного
цвета.
NpcExchange(ID: Cardinal; Count: Cardinal): Обмен вещей у NPC. ID - id вещи которую хотим получить,
Boolean; Count - в каком количестве.
Торговать с Npc. Sell - покупка/продажа. Items - массив
NpcTrade(Sell: Boolean; items: array of
Cardinal): Boolean; предметов для покупки/продажи. Массив должен состоять
из пар ID, Count (кратен двум)
OpenQuestion: Boolean; Открывает "знак вопроса" (требуется для некоторых
квестов)
Pickup(Obj: TL2Drop; Pet: Boolean = false):
Boolean; overload; Подобирает объект Obj. Pet - Подбирает петом

Pickup(Range: Cardinal = 250; ZRange:

Cardinal = 150; OnlyMy: Boolean = false; Pet: Авто-подбор всего дропа в радиусе Range. OnlyMy - Свой
Boolean = false): Integer; overload; или весь дроп. Pet - Подбирает петом

PostMessage(Msg: Cardinal; wParam, lParam:

Integer): Integer;
QuestStatus(QuestID: Cardinal; Step: Проверка выполнен шаг квеста или нет. Step -
Integer): Boolean; интересующий шаг квеста.
Restart: Boolean; Выходит на панель выбора персонажей (чар не должен
находиться в режиме боя)
Say(const Text: string; ChatType: Cardinal =
0; const Nick: string = ''): Boolean; Написать в чат.

Отправка почты. Recipient - адресат; Theme - тема;

Content - содержание; Items - список (массив)
прикрепленных вещей (ID/Кол-во); Price - цена (если
SendMail(const Recipient: string; const
указана считается "Безопасная сделка" иначе "Простая
Theme: string; const Content: string; Items:
array of Cardinal; Price: Cardinal = 0): отправка"). Если вещь с отправляемым ID не найдена у
Boolean; персонажа, она будет автоматически исключена из
отправки (отправка не срывается). Если при отправке
какой либо вещи указанное кол-во превышает реальное,
оно будет автоматически исправлено.
ф-ии для отправки сообщений игровому окну л2.
SendMessage(Msg: Cardinal; wParam, lParam:
Integer): Integer; Используется для нажатия клавиш клавиатуры / мышки.
Подробное описание в гугле. Работает на РуОфе
ServerTime: Cardinal;

SetPartyLeader(const Name: string): Boolean; Передает лидерство в группе игроку с именем Name (ваш
персонаж должен быть лидером группы)
SetTarget(const Name: string): Boolean;
overload; Взятие цели по имени.

SetTarget(ID: Cardinal): Boolean; overload; Взятие цели по ID.

SetTarget(Obj: TL2Live): Boolean; overload; Взятие объекта Obj в качестве цели.

Sit: Boolean; Сесть
Stand: Boolean; Встать
Status: TL2Status; Текущий статус аккаунта
StopCasting : Boolean; Прервать чтение заклинания.
Unstuck : Boolean; Сделать Unstuck;
UpdateSkillList: Boolean; Открыть скил лист, для IL серверов.
UseAction(ID: Cardinal; Ctrl: Boolean =
false; Shift: Boolean = false): Boolean; Использование игровых действий.

UseItem(const Name: string; Pet: Boolean =

false): Boolean; overload; Использует предмет по имени. Pet - использует петом

UseItem(ID: Cardinal; Pet: Boolean = false):

Boolean; overload; Использует предмет по ID. Pet - использует петом

UseItem(Obj: TL2Item; Pet: Boolean = false):

Boolean; overload; Использует предмет Obj. Pet - использует петом

UseKey(const Key: string; Ctrl: Boolean =

False; Shift: Boolean = False): Boolean;
overload;

UseKey(Key: Word; Ctrl: Boolean = False;

Shift: Boolean = False): Boolean; overload; Нажать кнопку. Зажимая Ctrl, Shift

UseSkill(const Name: string; Ctrl: Boolean =

false; Shift: Boolean = false): Boolean; Использует скил по имени
overload;

UseSkill(ID: Cardinal; Ctrl: Boolean = false;

Shift: Boolean = false): Boolean; overload; Использует скил по ID

WaitAction(Actions: TL2Actions; var P1; var

P2; TimeOut: Cardinal = INFINITE): Ожидание события или группы событий
TL2Action;
TL2Object = class
TL2Object = class Базовый класс всех игровых объектов
ID: Cardinal; ID объекта
Name: String; Имя объекта
OID: Cardinal; Уникальный идентификатор для любого объекта в игре.
Valid: Boolean; Проверка объекта на существование в игре
(актуальность)
SetVar(Value: Cardinal); назначить объекту переменную
GetVar: Cardinal; получить значение переменной
L2Class: TL2Class; Узнать класс к которому относится данный объект.

TL2Spawn = class(TL2Object);
TL2Spawn = class(TL2Object); Все объяекты в не персонажа
DistTo(X: Integer; Y: Integer; Z: Integer):
Cardinal; overload; Возвращает дистанцию до заданной точки

DistTo(Obj: TL2Spawn): Cardinal; overload; Возвращает дистанцию до объекта Obj

InRange(X: Integer; Y: Integer; Z: Integer;
Проверка вхождения точки (относительно объекта) в
Range: Cardinal; ZRange: Cardinal = 250):
Boolean; заданный радиус

InZone: Boolean; Проверка на вхождение объекта в зону охоты

SpawnTime: Cardinal; Время появление объекта.
X: Integer; Координаты объекта
Y: Integer; Координаты объекта
Z: Integer; Координаты объекта

TL2Drop = class(TL2Spawn);
TL2Drop = class(TL2Spawn); Дроп в игре
Count: int64; Количество
IsMy: Boolean; Дроп принадлежит нам или нет ("Нам" - если выбил наш
чар, пет или члены пати)
Stackable: Boolean; Стопковый предмет или не может стакаться

TL2Npc = class(TL2Live);
TL2Npc = class(TL2Live); Базовый класс для всех NPC
IsPet: Boolean; Пет или нет
PetType: Cardinal; Тип пета (самон или пет)

TL2Pet = class(TL2Npc);
TL2Pet = class(TL2Npc); Класс описывающий наших петов/самонов
Fed: Cardinal; Еда (проценты)

TL2Char = class(TL2Live);
TL2Char = class(TL2Live); Базовый класс для всех игроков
CP : Cardinal;
CurCP : Cardinal;
MaxCP : Cardinal;
Hero : Boolean;
Noble : Boolean;
ClassID : Cardinal;
MainClass: Cardinal;
MountType: Byte; Тип ездового животного
StoreType: Byte;
Sex : Cardinal; 0 мужик 1 женщина
Race : Cardinal;
CubicCount: Cardinal;
Recom: Cardinal;
Premium : Boolean;
TL2User = class(TL2Char);
TL2User = class(TL2Char); Класс описывающий нашего персонажа
CanCryst: Boolean; Может кристализовать предметы наш герой или нет?
Charges: Cardinal; для гладов зарядки
WeightPenalty: Cardinal;
WeapPenalty: Cardinal;
ArmorPenalty: Cardinal;
DeathPenalty: Cardinal;
Souls: Cardinal; для камаэелей души

TL2Effect = class(TL2Object);
TL2Effect = class(TL2Object); Базовый класс всех магических эффектов
Level: Cardinal; Уровень скила
EndTime: Cardinal; Время до окончания действия

TL2Buff = class(TL2Effect);
TL2Buff = class(TL2Effect); Класс описывающий бафы
TL2Live = class(TL2Spawn);

TL2Live = class(TL2Spawn); Базовый класс "живых" объектов в игре (игрок, нпс,

пет и т.д.)
AbnormalID : Cardinal; айди получившийся из наборов флагов. Примеры ниже.
Abnormals : TBuffList; Для ГОД+ хроник.
Ally: string; Имя альянса
AllyID: Cardinal; ID альянса в который входит объект
Attackable: Boolean; Свободно атакуемый (без ctrl)
AtkOID: Cardinal; OID объекта который атакует
AtkTime: Cardinal; время когда начал атаковать
Бафы объекта (доступны для нашего чара, пета и
Buffs: TBuffList;
сопартийцев)
Скил который объект кастует в данный момент. Актуально
Cast: TL2Effect; если [Link] > 0, иначе объект в данный момент не
кастует.
Clan: string; Имя клана
ClanID: Cardinal; ID клана в который входит объект
CurHP: Cardinal; Точное количество жизней
CurMP: Cardinal; Точное количество маны
Dead: boolean; Жив или убит
Объект выронил предмет или нет (Dead должен быть
Dropped: Boolean;
True)
Exp: Int64; Опыт
EXP2: Int64;
Fishing: Integer;
Fly: Boolean; This is Fly, a member of class TL2Live.
HP: Cardinal; Текущее кол-во HP в процентах
InCombat: Boolean; Объект находится в комбате или нет
IsMember: Boolean; Является объект членом группы или нет
Карма (начиная с GoD может быть как отрицательной (PK)
Karma: Integer;
так и положительной (репутация))
Level: Byte; Уровень
Загруженность (проценты) (доступен для нашего чара или
Load: Cardinal;
петов)
MaxHP: Cardinal; Максимальное количество ХП
MaxMP: Cardinal;
Moved : Boolean; Движется ли объект?
MP: Cardinal; Текущее кол-во MP в процентах
MyAtkTime: Cardinal; когда я его атаковал?
PK: Boolean; Player Killer
PvP: Boolean; Объект находится в режиме PvP
Running: Boolean; Объект движется пешком или бегом
Sitting: Boolean; Сидит?
SP: Cardinal; Очки SP
Speed: Double;
Sweepable: Boolean; Можно свипать?
Target: TL2Live; Цель объекта
для пвп серверов (красное синие подсвечивание), так же
Team: Byte;
мобы "чемпионы"
TeleportDist: Cardinal; Дистанция последней телепортации
TeleportTime: Cardinal; Время последней телепортации
Title: string; Титул объекта
ToX: Integer; Координаты куда направился объект.
ToY: Integer;
ToZ: Integer;
TL2Skill = class(TL2Effect);
TL2Skill = class(TL2Effect); Класс описывающий скилы
Disabled: Boolean; Скил не доступен
Enchanted: Boolean; This is Enchanted, a member of class TL2Skill.
Passive: Boolean; Скил пасивный

TL2Item = class(TL2Object);
TL2Item = class(TL2Object); Класс описывающий итемы в инвентаре
Count: Int64; Количество (если стопка)
Equipped: Boolean; Вещь надета или нет
EnchantLevel: Word; This is EnchantLevel, a member of class TL2Item.
ItemType : Cardinal; 0 оружие; 1 броня; 2 бижа; 5 ресурсы и все остальное
Grade: Cardinal;
GradeName: string; ('NG', 'D', 'C', 'B', 'A', 'S', 'S80', 'S84', 'R', 'R95', 'R99');

TL2AucItem = class(TL2Item)

TL2AucItem = class(TL2Item) Класс, описывающий предмет аукциона

LotType: Cardinal;
Seller: string; Продавец
Price: Int64; Цена лота за которую сразу можно выкупить предмет.
Если равна 0, то выкупить
Days: Cardinal;
Время до завершения торгов в секундах
EndTime: Cardinal;

TL2List = class;
Все листы объектов в боте наследуются от этого
TL2List = class; класса, списки: бафов, нпц, чаров, дропа,
предметов.
ByID(ID: Cardinal; var Obj): Boolean; Поиск объекта в списке по ID. Если объект найден, он
помещается в переменную Obj.
ByName(const Name: string; var Obj): Boolean; Поиск объекта в списке по имени. Если объект найден, он
помещается в переменную Obj.
Count: integer; Количество объектов в списке
Items(Index: integer): TL2Object; Позволяет обратиться к объекту в списке по индексу
TL2Auction = class(TL2List)

Класс для работы с аукционом. Список заполняется

в результате работы ф-ий Search и GetMySales.
TL2Auction = class(TL2List)
Объект класса В скриптах доступен по имени Auction.

function Search(const Name: string; Grade:

Integer = -1; PageID: Integer = 0): Boolean;
Grade: 0 - NG; 1 - D,.., 10 - R99.
function SellItem(Item: TL2Item; Count,
Price, Days: Cardinal; CustomName: string =
''): Boolean; Days: 1, 3, 5, 7
function BuyItem(Item: TL2AucItem): Boolean;

function GetMySales: Boolean; получить список своих лотов продажи

function CancelItem(Item: TL2AucItem):
Boolean; снимет предмет с продажи
property Items: TL2AucItem;

TL2WareHouse = class(TL2List)
TL2WareHouse = class(TL2List) Лист с TL2Item внутри вархауса
property WHType: Word Тип вархауса
property Adena: Int64
Items(Index: integer): TL2Item;

TSpawnList = class(TL2List);
TSpawnList = class(TL2List); Список объектов все что имеют координаты.
Items(Index: integer): TL2Spawn; Позволяет обратиться к объекту в списке по индексу

TNpcList = class(TL2List);

TNpcList = class(TL2List); Список окружающих нас NPC. В скриптах доступен

по имени NpcList
Items(Index: integer): TL2Npc; Позволяет обратиться к объекту в списке по индексу

TPetList = class(TL2List);

TPetList = class(TL2List); Список наших петов. В скриптах доступен по имени

PetList
Items(Index: integer): TL2Pet; Позволяет обратиться к объекту в списке по индексу

TCharList = class(TL2List);

TCharList = class(TL2List); Список окружающих нас игроков. В скриптах

доступен по имени CharList
Items(Index: integer): TL2Char; Позволяет обратиться к объекту в списке по индексу

TDropList = class(TL2List);

TDropList = class(TL2List); Список окружающего нас дропа. В скриптах

доступен по имени DropList
Items(Index: integer): TL2Drop; Позволяет обратиться к объекту в списке по индексу

TSkillList = class(TL2List);

TSkillList = class(TL2List); Список содержащий скилы нашего персонажа. В

скриптах доступен по имени SkillList
Items(Index: integer): TL2Skill; Позволяет обратиться к объекту в списке по индексу

TBuffList = class(TL2List);
TBuffList = class(TL2List); Список содержащий бафы объекта.
Items(Index: integer): TL2Buff; Позволяет обратиться к объекту в списке по индексу

TItemList = class(TL2List);
TItemList = class(TL2List); Список инвентаря.
Items(Index: integer): TL2Item; Позволяет обратиться к объекту в списке по индексу
TParty = class;

TParty = class; Класс описывающий нашу группу. В

скриптах доступен по имени Party.
Pets: TNpcList; Список петов в группе.
Chars: TCharList; Список чаров в группе.
LootType: TLootType; Тип распределения лута в группе.
Leader: TL2Char; Лидер группы

TInventory = class;

TInventory = class; Класс содержащий инвентари. В скриптах

доступен по имени Inventory.
Pet: TItemList; Инветарь нашего пета
User: TItemList; Инветарь нашего персонажа.
Quest: TItemList; Инветарь нашего персонажа (квестовый)

TConfirmDlg = class
TConfirmDlg = class Класс подробно описывающий диалоги
MsgID : Cardinal;
ReqID : Cardinal;
Sender: string;
EndTime: Cardinal;
Valid : Boolean;

ChatMessage

ChatMessage Объект для работы с чатом

[Link]: boolean; Не прочитано нами?
[Link]: string; Кто отправил.
[Link]: string; Текст что напечатал отправивший
[Link]: TMessageType; Тип отправленного сообщения.

TL2Script = class
TL2Script = class; Класс доступный по имени Script
Вызов процедуры в основном потоке программы. Proc -
MainProc(Proc: Pointer); указатль на процедуру потока; Parameter - любой
передаваемый параметр (не обязательный)
Создает новый поток скрипта. Proc - указатль на
NewThread(Proc: TThreadFunc; Parameter: процедуру потока (procedure MyThread(Prm: Pointer))
Pointer = nil); Parameter - любой передаваемый параметр (не
обязательный)
Path: String; Полный путь к файлу скрипта.
PaxFile : String; Путь скрипта.
Replace(const FullPath : String); Заменить скрипт
Resume; Возобновляет работу скрипа
Suspend; Ставит скрипт на паузу
Глобальные функции и переменные:

Функции API бота:

Глобальные функции Доступны в любом месте
PlaySound(const FileName: string; Loop: Проигрывает звуковой файл в формате wave (.wav).
Boolean); Loop - зациклить воспроизведение.
StopSound; Останавливает воспроизведение звукового файла
Delay(ms: Cardinal): Boolean; Задержка скрипта на указанное число миллисекунд.
ExePath: string; Возвращает путь к папке с Adrenaline
GetHWID : Cardinal; Получить уникальный код компьютера.
GetControl(const Name: string): TL2Control; Получает объект Engine другого персонажа. Name - имя
персонажа.
Получает уникальный ID (хэш) основанный на бот-
BotLoginID: Cardinal;
логине.

Глобальные переменные
Глобальные переменные доступные без импорта модулей и из любього места
Engine : TL2Control; Контроллер текущего окна
User : TL2User; Персонаж для текущего Engine
Auction : TL2Auction; Лист с предметами на аукционе
SpawnList : TSpawnList;
NpcList : TNpcList;
PetList : TPetList;
CharList : TChatList;
DropList : TDropList;
SkillList : TSkillList;
ItemList : TItemList;
Party : TParty;
Inventory : TInventory; содержащий инвентари
Script : Tscript;
WareHouse: TL2WareHouse; Лист с итемами вархуса
ChatMessage : TChatMessage; буфер где хранится последняя информация о чате

Функции преобразования данных

Функции преобразования данных
MemToHex(const dt; size: Word; sep: char =
#0): String; overload;
MemToHex(const Mem: AnsiString): String;
overload;
HexToMem(const Hex: string; var Buf):
Cardinal; overload;
HexToMem(const Hex: string): AnsiString;
overload;
API для каптчи

Captcha API
Функция GetСaptcha - распознает картинку используя
function GetСaptcha(ImageData: TMemoryStream; сервис [Link]
APIKey: String; var CaptchaRes: String; Параметры функции:
MinLen: integer=0; MaxLen: integer=0; ImageData - стрим, содержащий картинку с каптчей
Numeric: integer=0; Phrase: integer=0; ImageFile - путь к файлу каптчи
RegSense: integer=0; Calc: integer=0; APIKey - ключ сервиса [Link] для
Russian: integer=0): Integer; overload;
распознавания
CaptchaRes - буффер, в который попадает текст каптчи,
либо сообщение об ошибке
MinLen - минимальная длина текста каптчи
MaxLen - максимальная длина каптчи
Phrase - если 1, помечает что каптча состоит из
нескольких слов
function GetСaptcha(ImageFile: string; Regsense - если 1, помечает что текст каптчи
APIKey: String; var CaptchaRes: String; чувствителен к регистру
MinLen: integer=0; MaxLen: integer=0; Numeric - если 1, помечает что текст каптчи состоит
Numeric: integer=0; Phrase: integer=0; только из цифр, 2 помечает что на каптче нет цифр
RegSense: integer=0; Calc: integer=0; Calc - если 1, помечает что цифры на каптче должны
Russian: integer=0): Integer; overload;
быть высчитаны
Russian - если 1, помечает что вводить нужно только
русский текст, 2 - русский или английский
Функция возвращает:
Номер каптчи CaptchaID, при ошибке 0

Функция CapchaBalance - выводит текущий баланс

Параметры функции:
function СaptchaBalance(APIKey: String): APIKey - ключ сервиса [Link] для
String; распознавания
Функция возвращает:
Строку с содержанием баланса, либо 'N/A' при ошибке

Функция CapchaReportBad - отправляет жалобу о неверно

распознанной каптче
Параметры функции:
APIKey - ключ сервиса [Link] для
распознавания
function GetСaptchaReportBad(APIKey: String;
CaptchaID: Integer): String; CaptchaID - номер каптчи, которая была неверно
распознана
Функция возвращает:
Строку с результатом ответа от сервиса
(OK_REPORT_RECORDED - в случае успеха), либо 'N/A' при
ошибке

по умолчанию равен [Link], при необходимости его

CaptchaServer
можно изменить

Прочее
Прочее Для опытных скриптеров.
Procedure OnFree; Вызывается при завершении скрипта. Тело процедуры
надо писать самому.
function OnEntry(var Param) Функция, тело которой должно быть написанно в вашем
коде. Для вызова с другого TL2Control, через Entry
Массив, который доступен из любого TL2Control (любого
ShMem: array[0..1000] of integer;
персонажа)
Перечисляемые типы.
Enum values
TL2Status = (
lsOff, Отключен
lsOnline, Онлайн
lsOffline Оффлайн
);

TL2Race = (
rtHuman,
rtElf,
rtDarkelf,
rtOrc,
rtDwarf,
rtKamael
);

TLootType = (
ldLooter Нашедшому
ldRandom Случайно
ldRandomSpoil Случайно + присвоить
ldOrder По очереди
ldOrderSpoil По очереди + присвоить
);

TStoreType = ( Тип торговой лавки

stNone,
stSell,
stPrepare,
stBuy,
stUnknown2,
stManufacture,
stUnknown6,
stObservingGames,
stSellPackage
);

TL2Actions = ( Перечисляемый тип для WaitAction

laSpawn, отреспился предмет, любой TL2Spwan
laDelete,
laPetSpawn,
laPetDelete,
laInvite,
laDie,
laRevive,
laTarget, Любой TL2Live взял кого то в таргет
laUnTarget,
laInGame в игре
laStatus поменялся статус
laBuffs,
laSkills,
laDlg,
laConfirmDlg, p1 : TConfirmDlg
laStop,
laStartAttack,
laStopAttack,
laCast, Любой TL2Live кастует скил.
laCancelCast,
laTeleport, TL2Live телепортировался
laAutoSoulShot,
laNpcTrade,
laSysMsg, p1 = id системного сообщения
laChat, не юзать, вместо него ChatMessage
laKey p1 = id клавиши
);
TRestartType = ( для функции [Link]
rtTown,
rtClanHoll,
rtCastle,
rtFort,
rtFlags
);

TMessageType = ( для [Link]

mtSystem,
mtAll,
mtPrivate,
mtParty,
mtClan,
mtFriend,
mtShout
);

TL2Class = ( для поля у TL2Object

lcError,
lcDrop,
lcNpc,
lcPet,
lcChar,
lcUser,
lcBuff,
lcSkill,
lcItem
);
Классы в подключаемых модулях.

TTCPBlockSocket = class

Класс доступен в модуле TCP.

TTCPBlockSocket = class Класс для работы с TCP соеденением

constructor Create;
destructor Destroy; override;
procedure CloseSocket; override;
function WaitingData: integer; override;
procedure Listen; override;
function Accept: integer; override;

procedure Connect(IP, Port: string); override;

function SendBuffer(Buffer : pointer; Len :

integer) : integer; override;

Function RecvBuffer(Buffer : pointer; Len :

integer; Timeout : integer) : integer; virtual;

Procedure SendByte(Data : byte); virtual;

Function RecvByte(Timeout : integer) : byte;
virtual;
Procedure SendString(Data : ansistring);
virtual;
Function RecvString(Timeout : integer) :
ansistring; virtual;

Procedure SendInteger(Data : integer); virtual;

Function RecvInteger(Timeout : integer) :

integer;
Property LastError : integer;
TICQ = class

Класс доступен в модуле ICQ.

TICQ = class Класс для работы с ICQ.

constructor Create;
destructor Destroy; override;
Текущий статус:
ONLINE = $00000000;
property Status: Cardinal; INVISIBLE = $00000100;
AWAY = $00000001;
NA = $00000005;
OFFLINE = $FFFFFFFF;
function Connected: Boolean; Подключены или нет в текущий момент к серверу ICQ.
Осуществляет подключение к серверу ICQ.
function Connect(UIN : Cardinal; const UIN - номер ICQ под которым требуется войти.
Password : string; const Server : string = Password - пароль от ICQ.
'[Link]'; Port : Word = 5190; TimeOut Server - адрес сервера ICQ.
: Byte = 5) : Boolean; Port - порт сервера.
TimeOut - время на попытку подключения (в секундах).
procedure Disconnect; Отключение от сервера.
procedure SendMessage(UIN : Cardinal; const Отправка сообщения.
Msg : string); UIN - номер получателя.
Msg - текст сообщения.
Вызывается при ошибке.
procedure OnError(Sender : TObject; ErrorType ErrorType - тип ошибки
: TErrorType; const ErrorMsg : string); ErrorMsg - текст ошбки
virtual; (Используется в наследующих классах для перекрытия -
override)
Получено сообщение.
procedure OnMessageRecv(Sender : TObject; Msg - текст сообщения.
Msg, UIN : string); virtual; UIN - номер отправителя.
(Используется в наследующих классах для перекрытия -
override)
Контакт из вашего списка ICQ отключился от сервера.
procedure OnUserOffline(Sender : TObject; UIN UIN - номер отключившегося
: string); virtual; (Используется в наследующих классах для перекрытия -
override)
Вы были отключены сервером.
procedure OnServerDisconnect(Sender : Reason - причина (код)
TObject; Reason : LongInt; Description : Description - текстовое описание причины.
string); virtual; (Используется в наследующих классах для перекрытия -
override)
ПРИМЕРЫ

ChatMessage

var
Obj: Tl2Live;
begin
while True do
begin
if [Link] and ([Link] < 3000) then
begin
if [Link]([Link], Obj) and not [Link] then
if [Link] then
begin
print([Link]);
print([Link]);
print([Link]);
print([Link]);
end;
end;
Delay(111);
end;
end.

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

Function [Link]

Function IsUD(actor : TL2Live) : Boolean;

begin
Result := [Link] and $8000000 = $8000000;
end;

//Цель в УД стоит?
begin
if isUD([Link]) then
print('Да в УД');
end.

Проверить находится цель в УД или нет. Значение $8000000 это один из битов переменной поля AbnormalID,
обозначающий есть ли эффект UD.
Некоторые другие эффекты:

bleeding = $1;
poison = $2;
redcircle = $4;
ice = $8;

function [Link]

Для текущего скрипта TL2Control доступен по имени Engine так же список скилов доступен по переменной SkillList.
С другого TL2Control можно получить список скиллов с помощью GetSkillList

Function GetSkill(const Control : String; const ID : Cardinal) : TL2Skill;

var
NovObj : TL2Skill;
NovEngine : TL2Control;
begin
NovEngine := GetControl(control);
if Assigned(NovEngine) and [Link](ID, NovObj) then
Result := NovObj;
end;

begin
if Assigned(GetSkill('MoyaEEshka',1255)) then
GetControl('MoyaEEshka').UseSkill(1255) //Recall
Else
[Link](736); //Юзаем сое
end.

Если есть у нашей ЕЕ с ником 'MoyaEEshka' скилл Party Recall, то используем его на ней, если нету то
используем сое.
function TL2Control. GameWindow

Зачем он нужен этот HWND игрового окна?

Например в скрипте можно использовать WinApi функции.

function SetForegroundWindow(hwnd: integer) : Boolean; stdcall;

external '[Link]';

begin
While [Link](5000) then
if [Link] then
SetForegroundWindow([Link]);
end.

развернуть окно с игрой на передний план, если мы померли.

[Link](Who, What : String; Color : Integer);

Чтобы раскрасить системный чат в Боте можно использовать данный метод.

Цвет задается целочисленным значением. Некоторые из возможных:

clBlack = 0; //черный
clMaroon = 128; //Тёмно-красный
clGreen = 32768; //Зелёный
clOlive = 32896; //Оливковый
clNavy = 8388608; //Тёмно-синий
clPurple = 8388736; //Пурпурный
clTeal = 8421376; //Стальной
clGray = 8421504; //Серый
clSilver = 12632256; //Серебряный
clRed = 255; //Красный
clLime = 65280; //Ярко-зелёный
clYellow = 65535; //Жёлтый
clBlue = 16711680; //Синий
clFuchsia = 16711935; //Фиолетовый
clAqua = 16776960; //Бирюзовый
clWhite = 16777215; //Белый

[Link]...

Знать информацию о каждом объекте, когда телепортировался и насколько далеко. В том числе и о себе.

begin
While [Link](1000) do
if (GettickCount - [Link] < 5000) and ([Link] < 2000) and
([Link] > 10) then //5 сек назад был телепорт
begin
print('Teleported!');
PlaySound(exepath + '\sounds\' + 'dc' + '.wav', False);
end;
end.

Проиграть звук при телепорте из папки с ботом, в папке Sounds звук [Link].
Отключить интерфейс на 15 сек всех кто в пати и на одном боте, при телепорте

procedure FaceControlForAll(Pos : Boolean);

var
NowEng : TL2Control;
i : Integer;
begin
For i := 0 to [Link] - 1 do
begin
NowEng := GetControl([Link](i).name);
if Assigned(NowEng) then
[Link](0, Pos);
end;
[Link](0, Pos);
end;

procedure MassOff;
var
P1, P2 : Pointer;
begin
While True do
begin
if ([Link]([laSysMsg], P1, P2, 500) = laTeleport) and
(TL2Char(P1).IsMember or
(TL2Char(P1) = User)) then
begin
FaceControlForAll(False);
Delay(15000);
FaceControlForAll(True);
end;
end;
end;

//****************************

begin
[Link](@MassOff);
Delay (-1);
end.

в методе FaceControlForAll пробегаемся циклом по всем никами игроков в пати, где случился телепорт, в случае если игрок запущен на этом
компьютере (боте) выключаем его.

Простейший делевел

var
I : INteger;
dist : Cardinal;
TrueGvard, CheckGvard : TL2Npc;
const
GvardsArray : array [1..8] of Cardinal =
(30039, 30040, 30041, 30042, 30043, 30044, 30045, 30046);
begin
print('Начинаем Делевел');

While [Link] > 81 do

begin
dist := 10000;
TrueGvard := nil;
For i := low(GvardsArray) to High(GvardsArray) do
if [Link](GvardsArray[i], CheckGvard) and ([Link](CheckGvard) < Dist) then
begin
TrueGvard := CheckGvard;
dist := [Link](CheckGvard);
end;
if Assigned(TrueGvard) then
begin
[Link](TrueGvard, -5);
[Link](TrueGvard);
[Link](500, True);
end;
if [Link] then
[Link];
end;
end.

Если видим айди нпц который указан в массиве, GvardsArray (по умолчанию вписанны гварды с острова Людей),
находим самого ближнего.
бежим к нему в плотную, и начинаем через контрл атаковать.
Если померли встаем в город.
Автоматически кидаем репорт игроку взявшему нас в таргет
uses
SysUtils, Classes;

var
TargetLogSL : TStringList;

Procedure CheckTarget;
var
i : Integer;
begin
if [Link] > 5 then exit;

i := 0;
While i < [Link] do
begin
if (([Link](i).[Link] = [Link]) or [Link](i).[Link]) and not
[Link](i).IsMember then
if [Link]([Link](i).name) = -1 then
begin
[Link]([Link](i).name);
print('нас затаргетил: ' + [Link](i).name);
if [Link]([Link](i)) then
[Link](65);
break;
end;
inc(i);
end;
end;

Procedure OnFree;
begin
[Link];
end;

begin
TargetLogSL := [Link];
While [Link](100) do
CheckTarget;
[Link];

end.

Перехват нажатия клавиш, вместе с ctrl alt shift.

1. uses
2. SysUtils;
3.
4. function GetKeyState(nVirtKey: integer): byte; stdcall;
5. external '[Link]' name 'GetKeyState' ;
6.
7. function KeyDown(K : byte) : Boolean;
8. begin
9. Result := (K = 128) or (K = 129)
10. end;
11.
12. function SHIFT : boolean;
13. begin
14. Result := KeyDown(GetKeyState($10));
15. end;
16.
17. function CTRL : boolean;
18. begin
19. Result := KeyDown(GetKeyState($11));
20. end;
21.
22. function ALT : boolean;
23. begin
24. Result := KeyDown(GetKeyState($12));
25. end;
26.
27. procedure ActionThread(p: pointer); //Поток для ожидания/обработки событий
28. var
29. KeyCode, i: integer;
30. begin
31. while [Link] = lsOnline do
32. begin //Цикл действует пока чар в игре (Online)
33. [Link]([laKey], KeyCode, i);
34.
35. if ctrl and shift and (KeyCode = $4F) then //ctrl + SHift + "O"
36. [Link](1398);
37.
38. if ctrl and alt and (KeyCode = $50) then //ctrl + alt + "P"
39. [Link](1398);
40. end;
41. end;
42.
43. begin
44. [Link](@ActionThread);
45. Delay(-1); //Бесконечная пауза
46. end.