var Captcha, Cap:string;
var i: integer;

procedure Goddart();
BEGIN
delay(5000);
// Подлетим к гк
Engine.BypassToServer('_bbshome', True);
           Delay (500);
           Engine.BypassToServer('15', True);
           Delay (500);
           Engine.BypassToServer('1a', True);
           Delay (500);
           Engine.BypassToServer('10', True);
           Delay (2000);

           // Го в варку
  Engine.SetTarget('Tatiana');
  Delay(5000);
  Engine.DlgOpen;
  //Здесь диалог с NPC ГК Tatiana (GDD)
   Delay(500);
  Engine.DlgSel(1);
  Delay(500);
  Engine.BypassToServer('08', True); // To Varka
  
  //Engine.CancelTarget;
END;


procedure PassCaptcha();
begin
    Captcha := Engine.DlgText;
    
  i:=pos('LEVEL>',Captcha);
  Cap:=copy(Captcha,i+6,5);

    if (Pos('снятия', Captcha) <> 0) then
    begin
    
    PlaySound('Sounds/hp.wav',false);
    
    Engine.EnterText(Cap);
    Engine.BypassToServer('00 '+Cap);
     
    //print(Captcha);
    //print(Cap);
    //Engine.DlgSel('Продолжить');
    //Engine.BypassToServer('00');
    end;
   // Delay(1800);
end;


var obj:TL2Effect;
BEGIN
  while true do
  begin
    while true do begin
       PassCaptcha();
       Delay (5000);

        if not user.InRange(125937, -40863, -3728,15000,15000) then
          Goddart();
       
        
       if User.Dead then
       begin
       Engine.GoHome;
       Delay(7000);
       break;
       end;

     //  if not User.Buffs.Byid(1085, Obj)  then
     //  begin
     //   Engine.UseItem(736, false);
     //   Delay(25000);
     //   break;
     //  end;
     
    end;
    // Если померли, пора ребаф и лететь обратно
    
    Goddart();

  Delay (5000);
  end;
  
END.