anchor.diff:      end;
     end;
     ValidTiles.Free;
  -end;
  +end; 
   
   
   //Return location of a Tree or a place to plant a tree depending on TreeAct
  
positive.code:     function FindOre(aLoc: TKMPoint; aRes: TKMWareType; out OrePoint: TKMPoint): Boolean;
      procedure FindOrePoints(aLoc: TKMPoint; aRes: TKMWareType; var aPoints: TKMPointListArray);
      procedure FindOrePointsByDistance(aLoc: TKMPoint; aRes: TKMWareType; var aPoints: TKMPointListArray);
      function CanFindTree(aLoc: TKMPoint; aRadius: Word):Boolean;
      procedure FindTree(aLoc: TKMPoint; aRadius: Word; aAvoidLoc: TKMPoint; aPlantAct: TKMPlantAct; Trees: TKMPointDirList; BestToPlant,SecondBestToPlant: TKMPointList);
      function FindFishWater(aLoc: TKMPoint; aRadius:integer; aAvoidLoc: TKMPoint; aIgnoreWorkingUnits:Boolean; out FishPoint: TKMPointDir): Boolean;
      function CanFindFishingWater(aLoc: TKMPoint; aRadius:integer): Boolean;
  
negative.code: end;
  
  
  function TKMTerrain.CanFindTree(aLoc: TKMPoint; aRadius: Word; aOnlyAgeFull: Boolean = False): Boolean;
  var
    ValidTiles: TKMPointList;
    I: Integer;
  