Code: Select all
Program New;
Var
Profiles : array[1..5] of string;
i: integer;
begin
Profiles[5] := 'Poppy';
Profiles[1] := 'Renek';
Profiles[2] := 'Karthus';
Profiles[3] := 'Heimerdinger';
Profiles[4] := 'Kotigoroshko';
For i:= 1 to 5 Do
begin
ChangeProfile(Profiles[i]);
wait(1000);
Connect();
wait(5000);
While not Connected() Do
Begin
Wait(60000);
ChangeProfile(Profiles[i]);
Wait(1000);
Connect();
End;
RequestContextMenu($00000329);
SetContextMenuHook($00000329, 3);
Wait(1000);
WaitGump(1);
Disconnect();
end;
end.