Mine

program New;
{.include srl/srl.scar}

var x,y: integer;

Function TreeWalk(WhatTree: String; x1, y1, x2, y2: Integer) : Boolean;
Var
 Tree : array [0..2] of Integer;
 i : Integer;

begin
  Tree[0] := 2250789;
  Tree[1] := 2315315;
  Tree[2] := 2442328;
Begin
Case WhatTree of
 'Tree': Begin
           For i:= 0 to 2 do
            If FindColorSpiralTolerance(x,y,Tree[i],x1,y1,x2,y2,70) then
              Begin
               Writeln('Tree Found!')
               Result:= True;
              end else
            Writeln('Tree Not Found, Exiting');
            Exit;
         end;
 'RareTree' : Begin
                If FindSymbolIn(x,y,'Tree',x1,y1,x2,y2) then
                  Begin
                   Writeln('Tree Found!')
                   Result:= True
                  end else
                Writeln('Tree Not Found, Exiting');
                Exit;
               end;
            end;
        end;
    end;



Begin
  SetupSRL;
  ActivateClient;
  wait(1800)
If TreeWalk('Tree',622, 120,670, 145) then
  Mouse(x,y,1,1,true)
END.