anchor.diff:      function CanAddHousePlan(aLoc: TKMPoint; aHT: TKMHouseType; aIgnoreAvoidBuilding: Boolean = False; aIgnoreTrees: Boolean = False; aIgnoreLocks: Boolean = True): Boolean;
   
       function GetMineLocs(aHT: TKMHouseType): TKMPointTagList;
  -    function GetStoneLocs(aOnlyMainOwnership: Boolean = False): TKMPointTagList;
  -    function GetCoalMineLocs(aOnlyMainOwnership: Boolean = False): TKMPointTagList;
  +    function GetStoneLocs(): TKMPointTagList;
  +    function GetCoalMineLocs(): TKMPointTagList;
       procedure GetForests(var aForests: TKMPointTagList);
       function GetCityCenterPoints(aMultiplePoints: Boolean = False): TKMPointArray;
   
  
positive.code: 
  function TKMEye.GetMineLocs(aHT: TKMHouseType): TKMPointTagList;
  var
    I: Integer;
    Mines: TKMPointList;
    Output: TKMPointTagList;
  begin
  
negative.code:       if (Ownership > GA_EYE_GetForests_SPRndOwnLimMin)
           AND (Ownership < GA_EYE_GetForests_SPRndOwnLimMax)
           AND (SparePointsCnt < GA_EYE_GetForests_RndCount)
           AND (KaMRandom('TKMEye.GetForests') > GA_EYE_GetForests_RndLimit) then
        begin
          Point := Polygons[I].CenterPoint;
          Cnt := 0;
  