anchor.diff:    finally
       TagList.Free;
     end;
  +  //}
     // Scan Resources - coal
     TagList := GetCoalMineLocs(True);
     try
  
positive.code:   aIronMineCnt := FindSeparateMines(htIronMine, fIronMines);
    aGoldMineCnt := FindSeparateMines(htGoldMine, fGoldMines);
    // Scan Resources - stones
    TagList := GetStoneLocs(True);
    try
      I := 0;
  
negative.code:   MIN_SCAN_DIST_FROM_HOUSE = 2; // Houses must have at least 1 tile of space between them
  
  var
    GA_EYE_GetForests_SPRndOwnLimMin : Single = 150;
    GA_EYE_GetForests_SPRndOwnLimMax : Single = 200;
    GA_EYE_GetForests_InflLimit      : Single = 222.1944779;
    GA_EYE_GetForests_MinTrees       : Single = 3.11;
    GA_EYE_GetForests_Radius         : Single = 5.0698;
  
  
  type
  