Alright, first skeleton script attempt. Both LoginPlayer and NextPlayer are failing to do anything, but replacing LoginPlayer with my own Login function works. Obviously, I'd rather use SRL though.
SCAR Code:
program HolyChickens;
{.include SRL\SRL.scar}
procedure DeclarePlayers;
var i : Integer; begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
{.... etc ...}
end;
procedure Login(which : Integer); begin
Mouse(450,290,30,12,true);
TypeSend(Players[which].Name);
TypeSend(Players[which].Pass);
Mouse(300,320,30,12,true);
end;
begin
SetupSRL;
ClearDebug;
writeLn('................script header............');
DeclarePlayers;
LoginPlayer;
repeat
NextPlayer(true);
until(false);
end.
Here's the debug output:
Code:
NextPlayer
** Warning in GameTab: 14 does not exist**
NextPlayer
** Warning in GameTab: 14 does not exist**
NextPlayer
Any idea what I'm doing wrong?