AppTitle "Sphere-Shooter"
;---Grafikeinstellungen---
Graphics3D 800,600,16,2
SetBuffer BackBuffer()
timer=CreateTimer(60)
AutoMidHandle 1



;---Kamera-Einstellungen---
cam=CreateCamera()
CameraRange cam,1,50
CameraFogMode cam,1
CameraFogColor cam,0,0,0



;---Terrain---
;Heightmap
Global map=LoadTerrain("Images\heightmap.png")
ScaleEntity map,0.1,10,0.1
EntityTexture map,LoadTexture("Images\land.png")
;Himmel
sky=CreateSphere()
ScaleEntity sky,5,5,5
PositionEntity sky,EntityX(cam),EntityY(cam),EntityZ(cam)
EntityParent sky,cam
EntityTexture sky,LoadTexture("Images\himmel.png")
FlipMesh sky
EntityOrder sky,1



;---Spieler-Einstellungen---
Global player=CreateSphere()
EntityParent cam,player
PositionEntity player,25,10,21



;---Typeeinstellunge---
Type schuss
Field modell
Field dead
End Type



;---Kollisions---
EntityType map,1
EntityType player,2

Collisions 2,1,2,3



;---!---Hauptschleife---!---
While Not keyhit_ESC

;Tastenabfrage
keyhit_ESC=KeyHit(1)
keydown_Q=KeyDown(16)
keydown_W=KeyDown(17)
keydown_E=KeyDown(18)
keydown_A=KeyDown(30)
keydown_S=KeyDown(31)
keydown_D=KeyDown(32)



;---Spielsteuerung---
If keydown_W Then MoveEntity player,0,0,0.2
If keydown_A Then TurnEntity player,0,1,0
If keydown_S Then MoveEntity player,0,0,-0.2
If keydown_D Then TurnEntity player,0,-1,0

If MouseHit(1) create_schuss()

If keydown_Q Then MoveEntity player,-0.1,0,0
If keydown_E Then MoveEntity player,0.1,0,0

TranslateEntity player,0,-0.2,0



;---Schüsse---
For s.schuss=Each schuss
   MoveEntity s\modell,0.3,0,0
Next



;---Sonstiges---
UpdateWorld
RenderWorld
WaitTimer timer
Flip 0
Wend
End



;---!---Funktionen---!---
Function create_schuss()
s.schuss=New schuss
s\modell=CreateSphere()
ScaleEntity s\modell,0.2,0.2,0.2
PositionEntity s\modell,EntityX(player),EntityY(player),EntityZ(player)
RotateEntity s\modell,EntityPitch(player),EntityYaw(player),EntityRoll(player)
End Function

;---Schüsse---
For s.schuss=Each schuss
   MoveEntity s\modell,0.3,0,0
Next

;---Schüsse---
For s.schuss=Each schuss
   MoveEntity s\modell,0,-0.3,0
Next