Graphics3D 800,600,16,2
SetBuffer BackBuffer()

Global spritecounter

;player
Global player = CreateSphere(16)
PositionEntity player,-4.5,0,4
ScaleEntity player,.3,.3,.3

;enemy
Global enemy = CreateCube()
PositionEntity enemy, 3,0,4
ScaleEntity enemy,.3,.3,.3

;camera
Global camera = CreateCamera()
MoveEntity camera,0,0,-1
CameraRange camera,1,10000
CameraViewport camera,0,0,800,600
CameraProjMode camera,1
CameraZoom camera,1
light = CreateLight()

;variables
Global canshoot = 1
Global weapon = 1
Global level = 1
Global lastshot
Global shootframe
Global cooldown
Global loop
Global fpstimer = MilliSecs()+1000
Global fps

;type
Type shot
   Field x#
   Field y#
   Field z#
   Field hspeed#
   Field vspeed#
   Field remove
   Field gfx
End Type

;mainloop
While Not KeyHit(1)
   ;fps
   loop = loop + 1
   If MilliSecs() > fpstimer Then
      fpstimer = MilliSecs() + 1000
      fps = loop
      loop = 0
   EndIf
   Cls
   UpdateWorld
   RenderWorld
   
      WireFrame = True
   If fps > 59 Then
      EntityColor player,0,255,0
   ElseIf fps > 40 Then
      EntityColor player,255,255,0
   Else
      EntityColor player,255,0,00
   EndIf
   
   If weapon = 1 Then playershot1
   Color 0,255,0
   Text 10,10,"X   " + EntityX(player)
   Text 10,20,"Y   " + EntityY(player)
   Text 10,30,"spritecounter  " + spritecounter
   Color 255,0,0
   Text 10,50,"FPS  " + fps
   Flip
Wend
ClearWorld
FlushKeys
End

;function
Function playershot1()
If canshoot = 1 Then

;createshots
   If KeyDown(57) Then
      If cooldown < MilliSecs()
         p.shot = New shot
         p\x# = EntityX(player)
         p\y# = EntityY(player)
         p\z# = EntityZ(player)
         p\hspeed# = 0.1
         p\vspeed# = 0.0
         p\remove = 0
         p\gfx = CreateSprite()
         PositionEntity p\gfx,p\x#,p\y#,p\z#
         ScaleSprite p\gfx,.03,.3
         spritecounter = spritecounter + 1
         cooldown = MilliSecs() + 15
      EndIf
   EndIf
   
EndIf
   
;updateshots   
   For p.shot = Each shot
      MoveEntity p\gfx,p\hspeed#,p\vspeed#,0
      p\x# = p\x# + p\hspeed#
      p\y# = p\y# + p\vspeed#
      If p\x# < -5 Or p\x# > 5 Or p\y# < -4 Or p\y# > 4 Then p\remove = 1
      If p\remove = 1 Then
         FreeEntity p\gfx
         Delete p.shot
         spritecounter = spritecounter - 1
      EndIf
   Next
End Function