Auto Log.txt

(0 KB) Pobierz
const 
  Account = '425328'; 
  Password= '425328pl'; 
  Character = 'All'; 
  Ip = 'angora24.net'; 
  NumberOfBackpacks = 1; 

var 
  x: integer; 

procedure Login; 
begin 
  repeat 
    Self.Login(Account, Password, Character, Ip); 
    for x := 0 to 200 do 
    begin 
      if Self.Connected then Break; 
      Sleep(100); 
    end; 
    Sleep(2000); 
  until Self.Connected; 
end; 

begin 
  while not Terminated do 
  begin 
    if not Self.Connected then 
    begin 
      Login; 
      UpdateWorld; 
      Self.Backpack.OpenInNewWindow; 
      for x := 0 to NumberOfBackpacks - 1 do 
      begin 
        if x >= NumberOfBackpacks then Break; 
        Sleep(2000); 
        UpdateWorld; 
        Self.Containers.Container[0].Item[x].OpenInNewWindow; 
      end; 
    end; 
    Sleep(1000); 
  end; 
end;  
Zgłoś jeśli naruszono regulamin