Blitzmax network library?

BlitzMax Forums/BlitzMax Programming/Blitzmax network library?

gameproducer

(Posted 2005) [#1]

Has anyone tried blitzmax network capabilities? Making perhaps small ping pong network code or something?

Are there anything similar to gnet system or easy-to-use network library? (I would like to see SurreaL port his BlitzPlay network library to bmax :) but as that is not available, I'd like to know what kind of network capabilities Bmax offers)

Bremer

(Posted 2005) [#2]

Vertex is working on a network lib of sorts:

http://www.blitzbasic.com/Community/posts.php?topic=43533

Tibit

(Posted 2005) [#3]

I'm working on a network library. The basics works fine right now. I'm impending the auto-sync routines (which proved to be more complex than I thought).

Anyway to host/join Ping send/reveice messages is working perfect. I've made a chat and a ping-pong so far, the action game is still in test phase. Reliable and ordered UDP is not in yet. I'll wait a little with that. The website for TNet is not up yet. I'll announce it when I need to test it on real over the internet and in big scale.

Vertex is the founder of BNet which I base my library on! It Mimics the network functions of original Blitz.

I'm not going to say anything negative about BlitzPlay, but expect my Library to be MUCH easier to include into your code <-> game and to get multiplayer up and running in an effective and streamlined way.

Not that you asked for it but here is a fully working example (using TNet as module):


Strict 

Local WantToHost = Int( Input("To Host Press 1, ENTER to Join ") )'

If WantToHost = 1 
	Host( 22233 ) '22233 = HostPort
	Print "You are the Host!"
	Print "Let people connect to your IP: "+TnetHost.String_IP$
Else 
	Local IPofHost$ = Input("Enter IP of Host (Enter for local): ") 
	If IPofHost$ = "" IPofHost$ = "127.0.0.1"'IPofHost$
	If JoinStart( "127.0.0.1", 22233 ) = False Then End
	'				  IP	 HostPort 
EndIf

Local SendTime = MilliSecs() +8000

'Main-Loop
While Not KeyDown(Key_Escape)

	UpdateTNet()
	
	If NewPlayer() 'TNet.ID = New player ID
		Print "Player Connected! (ID = "+TNet.ID+")" 'Send a message back
		SendUDP( 5 , "Welcome to our new Network application!" , TNet.ID )
		'The aboce SendUDP only sends this msg to TNet.ID (the new player) 
	EndIf
	
	'See if we have any message of the Type 5
	If GetQuickMsg(  5    )
		Print "MSG>> "+TNet.Data+" - FromID: "+TNet.ID	
		TNetPing.SendPing( 1 ); Print "Latency to Host: "+TNetHost.Latency
                'Above: Sends ping and display avg ping
	EndIf
	
	If SendTime < MilliSecs()' Auto Send
		Local Msg$ = "Text from Me: "+My.Net_ID+". My time since start is: "+String( TimeSinceConnect() )
		SendUDP( 5 , Msg$ )'Send To All
		SendTime = MilliSecs() + 100
	EndIf
	
Wend

ETA - another week