Can't start a server - GameCreators Forum

Author

Message

The Zoq2

16

Years of Service

User Offline

Joined: 4th Nov 2009

Location: Linköping, Sweden

Posted: 8th Mar 2011 20:04 Edited at: 8th Mar 2011 20:07

Link

Hi, im trying to create a server but it dosn't work.

Im following this tutorial

http://www.youtube.com/watch?v=QVDh49fw8TQ&feature=relmfu

It get's to the checklist quantity but then it fails

Here is the code i made

StartServer(TCPIPCheck())

Disable escapekey

do
  
  
  if escapekey() = 1
   free net game
   print "server closed"
   
   wait key
   end
  endif
  
loop

//****************************
//check for TCP/IP connections
//****************************
Function TCPIPCheck()
  
  print "Performing network connections checklist"
  perform checklist for net connections
  
  if checklist quantity() = 0
    print "no network conections"
    print "press any key to end"
    wait key
    end
  endif
  
  print "checklist completed, checking list for TCP/IP"
  
  NetOption$ = "error"
  
  for x = 1 to checklist quantity()
    if checklist string$(x)= "Internet TCP/IP Connection For DirectPlay"
      NetOption$ = str$(x)
      NetOption = x
    endif
  next x
  
  If NetOption$ = "error"
    print "TCP/IP not avalible"
    wait key
    end
  else
    print "checklist check complete, TCP/IP at slot number " + NetOption$
  endif
  
  
endfunction NetOption$

Function StartServer(NetOption$)
  Print "setting net connection"
  set net connection val(NetOption$), "127.0.0.1"
  
  Print "Starting server"
  create net game "Server1", "host", 2, 2
endfunction

+ Code Snippet

StartServer(TCPIPCheck())

Disable escapekey

do
  
  
  if escapekey() = 1
   free net game
   print "server closed"
   
   wait key
   end
  endif
  
loop

//****************************
//check for TCP/IP connections
//****************************
Function TCPIPCheck()
  
  print "Performing network connections checklist"
  perform checklist for net connections
  
  if checklist quantity() = 0
    print "no network conections"
    print "press any key to end"
    wait key
    end
  endif
  
  print "checklist completed, checking list for TCP/IP"
  
  NetOption$ = "error"
  
  for x = 1 to checklist quantity()
    if checklist string$(x)= "Internet TCP/IP Connection For DirectPlay"
      NetOption$ = str$(x)
      NetOption = x
    endif
  next x
  
  If NetOption$ = "error"
    print "TCP/IP not avalible"
    wait key
    end
  else
    print "checklist check complete, TCP/IP at slot number " + NetOption$
  endif
  
  
endfunction NetOption$


Function StartServer(NetOption$)
  Print "setting net connection"
  set net connection val(NetOption$), "127.0.0.1"
  
  Print "Starting server"
  create net game "Server1", "host", 2, 2
endfunction

Srry about my english im from sweeden

Back to top

Profile PM Email

The Zoq2

16

Years of Service

User Offline

Joined: 4th Nov 2009

Location: Linköping, Sweden

Posted: 9th Mar 2011 16:24

Link

I think i know what the problem is, When the program checks for "Internet TCP/IP Connection For DirectPlay" it can't find it since im using a swedish windows and the string is diffirent then. Unfortunley i have no way of testing it on an english windows and i have no idea what it shuld say on my version...

Srry about my english im from sweeden

Back to top

Profile PM Email

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 9th Mar 2011 21:28

Link

I can't give you a definitive fix, but hopefully this will help.

If you have my plug-ins, and your internet connection string contains the letters 'TCP/IP', then changing the line to something like this will work for you:

+ Code Snippet

    if instr(checklist string$(x), "TCP/IP") > 0

You can check if that's the case, by putting this line into the loop before that check:

+ Code Snippet

    print checklist string$(x)

Get the latest Matrix1Utility plug-ins (23-DEC-2010)

Back to top

Profile PM Email Website

The Zoq2

16

Years of Service

User Offline

Joined: 4th Nov 2009

Location: Linköping, Sweden

Posted: 9th Mar 2011 21:33

Link

Thanks but I found an other way, I printed all avalible options and picked the one that was called the correct thing. But now i can't seem to get the computers to communicate.

Here is my two codes for sending an reciving messages

Sever(reciving)

+ Code Snippet

If net message exists()
    get net message
    
    Message1=net message integer()
    message2=net message integer()
    
    Print "reciving message..."
  endif
  
  
  Print message1

Client(sending)

+ Code Snippet

DO
    print "in loop"
    
    If mouseclick()
      send net message integer 1,mousex()
      send net message integer 1,mousey()
    endif
Loop

Srry about my english im from sweeden

Back to top

Profile PM Email

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 9th Mar 2011 22:17

Link

Ok, but if you are using the swedish equivalent to the english string you used before, then you'll have the exact same problem when your program runs on a non-swedish version of windows.

On to your next problem - you are missing the fact that every SEND NET XXXX command you execute is an entire message, so if you send two integers, then your server needs to run GET NET MESSAGE twice, once for each integer it gets. Even then, you may miss a message, or receive them in the wrong order.

IMO, there are only two commands you should use to send messages - SEND MESSAGE STRING and SEND MESSAGE MEMBLOCK - all the others are useless.

Here's an example of sending mouse movement from one DBPro program to another:

sync off
sync rate 30

perform checklist for net connections
Connected = 0
for i = 1 to checklist quantity()
    if instr(checklist string$(i), "TCP/IP") > 0
        Connected = 1
        set net connection i, "127.0.0.1"
        exit
    endif
next
if Connected = 0 then report error "Unable to locate the TCP/IP connection"

PlayerNo = default net game("MultiplayerMouse", str$(timer()), 2, 1)

LastMouseClick = 0

do
   ` Determine if a message needs to be send (mouse movement)
   if mousemovex() <> 0 or mousemovey() <> 0 or mouseclick() <> LastMouseClick
      if mouseclick() = LastMouseClick
         ` No click, so send a straight mouse movement messages
         make memblock 1, 12
         write memblock dword 1, 0, 0
         write memblock dword 1, 4, mousex()
         write memblock dword 1, 8, mousey()
         send net message memblock 0, 1, 1
         delete memblock 1
      else
         ` Click change, so send a full mouse refresh
         make memblock 1, 16
         write memblock dword 1, 0, 1
         write memblock dword 1, 4, mousex()
         write memblock dword 1, 8, mousey()
         write memblock dword 1, 12, mouseclick()
         send net message memblock 0, 1, 1
         delete memblock 1
         LastMouseClick = mouseclick()
      endif
   endif

get net message
   while net message exists() <> 0
      ` Only take action on memblock messages
      if net message type() = 4
         net message memblock 1

select memblock dword(1, 0)
            case 0
               ` Received a mousemove event
               OtherMouseX = memblock dword(1, 4)
               OtherMouseY = memblock dword(1, 8)
            endcase
            case 1
               ` Received a full mouse refresh
               OtherMouseX = memblock dword(1, 4)
               OtherMouseY = memblock dword(1, 8)
               OtherMouseClick = memblock dword(1, 12)
            endcase
         endselect

delete memblock 1

endif
      get net message
   endwhile

cls
   text 0, 0, str$(OtherMouseX)
   text 0, 15, str$(OtherMouseY)
   text 0, 30, str$(OtherMouseClick)
   sync
loop

+ Code Snippet

sync off
sync rate 30

perform checklist for net connections
Connected = 0
for i = 1 to checklist quantity()
    if instr(checklist string$(i), "TCP/IP") > 0
        Connected = 1
        set net connection i, "127.0.0.1"
        exit
    endif
next
if Connected = 0 then report error "Unable to locate the TCP/IP connection"

PlayerNo = default net game("MultiplayerMouse", str$(timer()), 2, 1)

LastMouseClick = 0

do
   ` Determine if a message needs to be send (mouse movement)
   if mousemovex() <> 0 or mousemovey() <> 0 or mouseclick() <> LastMouseClick
      if mouseclick() = LastMouseClick
         ` No click, so send a straight mouse movement messages
         make memblock 1, 12
         write memblock dword 1, 0, 0
         write memblock dword 1, 4, mousex()
         write memblock dword 1, 8, mousey()
         send net message memblock 0, 1, 1
         delete memblock 1
      else
         ` Click change, so send a full mouse refresh
         make memblock 1, 16
         write memblock dword 1, 0, 1
         write memblock dword 1, 4, mousex()
         write memblock dword 1, 8, mousey()
         write memblock dword 1, 12, mouseclick()
         send net message memblock 0, 1, 1
         delete memblock 1
         LastMouseClick = mouseclick()
      endif
   endif

   get net message
   while net message exists() <> 0
      ` Only take action on memblock messages
      if net message type() = 4
         net message memblock 1

         select memblock dword(1, 0)
            case 0
               ` Received a mousemove event
               OtherMouseX = memblock dword(1, 4)
               OtherMouseY = memblock dword(1, 8)
            endcase
            case 1
               ` Received a full mouse refresh
               OtherMouseX = memblock dword(1, 4)
               OtherMouseY = memblock dword(1, 8)
               OtherMouseClick = memblock dword(1, 12)
            endcase
         endselect

         delete memblock 1

      endif
      get net message
   endwhile

   cls
   text 0, 0, str$(OtherMouseX)
   text 0, 15, str$(OtherMouseY)
   text 0, 30, str$(OtherMouseClick)
   sync
loop

This only uses memblocks, but you could also use strings for the same purpose, or instead use strings for messaging between players and keep memblocks for game data.

Get the latest Matrix1Utility plug-ins (23-DEC-2010)

Back to top

Profile PM Email Website

The Zoq2

16

Years of Service

User Offline

Joined: 4th Nov 2009

Location: Linköping, Sweden

Posted: 9th Mar 2011 22:44

Link

I have tried to send a single message to and it still didn't work...

And about the language thing, i know that will be a problem, but right now im only trying to make a small game to play with my friends.

Srry about my english im from sweeden

Back to top

Profile PM Email

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 9th Mar 2011 23:18

Link

Frankly, I don't see how I can help you further. 'Still doesn't work' doesn't help me to help you.

Try the program I provided and run two copies of it on the same machine. Study it to see how it works, then use what you learn to get your program working.

Get the latest Matrix1Utility plug-ins (23-DEC-2010)

Back to top

Profile PM Email Website

The Zoq2

16

Years of Service

User Offline

Joined: 4th Nov 2009

Location: Linköping, Sweden

Posted: 10th Mar 2011 00:12

Link

Ok, i will test it tomorrow.

What i meant was that when I only sent one message it didn't work.

Srry about my english im from sweeden

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Can't start a server