Alert messages

[Mattyw]

All I did was this:

Code:

Sub AlertMsg(ByVal Index As Long, ByVal Msg As String, ByVal Location As Byte)
Dim Packet As String

    Packet = SAlertMsg & SEP_CHAR & Msg & SEP_CHAR & Location & END_CHAR
    
    Call SendDataTo(Index, Packet)
    
    If Not (Location = 2) Then CloseSocket Index
End Sub

Location 2 = select character.

Meh. Nice. XD