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;
pikollo100