;Server
;muss (für Inetübertragung - lokal nicht)
;einen Portfreischalten.
;Diesen und seine IP muss der Client wissen 

Graphics 800,600,0,2;Grafik Zeugs
SetBuffer BackBuffer()

Global stream=CreateUDPStream(6543) ; GLOBALEN Netzwerkstream UDP erzeugen PORT 6543
Global mx,my
Global gegnerX,gegnerY,gegnerIP,gegnerPORT,gegnerDOT$

Local timer=CreateTimer(60)
While Not KeyHit(1)
	Cls
	mx=MouseX():my=MouseY()
	Color 255,0,0
	Rect mx-5,my-5,10,10,1
	Color 0,255,0
	Rect gegnerX-5,gegnerY-5,10,10,1
	
	UDPUpdate()
	
	WaitTimer timer
	Flip 0
Wend
End

Function UDPUpdate()
	ip_rd=RecvUDPMsg(stream);Kamen neue Nachrichten?
	While ip_rd;Alle abarbeiten
		cmd=ReadByte(stream);Erstes Byte -> Typ der Nachricht/Kommando
		Select cmd
			Case 1;Client loggt ein
				gegnerIP=ip_rd
				gegnerDOT=DottedIP(gegnerIP)
				gegnerPORT=UDPMsgPort(stream)
			Case 2;Client daten kommen rein
				gegnerX=ReadInt(stream)
				gegnerY=ReadInt(stream)
				
			Default
				DebugLog "Unbekannter Befehl!"
				DebugLog cmd
		End Select
		ip_rd=RecvUDPMsg(stream)
	Wend
	If gegnerIP<>0;Wenn schon ein Gegner verbunden hat
		WriteByte stream,2;Eigene Daten verpacken
		WriteInt stream,mx
		WriteInt stream,my
		SendUDPMsg stream,gegnerIP,gegnerPORT;Paket abschicken
	End If
End Function

;Client 
;braucht keine Ports freischalten,
;muss aber IP:Port des Servers kennen

Graphics 800,600,0,2;Grafik Zeugs
SetBuffer BackBuffer()

Global stream=CreateUDPStream() ; GLOBALEN Netzwerkstream UDP erzeugen PORT wird selbstständig gewählt
Global mx,my
Global gegnerX,gegnerY,gegnerIP,gegnerPORT,gegnerDOT$

;BEIM SERVER EINLOGGEN...
gegnerDOT=Input("Gegner IP: ")
gegnerPORT=6543 ; Server PORT! Evtl. auch per Input abfragen
gegnerIP=INT_IP(gegnerDOT)
WriteByte stream,1
SendUDPMsg stream,gegnerIP,gegnerPORT

Local timer=CreateTimer(60)
While Not KeyHit(1)
	Cls
	mx=MouseX():my=MouseY()
	Color 255,0,0
	Rect mx-5,my-5,10,10,1
	Color 0,255,0
	Rect gegnerX-5,gegnerY-5,10,10,1
	
	UDPUpdate()
	
	WaitTimer timer
	Flip 0
Wend
End

Function UDPUpdate()
	ip_rd=RecvUDPMsg(stream);Kamen neue Nachrichten?
	While ip_rd;Alle abarbeiten
		cmd=ReadByte(stream);Erstes Byte -> Typ der Nachricht/Kommando
		Select cmd
			Case 2;Server daten kommen rein
				gegnerX=ReadInt(stream)
				gegnerY=ReadInt(stream)
				
			Default
				DebugLog "Unbekannter Befehl!"
				DebugLog cmd
		End Select
		ip_rd=RecvUDPMsg(stream)
	Wend
	WriteByte stream,2;Eigene Daten verpacken
	WriteInt stream,mx
	WriteInt stream,my
	SendUDPMsg stream,gegnerIP,gegnerPORT;Paket abschicken
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 

SendUDPMsg

Type

;ReadConfig.ini
Config = ReadFile("Config.ini")
Breite# = ReadLine$(Config)
Hohe# = ReadLine$(Config)
Fullscreen# = ReadLine(Config)
;End Read
;Set Graphics Mode
Graphics3D Breite#,Hohe#,32,Fullscreen#
;End Set

;Windows Settings
AppTitle("3D-Engine by Killerjo96")
;Print "Du kannst die Auflösung in der Config.ini festlegen!"
SetBuffer BackBuffer()
;End Settings

;LoadScenes
sound = LoadSound (".\Music\Lied.mp3")
table = LoadMesh (".\Model\table.3ds")
ground = LoadTerrain(".\Textures\hight.jpg")
tex = LoadTexture(".\Textures\grass.jpg")
Monkey = LoadMesh(".\Model\Monkey.3ds")
MonkeyTex = LoadTexture(".\Textures\Monkey.jpg")
RabbitFairy = LoadMesh(".\Model\RabbitFairy.3ds")
RabbitFairyTex = LoadTexture(".\Textures\RabbitFairy.jpg")
Aibat = LoadMesh (".\Model\Aibat.3ds")
AibatTex = LoadTexture(".\Textures\Aibat.jpg")
Robot = LoadAnimMesh (".\Model\Robot.3ds")
gegner=CreateCube()
;End Load

;Global Variables
Global sky			;muss ich machen weil ich die skybox in einem Unterprogramm lade und im Hautprogramm verwende
Global stream		
Global mx#,my#,mz#
Global gegnerX#,gegnerY#,gegnerZ#,gegnerIP,gegnerPORT,gegnerDOT$
;End Variables
Global server=Input("Host/Client? (1/0) :")
If server=1 
	stream=CreateUDPStream(6543); GLOBALEN Netzwerkstream UDP erzeugen PORT 6543
ElseIf server=0
	stream=CreateUDPStream() ; GLOBALEN Netzwerkstream UDP erzeugen PORT wird selbstständig gewählt
	gegnerDOT=Input("Gegner IP: ")
	gegnerPORT=6543 ; Server PORT! Evtl. auch per Input abfragen
	gegnerIP=INT_IP(gegnerDOT)
	WriteByte stream,1
	SendUDPMsg stream,gegnerIP,gegnerPORT
End If

;Variables

;End Variables

;Animate Objects
Animate Robot,2
;End Animate
;Types
type_camera = 1		;für die kollisionen, einfach nur eine variable, damit ich nicht durcheinander komme.
type_terrain = 2
type_table = 3
type_Monkey = 4
type_RabbitFairy = 5
type_Aibat = 6
type_Robot = 7
;End Types

;CreateScenes
cam1 = CreateCamera()
light = CreateLight()
;End Create

;Set Types
EntityType cam1,type_camera					;Für Kollisionen Kamera auf typ "camera" stellen
EntityType ground,type_terrain	;für kollisionen auf typ "terrain" stellen.
EntityType table,type_table
EntityType Monkey,type_Monkey
EntityType RabbitFairy,type_RabbitFairy
EntityType Aibat,type_Aibat
EntityType Robot,type_Robot
;End Set

;Collisions
Collisions type_camera,type_terrain,2,2		;Kollisionen zwischen camera und terrain setzten
Collisions type_camera,type_table,2,3
Collisions type_Monkey,type_terrain,2,4
Collisions type_RabbitFairy,type_terrain,2,5
Collisions type_Aibat,type_terrain,2,6
Collisions type_Robot,type_terrain,2,7
;End Collisions

;Set Radius
EntityRadius cam1,05	;Radius der Kamera für Kollisionen, damit ich nicht durch die Wand durchschauen kann.
;End Set

;Activate Functions

;End Activate

;RotateEntity
RotateEntity Monkey,270,0,0
RotateEntity RabbitFairy,270,0,0
RotateEntity Aibat,270,0,0
;End Rotate

;PositionEntitys

PositionEntity cam1,77,8,55
PositionEntity table,80,1,55
PositionEntity ground,0,-1,0
PositionEntity Monkey,50,5,60
PositionEntity RabbitFairy,60,5,60
PositionEntity Aibat,70,5,70
PositionEntity Robot,60,5,100
;End Position

;Scale Entitys
ScaleEntity table,0.05,0.05,0.05
ScaleEntity ground,5,50,5
ScaleEntity Monkey,5,5,5
ScaleEntity RabbitFairy,5,5,5
ScaleEntity Aibat,5,5,5
ScaleEntity Robot,0.15,0.15,0.15
;End Scale

;Scale Texture
ScaleTexture tex,5,5
;End Scale

;Entity Textures
EntityTexture ground,tex
EntityTexture Monkey,MonkeyTex
EntityTexture RabbitFairy,RabbitFairyTex
EntityTexture Aibat,AibatTex
;End Entity

;Load Functions
LoadSkyBox()
;End Load

;
;Beginn der Hauptschleife
;
Local timer=CreateTimer(60) ; Damit dein Programm nur 60x pro Sekunde aktualiesiert wird
Repeat
	;Tastenabfragen
	If KeyDown(30) Then TurnEntity cam1,0,1.5,0
	If KeyDown(32) Then TurnEntity cam1,0,-1.0,0
	If KeyDown(31) Then MoveEntity cam1,0,0,-0.5
	If KeyDown(17) Then MoveEntity cam1,0,0,0.5
	If KeyDown(57) Then MoveEntity cam1,0,0.8,0
	If KeyDown(18) Then MoveEntity cam1,0.5,0,0
	If KeyDown(16) Then MoveEntity cam1,-0.5,0,0
	If KeyHit(201) Then Ch1 = PlaySound(sound)
	If KeyHit(209) Then StopChannel Ch1
	If KeyDown(41) Then 
		WireFrame = True
	Else
		WireFrame = False
	EndIf
	;End Tastenabfragen
	
	;Position Entity (Hauptschleife)
	PositionEntity cam1,EntityX(cam1),EntityY(cam1)-0.5,EntityZ(cam1)		;schwerkraft
	PositionEntity Monkey,EntityX(Monkey),EntityY(Monkey)-0.5,EntityZ(Monkey)
	PositionEntity RabbitFairy,EntityX(RabbitFairy),EntityY(RabbitFairy)-0.5,EntityZ(RabbitFairy)
	PositionEntity Aibat,EntityX(Aibat),EntityY(Aibat)-0.5,EntityZ(Aibat)
	PositionEntity Robot,EntityX(Robot),EntityY(Robot)-0.5,EntityZ(Robot)
	PositionEntity sky,EntityX(cam1),EntityY(cam1),EntityZ(cam1)		;himmel mit der Kamera mitbewegen
	PositionEntity gegner,gegnerX,gegnerY,gegnerZ
	mx=EntityX(cam1):my=EntityY(cam1):mz=EntityZ(cam1)
	;End Position
	
	;Netzwerk updaten
	If server=1
		Server_Update()
	ElseIf server=0
		Client_Update()
	End If
	
	UpdateWorld()	;Kollisionen updaten
	RenderWorld()	;3D Szene malen
	;2D Kram
	;Text Functioncs
	Text 0,0 ,"Kamera Position: "+EntityX(cam1) + "," + EntityY(cam1) + "," + EntityZ(cam1)
	Text 0,40,"Steuerung: W,A,S,D zum Bewegen, Leertaste für Fliegen, Page Up für Musik an,Page Down für Musik aus,Esc für Beenden"
	Text 0,65,"3D-Engine by Killerjo96"
	;End Text
	;End 2D Kram
	WaitTimer timer ;auf timer warten
	Flip 0 ;Damit Timer genutzt wird (0)
Until KeyHit(1)
End
;End Files

;Functions
Function Server_Update()
	ip_rd=RecvUDPMsg(stream);Kamen neue Nachrichten?
	While ip_rd;Alle abarbeiten
		cmd=ReadByte(stream);Erstes Byte -> Typ der Nachricht/Kommando
		Select cmd
			Case 1;Client loggt ein
				gegnerIP=ip_rd
				gegnerDOT=DottedIP(gegnerIP)
				gegnerPORT=UDPMsgPort(stream)
			Case 2;Client daten kommen rein
				gegnerX=ReadFloat(stream)
				gegnerY=ReadFloat(stream)
				gegnerZ=ReadFloat(stream)
			Default
				DebugLog "Unbekannter Befehl!"
				DebugLog cmd
		End Select
		ip_rd=RecvUDPMsg(stream)
	Wend
	If gegnerIP<>0;Wenn schon ein Gegner verbunden hat
		WriteByte stream,2;Eigene Daten verpacken
		WriteFloat stream,mx
		WriteFloat stream,my
		WriteFloat stream,mz
		SendUDPMsg stream,gegnerIP,gegnerPORT;Paket abschicken
	End If
End Function
Function Client_Update()
	ip_rd=RecvUDPMsg(stream);Kamen neue Nachrichten?
	While ip_rd;Alle abarbeiten
		cmd=ReadByte(stream);Erstes Byte -> Typ der Nachricht/Kommando
		Select cmd
			Case 2;Server daten kommen rein
				gegnerX=ReadFloat(stream)
				gegnerY=ReadFloat(stream)
				gegnerZ=ReadFloat(stream)
			Default
				DebugLog "Unbekannter Befehl!"
				DebugLog cmd
		End Select
		ip_rd=RecvUDPMsg(stream)
	Wend
	WriteByte stream,2;Eigene Daten verpacken
	WriteFloat stream,mx
	WriteFloat stream,my
	WriteFloat stream,mz
	SendUDPMsg stream,gegnerIP,gegnerPORT;Paket abschicken
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 
Function LoadSkyBox()		;Funktion ist nicht von mir.
	sky=CreateMesh()
	;front face
	b=LoadBrush("s4\4.bmp",49 )
	s=CreateSurface( sky,b )
	AddVertex s,-1,+1,-1,0,0:AddVertex s,+1,+1,-1,1,0
	AddVertex s,+1,-1,-1,1,1:AddVertex s,-1,-1,-1,0,1
	AddTriangle s,0,1,2:AddTriangle s,0,2,3:
	FreeBrush b
	;right face
	b=LoadBrush("s4\5.bmp",49 )
	s=CreateSurface( sky,b )
	AddVertex s,+1,+1,-1,0,0:AddVertex s,+1,+1,+1,1,0
	AddVertex s,+1,-1,+1,1,1:AddVertex s,+1,-1,-1,0,1
	AddTriangle s,0,1,2:AddTriangle s,0,2,3
	FreeBrush b
	;back face
	b=LoadBrush("s4\1.bmp",49 )
	s=CreateSurface( sky,b )
	AddVertex s,+1,+1,+1,0,0:AddVertex s,-1,+1,+1,1,0
	AddVertex s,-1,-1,+1,1,1:AddVertex s,+1,-1,+1,0,1
	AddTriangle s,0,1,2:AddTriangle s,0,2,3
	FreeBrush b
	;left face
	b=LoadBrush("s4\2.bmp",49 )
	s=CreateSurface( sky,b )
	AddVertex s,-1,+1,+1,0,0:AddVertex s,-1,+1,-1,1,0
	AddVertex s,-1,-1,-1,1,1:AddVertex s,-1,-1,+1,0,1
	AddTriangle s,0,1,2:AddTriangle s,0,2,3
	FreeBrush b
	;top face
	b=LoadBrush("s4\3.bmp",49 )
	s=CreateSurface( sky,b )
	AddVertex s,-1,+1,+1,0,1:AddVertex s,+1,+1,+1,0,0
	AddVertex s,+1,+1,-1,1,0:AddVertex s,-1,+1,-1,1,1
	AddTriangle s,0,1,2:AddTriangle s,0,2,3
	FreeBrush b
	;bottom face	
	b=LoadBrush("s4\6.bmp",49 )
	s=CreateSurface( sky,b )
	AddVertex s,-1,-1,-1,1,0:AddVertex s,+1,-1,-1,1,1
	AddVertex s,+1,-1,+1,0,1:AddVertex s,-1,-1,+1,0,0
	AddTriangle s,0,1,2:AddTriangle s,0,2,3
	FreeBrush b
	ScaleMesh sky,500,500,500
	FlipMesh sky
	EntityFX sky,1
	Return sky
End Function
;End Functions


;---------------------------------------------------------------------------------------