Print "Verbindung wird erstellt..."
status = JoinNetGame("The Jan Game","")
If status = 0 Then
Print "Sie konnten dem Spiel nicht beitreten!"

status = HostNetGame("The Jan Game")
If status = 2 Then
Print "Sie sind der Host des Spieles!"
Else
Print "Es konnte keine Verbindung erstellt werden!"
EndIf
Else
Print "Sie sind dem Spiel erfolgreich beigetreten!"
EndIf


id = CreateNetPlayer ("Slapy" + Rand(1,999))
If id = 0 Then
Print "Sie konnten nicht erstellt werden!"
Else
Print "Sie wurden erfolgreich erstellt!"
Print "Ihre Id:" + id
EndIf
WaitKey