Global Message$
Global Nick$="bruce85"

Print "[1] Chat erstellen"
Print "[2] Chat beitreten"

wahl = Input("Wahl: ")

;--- Server ---
If wahl = 1 Then
  Server = CreateTCPServer(8000)
  If Server <> 0 Then
    Color 0,128,0
    Print "Server erfolgreich erestellt!"
  Else
    Color 128,0,0
    Print "Fehler beim erstellen des Servers!"
  EndIf
EndIf

;--- Client ---
If wahl = 2 Then
  Stream = OpenTCPStream("127.0.0.1",8000)
  If Stream <> 0 Then
    Color 0,128,0
    Print "Erfolgreich zum Server verbunden!"
  Else
    Color 128,0,0
    Print "Fehler bei der Verbindung zum Server!"
  EndIf
  WriteByte Stream,1
  WriteString Stream,Nick$
EndIf

While Not KeyHit(1)

  ;--- Server ---
  If wahl = 1 Then
    Stream = AcceptTCPStream(Server)
    If Stream Then
      While ReadAvail(Stream)
        action = ReadByte(Stream)
        Select action
          Case 1
            Color 107,200,255
            Print Nick$ + " ist dem Chat beigetreten."
          Case 2
            Color 107,100,200
            Print Nick$ + ": " + Message$
        End Select
      Wend
    EndIf
    Message$ = Input(Nick$+": ")
    If KeyHit(28) Then
      WriteByte Stream,2
      WriteString Stream,Message$
    EndIf
  EndIf

  ;--- Client ---
  If wahl = 2 Then
    While ReadAvail(Stream)
      action = ReadByte(Stream)
      Select action
        Case 2
          Color 107,100,200
          Print Nick$ + ": " + Message$
      End Select
    Wend
    Message$ = Input(Nick$+": ")
    If KeyHit(28) Then
      WriteByte Stream,2
      WriteString Stream,Message$
    EndIf
  EndIf

Wend