Graphics 320,200,16
SetBuffer = BackBuffer()

MyID=Rnd(10000,99999)
CurYText = 0
MPGS = 0
MyFont = LoadFont("Arial", 12)
NPLAYERS = 0

While Not KeyDown(1)
   
   ;Flip
   
   If CurYText > 15*12
      CurYText = 0
      FreeFont(MyFont)
      MyFont = LoadFont("Arial", 12)
   EndIf
   
   If KeyDown(36)
      If JoinNetGame("test","localhost") = 1
         MPGS = 1
         CreateNetPlayer("client" + MyID)
         NPLAYERS = NPLAYER+1
         SendNetMsg(100,"_WHOIS",MyID,0,1)
         SetFont MyFont
         Text 0,CurYText,"NetAktivity: game joined, sending WHOIS..."
         CurYText = CurYText + 12
      EndIf
   EndIf
   
   If KeyDown(35)
      If HostNetGame("test") = 2
         MPGS = 1
         CreateNetPlayer("host")
         NPLAYERS = NPLAYER+1
         SetFont MyFont
         Text 0,CurYText,"NetAktivity: game hosted."
         CurYText = CurYText + 12
      EndIf
   EndIf
   
   If KeyDown(47)
      SetFont MyFont
      Text 0,CurYText,"Debug: MPlayerGameStarted = " + MPGS
      CurYText = CurYText + 12
   EndIf
   
If MPGS <> 0

   If RecvNetMsg() Then
      msgFrom = NetMsgFrom()
      msgFromName$ = NetPlayerName(msgFrom)
      If NetMsgType() = 100
         CreateNetPlayer(msgFromName$)
         NPLAYERS = NPLAYER+1
         SendNetMsg(Rnd(1,99),"_IMHERE",MyID,msgFrom,1)
         SetFont MyFont
         Text 0,CurYText,"NetAktivity: " + msgFromName$ + " joined."
         CurYText = CurYText + 12
      EndIf
      If NetMsgData$() = "_IMHERE"
         CreateNetPlayer(msgFromName$)
         NPLAYERS = NPLAYER+1
         SetFont MyFont
         Text 0,CurYText,"NetAktivity: A player has been detected."
         CurYText = CurYText + 12
      EndIf
   EndIf

EndIf
   
Wend
StopNetGame()
End