const
Account = '93637428';
Password= 'tremix';
Character = 'Harry Potter';
World= 'Tremix';
Ip = ''; //não mexa aqui.
NumberOfBackpacks = 1;

var
x: integer;

procedure Login;
begin
repeat
Self.Login(Account, Password, Character, World, 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;