Lol, i made this for a friend cause he wanted. Then i decided to make a simple drop version! :P
This is the only version! :P
Start at trees dead trees! :O
Simba Code:
program WoodCutter;
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i sps/sps.simba}
{$i SRL/SRL/misc/paintsmart.simba}
procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] Do
Begin
Name := ''; //Player username.
Pass := ''; //Player password.
Nick := ''; //Player nickname - 3-4 letters of Player username.
Active := True;
End;
End;
procedure SetupChar;
begin
SetupSRL();
SetAngle(0);
ClickNorth(0);
end;
procedure Startup;
begin
Smart_Server := 69;
Smart_Members:= true;
Smart_Signed := true;
SetupSRL;
DeclarePlayers;
LogInPlayer;
MouseSpeed := 500;
wait(100+random(100));
end;
Function FindObjOnScreen(Color,Tolerance:Integer;MC2:Variant): Boolean;
var
X,Y:Integer;
CTS,I,T: Integer;
TPA: TPointArray;
begin
repeat
Result := False;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.50,0.65);
FindColorsSpiralTolerance(MSCX, MSCY, TPA,(Color), MSX1, MSY1, MSX2, MSY2, Tolerance);
ColorToleranceSpeed(CTS);
if (Length(TPA) < 1) then
Exit;
MMouse(TPA[0].X, TPA[0].Y, 0, 0);
if WaitUpText('Chop', 500) then
begin
GetMousePos(X, Y);
ClickMouse2(MC2);
Result := True;
Exit;
end;
Until(Result)
end;
begin
Startup;
SetupChar;
Begin
Repeat
Repeat
FindObjOnScreen(2106665,2,True);
Wait(1500 + Random(1000));
Until InvFull;
DropAll;
Until (Not LoggedIn);
end;
end.
Dont hate! :P
This is for begining woodcutters! 
Only bug is it will sometimes go for trees behind a fence! :P
You may take this edit it in anyway you want and release, if its too close to just a simple c1d1 then give credit! :P
Tada!