Apagar chat pelo F1
Página 1 de 1
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:
Apois colocar este codigo,vá na modClientTCP e procure por:
Acima coloque:
Na mesma modClientTCP procure por:
Abaixo ponha:
Na Serve~side
Na modServerTCP procure por:
Acima Ponha:
Testado e Aprovado!
Vamos Começar!
Cliente~side
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
Terminamos a parte do Cliente vamos para a parte do Serve!
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
Sistema Prontinho.
Testado e Aprovado!
*Star*- Mensagens : 9
Pontos : 28
Reputação : 1
Data de inscrição : 19/12/2012
Idade : 28
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|
Ter Out 28, 2014 8:44 am por Kaue
» { Equipemanto }
Qua Mar 26, 2014 8:24 pm por Emanuelb2
» Ajuda :D plis
Ter Mar 11, 2014 9:00 pm por jamethon
» [Deleta por favo esse topico]
Seg Mar 10, 2014 10:55 pm por Emanuelb2
» [PERGUNTA] Como Por sistemas de reset automático e diminuir os mapas? [ EEB ]
Seg Mar 10, 2014 10:25 pm por Kaue
» [Recrutamento] PA ( para quem sabe manusear Pixel Art )
Dom Mar 09, 2014 8:41 pm por Kaue
» Eclipse Origins 2.0 DOWLOAD(ATT)
Dom Mar 09, 2014 6:10 pm por Emanuelb2
» Ganhar Item ao Matar Player
Dom Mar 09, 2014 6:15 am por Kaue
» Oque acontece com o administrador do forum!
Sex Mar 07, 2014 3:21 pm por Kaue