Sorry your browser is not supported!

type SomeType
  S as string
endtype

global SomeVariable as SomeType

mn add string Packet, SomeVariable.S
mn Send TCP NET_INST,Packet,Client,0,1

<boost dir>bjam toolset=msvc-10.0 variant=debug,release threading=multi link=static

LINK : fatal error LNK1104: cannot open file 'libboost_thread-vc100-mt-sgd-1_49.lib'

MN START 1,0 // STARTS MIKENET WITH 1 INSTANCE AND MAX CORES

MN START NAT 1 // STARTS THE NAT - SET TO BLOCKING IN ORDER TO FUNCTION

RESULT$ = MN GET PORT MAP EXTERNAL IP (0) // GETS THE EXTERNAL IP ADDRESS IN FORMAT 000.000.000.000

Print RESULT$ // PRINTS THE RESULT STRING

WAIT KEY
END

mn start sound noofinputdevices,noofoutputdevices
mn finish sound

mn get num output devices()
mn get num input devices()

this command is important:
mn get device max channels(deviceno,boolflag)

this command didn't work with me:
mn get device format support(deviceno, boolflag)
returns the format that the sound device is using or actually supported.

now this two commmands didn't give me a stable answers:
mn get device driver major version (deviceno,flag)
mn get device driver minor version(deviceno,flag)
flag:1 for output device, 0 for input device
for example if a evice version is 4.6 then the major version is 4 and the minor version is 6.
usually output and input devices have the same version.

this two command didn't give a stable answer:
mn get device manu ID(deviceno,boolflag)
returns the manufacturer Id of the device.I liked this command because you can know if a device is fake or not.

mn get device product id(deviceno,boolflag)

this command does not work on all computer:
mn get device name(deviceno, boolflag)

function host_create_network(no_of_instances)
    mn start no_of_instances,0
    profile=mn create instance profile()
    mn set profile local profile,get ip address$(),6789,get ip address$(),6789     
    mn set profile mode TCP profile,1   
    repeat
        result=mn start server(0,10,profile)    
    until result=0 
ENDFUNCTION

`----------------------------------------------------

function host_welcome_new_commers(send_message_packet,no_more)   `return 1 if client joined, -1 if client left else 0.
    joined=mn client joined(0)   
        if joined>0 
            clientjoined=joined
            if no_more = 1  //don't accept anymore connections.
                mn disconnect client 0,clientjoined 
                exitfunction 0
            endif
            exitfunction 1 `will add the number of clients.
        endif
        if mn client left(0) then exitfunction -1  `this command will not work unless we allow the command 'mn client joined(0)' to work
ENDFUNCTION 0

`-----------------------------------------------------

function host_send_message_to_all(send_message_packet,text$)
    mn add string send_message_packet,text$,len(text$),1
    mn send all tcp 0,send_message_packet,0,1,0    
ENDFUNCTION

`-----------------------------------------------------

function host_send_memblock_to_all(send_message_packet,packet_size,mem_address)
    mn set memory size send_message_packet,packet_size
    mn add memblock send_message_packet,mem_address,packet_size,1
    mn send all tcp 0,send_message_packet,0,1,0      
ENDFUNCTION

function client_connect(IP$,time_out)
    mn start 1,0     
    profile=mn create instance profile()
    connect=mn connect(0,IP$,6789,IP$,6789,time_out,1,profile)        
    if connect<>1 then mn delete instance profile profile : mn finish 0 : exitfunction 0
endfunction 1

`-----------------------------------------

function client_get_host_message$(receive_packet,no_more)
    received=mn recv tcp(0,receive_packet,0) 
    if received>0 
        if no_more = 1  don't accept the coming message.
            mn flush recv tcp 0,0
        else
            host_message$=mn get string(receive_packet,0,1)        
        endif
    endif
ENDFUNCTION host_message$

FUNCTION MikeNetPreload()
` Operations, used to identify the purpose of each packet
` TCP
#constant OP_NEWPLAYER      0
#constant OP_LEFTPLAYER     1

 ` To be filled during connection
MaximumClients as integer

 ` Main code
   ` Set UDP and TCP port of the server, which is 6789
ConnectPort = 6789

 ` Set Timeout value which is the length of time
` in seconds that the command will wait for the
` connection to complete until giving up
Timeout = 4000

 ` 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
NoInstances = 1

 ` Setup packets
SendPacket = mn create packet()
RecvPacket = mn create packet()
mn set memory size SendPacket,1024

 ` Start MikeNet
mn Start NoInstances,NoThreads

 ` Get IP address to connect to via UDP and TCP
ConnectIP$ as string
Input "Enter the IP that you would like to connect to: ", ConnectIP$

 ` Try to connect
profile = mn Create Instance Profile()
Connect = mn Connect(0,ConnectIP$,ConnectPort,ConnectIP$,ConnectPort,Timeout, 1, profile)

CLS

select Connect
    ` If the connection was successful
    case 1:
        print "Connection was successful!"

         ` Find maximum number of clients
        ` necassary for UDP receiving
        MaximumClients = mn Get Max Clients(0)

         ` Display information
        Print " The local TCP IP is: ";
        print mn Get Local IP TCP(0)

         Print " The local TCP port is: ";
        print mn Get Local Port TCP(0)

         Print " The local UDP IP is: ";
        print mn Get Local IP UDP(0)

         Print " The local UDP port is: ";
        print mn Get Local Port UDP(0)

         Print " Your client ID is: ";
        print mn Get Client ID(0)

         print
        print "Press any key to continue"
        Wait Key
    endcase

     ` If the connection timed out
    case 0:
        CLS
        Print "Connection timed out. The server may not be available."
        Print "Press any key to exit"
        Wait Key
        end
    endcase

     ` If an unknown error occurred during connection
    case -1:
        CLS
        Print "An unknown error occurred whilst trying to connect."
        Print "Press any key to exit"
        Wait Key
        end
    endcase
    
    ` If we failed to connect because the server is full
    case -2:
       CLS
       print "The connection request was rejected because the server is full."
       print "Press any key to exit"
       Wait Key
       end
    endcase
endselect
ENDFUNCTION

FUNCTION MikeNetMain()
` Once connected, we loop until we become disconnected
while mn Client Connected(0,0) = 1

   ` Deal with new messages from the server

   ` Check for new TCP messages
  TCPPackets = mn Recv TCP(0,RecvPacket,NULL)

   ` If there is a new TCP message
  if TCPPackets > 0
     ` Get operation of new message
     ` and player that it applies to
     Operation = mn Get Int(RecvPacket)
     player = mn Get Int(RecvPacket)

      ` If the server is telling us that a new player has joined
     ` then create a cube for that player
     if Operation = OP_NEWPLAYER
        if Object Exist(player) = 0
           Make Object Cube player,50
        endif
     endif

      ` If the server is telling us that a player has left then
     ` delete the cube of that player
     if Operation = OP_LEFTPLAYER
        if Object Exist(player) = 1
           Delete Object player
        endif
     endif
  endif

 
  ` Check for new UDP messages on a per client basis

   ` Check each client
  PlayerA as integer
  for PlayerA = 1 to MaximumClients
    ` Check for new UDP messages
    UDPPackets = mn Recv UDP(0,RecvPacket,PlayerA,0)

     if Object Exist(PlayerA) = 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
          PosX# = mn Get Float(RecvPacket)
          PosY# = mn Get Float(RecvPacket)
          PosZ# = mn Get Float(RecvPacket)

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

           Position Object PlayerA,PosX#,PosY#,PosZ#
          Rotate Object PlayerA,RotX#,RotY#,RotZ#
       endif
    endif
  next PlayerA

   ` Send our position/angle to the server via UDP
  ` Formulate packet
  mn Add Float SendPacket,Camera Position X()
  mn Add Float SendPacket,Camera Position Y()
  mn Add Float SendPacket,Camera Position Z()
  mn Add Float SendPacket,Camera Angle X()
  mn Add Float SendPacket,Camera Angle Y()
  mn Add Float SendPacket,Camera Angle Z()

   ` Send packet
  mn Send UDP 0,SendPacket,0,0,1
endwhile

ENDFUNCTION

TCP stands for Transmission Control Protocol. it is relaiable and ensure that a message is received at the other end.

UDP stands for User Datagram Protocol. unlike TCP it is you that decide whether it is important that a message is delivered or not. it is unreliable but faster than TCP because the system does not care whether the message is received or not.

in a networking level, TCP and UDP are located in the transport after the applications layer. the application layer pass the message to the transport layer which is responsible for ensuring the message is sent. 
now, the transport layer does not have the physical address but only information about it. so it add the reciver IP address to the message and then pass it to the IP layer. 
the IP layer add itself to the message then release the message to the network.

the network ensure that the message is gone to the receiving end.
unfortunately the message signal may not arrive or may be corrupted due to physical reasons. 
however, if the instance uses TCP protocol, it will ensure that the message has been received. while if the instance uses UDP protocol, it will not care whether the message is received or not.

because when the message arrives to the client, it filters its way up until it arrive at the right protocol naturally. so if the received message arrived to the TCP layer, the client will send a message to the host telling him that the message is arrived. this is why using TCP is slower than UDP.

when a game is put in a loop, it will constantly send plenty of messages about the player location. using probability, some messages will arrive uncorrupted and the receiver will know the position of the other players. 

if you use UDP method 1. all received messaged from the same sender will not wait on the messaging queue but discarded by the receiver. this will speed up the receiving system as we don't need two messages that tell about the same location.

use TCP if you are sending one message only. for example you want to tell users to switch to next level or to create something....

private void joinUp_Clicked(object sender, EventArgs e)
        {
            //Connect to the server specified by the IP
            if (tbIpAddress.getText() != null)
            {
                if (tbIpAddress.getText().Trim().Length > 0)
                {
                    RecvPacket = mnCLR.CreatePacket();
                    SendPacket = mnCLR.CreatePacket();
                    mnCLR.SetMemorySize(SendPacket, 1024);
                    mnCLR.Start(1, 0);
                    // Determine IP of the text in the IP textbox
                    string localhost = mnCLR.DNS_B("localhost");
                    string ipToConnect = mnCLR.DNS_B(tbIpAddress.getText().Trim());
                    long profile = mnCLR.CreateInstanceProfile();
                    mnCLR.SetProfileLocal(profile, localhost, 0, localhost, 0);
                    mnCLR.SetProfileModeUDP(profile, 2);
                    mnCLR.SetProfileNumOperationsUDP(profile, 3);
                    int siReturn = mnCLR.Connect(0, ipToConnect, 6565, ipToConnect, 6565, 5000, true, profile);
                    switch (siReturn)
                    {
                        case (1):
                            System.Windows.Forms.MessageBox.Show("Connected to server");
                            break;
                        case (0):
                            System.Windows.Forms.MessageBox.Show("Connection timed out");
                            break;
                        case (-1):
                            System.Windows.Forms.MessageBox.Show("Error occurred whilst connecting");
                            break;
                        case (-2):
                            System.Windows.Forms.MessageBox.Show("The connection request was rejected because the server is full.");
                            break;
                    }
                }
            }
        }

public void start()
        {
            RecvPacket = mnCLR.CreatePacket();
            SendPacket = mnCLR.CreatePacket();
            mnCLR.SetMemorySize(SendPacket, 1024);
            //Start the networking module
            mnCLR.Start(1, 0);
            //Get local ip
            String localHostIp = mnCLR.DNS_B("localhost");
            long profile = mnCLR.CreateInstanceProfile();
            mnCLR.SetProfileModeUDP(profile, 2);
            mnCLR.SetProfileLocal(profile, localHostIp, 6565, localHostIp, 6565);
            mnCLR.SetProfileNumOperationsUDP(profile, 3);
            var result = mnCLR.StartServer(0, Convert.ToUInt32(maxPlayers), profile);
            addServerMessage("\n");
            addServerMessage("-Server started on TCP port " + mnCLR.GetLocalPortTCP(0) + " and UDP port " + mnCLR.GetLocalPortUDP(0) +"-");
            if (result == 0)
            {
                serverHealth = "All Is Good";
            }
            else
            {
                serverHealth = "Bad";
            }
        }

atlsd.lib;LIBCMT.lib;strmbasd.lib

libc.lib;msvcrt.lib;libcd.lib;libcmtd.lib;msvcrtd.lib

` Connect to server
RecvPacket = mn Create Packet()
SendPacket = mn Create Packet()
mn Set Memory Size SendPacket,1024

mn Start 1,0

mn Disable TCP Handshake 0
mn Set Auto Resize TCP 0,0,1
mn Enable Graceful Disconnect 0
mn Set TCP Mode 0,2

IP$ = mn DNS("www.thegamecreators.com")

iReturn = mn Connect(0,IP$,80,IP$,80,5,1)
mn Set Auto Resize TCP 0,0,1
select iReturn
	case 1:
		print "Connected to server"
	endcase

	case 0:
		print "Connection timed out"
		wait key
		end
	endcase

	case -1:
		print "Error occurred whilst connecting"
		wait key
		end
	endcase
	
	case -2:
        print "Error: Server rejected connection request"
    endcase
endselect

` Send request
print "Press any key to send!"
wait key
EndOfLine$ = chr$(13) + chr$(10)    
mn Add String SendPacket, "GET / HTTP/1.1"+EndOfLine$,0,0
mn Add String SendPacket, "Host: thegamecreators.com"+EndOfLine$,0,0
mn Add String SendPacket, "Connection: close"+EndOfLine$,0,0

mn Send TCP 0,SendPacket,0,0,1

` Main loop
while mn Client Connected(0,0) <> 0
	` Check for graceful disconnect
	if mn Client Connected(0,0) = 3
		` Wait for all data to be received before closing connection
		if mn Get TCP Store Amount(0, 0) = 0
			mn Shutdown Client 0,0
		endif
	endif

	` TCP packets
	iReturn = mn Recv TCP(0,RecvPacket,0)

	if iReturn > 0
		print "Packet size: " + str$(mn Get Used Size(RecvPacket))
		if mn Get Used Size(RecvPacket) > 0
			print "Packet data:"
			Data$ = mn Get String (RecvPacket,mn Get Used Size(RecvPacket),1)
			print Data$
			
			print
			print
		endif
	endif
endwhile

print "Disconnected from server!"
wait key
end