;
;Client
;

;Hier habe ich den kleinen Einzelspieler Test schon programmiert.
;Er soll jetzt in Multiplayer verwandelt werden und mit dem beigelegten Server.bb Datei kommunizieren.
;Es soll beim start eine Frage kommen, wo drin steht welche IP man joinen möchte. Dann wird gejoint aber nur wenn der server existiert.
;Und ein Cube als Spieler soll für jeden Client erstellt werden.
;Koordinaten jedes Clients sollen an den Server gesendet und von dort aus an alle anderen Clients gesendet werden.

;Start

Graphics3D 800,600,16,2
SetBuffer BackBuffer()

;Include
Include ".\Include\MultiplayerSettings.bb"
Include ".\Include\Functions.bb"
;Include

;Spieler
Player = CreateCube()
;Spieler

;Kamera
MainCam = CreateCamera()
EntityParent MainCam,Player
PositionEntity MainCam,0,3,-5
RotateEntity MainCam,20,0,0
;Kamera

;Boden
Terrain = CreateCube()
ScaleEntity Terrain,50,0.1,50
Grass = LoadTexture("grass.png")
EntityTexture Terrain,Grass
ScaleTexture Grass,-0.1,-0.1
;Boden

;Main Loop
While Not KeyHit(1)
	
	If KeyDown(17) Then MoveEntity Player,0,0,0.05
	If KeyDown(31) Then MoveEntity Player,0,0,-0.05
	If KeyDown(32) Then TurnEntity Player,0,-1,0
	If KeyDown(30) Then TurnEntity Player,0,1,0
	
	RenderWorld()
	UpdateWorld()
	Flip
Wend
End
;Main Loop

;
;Dragon Legends | Server
;

;Das ist der externe Server von Dragon Legends.
;Ich möchte, dass er einen UDP Stream startet und wenn ein Client verbindet, eine Nachricht hier ausgegeben wird, wer gejoint hat.
;Und der Server soll immer die Koordinaten aller Spieler an alle Clients weiterverbinden.
;Könnte mir das einer machen?
;Dadurch will ich UDP erlernen. Ich kann leider nicht learning by doing, ich kann besser lernen wenn ich es vor mir habe und studiere.

;
;MultiplayerSettings.bb
;

;Global
Global stream		
Global mx#,my#,mz#
Global gegnerX#,gegnerY#,gegnerZ#,gegnerIP,gegnerPORT,gegnerDOT$
Global server = Input("Server Erstellen(1) / Server Beitreten(2): ")
;Global

;ServerCode
If server = 1 Then
	stream = CreateUDPStream(6543)
ElseIf server = 2
	stream=CreateUDPStream()
	gegnerDOT=Input("Server Adresse: ")
	gegnerPORT=6543
	gegnerIP=INT_IP(gegnerDOT)
	WriteByte stream,1
	SendUDPMsg stream,gegnerIP,gegnerPORT
End If
;ServerCode

;
;End Script
;

;
;Functions.bb
;

;INT_IP
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 
;INT_IP

;
;End Script
;