Problems with variables

BlitzMax Forums/BlitzMax Programming/Problems with variables

daqx	(Posted 2005) [#1]

Hi,

I know the title doesn't match the problem perfectly, sorry ;)

Ok. I'm trying to get informations about a HL2 game server with BMax and the bnet module. To receive the informations, I have to send a request with the following content:

UINT32 0xFFFFFFFF
BYTE 0x54

My code looks like this:

WriteInt STREAM,$FFFFFFFF
WriteByte STREAM,$054
SendUDPMsg(STREAM,ServerIP,ServerPort)

But I'm not getting any response from the server. I guess the server just doesn't understand my request. How can I send 0xFFFFFFFF and 0x54 to the server?

Thanks

badger

daqx	(Posted 2005) [#2]

Just re-typed the code and this works? Straaaange ;)

Regular K

(Posted 2005) [#3]

Im interested in how you figured out how to communicate with the HL2 master server?

Can you direct me to any links that may help me with also doing so? (im interested in this :D)

Perturbatio

(Posted 2005) [#4]

try WriteLong instead of writeInt, a BMax Int is 32bit signed (a long is 64bit signed)

CoderLaureate

(Posted 2005) [#5]

Where can I get this BNet module?

Perturbatio

(Posted 2005) [#6]

http://vertex.art-fx.org/bnet.zip

Vertex

(Posted 2005) [#7]

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