Makers Brasil
Bem Vindos a Maker´s Brasil (um forum para criação de servidores 2D e 3D)Nos desejamos boa sorte no seu projeto!

Botão de Map, Global, Emote Mensagem

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Botão de Map, Global, Emote Mensagem

Mensagem por thales12 em Seg Out 31, 2011 6:01 pm

Client~Side

Crie um comboBox com as configurações:

Name: cmbChat
List: Global
Map
Emote


Procure por:

Código:
        ' Broadcast message
        If Left$(ChatText, 1) = "'" Then
            ChatText = Mid$(ChatText, 2, Len(ChatText) - 1)

            If Len(ChatText) > 0 Then
                Call BroadcastMsg(ChatText)
            End If

            MyText = vbNullString
            frmMain.txtMyChat.text = vbNullString
            Exit Sub
        End If

        ' Emote message
        If Left$(ChatText, 1) = "-" Then
            MyText = Mid$(ChatText, 2, Len(ChatText) - 1)

            If Len(ChatText) > 0 Then
                Call EmoteMsg(ChatText)
            End If

            MyText = vbNullString
            frmMain.txtMyChat.text = vbNullString
            Exit Sub
        End If


Mude para:

Código:
        ' Broadcast message
        If frmMain.cmbChat.text = "Global" Then
            ChatText = Mid$(ChatText, 1, Len(ChatText))

            If Len(ChatText) > 0 Then
                Call BroadcastMsg(ChatText)
            End If

            MyText = vbNullString
            frmMain.txtMyChat.text = vbNullString
            Exit Sub
        End If

        ' Emote message
        If frmMain.cmbChat.text = "Emote" Then
            MyText = Mid$(ChatText, 1, Len(ChatText))

            If Len(ChatText) > 0 Then
                Call EmoteMsg(ChatText)
            End If

            MyText = vbNullString
            frmMain.txtMyChat.text = vbNullString
            Exit Sub
        End If


Procure por:

Código:
        ' Say message
        If Len(ChatText) > 0 Then
            Call SayMsg(ChatText)
        End If

        MyText = vbNullString
        frmMain.txtMyChat.text = vbNullString
        Exit Sub


Mude para:

Código:
        ' Say message
        If Len(ChatText) > 0 Then
            If frmMain.cmbChat.text = "Map" Then
                Call SayMsg(ChatText)
            End If
        End If

        MyText = vbNullString
        frmMain.txtMyChat.text = vbNullString
        Exit Sub


Creditos:

Ricardo (Eu \o/)
avatar
thales12
Moderador
Moderador

Mensagens : 184
Estrelas Makers : 406
Creditos : 55
Data de inscrição : 22/03/2011
Idade : 22
Localização : Rio de Janeiro

http://www.rdmgames.tk

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum