SCAR Code:
procedure RockMine;
begin
FindGas(fx, fy: ): ; //What is this doing here? :p
if(findcolor(x,y,'RockColor',MSX1,MSY1,MSX2,MSY2))then //This can stay at the same spot every time and RockColor can't be a string so remove the ''
Mouse(X,y,4,4,true)
Repeat
findtalk; //This can be an endless loop
findnormalrandoms;
Until(Isuptext('Mine'))
If FindColor( Blah ) then
MMouse(x,y5,5)
Until(Isuptext('Mine'))
If IsupTex('Mine') then
Mouse(x,y,0,0,true)
FindGas(fx, fy: ): ;
end;
This is what I made from your procedure, but I suggest you look at some MiningScripts
SCAR Code:
procedure RockMine;
begin
if findObj(x, y, 'Mine', RockColor, 20)then //Change this with some better FindObj :p
begin
if not FindGas(x, y) then
Mouse(X,y,4,4,true)
end;
end;