;!Netzwerk!
	;Abfragen
	If read_milli < MilliSecs() Then
		readsvr = RecvUDPMsg(svr)
		If readsvr <> 0 Then
			readav = ReadAvail(svr)
			If readav <> 0 Then
				rbyte = ReadByte(svr)
				Select rbyte
					Case 1
                  ;Player-Online
						p.Player = New Player
						p\ip = ReadInt(svr)
						p\port = ReadInt(svr)
						p\NameS = ReadString(svr)
						p\model = LoadMesh("models\veh\jeep\chassis.3DS")
						ScaleMesh p\model,0.1,0.1,0.1
					Case 2
                  ;Player-Offline
						rIp = ReadInt(svr)
						port = ReadInt(svr)
						For p.Player = Each Player
							If p\ip = rIp And p\port = port Then
								FreeEntity p\model 
								Delete p
							End If
						Next
					Case 3
					;Liest Coordinaten ab	
						rIp = ReadInt(svr)
						port = ReadInt(svr)
						For p.Player = Each Player
							If p\ip = rIp And p\port = port Then
								p\x# = ReadFloat(svr)
								p\y# = ReadFloat(svr)
								p\z# = ReadFloat(svr)
								p\NameS = ReadString(svr)
							End If
						Next
				End Select
				
			End If
		End If
	End If
	For p.Player = Each Player
		PositionEntity  p\model,p\x#,p\y#,p\z#
	Next
    ;Sendet an Server
	If send_milli < MilliSecs() Then
		WriteByte svr,3
		WriteFloat svr,EntityX(Body_Mesh)
		WriteFloat svr,EntityY(Body_Mesh)
		WriteFloat svr,EntityZ(Body_Mesh)
		WriteString svr,Name$
		
		SendUDPMsg svr,Ip,8767
		send_milli = MilliSecs()+32
	End If

;read
	If read_milli < MilliSecs() Then
	readsvr = RecvUDPMsg(svr)
		If readsvr <> 0 Then
			readav = ReadAvail(svr)
			If readav <> 0 Then
				port = UDPMsgPort(svr)
				ip = UDPMsgIP(svr)   
				rbyte = ReadByte(svr)
				Select rbyte
					Case 1
						For p.Player = Each Player
							WriteByte svr,1
							WriteInt svr,ip
							WriteInt svr,port
							WriteString svr,NameS
							SendUDPMsg svr,p\ip,p\port
							WriteByte svr,1
							WriteInt svr,p\ip
							WriteInt svr,p\port
							WriteString svr,p\NameS
							SendUDPMsg svr,ip,port
						Next
						p.Player = New Player
						p\ip$ = ip
						p\port = port
						p\NameS = ReadString(svr)
						Print "Player: "+p\NameS+" connected...."
						
						stream = WriteFile("log.txt") 
						WriteString stream, Str("Player: "+p\NameS+" connected....")
						CloseFile(stream) 
					Case 2
						For p.Player = Each Player
							If ip = p\ip And port = p\port Then
								Delete p
							End If
						Next
						For p.Player = Each Player
							WriteByte svr,2
							WriteInt svr,ip
							WriteInt svr,port
							SendUDPMsg svr,p\ip,p\port
						Next
						Print "Player Disconnected..."
					Case 3
						For p.Player = Each Player
							If p\port = port And p\ip = ip Then
								p\x = ReadFloat(svr)
								p\y = ReadFloat(svr)
								p\z = ReadFloat(svr)
								
								fileout = WriteFile ("mydata.dat")
								WriteInt  fileout,p\x
								WriteInt  fileout,p\y
								WriteInt  fileout,p\z
								CloseFile fileout
								
								p\NameS = ReadString(svr)
							End If
						Next
				End Select
				
			End If
		End If
	End If
	
;sende an alle
	If send_milli < MilliSecs() Then
		For s.Player = Each Player
			For p.Player = Each Player
				If p\ip <> s\ip Then
					WriteByte svr,3
					WriteInt svr,s\ip
					WriteInt svr,s\port
					WriteFloat svr,s\x
					WriteFloat svr,s\y
					WriteFloat svr,s\z
					WriteString svr, s\NameS
					SendUDPMsg svr,p\ip,p\port
				End If
			Next
		Next
		send_milli = MilliSecs()+32
	End If
Wend