Type Player
   Field TCP_Stream
   Field Name$
End Type
AppTitle "Server"

Global tcp_Stream=CreateTCPServer(80)
Print "Versuche Verbindung aufzubauen"

If tcp_Stream=0
   RuntimeError "Server konnte nicht gestartet werden"
EndIf
Print "Verbindung steht"

While Not KeyHit(1)
   InputStream=AcceptTCPStream(tcp_Stream)
   If InputStream
      Request$=ReadString(InputStream)
      Select Request
      Case "Request_Connect"
         Name$=ReadString(InputStream)
         Print Request
         Print Name
         Found=False
         For p.Player=Each Player
            If p\Name=Name
               Found=True
               Exit
            EndIf
         Next
         If Found=True
            WriteString InputStream,"Refused"
         Else
            SendtoAll(Name+" ist beigetreten")
            WriteString InputStream,"Accepted"
            P.Player=New Player
            P\Name=Name
            P\TCP_Stream=InputStream
         EndIf
      End Select
   EndIf
Wend

CloseTCPServer(tcp_Stream)
End

Function SendtoAll(msg$)
   For p.Player=Each Player
      Print "sende an "+P\Name
      Print "mit "+P\TCP_Stream
      WriteString P\TCP_Stream,"Request_MSG"
      WriteString P\TCP_Stream,msg
   Next
End Function

AppTitle "Client"

Global Name$=Input("Dein Name>")
If Name="" Then Name=Str(Rand(100))+Str(Rand(100))+Str(Rand(100))
Print "versuche Verbindung aufzubauen"
Global tcp_Stream=OpenTCPStream("192.168.2.22",80);Ja ich weiß, dass das Lokal ist
If tcp_Stream=0
   RuntimeError "Server konnte nicht erreicht werden"
EndIf
Print "Verbindung steht"

WriteString tcp_Stream,"Request_Connect"
WriteString tcp_Stream,Name

While Not KeyHit(1)
   Request$=ReadString(tcp_Stream)
   If Request<>""
      Print Request
   EndIf
Wend
CloseTCPStream(tcp_Stream)
End

InputStream=AcceptTCPStream(tcp_Stream)
   If InputStream

Name$=ReadString(InputStream)
WriteString InputStream,"Accepted"
P.Player=New Player
P\Name=Name
P\TCP_Stream=InputStream

Function SendtoAll(msg$)
   For p.Player=Each Player
      Print "sende an "+P\Name
      Print "mit "+P\TCP_Stream
      WriteString P\TCP_Stream,"Request_MSG"
      WriteString P\TCP_Stream,msg
   Next
End Function