SCAR Code:
program Autologin;
{.include SRL/SRL/misc/SMART.scar}
{.include srl/srl.scar}
{.include SRL/SRL/Skill/Woodcutting.Scar}
var
x, y :integer;
procedure DeclarePlayers;
begin
NumberOfPlayers(1);
CurrentPlayer :=0
Players[0].Name := ''; //username
Players[0].Pass := ''; //password
Players[0].Nick := ''; //3-4 letters of username
Players[0].Active := True;
end;
procedure Sig;
begin
writeln('This Script was made by');
wait(300);
writeln('Q Golden Q');
end;
Procedure LogMeIn;
begin
if(not(LoggedIn))then
begin
LoginPlayer;
Wait(1000+random(3000));
MakeCompass('N');
end;
end;
procedure AntiRandoms;
begin
FindNormalRandoms;
FindLamp('woodcutting');
end;
procedure ChopTree;
begin
AntiRandoms;
if not LoggedIn or InvFull then
exit;
LogMeIn;
if(FindcolorTolerance(x,y,6728348,5,5,515,340,5))then
begin
Mouse(x,y,2,2,true);
Wait(4000+ Random(7000));
end;
end;
procedure Drops;
begin
if(not(LoggedIn))then
exit;
if(InvFull)then
DropAll;
end;
Begin
SMARTSetUpEX(55, False, True, False);
SetTargetDC(SMARTGetDC);
wait(12000)
SetupSRL;
Disguise('LimeWire');
Sig;
DeclarePlayers;
if(not(LoggedIn))then
LogMeIn;
repeat
AntiRandoms;
ChopTree;
Drops;
until(false);
end.
just fixed standards.. their is some stuff you can add like.. constants.. 
for tree to cut/colors/loads to do/whatever.. it makes it a lot more customizable