You forgot to call the DeclarePlayers procedure in the script
Try this:
PHP Code:
program MyFirstScript;
{.include SRL/SRL.scar}
{************************************************* ******************************
procedure: DeclarePlayers By: Description:
************************************************** *****************************}
Procedure DeclarePlayers;
begin
HowManyPlayers :=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0; // Player to start with
Players[0].Name :='XXXXXX';
Players[0].Pass :='XXXXXX';
Players[0].Nick :='XXXX';
Players[0].Active:=true;
end;
{************************************************* ******************************
procedure: Setup Player By: Description:
************************************************** *****************************}
procedure SetupPlayer;
begin
LoginPlayer;
end;
{************************************************* ******************************
procedure: Main Program routine By: Twobac
************************************************** *****************************}
begin
SetupSRL;
DeclarePlayers;
SetupPlayer;
end.