Type player
Field alles!!!xD
End Type

Graphics 600,600
stream = CreateUDPStream(8000)

While Not KeyHit(1)

ip= RecvUDPMsg(stream)
If ip<>0 Then

While ReadAvail(stream)

byte$=ReadString$(stream) ;(byte$="Play Spieler2")<--das stimmt =)

Print byte$

If nwort$(byte$, 1)="Play";erstes wort(Play
Name$=nwort$(byte$, 2);zweites wort(Spieler

For P.player=Each player
If Name$<> P\id$ Then
P.player=New player
P\id$=Name$
P\recv=ip
EndIf
Next
EndIf

For P.player=Each player
Print DottedIP(P\recv)
WriteString(stream,byte$)
SendUDPMsg stream,P\recv,800
Next

Wend
EndIf
Flip
Wend



Function nwort$(byte$, wort)
If wort < 1 Then Return ""
trenn$ = " " ;<-- Trennzeichen
byte$ = byte$ + trenn$
w = 0
pos = 1
While w < wort And pos > 0
While Mid$(byte$, pos, 1) = trenn$
pos = pos + 1
Wend
x = pos
y = Instr(byte$, trenn$, pos)
pos = y
w = w + 1
Wend
Return Mid$(byte$, x, y - x)
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