you have forgotton one end on the anti ban:
SCAR Code:
//________________________________________________________________\\
// SapettoTreeChopDrop \\ \\
// \\
// Chops Normal Trees and drops them. \\ \\
// Position ypur player near Trees. \\
// \\ \\
//________________________________________________________________\\
program SapettoTreeChopDrop;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
const
TreeColora = 3308653;
TreeColorb = 2114621;
TreeColorc = 1720889;
var
x, y, Logs: Integer;
procedure FindRandoms;
begin
FindNormalRandoms;
FindEnt(x, y, true);
if (FindFight) then
begin
MakeCompass('N');
RunTo('N', True);
Wait(7000 +Random(2000));
RunBack;
end;
end;
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 10 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
10: Respond;
end;
wait(1);
end;
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
case Random(4) of
1: begin
HoverSkill('Woodcutting', false);
wait(2000+random(500));
GameTab(4);
end;
2: begin
HoverSkill('Firemaking', false);
wait(2000+random(500));
GameTab(4);
end;
3: PickUpMouse;
4: begin
GameTab(1 + Random(12));
wait(500+random(1000));
GameTab(4);
end;
5: case random(4) of
1: TypeSend('I am better at fishing');
2: TypeSend('I am sleppy');
3: TypeSend('grr i am very good!');
4: TypeSend('Wc levels?');
end;
end;
end;
procedure Chop;
Begin
repeat
if(not(LoggedIn))then
Exit;
FindColorTolerance(x,y,TreeColora,3,3,551, 231,6);
FindColorTolerance(x,y,TreeColorb,3,3,551, 231,6);
FindColorTolerance(x,y,TreeColorc,3,3,551, 231,6);
mouse(x,y,2,2,true);
wait(2000+random(2500));
until(InvFull);
end;
procedure Drop;
begin
if(not(LoggedIn))then
Exit;
Logs := DTMFromString('78DA6314636060E06700036608C5D09C62C32' +
'007A41981F83F10304A001952A86A40B23035609E3090E020A046' +
'1E48F01250C385E91E0C353C404292801A6920C18A5F0D0076AD0' +
'717');
repeat
if(FindDTM(Logs,x,y,MIX1, MIY1, MIX2, MIY2)) then
begin
Mouse(x, y, 2, 2, false);
ChooseOption('rop');
Wait(600+Random(500))
end;
begin
SetUpSRL;
ClearDebug;
repeat
Choping;
Drop;
end.
one other tip, make a array from the tree colors 
like this (some other bugs fixed tough):
SCAR Code:
//________________________________________________________________\\
// SapettoTreeChopDrop \\ \\
// \\
// Chops Normal Trees and drops them. \\ \\
// Position ypur player near Trees. \\
// \\ \\
//________________________________________________________________\\
program SapettoTreeChopDrop;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
var
x, y, Logs: Integer;
var TreeColor: array[1..3] of Integer;
procedure LoadTreeColors;
begin
TreeColor[1]:= 3308653;
TreeColor[2]:= 2114621;
TreeColor[3]:= 1720889;
end;
procedure FindRandoms;
begin
FindNormalRandoms;
FindEnt(x, y, true);
if (FindFight) then
begin
MakeCompass('N');
RunTo('N', True);
Wait(7000 +Random(2000));
RunBack;
end;
end;
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 10 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
10: Respond;
end;
wait(1);
end;
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
case Random(4) of
1: begin
HoverSkill('Woodcutting', false);
wait(2000+random(500));
GameTab(4);
end;
2: begin
HoverSkill('Firemaking', false);
wait(2000+random(500));
GameTab(4);
end;
3: PickUpMouse;
4: begin
GameTab(1 + Random(12));
wait(500+random(1000));
GameTab(4);
end;
5: case random(4) of
1: TypeSend('I am better at fishing');
2: TypeSend('I am sleppy');
3: TypeSend('grr i am very good!');
4: TypeSend('Wc levels?');
end;
end;
end;
procedure Chop;
var
T : Integer;
Begin
if(not(LoggedIn))then Exit;
for T:= 1 To 3 do
begin
if FindColorTolerance(x,y,TreeColor[T],3,3,551, 231,6) then
begin
mouse(x,y,2,2,true);
wait(2000+random(2500));
Exit;
end;
end;
end;
procedure Drop;
begin
if(not(LoggedIn))then
Exit;
Logs := DTMFromString('78DA6314636060E06700036608C5D09C62C32' +
'007A41981F83F10304A001952A86A40B23035609E3090E020A046' +
'1E48F01250C385E91E0C353C404292801A6920C18A5F0D0076AD0' +
'717');
repeat
if(FindDTM(Logs,x,y,MIX1, MIY1, MIX2, MIY2)) then
begin
Mouse(x, y, 2, 2, false);
ChooseOption('rop');
Wait(600+Random(500))
end;
Until(Not(FindDTM(Logs,x,y,MIX1, MIY1, MIX2, MIY2)))
FreeDTM(logs);
end;
begin
SetUpSRL;
ClearDebug;
LoadTreeColors;
repeat;
repeat;
Chop;
Until(invFull);
Drop;
until(False);
end.