Esse tutorial serve para filtrar as palavras e palavrões que você queira que os jogadores não falem no seu jogo.

Primeiramente na moddatabase do seu servidor adicione esta sub:

Código:

Public Function CheckForSwears(Index As Long, Msg As String)
'  Filtro de palavras.
Dim SplitStr() As String
Dim SwearWords As String
Dim i As Integer

    '  Aqui é seu filtro,onde tem teste,teste,teste,teste modifique para as palavras que
' não quer que haja no seu jogo,não esqueça de separar as palavras com virgulas e NÃO deixar  'espaço
    SwearWords = "teste,teste,teste,teste,teste"
    SplitStr = split(SwearWords, ",")
       
    For i = 0 To UBound(SplitStr)
        If InStr(1, LCase(Msg$), SplitStr(i), 1) Then
              Msg = Replace$((Msg), (SplitStr(i)), LCase(String(Len(SplitStr(i)), "*")), , , 1)
        End If
    Next i
End Function

HandleSayMsg Adicionar:

Código:

    Call CheckForSwears(Index, Msg)

Se você também quiser filtrar na parte de emote mensagem,adiciona na:

Código:

HandleEmoteMsg

Isso:

Código:

    Call CheckForSwears(Index, Msg)

Ou em qualquer outro local que você queira filtrar palavras.

Créditos:
Kisuke (Criador)
A min por trazer a vocês