anchor.diff:      end;
     end;
   
  -  NotAcceptFlag[aRes] := not NotAcceptFlag[aRes];
  +  NotAcceptFlag[aWare] := not NotAcceptFlag[aWare];
   end;
   
   
  
positive.code:     NotAcceptFlag: array [WARE_MIN .. WARE_MAX] of Boolean;
      constructor Load(LoadStream: TKMemoryStream); override;
      procedure DemolishHouse(aFrom: TKMHandIndex; IsSilent: Boolean = False); override;
      procedure ToggleAcceptFlag(aRes: TWareType);
      procedure ResAddToIn(aWare: TWareType; aCount: Word = 1; aFromScript: Boolean = False); override;
      function CheckResIn(aWare: TWareType): Word; override;
      procedure ResTakeFromOut(aWare: TWareType; aCount: Word = 1; aFromScript: Boolean = False); override;
      function ResCanAddToIn(aRes: TWareType): Boolean; override;
      function ResOutputAvailable(aRes: TWareType; const aCount: Word): Boolean; override;
      procedure Save(SaveStream: TKMemoryStream); override;
    end;
  
  
negative.code: end;
  
  
  function TKMHouseStore.ResCanAddToIn(aWare: TWareType): Boolean;
  begin
    Result := (aWare in [WARE_MIN..WARE_MAX]);
  end;
  
  
  function TKMHouseStore.ResOutputAvailable(aWare: TWareType; const aCount: Word): Boolean;
  begin
    Assert(aWare in [WARE_MIN..WARE_MAX]);
    Result := (ResourceCount[aWare] >= aCount);
  end;
  
  
  