anchor.diff:  
   procedure TTaskBuildField.Save(SaveStream:TKMemoryStream);
   begin
  -  inherited;
  +  Inherited;
     SaveStream.Write(fLoc);
  -  SaveStream.Write(buildID);
  +  SaveStream.Write(BuildID);
  +  SaveStream.Write(MarkupSet);
   end;
   
   
  
positive.code: begin
    Inherited;
    LoadStream.Read(fLoc);
    LoadStream.Read(buildID);
  end;
  
  
  destructor TTaskBuildField.Destroy;
  begin
    if fPhase > 1 then
      fTerrain.RemMarkup(fLoc)
    else
      fPlayers.Player[byte(fUnit.GetOwner)].BuildList.ReOpenRoad(buildID); //Allow other workers to take this task
    Inherited;
  end;
  
  
negative.code: 
  procedure TTaskBuildWall.Save(SaveStream:TKMemoryStream);
  begin
    Inherited;
    SaveStream.Write(fLoc);
    SaveStream.Write(buildID);
  end;
  