anyone know how to use the udp/tcp commands?

BlitzMax Forums/BlitzMax Beginners Area/anyone know how to use the udp/tcp commands?

Nate the Great (Posted 2009) [#1]

Hi, well I was looking throught the online manual and there doesnt seem to be an example for any kind of networked program in bmax and they arent like the b3d commands so im kinda lost. Does anyone have a very simple chat program or somethin? BTW what is a Tsocket, all I know from the manual is its a socket which is???

Czar Flavius (Posted 2009) [#2]

DISCLAIMER: This is by no means an example of good code, or how you're "supposed" to do it, it's purely code I managed to hack together for my game, learning as I went along. But it may be of some use to you. The global values are set by interacting with the main menu, then init is called when the Go button is pressed. Each game "tick", wait_tick is called and the current tick number sent to make sure the games are at the same pace. (Problem with this - if one computer lags, the other computer freezes until the lag is gone). Then sync_commands is called to exchange the actions each player has made. (Problem with this code - the order in which commands are executed is different between clients. It's not a problem right now but could become one. I plan to replace it with a new system, where all commands are sent to the host, who then collects them and sends the entire package of all client commands to each client, so the order is the same. This would also help expand the code to more than two players) 'This BMX file was edited with BLIde ( <a href="http://www.blide.org" target="_blank">http://www.blide.org</a> ) Rem bbdoc:Undocumented type End Rem Type TNetwork Global hostport:TString, joinport:TString, ipstring:TString, hosting Global is_server Global socket:TSocket Global network_commands:TList Function init() socket = CreateTCPSocket(); is_server = hosting; If TNetwork.hosting Local test = BindSocket(socket, Int(hostport.value)); Assert test; SocketListen(socket); Local temp:TSocket; While Not temp temp = SocketAccept(socket); Wend socket = temp; Print "done"; TGame.game.this_player = TGame.game.players[1]; Else Local test = BindSocket(socket, Int(joinport.value)); Assert test; debugstop Local dotted:String = ipstring.value; Local d:Int[4]; d[0] = Int(dotted[0..dotted.Find(".")]); dotted=dotted.Replace(d[0]+".", ""); d[1] = Int(dotted[0..dotted.Find(".")]); dotted=dotted.Replace(d[1]+".", ""); d[2] = Int(dotted[0..dotted.Find(".")]); dotted=dotted.Replace(d[2]+".", ""); d[3] = Int(dotted); Print (d[0] + "."+d[1]+"."+d[2]+"."+d[3]); Assert (d[0] + "."+d[1]+"."+d[2]+"."+d[3]) = ipstring.value; Local ip = (16777216*d[0]) + (65536*d[1]) + (256*d[2]) + (d[3]) ConnectSocket(socket, ip, Int(hostport.value)); Assert SocketConnected(socket); TGame.game.this_player = TGame.game.players[2]; End If If is_server Local stream:TSocketStream = CreateSocketStream(socket); Local check = 123456; stream.WriteInt(check) Local seed = MilliSecs(); stream.WriteInt(seed); bah.random.SeedRnd(seed); Print seed; Else Local stream:TSocketStream = CreateSocketStream(socket); While Not stream.ReadInt() = 123456 Wend Local seed = stream.ReadInt(); bah.random.SeedRnd(seed); Print seed; End If End Function Function wait_tick(tick) Local stream:TSocketStream = CreateSocketStream(socket); stream.WriteInt(tick); While Not stream.ReadInt() = tick; Wend End Function Function sync_commands() Local stream:TSocketStream = CreateSocketStream(socket); Local command_list:TList = TGameCommand.command_list.Copy(); stream.WriteInt(command_list.Count()); While command_list.First() Local command:TGameCommand = TGameCommand(command_list.RemoveLast()); stream.WriteInt(command.cmd.id); Select command.cmd.id Case COLONIZE_COMMAND_ID Local temp:TGCColonize = TGCColonize(command.cmd); stream.WriteInt(temp.asteroid_id); stream.WriteInt(temp.player_id); stream.WriteInt(temp.scrubs); Case PLACEBUILDING_COMMAND_ID Local temp:TGCPlaceBuilding = TGCPlaceBuilding(command.cmd); stream.WriteInt(temp.asteroid_id); stream.WriteInt(temp.x); stream.WriteInt(temp.y); stream.WriteInt(temp.building_id); stream.WriteInt(temp.player_id); Case BULLDOZE_COMMAND_ID Local temp:TGCBulldoze = TGCBulldoze(command.cmd); stream.WriteInt(temp.asteroid_id); stream.WriteInt(temp.player_id); stream.WriteInt(temp.x); stream.WriteInt(temp.y); Case LAUNCHMISSILE_COMMAND_ID Local temp:TGCLaunchMissile = TGCLaunchMissile(command.cmd); stream.WriteInt(temp.missile_id) stream.WriteInt(temp.origin_id) stream.WriteInt(temp.target_id) stream.WriteInt(temp.rnd_chance) stream.WriteInt(temp.rnd_tile_hit) stream.WriteInt(temp.rnd_tile_miss) End Select Wend Local items = stream.ReadInt(); For Local i = 0 Until items Local id = stream.ReadInt(); Select id Case COLONIZE_COMMAND_ID Local a=stream.ReadInt(), p=stream.ReadInt(), s=stream.ReadInt(); TGameCommand.colonize(a, p, s); Case PLACEBUILDING_COMMAND_ID Local a=stream.ReadInt(), x=stream.ReadInt(), y=stream.ReadInt(), b=stream.ReadInt(), p=stream.ReadInt(); TGameCommand.place_building(a, x, y, b, p); Case BULLDOZE_COMMAND_ID Local a=stream.ReadInt(), p=stream.ReadInt(), x=stream.ReadInt(), y=stream.ReadInt(); TGameCommand.remove_building(a, p, x, y); Case LAUNCHMISSILE_COMMAND_ID Local m=stream.ReadInt(), o=stream.ReadInt(), t=stream.ReadInt(), c=stream.ReadInt(), h=stream.ReadInt(), miss=stream.ReadInt(); TGameCommand.launch_missile(m, o, t, c, h, miss); End Select Next stream.Flush() End Function End Type

Beaker (Posted 2009) [#3]

Might help a little: http://en.wikipedia.org/wiki/Internet_socket

Matt McFarland (Posted 2009) [#4]

It would be great to have a blitzmax tutorial on how to do this properly.