; Graphikmodus initialisieren
Graphics3D 800,600,16,0
SetBuffer = BackBuffer

;Lichtquelle festlegen
light=CreateLight(3)
RotateEntity light,45,0,0
PositionEntity light,0,100,3
LightRange light, 1000

;Kamera erstellen
Camera = CreateCamera(Kugel)
RotateEntity Camera,20,0,0

;Terrain erstellen
terrain=LoadTerrain(\".\mapfirstkl.bmp\")
TerrainDetail terrain,4000,True
ScaleEntity terrain,2,50,3
PositionEntity terrain,-250,0,-390
Grass=LoadTexture(\".\g2_.jpg\")
EntityTexture terrain,Grass
ScaleTexture Grass,15,15
EntityType terrain,2


;DAS NICHT GUT----- SO HAB ICH AUCH ANGEFANGEN
;Himmel
;cubesky=CreateCube()
;ScaleEntity cubesky,250,360,365
;himmel =LoadTexture(\"himmel.bmp\")
;EntityTexture cubesky,himmel
;FlipMesh cubesky
;Color 0,0,0
;EntityType cubesky,2

;3D Kugel erstellen & bearbeiten
Kugel = CreateSphere(20)
EntityType Kugel,1
EntityRadius Kugel,1,1
ScaleEntity Kugel,0.59,0.59,0.59
EntityShininess Kugel,0.09
EntityParent Camera,Kugel
PositionEntity Camera,0,2.5,-4
stein=LoadTexture(\".\d.jpg\")
EntityTexture Kugel,stein
PositionEntity Kugel,65,20,30


;3D Cone erstellen
cone=CreateCone(30)
EntityColor cone,255,0,0
PositionEntity cone,60,13,60
ScaleEntity cone,0.5,0.5,0.5
EntityType cone,1

;3D Himmel

sky=LoadSkyBox( \".\sky\de_storm\",1 )
EntityParent sky,kugel



;3D Wuerfel erstellen & bearbeiten
Cube = CreateCube()
EntityType Cube,2
PositionEntity Cube,65,16,30
wasser=LoadTexture(\".\b.bmp\")
EntityTexture Cube,wasser


;Steuerung der Kugel definieren

While Not KeyHit(1)

x#=0
y#=0
z#=0

If KeyDown(205) Then MoveEntity Kugel, 0.4, 0, 0
If KeyDown(203) Then MoveEntity Kugel, -0.4, 0, 0
If KeyDown(200) Then MoveEntity Kugel, 0, 0, 0.4
If KeyDown(208) Then MoveEntity Kugel, 0, 0, -0.4

If KeyDown(72) Then MoveEntity Kugel, 0, 0.8, 0

If KeyDown(44) Then TurnEntity Kugel, 0, 2.5, 0
If KeyDown(45) Then TurnEntity Kugel, 0, -2.5, 0
If KeyDown(30) Then TurnEntity Kugel, 2, 0, 0
If KeyDown(31) Then TurnEntity Kugel, -2, 0, 0

MoveEntity Kugel,x#,-0.4,z#
MoveEntity cone,x#,-0.4,z#

;Rendermodi setzen
WireFrame(0)
Collisions 1,2,2,2
UpdateWorld
RenderWorld()
Flip
Wend
End