Graphics3D 640, 480, 16, 2
SetBuffer BackBuffer()



Global shot_timer




Global sprite = LoadSprite("bild.bmp",+4+256) ;sprite laden
PositionEntity sprite, 0, 0, 0
HideEntity sprite


Global waffe = CreateCube() ;eine "waffe"
ScaleEntity waffe,1,1,3



Global camera = CreateCamera(); Cam die sich dreht (um auch die seite schüsse sehen zu können)
MoveEntity camera,0,5,-20

Global CamPivot = CreatePivot()
EntityParent camera,CamPivot
MoveEntity CamPivot,0,0,10



Type shot
   Field shot_x
   Field shot_y
   Field shot_z
   Field shot_sprite
End Type






While Not KeyHit(1)



   create_shot()
   update_shots()




   TurnEntity CamPivot,0,1,0

   UpdateWorld()
   RenderWorld
   Flip
Wend
End




Function create_shot()

   shot_timer=shot_timer+1
   If MouseDown(1) And shot_timer > 20 Then
      shot_timer=0

      s.shot = New shot
         s\shot_sprite = CopyEntity(sprite)
         s\shot_x = EntityX(waffe)
         s\shot_y = EntityY(waffe)
         s\shot_z = EntityZ(waffe)+3
         ShowEntity s\shot_sprite

   End If


      



End Function




Function update_shots()

      For s.shot = Each shot
         MoveEntity s\shot_sprite ,0,0,0.3
      Next



End Function