uses SysUtils, Classes;
var Figth_Flag:boolean;
DlgOpen:string;
CheckDeath: Boolean;
Item: TL2Item;
Npc: TL2Npc;
Obj: TL2Buff;
L2Skill: TL2Skill;
Control: TL2Control;
TNpcList: TL2List;

procedure scroll;
    begin
        Engine.Unstuck;
        Print('тп');
        delay(20000);
        proverka_tp;
        Print('проверяю тп') ;
    end;

procedure buff_i_tp;
begin
    Engine.MoveTo(17102,144883,-3008); // buff
    Engine.SetTarget(31077); // buff id
    Engine.DlgOpen;
    delay(500);
    Engine.DlgSel(2); // nr
    delay(500);
    Engine.MoveTo(15663,142915,-3008); // gk
    Engine.SetTarget(30059); // gk id
    Engine.DlgOpen;
    delay(500);
    Engine.DlgSel(1); // nr tp
    delay(500);
    Engine.DlgSel(11); // nr tp spota
    delay(5111);
    begim_k_farmu;
end;

procedure farm;
    begin
        Engine.LoadConfig('DionSpoil');
        Delay(111) ;
        Engine.LoadZone('DionSpoi') ;
        Delay(111) ;
        Engine.Facecontrol(0,True);
        Delay(111);
    end;

procedure proverka_na_smertb;
    begin
        if User.Dead then begin
        Engine.FaceControl(0,false);
        Engine.GoHome;
        Delay(10000);
            proverka_tp;
        end;


            begin
                buff_i_tp;
            end;
    end;
//------------------------------------------------------------------------

procedure proverka_tp;
begin
if User.inrange(19134,144847,-3096, 250, 150) then begin
Engine.MoveTo(19134,144847,-3096);
Engine.MoveTo(18041,144052,-3057);
Engine.MoveTo(16727,144111,-2980);
Engine.MoveTo(15933,143331,-2771);
Engine.MoveTo(15628,142920,-2704);
buff_i_tp;
end;
if User.inrange(18954,144428,-3096, 250, 150) then begin
Engine.MoveTo(18954,144428,-3096);
Engine.MoveTo(18600,144387,-3070);
Engine.MoveTo(17733,143924,-3037);
Engine.MoveTo(16711,144167,-2980);
Engine.MoveTo(16622,144034,-2932);
Engine.MoveTo(15963,143381,-2784);
Engine.MoveTo(15628,142920,-2704);
buff_i_tp;
end;
if User.inrange(19012,145140,-3120, 250, 150) then begin
Engine.MoveTo(19012,145140,-3120);
Engine.MoveTo(19021,145126,-3123);
Engine.MoveTo(17600,145497,-3079);
Engine.MoveTo(16468,144129,-2964);
Engine.MoveTo(15628,142920,-2704);
buff_i_tp;
end;
if User.inrange(19613,145607,-3104, 250, 150) then begin
Engine.MoveTo(19613,145607,-3104);
Engine.MoveTo(17638,145591,-3084);
Engine.MoveTo(16214,143659,-2863);
Engine.MoveTo(15628,142920,-2704);
buff_i_tp;
end;
if User.inrange(18576,145136,-3104, 250, 150) then begin
Engine.MoveTo(18576,145136,-3104);
Engine.MoveTo(17727,145541,-3082);
Engine.MoveTo(16414,144174,-2969);
Engine.MoveTo(15628,142920,-2704);
buff_i_tp;
end;
if User.inrange(17398,145456,-3048, 250, 150) then begin
Engine.MoveTo(17398,145456,-3048);
Engine.MoveTo(17727,145541,-3082);
Engine.MoveTo(16414,144174,-2969);
Engine.MoveTo(15628,142920,-2704);
buff_i_tp;
end;
if User.inrange(17144,145055,-3024, 250, 150) then begin
Engine.MoveTo(17144,145055,-3024);
Engine.MoveTo(16350,143905,-2923);
Engine.MoveTo(15628,142920,-2704);
buff_i_tp;
end;
if User.inrange(18078,145925,-3112, 250, 150) then begin
Engine.MoveTo(18078,145925,-3112);
Engine.MoveTo(16559,144353,-2987);
Engine.MoveTo(15628,142920,-2704);
buff_i_tp;
end;
if User.inrange(19150,143941,-3056, 250, 150) then begin
Engine.MoveTo(19150,143941,-3056);
Engine.MoveTo(18112,145633,-3104);
Engine.MoveTo(17108,145059,-3031);
Engine.MoveTo(16469,144176,-2969);
Engine.MoveTo(15628,142920,-2704);
buff_i_tp;
end;
if User.inrange(18512,145536,-3120, 250, 150) then begin
Engine.MoveTo(18512,145536,-3120);
Engine.MoveTo(17226,145360,-3048);
Engine.MoveTo(16419,143955,-2935);
Engine.MoveTo(15628,142920,-2704);
buff_i_tp;
end;
if User.inrange(18717,145711,-3080, 250, 150) then begin
Engine.MoveTo(18717,145711,-3080);
Engine.MoveTo(17226,145360,-3048);
Engine.MoveTo(16419,143955,-2935);
Engine.MoveTo(15628,142920,-2704);
buff_i_tp;
end;
end;

procedure begim_k_farmu;
    begin
        Engine.MoveTo(49054, 111382, -2126);
        Engine.MoveTo(50625, 111329, -2004);
        Engine.MoveTo(51500, 111349, -2004);
        Engine.MoveTo(52287, 112165, -2026);
        Engine.MoveTo(54319, 114664, -2139);
        Engine.MoveTo(54053, 115589, -1758);
        Engine.MoveTo(52455, 116093, -1696);
        Engine.MoveTo(53276, 115175, -1656);
        Engine.MoveTo(53576, 115243, -1707);
        Engine.MoveTo(53277, 115179, -1649);
        farm;
    end;

begin
    while Engine.Status = lsOnline do begin
    delay(150);
    proverka_na_smertb;
end;
end.