Here you go bud, i've added randoms... and i fixed that problem about picking up eggs... 
SCAR Code:
Program New;
{.include SRL/SRL.scar}
var
x, y, z : integer;
Bones : integer;
//************************ SETUP ***********************************************
Const
BoneColor = 13027278; //Bone Color. Pick it with the color picker and paste it there.
BoneTol = 10;
loads = 2;
//************************ END SETUP *******************************************
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure randoms;
begin
findfastrandoms;
findnormalrandoms;
end;
Procedure ClickBone1;
Begin
repeat
randoms;
If(FindObj(x, y, 'one', Bonecolor, Bonetol))then
if isuptext('one') then
begin
mouse(x, y, 1, 1, true);
randoms;
flag;
end;
until(invcount = 28);
End;
Procedure LoadBitmapBones;
begin
Bones := BitmapFromString2(False, 'aA551D78DAED56ED6EC2300C' +
'7CA5244DFCF1D3769AF77FA43975278118688351818423191499F' +
'6723E5F482925ED9E122E9E1636CF90CBCCA97A6E04F37B15CF85' +
'B69D366BDAD8F66761AADB07B631735DE7BEB6F95DE6330174D6F' +
'356FA89378E2C438A144418B0C6CE65CD6B2257D1A489000DF502' +
'6766E3C4AF833F9F662BCACADC48882FF7C524C90FBF3A1E6D879' +
'E6C185BB6ACAA5977B550A78516701B81BDBE2FD6ADABE9A28B34' +
'66261AD4A8DDD4D53F3079C65E758CA2202A2299612E32524E84B' +
'E36CC57F8CCC13976AC58A1B5D17A1D952BFD13F2DCC5B904E708' +
'ACE9AA55AB30AFDC79210F1C08BE140B16CA13EC2FBA9F7528288' +
'04009CB7EA25AF6FE46C7619D60B1CD039DF10F7EB2F5A67A73A7' +
'BEF4121D3950D5F90AABDFA7EB8E8BDC4686AF24556AF428FA15B' +
'D73ED3769A79ABF2BFF19B94FD24AFD9A0676CC2CAB745753E132' +
'95251CBD30B56A35D445882BF6988898D0BD72F39C6DCA397888E' +
'72063C67432058F4CEB4FEEBDF1C983E70B945CF7D1A3786FCC6F' +
'B01D3BC49470041B02D326DD6948709FA685D1CF76ABCB4FF4F3F' +
'D441B92988EDFAB223C33EE02C84E891CEFF6E14277BD77BF178A' +
'F9B52047721EFA69DA3C1E99AF6763EEC5A7506D35742F115BCCF' +
'F71A3E0F15DFE3BF2E478256E55378A44A352F57879E4679D0D4F' +
'68B5F6DADF04F9F79DB5395EEB0D1BBE15F26326EB139FB833BE0' +
'0479');
end;
procedure FindBones;
begin
repeat
if FindBitmapToleranceIn(bones, x, y, 560, 214, 734, 457, 25) then
begin
Mouse(x,y,1,1,true);
randoms;
end;
until not FindBitmapToleranceIn(bones, x, y, 560, 214, 734, 457, 25);
end;
Begin
setupsrl;
LoadBitMapBones;
repeat
ClickBone1;
wait(1000+random(2000));
FindBones;
wait(1000+random(2000));
z:= z + 1;
until(z = loads);
End.