;ReadConfig.ini
Config = ReadFile("Config.ini")
Breite# = ReadLine$(Config)
Hohe# = ReadLine$(Config)
Fullscreen# = ReadLine(Config)
;End Read

;Set Graphics Mode
Graphics3D Breite#,Hohe#,16,Fullscreen#

SetBuffer BackBuffer()
HidePointer()
;End Set

;Windows Settings
AppTitle("Dragon Legends Alpha by Killerjo96")
Print "Du kannst die Auflösung in der Config.ini festlegen!"
Delay 2000
;End Settings

;LoadScenes
sound = LoadSound (".\Music\Lied.mp3")
table = LoadMesh (".\Model\table.3ds")
ground = LoadTerrain(".\Textures\hight.jpg")
tex = LoadTexture(".\Textures\grass.jpg")
;End Load

;Global Variables
Global sky			;muss ich machen weil ich die skybox in einem Unterprogramm lade und im Hautprogramm verwende
;End Variables

;Variables

;End Variables

;Animate Objects

;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
;End Types

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

;Set Types
EntityType cam,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
;End Set

;Collisions
Collisions type_camera,type_terrain,2,2		;Kollisionen zwischen camera und terrain setzten
Collisions type_camera,type_table,2,3
;End Collisions

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

;Activate Functions

;End Activate

;RotateEntity

;End Rotate

;PositionEntitys

PositionEntity cam,77,8,55
PositionEntity table,80,1,55
PositionEntity ground,0,-1,0
;End Position

;Scale Entitys
ScaleEntity table,0.05,0.05,0.05
ScaleEntity ground,5,50,5
;End Scale

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

;Entity Textures
EntityTexture ground,tex
;End Entity

;Load Functions
LoadSkyBox()
;End Load

;
;Beginn der Hauptschleife
;
Repeat

;Berechne FPS
If MilliSecs()-settime>1000
getfps=setfps : setfps=0 : settime=MilliSecs()
Else
setfps=setfps+1
EndIf
;End FPS
	
;MouseControl
mxs# = mxs# + MouseXSpeed()
mys# = mys# + MouseYSpeed()
If mxs# > 360 Then mxs# = 0
If mxs# < 0 Then mxs# = 360
If mys# > 80 Then mys# = 80
If mys# < -80 Then mys# = -80
RotateEntity Cam,mys#,-mxs#,0
;End MouseControl

;Tastenabfragen
If KeyDown(30) Then MoveEntity cam,-0.3,0,0
If KeyDown(32) Then MoveEntity cam,0.3,0,0
If KeyDown(31) Then MoveEntity cam,0,0,-0.5
If KeyDown(17) Then MoveEntity cam,0,0,0.5
If KeyDown(57) Then MoveEntity cam,0,0.8,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

;MoveMouse
MoveMouse GraphicsWidth() / 2,GraphicsHeight() / 2
;End MoveMouse

;Position Entity (Hauptschleife)
PositionEntity cam,EntityX(cam),EntityY(cam)-0.5,EntityZ(cam)		;schwerkraft
PositionEntity sky,EntityX(cam),EntityY(cam),EntityZ(cam)		;himmel mit der Kamera mitbewegen
;End Position

;Text Functioncs
Font = LoadFont ("Papyrus",40,1)
SetFont Font
Text 0,0,"Dragon Legends Alpha - Version: 1.0.0.0.0"
Text 0,40,"FPS: " + getfps
;End Text

;End Files
Flip()		;flip immer VOR RenderWorld
UpdateWorld()	;Kollisionen updaten
RenderWorld()
Until KeyHit(1)
End
;End Files

;Functions

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


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