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

Ir em baixo

Botão de Map, Global, Emote Mensagem Empty 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/)
thales12
thales12
Moderador
Moderador

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

http://www.rdmgames.tk

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

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