To add randomness to your script, it is best to put a repeat loop in all of your procedures. For example.
SCAR Code:
procedure MineRocks;
begin
if (FindMSColorTol(x, y, RockColor, 15)) then
begin
repeat
MMouse(x, y, 2, 2);
until (IsUpText('Mine'));
Mouse(x, y, 2, 2, False);
ClickOption('Mine', 3);
repeat
AntiRandoms;
OtherAntiRandoms;
AllAntiRandomsYouHave;
until (InvFull);
end;
end;
Hope this helped you on your anti random problem! 
If I can think of a way to help you solve your Aubury problem, I will post.
- Da Der Der