nulltopor

uses SysUtils;

function ShellExecuteW(hwnd: integer; lpOperation, lpFile, lpParameters, lpDirectory: PChar;  nShowCmd: integer): integer; stdcall;
  external 'Shell32.dll';

function keybd_event(bVk, bScan: byte; dwFlags, dwExtraInfo: integer): integer; stdcall;
  external 'user32.dll';

function ShowWindow(hwnd:cardinal; action:integer):boolean; stdcall;
external 'user32.dll';

procedure disconnectMonitor;
const
  login = 'login';
  password = 'password';
  gamePath = 'D:\Games\Lineage II\system_devianne\l2.exe';
begin
  while engine.Delay(20000) do begin
    if (Engine.Status = lsOffline) or (Engine.Status = lsOff) then begin
      print('dc');
      Delay(2000);
      Engine.GameClose;
      Delay(90000);
      ShellExecuteW(0, 'open', PChar(gamePath), nil, nil, 0);
      Delay(90000);
      enterText(login);
      Engine.UseKey('Tab');
      Delay(5000);
      enterText(password);
      Delay(5000);
      Engine.UseKey('Enter');
      Delay(3000);
      Engine.UseKey('Enter');
      Delay(3000);
      Engine.UseKey('Enter');
      Delay(3000);
      Engine.UseKey('Enter');
      Delay(15000);
    end;
  end;
end;

procedure enterText(const text: string);
var
  i: cardinal;
  upperCase: boolean;
begin
  for i:= 1 to length(text) do begin
    if isDigit(text[i]) then
      Engine.UseKey(text[i])
    else begin
      upperCase:= text[i] = UpCase(text[i]);
      if upperCase then begin
          keybd_event(20, 0, 1, 0);
          keybd_event(20, 0, 2, 0);
          Engine.UseKey(text[i]);
          delay(10);
          keybd_event(20, 0, 1, 0);
          keybd_event(20, 0, 2, 0);
      end else
        Engine.UseKey(text[i]);
    end;
    Delay(50);
  end;
end;

function isDigit(ch: char): boolean;
const
  digits = '013456789';
var
  i: cardinal;
begin
  result:= false;
  for i:= 0 to length(digits) do
    if digits[i] = ch then begin
      result:= true;
      exit;
    end;
end;

procedure kach;
var Item: TL2Item;
i: integer;
obj: TL2Live; Npc: TL2Npc;


begin
while true do begin
if (user.level>=1) and (user.level<85) and (User.InRange(82642, 149670, -3456,3000,300)) then begin
  Engine.MoveTo(82642, 149670, -3456);
  Engine.Settarget(51030);
    Engine.Attack(100);
        end;
if (user.level>=85) and (User.InRange(82642, 149670, -3456,500,300)) then begin
  Engine.MoveTo(82419, 148467, -3456);
  delay (30000);
        end;


if (user.level>=85) and (User.InRange(82642, 149670, -3456,5000,300)) then begin
    delay(500);
     engine.msg('Alt+B', 'Buff', 0);
    delay(5000);
    engine.bypasstoserver('_bbshome');
    delay(5000);
    engine.bypasstoserver('18');  //сервис с 10+4 строки
    delay(5000);
    engine.bypasstoserver('11');  //Rebirth
    delay(5000);
    engine.bypasstoserver('15');
    delay(5000);
    engine.msg('Alt+B', 'Buff', 0);
    delay(5000);
    engine.bypasstoserver('_bbshome');
    delay(5000);
    engine.bypasstoserver('18');  //сервис с 10+4 строки
    delay(5000);
    engine.bypasstoserver('11');  //Rebirth
    delay(5000);
    engine.bypasstoserver('14');
    Engine.MoveTo(82642, 149670, -3456);
 end;
end;
end;

begin
  Script.NewThread(@disconnectMonitor); Delay(10000);
  Script.NewThread(@kach);
end.