TDN - WRITES - MMR

Public Sub WriteSend_Search(ByRef ID() As String, ByVal n_Reto As Byte)
    Dim LoopC As Long
    With outgoingData
        Call .WriteByte(ClientPacketID.Send_Search)
        Call .WriteByte(n_Reto)
        If n_Reto = 1 Then Exit Sub
        For LoopC = 2 To n_Reto
            Call .WriteASCIIString(ID(LoopC))
        Next LoopC
    End With
End Sub

Public Sub WriteAccept_Search(ByVal ID_Send As Integer)
    Call outgoingData.WriteByte(ClientPacketID.Accept_Search)
    Call outgoingData.WriteInteger(ID_Send)
End Sub

Public Sub WriteAccept_Matching()
    Call outgoingData.WriteByte(ClientPacketID.Accept_Matching)
End Sub

Public Sub WriteRefuse_Matching()
    Call outgoingData.WriteByte(ClientPacketID.Refuse_Matching)
End Sub