My test server.exe always crashes. Any idea why? [MultiSync]

Author

Message

hakimfullmetal

9

Years of Service

User Offline

Joined: 17th Feb 2015

Location:

Posted: 3rd Jul 2016 05:11 Edited at: 3rd Jul 2016 05:17

Link

Hello everybody.

I tried Multisync example to host a multiplayer session.
But somehow the exe always crash on startup.
What did I do wrong? I even port-forward the port 8888

My local IP: 192.168.1.101
My open port: 8888
My remote IP: 60.49.73.217

It crashes when I used these:

+ Code Snippet

ip$ = "192.168.1.101:8888"
result = net host(MAXIMUM_PLAYERS,ip$)

It doesn't crash when I use this:

+ Code Snippet

result = net host(MAXIMUM_PLAYERS)

But if I wanted to host online multiplayer, I had to use the first method, right?

Any idea on how to fix this?

The codes. It's the same Multisync demo code:

` Constants --------------------------------------
#constant MAXIMUM_PLAYERS 10
#constant MESSAGE_ID_NAME 0
#constant MESSAGE_ID_GENERAL 1 : ` Contains just player data
#constant MESSAGE_ID_GENERALFULL 2 : ` Contains player numbers and player data
#constant MESSAGE_ID_PLAYERJOINED 3
#constant MESSAGE_ID_PLAYERQUIT 4
#constant FLAG_UP 1
#constant FLAG_DOWN 2
#constant FLAG_LEFT 4
#constant FLAG_RIGHT 8
` ------------------------------------------------

` Types ------------------------------------------
type player_data
   exist as boolean
   active as boolean
   name as string
   x as float
   z  as float
   realx as float
   realz as float
   angle as float
   key_up as boolean
   key_down as boolean
   key_left as boolean
   key_right as boolean
endtype
` ------------------------------------------------

` Variables --------------------------------------
global dim player(MAXIMUM_PLAYERS)     as player_data
global MOUSE_LBM_PRESSED as boolean
` ------------------------------------------------

sync off
autocam off

ip$ = "192.168.1.101:8888"
result = net host(MAXIMUM_PLAYERS,ip$)
`result = net host(MAXIMUM_PLAYERS)
if not result
   print "Could not start server: "+chr$(34)+net get error()+chr$(34)+"."
   print "Press any key to exit."
   wait key
   end
endif

make matrix 1, 1000, 1000, 10, 10
position camera 500, 1000, 500
point camera 500, 0, 500

sync on
sync rate 60

do
   text 0, 0, str$(screen fps())
   text 0, 13, "There are "+str$(net get player amount())+" players connected."
   
   if spacekey() then net kick 1

HandleNetwork()
   HandleMouseOvers()
   HandleMovement()
   TEXT 10,200, "Player IP : " + NET GET PLAYER IP(1)
   `port = NET GET PLAYER PORT(0)
   sync
loop

function HandleMovement()
   for x = 1 to MAXIMUM_PLAYERS
      if player(x).exist
         if player(x).key_up
            player(x).realx = player(x).realx + sin(player(x).angle)
            player(x).realz = player(x).realz + cos(player(x).angle)
         endif
         if player(x).key_down
            player(x).realx = player(x).realx - sin(player(x).angle)
            player(x).realz = player(x).realz - cos(player(x).angle)
         endif
         if player(x).key_left then player(x).angle = wrapvalue(player(x).angle-1)
         if player(x).key_right then player(x).angle = wrapvalue(player(x).angle+1)

distx# = abs(player(x).realx-player(x).x)
         speedx# = distx# / 10.0
         distz# = abs(player(x).realz-player(x).z)
         speedz# = distz# / 10.0

angle# = atanfull(player(x).realx-player(x).x, player(x).realz-player(x).z)
         player(x).x = player(x).x + (sin(angle#)*speedx#)
         player(x).z = player(x).z + (cos(angle#)*speedz#)

yrotate object x+10, player(x).angle
         position object x+10, player(x).x, 0, player(x).z
      endif
   next x
endfunction

function HandleMouseOvers()
   result = pick object(mousex(), mousey(), 10, 30)
   if result = 0 then exitfunction
   if result > 9 and result < 20
      text mousex(), mousey()-13, player(result-10).name
   endif
endfunction

function HandleNetwork()

` Player joining ------------
   ` ---------------------------
   result = net player joined()
   while result > 0

make object cube 10+result, 10
      player(result).exist = 1
   
      rem send states & positions of players
      net put byte MESSAGE_ID_GENERALFULL
      for x = 1 to MAXIMUM_PLAYERS
         if net player connected(x)
            if player(x).active
               net put byte x
               net put string player(x).name
               net put float player(x).realx
               net put float player(x).realz
               net put byte player(x).angle / 1.411
               net put byte GetFlags(x)
            endif
         endif
      next x
      net send result
   
      result = net player joined()
   endwhile

` Player leaving -------------
   ` ----------------------------
   result = net player left()
   while result > 0

ResetPlayer(result)
      net put byte MESSAGE_ID_PLAYERQUIT
      net put byte result
      net send all
      
      result = net player left()
   endwhile

` Message processing ---------
   ` ----------------------------
   while net get message()
      playerNum = net message from()

select net get byte()
         case MESSAGE_ID_NAME
            playerNum = net message from()
            player(playerNum).name = net get string()
            player(playerNum).active = 1
            color object playerNum+10, rgb(0, 255, 0)

` Notify other players
            net put byte MESSAGE_ID_PLAYERJOINED
            net put byte playerNum
            net put string player(playerNum).name
            for x = 1 to MAXIMUM_PLAYERS
               if net player connected(x)
                  if x <> playerNum
                     net send x, 1
                  endif
               endif
            next x

` Clear message data
            net send 0
         endcase
         case MESSAGE_ID_GENERAL
            player(playerNum).realx = net get float()
            player(playerNum).realz = net get float()
            player(playerNum).angle = net get byte() * 1.411
            ApplyFlags(playerNum, net get byte())
            ApplyPosition(playerNum)

` Forward message on
            net put byte MESSAGE_ID_GENERAL
            net put byte playerNum
            net put float player(playerNum).realx
            net put float player(playerNum).realz
            net put byte player(playerNum).angle / 1.411
            net put byte GetFlags(playerNum)
            SendAllExcept(playerNum)
         endcase
      endselect
   endwhile
endfunction

function ResetPlayer(playerNum as integer)
   if object exist(playerNum+10) then delete object playerNum+10
   player(playerNum).exist = 0
   player(playerNum).active = 0
   player(playerNum).name = ""
   player(playerNum).x = 0
   player(playerNum).z = 0
   player(playerNum).realx = 0
   player(playerNum).realz = 0
   player(playerNum).angle = 0
   player(playerNum).key_up = 0
   player(playerNum).key_down = 0
   player(playerNum).key_left = 0
   player(playerNum).key_right = 0
endfunction

function SendAllExcept(except as integer)
   for x = 1 to MAXIMUM_PLAYERS
      if net player connected(x)
         if x <> except
            net send x, 1
         endif
      endif
   next x
   net send 0
endfunction

function GetFlags(playerNum as integer)
   local states as byte
   if player(playerNum).key_up then states = states || FLAG_UP
   if player(playerNum).key_down then states = states|| FLAG_DOWN
   if player(playerNum).key_left then states = states || FLAG_LEFT
   if player(playerNum).key_right then states = states || FLAG_RIGHT
endfunction states

function ApplyFlags(playerNum as integer, flags as integer)
   if flags && FLAG_UP
      player(playerNum).key_up = 1
   else
      player(playerNum).key_up = 0
   endif
   if flags && FLAG_DOWN
      player(playerNum).key_down = 1
   else
      player(playerNum).key_down = 0
   endif
   if flags && FLAG_LEFT
      player(playerNum).key_left = 1
   else
      player(playerNum).key_left = 0
   endif
   if flags && FLAG_RIGHT
      player(playerNum).key_right = 1
   else
      player(playerNum).key_right = 0
   endif
endfunction

function ApplyPosition(playerNum as integer)
   position object playerNum+10, player(playerNum).x, 0, player(playerNum).z
   yrotate object playerNum+10, player(playerNum).angle
endfunction

+ Code Snippet

` Constants --------------------------------------
#constant MAXIMUM_PLAYERS 10
#constant MESSAGE_ID_NAME 0
#constant MESSAGE_ID_GENERAL 1 : ` Contains just player data
#constant MESSAGE_ID_GENERALFULL 2 : ` Contains player numbers and player data
#constant MESSAGE_ID_PLAYERJOINED 3
#constant MESSAGE_ID_PLAYERQUIT 4
#constant FLAG_UP 1
#constant FLAG_DOWN 2
#constant FLAG_LEFT 4
#constant FLAG_RIGHT 8
` ------------------------------------------------

` Types ------------------------------------------
type player_data
   exist as boolean
   active as boolean
   name as string
   x as float
   z  as float
   realx as float
   realz as float
   angle as float
   key_up as boolean
   key_down as boolean
   key_left as boolean
   key_right as boolean
endtype
` ------------------------------------------------

` Variables --------------------------------------
global dim player(MAXIMUM_PLAYERS)     as player_data
global MOUSE_LBM_PRESSED as boolean
` ------------------------------------------------

sync off
autocam off

ip$ = "192.168.1.101:8888"
result = net host(MAXIMUM_PLAYERS,ip$)
`result = net host(MAXIMUM_PLAYERS)
if not result
   print "Could not start server: "+chr$(34)+net get error()+chr$(34)+"."
   print "Press any key to exit."
   wait key
   end
endif

make matrix 1, 1000, 1000, 10, 10
position camera 500, 1000, 500
point camera 500, 0, 500

sync on
sync rate 60

do
   text 0, 0, str$(screen fps())
   text 0, 13, "There are "+str$(net get player amount())+" players connected."
   
   if spacekey() then net kick 1

   HandleNetwork()
   HandleMouseOvers()
   HandleMovement()
   TEXT 10,200, "Player IP : " + NET GET PLAYER IP(1)
   `port = NET GET PLAYER PORT(0)
   sync
loop

function HandleMovement()
   for x = 1 to MAXIMUM_PLAYERS
      if player(x).exist
         if player(x).key_up
            player(x).realx = player(x).realx + sin(player(x).angle)
            player(x).realz = player(x).realz + cos(player(x).angle)
         endif
         if player(x).key_down
            player(x).realx = player(x).realx - sin(player(x).angle)
            player(x).realz = player(x).realz - cos(player(x).angle)
         endif
         if player(x).key_left then player(x).angle = wrapvalue(player(x).angle-1)
         if player(x).key_right then player(x).angle = wrapvalue(player(x).angle+1)

         distx# = abs(player(x).realx-player(x).x)
         speedx# = distx# / 10.0
         distz# = abs(player(x).realz-player(x).z)
         speedz# = distz# / 10.0

         angle# = atanfull(player(x).realx-player(x).x, player(x).realz-player(x).z)
         player(x).x = player(x).x + (sin(angle#)*speedx#)
         player(x).z = player(x).z + (cos(angle#)*speedz#)

         yrotate object x+10, player(x).angle
         position object x+10, player(x).x, 0, player(x).z
      endif
   next x
endfunction

function HandleMouseOvers()
   result = pick object(mousex(), mousey(), 10, 30)
   if result = 0 then exitfunction
   if result > 9 and result < 20
      text mousex(), mousey()-13, player(result-10).name
   endif
endfunction

function HandleNetwork()

   ` Player joining ------------
   ` ---------------------------
   result = net player joined()
   while result > 0

      make object cube 10+result, 10
      player(result).exist = 1
   
      rem send states & positions of players
      net put byte MESSAGE_ID_GENERALFULL
      for x = 1 to MAXIMUM_PLAYERS
         if net player connected(x)
            if player(x).active
               net put byte x
               net put string player(x).name
               net put float player(x).realx
               net put float player(x).realz
               net put byte player(x).angle / 1.411
               net put byte GetFlags(x)
            endif
         endif
      next x
      net send result
   
      result = net player joined()
   endwhile

   ` Player leaving -------------
   ` ----------------------------
   result = net player left()
   while result > 0

      ResetPlayer(result)
      net put byte MESSAGE_ID_PLAYERQUIT
      net put byte result
      net send all
      
      result = net player left()
   endwhile

   ` Message processing ---------
   ` ----------------------------
   while net get message()
      playerNum = net message from()

      select net get byte()
         case MESSAGE_ID_NAME
            playerNum = net message from()
            player(playerNum).name = net get string()
            player(playerNum).active = 1
            color object playerNum+10, rgb(0, 255, 0)

            ` Notify other players
            net put byte MESSAGE_ID_PLAYERJOINED
            net put byte playerNum
            net put string player(playerNum).name
            for x = 1 to MAXIMUM_PLAYERS
               if net player connected(x)
                  if x <> playerNum
                     net send x, 1
                  endif
               endif
            next x

            ` Clear message data
            net send 0
         endcase
         case MESSAGE_ID_GENERAL
            player(playerNum).realx = net get float()
            player(playerNum).realz = net get float()
            player(playerNum).angle = net get byte() * 1.411
            ApplyFlags(playerNum, net get byte())
            ApplyPosition(playerNum)

            ` Forward message on
            net put byte MESSAGE_ID_GENERAL
            net put byte playerNum
            net put float player(playerNum).realx
            net put float player(playerNum).realz
            net put byte player(playerNum).angle / 1.411
            net put byte GetFlags(playerNum)
            SendAllExcept(playerNum)
         endcase
      endselect
   endwhile
endfunction

function ResetPlayer(playerNum as integer)
   if object exist(playerNum+10) then delete object playerNum+10
   player(playerNum).exist = 0
   player(playerNum).active = 0
   player(playerNum).name = ""
   player(playerNum).x = 0
   player(playerNum).z = 0
   player(playerNum).realx = 0
   player(playerNum).realz = 0
   player(playerNum).angle = 0
   player(playerNum).key_up = 0
   player(playerNum).key_down = 0
   player(playerNum).key_left = 0
   player(playerNum).key_right = 0
endfunction

function SendAllExcept(except as integer)
   for x = 1 to MAXIMUM_PLAYERS
      if net player connected(x)
         if x <> except
            net send x, 1
         endif
      endif
   next x
   net send 0
endfunction

function GetFlags(playerNum as integer)
   local states as byte
   if player(playerNum).key_up then states = states || FLAG_UP
   if player(playerNum).key_down then states = states|| FLAG_DOWN
   if player(playerNum).key_left then states = states || FLAG_LEFT
   if player(playerNum).key_right then states = states || FLAG_RIGHT
endfunction states

function ApplyFlags(playerNum as integer, flags as integer)
   if flags && FLAG_UP
      player(playerNum).key_up = 1
   else
      player(playerNum).key_up = 0
   endif
   if flags && FLAG_DOWN
      player(playerNum).key_down = 1
   else
      player(playerNum).key_down = 0
   endif
   if flags && FLAG_LEFT
      player(playerNum).key_left = 1
   else
      player(playerNum).key_left = 0
   endif
   if flags && FLAG_RIGHT
      player(playerNum).key_right = 1
   else
      player(playerNum).key_right = 0
   endif
endfunction

function ApplyPosition(playerNum as integer)
   position object playerNum+10, player(playerNum).x, 0, player(playerNum).z
   yrotate object playerNum+10, player(playerNum).angle
endfunction

Back to top

Profile PM

hakimfullmetal

9

Years of Service

User Offline

Joined: 17th Feb 2015

Location:

Posted: 9th Jul 2016 11:44

Link

What do we need to use as a host for the ip$ part of this command? Supposing we want to host over the internet?

+ Code Snippet

net host(MAXIMUM_PLAYERS,ip$)

Is is the internal IP? 192.168.1.101
Or is it the external IP? 60.49.73.217
Or is it the combination of internal + port? 192.168.1.101:8888

Back to top

Profile PM

Bio Fox

19

Years of Service

User Offline

Joined: 11th Nov 2004

Location: The BioFox Bunker

Posted: 10th Jul 2016 01:35

Link

I'm not sure you can have the port in the IP address like that. I'm actually working with multisync right now and I call Net Host like this

+ Code Snippet

Net Host 6

and Net Connect like this

+ Code Snippet

net connect "127.0.0.1"

I've found that you cannot run the server and Player One in the same exe. They must be separate programs. So run a server exe with Net Host and then in the regular program connect to your own IP with 127.0.0.1 .

Every other computer will need to connect using 192.168.1.X . As far as over the internet is concerned, look into virtual LANs like hamachi. I haven't tested it, but it's worked with other games.

BioFox Games

Back to top

Profile PM Email Website

hakimfullmetal

9

Years of Service

User Offline

Joined: 17th Feb 2015

Location:

Posted: 11th Jul 2016 11:44

Link

I turns out I'm probably behind CG-NAT. If this is true, then the ISP probably did not open the port that I specified, leading to inability to host anything.
Probably can use Hamachi.

One more thing:
Let's say if we want to host multiplayer game over the internet using DBPro native multiplayer commands....
Anybody knows what we should put into 'Address Data' part of this command?

+ Code Snippet

SET NET CONNECTION Connection Number,Address Data

Help file said if you connect by TCP/IP the Address Data should be an IP and Url Address.

But what does that mean?
Is is the internal IP? 192.168.1.101
Or is it the external IP? 60.49.73.217
Or is it the combination of internal + port? 192.168.1.101:8888

I can't test this myself due to the aforementioned problem. Anybody knows?

Back to top

Profile PM

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 12th Jul 2016 03:19 Edited at: 12th Jul 2016 03:21

Link

OK, just ran some testing to verify all this. Here is what I do:

Server PC - set static LAN IP (192.168.1.2), add TCP exceptions to the windows firewall on port 8000

Router - set port forwarding (port 8000) to the server PC LAN IP

Run an instance of the exe in host mode on the server PC - use multisync commands "net set port 8000" and "netstatus = net host(10)" >> First time you run it, Windows will probably pop an alert that windows firewall has blocked some features do you want to allow -> yes.

Run an instance of the exe in client mode on the server PC via LAN - use multisync command "netstatus = net connect(ServerLanIP$)" (just an IPv4 address "192.168.1.2")

Run an instance of the exe in client mode on a remote PC (laptop tethered to cell phone hot spot as separate network) - use multisync command "netstatus = net connect(ServerWanIP$)" (just an IPv4 address "66.69.229.192")

You end up with 2 clients connected to the server as seen here:

Back to top

Profile PM Email Website

hakimfullmetal

9

Years of Service

User Offline

Joined: 17th Feb 2015

Location:

Posted: 12th Jul 2016 11:41 Edited at: 12th Jul 2016 11:48

Link

I see, thanks.
I missed that "net set port 8000" command on MultiSync. I'm an idiot

Do we actually need to connect as a client to the server PC via LAN for the server to work on internet? Or it doesn't matter?

Also, anybody knows what we should put into 'Address Data' part of this native DBPro command?

+ Code Snippet

SET NET CONNECTION Connection Number,Address Data

Help file said if you connect by TCP/IP the Address Data should be an IP and Url Address.
But what does that mean?
Is is the internal IP? 192.168.1.101
Or is it the external IP? 60.49.73.217
Or is it the combination of internal + port? 192.168.1.101:8888

I wanted to try DBPro native commands too because of the advantage of 'sessions' or GameName.

+ Code Snippet

CREATE NET GAME Gamename, Playername, Number Of Players

Contrary to MultiSYnc, with DBPro native commands, if we connect to the server IP/LAN, DBPro lists all the server that is on the network as GameName/'sessions'.
So, for people like me that can't host due to CG-NAT, if we use Hamachi, then all people that connects to that particular Hamachi network can find all the servers that runs in it.
That should solve the problem or searching for 'lobbies'.
Probably.

Here, I included an example of a chat server/client using DBPro native multiplayer commands. Please try to see what needs to be put in SET NET CONNECTION address data for the server to work over the internet

Attachments

Login to view attachments

Back to top

Profile PM

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 12th Jul 2016 19:04

Link

No you don't need a local client, it just demonstrates that both local and Internet can connect to same host at same time

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / My test server.exe always crashes. Any idea why? [MultiSync]

Attachments