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:     s:=s+eol;
    end;
    s:=s+eol+'Offer:'+eol+'---------------------------------'+eol;
    for i:=1 to OfferCount do if fOffer[i].Resource<>rt_None then begin
      s:=s+#9;
      if fOffer[i].Loc_House<>nil then s:=s+fResource.HouseDat[fOffer[i].Loc_House.HouseType].HouseName+#9+#9;
      s:=s+fResource.Resources[fOffer[i].Resource].Title+#9;
  
negative.code: var i:integer;
  begin
    //We need to parse whole list, never knowing how many offers the house had
    for i:=1 to fOfferCount do
    if fOffer[i].Loc_House=aHouse then
      if fOffer[i].BeingPerformed > 0 then
      begin
  