For the bb.com board:
Local UDP:TUDPStream
Local Temp:String
Local Char:Byte
UDP = CreateUDPStream()
WriteInt UDP, $FFFFFFFF
WriteByte UDP, $54
SendUDPMsg UDP, IntIP("62.4.74.236"), 30900
Repeat
If RecvUDPMsg(UDP) Then
Print "OK: "+Hex(Readint(UDP))
Print "Controllbyte: "+Chr(ReadByte(UDP))
Print "Protocollversion: "+ReadByte(UDP)
Repeat
Char = ReadByte(UDP)
If Char = 0 Then Exit
Temp :+ Chr(Char)
Forever
Print "Servername: "+Temp
Temp = ""
Repeat
Char = ReadByte(UDP)
If Char = 0 Then Exit
Temp :+ Chr(Char)
Forever
Print "Mapname: "+Temp
Temp = ""
Repeat
Char = ReadByte(UDP)
If Char = 0 Then Exit
Temp :+ Chr(Char)
Forever
Print "Gamepath: "+Temp
Temp = ""
Repeat
Char = ReadByte(UDP)
If Char = 0 Then Exit
Temp :+ Chr(Char)
Forever
Print "Gamename: "+Temp
Print "ApplicationID: "+ReadShort(UDP)
Print "Playercount: "+ReadByte(UDP)
Print "Max Playercount : "+ReadByte(UDP)
Print "Botcount : "+ReadByte(UDP)
Print "Dedicated: "+Chr(ReadByte(UDP))
Print "OperatingSystem: "+Chr(ReadByte(UDP))
Print "Password: "+ReadByte(UDP)
Print "Secure Valve Anti Cheat active?: "+ReadByte(UDP)
Exit
EndIf
Forever
CloseUDPStream(UDP)
End
cu olli
|