TheGameCreators - CodeBase - Multiplayer Example for Noobs

Return to the CodeBase listing

Category: Multiplayer

Version: 1.0

Information

Uploaded: 26th Oct 2008 19:06

Modified: 24th Jan 2009 17:59

Author: MSon

Summary

Basic program to demonstrate DarkBasics Multiplayer Commands

Full Description

Basic program to demonstrate DarkBasics Multilayer Commands This is a working example which is provided over 3 functions. Network_ConnectAsHost(GameName$,MyName$,MaxPlayers,NetworkType) Network_ConnectAsClient(ServerIP$,MyName$) Network_Update() you should ONLY alter the function called Network_Update() to suit your program. Run this programme once as server, While it is running, run it a second time as Client when it asks for the Servers IP Address enter "127.0.0.1", This will create a net connection to yourself to test this as both server as client. If you need any further help with this, then feel free to email me for help.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` -------------------------------------------

` DARKBASIC MULTIPLAYER EXAMPLE v1

` -------------------------------------------

` by Michael Mihalyfi, (MSon)

` Mihalyfi@Hotmail.co.uk

` -------------------------------------------

` Run this program once as server, While

` it is running, run it a second time as Client

` when it asks for the Servers IP Address

` enter "127.0.0.1", This will create a net

` connection to yourself to test this as both

` server as client.

` -------------------------------------------

sync on : sync rate 30 : set window on : Sync

` Step 1 : Connection --------------------------------------------------------

Input "Your Name: ",MyName$ : Print

Print "Press 1 to Connect As Host"

Print "Press 2 to Connect As Client"

Print : Repeat

If Inkey$() = "1" Then Mode = 1

If Inkey$() = "2" Then Mode = 2

Sync : Until Mode > 0

` ----------------------------------------------------------------------------

If Mode = 1 : ` Connect As Host

Print "Connecting As Host, Please Wait" : Print : Sync

n = Network_ConnectAsHost("Network QuickStart Example",MyName$,255,1)

EndIf

` ----------------------------------------------------------------------------

If Mode = 2 : ` Connect As Client

Input "Server IP: ",ServerIP$   : Print

Print "Connecting As Client, Please Wait" : Print : Sync

n = Network_ConnectAsClient(ServerIP$,MyName$)

EndIf

` ----------------------------------------------------------------------------

If n =  0 Then Print "Connected" : print ""

If n = -1 Then Print "No TCP/IP Port installed"  : Sync : Wait Key : End

If n = -2 Then Print "Session Not Found On Host" : Sync : Wait Key : End

` ----------------------------------------------------------------------------

` Step 2 : Retreaving Data ---------------------------------------------------

Network_Update()

Sync : Loop

` ----------------------------------------------------------------------------

Function Network_ConnectAsHost(GameName$,MyName$,MaxPlayers,NetworkType) : ` Do NOT Alter This Function

PERFORM CHECKLIST FOR NET CONNECTIONS

FOR x = 1 TO CHECKLIST QUANTITY()

IF LEFT$(CHECKLIST STRING$(x),15)="Internet TCP/IP" THEN TcpIpNumber = x

NEXT x : EMPTY CHECKLIST

IF TcpIpNumber = 0 Then ExitFunction -1 : ` No TCP/IP Port Found

SET NET CONNECTION TcpIpNumber," "

CREATE NET GAME GameName$,MyName$,MaxPlayers,NetworkType

EndFunction 0

Function Network_ConnectAsClient(ServerIP$,MyName$)                      : ` Do NOT Alter This Function

PERFORM CHECKLIST FOR NET CONNECTIONS

FOR x = 1 TO CHECKLIST QUANTITY()

IF LEFT$(CHECKLIST STRING$(x),15)="Internet TCP/IP" THEN TcpIpNumber = x

NEXT x : EMPTY CHECKLIST

IF TcpIpNumber = 0 Then ExitFunction -1 : ` No TCP/IP Port Found

SET NET CONNECTION TcpIpNumber,ServerIP$

PERFORM CHECKLIST FOR NET SESSIONS

IF CHECKLIST QUANTITY() = 0 Then ExitFunction -2 : ` Session Not Found

JOIN NET GAME 1,MyName$

EndFunction 0

Function Network_Update()                                                : ` Change this function to fit your programme

` Getting A Message

Get Net Message

If Net Message Exists() <> 0 : Message$ = Net Message String$()

If Left$(Message$,9) = "KEYPRESS:" Then Perform Checklist For Net Players : Print Checklist String$(Net Message Player From())+" is Pressing "+Right$(Message$,Len(Message$)-9) : Empty Checklist

EndIf

` Sending A Message

If Inkey$() <> "" Then Send Net Message String 0,"KEYPRESS:"+Inkey$()

` Useful Data

n = NET GAME LOST()        : If n = 1  Then Print "Connection To Server Lost" : Sync : Wait Key : End

n = NET PLAYER CREATED() : If n <> 0 Then Perform Checklist For Net Players : Print Checklist String$(n)+" Has Just Joined the Game" : Empty Checklist

n = NET PLAYER DESTROYED() : If n <> 0 Then Print "A Player Has Just Left The Game"

CodeBase - Multiplayer Example for Noobs

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	MSon
CodeBase Entries:	3