var Buff:Tl2buff;
  function SetForegroundWindow(hwnd: integer) : Boolean; stdcall;
    external 'user32.dll';

//-------------------------------------------------

//-------------------------------------------------
function buffCheck: Boolean;
var buff: TL2Buff;
//-----------------@--------------------------------
begin
if not user.Buffs.byID(1323,buff) or (buff.EndTime < 1800000) then begin
	Result:=true;
        Print('Buffs are needed. Buffing...');
  delay(12000);
//rebuff schematu
Engine.BypassToServer('_bbshome', True);
delay(1500);
Engine.BypassToServer('03', True);
delay(1500);
Engine.BypassToServer('02', True);
delay(1500);
Engine.Dispel('Elemental Song');
//shadow
Engine.BypassToServer('_bbshome', True);
delay(1000);
Engine.BypassToServer('03', True);
delay(500);
Engine.BypassToServer('0c', True);
delay(500);
Engine.BypassToServer('0c', True);
delay(500);
	end;
Result:=false;
end;

procedure stepBack;
begin
Engine.FaceControl(0, false);
delay(1000);
Engine.MoveTo(188824, -111512, -3256);
end;

procedure goBack;
begin
Engine.MoveTo(188824, -111512, -3256);
delay(2000);
Engine.LoadConfig('50');
delay(1000);
Engine.FaceControl(0, true);
end;

procedure checkCheck;
begin
if (user.incombat) and (buff.EndTime < 1800000) then begin
stepBack;
end;
if user.inrange(188824, -111512, -3256, 60) and (buff.EndTime < 1800000) then begin
rebuff;
end;
if user.inrange(188824, -111512, -3256, 60) and (buff.EndTime > 1800000) then begin
goBack;
end;
end;

begin
  while (engine.status = lsOnline) do begin
     checkCheck();
     delay(300);
      buffCheck();
    end;
end.