Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

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

Retirando Spam & Limpando Chat

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

1Tutorial Retirando Spam & Limpando Chat em Dom 29 Ago 2010, 19:43

Takezo Kenzei


Membro
Membro
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:
[Você precisa estar registrado e conectado para ver esta imagem.]
Digitando /lchat
[Você precisa estar registrado e conectado para ver esta imagem.]

Testado & Aprovado & Recomendado

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

2Tutorial Re: Retirando Spam & Limpando Chat em Ter 31 Ago 2010, 13:51

Luucas Robeerto


Fundador
Fundador
Muito Bom Exclamation Exclamation Exclamation


http://universogamesmmo.forumeiros.com

3Tutorial Re: Retirando Spam & Limpando Chat em Qua 27 Jul 2011, 01:59

giovani18


Membro
Membro
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

http://masterdbz.xpg.com.br

Conteúdo patrocinado


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