Sub EliteMsg(ByVal Msg As String, ByVal Color As Byte)
Dim Packet As String
Dim i As Long

    Packet = SEliteMsg & SEP_CHAR & Msg & SEP_CHAR & Color & END_CHAR
    For i = 1 To MAX_PLAYERS
        If IsPlaying(i) And GetPlayerLevel(i) = "100" Then
            Call SendDataTo(i, Packet)
        End If
    Next i
End Sub

CEliteMsg

SEliteMsg

        Case CEliteMsg
            HandleEliteMsg Index, Parse

Sub HandleEliteMsg(ByVal Index As Long, ByRef Parse() As String)
Dim Msg As String
Dim i As Long

    Msg = Parse(1)
   
    ' Prevent hacking
    For i = 1 To Len(Msg)
        If AscW(Mid$(Msg, i, 1)) < 32 Or AscW(Mid$(Msg, i, 1)) > 126 Then
            Call HackingAttempt(Index, "Admin Text Modification")
            Exit Sub
        End If
    Next i
   
    If GetPlayerLevel(Index) = "100" Then
        Call AddLog("(Elite " & GetPlayerName(Index) & ") " & Msg, ADMIN_LOG)
        Call EliteMsg("(Elite " & GetPlayerName(Index) & ") " & Msg, AdminColor)
    End If
End Sub

Sub EliteMsg(ByVal Text As String)
Dim Packet As String

    Packet = CEliteMsg & SEP_CHAR & Text & END_CHAR
    Call SendData(Packet)
End Sub

CEliteMsg

SEliteMsg

        Case SEliteMsg
            HandleEliteMsg Parse

Sub HandleEliteMsg(ByRef Parse() As String)
     Call AddText(Parse(1), CInt(Parse(2)))
End Sub