AJudinha NO Chat

Extreme escreveu:Já vem com isso '-'

Código:

        ' Map message
        If frmStable.MapChat.Text = "Map" Then
            'Check if the user uses other chat then mapchat
            ' Broadcast message
            If Not Mid$(MyText, 1, 1) = "/" Then
                If Mid$(MyText, 1, 1) = "'" Then
                    ChatText = Mid$(MyText, 2, Len(MyText) - 1)
                    If Len(Trim$(ChatText)) > 0 Then
                        Call BroadcastMsg(ChatText)
                    End If
                    MyText = vbNullString
                    Exit Sub
                End If
            End If
   
            ' Emote message
            If Not Mid$(MyText, 1, 1) = "/" Then
                If Mid$(MyText, 1, 1) = "-" Then
                    ChatText = Mid$(MyText, 2, Len(MyText) - 1)
                    If Len(Trim$(ChatText)) > 0 Then
                        Call EmoteMsg(ChatText)
                    End If
                    MyText = vbNullString
                    Exit Sub
                End If
            End If
           
            ' Guild message
            If Not Mid$(MyText, 1, 1) = "/" Then
                If Mid$(MyText, 1, 1) = "@" Then
                    ChatText = MyText
                    If Len(Trim$(ChatText)) > 0 Then
                        Call GuildChat(ChatText)
                    End If
                    MyText = vbNullString
                    Exit Sub
                End If
            End If
           
   
            ' Player message
            If Not Mid$(MyText, 1, 1) = "/" Then
                If Mid$(MyText, 1, 1) = "!" Then
                    ChatText = Mid$(MyText, 2, Len(MyText) - 1)
                    name = vbNullString
       
                    ' Get the desired player from the user text
                    For I = 1 To Len(ChatText)
                        If Mid$(ChatText, I, 1) <> " " Then
                            name = name & Mid$(ChatText, I, 1)
                        Else
                            Exit For
                        End If
                    Next
       
                    ' Make sure they are actually sending something
                    If Len(ChatText) - I > 0 Then
                        ChatText = Mid$(ChatText, I + 1, Len(ChatText) - I)
       
                        ' Send the message to the player
                        Call PlayerMsg(ChatText, name)
                    Else
                        Call AddText("Usage: !playername msghere", AlertColor)
                    End If
                    MyText = vbNullString
                    Exit Sub
                End If
               
                If Len(Trim$(MyText)) > 0 Then
                    Call SayMsg(MyText)
                End If
                MyText = vbNullString
                Exit Sub
            End If
        End If
       
        ' Broadcast message
        If frmStable.MapChat.Text = "Global" Then
            ChatText = MyText
            If Len(Trim$(ChatText)) > 0 Then
                Call BroadcastMsg(ChatText)
            End If
            MyText = vbNullString
            Exit Sub
        End If

        ' Emote message
        If Mid$(MyText, 1, 1) = "-" Then
            ChatText = Mid$(MyText, 2, Len(MyText) - 1)
            If Len(Trim$(ChatText)) > 0 Then
                Call EmoteMsg(ChatText)
            End If
            MyText = vbNullString
            Exit Sub
        End If
       
        ' Guild message
        If frmStable.MapChat.Text = "Guild" Then
            ChatText = MyText
            If Len(Trim$(ChatText)) > 0 Then
                Call GuildChat(ChatText)
            End If
            MyText = vbNullString
            Exit Sub
        End If

        ' Player message
        If frmStable.MapChat.Text = "Private" Then
            ChatText = MyText
            name = vbNullString

            ' Get the desired player from the user text
            For I = 1 To Len(ChatText)
                If Mid$(ChatText, I, 1) <> " " Then
                    name = name & Mid$(ChatText, I, 1)
                Else
                    Exit For
                End If
            Next I