Mirage Source

Private Sub cmdBanPlayer_Click()
    If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
        Call SendBan(Trim(txtBanPlayer.Text))
    End If
End Sub

Private Sub cmdEdit_Click()
    Call SendRequestEditMap
End Sub

If GetPlayerMute(Index) = 0 Then
    SetPlayerMute(Index, 1) ' Mute Them
Else
    SetPlayerMute(Index, 0) ' Unmute Them
End If

Function GetPlayerMute(ByVal Index As Long) As Long
    GetPlayerMute = Player(Index).Char(Player(Index).CharNum).Mute
End Function

Sub SetPlayerMute(ByVal Index As Long, ByVal Mute As Byte)
    Player(Index).Char(Player(Index).CharNum).Mute = Mute
End Sub

If GetPlayerMute(Index) = 1 then
    Don't Global Message
Else
    Do Global Message
End If

If GetPlayerMute(Index) = 0 Then
    SetPlayerMute(Index, 1) ' Mute Them
Else
    SetPlayerMute(Index, 0) ' Unmute Them
End If

Case CMutePlayer
            ' Prevent hacking
            If GetPlayerAccess(Index) <= 0 Then
                Call HackingAttempt(Index, "Admin Cloning")
                Exit Sub
            End If
           
            ' The player index
            n = FindPlayer(Parse(1))
           
            If n <> Index Then
                If n > 0 Then
                    If GetPlayerAccess(n) <= GetPlayerAccess(Index) Then
                        Call GlobalMsg(GetPlayerName(n) & " has been muted on " & GAME_NAME & " by " & GetPlayerName(Index) & "!", White)
                        Call AddLog(GetPlayerName(Index) & " has muted " & GetPlayerName(n) & ".", ADMIN_LOG)
                        Call PlayerMsg(n, "You have been muted by " & GetPlayerName(Index) & "!")
                    Else
                        Call PlayerMsg(Index, "That is a higher access admin then you!", White)
                    End If
                Else
                    Call PlayerMsg(Index, "Player is not online.", White)
                End If
            Else
                Call PlayerMsg(Index, "You cannot mute yourself!", White)
            End If
                   
            Exit Sub

If GetPlayerAccess(n) <= GetPlayerAccess(Index) Then
                        Call GlobalMsg(GetPlayerName(n) & " has been muted on " & GAME_NAME & " by " & GetPlayerName(Index) & "!", White)
                        Call AddLog(GetPlayerName(Index) & " has muted " & GetPlayerName(n) & ".", ADMIN_LOG)
                        Call PlayerMsg(n, "You have been muted by " & GetPlayerName(Index) & "!")
                    Else
                        Call PlayerMsg(Index, "That is a higher access admin then you!", White)
                    End If

Mute As Boolean

SendPlayerMute