Graphics 640,480,24,2
SetBuffer BackBuffer()

Print \"1[HOST] or 2[CLIENT]\"
wahl = Input(\"-> \")
If(wahl = 1)
	spiel = HostNetGame(\"TestGame\")
EndIf
If(wahl = 2)
	spiel = JoinNetGame(\"TestGame\", \"127.0.0.1\")
EndIf

timer = CreateTimer(60)
name$ = Input(\"Name : \")
spieler = CreateNetPlayer(name)
spieler2 = 0

;Varis
p1_x = 10
p1_y = 10

p2_x = 10
p2_y = 10

Repeat
Cls;##################################

Rect p1_x,p1_y,20,20
Rect p2_x,p2_y,20,20

var = RecvNetMsg()
If(var = 1)
	nachricht_typ = NetMsgType()
	spieler_nummer = NetMsgFrom()
	spieler_name$ = NetPlayerName$(spieler_nummer)
	Select nachricht_typ
		Case 100
			Print spieler_name+\" Spieler hat das Spiel betreten\"
			spieler2 = spieler_nummer
		Case 101
			Print spieler_name+\" Spieler hat das Spiel verlassen\"
		Case 1
			nachricht$ = NetMsgData()
			For i = 1 To Len(nachricht)
				If Mid(nachricht$, i, 1) = \"|\"
					p2_x = Mid(nachricht$, 1, i-1)
					p2_y = Mid(nachricht$, i+1, -1)	
				EndIf
			Next
	End Select
EndIf


If KeyDown(200);OBEN
	p1_y = p1_y - 2
EndIf
If KeyDown(208);UNTEN
  p1_y = p1_y + 2
EndIf
If KeyDown(203);LINKS
	p1_x = p1_x - 2
EndIf
If KeyDown(205);RECHTS
	p1_x = p1_x + 2
EndIf

If KeyDown(200) Or KeyDown(208) Or KeyDown(205) Or KeyDown(203)
	SendNetMsg 1, p1_x+\"|\"+p1_y, spieler
EndIf	

WaitTimer(timer)
Flip;#################################
Until KeyHit(1)

StopNetGame