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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 15.03.2015, 12:19   #1
Новичок
 
Регистрация: 15.03.2015
Сообщений: 1
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Анастасия Семерак пока неопределено
По умолчанию Скрипт для адреналина (как зациклить)

посмотрите этот скрипт пожалуйста, как его зациклить ?
скрипт выполняться 1 раз, после смерти персонажа все действия не повторяются
Код:
Label a;
begin
a: Engine.FaceControl(0, False);

if user.inrange(117304,76318,-2670,250,150) then begin
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(118229,74677,-2450,250,150) then begin
Engine.MoveTo(118069,75907,-2680);
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(115683,77610,-2650,250,150) then begin
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(115685,75072,-2550,250,150) then begin
Engine.MoveTo(116949,76808,-2712);
end;
if user.inrange(115861,75200,-2550,250,150) then begin
Engine.MoveTo(116949,76808,-2712);
end;
if user.inrange(117671,78998,-2210,250,150) then begin
Engine.MoveTo(117031,78908,-2256);
Engine.MoveTo(116718,78406,-2560);
Engine.MoveTo(116232,77389,-2704);
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(116158,77443,-2660,250,150) then begin
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(116127,76015,-2729,250,150) then begin
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(115193,77594,-2670,250,150) then begin
Engine.MoveTo(115193,77594,-2704);
Engine.MoveTo(117053,76874,-2712);
end;
if user.inrange(119862,76603,-2272,250,150) then begin
Engine.MoveTo(119711,76592,-2272);
Engine.MoveTo(118444,76180,-2664);
Engine.MoveTo(117674,76110,-2712);
Engine.MoveTo(117056,76868,-2712);
Engine.MoveTo(117056,76868,-2712);
end;
if user.inrange(116920,77240,-2672,250,150) then begin
Engine.MoveTo(117029,78912,-2264);
Engine.MoveTo(116221,77560,-2712);
Engine.MoveTo(117056,76868,-2712);
Engine.MoveTo(117056,76868,-2712);
end;

Engine.MoveTo(148101,-55570,-2734); // buffer
Engine.SetTarget(32327); // buffer id
Engine.DlgOpen;
delay(500);
Engine.DlgSel(1);
delay(500);
Engine.DlgSel(1);
delay(500);
Engine.SetTarget(141); //id teleporta
delay(500);
Engine.DlgOpen; //otkrivaem dialog s teleportom
delay(500);
Engine.DlgSel(1);
Engine.DlgSel(2); // nr tp spota
delay(3000);
Engine.MoveTo(130424,114312,-3744);
Engine.MoveTo(129480,114072,-3736);
Engine.MoveTo(127432,113896,-3512);

Engine.FaceControl(0, True);

if User.Dead then begin
delay(3000);
Engine.GoHome;
delay(3000);
goto a;
end;
end.
Анастасия Семерак вне форума   Ответить с цитированием
Старый 20.03.2015, 06:55   #2
Местный
 
Регистрация: 08.11.2012
Сообщений: 104
Сказал Спасибо: 12
Имеет 3 спасибок в 3 сообщенях
bot140140 пока неопределено
По умолчанию

попробуй так
delphi Код:
Label a; procedure MoveTo;  //Ьежим к баферу  begin if user.inrange(117304,76318,-2670,250,150) then Engine.MoveTo(117104,76838,-2688);  if user.inrange(118229,74677,-2450,250,150) then     begin     Engine.MoveTo(118069,75907,-2680);     Engine.MoveTo(117104,76838,-2688);     end;  if user.inrange(115683,77610,-2650,250,150) then Engine.MoveTo(117104,76838,-2688);  if user.inrange(115685,75072,-2550,250,150) then Engine.MoveTo(116949,76808,-2712);  if user.inrange(115861,75200,-2550,250,150) then Engine.MoveTo(116949,76808,-2712);  if user.inrange(117671,78998,-2210,250,150) then     begin     Engine.MoveTo(117031,78908,-2256);     Engine.MoveTo(116718,78406,-2560);     Engine.MoveTo(116232,77389,-2704);     Engine.MoveTo(117104,76838,-2688);     end;  if user.inrange(116158,77443,-2660,250,150) then Engine.MoveTo(117104,76838,-2688);  if user.inrange(116127,76015,-2729,250,150) then Engine.MoveTo(117104,76838,-2688);  if user.inrange(115193,77594,-2670,250,150) then     begin     Engine.MoveTo(115193,77594,-2704);     Engine.MoveTo(117053,76874,-2712);     end;  if user.inrange(119862,76603,-2272,250,150) then     begin     Engine.MoveTo(119711,76592,-2272);     Engine.MoveTo(118444,76180,-2664);     Engine.MoveTo(117674,76110,-2712);     Engine.MoveTo(117056,76868,-2712);     Engine.MoveTo(117056,76868,-2712);     end;  if user.inrange(116920,77240,-2672,250,150) then begin     Engine.MoveTo(117029,78912,-2264);     Engine.MoveTo(116221,77560,-2712);     Engine.MoveTo(117056,76868,-2712);     Engine.MoveTo(117056,76868,-2712);     end;  end; Procedure Buff;   //Бафаемся и тп на спот  begin   Engine.MoveTo(148101,-55570,-2734); // buffer   Engine.SetTarget(32327); // buffer id   Engine.DlgOpen;   delay(1000);   Engine.DlgSel(1);   delay(1000);   Engine.DlgSel(1);   delay(1000);   Engine.SetTarget(141); //id teleporta   delay(1000);   Engine.DlgOpen; //otkrivaem dialog s teleportom   delay(1000);   Engine.DlgSel(1);   Engine.DlgSel(2); // nr tp spota   delay(3000);   Engine.MoveTo(130424,114312,-3744);   Engine.MoveTo(129480,114072,-3736);   Engine.MoveTo(127432,113896,-3512);  end; Procedure GoHome;  begin   begin   delay(3000);   Engine.GoHome;   delay(3000);   goto a;   end;  end; begin If Engine.Status = lsOnline Then  begin   while true do     begin     a: Engine.FaceControl(0, False);     MoveTo;     Buff;     Engine.FaceControl(0, True);     While Not User.Dead Do Delay (1000);     if User.Dead then  GoHome;     end;  end; end.

Последний раз редактировалось bot140140, 20.03.2015 в 09:34.
bot140140 вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > ASI



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

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


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

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

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