Apagar chat pelo F1

Ola Galerinha do Forum,Vim trazendo um novo Sistema... o sistema limpar chat pelo F1.

Vamos Começar!


na frmadmin adicione o botão com o name de "btnLimparC" sem aspas,e caption de "Limpar Chat".

Clique 2 vezes no Botão e adicione:

Código:

           
            If GetPlayerAccess(MyIndex) >= 2 Then
            Call SendLChat
            Exit Sub
            Else
            Call AddText("Você não tem permissão para Limpar o Chat!", Red)
            Exit Sub
        End If


Apois colocar este codigo,vá na modClientTCP e 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 coloque:

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



Abaixo ponha:

Código:



    If Parse(0) = "limparchat" Then
        frmMirage.txtChat.Text = ""
        Call AddText("[Nome do GAME] Chat Atualizado!", Yellow)
        Exit Sub
    End If



Na Serve~side

Na modServerTCP procure por:

Código:



Case "party"



Acima Ponha:

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



Testado e Aprovado!