SRL Archive - Help and Support

{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~OreMine~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
procedure OreMine;
begin
  if (FindColorSpiralTolerance(cx, cy, RockCol1, 0, 0, 513, 337, 5)) or
     (FindColorSpiralTolerance(cx, cy, RockCol2, 0, 0, 513, 337, 5)) then
     begin
       MMouse(cx, cy, 2, 2);
       AntiRandoms;
       Gascheck(x, y);
       if (IsUpText('Mine')) then
        begin
          Mouse(cx, cy, 2, 2, True);
          Gascheck(x, y);
          AntiRandoms;
          wait(1500);
          while IsChatMessage('You swing') do
           begin
             repeat
              waiting;
             until (XLong > XWait) or
             (IsChatMessage('You manage'))
             XLong := 0;
           end;
        end;
     end;
end;
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~OreMine~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}

Here's the code…Just insert it with the correct (x and y) things, and you're on my helper list. Thanks for doing this, and if Piv's check is as good as I hear, then he rocks!

ok, all you have to do is… GasCheck(x, y) or whatever your Mouse(whatever's) are. like X,y.

he made this becuase it doesnt work effctively

thanks ejjman helped :D

I am not quite sure how to use it as i have never really got into mining scripts. But try specifying the x and y co ords to the rock. So where you click check gas there. so

gascheck(123,123)

This could be a load of nonesense i just cant get into my srl library right at moment

Just do Gascheck(x,y) After you move your mouse to the ore ;)

Look into Piv's code and you will understand.