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');
delay(444);
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;
 delay(5000);
  if not user.inrange(147989, -55383, -2759, 700) then begin
  engine.useitem(736);
  delay(2000);

  end;



   if user.inrange(144942, -55390, -3007, 250, 150) then begin
   Engine.MoveTo(145236, -56823, -3007);
   Engine.MoveTo(145574, -56834, -3007);
   Engine.MoveTo(146285, -56405, -2807);
   Engine.MoveTo(147627, -56010, -2799);
   Engine.MoveTo(147938, -55476, -2759);
   end;



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

	if user.inrange(146272, -58176, -2976, 250, 150) then begin
		Engine.MoveTo(147593, -58103, -3007);
		Engine.MoveTo(147727, -57141, -2807);
		Engine.MoveTo(147936, -55368, -2760);
    end;
		if user.inrange(145264, -57680, -2976, 250, 150) then begin
		Engine.MoveTo(145588, -56926, -3007);
		Engine.MoveTo(146673, -56095, -2807);
		Engine.MoveTo(147543, -56054, -2807);
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(145696, -57696, -2976, 250, 150) then begin
		Engine.MoveTo(145510, -56930, -3007);
		Engine.MoveTo(146499, -56202, -2807);
		Engine.MoveTo(147481, -56031, -2807);
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(144944, -55392, -2976, 250, 150) then begin
		Engine.MoveTo(145153, -56813, -3007);
		Engine.MoveTo(145569, -56855, -3007);
		Engine.MoveTo(146467, -56271, -2807);
		Engine.MoveTo(147566, -56034, -2807);
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(144752, -56752, -2976, 250, 150) then begin
		Engine.MoveTo(145534, -56884, -3007);
		Engine.MoveTo(146265, -56418, -2807);
		Engine.MoveTo(147407, -56063, -2807);
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(149120, -58064, -2976, 250, 150) then begin
		Engine.MoveTo(147706, -58107, -3007);
		Engine.MoveTo(147751, -56737, -2807);
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(150400, -56752, -2976, 250, 150) then begin
		Engine.MoveTo(149935, -56870, -3007);
		Engine.MoveTo(149139, -56390, -2807);
		Engine.MoveTo(147929, -56063, -2807);
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(150704, -55744, -2976, 250, 150) then begin
		Engine.MoveTo(149935, -56870, -3007);
		Engine.MoveTo(149139, -56390, -2807);
		Engine.MoveTo(147929, -56063, -2807);
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(147680, -58208, -2976, 250, 150) then begin
		Engine.MoveTo(147727, -57141, -2807);
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(148288, -58304, -2976, 250, 150) then begin
		Engine.MoveTo(147738, -58050, -3007);
		Engine.MoveTo(147727, -57141, -2807);
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(147232, -58480, -2976, 250, 150) then begin
		Engine.MoveTo(147677, -58063, -3007);
		Engine.MoveTo(147727, -57141, -2807);
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(149088, -56256, -2776, 250, 150) then begin
		Engine.MoveTo(147854, -56054, -2807);
		Engine.MoveTo(147934, -55354, -2760);
    end;
	if user.inrange(146832, -55904, -2776, 250, 150) then begin
		Engine.MoveTo(147529, -56046, -2807);
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(146368, -56256, -2776, 250, 150) then begin
		Engine.MoveTo(147529, -56046, -2807);
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(147664, -56464, -2776, 250, 150) then begin
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(147680, -56928, -2776, 250, 150) then begin
		Engine.MoveTo(147810, -56110, -2807);
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(148560, -55904, -2776, 250, 150) then begin
		Engine.MoveTo(147936, -55368, -2760);
    end;
    if user.inrange(149872, -57424, -2976, 250, 150) then begin
		Engine.MoveTo(149897, -56910, -2979);
		Engine.MoveTo(149230, -56412, -2779);
		Engine.MoveTo(147939, -55999, -2772);
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(144960, -56224, -2976, 250, 150) then begin
		Engine.MoveTo(145458, -56853, -2979);
		Engine.MoveTo(146343, -56326, -2779);
		Engine.MoveTo(147625, -55995, -2772);
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(144496, -55088, -2976, 250, 150) then begin
		Engine.MoveTo(145327, -56873, -2979);
		Engine.MoveTo(146337, -56445, -2779);
		Engine.MoveTo(147533, -55963, -2766);
		Engine.MoveTo(147936, -55368, -2760);
    end;
	if user.inrange(145392, -56960, -2976, 250, 150) then begin
		Engine.MoveTo(146347, -56305, -2779);
		Engine.MoveTo(147514, -56003, -2772);
		Engine.MoveTo(147936, -55368, -2760);
    end;

///////////////////////////////////////////////////////////
buffer;

  Engine.MoveTo(147979,-55272,-2759);

   print('Going to Varka.');
  Engine.SetTarget(30832);
  Engine.DlgOpen;
  delay(500);
  delay(500);
  engine.dlgsel(23);
  Engine.CancelTarget;
  delay(500);
print('Moving to spot.');

if user.inrange(182581, -62942, -3135, 500) then begin
delay(400);
   Engine.FaceControl(0, false);
   Engine.MoveTo(184008, -62888, -3000);
Engine.MoveTo(183720, -62856, -3040);
Engine.MoveTo(184232, -62776, -2992);
Engine.MoveTo(184232, -62776, -2992);
Engine.MoveTo(184232, -62776, -2992);
Engine.MoveTo(184232, -62776, -2992);
Engine.MoveTo(184232, -62776, -2992);
Engine.MoveTo(184232, -62776, -2992);
Engine.MoveTo(184232, -62776, -2992);
Engine.MoveTo(184232, -62776, -2992);
Engine.MoveTo(184232, -62776, -2992);
Engine.MoveTo(184232, -62776, -2992);
Engine.MoveTo(184376, -62728, -2960);
Engine.MoveTo(184376, -62728, -2960);
Engine.MoveTo(184376, -62728, -2960);
Engine.MoveTo(184376, -62728, -2960);
Engine.MoveTo(184376, -62728, -2960);
Engine.MoveTo(184376, -62728, -2960);
Engine.MoveTo(184376, -62728, -2960);
Engine.MoveTo(184376, -62728, -2960);
Engine.MoveTo(184584, -62696, -2936);
Engine.MoveTo(185096, -62648, -2976);
Engine.MoveTo(185432, -62696, -2992);
Engine.MoveTo(185448, -62728, -2976);
Engine.MoveTo(185768, -62872, -2960);
   if user.inrange(185768, -62872, -2960, 100)
   then begin
         Engine.FaceControl(0, true);
 delay(500);
  print('Arrived.');


         end;         end;
end;
   end.
begin
Script.NewThread(@buffer);
end.