I need help with logging in!

[Arctic Skilz]

Ok heres the script so far:

{================================================= ========================]
[ SRL ]
[ ]
[ NAME : SRL ]
[ AUTHOR : Arctic Skilz ]
[ CATEGORY : ]
[ DESCRIPTION : ]
[ USAGE : ]
[ AUTOCOLOR : No ]
[ NOTES : If you brought this script,ask for a refund now ]
[ CONTACT : ]
[ ]
[ ]
[================================================== =======================]
[ Script With Auto Login! ]
[================================================== =======================]
[ Instructions. ]
[================================================== =======================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Set Playernames and Passwords in DeclarePlayers. ]
[ 4. Set Howmanyplayers inside DeclarePlayers ]
[ 5. Set colors on recommended lines ]
[ 6. Start script Logged Out! ]
[================================================== =======================}

program New;

{************************************************* ************************]
[================================================== =======================]
[************************************************** ***********************}

{.include SRL/SRL.scar}

{************************************************* ************************]
[================================================== =======================]
[************************************************** ***********************}

Const NumberOfUsers = 10; // Amount of Users 1 - 10
Const StartPlayer = 0; // Account Number 0 - 9, no 10 because of 0

Const Loads = 10; // Amount of Loads to do before switching player

Const Version = 1; // Dont Edit This, for My Use Only

{************************************************* ************************]
[================================================== =======================]
[************************************************** ***********************}

Procedure DeclarePlayers;

Begin
HowManyPlayers:= NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;

Players[0].Name :=''; // Username
Players[0].Pass :=''; // Password
Players[0].Nick :=''; // 3 or 4 Letters from your Username
Players[0].Loc :='Bank'; // Where Abouts, Leave This!
Players[0].Active:=True;

Players[1].Name :=''; // Username
Players[1].Pass :=''; // Password
Players[1].Nick :=''; // 3 or 4 Letters from your Username
Players[1].Loc :='Bank'; // Where Abouts, Leave This!
Players[1].Active:=True;

Players[2].Name :=''; // Username
Players[2].Pass :=''; // Password
Players[2].Nick :=''; // 3 or 4 Letters from your Username
Players[2].Loc :='Bank'; // Where Abouts, Leave This!
Players[2].Active:=True;

Players[3].Name :=''; // Username
Players[3].Pass :=''; // Password
Players[3].Nick :=''; // 3 or 4 Letters from your Username
Players[3].Loc :='Bank'; // Where Abouts, Leave This!
Players[3].Active:=True;

Players[4].Name :=''; // Username
Players[4].Pass :=''; // Password
Players[4].Nick :=''; // 3 or 4 Letters from your Username
Players[4].Loc :='Bank'; // Where Abouts, Leave This!
Players[4].Active:=True;

Players[5].Name :=''; // Username
Players[5].Pass :=''; // Password
Players[5].Nick :=''; // 3 or 4 Letters from your Username
Players[5].Loc :='Bank'; // Where Abouts, Leave This!
Players[5].Active:=True;

Players[6].Name :=''; // Username
Players[6].Pass :=''; // Password
Players[6].Nick :=''; // 3 or 4 Letters from your Username
Players[6].Loc :='Bank'; // Where Abouts, Leave This!
Players[6].Active:=True;

Players[7].Name :=''; // Username
Players[7].Pass :=''; // Password
Players[7].Nick :=''; // 3 or 4 Letters from your Username
Players[7].Loc :='Bank'; // Where Abouts, Leave This!
Players[7].Active:=True;

Players[8].Name :=''; // Username
Players[8].Pass :=''; // Password
Players[8].Nick :=''; // 3 or 4 Letters from your Username
Players[8].Loc :='Bank'; // Where Abouts, Leave This!
Players[8].Active:=True;

Players[9].Name :=''; // Username
Players[9].Pass :=''; // Password
Players[9].Nick :=''; // 3 or 4 Letters from your Username
Players[9].Loc :='Bank'; // Where Abouts, Leave This!
Players[9].Active:=True;

End;

{************************************************* ************************]
[================================================== =======================]
[************************************************** ***********************}

Procedure DoChats;

Begin
SetChat('On', 1);
SetChat('On', 1);
SetChat('Friends', 2);
SetChat('Friends', 2);
SetChat('Friends', 3);
SetChat('Friends', 3);
End;

{************************************************* ************************]
[================================================== =======================]
[************************************************** ***********************}

Procedure SetupScript;

Begin
ClearDebug;
WriteLn('Cleared Debug');
ActivateClient;
WriteLn('Activated Client');
Wait(100);
SetupSRL;
WriteLn('Setup SRL');
DeclarePlayers;
WriteLn('Declared Players');
MouseSpeed := 5;
WriteLn('Mouse Speed : 5');
CurrentPlayer := StartPlayer;
WriteLn('Start Player');
wait(100);
LoginPlayer;
WriteLn('Login Player');
Wait(1000);
DoChats;
WriteLn('Done Chats');
BenMouse := True;
WriteLn('Ben Mouse : True');
HighestAngle;
WriteLn('Highest Angle');
MakeCompass('N');
WriteLn('Compass North');
End;

{************************************************* ************************]
[================================================== =======================]
[************************************************** ***********************}

begin
ActivateClient;
SetupScript;
Repeat
MakeCompass('N');
If Players[CurrentPlayer].Loc = 'Bank' Then
Begin
// RunToFlax;
If LoggedIn Then Players[CurrentPlayer].Loc := 'FlaxField';
// PickFlax;
If LoggedIn Then Players[CurrentPlayer].Loc := 'GotFlax';
// RunBank;
If LoggedIn Then Players[CurrentPlayer].Loc := 'AtBank';
// DepositBank;
If LoggedIn Then Players[CurrentPlayer].Loc := 'Deposited';
End;

If Players[CurrentPlayer].Loc = 'Deposited' Then
Begin
LogOut;
Break;
If(Not LoggedIn) Then
Wait(1000);
NextPlayer(True);
DoChats;
SetRun(True);
End;

If Not LoggedIn Then
Begin
NextPlayer(False);
DoChats;
SetRun(True);
End;
Until False;
end.

But it doesnt log in i added some write message to say what it does, but it doesnt say logging in.