Dim plx(100)
Dim ply(100)

id=0

st = CreateUDPStream(8000)

While st>0 Or ende=1

   ip= RecvUDPMsg(st)
   
   If ip>0
   Print "Empfangen"
      Select ReadByte(st)
      Case 1
         WriteByte(st,id)
         Print(ip+" hat die Id:"+id)
         id=id+1
      Case 2
         iz=ReadByte(st)
         x=ReadByte(st)
         plx(iz)=x
      Case 2
         iu=ReadByte(st)
         y=ReadByte(st)
         plx(iu)=y
      
      
      End Select
   EndIf


If KeyHit(1) Then ende=1

Wend

id=0

st = CreateUDPStream(8000)
If st=0
Print "fehler":WaitKey():End()
EndIf
Print "conectet"

While Not KeyHit(1)
If a=0
WriteByte(st,1)
Print "gesendet"
a=1
EndIf
myid=ReadByte(st)


Wend

SendUDPMsg

Type client
Field ip$
Field id
End Type

cl.client=New client

p_read=8000
p_write=8001

s_read=CreateUDPStream(p_read)
s_write=CreateUDPStream(p_write)


While ende=0

IP = RecvUDPMsg(s_Read)

Select ReadInt(s_read)
Case 1

End Select


For cl=Each client
   If DottedIP(IP)=cl\ip$ Then ne=1


If ne=0
   cl.client=New client
   cl\ip$=DottedIP(IP)
   cl\id=id
   
      WriteInt(s_write,id)
      SendUDPMsg(s_write,cl\ip$)
   id=id+1
   ne=1
   Print id+" wurde Registriert"
   

For cl=Each client
   If Not cl\ip$=DottedIP(IP)
      WriteInt(s_write,id)
      SendUDPMsg(s_write,cl\ip$)
      idd=id-1
      Print "Der ip:"+cl\ip$+" wurde die id:"+idd+" gesendet"
   EndIf   
Next
   
EndIf
Next




Wend