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

Module Module1
    Sub Main()
        ' Start DarkNet, creating 2 instances
        mn.Start(2, 0)

        ' Start servers on both instances
        mn.StartServer(0, 50, 5, 1)
        mn.StartServer(1, 50, 5, 1)

        ' Display information about servers
        Console.WriteLine("Server on instance 0:")
        Console.WriteLine(" Local TCP IP: " + mn.GetLocalIPTCP(0))
        Console.WriteLine(" Local UDP IP: " + mn.GetLocalIPUDP(0))
        Console.WriteLine(" Local TCP Port: " + mn.GetLocalPortTCP(0))
        Console.WriteLine(" Local UDP Port: " + mn.GetLocalPortUDP(0))
        Console.WriteLine("")
        Console.WriteLine("Server on instance 1:")
        Console.WriteLine(" Local TCP IP: " + mn.GetLocalIPTCP(1))
        Console.WriteLine(" Local UDP IP: " + mn.GetLocalIPUDP(1))
        Console.WriteLine(" Local TCP Port: " + mn.GetLocalPortTCP(1))
        Console.WriteLine(" Local UDP Port: " + mn.GetLocalPortUDP(1))
        Console.WriteLine("\n\n")

        Dim bRunning As Boolean = True
        While (bRunning = True)
            Thread.Sleep(1)

            ' Check for new clients on both instances
            Dim iJoined As Integer

            iJoined = mn.ClientJoined(0)
            If (iJoined > 0) Then
                Console.WriteLine("A new client joined server on instance 0")
            End If

            iJoined = mn.ClientJoined(1)
            If (iJoined > 0) Then
                Console.WriteLine("A new client joined server on instance 1")
            End If

            ' Check for leaving clients on both instances
            Dim iLeft As Integer

            iLeft = mn.ClientLeft(0)
            If (iLeft > 0) Then
                Console.WriteLine("A client left server on instance 0")
            End If

            iLeft = mn.ClientLeft(1)
            If (iLeft > 0) Then
                Console.WriteLine("A client left server on instance 1")
            End If
        End While

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