Help edit script

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

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

    //REBUFF
procedure buff;
begin
    Delay (2000);
    Engine.BypassToServer('_bbshome');
    delay(1500);
    Engine.BypassToServer('_bbs_buffer');
    delay(1500);
    Engine.BypassToServer('_bbs_buffer_scheme;use; Player ; PvP');
    delay(1500);
    Engine.BypassToServer('_bbs_buffer_action;use;1; Player');
   RunTo;
end;

    //TELEPORT
procedure RunTo;
begin
     Engine.BypassToServer('_bbshome');
     delay(1500);
     Engine.BypassToServer('_bbs_link;gk/teleport.htm');
     delay(1500);
     Engine.BypassToServer('_bbs_link;gk/townarea/aden.htm');
     delay(1500);
     Engine.BypassToServer('_bbs_goto;376');
     delay(1500);
     Fight;
end;

    //CHECK
procedure toBuff;
  begin
  IdBuff:= 268 ; //Check BUFF
   while not User.Buffs.ById(IdBuff,obj) do begin
        Print('Song of Wind');
        Engine.UseItem(736);  //Scroll Escape
        Delay(20000);
        Engine.Facecontrol(0,False);
        buff;
   end;
end;

    //SPOT
procedure Fight;
   begin
   Print('Fight zone');
    Engine.MoveTo(171472, 56201, -5504);
    delay(1000);
    Engine.MoveTo(172042, 56543, -5680);
    delay(1000);
    Engine.MoveTo(172860, 56696, -5865);
    delay(1000);
    Engine.MoveTo(174000, 56768, -5920);
    delay(1000);
    Engine.LoadConfig('Player');
    Engine.LoadZone('sv.zmap');
    Print('Done');
    toVillage;
    Engine.Facecontrol(0,True);
end;

//-----------------------------------------------------------------------------
begin    //REPEAT
Print('repeat again');
  repeat
   toBuff;
   toVillage;
  until Engine.Status = lsOffline;
  Delay(5000);
end.

this is my script check/rebuff, back on spot... i want to add refill for soushot and mana potions  help please