Mining Procedure Help

[massive630]

I am making a guild miner/ banker, and im stuck on a problem. I dont know how to make the script wait until my char is done mining a rock, to start mining a new one. get wat im saying? right now im using timed mining, and that is ineffecient and kinda skechy looking. so is there a way that i can make scar detect when a rock has no more ore? here is my procedure.

 Procedure MinetheCoal;
var MiningTime: Integer;
Begin
  MarkTime(MiningTime);
repeat
  if(not(LoggedIn))then
  Exit;
  GameTab(4);
  FindColorSpiral(x, y, 2834239, 0, 0, 517, 337);
  MMouse(x,y,0,0);
  if(IsUpText('ine'))then
  begin
    GetMousePos(x,y);
    Mouse(x,y,0,0,true);
    Flag;
    Wait(10000+random(3000));
  end;
until(InvFull) or (TimeFromMark(MiningTime) > 600000+random(60000));
writeln(' Your iventroy is full, im going to empty it into your bank.');
end;

 

[Town]

You can use colors, text, or inventory slots.

 

[massive630]

ok, so those are my options, but i dont understand how to use any of them. can you show me how to use color?

fixed it, it works now, thanx. here it is.

Procedure MinetheCoal;
var MiningTime, OreTime: Integer;
Begin
  MarkTime(MiningTime);
  repeat
      if(not(LoggedIn))then
      Exit;
      GameTab(4);
      if(FindColorSpiral(x, y, 2834239, 0, 0, 517, 337))then
      begin
        MMouse(x,y,0,0);
        if(IsUpText('ine'))then
        MarkTime(OreTime);
        begin
          GetMousePos(x,y);
          Mouse(x,y,0,0,true);
          Flag;
          repeat
            Wait(1000+random(300));
          until(FindBlackChatMessage('anage'))or
          (FindBlackChatMessage('vailable')) or
          (TimeFromMark(OreTime) > 30000+random(100));
        end;
      end;
      if(not(FindColorSpiral(x, y, 2834239, 0, 0, 517, 337)))then
      begin
        GoToMiningSymbol;
      end;
    until(InvFull) or (TimeFromMark(MiningTime) > 600000+random(60000));
  writeln('Load done');
end;