port=1000
name$="Server"
TCPTimeouts 100000,10000
game1=CreateTCPServer(port)

If game1<>0 Then
   Print "Server erfolgreich gestartet"
   Else
    Print "Server konnte nicht gestartet werden"
    End
EndIf

While Not KeyHit(1)

stream=AcceptTCPStream(game1)
If stream<>0 Then
   Exit
   Else
    Print "Warte auf Spieler..."
    Delay 1000
EndIf

Wend

Print "Client hat angebissen."
ip$=ReadString(stream)
name$=ReadString(stream)
Print "IP:"+ip$
Print "Name:"+name$

Repeat

game2=OpenTCPStream(ip$,port+1)
If game2<>0 Then
   Print "Verbindung 2 läuft."
   Exit
   Else
    Print "Warte auf Spieler..."
    Delay 1000
EndIf

Forever

window=CreateWindow("Chat",100,100,300,300,0,33)
listbox=CreateListBox(0,0,300,270,window)
AddGadgetItem listbox,"Chat gestartet."
textfield=CreateTextField(0,275,230,20,window)

Repeat

te$=ReadString(stream)
If te$<>"" Then AddGadgetItem listbox,te$
Select WaitEvent(100)
Case $401
Select EventSource()
Case textfield
If EventData()=13 Then
   WriteString game2,name$+" sagt: "+TextFieldText(textfield)
   AddGadgetItem listbox,"Du sagst: "+TextFieldText(textfield)
   SetGadgetText textfield,""
EndIf
End Select
Case $803
WriteString game2,"Spieler verlässt das Spiel."
CloseTCPStream game2
CloseTCPServer game1
End
End Select

Forever

count_ips = CountHostIPs("")
TCPTimeouts 10000,1000
For i=1 To count_ips
   ip_hier$=DottedIP$(HostIP(i))
   Print "Deine IP : "+ip_hier$
Next
name$=Input("Dein Name:")
ip_host$=Input("IP des Hosts:")

Repeat

game1=OpenTCPStream(ip_host$,1000)
If game1<>0 Then
   Print "Client erfolgreich verbunden"
   Exit
   Else
    Print "Konnte keine Verbindung herstellen"
EndIf

Forever

a=Input("IP und Name werden gesendet...Leitung 2 wird erstellt.")
Port=TCPStreamPort(game1)
Print "Port:"+port
game2=CreateTCPServer(port+1)
WriteString game1,ip_hier$
WriteString game1,name$

Repeat

stream=AcceptTCPStream(game2)
If stream<>0 Then
   Print "Verbindung 2 läuft."
   Exit
   Else
    Print "Warte auf Spieler..."
    Delay 1000
EndIf

Forever

window=CreateWindow("Chat",100,100,300,300,0,33)
listbox=CreateListBox(0,0,300,270,window)
AddGadgetItem listbox,"Chat gestartet."
textfield=CreateTextField(0,275,230,20,window)

Repeat

te$=ReadString(stream)
If te$<>"" Then AddGadgetItem listbox,te$
Select WaitEvent(1000)
Case $401
Select EventSource()
Case textfield
If EventData()=13 Then
   WriteString game1,name$+" sagt: "+TextFieldText(textfield)
   AddGadgetItem listbox,"Du sagst: "+TextFieldText(textfield)
   SetGadgetText textfield,""
EndIf
End Select
Case $803
WriteString game1,"Spieler verlässt das Spiel."
CloseTCPStream game1
CloseTCPServer game2
End
End Select

Forever