
Originally Posted by
Gucci
Yeah it's the finding function/ colors on my phone so I can't look at the code :/
I believe this is what you want to see:
Simba Code:
Procedure MineClay; //Credits to Siel of Villavu for the V1.0+ MineClay procedure.
var x, y, PlusOne, RockCounter: integer;
begin
if not LoggedIn then Exit;
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
repeat
FindNormalRandoms;
PlusOne:= InvCount + 1
WriteLn('Finding a rock to mine...');
if FindObj(x, y, 'ocks', 7647960, 10) then //This finds the object, records the X and Y values,
begin //and tells the script to find the option "Rocks".
WriteLn('Mining rock.');
Mouse(x, y, 0, 0, true);
ChooseOption('lay'); //This tells the script to left-click on the object and select "Clay".
MarkTime(RockCounter);
Antiban;
repeat
Wait(150);
FindNormalRandoms;
until (InvCount=PlusOne) Or (TimeFromMark(RockCounter) > 5000 + random(1000))
if (InvCount=PlusOne) then
Writeln ('Money $$ Money');
end;
until (InvFull); //This is an Until function. It stops the repeat function if the rock has been mined or your inventory is full.
end;