anchor.diff:      function  AskForHouseRepair(KMWorker:TKMUnitWorker; aLoc:TKMPoint):TUnitTask;
       procedure CloseHouseRepair(aID:integer);
       procedure RemoveHouseRepair(aHouse: TKMHouse);
  +    //procedure Save(SaveStream:TMemoryStream);
     end;
   
   implementation
  
positive.code:     procedure GaveDemand(aID:integer);
      procedure CloseDelivery(aID:integer);
      procedure AbandonDelivery(aID:integer); //Occurs when unit is killed or something alike happens
      function WriteToText():string;
    end;
  
  
negative.code: end;
  
  
  //Job successfully done and we ommit it.
  procedure TKMDeliverQueue.Save(SaveStream:TMemoryStream);
  var i,Count,ItemSize:integer;
  begin
    Count := length(fOffer);
    SaveStream.Write(Count,4);
    ItemSize := SizeOf(fOffer[1]);
    SaveStream.Write(ItemSize,4);
    for i:=1 to Count do
    SaveStream.Write(fOffer[i],ItemSize);
    //
  end;
  
  
  function TKMDeliverQueue.WriteToText():string;
  var i:integer;
  begin
  