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!


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

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!
Makers Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Botão de Map, Global, Emote Mensagem

Ir para baixo

Botão de Map, Global, Emote Mensagem Empty Botão de Map, Global, Emote Mensagem

Mensagem por thales12 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 : 29
Localização : Rio de Janeiro

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

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