XWIS/WOL SERVER EMULATOR

    Private Sub Incoming(ByVal Message As String)
        Dim sendwelcome = _
                     ": 375 u :- Welcome to Roleplay2!" & vbNewLine & _
                     ": 372 u :- " & vbNewLine & _
                     ": 372 u :- 0 players (WC: 0, RG: 0) are online" & vbNewLine & vbNewLine & _
                     ": 376 u" & vbNewLine & _
                     ": 379 u :none none none 1 32512 NONREQ" & vbNewLine
        Dim setcodepage = _
                     ": 399 u " & nickname & "`0" & vbNewLine & _
                     ": 391 u irc.westwood.com :1311833221" & vbNewLine & _
                     ": 329 u 1252" & vbNewLine
        Dim joingame = _
                       ":" & nickname & "!u@h JOINGAME 2 121 12 1 0 842340095 0 :#" & nickname & "" & vbNewLine & _
                       ": 332 u #" & nickname & " :" & vbNewLine & _
                       ": 353 u = #" & nickname & " :@" & nickname & ",0,842340095" & vbNewLine & _
                       ": 366 u #" & nickname & " :" & vbNewLine
        Dim getcodepage = _
                       ":" & nickname & "!u@h USERIP " & nickname & " " & externalip & vbNewLine & _
                       ":" & nickname & "!u@h STARTG u :" & nickname & " " & externalip & " :1642748 1311833234" & vbNewLine & _
                       ": 309 u " & nickname & "`0" & vbNewLine & _
                       ": 328 u " & nickname & "`1252" & vbNewLine
        Dim getgameinfo = _
                       ":" & nickname & "!u@h USERIP " & nickname & " 127.0.0.1" & vbNewLine & _
                       ":" & nickname & "!u@h STARTG u :" & nickname & " " & externalip & " :1650512 1311933973" & vbNewLine & _
                       ": 309 u " & nickname & "`0" & vbNewLine & _
                       ": 328 u " & nickname & "`1252" & vbNewLine
        Dim newmap = ":" & nickname & "!u@h STARTG u :" & nickname & " " & externalip & " :1650524 1311934012" & vbNewLine
        If Message.Contains("verchk") Then
            Dim TextLines() As String = Message.Split(Environment.NewLine.ToCharArray, System.StringSplitOptions.RemoveEmptyEntries)
            nickname = TextLines(2).Replace("NICK ", Nothing)
            Delegates.RichTextBoxes.appendText(Me, RichTextBox1, vbNewLine & Date.Now & ": FDS Logged On..." & vbNewLine)
            Delegates.RichTextBoxes.appendText(Me, RichTextBox1, Date.Now & ": NickName: " & TextLines(2).Replace("NICK ", Nothing) & vbNewLine)
            Delegates.RichTextBoxes.appendText(Me, RichTextBox1, Date.Now & ": Password: " & TextLines(1).Replace("PASS ", Nothing) & vbNewLine)
            Delegates.RichTextBoxes.appendText(Me, RichTextBox1, Date.Now & ": Serial: " & TextLines(4).Replace("SERIAL ", Nothing) & vbNewLine)
            serverSendToAllConnected("", sendwelcome)
        End If

        If Message.Contains("TIME") Then
            Delegates.RichTextBoxes.appendText(Me, RichTextBox1, Date.Now & ": FDS Asking For Identity..." & vbNewLine)
            serverSendToAllConnected("", setcodepage)
            rtard.Start()
        End If

        If Message.Contains("JOINGAME") Then
            Delegates.RichTextBoxes.appendText(Me, RichTextBox1, Date.Now & ": FDS Asking For Channel Creation..." & vbNewLine)
            serverSendToAllConnected("", joingame)
        End If

        If Message.Contains("GETLOCALE") Then
            rtard.Stop()
            Delegates.RichTextBoxes.appendText(Me, RichTextBox1, Date.Now & ": FDS Channel Created!..." & vbNewLine)
            Delegates.RichTextBoxes.appendText(Me, RichTextBox1, Date.Now & ": FDS Asking For IP Address..." & vbNewLine)
            serverSendToAllConnected("", getgameinfo)
        End If

        If Message.Contains("STARTG") Then
            Delegates.RichTextBoxes.appendText(Me, RichTextBox1, Date.Now & ": FDS Map Loaded!..." & vbNewLine)
            serverSendToAllConnected("", newmap)
        End If
    End Sub ' |