Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text

Module Module1
    Sub Main()
        ' Load the DarkNet networking module
        mn.Start(1, 0)

        ' Start server
        mn.StartServer(0, 50, 0, 3)

        ' Display information about server
        Console.WriteLine("Local TCP IP: " + mn.GetLocalIPTCP(0))
        Console.WriteLine("Local UDP IP: " + mn.GetLocalIPUDP(0))
        Console.WriteLine("Local TCP Port: " + mn.GetLocalPortTCP(0).ToString())
        Console.WriteLine("Local UDP Port: " + mn.GetLocalPortUDP(0).ToString())
        Console.WriteLine()

        ' Create packet to store received data
        Dim RecvPacket As Int64 = mn.CreatePacket()

        Do
            ' Check for new clients
            Dim iJoined As Integer = mn.ClientJoined(0)
            If iJoined > 0 Then
                Console.WriteLine("A new client joined the server")
            End If

            ' Check for leaving clients
            Dim iLeft As Integer = mn.ClientLeft(0)
            If iLeft > 0 Then
                Console.WriteLine("A client left the server")
            End If

            For cl = 1 To mn.GetMaxClients(0)
                ' Check for new UDP data
                Dim iUDP As Integer = mn.RecvUDP(0, RecvPacket, cl, 0)
                If iUDP > 0 Then
                    Console.WriteLine("UDP data received")
                End If

                ' Check for new TCP data
                Dim iTCP As Integer = mn.RecvTCP(0, RecvPacket, cl)
                If iTCP > 0 Then
                    Console.WriteLine("TCP data received")
                End If
            Next cl
        Loop

        ' Cleanup
        mn.Finish(-1)
    End Sub
End Module