Framework Vertex.BNetEx
Import BRL.System
Import BRL.Blitz
Import BRL.Retro
Import BRL.Math
Import BRL.Random
Import BRL.LinkedList
Import BRL.PolledInput
Import BRL.KeyCodes
Import BRL.Timer

Const SERVERPORT:Int = 8000

Global udpStream:TUDPStream = New TUDPStream
udpStream.Init()
udpStream.SetLocalPort(SERVERPORT)

If Not udpStream Then Notify "CreateUDPStream Failed!"; End

While Not AppTerminate()
	writeUDP()
Wend
udpStream.Close()
End

Function writeUDP()
	Repeat
		udpStream.WriteByte(1)
		'udpStream.SendMsg()
	Forever
End Function

Global recvIP,readAv,rByte

SeedRnd MilliSecs()
Global udpStream = CreateUDPStream(Rnd(100,8000))

Global ip = INT_IP("127.0.0.1")

While Not KeyHit(1)
	readUDP()
Wend
	CloseUDPStream(udpStream)
End

Function readUDP()
	recvIP = RecvUDPMsg(udpStream)
	If recvIP<>0 Then
		readAv = ReadAvail(udpStream)
		If readAv<>0 Then
			rByte = ReadByte(udpStream)
			Select rByte
				Case 1
					Print "Klappt!"
			End Select
		EndIf
	EndIf
End Function

Function INT_IP(IP$)
	a1=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
	a2=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
	a3=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
	a4=Int(IP$)
	 
	Return (a1 Shl 24) + (a2 Shl 16) + (a3 Shl 8 ) +a4
End Function