Mirage Source

Function GetPlayerWarning(ByVal Index As Long) As Long
    GetPlayerWarning = Player(Index).Char(TempPlayer(Index).CharNum).Warning
End Function

Sub SetPlayerWarning(ByVal Index As Long, ByVal Warning As Byte)
    Player(Index).Char(TempPlayer(Index).CharNum).Warning = Warning
End Sub

        Case CWarnPlayer
            HandleWarnPlayer Index, Parse

' ::::::::::::::::::::::::
' :: Warn player packet ::
' ::::::::::::::::::::::::
Sub HandleWarnPlayer(ByVal Index As Long, ByRef Parse() As String)
Dim n As Long

    ' Prevent hacking
    If GetPlayerAccess(Index) <= 0 Then
        Call HackingAttempt(Index, "Admin Cloning")
        Exit Sub
    End If
   
    ' The player index
    n = FindPlayer(Parse(1))
   
        Select Case GetPlayerWarning(n)
        Case 1
        ' Send them a message alerting them of their first warning
    Call PlayerMsg(n, "You have been warned by: " & GetPlayerName(Index), BrightRed)
        Case 2
        ' They're second warning, kick them
    Call AlertMsg(n, "This is your second warning. Next will result in a ban")
        Case 3
       
    End Select
    End Sub

CWarnPlayer

Function GetPlayerWarning(ByVal Index As Long) As Long
    GetPlayerWarning = Player(Index).Char(TempPlayer(Index).CharNum).Warning
End Function

Sub SetPlayerWarning(ByVal Index As Long, ByVal Warning As Byte)
    Player(Index).Char(TempPlayer(Index).CharNum).Warning = Warning
End Sub

CWarnPlayer

' Warning a player
                Case "/warn"
                    If GetPlayerAccess(MyIndex) > 0 Then
                        If UBound(Command) >= 1 Then
                            SendWarn Command(1)
                        End If
                    End If

Sub SendWarn(ByVal Name As String)
Dim Packet As String

    Packet = CWarnPlayer & SEP_CHAR & Name & END_CHAR
    Call SendData(Packet)
End Sub