Скрипт для адреналина (как зациклить)

[Анастасия Семерак]

посмотрите этот скрипт пожалуйста, как его зациклить ?
скрипт выполняться 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.

[bot140140]

попробуй так

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.