Leaving the Mute Player

[Riiicardoo]

**Server~Side**
In **frmServer** in Tab **Players** crate 1 **commandbutton** called:

> Name: mnumMute
> Caption: Mute

2 clicks and add:

```
    Dim Name As String
    Name = frmServer.lvwInfo.SelectedItem.SubItems(3)

    If Not Name = "Not Playing" Then
        Call ToggleMute(FindPlayer(Name))
    End If
```
After the **modDatabase** look for:

```
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
```
Below add:

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

    'Toggle player mute
    If Player(index).isMuted = 1 Then
        Player(index).isMuted = 0
        ' Let them know
        PlayerMsg index, "You were Discilenciado and can already speak of change", BrightGreen
        TextAdd GetPlayerName(index) & " Você foi Discilenciado."
    Else
        Player(index).isMuted = 1
        ' Let them know
        PlayerMsg index, "You have been silenced and can not talk about change", BrightRed
        TextAdd GetPlayerName(index) & " Você foi Silenciado."
    End If

    ' Save the player
    SavePlayer index
End Sub
```
look for:

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

```
Msg = Buffer.ReadString
```
add:

```
If Player(index).isMuted Then
        PlayerMsg index, You have been silenced and can not talk about change", BrightRed
        Exit Sub
    End If
```
look for:

```
' Position
MAP As Long
    x As Byte
    y As Byte
    Dir As Byte
```
add below:

```
'mute
isMuted As Byte
```
Credits: Robin

[Domino_]

Looks nice, you'r riping them from CS:DE? :D

[Riiicardoo]

Yes, but I was not, was my friend

[erkro1]

@Riiicardoo:

> Yes, but I was not, was my friend

So, you posted it

[PVJsquad]

why The player Not muted Only
There are only written warnings
can stiill speak

[Scott]

@GoldSide:

> why The player Not muted Only
> There are only written warnings
> can stiill speak

@Riiicardoo:

> ```
> If Player(index).isMuted Then
>         PlayerMsg index, You have been silenced and can not talk about change", BrightRed
>         Exit Sub <-------HERE
>     End If
> ```

You would not be able to talk, the line marked HERE is what causes this, it stops everything after it from running.  So with this it gets the msg string, but never uses it.

[PVJsquad]

@Scott:

> You would not be able to talk, the line marked HERE is what causes this, it stops everything after it from running.  So with this it gets the msg string, but never uses it.

so how do you get the player to mute

[Scott]

By cutting of the sub before it displays your message really simple stuff.

[Whackeddie99]

doesn't mute for map messages but that's an easy fix.

[SholT]

del