procedure buffer;
function Buff(value:string):boolean;
var
  s:string;
  bypass:string;
  i:integer;
  b:boolean;
  mass:array [1..100] of string;
  Obj: TL2Buff;
begin
  Engine.Settarget('Buffer');
  Engine.DlgOpen();
  s:=Engine.DlgText;
  b:=true;
  i:=1;
  while b do
  begin
    Delete(s,1,Pos('<button',s)-1);
    mass[i]:=Copy(s,1,Pos('>',s));
    Delete(s,1,Length(mass[i]));
    inc(i);
    if Pos('<button',s) = 0 then
      b:=false;
  end;
  for i:=1 to 100 do
    if mass[i] <> '' then
        if Pos(value,mass[i]) <> 0 then
        begin
          bypass := mass[i];
          delete(bypass,1,pos('action="',bypass)+17);
          bypass:=Copy(bypass,1,pos('"',bypass)-1);
          break;
        end;
    Engine.ByPassToServer(bypass);
end;
begin
buff('Баффы мага'); //- Название нужной кнопки
buff('HP,CP,MP');
end;


///////////////////////////////////////////////////////////

function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Result := true;
        Print('Dead. Pressing to village.');
        Delay(1000);
        Engine.GoHome;
        Delay(1000);
    end;
    end;
///////////////////////////////////////////////////////////

begin
 while true do begin
deadCheck;
if user.inrange (11368, 16808, -4656,3000,3000) then begin
Engine.MoveTo(11000, 16888, -4656);
delay(500);
Engine.MoveTo(10216, 17064, -4584);
delay(500);
Engine.MoveTo(9928, 16120, -4568);
delay(500);
Engine.MoveTo(10584, 17272, -4584);
delay(500);
end;
 if user.inrange(10584, 17272, -4584,300) then
 begin
 buffer;

  delay(2000);
  Engine.MoveTo(10168, 16776, -4584);
  Engine.MoveTo(9720, 15768, -4568);
  Engine.MoveTo(9720, 15768, -4568);
  Engine.MoveTo(9720, 15768, -4568);
  Engine.MoveTo(9720, 15768, -4568);
  Engine.MoveTo(9720, 15768, -4568);
  Engine.MoveTo(9720, 15768, -4568);
  Engine.MoveTo(9720, 15768, -4568);
  Engine.MoveTo(9736, 15560, -4568);
  engine.settarget(30832);
  engine.dlgopen;
  engine.dlgsel(20);
  delay(444);
   engine.dlgsel(5);


if user.inrange(-20079, 13499, -4891, 500) then begin
print('Moving to spot.');
engine.settarget(31118);
engine.dlgopen;
engine.dlgsel(1);Engine.MoveTo(-19400, 13512, -4896);
if user.inrange(-19400, 13512, -4896, 100)
then begin
Engine.MoveTo(-19928, 13528, -4896);
Engine.MoveTo(-19416, 13528, -4896);
Engine.MoveTo(-19320, 13560, -4896);
Engine.MoveTo(-19128, 13592, -4896);
Engine.MoveTo(-19112, 13656, -4896);
Engine.MoveTo(-19064, 13848, -4896);
Engine.MoveTo(-19064, 13848, -4896);
Engine.MoveTo(-19080, 14008, -4896);
Engine.MoveTo(-19096, 14168, -4896);
Engine.MoveTo(-19096, 14168, -4896);
Engine.MoveTo(-19096, 14488, -4896);
Engine.MoveTo(-19096, 14680, -4896);
Engine.MoveTo(-19096, 14872, -4896);
Engine.MoveTo(-19112, 15000, -4896);
Engine.MoveTo(-19112, 15000, -4896);
Engine.MoveTo(-19112, 15000, -4896);
Engine.MoveTo(-19112, 15000, -4896);
Engine.MoveTo(-19112, 15000, -4896);
end;
if user.inrange(-19112, 15000, -4896, 50) then begin
Engine.FaceControl(0, true);
Print('Killing mobs at spot.');
end;
end;
end;
end;
end.
begin
Script.NewThread(@buff);
Script.NewThread(@buffer);
end.