anchor.diff:    // Conditions are called in the frequency of a negative Result: most negative first
   
     //If Demand and Offer aren't reserved already
  -  Result := (aIgnoreOffer or (offer.BeingPerformed < offer.Count))
  -             and ((demand.DemandType = dtAlways) or (demand.BeingPerformed = 0));
  +  Result := (aIgnoreOffer or (offer.BeingPerformed < offer.Count));
   
     Result := Result and (
               ( //House-House delivery should be performed only if there's a connecting road
  
positive.code:       for oWT := WARE_MIN to WARE_MAX do
          if ValidWareTypePair(oWT, dWT) then
            for iD := 0 to fDemandCount[dWT] - 1 do
              if fDemand[dWT,iD].IsActive
                and (fDemand[dWT,iD].Importance >= bestImportance) then //Skip any less important than the best we found
                for iO := 0 to fOfferCount[oWT] - 1 do
                  if ((aHouse = nil) or (fOffer[oWT,iO].Loc_House = aHouse))  //Make sure from house is the one requested
                    and fOffer[oWT,iO].IsActive
                    and PermitDelivery(oWT, dWT, iO, iD, aSerf) then
                  begin
                    bid := TKMDeliveryBid.Create(fDemand[dWT,iD].Importance, aSerf, oWT, dWT, iO, iD);
                    if TryCalculateBid(dckFast, bid, aSerf) then
  
negative.code:         for oWT := WARE_MIN to WARE_MAX do
            if fQueue.ValidWareTypePair(oWT, dWT) then
              for iD := 0 to fQueue.fDemandCount[dWT] - 1 do
                if fQueue.ValidDemand(dWT, iD)
                  and (fQueue.fDemand[dWT, iD].Importance >= bestImportance) then //Skip any less important than the best we found
                  for iO := 0 to fQueue.fOfferCount[oWT] - 1 do
                    if fQueue.fOffer[oWT, iO].IsActive
  