anchor.diff:              fUnits.CRC xor
               fMapElements.CRC xor
               fTileset.CRC;
  +end;
  +
  +
  +function TKMResource.GetHouses: TKMResHouses;
  +begin
  +  if Self = nil then Exit(nil);
  +
  +  Result := fHouses;
   end;
   
   
  
positive.code: 
      property DataState: TResourceLoadState read fDataState;
      property Cursors: TKMResCursors read fCursors;
      property Houses: TKMResHouses read fHouses;
      property MapElements: TKMResMapElements read fMapElements;
      property Palettes: TKMResPalettes read fPalettes;
      property Fonts: TKMResFonts read fFonts;
  
negative.code: 
      procedure StepRefresh;
      procedure StepCaption(const aCaption: UnicodeString);
      function GetHouses: TKMResHouses;
    public
      OnLoadingStep: TEvent;
      OnLoadingText: TUnicodeStringEvent;
  