I need help with logging in!

Ok heres the script so far:

SCAR Code:

{=========================================================================]
[                   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.