; Ermittelt die Auflösung des Desktops
DBreite = ClientWidth (Desktop())
DHoehe  = ClientHeight (Desktop())


; Erstellt das Chat Hauptfenster
CF             = CreateWindow ("Chat"      ,DBreite/3,DHoehe/3,500,300,0,49)


; Erstellt die Buttons
IPButton        = CreateButton ("IP-Adresse"   ,  0,130,100, 20,CF,1)
Einstellungen   = CreateButton ("Mein Name"      ,  0,150,100, 20,CF,1)
NotAus          = CreateButton ("Not Aus"      ,100,130,300, 40,CF,1)
Senden          = CreateButton ("Senden"      ,400,130, 90, 40,CF,1)
Seite           = CreateButton (""            ,490,  0, 10,302,CF,1)


; Textfelder erstellen
ankommend = CreateTextArea (0,  0,490,130,CF,1)
ausgehend = CreateTextArea (0,170,490,130,CF,1)
;DisableGadget ankommend


; Variablen
Global Tiefer2x$ = Chr$(13)+Chr$(10)+Chr$(13)+Chr$(10)
Const Port = 90


; Server erstellen
Server = CreateTCPServer (Port)      ;erstellt den Server damit ich nachrichten empfangen kann
If Server = 0 Then AddTextAreaText ankommend,"Server konnte nicht erstellt werden..." Else AddTextAreaText ankommend,"Server erfolgreich erstellt..."





; Hauptschleife
Repeat

; ausgehenden Daten aus dem ausgehendem Textfeld
VersandDaten$ = TextAreaText (ausgehend)


; stellt die emfpangenen Daten dar
Antwort$ = AcceptTCPStream (Server)

If Antwort$ Then
   AddTextAreaText ankommend, ReadString$ (Antwort$)
   Antwort$ = 0         
EndIf


; zum schließen auf oben rechts X
If WaitEvent()=$803 Then
   CloseTCPServer Server
   End
EndIf


; dient der Auswahl der Buttons      
Select EventSource()         
   Case NotAus
      CloseTCPServer Server
      End
   
   Case Senden   
      If IP$ <> "" Or "0" Then   ;für Fehlermeldung, wenn keine IP adresse eingegeben wurde
      
         Client = OpenTCPStream (IP$,Port)   ;prüft ob verbindung hergestellt ist, und sendet wenn text vorhanden ist
         If Client <> 0 Then
            WriteString Client,Tiefer2x$ + MeinName$+ " --> " + VersandDaten$
            AddTextAreaText ankommend,Tiefer2x$ + MeinName$+ " --> " + VersandDaten$
            SetGadgetText ausgehend,""
            CloseTCPStream Client
         Else AddTextAreaText ankommend,Tiefer2x$ + "Nachricht konnte nicht versand werden!" +Chr$(13)+Chr$(10) + "Es konnte keine Verbindung aufgebaut werden!"
         EndIf
      Else AddTextAreaText ankommend,Tiefer2x$ + "Nachricht konnte nicht versand werden!" +Chr$(13)+Chr$(10) + "Es konnte keine Verbindung aufgebaut werden!"
      EndIf    
      
   Case Einstellungen
      MeinName$ = VersandDaten$
      SetGadgetText ausgehend,""
      AddTextAreaText ankommend,Tiefer2x$ + "Dein Name wurde zu: "+MeinName$+" geändert..."
      
   Case IPButton
      IP$ = VersandDaten$
      SetGadgetText ausgehend,""
      AddTextAreaText ankommend,Tiefer2x$ + "Neue IP-Adresse eingestellt (" + IP$ + ")"
      
End Select

Forever

tm = CreateTimer(60)
;...
If PeekEvent() > 0
  Event = WaitEvent()
  ;...
EndIf

;am ende (vor Until)
WaitTimer tm

If PeekEvent() > 0 Then
   If WaitEvent()=$803 Then
       CloseTCPServer Server
       End
   EndIf
EndIf