Filtro de palavrões

por Kisuke Sáb 17 Mar 2012, 10:32

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.

por Valentine Dom 18 Mar 2012, 13:10

Parece muito bom
+ 1 crédito

Mas se eu quiser bloquear a palavra: porra, quando eu digitar PORRA, Porra, PoRra... vai bloquear também?

por Kisuke Dom 18 Mar 2012, 13:21

Lembra-se que o VB não diferencia letras maiúsculas de minúsculas,portanto ele vai bloquear PoRrA porra porrA PorRa ... seja como for...

por gustavoHD500 Seg 23 Jul 2012, 20:07

Valeu mano, não testei ainda. To começando do zero meu game que tava otimo e com bugs ¬¬. Mais agora que vo bota tudo moderno numa engine perfeita xD! E isso vai me ajuda! a não deixar ninguem fica xingando '---

Me responde uma coisa, ele vai bloquear maisu m exemplo ai:

Ex: porra

Ele vai bloquear fazendo a palavra não aparecer ou vai bloquear a palavra dizendo algumas coisas qualquer tipo, dgf5 '---

Isso so foi um exemplo xP não que dizer que vai sair assim... Mais me responde '--'

De qualquer jeito +1 credito pra tu! Cool