Вернуться   CoderX :: Forums > Lineage II > ASI
Войти через OpenID

ASI Обсуждение программы ASI (автор - pcoder)

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 17.04.2015, 00:29   #1
Новичок
 
Регистрация: 17.04.2015
Сообщений: 3
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
afas пока неопределено
По умолчанию Простейший скрипт 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.
afas вне форума   Ответить с цитированием
Старый 17.04.2015, 04:03   #2
Местный
 
Аватар для Antharas
 
Регистрация: 26.11.2012
Сообщений: 207
Сказал Спасибо: 23
Имеет 18 спасибок в 18 сообщенях
Antharas пока неопределено
По умолчанию

компилятор же пишет, в чем проблема.
аргументы в функции передают через , а не ;
; Только на конце строк
__________________
lllllllllllllllllll
Antharas вне форума   Ответить с цитированием
Старый 17.04.2015, 10:46   #3
Новичок
 
Регистрация: 17.04.2015
Сообщений: 3
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
afas пока неопределено
По умолчанию

Большое спасибо теперь хоть компилятор не ругается

Добавлено через 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.

Последний раз редактировалось afas, 17.04.2015 в 11:01. Причина: Добавлено сообщение
afas вне форума   Ответить с цитированием
Старый 18.04.2015, 05:15   #4
Местный
 
Аватар для Antharas
 
Регистрация: 26.11.2012
Сообщений: 207
Сказал Спасибо: 23
Имеет 18 спасибок в 18 сообщенях
Antharas пока неопределено
По умолчанию

ну во первых интересно что ты ждешь от данного скрипта
у тебя тут 1 раз запустил скрипт и 1 раз выполнил какие то дейсвия
надеюсь ты вкурсе.
а во вторых, автотаргет таргетит только в зоне, если она есть. Так что очисти карту
__________________
lllllllllllllllllll
Antharas вне форума   Ответить с цитированием
Старый 19.04.2015, 19:47   #5
Новичок
 
Регистрация: 19.04.2015
Сообщений: 1
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Yana Brusenceva пока неопределено
По умолчанию

Добрый день кто подскажет как правильно написано скрипт для покупки и продаже вещей!?

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 ссылка на тему.
Yana Brusenceva вне форума   Ответить с цитированием
Старый 10.07.2015, 18:44   #6
Новичок
 
Регистрация: 10.07.2015
Сообщений: 2
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Chev пока неопределено
По умолчанию

может кто мне подскажет что я не так сделал. хотел облегчить сибе жизнь))). задумка была в том что бы перс после смерти не бежал к телепорту а портовался через альт б, но когда загружаю в адреналин строчка с командой загорается красным


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.
Chev вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > ASI


Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 17:46.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!