anchor.diff:        else        begin
                       DemandsCnt := GetResDistribution(I);
                       AddDemand(Self, nil, Res, DemandsCnt, dtOnce, diNorm); //Every new house needs 5 resource units
  -                    Inc(fResourceDeliveryCount[I], DemandsCnt); //Keep track of how many resources we have on order (for distribution of wares)
  +                    ResDeliveryCnt[I] := ResDeliveryCnt[I] + DemandsCnt; //Keep track of how many resources we have on order (for distribution of wares)
                     end;
       end;
     end;
  
positive.code:     procedure SetNewDeliveryMode(aValue: TKMDeliveryMode); virtual;
      procedure CheckTakeOutDeliveryMode; virtual;
      function GetDeliveryModeForCheck(aImmidiate: Boolean): TKMDeliveryMode;
    public
      CurrentAction: TKMHouseAction; //Current action, withing HouseTask or idle
      WorkAnimStep: Cardinal; //Used for Work and etc.. which is not in sync with Flags
  
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;
  