Function UFOBullets()

   
   For t.trail=Each trail
      EntityAlpha t\entity,t\alpha
      t\alpha=t\alpha-0.01
      If t\alpha<=0
         FreeEntity t\entity
         Delete t      
      EndIf
   Next

   
   For ub.ufo_bullet=Each ufo_bullet
      b.bullet_trail=New bullet_trail : b\entity=CopyEntity(ub\entity) : EntityType b\entity,0 : b\alpha=1
      MoveEntity ub\entity,0,0,-20
      If EntityDistance(ub\entity,plane1)>5000 Or EntityY(ub\entity)<=-10 Then FreeEntity ub\entity : Delete ub
   Next

   For b.bullet_trail=Each bullet_trail
      b\alpha=b\alpha-0.1
      EntityAlpha b\entity,b\alpha
      If b\alpha<=0 Then FreeEntity b\entity : Delete b
   Next

End Function

Field birthtime

b.Bulltet = new Bullet
b\birthtime = millisecs()

for b.Bullet = each Bullet
if millisecs() - b\birthtime > 30000 delete b
next

Graphics 800,600,32,2
SetBuffer BackBuffer()



Repeat
   TBullet_logic()
   If KeyHit(57) TBullet_create(0,300,5,0)
   Cls
   

   TBullet_render()
   Flip
Until KeyHit(1)
End


Type TBullet
   Field birthtime%
   Field pos#[2]
   Field speed#[2]
End Type


Function TBullet_create.TBullet(x#,y#,speedx#=0,speedy#=0)
   b.TBullet = New TBullet
   b\birthtime = MilliSecs()
   b\pos[0] = x
   b\pos[1] = y
   b\speed[0] = speedx
   b\speed[1] = speedy
   Return b
End Function

Function TBullet_logic()
   Local time% = MilliSecs()
   For b.TBullet = Each TBullet
      b\pos[0] = b\pos[0] + b\speed[0]
      b\pos[1] = b\pos[1] + b\speed[1]
      If time - b\birthtime > 1000
         Delete b
      EndIf
   Next
End Function

Function TBullet_render()
   For b.TBullet = Each TBullet
      Oval b\pos[0]-2,b\pos[1]-2,4,4
   Next
End Function