SRL 19 Login.

[doom0791]

I'm slowly working out each little procedure for my YewChopper in progress, as well as my AirCrafter.
So, I've created a simple script for using SRL to login multiple players simultaneously.



program New;
{.include SRL/SRL.scar}

//const
//LoginPlayers = 'True'; // True = Login players for you.
// False = Do not login players for you.
procedure DeclarePlayers;
begin
/////////////////////////////////////////////////////////
//If you would like more players, Copy these settings //
//and increase the [#] by one (+1). //
HowManyPlayers := 3; //and also increase this by +1 //
CurrentPlayer := 0; //Number of the starting player //
NumberOfPlayers(HowManyPlayers); //
/////////////////////////////////////////////////////////
///IF YOU DO NOT WANT THE SCRIPT TO LOGIN YOUR PLAYERS///
//THEN YOU CAN LEAVE THE FOLLOWING SETTINGS BLANK. //
Players[0].Name := 'player1'; //USERNAME
Players[0].Pass := 'pass1'; //PASSWORD
Players[0].Nick := 'aye'; //
Players[0].Active := True; //True or False
/////////////////////////////////////////////////////////
Players[1].Name := ''; //
Players[1].Pass := ''; //
Players[1].Nick := ''; //
Players[1].Active := False; //
/////////////////////////////////////////////////////////
Players[2].Name := ''; //
Players[2].Pass := ''; //
Players[2].Nick := ''; //
Players[2].Active := False; //
/////////////////////////////////////////////////////////
end; //
/////////////////////////////////////////////////////////

begin
SetupSRL;
DeclarePlayers;
ActivateClient;
if not LoggedIn then LoginPlayer;
Logout;
NextPlayer(True);
WriteLn('Success');
Logout;
NextPlayer(True);
WriteLn('Success');
Logout
end.



It seems that the LoginPlayer procedure is not working properly. It fails at one of the following spots:

-Checking the graphics settings. A lot of the time it fails to scroll down all of the way and click "Main Menu" so the script cannot continue.
-It fails to type in the username/password.

OR, there is something wrong with my script. Suggestions would be greatly appreciated!