Hmm okay im working on a lumby oak cutter and shop seller.
Its working, but the mouse moves so darn slow its like 1 inch per hour :P
Heres my script. Help plz 
SCAR Code:
program OaksGotPwned;
{.include SRL/SRL.Scar}
const
Shop = 2709391; // color of the pot of the general shop in minimap
OakColor = 2975325; // color of the oak leaves, pick any color
var
x, y :integer; // do not touch this
/////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////
procedure Signature;
begin
ClearDebug;
writeln('Oaks Got Pwned! OMGZORZ!!!!!!!!!!!!!');
writeln('This Script has been made by r3dr4g0n');
writeln('Please do not distribute without permission');
writeln('You can edit my script to make your own, just give me credit');
writeln('ENJOY THE SCRIPT!');
wait(3000 + random(750));
end;
///////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////
procedure FaceNorth; /////////////////////
begin // Sets up your //
MakeCompass('N'); // compass and //
HighestAngle; // highest angle //
end; /////////////////////
///////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////
Procedure Randoms; // finds normal randoms
Begin // this is the best i can do...
Findnormalrandoms; // so far :)
End;
///////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////
Function CutOak: Boolean;
begin
repeat
if(FindColor(x, y, OakColor, 1, 1, 515, 337)) then
begin
MMouse(x, y, 5, 5);
Wait(100 + random(50));
if IsUpText('ak') then
begin
Mouse(x, y, 0, 0, True);
Result := True;
end;
end;
until (result)
end;
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////
procedure WalkItOut;
begin
if(FindColor(x, y, Shop, 584, 31, 719, 146)) then
begin
MMouse(x, y, 5, 5);
Wait(100 + random(100));
Mouse(x, y, 0, 0, True);
end;
end;
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////
begin
Activateclient; // minimizes scar and opens RS
SetupSRL;
Signature;
Wait(3000+random(1000)); // waits 3 seconds before doing anything
FaceNorth; // faces in the right direction
repeat
CutOak; // starts cutting oak
Randoms;
Wait(15000+random(15000));
if InvFull then WalkItOut; // walks to shop when ur inven is full
until(false);
end.