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 CheckStoneReserves(aForceToPlaceQuarry: Boolean = False);
   
       procedure LogStatus(var aBalanceText: UnicodeString);
       procedure Paint();
  
positive.code:     Loc, SpecPoint: TKMPoint;
    end;
    THousePlanArray = record
      Count, Completed, UnderConstruction: Word;
      Plans: array of THousePlan;
    end;
    TPlannedHousesArray = array [HOUSE_MIN..HOUSE_MAX] of THousePlanArray;
  
  
    TPathFindingCityPlanner = class(TPathFindingRoad)
    private
  
negative.code: end;
  
  
  function TKMCityPlanner.FindPlaceForMines(aHT: TKMHouseType; var aLoc: TKMPoint): Boolean;
  const
    MAX_LOCS = 5;
  
  