Oi pessoal, meu 2º Tutorial e estou sendo muito bem recebido 8)
Bom este tutorial é bem simples, mas vamos lá

Client~VB
Na modGameLogic procure:

Código:

        ' Party request
        If LCase(Mid(MyText, 1, 6)) = "/grupo" Then
            ' Make sure they are actually sending something
            If Len(MyText) > 7 Then
                ChatText = Mid(MyText, 8, Len(MyText) - 7)
                Call SendPartyRequest(ChatText)
            Else
                Call AddText("Use: /grupo <nome do jogador>", AlertColor)
            End If
            MyText = vbNullString
            Exit Sub
        End If

Abaixo adicione:

Código:

        If LCase(Mid(MyText, 1, 6)) = "/lchat" Then
            If GetPlayerAccess(MyIndex) >= 1 Then
            Call SendLChat
            MyText = vbNullString
            Exit Sub
            Else
            Call AddText("Você não tem permissão para Limpar o Chat!", Red)
            Exit Sub
            End If
        End If

Na modClientTCP procure por:

Código:

Sub SendNewParty(ByVal Name As String)
Dim Packet As String

    Packet = "NEWPARTY" & SEP_CHAR & Name & END_CHAR
    Call SendData(Packet)
End Sub

Acima adicione:

Código:

Sub SendLChat()
Dim Packet As String

    Packet = "LIMPARCHAT" & END_CHAR
    Call SendData(Packet)
End Sub

Na mesma modClientTCP procure por:

Código:

    ' ::::::::::::::::::::::::::
    ' :: Party request window ::
    ' ::::::::::::::::::::::::::
    If Parse(0) = "partywindow" Then
        frmMirage.lblPlayer.Caption = GetPlayerName(Val(Parse(1)))
        frmMirage.picPartyRequest.Visible = True
        Exit Sub
    End If

E abaixo adicione:

Código:

    If Parse(0) = "limparchat" Then
        frmMirage.txtChat.Text = ""
        Call AddText("[DBZ ORIGENS] Chat Limpo Com Sucesso!", Yellow)
        Exit Sub
    End If

Server~VB
Na modServerTCP procure por:

Código:

Case "party"

Acima adicione:

Código:

        Case "limparchat"
   
        For i = 1 To MAX_PLAYERS
   
        If IsPlaying(i) Then
        Packet = "LimparChat" & END_CHAR
        Call SendDataTo(i, Packet)
        End If
        Next i
       
        Exit Sub

Imagens do Sistema:

Digitando /lchat


É isso aew pessoal , até mais! :oops:
Créditos: César

Respeitem os créditos hein, e se gostou do tutorial dêem creditos