Hi,
I'm working on something with multiplayer, and have had problems with it from hour 1.
The error I get is attached. I've tried everything, and now I've basically copied the example:
Rem ***** Included Source File *****
Function ShowServerBrowser()
` Filled later by server or client
MaximumClients as integer
MaximumOperations as integer
` Stores the mode we are in (connect, host or broadcast)
iMode as integer
` Variable to hold the result of a MikeNet command
Result as integer
` Class used for list of servers on LAN (MODE_BROADCAST)
`TYPE clLANServer
` IP as string
` Name as string
` Port as integer
` ClientClock as dword
`ENDTYPE
` The client will wait for this amount of time (seconds)
` before giving up on a connection attempt
Timeout as integer
Timeout = 4
` Used in INST_BROADCAST and INST_CONNECT
` Stores information on where to connect to (to be filled later)
ConnectPort as integer
ConnectPort = 0
ConnectIP as string
ConnectIP = ""
` INST_HOST Information (to be filled later)
ServerPort as integer
ServerPort = 0
LocalIP as string
LocalIP = ""
ServerName as string
ServerName = ""
BroadcastPacket as double integer
BroadcastPacket = 0
Mn Start 3, 0
LocalIP = mn Get Local IP(0)
Global SendPacket
Global RecvPacket
` Setup packets
RecvPacket = mn Create Packet()
SendPacket = mn Create Packet()
mn Set Memory Size SendPacket,1024
` 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 local IP from the list below"
for n = 0 to iNoInter-1
Print str$(n);
Print ": ";
Print mn Get Local IP(n)
next n
SYnc
do
Wait 1
` If the 'y' key is pressed then find out what server the user wants
if KeyState(21) = 1
while KeyState(21) = 1
Wait 1
endwhile
Print "Interface number: "
Sync
Input "",iInterface
if iInterface < iNoInter
` Get IP
LocalIP = mn Get Local IP(iInterface)
CLS
exit
endif
endif
loop
` Find out whether to host a server or just connect to one
Print "Select one of the below options by pressing a number key:"
Print "0: Host - create a server and connect to it"
Print "1: Connect - connect to a server that we know the IP and port of"
Print "2: LAN - connect to a server that is on our local area network"
Sync
do
` If '0' key is pressed
if KeyState(11) = 1
iMode = MODE_HOST
while KeyState(11) = 1
Wait 1
endwhile
exit
endif
` If '1' key is pressed
if KeyState(2) = 1
iMode = MODE_CONNECT
while KeyState(2) = 1
Wait 1
endwhile
exit
endif
` If '2' key is pressed
if KeyState(3) = 1
iMode = MODE_BROADCAST
while KeyState(3) = 1
Wait 1
endwhile
exit
endif
Wait 1
loop
CLS
` Setup broadcasting which is used by:
` -the client to generate a list of available servers on the LAN
` -the server to broadcast its availability to clients
if iMode = MODE_HOST or iMode = MODE_BROADCAST
` Setup the broadcast instance, only UDP is relevant
` We receive (mnSetLocal) on port 5888 and broadcast (mnStartBroadcast) to port 5888
if iMode = MODE_HOST
mn Set Local INST_CONNECT,"",0,LocalIP,5888
mn Start Broadcast INST_BROADCAST,5888,1,0
endif
if iMode = MODE_BROADCAST
mn Set Local INST_BROADCAST,"",0,LocalIP,5888
mn Start Broadcast INST_BROADCAST,5888,0,1
endif
` Generate a list of available servers on the LAN
` == DELETED FOR NAO ==
endif
if iMode = MODE_CONNECT
Sync Off
` Get IP address and port to connect to via UDP and TCP
Input "Enter the IP that you would like to connect to: ",ConnectIP
Input "Enter the port that you would like to connect to: ",ConnectPort
Sync On : Sync : Sync
endif
if iMode = MODE_HOST
` Server information
MaxClients = 50
Online.MaxPlayers = MaxClients
MaxOperations = 1
UdpMode = 2
NoThreads = 0
Sync Off : Sync
Input "Enter the local port that you would like to use: ",ServerPort
Input "Enter the name to call your server: ", ServerName
Input "Map to load: ", MapToLoad$
Sync On : Sync : Sync
CLS
` Create packet to broadcast
BroadcastPacket = mn Create Packet()
mn Set Memory Size BroadcastPacket,1024
mn Add String BroadcastPacket,LocalIP,0,1
mn Add Int BroadcastPacket,ServerPort
mn Add String BroadcastPacket,ServerName,0,1
` Ensure that we connect to ourselves
ConnectIP = LocalIP
ConnectPort = ServerPort
` Set server local address information
mn Set Local INST_HOST,LocalIP,ServerPort,LocalIP,ServerPort
` Start the server
mn Start Server INST_HOST,MaxClients,MaxOperations,UdpMode
endif
` Disable escape key so that escape cancels to the connection process
Disable EscapeKey
` Start connection process
CLS
Print "Connecting, please wait..."
Print "Press the escape key to cancel"
Sync : Wait 100
mn Set Local INST_CONNECT,LocalIP,0,LocalIP,0
mn Connect INST_CONNECT,ConnectIP,ConnectPort,ConnectIP,ConnectPort,Timeout,0
Connect as integer
repeat
` Ensure that connection is accepted
` mnClientJoined must be here otherwise connection will not be accepted
if iMode = MODE_HOST
Result = mn Client Joined(INST_HOST)
endif
` Check to see if connection has completed yet
Connect = mn Poll Connect(INST_CONNECT)
` If the connection was successful
if Connect = 1
` Find maximum number of clients and operations
` necassary for udp receiving
MaximumClients = mn Get Max Clients(INST_CONNECT)
MaximumOperations = mn Get Max Operations(INST_CONNECT)
endif
` If the connection timed out
if Connect = 0
CLS
Print "Connection timed out. The server may not be available."
Print "Press any key to exit"
Sync
Wait Key
end
endif
` If an error occurred during connection
if Connect = -1
CLS
Print "An error occurred whilst trying to connect."
Print "Press any key to exit"
Sync
Wait Key
end
endif
` Check for escape key
if EscapeKey() = 1
while EscapeKey() = 1
Wait 1
endwhile
CLS
Print "Escape key pressed: connection process aborted"
Print "Press any key to exit"
Sync
Wait Key
mn Stop Connect INST_CONNECT
end
endif
Wait 1
until Connect <> 2 ` While connection is in progress
Enable Escapekey
If iMode = MODE_CONNECT
// Request map etc from host
mn Add Int SendPacket, OP_JOINDATA
mn Send TCP INST_CONNECT, SendPacket, 0, 0, 0
While tDone = 0
Set Cursor 0,0
` Check for new TCP messages
iTcpPackets = mn Recv TCP(INST_CONNECT,RecvPacket,0)
` If there is a new TCP message
if iTcpPackets > 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
Select Operation
Case OP_JOINDATA
if Object Exist(Player) = 0
Make Object Cube Player,50
endif
EndCase
EndSelect
endif
Print "Waiting for map...", Timer()
Sync
EndWhile
Endif
Global Dim Player(Online.MaxPlayers) AS tPlayer
Global OwnUserID : OwnUserID = 1
LoadMap(MapToLoad$)
Endfunction
And
Rem ***** Included Source File *****
_HandleOnline:
` MODE_HOST
if iMode = MODE_HOST
` Deal with new clients
Joined = mn Client Joined(INST_HOST)
if Joined > 0
` Tell the new client what clients are currently connected
for Client = 1 to MaximumClients
if mn Client Connected (INST_HOST, Client) = 1
if Client <> Joined
mn Add Int SendPacket,OP_NEWPLAYER
mn Add Int SendPacket,Client
mn Send TCP INST_HOST,SendPacket,Joined,0,0
endif
endif
next Client
` Tell clients that a new client has joined
mn Add Int SendPacket,OP_NEWPLAYER
mn Add Int SendPacket,Joined
mn Send TCP All INST_HOST,SendPacket,0,0,Joined
endif
` Deal with leaving clients
Left = mn Client Left(INST_HOST)
if Left > 0
` Tell clients that a client has left
mn Add Int SendPacket,OP_LEFTPLAYER
mn Add Int SendPacket,Left
mn Send TCP All INST_HOST,SendPacket,0,0,Left
endif
For i = 1 to Online.MaxPlayers
TCPPackets = mn Recv TCP(INST_HOST, RecvPacket, i)
If TCPPackets > 0
Operation = mn get Int(RecvPacket)
Player = mn Get Int(RecvPacket)
Select Operation
Case OP_JOINDATA
// New player requests map, and all the other data
mn Add Int SendPacket, OP_JOINDATA
// Send his ID
mn Add Int SendPacket, i
// Send map
mn Add String SendPacket, Online.CurrentMap, 0, 1
mn Send TCP 0, SendPacket, i, 0, 0
EndCase
EndSelect
Endif
Next i
endif
` MODE_CLIENT
` Player movement
if UpKey() = 1 then Move Camera VelocityA
if DownKey() = 1 then Move Camera -VelocityA
if LeftKey() = 1 then Turn Camera Left TurnSpeed
if RightKey() = 1 then Turn Camera Right TurnSpeed
` Send our position/angle to the server via UDP
mn Add Int SendPacket,OP_POSITIONPLAYER
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()
mn Send UDP INST_CONNECT,SendPacket,0,0,1
` Check for new TCP messages
iTcpPackets = mn Recv TCP(INST_CONNECT,RecvPacket,0)
` If there is a new TCP message
if iTcpPackets > 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
Select Operation
Case OP_NEWPLAYER
if Object Exist(Player) = 0
Make Object Cube Player,50
endif
EndCase
` If the server is telling us that a player has left then
` delete the cube of that player
Case OP_LEFTPLAYER
if Object Exist(Player) = 1
Delete Object Player
endif
EndCase
EndSelect
endif
` Check for new UDP messages on a per client per operation basis
` Check each client
for Player = 1 to MaximumClients
` MODE_HOST
if iMode = MODE_HOST
` Discard any TCP packets that are received, we are not expecting any
TcpPackets = mn Recv TCP(INST_HOST,RecvPacket,Player)
if TcpPackets > 0
` Do nothing
endif
endif
` Check each operation for current client
for Operation = 0 to MaximumOperations-1
` Check for new UDP messages
` MODE_CLIENT
UdpPackets = mn Recv UDP(INST_CONNECT,RecvPacket,Player,Operation)
if Object Exist(Player) = 1
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 Player,PosX#,PosY#,PosZ#
Rotate Object Player,RotX#,RotY#,RotZ#
endif
endif
` MODE_HOST
if iMode = MODE_HOST
UdpPackets = mn Recv UDP(INST_HOST,RecvPacket,Player,Operation)
if UdpPackets = 1
` Get data from packet
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)
` Relay data to clients
mn Add Int SendPacket,Player
mn Add Int SendPacket,OP_POSITIONPLAYER
mn Add Float SendPacket,PosX#
mn Add Float SendPacket,PosY#
mn Add Float SendPacket,PosZ#
mn Add Float SendPacket,RotX#
mn Add Float SendPacket,RotY#
mn Add Float SendPacket,RotZ#
mn Send UDP All INST_HOST,SendPacket,0,1,Player
endif
endif
next Operation
next Player
Sync
Return
Can anyone help me? If you need more info, please say so!
Jeff
