i think its something with my srl..i've uninstalled SCAR and reinstalled it, redownloaded srl(rev 13) and still, everytime i run my script i get an out of range error ([Runtime Error] : Out Of Range in line 73 in script C:\Program Files\SCAR 3.14\includes\SRL/SRL/Core/Login.scar) and idk what to do..here's my script that is in progress if maybe that's my problem

SCAR Code:
program New;
{.include srl/srl.scar}

var
x,y,i,TheRoadColor,TheGateColor: integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 4;
  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := true;
 
  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;
 
  Players[3].Name := '';
  Players[3].Pass := '';
  Players[3].Nick := '';
  Players[3].Active := False;
end;

function randclick(item , option:string): boolean;
begin
if isuptext(item) then
begin
  case random(4) of
    0,1,2: mouse(x,y,10,10,true);
    3: begin
         mouse(x,y,10,10,false);
         chooseoption(option);
       end
  end
  Result := true;
end
end;

procedure ToPen;
var
z:integer;
begin
  Z:=0
  Makecompass('n');
  TheRoadColor := findfallyroadColor;
  radialwalk(TheRoadColor,180,270,40,1,1);
    repeat
      radialroadwalk(TheRoadColor,165,200,50,1,1);
      Writeln('lalala');
      wait(200);
    until(findsymbolin(x,y,'tree',628,8,704,165));
  mouse(x + 10,y,10,5,true);
  flag;
  if findcolortolerance(x,y,235,628,8,705,117,20) then   mouse(x,y,5,5,true);
  repeat
    if findcolorspiral(x,y,5467001,0,0,516,338) then randclick('ate','pen');
    Z:= Z + 1;
    until(randclick('ate','pen') = true);
end;

procedure ToBank;
begin
end;

begin
SetupSRL;
activateclient;
if not(loggedin) then loginplayer;
ToPen;
end.

EDIT: figured it out, forgot to call declareplayers in my main loop