var obj: TL2NPC;
    obj2: TL2Effect;
Item: TL2Item;
   Enemy: TL2Live;
Begin
while 1<>2 do begin   // бесконечный цикл
if (User.Level=33) or inventory.user.ByID(1463, item) and (item.count < 20) then //ставим свои условия
begin
delay(20000);
Engine.Entertext('/unstuck');
delay(36000000000);
end;

      if User.Dead then    // умер- вырубаем интерфейс, возврат в город и пауза 5 секунд
       begin
       Engine.FaceControl(0,false);
Engine.gohome;
delay(5000);
end;
//---------------------------------------------------
//Дион
//---------------------------------------------------
if (User.Level<=80) then
begin
if User.inrange(19134,144847,-3096,500,500) then
begin
Engine.MoveTo(18334, 145628, -3120);
Engine.MoveTo(17423, 145399, -3064);
Engine.MoveTo(16702, 144573, -3000);
Engine.MoveTo(16082, 143495, -2816);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(18954,144428,-3096,500,500) then
begin
Engine.MoveTo(18514, 145516, -3120);
Engine.MoveTo(17650, 145594, -3088);
Engine.MoveTo(16856, 144818, -3000);
Engine.MoveTo(16065, 143492, -2816);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(19012,145140,-3120,500,500) then
begin
Engine.MoveTo(17964, 145799, -3104);
Engine.MoveTo(16946, 144923, -3016);
Engine.MoveTo(16104, 143443, -2800);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(19613,145607,-3104,500,500) then
begin
Engine.MoveTo(17940, 145627, -3096);
Engine.MoveTo(16979, 145019, -3016);
Engine.MoveTo(16032, 143319, -2776);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(18576,145136,-3104,500,500) then
begin
Engine.MoveTo(17780, 145690, -3088);
Engine.MoveTo(16857, 144803, -3000);
Engine.MoveTo(16090, 143383, -2800);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(17398,145456,-3048,500,500) then
begin
Engine.MoveTo(16831, 144663, -3000);
Engine.MoveTo(16067, 143367, -2800);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(17144,145055,-3024,500,500) then
begin
Engine.MoveTo(16574, 144249, -2976);
Engine.MoveTo(15954, 143243, -2752);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(18078,145925,-3112,500,500) then
begin
Engine.MoveTo(17043, 145068, -3032);
Engine.MoveTo(16587, 144198, -2976);
Engine.MoveTo(15981, 143204, -2744);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(19150,143941,-3056,500,500) then
begin
Engine.MoveTo(18773, 145162, -3120);
Engine.MoveTo(17787, 145734, -3088);
Engine.MoveTo(16829, 144800, -3000);
Engine.MoveTo(16227, 143520, -2840);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(18512,145536,-3120,500,500) then
begin
Engine.MoveTo(17554, 145582, -3080);
Engine.MoveTo(16871, 144776, -3000);
Engine.MoveTo(16076, 143284, -2776);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(18717,145711,-3080,500,500) then
begin
Engine.MoveTo(17447, 145480, -3072);
Engine.MoveTo(16781, 144675, -3000);
Engine.MoveTo(15984, 143195, -2752);
Engine.MoveTo(15666, 142916, -2696);
end;
end;
       if User.inrange(15666, 142916, -2696, 250, 150) then
       begin    // бежим к ГК
       Engine.MoveTo(15725, 142886, -2732);
        delay(500);     
          Engine.SetTarget(36610);
          Engine.DlgOpen();
                  delay(500);
          Engine.DlgSel(1);
                  delay(500);
 end;
    if User.inrange(15725, 142886, -2732, 250, 150) then begin    // точка под собой после телепорта
Engine.MoveTo(15889, 143270, -2783);
Engine.MoveTo(16554, 143901, -2965);
Engine.MoveTo(17082, 145000, -3052);
Engine.MoveTo(18121, 145763, -3141);
Engine.MoveTo(18720, 145592, -3140);
Engine.MoveTo(19592, 145662, -3133);
Engine.MoveTo(20415, 145781, -3169);
Engine.MoveTo(21439, 145841, -3175);
Engine.MoveTo(22899, 146141, -3390);
Engine.MoveTo(24835, 146113, -3345);
Engine.MoveTo(26644, 145839, -3167);
Engine.MoveTo(27867, 145460, -3016);
Engine.MoveTo(28984, 144542, -3018);
Engine.MoveTo(30178, 143990, -3156);
Engine.MoveTo(31822, 143936, -3277);
Engine.MoveTo(33437, 145481, -3473);
Engine.MoveTo(34174, 147212, -3488);
Engine.MoveTo(35281, 147705, -3602);
Engine.MoveTo(37328, 148234, -3720);
Engine.MoveTo(38686, 148084, -3732);
Engine.MoveTo(39935, 147997, -3733);
Engine.MoveTo(41454, 148046, -3720);
Engine.MoveTo(42746, 148348, -3729);
delay(500);
end;
if user.InRange(42746, 148348, -3729,500,500) then
begin
Engine.FaceControl(0,true);
end;

       delay(550);
    end;     delay(550);
    end.