[bb] BlitzLobby example program by skidracer [ 1+ years ago ]

BlitzBot · June 29, 2017, 00:28:40

Title : BlitzLobby example program
Author : skidracer
Posted : 1+ years ago

Description : Requires beta release of BlitzLobby userlib:

www.nitrologic.net/simon/blitzlobby.zip

The following is a BlitzPlus example of using the BlitzLobby userlib.

BlitzLobby allows you to register and launch your multiplayer game from DXLobby hosts such as MSN Messenger.

Don't forget -

- set guid$ to a unique 16 character string
- set appexe$ to the name of your application
- set appname$ to the name you want your app registerred as

Warning: run from compiled .exe not from IDE.

Code :

Code (blitzbasic) Select

; mylobby
; blitzplus example code for using blitzlobby userlib
; by simon@nitrologic.net
; download lib from http://www.nitrologic.net/simon/blitzlobby.zip

; modify following for your application
; create .exe and run from windows 
; on first run your program will be registerred 
; warning - IDE launch will fail due to bad SystemProperty("appdir")
; once registerred launch your app from a DXLobby host such as MSN Messenger
; on launch from lobby LobbyInit will return either host or server status

; warning primitive chat program follows (won't see incoming message until you send a message)

appname$="MyLobby"
appexe$="mylobby.exe"
guid$="0123456789ABCDEF"

port=2323

status=LobbyInit()

If status=0
	appdir$=SystemProperty("appdir")
	res=LobbyRegister(guid,appname,"version of card game",appexe,appdir)
	Notify("Regisetered "+appname+Chr$(10)+appdir+appexe+Chr$(10)+"Now available for launch from MSN Messenger")
	End
EndIf

Notify "Lobby Launch Detected using port "+port

Print "lobbyplayer="+LobbyPlayer$()
Print "lobbyhost="+LobbyHost$()
Print "lobbycount="+LobbyCount()
For i=1 To LobbyCount()
	Print "lobbyip["+i+"]="+LobbyIP(i-1)
Next

If status=1
	Print "You are server!"
	server=CreateTCPServer(port) 
	If (server=0) Notify("CreateServer Failed"):End
	While True
		stream=AcceptTCPStream(server) 
		If (stream<>0) Exit
		Delay 10
	Wend	
	Print "Got Connection!"
	WriteLine stream,"Hello From Server"
	chat(stream)
Else
	Print "You are client!"
	While (True)
		stream=OpenTCPStream(LobbyHost$(),port) 
		If stream<>0 Exit
		Print "."
		Delay 50
	Wend
;		If stream=0 Notify"OpenTCPStream Failed":End
	WriteLine stream,"Hello From Client"
	chat(stream)
EndIf

Print "Program Finished, Hit return to continue"
Input
End

Function chat(stream)
	While True
		a$=Input$(">")
		If a$="quit" Return
		WriteLine stream,a$
		If ReadAvail(stream) 
			m$=ReadLine(stream)
			Print m$
		EndIf
	Wend
End Function

Comments :

skidracer(Posted 1+ years ago)

This is only beta so please don't expect an easy ride and apologies for the extremely primitive chat code. Any help would be appreciated in getting this system into a releaseable state.

SyntaxBomb - Indie Coders

[bb] BlitzLobby example program by skidracer [ 1+ years ago ]

BlitzBot