Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 Censurar palavrão em 17/8/2012, 16:41

Warrior

avatar
Ajudante
Ajudante
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



[Você precisa estar registrado e conectado para ver esta imagem.]
Ver perfil do usuário

2 Re: Censurar palavrão em 17/8/2012, 17:00

BrunoFox

avatar
Administrador
Administrador
Pode ser útil, aguardo seu EO com essas correções aí ^^.



[Você precisa estar registrado e conectado para ver esta imagem.]
Ver perfil do usuário http://templorpgmakerbr.forumeiros.com

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum