anchor.diff:  var i:integer;
   begin
     LoadStream.ReadAssert('Deliveries');
  -  LoadStream.Read(OfferCount);
  -  SetLength(fOffer, OfferCount+1);
  -  for i:=1 to OfferCount do
  +  LoadStream.Read(fOfferCount);
  +  SetLength(fOffer, fOfferCount+1);
  +  for i:=1 to fOfferCount do
     begin
       LoadStream.Read(fOffer[i].Resource, SizeOf(fOffer[i].Resource));
       LoadStream.Read(fOffer[i].Count);
  
positive.code:       BestBid := -1;
        FoundO := -1;
        FoundD := -1;
        for iD := 1 to fQueue.DemandCount do
          if fQueue.fDemand[iD].Resource <> rt_None then
            for iO := 1 to fQueue.OfferCount do
              if (fQueue.fOffer[iO].Resource <> rt_None)
              and fQueue.ValidDelivery(iO,iD)
              and AnySerfCanDoDelivery(iO,iD) then //Only choose this delivery if at least one of the serfs can do it
  
negative.code: var i:integer;
  begin
    assert(aUnit <> nil);
    for i:=1 to fDemandCount do
    if fDemand[i].Loc_Unit=aUnit then
    begin
      if fDemand[i].BeingPerformed then
  