const

QuestIdFirst = 423;


procedure capcha;
const
ALARM_SOUND_PATH = 'F:\adr s klu4om\sounds\PlayerAlarm.wav'; //путь до ал¤рма
  var
P1, P2 : pointer;
Action: TL2Action;
Actor: TL2Live;
function SetForegroundWindow(hwnd: integer) : Boolean; stdcall;
external 'user32.dll';

begin
  while true do
  begin
  delay(100);
  Action:=Engine.WaitAction([laDlg], P1, P2);
    if Action = ladlg then begin
    if pos('You have 20',engine.dlgtext)>0 then  begin
        SetForegroundWindow(Engine.GameWindow);
        PlaySound (ALARM_SOUND_PATH, false);
        engine.blinkwindow;
        Print(' јѕ„ј!');
        Delay(2000);
      end;

  end;
  Delay(200);
end;
end;

procedure TakeQuestGoSpot;
begin
if not Engine.QuestStatus(QuestIdFirst, 1) then begin
delay(500);
rebuff;
   Engine.SetTarget(32744);
   Engine.MoveToTarget(-20);
   Engine.DlgOpen;
   Engine.DlgSel(1);
   Engine.DlgSel(1);
   Engine.DlgSel(1);
   Engine.DlgSel(1);
   Delay(3000);
   Engine.SetTarget(32741);
   Engine.MoveToTarget(-20);
   Engine.DlgOpen;
   Engine.DlgSel(2);
   Engine.DlgSel(1);
   Engine.DlgSel(1);
   Delay(3000);
   Engine.UseSkill(4);

   Engine.MoveTo(86600, 85768, -2880);
   Engine.MoveTo(87336, 84408, -3056);
   Engine.MoveTo(87400, 83640, -3056);
   Engine.MoveTo(87432, 82472, -3264);
   Engine.MoveTo(88600, 80648, -3472);
   Engine.MoveTo(89592, 79896, -3344);
end;
end;


procedure MoveToBatracosEndQuest;
begin
delay(500);
   Engine.Facecontrol(0,False);
   Engine.MoveTo(92184, 81336, -3472);
   Engine.UseSkill(4);
   Engine.MoveTo(92744, 82344, -3536);
   Engine.MoveTo(94616, 83528, -3424);
   Engine.MoveTo(94760, 83544, -3408);
   Engine.SetTarget(32740);
   Engine.MoveToTarget(-20);
   Engine.DlgOpen;
   Engine.DlgSel(3);
   Engine.DlgOpen;
   Engine.DlgSel(2);
   Engine.MoveTo(96280, 85704, -3712);
   Engine.Facecontrol(0,True);
   Delay(15000);
   Engine.Facecontrol(0,False);
   Engine.MoveTo(97464, 85848, -3664);
   Engine.Facecontrol(0,True);
   Delay(15000);
   Engine.Facecontrol(0,False);
   Engine.SetTarget(32740);
   Engine.MoveToTarget(-20);
   Engine.DlgOpen;
   Engine.DlgSel(1);
engine.bypasstoserver('_bbshome');delay(1000);
engine.bypasstoserver('_bbsteleport');delay(1000);
engine.bypasstoserver('_bbsteleport:page teleport_location');delay(1000);
engine.bypasstoserver('_bbsteleport:page teleport_town_locations_oren');delay(1000);
engine.bypasstoserver('_bbsteleport:go 87252 85514 -3056');delay(2500);
rebuff;

Engine.MoveTo(86488, 86072, -2864);
   Engine.SetTarget(32741);
   Engine.MoveToTarget(-20);
   Engine.DlgOpen;
   Engine.DlgSel(2);
   Engine.DlgSel(1);
   Delay(3000);
end;

procedure rebuff;
var
Bufff:Tl2Buff;
begin

delay(1000);

engine.bypasstoserver('_bbshome');delay(1000);
engine.bypasstoserver('_bbsbuffer');delay(1000);
engine.bypasstoserver('_bbsbufferuse Scheme_123 Player');delay(1500);
end;


procedure otbivaemsya;
begin
while delay(500) do begin

if user.target.dead then begin
engine.canceltarget;
end else begin

if ( not user.target.dead ) and user.incombat and not engine.getfacestate(0) then begin
print('nado otbivatsya nahui');
engine.attack;

end;
end;
end;
end;

procedure back;
begin
while true do begin
delay(1500);
if user.dead then begin
engine.facecontrol(0,true);
delay(1000);
engine.gohome;
delay(1000);

engine.bypasstoserver('_bbshome');delay(500);
engine.bypasstoserver('_bbsgk');delay(500);
engine.bypasstoserver('_bbsgk:page:kingdoms');delay(500);
engine.bypasstoserver('_bbsgk:page:Oren');delay(500);
engine.bypasstoserver('_bbsteleport:id:154');delay(5000);


Engine.MoveTo(86600, 85768, -2880);
Engine.MoveTo(87336, 84408, -3056);

end;
end;
end;




begin
   script.newthread(@capcha);
   script.newthread(@otbivaemsya);
   script.newthread(@back);
   while true do begin delay(500);
   TakeQuestGoSpot;
   while not Engine.QuestStatus(QuestIdFirst, 2) do begin
       Engine.Facecontrol(0,True);
       Delay(3000);
   end;
   MoveToBatracosEndQuest;
   end;
end.