You can also create a record that holds all your accounts. Then you can cycle through your accounts easily as well by going to the right index. I made an example. It is possible that there are easier or shorter ways, but this seems to work as well:
Simba Code:
program ExampleAccountSelector;
type TAcc = record
Account: String;
Passw: String;
end;
var
Player: Array of TAcc;
i, TotalAccounts: Integer;
Procedure SelectAccount;
begin
i := 2;
TotalAccounts := 4;
SetLength(Player, TotalAccounts);
Player[0].Account := 'Peter4';
Player[0].Passw := 'Passw4';
Player[1].Account := 'Peter1';
Player[1].Passw := 'Passw1';
Player[2].Account := 'Peter2';
Player[2].Passw := 'Passw2';
Player[3].Account := 'Peter3';
Player[3].Passw := 'Passw3';
end;
begin
SelectAccount;
WriteLn(Player[i].Account + ' ' + Player[i].Passw);
end.
I hope you can use this.
Edit: You can add this to existing scripts. If it asks for your account details just put in the stuff I used in the WriteLn.