I made one and it is random.
Simba Code:
Program Spin;
{$i srl/srl.simba}
Const
BXS = 350;
BYS = 435;
BXE = 405;
BYE = 495;
Var
OldDB: String;
Procedure SDB( S: String);
Begin
If S = OldDB Then
Exit;
OldDB := S;
Writeln( S);
End;
Function BL: Integer;
Var
TPA: TPointArray;
Begin
If FindColorsTolerance( TPA, 2176229, BXS, BYS, BXE, BYE, 42) Then
Result := Length( TPA);
End;
begin
Setupsrl;
repeat
If BL > 477 Then
Begin
//Mouse( 650, 360, 0, 0, true);
MMouse( 650, 360, 0, 0);
SDB( IntToStr( BL));
Wait( 1000);
End;
MMouse( 0, 0, 50, 50);
until false
end.