Sorry your browser is not supported!

   ` Check for new clients
   Joined = mn Client Joined(0)
   if Joined > 0
     ` Display client information
     print "A new client has joined with a client ID of";
     print Joined
     print " Client TCP IP is: ";
     print mn Get Client IP TCP(0, Joined)
     print " Client TCP port is: ";
     print mn Get Client Port TCP(0, Joined)
     print " Client UDP IP is: ";
     print mn Get Client IP UDP(0, Joined)
     print " Client UDP port is: ";
     print mn Get Client Port UDP(0, Joined)
     

     TCPPacket = mn Recv TCP(0, RecvPacket, Joined)
     print " Getting model... "
     if TCPPacket > 0
         if mn Get Int(RecvPacket) = OP_MODELPLAYER
            Print "OP_MODELPLAYER"
            Model = mn Get Int(RecvPacket)
            Print "Model = ", Model, ", thus path ="
            Select Model
                Case MODEL_DWARF
                    Print "Media/Objects/Dwarf/Dwarf1.x"
                Endcase
            Endselect
         Endif
     Else
        Print "ERROR: Got no TCP packet from client."
        Print "Kicking client."
        mn Add String SendPacket, "You have been kicked. Reason: No TCP packet received.", 0, 1
        mn Send TCP 0, SendPacket, Joined, 0, 0
        mn Disconnect Client 0, Joined
     Endif

#constant NOT_CONNECTED = 0
#constant CONNECTING = 1
#constant FULLY_CONNECTED = 2

` Forcefully disconnect client if it has not finished connecting after CONNECTION_TIMEOUT milliseconds
#constant CONNECTION_TIMEOUT = 2000

` Type stores information about client
type tyClient
	ConnectionStatus as integer
	tStartedConnecting as dword
endtype

dim Client(mn get max clients(0)+1) as tyClient

for n = 1 to mn get max clients(0)
	Client(n).ConnectionStatus = NOT_CONNECTED
next n

` Setup server
mn start 1,0
LocalHost$ = mn DNS("localhost")
mn set local 0, LocalHost$, 2525, LocalHost$, 2525
mn start server 0, 50, 0, 4
RecvPacket = mn create packet()

do
	` Connections
	iResult = mn client joined(0)
	if iResult > 0
		Client(n).ConnectionStatus = CONNECTING
		Client(n).tStartedConnecting = timer()
		print "Client joined: " + str$(iResult)		
	endif
	
	iResult = mn client left(0)
	if iResult > 0
		Client(n).ConnectionStatus = NOT_CONNECTED
		print "Client left: " + str$(iResult)
	endif

	for n = 0 to mn get max clients(0)
		` Disconnect clients if they fail to complete handshaking process
		if Client(n).ConnectionStatus = CONNECTING
			if timer() - Client(n).tStartedConnecting > CONNECTION_TIMEOUT
				mn Disconnect Client 0,n
				print "Client failed to complete handshaking process: " + str$(n)
			endif
		endif
		
		` Receive data
		iResult = mn recv tcp(0,RecvPacket, n)
		if iResult > 0
			print "TCP packet received"
			
			if Client(n).ConnectionStatus = CONNECTING
				Client(n).ConnectionStatus = FULLY_CONNECTED
				print "Client completed handshaking process: " + str$(n)
			endif
		endif
		
		iResult = mn recv udp(0,RecvPacket,n,0)
		if iResult > 0
			print "UDP packet received"
		endif
	next n

loop