Here is the finished product. Read what the notes in the script. And oh yea.... ummm I wouldnt use this unless you want to get banned. Get the newest SRL, and use SRL functions because there are so much more undetectable then the procedures your using here. For example:
SCAR Code:
MoveMouse(x, y);
ClickMouse(x, y, true);
Will get you BANNED!
SCAR Code:
{-------------------------------------------------------------------------\
rock mower by JAD set line 17 drag crosshair to runescape window |
and click start. this version does not feature anti ban or anti randoms |
so i would suggest watching it while running. i'm making a dropping |
procedure soon. i am not responsible for any accounts being banned. |
--------------------------------------------------------------------------}
program RockMower;
const
RockColor = 4484246; //the color of rock you want script to mine
//var
// x,y:integer; //didnt need, already placed in procedure.
procedure Signature;
begin
ClearDebug;
writeln(' Rock Mower by: ') wait(2000); //why wait?
writeln(' __________ /\ ______ ') wait(500) ; // |
writeln(' |__________| / \ | ____ \ ') wait(500) ; // |
writeln(' | | / /\ \ | | \ \ ') wait(500) ; // |
writeln(' ___ | | / /__\ \ | | \ \ ') wait(500) ; // |
writeln(' \ \| | / /____\ \ | | / / ') wait(500) ; // |
writeln(' \ | / / \ \ | |___/ / ') wait(500) ; // |
writeln(' \____| / / \ \ |______/ ') ; // V
end;
procedure MineRock;
var
x,y:integer;
begin
if (FindColor(x, y, RockColor, 0, 0, 1279, 799)) //needed another )
// ' ) ' = close round
then
begin //need another begin if there is more then 1 procedure after a 'then'
MoveMouseSmooth(x, y);
wait(50 + random(500));
ClickMouse(x, y, true);
end; //another end for the begin....
end;
begin
Signature;
MineRock;
end.
EDIT: Just read the top of your script... SRL even has its own dropping procedures.