[ALL]Limpar Chat

por Cesar Sáb 14 Ago 2010, 16:12

Oi pessoal, meu 2º Tutorial e estou sendo muito bem recebido Cool

Bom este tutorial é bem simples, mas vamos lá

Client~VB
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

Server~VB
Na modServerTCP procure por:

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:
[ALL]Limpar Chat Lchat