Deixando o Player Mudo

Name: mnumMute
Caption: Emudecer

Código:

    Dim Name As String
    Name = frmServer.lvwInfo.SelectedItem.SubItems(3)
   
    If Not Name = "Not Playing" Then
        Call ToggleMute(FindPlayer(Name))
    End If

Código:

Public Sub LoadOptions()
   
    Options.Game_Name = GetVar(App.Path & "\data\options.ini", "OPTIONS", "Game_Name")
    Options.Port = GetVar(App.Path & "\data\options.ini", "OPTIONS", "Port")
    Options.MOTD = GetVar(App.Path & "\data\options.ini", "OPTIONS", "MOTD")
    Options.Website = GetVar(App.Path & "\data\options.ini", "OPTIONS", "Website")
   
End Sub

Código:

Public Sub ToggleMute(ByVal index As Long)
    ' sair out for rte9
    If index <= 0 Or index > MAX_PLAYERS Then Exit Sub

    ' alternância do jogador mudo
    If Player(index).isMuted = 1 Then
        Player(index).isMuted = 0
        ' Let them know
        PlayerMsg index, "Você foi Discilenciado e ja pode falar em global.", BrightGreen
        TextAdd GetPlayerName(index) & " Você foi Discilenciado."
    Else
        Player(index).isMuted = 1
        ' Let them know
        PlayerMsg index, "Você foi silenciado e não pode falar em global.", BrightRed
        TextAdd GetPlayerName(index) & " Você foi Silenciado."
    End If
   
    ' salvar o player
    SavePlayer index
End Sub

Código:

Private Sub HandleBroadcastMsg(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)

Código:

Msg = Buffer.ReadString

Código:

If Player(index).isMuted Then
        PlayerMsg index, "Você foi silenciado e não pode falar em global.", BrightRed
        Exit Sub
    End If

Código:

' Position
 MAP As Long
    x As Byte
    y As Byte
    Dir As Byte

Código:

'mudo
isMuted As Byte