anchor.diff:      procedure SetNewDeliveryMode(aValue: TKMDeliveryMode); virtual;
       procedure CheckTakeOutDeliveryMode; virtual;
       function GetDeliveryModeForCheck(aImmidiate: Boolean): TKMDeliveryMode;
  +
  +    procedure SetResourceDeliveryCount(aIndex: Integer; aCount: Word);
  +    function GetResourceDeliveryCount(aIndex: Integer): Word;
  +
  +    property ResDeliveryCnt[aIndex: Integer]: Word read GetResourceDeliveryCount write SetResourceDeliveryCount;
     public
       CurrentAction: TKMHouseAction; //Current action, withing HouseTask or idle
       WorkAnimStep: Cardinal; //Used for Work and etc.. which is not in sync with Flags
  
positive.code:         gHands[fOwner].Deliveries.Queue.AddOffer(Self, Res, ResCnt);
      end;
    end;
  end;
  
  
  
negative.code:   for I := 1 to 4 do
      if aWare = gRes.Houses[fType].ResInput[I] then
      begin
        ResDeliveryCnt[I] := ResDeliveryCnt[I] - 1;
        Exit;
      end;
  end;
  