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]Testado & Aprovado & Recomendado
Credito :-[ Shaka ]- Credito : Cesár