MS4

[Jacob]

To fix a small error with AlertMsg not working.
Server Side
Replace the current AlertMsg with this:

Code:

Public Sub AlertMsg(ByVal Index As Long, ByVal Msg As String)
Dim Buffer As clsBuffer

    Set Buffer = New clsBuffer
    Buffer.PreAllocate Len(Msg) + 4
    Buffer.WriteInteger SAlertMsg
    Buffer.WriteString Msg
    
    Call SendDataTo(Index, Buffer.ToArray)
    DoEvents
    Call CloseSocket(Index)
End Sub

I've updated the download, so you probably won't have to fix this.