Ok, heres my script and I need a bit of help 
SCAR Code:
procedure FindRocks;
begin
repeat
Drop := true;
FindNormalRandoms;
FindObjCustom(x, y, ['Rock'], [orecolour01,orecolour02], 15)
GetMousePos(x, y);
Mouse(x, y, 4, 4, false);
ChooseOption('Mine')
Wait(timeperrock)
until InvFull;
if InvFull then
loadstodo := loadstodo + 1
if Drop = true then
begin
FindNormalRandoms;
DropToPosition(2,28);
end;
As you can see it is a very simple script and it only took about and hour to write the whole thing. All I need is a simple function or command to tell it keep on mining till it has completed the set amount of loads. Also I need a better command then FindObjCustom to find the ore's because it's qutie inaccurate. I put in the colours for Iron ores and it started on them but then start mining copper