Некоторые команды для Адреналина

18:52 | 22.12.2024

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

Sonik · Offline · Дата: Суббота, 05.12.2015, 16:08 | Сообщение # 1

Подполковник
Сообщений: 143

Это некоторые команды взяты со справочника в котором имеются все команды, это простой пример. Полный список с подробынм описание находится тут Классы и процедуры Adrenalin

Переменные
uses SysUtils, Classes;
var Figth_Flag:boolean;
Item: TL2Item;
Npc: TL2Npc;
Obj: TL2Buff;
L2Skill: TL2Skill;
Control: TL2Control;
TNpcList: TL2List;

Команды
Delay(100); - пауза 100мс
Engine.GoHome; - встать в город
Engine.Facecontrol(0,False); - вЫключить конфиг
Engine.Facecontrol(0,True); включить конфиг
Print('proverka1'); написать в систем чат бота proverka1
Engine.LoadConfig('ЭльфКач'); - загрузить конфиг из папки сетинг (по умолчанию) в скрипт
Engine.MoveTo(46035, 42083, -3499); - побежать в точку
Engine.SetTarget('Гид Новичков'); - взять в таргет НПС
Engine.MoveToTarget(-20); - подойти к объекту за 20 игровых единиц
Engine.DlgOpen; - открыть диалог
Engine.DlgSel(6); - нажать на строку в диалоге, где 6 номер строки по списку сверху вниз
Figth_Flag:=true; - отфлагаться
Engine.NPCTrade(false,[8824,1]); - покупать предмет НПС
Engine.NPCTrade(True,[8824,1]); - продавать предмет НПС
Engine.npcexchange(8824,1); - покупать теневое оружие или в альт+В
Engine.UseItem(8824); - использовать Итем
engine.bypasstoserver('_bbshome',true); - использовать команду из альт+В
pause; - выключить скрипт

Условия
if User.InRange(45989, 186754, -3512,7000) then - если в радиусе данной точки, то
if not User.Buffs.ById(1204, Obj) then - если нет бафа с таким ID, то
if not Engine.QuestStatus(622, 32) then - если стадия квесте не 32, то
if not Inventory.Quest.ByID(7198, Item) then - если в инвентаре нет предмета с этим ID, то
if Inventory.Quest.ByID(7198, Item) and (Item.count = 1) then - то же самое про квсест итем
if not Inventory.User.ByID(10477, Item) then - то же самое про квсест итем
if Inventory.User.ByID(10477, Item) and (Item.count = 1) then - если в инвентаре 1 квестовый итем с таким то ID

Некоторые команды для Адреналина

Страница 1 из 1
1