NewGame = JoinNetGame("Chatting","0.0.0.0")
If NewGame = 0 Then
   Print "Konnte kein Netzwerkspiel starten"
   End
EndIf
If NewGame = 1
   Print "Netzwerk-Verbindung gelungen"
EndIf
If NewGame=2
   Print "Netzwerkspiel erfolgreich gestartet"
EndIf

Name$="Player" + Rand(100)
PlayerID=CreateNetPlayer(Name$)
If PlayerID=0 Then
   Print "Spieler konnte nicht erstellt werden"
Else
   Print "Player " + Name$ + " hat folgende ID-Nr:" + PlayerID
End If

WaitKey()
Print Chat
WaitKey
Repeat
a = 0
If RecvNetMsg() = 1 Then
If NetMsgType() = 100 Then
Print "Einer neuer Chatpartner"
a = 1
EndIf
If NetMsgType() = 101 Then
Print "Chatpartner verlassen"
a = 1
EndIf
spieler_nummer = NetMsgFrom()
spieler_name$ = NetPlayerName$(spieler_nummer)
nachricht$ = NetMsgData$()
If a = 0 Then
dienach$ = "Nachricht:" + spieler_name$ + " sagt " + nachricht$
Print dienach$
a = 1
EndIf
EndIf
Willsenden$ = Input("Tippe eine Chatnachricht ein: ")
SendNetMsg 1, Willsenden$, name2, spieler_nummer
Print Name$ + ":" + Willsenden$
Until KeyDown(1)
StopNetGame

Chat = HostNetGame("Chatting")
Name$ = Input("Dein Name: ")
Name = CreateNetPlayer(Name$)
Print Chat
WaitKey
Repeat
a = 0
If RecvNetMsg() = 1 Then
If NetMsgType() = 100 Then
Print "Einer neuer Chatpartner"
a = 1
EndIf
If NetMsgType() = 101 Then
Print "Chatpartner verlassen"
a = 1
EndIf
spieler_nummer = NetMsgFrom()
spieler_name$ = NetPlayerName$(spieler_nummer)
nachricht$ = NetMsgData$()
If a = 0 Then
dienach$ = "Nachricht:" + spieler_name$ + " sagt " + nachricht$
Print dienach$
a = 1
EndIf
EndIf
Willsenden$ = Input("Tippe eine Chatnachricht ein: ")
SendNetMsg 1, Willsenden$, name2, spieler_nummer
Print Name$ + ":" + Willsenden$
Until KeyDown(1)
StopNetGame
End