UDP Multiplayer

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

KillerX

I have gotten it working. Thanks for your help. The mistake other than the IP adress was the port I was sending it to. I was sending it to the port number of the sending stream instead of the port of the redeiving stream. Here is the working code:

Global NumberofPlayers = Input("How many players are there?")
Dim IPAdress(NumberofPlayers)
IPAdress%(1) = $c0a80065
Variable$ = "Hello World!"
Stream% = CreateUDPStream(828)
NewStream% = CreateUDPStream(79)
WriteString(Stream,Variable)
Broadcast(Stream,79)
.reread;This is so it will re-receive the Data If the First RecvUDPMsg failed
RecvUDPMsg(NewStream)
String1$ = ReadString$(NewStream)
If String1 = 0 Goto reread
Print String1
string1 = 0
WaitKey
End


Function Broadcast(Message,Port);Message is the stream that is being broadcasted.  Port is the Destination Port.
For Loop = 1 To NumberofPlayers
SendUDPMsg Message,IPAdress(Loop),Port

Next
End Function