anchor.diff:    MIN_SCAN_DIST_FROM_HOUSE = 2; // Houses must have at least 1 tile of space between them
   
   var
  -  GA_EYE_GetForests_SPRndOwnLimMin : Single = 52.91167;
  -  GA_EYE_GetForests_SPRndOwnLimMax : Single = 237.3961;
  -  GA_EYE_GetForests_AddRndPosition : Single = 15.86685;
  -  GA_EYE_GetForests_RndCount       : Single = 10;
  -  GA_EYE_GetForests_RndLimit       : Single = 0.62351;
  -  GA_EYE_GetForests_InflLimit      : Single = 220.5552;
  -  GA_EYE_GetForests_MinTrees       : Single = 3.11;
  -  GA_EYE_GetForests_Radius         : Single = 5.0698;
  -  GA_EYE_GetForests_MinRndSoil     : Single = 15.969; //0<->25
  +  GA_EYE_GetForests_SPRndOwnLimMin : Single = 50.40101;
  +  GA_EYE_GetForests_SPRndOwnLimMax : Single = 239.6274;
  +  GA_EYE_GetForests_AddRndPosition : Single = 18.87446;
  +  GA_EYE_GetForests_RndCount       : Single = 8.2571;
  +  GA_EYE_GetForests_RndLimit       : Single = 0.841865;
  +  GA_EYE_GetForests_InflLimit      : Single = 204.4068;
  +  GA_EYE_GetForests_MinTrees       : Single = 3.1580;
  +  GA_EYE_GetForests_Radius         : Single = 5.2813;
  +  GA_EYE_GetForests_MinRndSoil     : Single = 16.66946; //0<->25
   
   
   type
  
positive.code: begin
    fHMA := gAIFields.Eye.HousesMapping; // Make sure that HMA is actual
    fQueueCnt := 0;
    if (Length(fInfoArr) <> gTerrain.MapY * gTerrain.MapX) then
    begin
      fMapX := gTerrain.MapX;
      fMapY := gTerrain.MapY;
  
negative.code:       if (Ownership > GA_EYE_GetForests_SPRndOwnLimMin)
           AND (Ownership < GA_EYE_GetForests_SPRndOwnLimMax)
           AND (SparePointsCnt < GA_EYE_GetForests_RndCount)
           AND (KaMRandom() > GA_EYE_GetForests_RndLimit) then
        begin
          Point := Polygons[I].CenterPoint;
          Cnt := 0;
          for Y := Max(1,Point.Y-2) to Min(Point.Y+2,fMapY-1) do
            for X := Max(1,Point.X-2) to Min(Point.X+2,fMapX-1) do
              if gTerrain.TileIsSoil(X,Y) AND (BuildFF.State[Y,X] in [bsBuild, bsTree, bsForest]) then
                Cnt := Cnt + 1;
          if (Cnt > GA_EYE_GetForests_MinRndSoil) then
  