Const PLY=1,TER=2
Global speed#=2
Global schuss_speed# = 5.0

Type schuss
   Field x#,y#,z#
   Field mesh
End Type

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

timer = CreateTimer(60)

Graphics3D 1680,1050,32,1
SetBuffer BackBuffer()

Global piv = CreatePivot():PositionEntity piv,-500,22,0
Global cam = CreateCamera(piv)
Global cub = LoadMesh("weapon_1.3ds",cam)
PositionEntity cub,8,-5,20

Global bullet = LoadMesh("bullet.3ds")
HideEntity bullet

light = CreateLight()
map = LoadMesh("map_1.3ds")

EntityType cam,PLY
EntityType map,TER

Collisions PLY,TER,2,2
While Not KeyHit(1)
   WaitTimer(timer)
   
   move()
   mouse()
   shot()
   
   TranslateEntity cam,0,-1,0
   
   ;---------------------;
   Flip 0
   UpdateWorld()
   RenderWorld()
   Text 0,0,EntityX(cam)
   Text 0,12,EntityY(cam)
   Text 0,24,EntityZ(cam)
Wend
End

Function move()
   If KeyDown(17) Then
      MoveEntity cam,0,0,speed#
   EndIf
   
   If KeyDown(31) Then
      MoveEntity cam,0,0,-speed#
   EndIf
   
   If KeyDown(30) Then
      MoveEntity cam,-speed#,0,0
   EndIf
   
   If KeyDown(32) Then
      MoveEntity cam,speed#,0,0
   EndIf
End Function

Function mouse()
   dx#=(GraphicsWidth()/2-MouseX())*0.2
   dy#=(GraphicsHeight()/2-MouseY())*0.2
   TurnEntity cam,-dy,dx,0
   RotateEntity cam,EntityPitch(cam,1),EntityYaw(cam,1),0,1
   MoveMouse GraphicsWidth()/2, GraphicsHeight()/2
End Function

Function shot()
   Local mh = MouseHit(1)
   If mh Then
      s.schuss = New schuss
      s\mesh = CopyEntity(bullet)
      s\x# = EntityX(cam)-470
      s\y# = EntityY(cam)+22
      s\z# = EntityZ(cam)+0
   EndIf
   For s.schuss = Each schuss
      s\z# = s\z# + schuss_speed#
      PositionEntity s\mesh,s\x#,s\y#,s\z#
      TurnEntity s\mesh,-dy,dx,0
   Next
End Function

Function shot()
   Local mh = MouseHit(1)
   If KeyHit(59) Then
      s.schuss = New schuss
      s\mesh = CopyEntity(bullet)
      PositionEntity s\mesh,EntityX(cam)-488,EntityY(cam)+19,EntityZ(cam)-5
      RotateEntity s\mesh,EntityPitch(cam),EntityYaw(cam),0
   EndIf
   For s.schuss = Each schuss
      MoveEntity s\mesh,0,0,schuss_speed#
   Next
End Function

Function mouse()
   dx#=(GraphicsWidth()/2-MouseX())*0.2
   dy#=(GraphicsHeight()/2-MouseY())*0.2
   TurnEntity cam,-dy,dx,0
   RotateEntity cam,EntityPitch(cam,1),EntityYaw(cam,1),0,1
   MoveMouse GraphicsWidth()/2, GraphicsHeight()/2
End Function

RotateEntity cam,EntityPitch(cam,1),EntityYaw(cam,1),0,1