anchor.diff:    if not IsValid then
       Exit(NOT_REACHABLE_DEST_VALUE);
   
  -  Result := Byte(SerfToOffer.Pass <> tpNone) * SerfToOffer.Value
  -          + Byte(OfferToDemand.Pass <> tpNone) * OfferToDemand.Value
  +  Result := Byte(SerfToOffer.IsValid) * SerfToOffer.Value
  +          + Byte(OfferToDemand.IsValid) * OfferToDemand.Value
             + Addition;
   end;
   
  
positive.code:   TKMDeliveryRouteCalcCost = record
      Value: Single;
      Pass: TKMTerrainPassability;
    end;
  
    TKMDeliveryBid = class
  
negative.code:     if aCalcKind = dckAccurate then
        Exit;
  
      // Just set it to non-tpNone value, which will mark this calculation as a valid
      aBidBasicCost.OfferToDemand.Pass := tpWalkRoad;
  
      aBidBasicCost.OfferToDemand.Value := 7
        //Resource ratios are also considered
        + KaMRandom(65 - 13*gHands[aOwner].Stats.WareDistribution[dWT, fDemand[dWT,iD].Loc_House.HouseType],
  