MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

Limpar Chat pelo F1

+3
Fogomax
Frozen
RenanR
7 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais

Ir para baixo

Limpar Chat pelo F1 Empty Limpar Chat pelo F1

Mensagem por RenanR Qua 26 Set 2012, 12:15

Limpar Chat Pelo F1
Limpar Chat oficial criado por Cesar, por comando.
Apenas adaptei(RenanR) seu sistema por botão no F1.

Cliente~~Side
Na frmadmin adicione o botão com o name de "btnLimparC" sem aspas, e caption de "Limpar Chat".
E dentro dele ponha o código:
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

Na modClientTCP procure:
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:
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("[MMORPGBR] Chat Reiniciado!", Yellow)
        Exit Sub
    End If

Server~~Side
Na modServerTCP procure:

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

Prontinho.
RenanR
RenanR
Membro Veterano
Membro Veterano

Mensagens : 1048

Ir para o topo Ir para baixo

Limpar Chat pelo F1 Empty Re: Limpar Chat pelo F1

Mensagem por Frozen Qua 26 Set 2012, 12:18

ótimo sistema .
Muito útil Felizmente Laughing
+ 1 Créditos RenanR
Frozen
Frozen
Membro Veterano
Membro Veterano

Mensagens : 1339

Ir para o topo Ir para baixo

Limpar Chat pelo F1 Empty Re: Limpar Chat pelo F1

Mensagem por Fogomax Qua 26 Set 2012, 19:22

Ótimo sistema, mas só uma dúvida:
Esse comando faz todo o chat se limpar para todos os jogadores?
+1 Crédito por disponibilizar
Fogomax
Fogomax
Membro Veterano
Membro Veterano

Mensagens : 1167

Ir para o topo Ir para baixo

Limpar Chat pelo F1 Empty Re: Limpar Chat pelo F1

Mensagem por Gu1lh3rm3 Qua 26 Set 2012, 19:26

sim '-', ele limpa tudo kk'
Gu1lh3rm3
Gu1lh3rm3
Membro de Honra
Membro de Honra

Mensagens : 1232

http://www.extremedbz.eu5.org

Ir para o topo Ir para baixo

Limpar Chat pelo F1 Empty Re: Limpar Chat pelo F1

Mensagem por Pablo Qua 26 Set 2012, 19:32

Fogomax escreveu:Ótimo sistema, mas só uma dúvida:
Esse comando faz todo o chat se limpar para todos os jogadores?
+1 Crédito por disponibilizar

Fogomax sempre que você ver em um código isso:

Código:
For i = 1 To MAX_PLAYERS

Significa que envia para todos os players online.

Atenciosamente,
Pablo
Pablo
Pablo
Moderador Global
Moderador Global

Mensagens : 1371

Ir para o topo Ir para baixo

Limpar Chat pelo F1 Empty Re: Limpar Chat pelo F1

Mensagem por Fogomax Qua 26 Set 2012, 23:33

Vlw Pablo, estou querendo aprender programação ao máximo! ^^
Fogomax
Fogomax
Membro Veterano
Membro Veterano

Mensagens : 1167

Ir para o topo Ir para baixo

Limpar Chat pelo F1 Empty Re: Limpar Chat pelo F1

Mensagem por M.Dutra Sex 28 Set 2012, 00:04

Pablo escreveu:
Fogomax escreveu:Ótimo sistema, mas só uma dúvida:
Esse comando faz todo o chat se limpar para todos os jogadores?
+1 Crédito por disponibilizar

Fogomax sempre que você ver em um código isso:

Código:
For i = 1 To MAX_PLAYERS

Significa que envia para todos os players online.

Atenciosamente,
Pablo

Pertubando na madruga, não é porque tem um "For i = 1 To MAX_PLAYERS", que vai mandar para todos os players '-', poderia ser uma verificação por exemplo "If GetPlayerDef(i) = 10 Then", se tiver um "Call SendDataTo(i, "qualquerpacket" & END_CHAR)", ai sim ele estará enviando para todos os players.
*o*, bom sistema RenanR + 1 para você e + 1 para o Cesar.
M.Dutra
M.Dutra
Membro Junior
Membro Junior

Mensagens : 94

Ir para o topo Ir para baixo

Limpar Chat pelo F1 Empty Re: Limpar Chat pelo F1

Mensagem por ~Stronger Sáb 29 Set 2012, 15:20

Ótimo sistema , ajudará muita gente +1
~Stronger
~Stronger
Membro Junior
Membro Junior

Mensagens : 73

Ir para o topo Ir para baixo

Limpar Chat pelo F1 Empty Re: Limpar Chat pelo F1

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais

 
Permissões neste sub-fórum
Não podes responder a tópicos