Global name$
Global udp
Global s_ip
Global host
timer=CreateTimer(50)

name$=Input("Bitte deinen namen eingeben: ")
host=Input("Spiel Hosten(1) oder als Client(0) teilnehmen? ")

If host=1
   udp=CreateUDPStream(8000)
   If udp=0 Then RuntimeError "Stream konnte nicht erstellt werden!"
Else
   xx_ip$=Input("Bitte serverip eingeben: ")
   s_ip=INT_IP(xx_ip$)
EndIf


Repeat
   
   
   Select host
      Case 1
         udpempfang()
      Case 0
         login();client only
   End Select
   WaitTimer(timer)
   
Until KeyHit(1)

Function udpempfang() ;mausbewegung fehlt noch
   If RecvUDPMsg(udp)<>0 Then
      wert=ReadByte(udp)
      
      t_ip=UDPMsgIP(udp)
      t_port=UDPMsgPort(udp)
      
      Select wert
         Case 5
            
            udp_name$=ReadString(udp)
            
            WriteByte udp,100
            SendUDPMsg udp,t_ip,t_port
            
            Print udp_name$
      End Select
   EndIf
End Function


Function login()
   udp=CreateUDPStream()
   If udp=0 Then RuntimeError "Stream konnte nicht erstellt werden!"
   
   WriteByte udp,5
   WriteString udp,name$
   
   SendUDPMsg udp,s_ip,8000
   
   Repeat
      
      If RecvUDPMsg(udp) <>0 Then
         DebugLog "hhh"
         x=ReadByte(udp)
         Print x
      EndIf
   Until Not KeyHit(1)
   
   
End Function


Function INT_IP(ip$);aus dem codearchiv kopiert!
   p1=Instr(ip$,"."):p2=Instr(ip$,".",p1+1):p3=Instr(ip$,".",p2+1)
   Return (Int(Mid(ip$,1,p1))*16777216)+(Int(Mid(ip$,p1+1,p2-p1))*65536)+(Int(Mid(ip$,p2+1,p3-p2))*256)+Int(Mid(ip$,p3+1,-1))
End Function