var Figth_Flag:boolean;
     Item: TL2Item;
     Npc: TL2Npc;
     Obj: TL2Buff;
     IdBuff: integer;
     Buffs:TL2Buff;
var L2Skill: TL2Skill;


procedure toVillage;
begin
Print('To Village');
  Delay(100);
    if (User.HP=0) then
      begin
       Delay(2000);
       Engine.GoHome;
       Engine.Facecontrol(0,False);
       Buff;
      end;
end;


procedure buff;
begin
     Print('Go Buffer');
     Engine.MoveTo(81976, 147832, -3464);
     Delay(500);
     Engine.MoveTo(82888, 148232, -3464);
     Delay(500);
     Engine.MoveTo(83128, 148344, -3448);
     Delay(500);
     Engine.Settarget(10109);
     Delay(1500);
     Engine.Settarget(10109);
     Delay(1500);
     Engine.DlgOpen;
     Delay(1000);
     Engine.DlgSel(7);
     Delay(800);
     Engine.Settarget(10109);
     Delay(1000);
     Engine.DlgOpen;
     Delay(1000);
     Engine.DlgSel(5);
     Delay(800);
     Engine.DlgSel(21);
     Delay(800);
   RunTo;
end;


procedure RunTo;
begin
      Print('Go Teleporte');
     Engine.SetTarget('Madeline');  //Target do NCP GK
     Delay(1500);
     Engine.DlgOpen; // abre chat combat npc
     Delay(1500);


     Engine.DlgSel(5);
     Delay(1500);
     Engine.DlgSel(1);
     Delay(1500);
     Fight;
end;


procedure toBuff;
  begin
  IdBuff:=1204 ;  //Check BUFF
   while not User.Buffs.ById(IdBuff,obj) do begin
        Print('Check Buff');
        Engine.UseItem(736);  //Scroll Escape
        Delay(7000);
        buff;
   end;
end;


procedure Fight;
   begin
   Print('Fight zone');
    Engine.MoveTo(85864, 213128, -3760);
    Delay(500);
    Engine.LoadConfig('1');    //Íàçâàíèå Âàøåãî êîíôèãà
    Engine.LoadZone('test3.zmap');   //zona de combat
    Print('Ôàðì');
    toVillage;
    Engine.Facecontrol(0,True);
end;

procedure Antibot;
   begin
   Print('Antibot');
    if User.InRange (82296, 148632, -3464, 7000, 7000) then
      begin
      Engine.UseItem(736);  //Scroll Escape
        Delay(7000);
        Engine.Facecontrol(0,False);
        buff;
    end;
end;


//-----------------------------------------------------------------------------
begin    //repete novamente o script
Print('repete novamente');
  repeat
   toBuff;
   toVillage;
   Antibot
  until Engine.Status = lsOffline;
  Delay(5000);
end.