Try TreeWalk:
SCAR Code:
{********************************************************************************
function Function TreeWalk(WhatTree: String; x1, y1, x2, y2: Integer) : Boolean;
By: NaumanAkhlaQ
Description: Walks to a tree in a specified area, for use in the MiniMap
Direction: In the string 'WhatTree' the valid arguments are:
'RareTree',
'Tree'.
********************************************************************************}
Function TreeWalk(WhatTree: String; x1, y1, x2, y2: Integer) : Boolean;
Var
Tree : array [0..5] of Integer;
i : Integer;
// x,y : Integer;
begin
Tree[0] := 2662810;
Tree[1] := 1659002;
Tree[2] := 4225609;
Tree[3] := 1134376;
Tree[4] := 468785;
Tree[5] := 867603;
Case WhatTree of
'Tree': Begin
For i:= 0 to 5 do
If FindColorSpiralTolerance(x,y,Tree[i],x1,y1,x2,y2,100) then
Begin
Writeln('Tree Found!')
Result:= True;
Exit;
end else
Begin
Exit;
end;
end;
'RareTree' : Begin
If FindSymbolIn(x,y,'Tree',x1,y1,x2,y2) then
Begin
Writeln('Tree Found!')
Result:= True
Exit;
end else
Begin
Writeln('Tree Not Found, Exiting');
Exit;
end;
end;
end;
end;
Might Need to Pick your won colors 
Hope I Helped