Code:
procedure Declareplayers;
begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='Abcdefgh' //PlayerName
Players[0].Pass :='password' //Password
Players[0].Nick :='cdefg' //Players nick name( a few letters from playername)
Players[0].Loc :='';
Players[0].Active:=True;
end;
This is procedure what you need to get antirandoms work.
This must put after "SetUpSRL;"
You can check SRL's anti random stuff from includes\SRL\SRL\core\AntiRandoms.
Here is example how to use SRL's anti random stuff.
Code:
procedure Declareplayers;
begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='Abcdefgh' //PlayerName
Players[0].Pass :='password' //Password
Players[0].Nick :='cdefg' //Players nick name( a few letters from playername)
Players[0].Loc :='';
Players[0].Active:=True;
end;
procedure Randoms;
begin
FindNormalRandoms; //Solves "normal" randoms
end;
begin
Setupsrl;
Declareplayers;
//Your stuff here
Randoms;
//something here
end.
Hope this helps.