; StopNetGame Example
; -------------------

; Host a game directly (2 = success)
status=HostNetGame("demo game")

If status=2 Then
    Print "Hosting 'demo game'"

    player=CreateNetPlayer("Host")
    Print "Player '"+NetPlayerName$(player)+"' is in the game"

    ; StopNetGame ends the network session; if other machines are
    ; connected, hosting is handed over to one of them
    StopNetGame
    Print ""
    Print "StopNetGame called - the session is over."
    Print "It is now safe to host or join a fresh game."
Else
    Print "HostNetGame returned "+status+" - could not host a game"
    Print "(network play may be unavailable on this machine)"
EndIf

Print ""
Print "Press any key to close the example"
WaitKey

End