spiel = StartNetGame()
spielername=Input("Dein Name?!")
spieler = CreateNetPlayer(spielername)
Repeat
var = RecvNetMsg()
If var=1 Then
   nachricht = NetMsgType()
   If nachricht >=1 And nachricht <=99 Then
      spieler_nummer = NetMsgFrom()
      spieler_name$ = NetPlayerName$(spieler_nummer)
      text$ = NetMsgData$()
      Print spieler_name$ + ": " + text$
   EndIf
EndIf

If KeyDown(59) Then
   senden$=Input("Nachricht pls.")
   SendNetMsg 20, senden$, spieler
EndIf





Until KeyHit(1)

StopNetGame

End

Graphics 800,600,32,2
Apptitle "Netzwerk Test"

NewGame = StartNetGame()
If NewGame = 0 Then
   Print "Konnte kein Netzwerkspiel starten"
   End
ElseIf NewGame=1
   Print "Netzwerk-Verbindung gelungen"
ElseIf NewGame=2
   Print "Netzwerkspiel erfolgreich gestartet"
EndIf


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

While Not KeyHit(1)

If RecvNetMsg() Then
   msgType=NetMsgType()
      If msgType>0 And msgType<100 Then
      Print NetPlayerName$ (NetMsgFrom())+": "+NetMsgData$()
   End If
End If

If KeyDown(59) Then
   SendNetMsg Rnd(1,99),Input(">"),PlayerID
EndIf

Wend

StopNetGame
End