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