Sorry your browser is not supported!

#include <DarkGDK.h>
#include <MikeNet.h>

// Tcp
#define OP_NEWPLAYER		0
#define OP_LEFTPLAYER		1

// Udp
#define OP_POSITIONPLAYER	0

// Mode
#define MODE_HOST			0
#define MODE_CONNECT		1

// Variables
// Set velocity and turn speed for player movement
const int Velocity = 5, TurnSpeed = 5;

// To be filled during connection
int MaximumClients;
int MaximumOperations;

// Stores the mode we are in (connect or host)
int iMode;

// Variable to hold the result of a MikeNet command
int Result;

void DarkGDK(void)
{
	// Set UDP and TCP port of the server, which is 6789
	unsigned short ConnectPort = 6789;

	int Timeout = 10;
	int NoThreads = 0;

	// Start MikeNet
	// Parameter 1 sets the number of instances to create
	// Parameter 2 sets the number of threads to be used between each instance
	mnStart(2,NoThreads);
	
	// Find out whether to host a server or just connect to one
	dbPrint("Would you like to host a game or connect to an existing one?");
	dbPrint("Press 1 to host and 2 to connect");
	while(LoopGDK() == true)
	{
		// If '1' key is pressed
		if(dbScanCode() == 2)
		{
			dbPrint("Entering host mode...");
			iMode = MODE_HOST;
			break;
		}

		// If '2' key is pressed
		if(dbScanCode() == 3)
		{
			dbPrint("Entering connect mode...");
			iMode = MODE_CONNECT;
			break;
		}

		dbWait(1);
	}
	dbWaitKey();

	char * ConnectIP;
	if(iMode == MODE_CONNECT)
	{
		// Get IP address to connect to via UDP and TCP
		dbPrint("Enter the IP that you would like to connect to: ");
		ConnectIP = dbInput();
	}
	else
	{
		unsigned short ConnectPort = 6789;
		int MaxClients = 50;
		int MaxOperations = 1;
		int UdpMode = UDPMODE_PER_CLIENT_PER_OPERATION;
		int NoThreads = 0;
		
		// Set server local address information
		Result = mnSetLocal(MODE_HOST,"",ConnectPort,"",ConnectPort);
		if(Result == -1)
		{
			dbPrint("Error setting the local address");
			dbWaitKey();
			return;
		}

		// Start the server
		Result = mnStartServer(MODE_HOST,MaxClients,MaxOperations,UdpMode);
		// If started successfully
		if(Result == 0)
		{
			dbPrint("Server started");
			dbPrint();
			dbPrint("Server local TCP port: ");
			dbPrint(dbStr(mnGetLocalPortTCP(MODE_HOST)));
			dbPrint("Server local UDP port: ");
			dbPrint(dbStr(mnGetLocalPortUDP(MODE_HOST)));
		}
		// If failed to start
		else
		{
			dbPrint("Server failed to start");
			dbWaitKey();
			return;
		}

		// Ensure that we connect to our own server
		ConnectIP = "127.0.0.1";
	}

	// Try to connect
	mnConnect(MODE_CONNECT,ConnectIP,ConnectPort,ConnectIP,ConnectPort,Timeout,false);
	int Connect;
	do{
		// Ensure that connection is accepted
		// mnClientJoined must be called otherwise connection will not be accepted
		if(iMode == MODE_HOST)
		{
			mnClientJoined(MODE_HOST);
		}

		Connect = mnPollConnect(MODE_CONNECT); 

		// If the connection was successful
		if(Connect == 1)
		{
			dbPrint("Connection was successful!");

			// Find maximum number of clients and operations
			// necassary for udp receiving
			MaximumClients = mnGetMaxClients(MODE_CONNECT);
			MaximumOperations = mnGetMaxOperations(MODE_CONNECT);

			// Print our local IP, port and udp mode
			dbPrintC("The local TCP IP is: ");
			dbPrint(mnGetLocalIPTCP(MODE_CONNECT));
			
			dbPrintC("The local TCP port is: ");
			dbPrint(dbStr(mnGetLocalPortTCP(MODE_CONNECT)));

			dbPrintC("The local UDP IP is: ");
			dbPrint(mnGetLocalIPUDP(MODE_CONNECT));
			
			dbPrintC("The local UDP port is: ");
			dbPrint(dbStr(mnGetLocalPortUDP(MODE_CONNECT)));

			dbPrintC("Your client ID is: ");
			dbPrint(dbStr(mnGetClientID(MODE_CONNECT)));

			dbPrint("Press any key to continue");
			dbWaitKey();
		}

		// If the connection timed out
		if(Connect == 0)
		{
			dbPrint("Connection timed out! Check that the server is switched on");
			dbWaitKey();
			return;
		}

		// If an error occurred during connection
		if(Connect == -1)
		{
			dbPrint("An error occurred whilst trying to connect");
			dbWaitKey();
			return;
		}
	}while(Connect == 2); // While connection is in progress

	// Setup the world for us to run around in
	dbSyncOn();
	dbSyncRate(40);
	dbAutoCamOff();
	dbMakeMatrix(1,5000,5000,50,50);
	dbPositionMatrix(1,dbCameraPositionX(),dbCameraPositionY()-20,dbCameraPositionZ());

	// Once connected, we loop until we become disconnected or darkgdk tells us to exit
	while( (mnClientConnected(MODE_CONNECT,0) == 1) && (LoopGDK() == true) )
	{
		// SERVER STUFF
		if(iMode == MODE_HOST)
		{
			// Check to see if a new client has joined
			int Joined = mnClientJoined(MODE_HOST);
			// If a new client has joined
			if(Joined > 0)
			{
				// Tell the new client what clients are currently connected
				for(int Client = 1;Client<=MaximumClients;Client++)
				{
					if(mnClientConnected(MODE_HOST, Client) == 1)
					{
						if(Client != Joined)
						{
							mnAddInt(MODE_HOST,OP_NEWPLAYER);
							mnAddInt(MODE_HOST,Client);
							mnSendTCP(MODE_HOST,Joined,false,false);
						}
					}
				}

				// Tell clients that a new client has joined
				mnAddInt(MODE_HOST,OP_NEWPLAYER);
				mnAddInt(MODE_HOST,Joined);
				mnSendTCPAll(MODE_HOST,false,false,Joined);
			}
			
			// Check to see if any clients have left recently
			int Left = mnClientLeft(MODE_HOST);
			// If a client has left recently
			if(Left > 0)
			{
				// Tell clients that a client has left
				mnAddInt(MODE_HOST,OP_LEFTPLAYER);
				mnAddInt(MODE_HOST,Left);
				mnSendTCPAll(MODE_HOST,false,false,Left);
			}
		}

		// CLIENT STUFF
		// Refresh screen
		dbSync();

		// Player movement
		if(dbUpKey() == 1){dbMoveCamera(Velocity);}
		if(dbDownKey() == 1){dbMoveCamera(-Velocity);}
		if(dbLeftKey() == 1){dbTurnCameraLeft(TurnSpeed);}
		if(dbRightKey() == 1){dbTurnCameraRight(TurnSpeed);}



		// Send our position/angle to the server via UDP
		// Formulate packet
		mnAddInt(MODE_CONNECT,OP_POSITIONPLAYER);
		mnAddFloat(MODE_CONNECT,dbCameraPositionX());
		mnAddFloat(MODE_CONNECT,dbCameraPositionY());
		mnAddFloat(MODE_CONNECT,dbCameraPositionZ());
		mnAddFloat(MODE_CONNECT,dbCameraAngleX());
		mnAddFloat(MODE_CONNECT,dbCameraAngleY());
		mnAddFloat(MODE_CONNECT,dbCameraAngleZ());
		// Send packet
		mnSendUDP(MODE_CONNECT,NULL,false,true);



		// Check for new TCP messages
		int iTcpPackets = mnRecvTCP(MODE_CONNECT,NULL);
		
		// If there is a new TCP message
		if(iTcpPackets > 0)
		{
			// Get operation of new message
			// and player that it applies to
			int Operation = mnGetInt(MODE_CONNECT);
			int Player = mnGetInt(MODE_CONNECT);

			// If the server is telling us that a new player has joined
			// then create a cube for that player
			if(Operation == OP_NEWPLAYER)
			{
				if(dbObjectExist(Player) == 0)
				{
					dbMakeObjectCube(Player,50);
				}
			}

			// If the server is telling us that a player has left then
			// delete the cube of that player
			if(Operation == OP_LEFTPLAYER)
			{
				if(dbObjectExist(Player) == 1)
				{
					dbDeleteObject(Player);
				}
			}
		}




		// CLIENT AND SERVER STUFF
		// Check for new UDP messages on a per client per operation basis

		// Check each client
		for(int Player = 1;Player<=MaximumClients;Player++)
		{
			// SERVER
			if(iMode == MODE_HOST)
			{
				// Discard any TCP packets that are received, we are not expecting any
				int TcpPackets = mnRecvTCP(MODE_HOST,Player);
				if(TcpPackets > 0)
				{
					// Do nothing
				}
			}

			// Check each operation for current client
			for(int Operation = 0;Operation<MaximumOperations;Operation++)
			{
				// Check for new UDP messages

				// CLIENT
				int UdpPackets;
				UdpPackets = mnRecvUDP(MODE_CONNECT,Player,Operation);

				if(dbObjectExist(Player) == 1)
				{
					// If there is a new UDP message
					if(UdpPackets == 1)
					{
						// Get the player's position and angle
						// and apply them to his/her cube
						float PosX = mnGetFloat(MODE_CONNECT);
						float PosY = mnGetFloat(MODE_CONNECT);
						float PosZ = mnGetFloat(MODE_CONNECT);

						float RotX = mnGetFloat(MODE_CONNECT);
						float RotY = mnGetFloat(MODE_CONNECT);
						float RotZ = mnGetFloat(MODE_CONNECT);
					
						dbPositionObject(Player,PosX,PosY,PosZ);
						dbRotateObject(Player,RotX,RotY,RotZ);
					}
				}

				// SERVER
				if(iMode == MODE_HOST)
				{
					UdpPackets = mnRecvUDP(MODE_HOST,Player,Operation);

					// If there is a new UDP message
					if(UdpPackets == 1)
					{
						// Get data from packet
						float PosX = mnGetFloat(MODE_HOST);
						float PosY = mnGetFloat(MODE_HOST);
						float PosZ = mnGetFloat(MODE_HOST);

						float RotX = mnGetFloat(MODE_HOST);
						float RotY = mnGetFloat(MODE_HOST);
						float RotZ = mnGetFloat(MODE_HOST);

						// Relay data to clients
						// Formulate packet
						mnAddInt(MODE_HOST,Player);
						mnAddInt(MODE_HOST,OP_POSITIONPLAYER);
						mnAddFloat(MODE_HOST,PosX);
						mnAddFloat(MODE_HOST,PosY);
						mnAddFloat(MODE_HOST,PosZ);
						mnAddFloat(MODE_HOST,RotX);
						mnAddFloat(MODE_HOST,RotY);
						mnAddFloat(MODE_HOST,RotZ);
						
						// Send packet to all clients
						mnSendUDPAll(MODE_HOST,false,false,Player);
					}
				}
			}
		}
	}

	// If we have become disconnected from the server
	dbPrint("Lost connection to server!");
	dbSync();
	dbWaitKey();
	mnFinish(-1); // Close ports and deallocate memory for all instances

	return;
}

Result = mn start(1,0)

print "Connecting..."
Result = mn connect(0,"127.0.0.1",6555,"127.0.0.1",6555,10,1)

if Result = 1
    print "Connected"
else
    print "Failed to connect"
    wait key
    end
endif

while mn client connected(0,0) = 1
    Result = mn recv TCP(0,0)
    
    if Result > 0
        print "New TCP Message: ";
        print mn get string(0,0,1)
    endif
endwhile

Result = mn start(1,0)
Result = mn set local(0,"",6555,"",6555)
Result = mn start server(0,5,1,1)

if Result = 0
    print "Server started"
else
    print "Server failed to start"
    wait key
    end
endif

do
    Joined = mn client joined(0)
    
    if Joined > 0 
        print "New client joined"
        Result = mn add string (0,"Hello World",0,1)
        Result = mn send TCP(0,Joined,0,1)
    endif
    
    Left = mn client left(0)
    
    if Left > 0
        print "Client left"
    endif
loop

    ConnectIP$ = "http://roliolio.game-host.org/"
    Host2ip# as Integer
    Host2ip# = Mn DNS(ConnectIP$)
    Message Str$(Host2ip#)

ConnectIP$ = "http://roliolio.game-host.org/"
    iConnect = mn Connect(0,ConnectIP$,ConnectPort,ConnectIP$,ConnectPort,Timeout,1)

Count as integer
Count = 0

start:
Result = mn start(1,0)

Result = mn set local(0,"",6555,"",6555)
Result = mn start server(0,5,1,1)



if Result = 0
    Count = Count + 1
    
    if Count < 100
        print "Server started ";
        print Count
        mn finish -1
        goto start
    else
        print "Server properly started! ";
        print Count
    endif
else
    print "Server failed to start"
    wait key
    end
endif

do
    Joined = mn client joined(0)
    
     if Joined > 0 
        print "New client joined"
        Result = mn add string (0,"Hello World",0,1)
        Result = mn send TCP(0,Joined,0,1)
    endif
    
    Left = mn client left(0)
    
    if Left > 0
        print "Client left"
    endif
loop

Count as integer
Count = 0

Result = mn start(1,0)

start:
Result = mn set local(0,"",6555,"",6555)
Result = mn start server(0,5,1,1)



if Result = 0
    Count = Count + 1
    
    if Count < 100
        print "Server started ";
        print Count
        mn finish 0
        goto start
    else
        print "Server properly started! ";
        print Count
    endif
else
    print "Server failed to start"
    wait key
    end
endif

do
    Joined = mn client joined(0)
    
     if Joined > 0 
        print "New client joined"
        Result = mn add string (0,"Hello World",0,1)
        Result = mn send TCP(0,Joined,0,1)
    endif
    
    Left = mn client left(0)
    
    if Left > 0
        print "Client left"
    endif
loop

` Set the file name of the file to send
FileName$ = "mnFiles.zip"
MaxFileSize = 100000000

` Below used to identify what each packet is supposed to be for
` Tcp
#constant OP_NEWPLAYER      0
#constant OP_LEFTPLAYER     1

` Udp
#constant OP_POSITIONPLAYER 0

` Instances
#constant INST_CUBEWORLD    0
#constant INST_FILETRANS    1

` Main code
   ` Set the local port of the server, this is the port
   ` that the server will use for both TCP and UDP
   dim LocalPort(2) as integer
   LocalPort(INST_CUBEWORLD) = 6789
   LocalPort(INST_FILETRANS) = 6790
   
   dim LocalIP$(2) as string
   LocalIP$(INST_CUBEWORLD) = ""
   LocalIP$(INST_FILETRANS) = ""

   ` Set the maximum number of clients that can be
   ` connected at any one time
   MaxClients = 50

   ` Set the maximum number of UDP operations that will
   ` be used. We have one, which is OP_POSITIONPLAYER
   ` so we will set this to one
   MaxOperations = 1

   ` Set the UDP mode which decides how UDP packets
   ` are dealt with on a per client basis or on a
   ` per client/per operation basis
   UdpMode = 2

   ` Set the number of threads that will be created
   ` to deal with incoming data. In most cases this
   ` should be set to the number of processors on your
   ` computer. MikeNet can determine this for you
   ` automatically if you set it to 0
   NoThreads = 0

	// Set the number of MikeNet instances to create.
	// Each instance can use either mnStartServer or
	// mnConnect
	NoInstances = 2;

	// Start MikeNet
	Result = mn Start(NoInstances,NoThreads)
	
	// If an error occurred starting MikeNet
	if Result = -1
	   print "Error starting MikeNet"
	   wait key
	   end
    else
        print "MIKENET: Started with ";
        print str$(mn Get Threads());
        print " thread(s) running"
    endif

   ` Set the local IP and port of the server
   ` Note: if we did not use this command then MikeNet
   ` would find a local IP and port to use automatically
   Result = mn Set Local(INST_CUBEWORLD, LocalIP$(INST_CUBEWORLD),LocalPort(INST_CUBEWORLD),LocalIP$(INST_CUBEWORLD),LocalPort(INST_CUBEWORLD))

   ` If an error occurred setting the local address
   if Result = -1
      print "INST_CUBEWORLD: Error setting the local address"
      wait key
      end
   endif

   ` Attempt to start the server
   Result = mn Start Server(INST_CUBEWORLD, MaxClients,MaxOperations,UdpMode)

   ` If started successfully
   if Result = 0
      print "INST_CUBEWORLD: Server started"
      print "INST_CUBEWORLD: Server local TCP port: ";
      print mn Get Local Port TCP(INST_CUBEWORLD)
      print "INST_CUBEWORLD: Server local UDP port: ";
      print mn Get Local Port UDP(INST_CUBEWORLD)
   ` If failed to start
   else
      print "INST_CUBEWORLD: Server failed to start"
      Wait Key
      end
   endif

   ` Set the local IP and port of the server
   ` Note: if we did not use this command then MikeNet
   ` would find a local IP and port to use automatically
   Result = mn Set Local(INST_FILETRANS,LocalIP$(INST_FILETRANS),LocalPort(INST_FILETRANS),LocalIP$(INST_FILETRANS),LocalPort(INST_FILETRANS))

   ` If an error occurred setting the local address
   if Result = -1
      print "INST_FILETRANS: Error setting the local address"
      wait key
      end
   endif

    `Change the maximum send buffer size because we will be sending a large packet
	Result = mn Set Buffer Sizes(INST_FILETRANS, 1024,1024,MaxFileSize,1)
	if Result = -1
		print "INST_FILETRANS: Error setting buffer sizes"
        wait key
		end
	endif
	
	`Disable UDP because we are not using it
	mn Disable UDP INST_FILETRANS

   ` Attempt to start the server
   Result = mn Start Server(INST_FILETRANS,MaxClients,0,0)

   ` If started successfully
   if Result = 0
      print "INST_FILETRANS: Server started"
      print "INST_FILETRANS: Server local TCP port: ";
      print mn Get Local Port TCP(INST_FILETRANS)
      print "INST_FILETRANS: UDP is disabled"
   ` If failed to start
   else
      print "INST_FILETRANS: Server failed to start"
      wait key
      end
   endif

   `Check size of file
   FileSize = file size(FileName$)
   if FileSize > MaxFileSize
      print "INST_FILETRANS: File is too big to formulate into a packet"
      print "INST_FILETRANS: Size is: "
      print str$(FileSize)
      print "INST_FILETRANS: Max size is: "
      print str$(MaxFileSize)
      wait key
      end
   else
      ` Open the file
      open to read 1, FileName$

      ` If we managed to open the file
      if file open(1) = 1
         ` Formulate a packet containing each byte of the file
         for n = 0 to FileSize-1
            read byte 1, byRead
            Result = mn Add Byte (INST_FILETRANS, byRead)
         next n

         print "INST_FILETRANS: Loaded ";
         print FileName$;
         print " into memory and formulated packet"
         close file 1

      ` If we failed to open the file
      else
         print "INST_FILETRANS: Unable to open ";
         print FileName$;
         print "."
         wait key
         end
      endif
   endif



   ` Now that the server is started we will loop checking for new connections
   do
      ` Check to see if a new client has joined
      Joined = mn Client Joined(INST_CUBEWORLD)

      ` If a new client has joined
      if Joined > 0
         ` Print the client id of the new client
         print "INST_CUBEWORLD: A new client has joined. Client ID is: ";
         print Joined
         print "INST_CUBEWORLD: Client TCP IP is: ";
         print mn Get Client IP TCP(INST_CUBEWORLD, Joined)
         print "INST_CUBEWORLD: Client TCP port is: ";
         print mn Get Client Port TCP(INST_CUBEWORLD, Joined)
         print "INST_CUBEWORLD: Client UDP IP is: ";
         print mn Get Client IP UDP(INST_CUBEWORLD, Joined)
         print "INST_CUBEWORLD: Client UDP port is: ";
         print mn Get Client Port UDP(INST_CUBEWORLD, Joined)

         ` Tell the new client what clients are currently connected
         Client as integer
         for Client = 1 to MaxClients
            if mn Client Connected(INST_CUBEWORLD, Client) = 1
               if Client <> Joined
                  Result = mn Add Int(INST_CUBEWORLD,OP_NEWPLAYER)
                  Result = mn Add Int (INST_CUBEWORLD,Client)
                  Result = mn Send TCP(INST_CUBEWORLD,Joined,0,0)
               endif
            endif
         next Client

         ` Tell clients that a new client has joined
         Result = mn Add Int(INST_CUBEWORLD, OP_NEWPLAYER)
         Result = mn Add Int(INST_CUBEWORLD, Joined)
         Result = mn Send TCP All(INST_CUBEWORLD,0,0,Joined)
      endif

      ` Check to see if any clients have left recently
      Left = mn Client Left(INST_CUBEWORLD)

      ` If a client has left recently
      if Left > 0
         ` Print the client id of the client who left
         print "INST_CUBEWORLD: Client ";
         print str$(Left);
         print " has disconnected"

         ` Tell clients that a client has left
         Result = mn Add Int(INST_CUBEWORLD,OP_LEFTPLAYER)
         Result = mn Add Int(INST_CUBEWORLD,Left)
         Result = mn Send TCP All (INST_CUBEWORLD,0,0,Left)
      endif

      ` Deal with new packets from all clients
      for Client = 1 to MaxClients
         ` Check to see if any new TCP packets have been received
         TcpPackets = mn Recv TCP(INST_CUBEWORLD,Client)

         ` If any have been received then do nothing
         ` since we don't want tcp packets from clients
         if TcpPackets > 0

         endif

         Operation as integer
         for Operation = 0 to MaxOperations-1
            ` Check to see if any new UDP packets have been received
            UdpPackets = mn Recv UDP(INST_CUBEWORLD,Client,Operation)

            ` If any have been received
            if UdpPackets > 0
               ` Get data from packet
               PosX# = mn Get Float(INST_CUBEWORLD)
               PosY# = mn Get Float(INST_CUBEWORLD)
               PosZ# = mn Get Float(INST_CUBEWORLD)

               RotX# = mn Get Float(INST_CUBEWORLD)
               RotY# = mn Get Float(INST_CUBEWORLD)
               RotZ# = mn Get Float(INST_CUBEWORLD)

               ` Relay data to clients
               ` Formulate packet
               Result = mn Add Int(INST_CUBEWORLD,Client)
               Result = mn Add Int(INST_CUBEWORLD,OP_POSITIONPLAYER)
               Result = mn Add Float(INST_CUBEWORLD,PosX#)
               Result = mn Add Float(INST_CUBEWORLD,PosY#)
               Result = mn Add Float(INST_CUBEWORLD,PosZ#)
               Result = mn Add Float(INST_CUBEWORLD,RotX#)
               Result = mn Add Float(INST_CUBEWORLD,RotY#)
               Result = mn Add Float(INST_CUBEWORLD,RotZ#)

               ` Send packet to all clients
               Result = mn Send UDP All(INST_CUBEWORLD,0,0,Client)
            endif
         next Operation
      next Client
      
      
      
      ` Check to see if a new client has joined
      Joined = mn Client Joined(INST_FILETRANS)
      ` If a new client has joined then send them the file
      if Joined > 0
         print "INST_FILETRANS: A new client has joined. Client ID is: ";
         print str$(Joined)
         print "INST_FILETRANS: Client TCP IP is: ";
         print mn Get Client IP TCP(INST_FILETRANS, Joined)
         print "INST_FILETRANS: Client TCP port is: ";
         print mn Get Client Port TCP(INST_FILETRANS, Joined)
         print "INST_FILETRANS: Sending file..."
         ` Send the file without deleting the packet so that
         ` it can be sent to other clients aswell
         Result = mn Send TCP(INST_FILETRANS,Joined,1,1)
         print "INST_FILETRANS: File sending complete!"
      endif

      ` Check to see if any clients have left recently
      Left = mn Client Left(INST_FILETRANS)
      ` If a client has left recently
      if Left > 0
         print "INST_FILETRANS: Client ";
         print str$(Left);
         print " has disconnected"
      endif      
   loop

REM Project: TestMNet
REM Created: 12/15/2008 7:28:50 PM
REM
REM ***** Main Source File *****
REM

Prepare_Net()
` Set timeout to 15 seconds for this test
iState = mn Connect(1,"127.0.0.1",122,"127.0.0.1",122,15,0)
iStart=TIMER()
print "Starting"
do
   ` if it has been 10 seconds, cancel the connect
   ` since we are connecting to an imaginary server, it is destined to fail
   if TIMER() - iStart > 10000
     mn Stop Connect 1 : mn Finish 1 : exit
   endif
loop
print "Canceled Connect"

wait key
end

FUNCTION Prepare_Net()
   LocalPort = 12345
   LocalIP$ = ""
   MaxOperations = 1
   UdpMode = 2
   NoThreads = 0
   Result = mn Start(3,NoThreads)
   Result = mn Set Local(0,LocalIP$,LocalPort-4,LocalIP$,LocalPort-4)
   mn Disable UDP 0
   Result = mn Set Local(1,LocalIP$,LocalPort-5,LocalIP$,LocalPort-5)
   mn Disable UDP 1
ENDFUNCTION