FindNormalRandoms will handle all the randoms that SRL is capable of handling. As SRL is updated to handle more, so will your script.
But I would make a couple changes: Put a check in there for FindFight - It's possible to get into a fight through a number of non-random npcs interacting with your player.
I find a lot of things (like color finding and random handling) work waaay better if I call DeclarePlayers before the call to SetupSRL. Also I would add a call to ActivateClient and LoginPlayer - let SRL handle the login, random handling seems to work better that way.
And...a lot of people like to put their random handling into its own proc. So it would look something like this:
SCAR Code:
program New;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
Var
x, y: integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Username';
Players[0].Pass := 'Password';
Players[0].Nick := 'Nick';
Players[0].Active := True;
end;
procedure AntiBan;
begin
case random(3) of
0: RandomRClick;
1: BoredHuman;
2: HoverSkill('Mining', False);
end;
end;
procedure AntiRandom;
begin
FindNormalRandoms;
if FindFight then
RunTo('N', true); // Or whichever dir you want
end;
begin
DeclarePlayers;
SetupSRL;
ActivateClient;
LoginPlayer;
Repeat
Mousespeed := 15
DropAll;
Repeat
LoadRockRecords;
FindObjRock(x, y, Rimmington_Iron);
ClickMouse(x, y, True);
AntiRandom;
AntiBan;
Wait(3000+random(2000));
Until (InvFull= True);
until false
end.