C -> S:

Format:
[quote](DWORD) Cookie
(DWORD) Clan Tag[/quote]

[code]With pBuffer
    .InsertDWORD &H5
    .InsertNTString strReverse(ClanName)
    .SendPacket BNCS, &H70
End With[/code]

S->C:

Format:
[quote](DWORD) Cookie
(BYTE) Status
(BYTE) Number of potential candidates
(STRING[]) Usernames[/quote]

[code]'//Author: Topaz
Private Function Parse0x70(data As String)
Dim bytStatus As Byte, bytCandidates As Byte
Dim aryUsernames() As String
Dim lngCookie As Long
Dim i As Integer
   
    lngCookie = Asc(Mid(data, 5, 1))
    bytStatus = Asc(Mid(data, 7, 1))
    bytCandidates = Asc(Mid(data, 10, 1))
    aryUsernames() = Split(Mid(data, 11), Chr(0))
   
Select Case bytStatus
    Case 0: AddC vbGreen, "Successfully found candidate(s)."
    Case 1: AddC vbRed, "Clan tag has already been taken."
    Case 8: AddC vbRed, "You are already in a clan."
    Case 9: AddC vbRed, "Invalid clan tag specified."
End Select

For i = 1 To bytCandidates
    AddC vbBlue, "Candidate found: " & aryUsernames(i - 1)
Next i
End Function[/code]