Sorry your browser is not supported!

*** MinGWRelease/main.o:main.cpp:(.text+0x277d): undefined reference to `mnCreatePacket()'
*** MinGWRelease/main.o:main.cpp:(.text+0x2794): undefined reference to `mnCreatePacket()'

#ifndef MIKENET_H_

#define MIKENET_H_

#endif

MNCOMMAND int mnClientJoined(int iInstance)
{
	int iReturn = -1;
	const char * cCommand = "mnClientJoined";

	try
	{
		_CheckInstanceID(iInstance,__LINE__);
		iReturn = mnInstance[iInstance]._ClientJoined();
	}
	STD_CATCH

	return(iReturn);
}

` SERVER PING CODE
sync on
sync

` Variables
LocalIP$ = "127.0.0.1"
LocalPort = 6565
PingFreq = 3000 `Calculate ping every 3 seconds

` Operations, to determine what packet is for
#constant OP_PINGREQ = 1

` Setup packets
RecvPacket = mn create packet()
PingPacket = mn create packet()
mn set memory size PingPacket,1024
mn add byte PingPacket, OP_PINGREQ

` Start MikeNet
mn start 1,0

` Start server
mn set local 0,LocalIP$,LocalPort,LocalIP$,LocalPort
mn disable udp 0
mn start server 0,50,0,0


print "Server started"
sync

` Main loop
LastPing = 0 ` Stores the timer of the last ping request
do
    ` Check for new clients
    result = mn client joined(0)
    if result > 0
        print "Client "+str$(result)+" joined"
        sync
    endif
    
    ` Check for leaving clients
    result = mn client left(0)
    if result > 0
        print "Client "+str$(result)+" left"
        sync
    endif
    
    ` Send ping requests
    if timer() - LastPing > PingFreq
        mn send tcp all 0,PingPacket,1,1,0
        LastPing = timer()
    endif
    
    ` Check for TCP packets
    for n = 1 to mn get max clients(0)
        result = mn recv tcp(0,RecvPacket,n)
        
        if result > 0
            Operation = mn get byte(RecvPacket)
            
            if Operation = OP_PINGREQ
                Ping = timer() - LastPing
                print "Client "+str$(n)+" ping is "+str$(Ping) + "ms"
                sync
            endif
        endif
    next n
loop

` CLIENT PING CODE
sync on
sync

` Variables
LocalIP$ = "127.0.0.1"
LocalPort = 6565

` Operations, to determine what packet is for
#constant OP_PINGREQ = 1

` Create packet
RecvPacket = mn create packet()

` Start MikeNet
mn start 1,0

` Connect to server
print "Ensure that the server is ready for us to connect, then press a key"
print "Note: whilst running, press the enter key to pause running for 4 second, this should cause our ping to rise!" 
sync
wait key
print "Connecting..."
sync
mn disable udp 0
result = mn connect(0,LocalIP$,LocalPort,LocalIP$,LocalPort,2,1)

if result = 0
    print "Timed out"
    sync
    wait key
    end
endif

if result = 1
    print "Connected successfully"
    print "Server will display ping information"
    sync
endif

if result = -1
    print "An error occurred whilst connecting"
    sync
    wait key
    end
endif

` Loop while connected
while mn client connected (0,0) = 1
    ` Check for new TCP messages
    result = mn recv tcp(0,RecvPacket,0)
    if result > 0
        operation = mn get byte(RecvPacket)
        
        ` Send ping back
        if operation = OP_PINGREQ
            print "Ping back request received"
            sync
            mn send tcp 0,RecvPacket,0,0,1
        endif
    endif
    
    `Check for enter key
    if returnkey() = 1
        print "Pausing for 4 seconds..."
        sync
        sleep 4000
        print "Unpaused"
        sync 
    endif
endwhile

` SERVER PING CODE
sync on
sync

` Variables
LocalIP$ = ""
LocalPort = 6565
PingFreq = 3000 `Calculate ping every 3 seconds

` Operations, to determine what packet is for
#constant OP_PINGREQ = 1

` Setup packets
RecvPacket = mn create packet()
PingPacket = mn create packet()
mn set memory size PingPacket,1024
mn add byte PingPacket, OP_PINGREQ

` Start MikeNet
mn start 1,0

` Select interface to use (a local IP)
iNoInter = mn Get Local IP Amount()
Print "Host name: ";
Print mn Get Host Name()
Print "Press the Y key to select a server from the list below"
for n = 0 to iNoInter-1
	Print str$(n);
	Print ": ";
	Print mn Get Local IP(n)
 next n

do
	Wait 1

	` If the 'y' key is pressed then find out what interface the user wants
	if ScanCode() = 21
		Print
		Input "Interface number: ",iInterface

		if iInterface < iNoInter
			` Get IP
			LocalIP$ = mn Get Local IP(iInterface)				
			CLS
			exit
		endif
    endif
loop

` Start server
mn set local 0,LocalIP$,LocalPort,LocalIP$,LocalPort
mn disable udp 0
mn start server 0,50,0,0


print "Server started"
sync

` Main loop
LastPing = 0 ` Stores the timer of the last ping request
do
    ` Check for new clients
    result = mn client joined(0)
    if result > 0
        print "Client "+str$(result)+" joined"
        sync
    endif
    
    ` Check for leaving clients
    result = mn client left(0)
    if result > 0
        print "Client "+str$(result)+" left"
        sync
    endif
    
    ` Send ping requests
    if timer() - LastPing > PingFreq
        mn send tcp all 0,PingPacket,1,1,0
        LastPing = timer()
    endif
    
    ` Check for TCP packets
    for n = 1 to mn get max clients(0)
        result = mn recv tcp(0,RecvPacket,n)
        
        if result > 0
            Operation = mn get byte(RecvPacket)
            
            if Operation = OP_PINGREQ
                Ping = timer() - LastPing
                print "Client "+str$(n)+" ping is "+str$(Ping) + "ms"
                sync
            endif
        endif
    next n
loop

` CLIENT PING CODE
sync on
sync

` Variables
LocalIP$ = ""
LocalPort = 6565

` Operations, to determine what packet is for
#constant OP_PINGREQ = 1

` Create packet
RecvPacket = mn create packet()

` Start MikeNet
mn start 1,0

` Select interface to use (a local IP)
iNoInter = mn Get Local IP Amount()
Print "Host name: ";
Print mn Get Host Name()
Print "Press the Y key to select a server from the list below"
for n = 0 to iNoInter-1
	Print str$(n);
	Print ": ";
	Print mn Get Local IP(n)
 next n

do
	Wait 1

	` If the 'y' key is pressed then find out what interface the user wants
	if ScanCode() = 21
		Print
		Input "Interface number: ",iInterface

		if iInterface < iNoInter
			` Get IP
			LocalIP$ = mn Get Local IP(iInterface)				
			CLS
			exit
		endif
    endif
loop

` Connect to server
print "Ensure that the server is ready for us to connect, then press a key"
print "Note: whilst running, press the enter key to pause running for 4 second, this should cause our ping to rise!" 
sync
wait key
print "Connecting..."
sync
mn disable udp 0
result = mn connect(0,LocalIP$,LocalPort,LocalIP$,LocalPort,2,1)

if result = 0
    print "Timed out"
    sync
    wait key
    end
endif

if result = 1
    print "Connected successfully"
    print "Server will display ping information"
    sync
endif

if result = -1
    print "An error occurred whilst connecting"
    sync
    wait key
    end
endif

` Loop while connected
while mn client connected (0,0) = 1
    ` Check for new TCP messages
    result = mn recv tcp(0,RecvPacket,0)
    if result > 0
        operation = mn get byte(RecvPacket)
        
        ` Send ping back
        if operation = OP_PINGREQ
            print "Ping back request received"
            sync
            mn send tcp 0,RecvPacket,0,0,1
        endif
    endif
    
    `Check for enter key
    if returnkey() = 1
        print "Pausing for 4 seconds..."
        sync
        sleep 4000
        print "Unpaused"
        sync 
    endif
endwhile

 ` Relay data to clients
        ` Formulate packet
        mn Add Int SendPacket,Client
        Rem objeto es el número de la operación en el MikeNet
        mn Add Int SendPacket,objeto
        mn Add string SendPacket,unidadesE1(objeto).estado,0,1
        mn Add Float SendPacket,unidadesE1(objeto).posMovX
        mn Add Float SendPacket,unidadesE1(objeto).posMovY
        mn Add Float SendPacket,unidadesE1(objeto).posMovZ
        mn Add Int SendPacket,unidadesE1(objeto).objetivo
    
       ` Send packet to all clients
        mn Send UDP All 0,SendPacket,0,0,Client

type myType
     Object as integer
     Name as string
     Posx as float
     Posy as float
     Posz as float
endtype

` Create array
dim unidadesE1(50) as myType

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

` Initialize name variable
unidadesE1(1).Name = "Hello World" `<- FIXES PROBLEM

` Add data to packet
mn Add Int packet,1
mn Add String packet,unidadesE1(1).name,0,1
mn Add Float packet,unidadesE1(1).posx
mn Add Float packet,unidadesE1(1).posy
mn Add Float packet,unidadesE1(1).posz
mn Add Int packet,unidadesE1(1).object

` Display contents of packet
mn set cursor packet,0
print mn get int(packet)
print mn get string(packet,0,1)
print mn get float(packet)
print mn get float(packet)
print mn get float(packet)
print mn get int(packet)

` Wait for key input and then end
wait key
end

int Multiplayer_CheckForLeftClients()
{

int ClientLeft;

//Check if a client has left
	ClientLeft=mnClientLeft(0);
	if(ClientLeft>0)
	{
		PrintTime();
		cout << "Client " << ClientLeft << " has disconnected.nn";
				
	//Unregister user
		Glob.Client[ClientLeft].exists=0;
		
	//Tell everyone that the client has left
		mnSetMemorySize(Glob.SendPacket,8);
		mnAddInt(Glob.SendPacket,ClientLeft);
		mnAddInt(Glob.SendPacket,MP_OP_TCP_SC_CLIENTLEFT);
		mnSendTCPAll(0,Glob.SendPacket,FALSE,TRUE,ClientLeft);

	}

	return 0;
}

>MikeNet.lib(Functions.obj) : error LNK2001: unresolved external symbol "public: static void __cdecl std::_Locinfo::_Locinfo_ctor(class std::_Locinfo *,class std::basic_string<char,struct std::char_traits<char>,class std::allocator<char> > const &)" (?_Locinfo_ctor@_Locinfo@std@@SAXPAV12@ABV?$basic_string@DU?$char_traits@D@std@@V?$allocator@D@2@@2@@Z)