anchor.diff:      end;
     end;
   
  -  NotAcceptFlag[aRes] := not NotAcceptFlag[aRes];
  +  NotAcceptFlag[aWare] := not NotAcceptFlag[aWare];
   end;
   
   
  
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:       ApplyCheat := ApplyCheat and (NotAcceptFlag[R] = boolean(CheatPattern[R]));
  
      if ApplyCheat then
      case aWare of
        wt_Arbalet: begin
                      ResAddToIn(wt_All, 10);
                      gHands[fOwner].Stats.WareProduced(wt_All, 10);
  