Retirando Spam & Limpando Chat

Começaremos Retirando os Spams do jogo .

Abra o Client Side . Abra Qualquer Modulo e Adicione .

Código:

Public chatspam As Long

de 1 Ctrl + F e procure por :

Código:

frmMirage.txtMyTextBox.Text = ""

Depois que achar . de 1 Enter e Adicione :

Código:

chatspam = chatspam + 1

Agora vá na FmrMirage Crie 1 Timer ( Com Intervalo de 1000 a 1 Segundo )
De 2 Clicks e Adicione :

Código:

If chatspam >= 5 Then
MsgBox ("Você foi chutado por spam")
Call GameDestroy
Else
chatspam = 0
End If

Agora Vamos Para Limpeza do Chat , quando o chat ficar muito tempo sem falar ele automaticamente apagara as outras mensagens .

Oi pessoal
Bom este tutorial é bem simples, mas vamos lá

[size="7"]Client~VB[/size]
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

[size="7"]Server~VB[/size]
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:
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
Digitando /lchat
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]


Credito :-[ Shaka ]-
Credito : Cesár

Muito Bom

aruma ae o aqui da erro ao copilar

If chatspam >= 5 Then
MsgBox ("Você foi chutado por spam")
Call GameDestroy
Else
chatspam = 0
End If