Hey, I made my own random finding thing, but it won't check any randoms.. I'v probaly made some mistakes, could someone to fix them 
SCAR Code:
Function FindHomeRandoms: Boolean;
Var
i: Integer;
Begin
For i:=1 To 11 Do
Begin
Case I Of
1: If SolveChatRandom Then
Result:=True;
2: If FindTalk Then
Result:=True;
3: If FindTalk Then
Result:=True;
4: If FindDead Then
Result:=True;
5: If FindMime Then
Result:=True;
6: If FindMaze Then
Result:=True;
7: If FindQuiz Then
Result:=True;
8: If FindTalk Then // Call it twice
Result:=True;
9: If FindLamp('agility') Then // Maybe we missed it?
Result:=True;
10: If (FindBox) Then
Begin
Result:=True;
If (UseBoxSolver) Then
SolveBox
Else
GambleBox;
End;
11: If NoGameTab Then
Begin
Result:=True;
If (GetColor(649, 78)=65536) Then
Begin
Writeln('Found BeeKeeper, Trying To Solve')
If (SolveBeeKeeper) Then
Begin
AmtBee:=AmtBee+1
For p:=0 To 50 Do
Begin
Wait(1000+random(100));
If (Not(GetColor(649, 78)=65536))Or(FindColorTolerance(x, y, FlaxMS, MSX1, MSY1, MSX2, MSY2, 30)) Then
Begin
Wait(3000+Random(3000));
Writeln('BeeKeeper Solved, At Flax Field')
ReportVars[4]:=ReportVars[4]+1;
SendSRLReport;
End;
End;
End;
End
Else
Logout;
End;
End;
If Result Then
Break;
Wait(1);
End;
End;