anchor.diff:      SaveStream.Write(IsDeleted);
     end;
   
  -  SaveStream.Write(QueueCount);
  -  for i:=1 to QueueCount do
  +  SaveStream.Write(fQueueCount);
  +  for i:=1 to fQueueCount do
     begin
       SaveStream.Write(fQueue[i].OfferID);
       SaveStream.Write(fQueue[i].DemandID);
  
positive.code: var i:integer;
  begin
    assert(aUnit <> nil);
    for i:=1 to DemandCount do
    if fDemand[i].Loc_Unit=aUnit then
    begin
      if fDemand[i].BeingPerformed then
  
negative.code: procedure TKMDeliverQueue.SyncLoad;
  var i:integer;
  begin
    for i:=1 to fOfferCount do
      fOffer[i].Loc_House := fPlayers.GetHouseByID(cardinal(fOffer[i].Loc_House));
  
    for i:=1 to fDemandCount do
    with fDemand[i] do
    begin
      Loc_House := fPlayers.GetHouseByID(cardinal(Loc_House));
  