;--- Server ... kann bisjetzt nur 1 sache und zwar Nachrichten empfangen und verteilen ...
Graphics 640,480,16,2
SetBuffer BackBuffer()

Type client
	Field port,ip
	Field name$
End Type

udp = CreateUDPStream(3333)

Repeat
	Cls
	
	If RecvUDPMsg(udp) <> 0 Then
		client_ip = UDPMsgIP(udp)
		client_port = UDPMsgPort(udp)
		
		message=ReadByte(udp)
	EndIf
	
	Select message
		Case 1
			name$ = ReadString(udp)
			txt$ = ReadString(udp)
			
			For c.client = Each client
				If Not c\name$ = name$ Then
					WriteByte(udp,1)
					WriteString(udp,name$)
					WriteString(udp,txt$)
					SendUDPMsg udp,c\ip,c\port
				EndIf
			Next
			
			Print name$ + " : " + txt$
	End Select 
	
	Flip
	
Until KeyHit(1)
CloseUDPStream(udp)
End

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

Type client
	Field name$
End Type

server_ip$ = "127.0.0.1"
server_port = 3333
client_name$=Input()

udp=CreateUDPStream()

If Not udp Then
	Print "keine Verbindung zum Server."
	WaitKey
	End
EndIf

Repeat 
	Cls
		ShowEnemy()
		ShowMyShip()
	Flip
Until KeyHit(1)

Function PrintCoor()
	WriteByte(udp,1)
	WriteString(udp,client_name$)
	WriteString(udp,x+":"+y)
	SendUDPMsg udp,Int_IP(server_ip$),server_port
End Function

Function ShowEnemy()
	If RecvUDPMsg(udp) <> 0 Then
		name$ = ReadString(udp)
		txt$ = ReadString(udp)
		
		p1 = Instr(txt$,":")
		vorne$ = Left$(txt$,p1-1)
		hinten$ = Right$(txt$,p1+1)
		Color 255,140,0
		Rect vorne$,hinten$,100,50,1
	EndIf
End Function

Function ShowMyShip()
	If MouseHit(1) Then
		x=MouseX()
		y=MouseY()
		Color 255,140,140
		Rect x,y,100,50,1
	EndIf
End Function	

Function INT_IP(IP$)
  a1=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
  a2=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
  a3=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
  a4=Int(IP$)
   
  Return (a1 Shl 24) + (a2 Shl 16) + (a3 Shl 8 ) +a4
End Function

Global client_ip,client_port
Global message
Global server_port = 7134
Global server_port2 = 7135
Global udp = CreateUDPStream(server_port)
Global udp2 = CreateUDPStream(server_port2)

Type client
	Field port,ip
	Field name$
End Type



If Not udp Then
	Print "Ging nicht.."
EndIf

Print "Server gestartet..."
Repeat

	If RecvUDPMsg(udp) <> 0 Then
		client_ip = UDPMsgIP(udp)
		client_port = UDPMsgPort(udp)
		
		message=ReadByte(udp)
	EndIf
	
	Select message
		Case 1
			name$ = ReadString(udp)
			txt$ = ReadString(udp)
			
			For c.client = Each client
				;If Not c\name$ = name$ Then
					WriteByte(udp2,1)
					WriteString(udp2,name$)
					WriteString(udp2,txt$)
					SendUDPMsg udp2,c\ip,c\port

				;EndIf
			Next
			
			Print name$ + " : " + txt$
			
	End Select 
	Delay 1	;ich weiß das da eig. waittimer kommen sollte...
Until KeyHit(1)
CloseUDPStream(udp)
End

Graphics 240,120,16,2
SetBuffer BackBuffer()

Type client
	Field name$
End Type

Global server_ip$ = "127.0.0.1"
Global server_port = 7134
Global server_port2 = 7135

Global client_name$=Input()

Global udp2=CreateUDPStream()
Global udp=CreateUDPStream()
Global x,y
Global txt$
Global name$
Global message

If Not udp Then
	Print "Keine Verbindung zum Server."
	WaitKey
	End
EndIf

Repeat 
	Cls
		ShowMyShip()
		ShowEnemy()
		PrintCoor()
		Delay 1
	Flip
Until KeyHit(1)

Function PrintCoor()
	WriteByte(udp,1)
	WriteString(udp,client_name$)
	WriteString(udp,x)
	SendUDPMsg udp,INT_IP(server_ip$),server_port
End Function

Function ShowEnemy()
			message=ReadByte(udp2)

			name$ = ReadString(udp2)
			txt$ = ReadString(udp2)
			
			;p1 = Instr(txt$,":")
			;vorne$ = Left$(txt$,p1-1)
			;hinten$ = Right$(txt$,p1+1)
			Print txt$
			Print name$
		;	Print vorne$+" : "+hinten$ + "P1:"+p1

		
	Color 255,140,0
	Rect vorne$,hinten$,10,20,1
	
End Function

Function ShowMyShip()
	If MouseDown(1) Then
		x=MouseX()
		y=MouseY()
	EndIf
	Color 255,140,140
	Rect x,y,20,20,1
End Function	

Function INT_IP(IP$)
  a1=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
  a2=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
  a3=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
  a4=Int(IP$)
   
  Return (a1 Shl 24) + (a2 Shl 16) + (a3 Shl 8 ) +a4
End Function