anchor.diff:      for iD := 1 to fDemandCount do
         if (fDemand[iD].Ware <> wtNone)
           and (iD <> OldDemandId)
  +        and not fDemand[iD].IsDeleted
           and (fDemand[iD].Importance >= BestImportance)
           and ValidBestDemand(iD, OldDemandId)
           and TryCalculateBidBasic(aSerf.UID, aSerf.CurrPosition, 1, htNone, aSerf.Owner, iD, Bid, nil,
  
positive.code:       for iD := 1 to fDemandCount do
          if (fDemand[iD].Ware = wtAll)
            and (iD <> OldDemandId)
            and (fDemand[iD].Loc_House.DeliveryMode = dmDelivery)
            and (fDemand[iD].Loc_House is TKMHouseStore)
            and not TKMHouseStore(fDemand[iD].Loc_House).NotAcceptFlag[aResource]
  
negative.code:     if Result = -1 then
        for iD := 1 to fDemandCount do
          if (fDemand[iD].Ware = wtAll)
            and not fDemand[iD].IsDeleted
            and not fDemand[iD].Loc_House.IsDestroyed //choose between all storages, including current delivery. But not destroyed
            and TryCalculateBidBasic(aSerf.UID, aSerf.CurrPosition, 1, htNone, aSerf.Owner, iD, Bid, nil,
                                     DeliverToUnit or fQueue[aDeliveryId].IsFromUnit) //Choose the closest storage
  