Скрипт для адреналина

[IntrM]

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

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.

[IntrM]

Разобрался уже сам, всем спасибо за помощь) если кому то нужно то вот что я искал
Engine.Status = lsOnline do begin

[Agone]

я сижу и немогу всечь зачем у тебя в начале

Label a;
begin
a: Engine.FaceControl(0, False);

//мб так?
var
a: string;
begin
a := Engine.FaceControl(0, False);

[IntrM]

Цитата: я сижу и не могу всечь зачем у тебя в начале

Скрипт взял из интернета в качестве примера, так как он не зациклен и хотел понять как это сделать, учусь только еще

[zsleshz]

Вот то что хотел ..

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;

Ток в начале скрипта это суй. Чтобы понятно и приятно читался скрипт

[IntrM]

Цитата: Сообщение от zsleshz Вот то что хотел .. 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; Ток в начале скрипта это суй. Чтобы понятно и приятно читался скрипт

Так то по луче будет )

[maximk0]

а что делает этот скрипт?