anchor.diff:      function GetFieldToHouse(aHT: TKMHouseType; aIdx: Integer; var aField: TKMPointList; var aFieldType: TKMFieldType): Boolean;
       function GetTreesInHousePlan(aHT: TKMHouseType; aIdx: Integer; var aField: TKMPointList): Byte;
       function FindForestAround(const aPoint: TKMPoint; aCountByInfluence: Boolean = False): Boolean;
  +    procedure CheckStoneReserves();
   
       procedure Paint();
     end;
  
positive.code:     htGoldMine:  Output := FindPlaceForMine(htGoldMine);
      htIronMine:  Output := FindPlaceForMine(htIronMine);
      htCoalMine:  Output := FindPlaceForCoalMine();
      htQuary:     Output := FindPlaceForQuary();
      else         Output := False;
    end;
    Result := Output;
  end;
  
negative.code: 
  
  // So far the fastest method for placing houses
  function TKMCityPlanner.FindPlaceForHouse(aUnlockProcedure: Boolean; aHT: TKMHouseType; out aBestLocs: TKMPointArray): Byte;
  const
    BEST_PLANS_CNT = 8;
  