anchor.diff:      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 ToggleAcceptFlag(aWare: 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;
  +    function ResCanAddToIn(aWare: TWareType): Boolean; override;
  +    function ResOutputAvailable(aWare: TWareType; const aCount: Word): Boolean; override;
       procedure Save(SaveStream: TKMemoryStream); override;
     end;
   
  
positive.code: end;
  
  
  procedure TKMHouseStore.ToggleAcceptFlag(aRes: TWareType);
  const
    //Using shortints instead of bools makes it look much neater in code-view
    CheatPattern: array [WARE_MIN..WARE_MAX] of Byte = (
  
negative.code:     procedure ResAddToBuild(aWare: TWareType);
      procedure ResTakeFromIn(aWare: TWareType; aCount: Word = 1; aFromScript: Boolean = False);
      procedure ResTakeFromOut(aWare: TWareType; aCount: Word = 1; aFromScript: Boolean = False); virtual;
      function ResCanAddToIn(aWare: TWareType): Boolean; virtual;
      function ResCanAddToOut(aWare: TWareType): Boolean;
      function ResOutputAvailable(aWare: TWareType; const aCount: Word): Boolean; virtual;
      property ResOrder[aId: Byte]: Integer read GetResOrder write SetResOrder;
  
      procedure Save(SaveStream: TKMemoryStream); virtual;
  