var
item: TL2Item;
function buffCheck: Boolean;
var buff: TL2Buff;
begin
    if not User.Buffs.ByID(1389, buff) then begin
        Result:=true;
        Print('Buffs are needed. Buffing...');
        Engine.MoveTo(81909, 148285, -3464);
        Delay(500);
        Engine.SetTarget('Horadrim'); // NPC ID
        Delay(500);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('Sph');
        Delay(500);
        Print('Buffed.');
        Engine.MoveTo(83378, 147917, -3400);
    end;
     Result:=false;
end;
function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Print('Dead. Pressing to village.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome;
        Delay(10000);
        end;
    end;

begin
while true do begin
delay(150);

  if User.Dead then begin
    deadCheck;
    end;

  if User.inrange(131369,114436,-3713, 250, 1000) then begin
                Engine.MoveTo(134874,114441,-3720);
                Engine.FaceControl(0,true);
                Delay(20000);
                Engine.MoveTo(135968,114977,-3720);
                Delay(20000);
                Engine.MoveTo(137824,114366,-3720);
                Engine.MoveTo(139808,114388,-3720); //close to entrance
                Engine.MoveTo(140611,115493,-3720);
                Engine.MoveTo(140101,117132,-3917);
                Engine.MoveTo(141007,117753,-3917);
                Engine.MoveTo(142671,117346,-3912);
                Engine.MoveTo(142739,118542,-3912);
        end;
    if user.inrange(81940, 148398, -3469, 10000) then begin
        buffCheck;
    end;

    if user.inrange(83378, 147917, -3400, 500) and User.Buffs.ByID(1389, buffCheck) then begin
        Engine.SetTarget('Mystra');
        delay(500);
        Engine.DlgOpen;
        delay(500);
        Engine.DlgSel('High Level Hunting Areas');
        delay(500);
        Engine.DlgSel('Dragon Valley Cave');
        delay(500);
        Engine.DlgSel('Confirm');
    end;
    end;
end.