Просмотр полной версии : Простейший скрипт Adrenaline
Хочу написать простейший скрипт, но в делфи не силен вобще да и в программировании посредственные знания. Вот что написал но адренали отказывается принимать, подскажите плз
begin
procedure Atac;
begin
Engine.AutoTarget(900;300;true);
Engine.UseSkill(1155;false;false);
Engine.MoveTo(118069,75907,-2680);
delay(3000);
Attack(2000;false);
end;
end.
Antharas
17.04.2015, 04:03
компилятор же пишет, в чем проблема.
аргументы в функции передают через , а не ;
; Только на конце строк
Большое спасибо теперь хоть компилятор не ругается
Добавлено через 32 минуты
Теперь прошу совет знающего либы Адреналина, исправил и вот что получилось, но из всех команд не исполняется только AutoTarget, подскажите почему?
begin
Engine.AutoTarget(1200,1200,true);
Engine.UseSkill(281,false,false);
Engine.MoveTo(-96253,50290,-2384);
delay(3000);
Engine.Attack(0,false);
end.
Antharas
18.04.2015, 05:15
ну во первых интересно что ты ждешь от данного скрипта
у тебя тут 1 раз запустил скрипт и 1 раз выполнил какие то дейсвия
надеюсь ты вкурсе.
а во вторых, автотаргет таргетит только в зоне, если она есть. Так что очисти карту
Yana Brusenceva
19.04.2015, 19:47
Добрый день кто подскажет как правильно написано скрипт для покупки и продаже вещей!?
begin
Engine.SetTarget(31952); //id Продавца
delay(500);
Engine.DlgOpen; //открываем дилог
delay(500);
Engine.DlgSel(2); // жмём строчку покупки рассходных материалов
delay(500);
Engine.npctrade (true,[736,20]); //покупка () 20 сое
delay(3000);
end.
Вычитал что на Interlude к сожалению это не работает Engine.NPCtrade (бот адреналин)
А так же , что якобы есть аналоги данной функции, кто может подсказать или намекнуть как можно реализовать продажу покупку айтемов на интерлюд!?
http://forum.lineage2bot.net/viewtopic.php?f=11&t=1116 ссылка на тему.
может кто мне подскажет что я не так сделал. хотел облегчить сибе жизнь))). задумка была в том что бы перс после смерти не бежал к телепорту а портовался через альт б, но когда загружаю в адреналин строчка с командой загорается красным
var
obj: TL2NPC;
obj2: TL2Effect;
Enemy: TL2Live;
Begin
while 1<>2 do begin // бесконечный цикл
// этот кусок не трогаем
if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд
begin
Engine.FaceControl(0,false);
Engine.gohome;
delay(5000);
Engine.FaceControl(0,true);
bbshome;
_bbsteleport;
_bbsteleport;page teleport_town_oren;
_bbsteleport;go 82904 53240 -1522;
Engine.SetTarget(50124);
// открывем диалоговое окно и прожимаем строки ( у нас сначала 2 потом 15)
Engine.DlgOpen();
Engine.DlgSel(1);
Engine.DlgSel(14);
Engine.MoveTo(88792, 61416, -3680);
Engine.MoveTo(89928, 61720, -3344);
end;
delay(550);
delay(550);
end;
end.
vBulletin® v3.6.11, Copyright ©2000-2025, Jelsoft Enterprises Ltd. Перевод: zCarot