anchor.diff:  end;
   
   
  -function TKMEye.GetCoalLocs(aOnlyMainOwnership: Boolean = False): TKMPointTagList;
  +function TKMEye.GetCoalMineLocs(aOnlyMainOwnership: Boolean = False): TKMPointTagList;
   var
     Own: Byte;
     I, K, Cnt: Integer;
  
positive.code:     TagList.Free;
    end;
    // Scan Resources - coal
    TagList := GetCoalLocs(True);
    try
      X := 0;
      Increment := Ceil(TagList.Count / 10.0); // Max 10 paths
  
negative.code: 
      function GetMineLocs(aHT: TKMHouseType): TKMPointTagList;
      function GetStoneLocs(aOnlyMainOwnership: Boolean = False): TKMPointTagList;
      function GetCoalMineLocs(aOnlyMainOwnership: Boolean = False): TKMPointTagList;
      procedure GetForests(var aForests: TKMPointTagList; aInitialization: Boolean = False);
      function GetCityCenterPoints(aMultiplePoints: Boolean = False): TKMPointArray;
  
  