;Type wo die Clients mit ip,port und name drin gespeichert werden
Type client
Field name$
Field ip,port
End Type

port = 7142 ;Serverport
udp = CreateUDPStream(port) ;UDP Stream auf port 7142 erstellen

;Wenn der Stream nicht steht Fehlermeldung ausgeben und beenden
If Not udp Then
  Print "Der UDP Stream konnte nicht erstellt werden."
  End
EndIf

Print "Server gestartet."

Repeat

  If RecvUDPMsg(udp) <> 0  ;Wenn eine UDP Message eingegangen ist.
    client_ip = UDPMsgIP(udp)  ;IP des Absenders
    client_port = UDPMsgPort(udp) ;Port des Absenders

    message = ReadByte(udp)  ;Anhand von diesem Byte erkennt der Server was der Client will

    Select message
      ;1 = Chatmessage
      Case 1
        name$ = ReadString(udp) ;Wer sendet eine Chatmessage
        txt$ = ReadString(udp) ;Der Inhalt der Chatmessage
        Print name$ + ": " + txt$ ;Chatmessage auf dem Server ausgeben

        ;Nachricht an alle anderen Teilnehmer weitersenden
        For c.client = Each client  ;Jeden Client durchgehen
          If Not c\name$ = name$  ;Wenn es nicht der Client ist der gerade gesendet hat
            WriteByte(udp,1)  ;Nachrichtentyp 1 senden = Chatmessage
            WriteString(udp,name$) ;Name weiterleiten
            WriteString(udp,txt$) ;Inhalt weiterleiten
            SendUDPMsg udp,c\ip,c\port  ;UDP Message absenden
          EndIf
        Next

      ;Neuer Client ist dem Chat beigetreten
      Case 2
        name$ = ReadString(udp)  ;Name des Clients lesen
        c.client = New client  ;Neues client objekt erstellen
        c\ip = client_ip  ;Ip speichern
        c\port = client_port ;Port speichern
        c\name$ = name$  ;Name speichern

        ;Servernachricht ausgeben
        Print name$ + " ist dem Chat beigetreten."
       
        ;Allen anderen Clients bescheid sagen das ein neuer da ist.
        For c2.client = Each client
          If Not c2 = c
            WriteByte(udp,2)  ;Nachrichtentyp 2 senden = Client beigetreten
            WriteString(udp,name$)  ;Name weiterleiten
            SendUDPMsg udp,c2\ip,c2\port  ;UDP Message senden
          EndIf
        Next

      ;Client hat die Verbindung getrennt
      Case 3
        name$ = ReadString(udp) ;Clientname auslesen

        ;Client löschen und allen anderen Clients mitteilen
        For c.client = Each client
          If c\name$ = name$
            Delete c  ;Den Client löschen der die Nachricht gesendet hat
          Else
            WriteByte(udp,3)  ;Den anderen sagen das ein Client weg geht.
            WriteString(udp,name$) ;Name weiterleiten
            SendUDPMsg udp,c\ip,c\port ;UDP Message senden
          EndIf
        Next
 
        ;Servernachricht ausgeben
        Print name$ + " hat den Chat verlassen."

    End Select

  EndIf

Until KeyHit(1)

CloseUDPStream(udp) ;UDP Stream schliessen

End