anchor.diff:  
       function GetMineLocs(aHT: TKMHouseType): TKMPointTagList;
       function GetStoneLocs(aOnlyMainOwnership: Boolean = False): TKMPointTagList;
  -    function GetCoalLocs(aOnlyMainOwnership: Boolean = False): TKMPointTagList;
  +    function GetCoalMineLocs(aOnlyMainOwnership: Boolean = False): TKMPointTagList;
       procedure GetForests(var aForests: TKMPointTagList; aInitialization: Boolean = False);
       function GetCityCenterPoints(aMultiplePoints: Boolean = False): TKMPointArray;
   
  
positive.code:         Loc := gAIFields.NavMesh.Polygon2Point[K];
          if (gTerrain.TileIsCoal(Loc.X, Loc.Y) > 1) then
          begin
            if (tpBuild in gTerrain.Land[ Loc.Y, Loc.X ].Passability) then
              Output.Add(Loc, Own);
            Cnt := Cnt + 1;
          end;
  
negative.code: end;
  
  
  function TKMEye.GetCoalMineLocs(aOnlyMainOwnership: Boolean = False): TKMPointTagList;
  var
    Own: Byte;
    I, K, Cnt: Integer;
  