Type Client
	Field ip%
	Field dip%
	Field port%
	Field name$
	Field x_coor%
	Field y_coor%
	Field map%
	Field rang%
	Field inlog$
	Field damage%
	Field ship_rotation%
	Field hitpoints%
	Field shield%
	Field lastMsg%
End Type


Global ServerPort=6354
Global udpStream=CreateUDPStream(ServerPort)

Print "Versuche Server zu starten..."

If Not udpStream Then
	Print "Server Timeout please choose another Port and retry"
EndIf

Print "Server gestartet!"

Repeat 

	RecvMsg()
	ShareData()
	;RefreshData()
	DeleteUser()
	Delay 1024

Until KeyHit(1)

;###### Funktionen ######
Function RecvMsg() ;Empfängt die Nachrichten und verarbeitet sie :3
	Local ipRecv=RecvUDPMsg(udpStream) ; Die IP wird ausgelesen
	If ipRecv=0 Then Return ; Falls keine Message ankam 

	Local portRecv=UDPMsgPort(udpStream) ; Der Port wird ausgelesen
	Local handler=ReadByte(udpStream) ; List aus was der Client will

	;### Case 1 -> Will Beitreten
	;### Case 2 -> Sendet Koordinaten und weitere Daten (Hp,Sh,x,y,dmg,rang)
	;### Case 3 -> Verlässt den Raum
	Select handler
		Case 1
			Local client.Client=New Client ; Neuer Client wird erstellt

			client\ip%=ipRecv ; Die Client IP
			client\dip%=DottedIP(ipRecv) ; Sieht schöner aus -> 127.0.0.1 z.b.
			client\port%=portRecv ; Port abspeichern
			client\name$=ReadLine(udpStream) ; Username
			client\x_coor%=ReadInt(udpStream) ; x Koordinaten
			client\y_coor%=ReadInt(udpStream) ; y Koordinaten
			client\map%=ReadInt(udpStream) ; Map
			client\rang%=ReadInt(udpStream) ; Rang Colonell Captain etc
			client\inlog%=ReadLine(udpStream) ; wen er im Log hat
			client\damage%=ReadInt(udpStream) ; Wie viel Schaden macht er gerade?
			client\ship_rotation%=ReadInt(udpStream) ; wie ist sein schiff gedreht
			client\hitpoints%=ReadInt(udpStream) ; Hitpoints
			client\shield%=ReadInt(udpStream) ; Schilde
			client\lastMsg%=MilliSecs()+5000
			
			;#### Allgemeine Daten ausgeben
			
			Print "* "+client\name$+" hat sich von "+client\dip%+":"+client\port%+" eingeloggt *"
			Print "Daten:"
			Print "Username:"+client\name$
			Print "Koordinaten (x/y):"+client\x_coor%+" "+client\y_coor%
			Print "Standort (Map):"+client\map%
			Print "Rang:"+client\rang%
			Print "Logbuch:"+client\inlog$
			Print "Schaden:"+client\damage%
			Print "Schiff drehung:"+client\ship_rotation%
			Print "Hitpoints:"+client\hitpoints%
			Print "Schild:"+client\shield%
			;### Daten ausgabe Ende
		
			;Erlaubniss erteilen
			WriteByte(udpStream,1)
			;Nachricht absenden
			SendUDPMsg(udpStream,client\ip%,client\port%)
			Print "Erlaubniss erteilt!\"

			Print "Neuer User wird gespeichert.."
			For s_client.Client=Each Client
				If s_client\name$=client\name$ Then

				Else 
					WriteByte udpStream,2
					WriteInt udpStream,client\ip% ; Ip
					WriteInt udpStream,client\port% ; Port
					WriteLine udpStream,client\name$ ; Username
					WriteInt udpStream,client\x_coor% ; X koordinaten
					WriteInt udpStream,client\y_coor% ; Y koordinaten
					WriteInt udpStream,client\map% ; Map
					WriteInt udpStream,client\rang% ; Rang
					WriteLine udpStream,client\inlog$ ; Logbuch
					WriteInt udpStream,client\damage% ; Schaden
					WriteInt udpStream,client\ship_rotation% ; Schiff drehung
					WriteInt udpStream,client\hitpoints% ; Hitpoints
					WriteInt udpStream,client\shield% ; Schild
					;Daten senden
					SendUDPMsg udpStream,s_client\ip%,s_client\port%
					Print "Daten versendet.."
				EndIf
			Next
			Case 5
			
				Print "Incomming Message..."
				For client.Client=Each Client
					If client\name$=ReadLine(udpStream) Then
			
						client\x_coor%=ReadInt(udpStream)
						client\y_coor%=ReadInt(udpStream)
						client\map%=ReadInt(udpStream)
						client\rang%=ReadInt(udpStream)
						client\inlog$=ReadLine(udpStream)
						client\damage%=ReadInt(udpStream)
						client\ship_rotation%=ReadInt(udpStream)
						client\hitpoints%=ReadInt(udpStream)
						client\shield%=ReadInt(udpStream)
						client\lastMsg%=MilliSecs()+5000
						Print client\name$+" - RefreshData()"
					;	Print client\x_coor%
				
					EndIf
				Next
			
			End Select
			handler=0 
End Function


Function ShareData()
;Alte Daten an neuen User senden :3
	For client.Client=Each Client
		For s_client.Client=Each Client

			If s_client\name$=client\name$ Then
				Print "Nicht versendet an "+s_client\name$+" - "+client\name$
			Else 
;Print "User werden Informiert..."
	WriteByte udpStream,2
	WriteInt udpStream,s_client\ip% ; Ip
	WriteInt udpStream,s_client\port% ; Port
	WriteLine udpStream,s_client\name$ ; Username
	WriteInt udpStream,s_client\x_coor% ; X koordinaten
	WriteInt udpStream,s_client\y_coor% ; Y koordinaten
	WriteInt udpStream,s_client\map% ; Map
	WriteInt udpStream,s_client\rang% ; Rang
	WriteLine udpStream,s_client\inlog$ ; Logbuch
	WriteInt udpStream,s_client\damage% ; Schaden
	WriteInt udpStream,s_client\ship_rotation% ; Schiff drehung
	WriteInt udpStream,s_client\hitpoints% ; Hitpoints
	WriteInt udpStream,s_client\shield% ; Schild
	;Daten senden
	SendUDPMsg udpStream,client\ip%,client\port%
	Print s_client\ip%+" > "+s_client\port%+" > "+s_client\name$
	;Print "Daten versendet.."
EndIf

Next
Next
End Function

Function RefreshData()
;Daten der User aktialisieren
	;Print "Werden Aktualisiert..."
	Byte = ReadByte(udpStream)
	If Byte=5 Then
		Print "Incomming Message..."
		For client.Client=Each Client
			If client\name$=ReadLine(udpStream) Then
			
				client\x_coor%=ReadInt(udpStream)
				client\y_coor%=ReadInt(udpStream)
				client\map%=ReadInt(udpStream)
				client\rang%=ReadInt(udpStream)
				client\inlog$=ReadLine(udpStream)
				client\damage%=ReadInt(udpStream)
				client\ship_rotation%=ReadInt(udpStream)
				client\hitpoints%=ReadInt(udpStream)
				client\shield%=ReadInt(udpStream)
				client\lastMsg%=MilliSecs()+5000
				Print client\name$+" - RefreshData()"
				
			EndIf
		Next
	EndIf
End Function

Function DeleteUser()
	;Zum löschen Inaktiver User
	For client.Client=Each Client
		If client\lastMsg%<MilliSecs() Then
			Print client\name$+" hat den Raum verlassen [Request Timeout]"
			Delete client.Client
		EndIf
	Next
End Function

;Client
Type Enemies
Field ip%
Field port%
Field username$
Field x_coor%
Field y_coor%
Field map%
Field rang%
Field inlog$
Field damage%
Field ship_rotation%
Field hitpoints%
Field shield%
End Type

Global x_coor%=100
Global y_coor%=250
Global map%=2
Global rang%=1
Global inlog$="Bobo2040"
Global damage%=25000
Global ship_rotation%=1
Global hitpoints%=306000
Global shield%=262000

Global server_port=6354
Global server_ip=INT_IP("127.0.0.1")
Global udpStream=CreateUDPStream()

If Not udpStream Then
	Print "Verbindung fehlgeschlagen.."
EndIf

Print "Suche nach Server..."
Print "Server gefunden..."
Print "Server anfrage gestartet!"

Global username$=Input("Username:")

WriteByte udpStream,1 ; Frage ob erlaubnis erteilt wird
Print "Versuche zu verbinden"
WriteLine udpStream,username$
WriteInt udpStream,x_coor%
WriteInt udpStream,y_coor%
WriteInt udpStream,map%
WriteInt udpStream,rang%
WriteLine udpStream,inlog$
WriteInt udpStream,damage%
WriteInt udpStream,ship_rotation%
WriteInt udpStream,hitpoints%
WriteInt udpStream,shield%
;Daten an Server senden
SendUDPMsg udpStream,server_ip,server_port

Print "Warte auf Server antwort"



;###### Hauptschleife ######
Repeat 
	Client()
	RefreshData()
	;inlog$="Bernd"+Rand(1,100)
	;Username ausgeben
	For s_enemie.Enemies=Each Enemies
		Print s_enemie\username$
	Next
	
	Delay 2048
Until KeyHit(1)



;###### Funktionen ######
Function Client()
	Local ipRecv=RecvUDPMsg(udpStream) ; UDP Nachricht abrufen
	If ipRecv=0 Then Return ; Falls nichts kam -> Return
	
	Local portRecv=UDPMsgPort(udpStream) ; Port abspeichern
	
	If ipRecv<>server_ip Or portRecv<>server_port Then Print "Hacked"
	;handler holen
	Local handler=ReadByte(udpStream)
	Select handler
		Case 1 ; Erlaubnis vom Server bekommen
			Print "Server hat Anfrage bearbeitet.."
			Print "Du bist nun eingeloggt!"

		Case 2 ; Daten von NEUEN nutzern werden gespeichert
			oC_ip%=ReadInt(udpStream)
			oC_prot%=ReadInt(udpStream)
			oC_username$=ReadLine(udpStream)
			oC_coor_x%=ReadInt(udpStream)
			oC_coor_y%=ReadInt(udpStream)
			oC_map%=ReadInt(udpStream)
			oC_rang%=ReadInt(udpStream)
			oC_inlog$=ReadLine(udpStream)
			oC_damage%=ReadLine(udpStream)
			oC_ship_rotation%=ReadInt(udpStream)
			oC_hitpoints%=ReadInt(udpStream)
			oC_shield%=ReadInt(udpStream)
			
			For checkEnemie.Enemies=Each Enemies
				If checkEnemie\username$=oC_username$ Then
					Update=0
				Else
					Update=1
				EndIf
			Next
			
			If Update=1 Then
				enemie.Enemies=New Enemies ; Neuer Feind wird erstellt
	
				enemie\ip%=oC_ip
				enemie\port%=oC_port
				enemie\username$=oC_username$
				enemie\x_coor%=oC_coor_x
				enemie\y_coor%=oC_coor_y
				enemie\map%=oC_map
				enemie\rang%=oC_rang
				enemie\inlog$=oC_inlog
				enemie\damage%=oC_damage
				enemie\ship_rotation%=oC_ship_rotation
				enemie\hitpoints%=oC_hitpoints
				enemie\shield%=oC_shield
			EndIf
		Case 3 ;Daten abspielen 
			For s_enemie.Enemies=Each Enemies
				Print s_enemie\username$
			Next

	End Select	

End Function

;Ip umwandeln
Function INT_IP(IP$) ; DottedIP to IntIP
		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 

;Permanent daten Aktualisieren
Function RefreshData()
	WriteByte udpStream,5 ; Sagen das es aktualisiert werden soll
	;Print "Daten aktualisierungsanfrage wird gesendet.."
	WriteLine udpStream,username$
	WriteInt udpStream,x_coor%
	WriteInt udpStream,y_coor%
	WriteInt udpStream,map%
	WriteInt udpStream,rang%
	WriteLine udpStream,inlog$
	WriteInt udpStream,damage%
	WriteInt udpStream,ship_rotation%
	WriteInt udpStream,hitpoints%
	WriteInt udpStream,shield%
	SendUDPMsg udpStream,server_ip,server_port
End Function 
WaitKey 

Repeat 

	RecvMsg()
	ShareData()
	;RefreshData()
	DeleteUser()
	Delay 1024

Until KeyHit(1)

Delay

Function RecvMsg() ;Empfängt die Nachrichten und verarbeitet sie :3
	Local ipRecv=RecvUDPMsg(udpStream) ; Die IP wird ausgelesen
	If ipRecv=0 Then Return ; Falls keine Message ankam 
	; ...
End Function

Function RecvMsg()
	Repeat
		Local ipRecv=RecvUDPMsg(udpStream) ; Die IP wird ausgelesen
		If ipRecv=0 Then Return ; Falls keine Message ankam
		; ...
	Forever
End Function

Graphics 1920,1080,32,1
SetBuffer BackBuffer()

Local timer=CreateTimer(50)
While Not KeyHit(1)
	
	WaitTimer timer ; Wartet im worst case ( nichts in der Schleife zu tun) 20ms ab.
Wend
End

Graphics 1920,1080,32,1
SetBuffer BackBuffer()

While Not KeyHit(1)
	
	Delay 20 ; Wartet immer 20ms ab
Wend
End

Graphics 1920,1080,32,1
SetBuffer BackBuffer()

Local lastAkt=MilliSecs()
While Not KeyHit(1)
	
	Delay 20-(MilliSecs()-lastAkt) ; Wartet 20ms - die schon in der Schleife vergangene Zeit
	lastAkt=MilliSecs()
Wend
End

;Type Client erstellen
;Daten erstmal nur ip,port,username,accept um Code klein zu halten
Type Client
	Field ip%
	Field port%
	Field username$
End Type
;Timer erstellen
Global FPStimer=CreateTimer(5) ; Für 5 Aktualisierungen pro Sekunde

;TCP Daten
Global TCPport=4342 ; ´Port für TCP
Global TCPstream=CreateTCPServer(TCPport) ;Server erstellen

;UDP Daten
;Comming Soon 


;Überprüfen ob Server erstellt wurde...
If Not TCPstream Then
	Print "TCP Server konnte nicht erstellt werden.."
	WaitKey 
	End
EndIf

Print "TCP Server gestartet.."

;### Hauptschleife ###
Repeat

	NewClient()
	WaitTimer(FPStimer)
Until KeyHit(1)

;### Funktionen ###

;------------------------------
; Falls Anfrage von Client kam
;------------------------------
Function NewClient()
	NewClient=AcceptTCPStream(TCPstream)
	
	If NewClient<>0 Then ;Falls Variable NICHT leer ist
		ClientStream=NewClient ;Variable auslagern, damit sie nicht permanent auf 0 gesetzt wird
		; falls keine Nachricht kommt...
		Print "Anfrage von neuem Clienten erhalten!"
		DebugLog "NewCLient:"+NewClient
	EndIf
	DebugLog "ClientStream"+ClientStream
	DebugLog "TCPstream"+TCPstream
	If ClientStream<>0 Then ;Falls CLientstream einen Wert hat
		While ReadAvail(TCPstream) ;Solange es Daten zum "lesen" gibt
			username$=ReadLine(TCPstream) ;Daten auslesen
			For client.Client=Each Client
				If Not client\username$=username$ Then
					;Falls Username NICHT übereinstimmt mit den Anderen dann
					;Neuen Clienten erstellen
					cClient.Client=New Client
					
						cClient\ip%=127001
						cClient\port%=5435
						cClient\username$=username$
					
					Print "Client mit Port:"+cClient\port%+",IP:"+cClient\ip%+" mit Username:"+cClient\username$+" wurde erstellt."
					
				EndIf
				DebugLog username$
			Next
		Wend
	EndIf
End Function

Local Stream = OpenTCPStream( "127.0.0.1", 4342 )
If Not Stream Then 
	Print "Verbindung konnte nicht hergestellt werden."
EndIf

WriteLine Stream, "Bernhard" ; Name senden
Print "Sende..."

WaitKey 
; Stream beenden
CloseTCPStream( Stream )
End