a=Input("Was willst du tun? 1.Spiel Hosten 2.Spiel Joinen")
 


If a=1

spiel = HostNetGame("Spiel")


Select spiel
Case 2
Print "Successfully started host game!"
Default
Print "Game was unable to start!"
End Select
;WaitKey()


ElseIf a=2

count_ips = CountHostIPs("")

For i=1 To count_ips
   Print "IP : "+" "+ DottedIP$( HostIP(i) )
Next


ip$=Input$("IP")

spiel = JoinNetGame("Spiel", ip$)

Select spiel
Case 1
Print "Joined the game successfully!"
Default
Print "Joining the game was unsuccessful."
End Select
;WaitKey()

EndIf



spieler = CreateNetPlayer("Name des Spielers")



; Loop and get status
While Not KeyHit(1)


If KeyHit(28)
SendNetMsg 1,"test",spieler,0
EndIf




; Check to see if we've received a message
If RecvNetMsg() Then

; if we did, let's figure out what type it is
; we know it will be a user message, though
msgType=NetMsgType()

; 1-99 means a user message
If msgType>0 And msgType<100 Then

; Let's see who the message was from
msgFrom=NetMsgFrom()

; Let's get the message!
msgData$=NetMsgData$()

; Print the message
Print msgData$

ElseIf msgType=100
Print "=   ein neuer Spieler ist dem Spiel beigetreten"

ElseIf msgType=101   
Print "=   ein Spieler hat das Netzwerkspiel verlassen"

ElseIf msgType=102   
Print "=   Der Host hat das Spiel verlassen und dieser Computer ist nun der neue Host"

ElseIf msgType=200   
Print "=   Ein Problem ist aufgetreten und das Netzwerkspiel muss beendet werden"

EndIf


End If


Wend
End