TheGameCreators - CodeBase - Code to connect client to server online Play

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 24th Nov 2010 16:50

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

This has a function for a server to start a game and the function for a client to join it.

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Heres the server function:

[code]

function StartTheGame()

set cursor 0,0

print "FINDING CONNECTION..."

sync

perform checklist for net connections

tcp_ip_connection = 0

for c = 1 to checklist quantity()

if checklist string$(c) = "Internet TCP/IP Connection For DirectPlay"

tcp_ip_connection = c

endif

next c

if tcp_ip_connection > 0 then exit

loop

print "CONNECTION FOUND"

print "CONNECTING..."

sync

set net connection 1, "INSERT IP ADRESS HERE"

print "CONNECTED"

print "CREATING GAME..."

sync

create net game "GAME NAME", "SERVER NAME", 255, 2

if net game exists() = 1 then exit

loop

print "GAME CREATED"

endfunction

[/code]

Heres the client function:

[code]

function ConnectToTheGame()

set cursor 0,0

print "FINDING CONNECTION..."

sync

perform checklist for net connections

tcp_ip_connection = 0

for c = 1 to checklist quantity()

if checklist string$(c) = "Internet TCP/IP Connection For DirectPlay"

tcp_ip_connection = c

endif

next c

if tcp_ip_connection > 0 then exit

loop

print "CONNECTION FOUND"

print "CONNECTING..."

sync

set net connection 1, "INSERT IP ADRESS HERE"

perform checklist for net sessions

if checklist quantity() = 1 then exit

loop

print "CONNECTED"

print "FINDING SESSION..."

sync

perform checklist for net sessions

if checklist quantity() > 0 then exit

loop

print "SESSION FOUND"

print "JOINING GAME..."

sync

join net game 1, "PLAYER NAME"

if net game exists() = 1 then exit

loop

print "GAME JOINED"

endfunction

[/code]

[note]

You have to insert the IP adress of the server where it says INSERT IP ADRESS HERE

CodeBase - Code to connect client to server online Play

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	2