Graphics3D 1280,1024,16,2
SetBuffer BackBuffer()
SeedRnd MilliSecs()
TFormFilter 0

ClsColor 0,0,255

cam=CreateCamera()
CameraViewport cam,0,0,1280,1024

Global part=CreateSprite()
ScaleSprite part,5,5

Global p.partikel

Type partikel
   Field x#,y#,sx#,sy#,r#,g#,b#,sc#,a#,i
End Type

Function crpartikel()
   For i=1 To 5
      p=New partikel
      p\x=0   
      p\y=0
      p\sx=Rnd(-0.7,0.7)
      p\sy=Rnd(-3,-9)
      p\r=255
      p\g=255
      p\b=255
      p\a=1
      p\sc=Rnd(6.125,12.25)
      p\i=CopyEntity(part)
      EntityAlpha p\i,1
      EntityColor p\i,p\r,p\g,p\b
      PositionEntity p\i,p\x,p\y,768
   Next
End Function

Function movepartikel()
   For p=Each partikel
      MoveEntity p\i,p\sx,p\sy,0
      RotateSprite p\i,5
      If EntityY(p\i)<-1024 FreeEntity p\i:Delete p
   Next
End Function

Function colorpartikel()
   For p=Each partikel
      If p\b>0
         p\b=p\b-25.5
         ElseIf p\g>0
         p\g=p\g-p\sc
         Else
         p\a=p\a-0.001
      EndIf
      If p\r<0 p\r=0
      If p\g<0 p\g=0
      If p\b<0 p\b=0
      If p\a<0 p\a=0
      EntityAlpha p\i,p\a
      EntityColor p\i,p\r,p\g,p\b
      If p\a=0 FreeEntity p\i:Delete p
   Next
End Function

While Not KeyHit(1)
   If KeyDown(57)
      crpartikel()
   EndIf
   UpdateWorld()
   RenderWorld()
   Flip
   Cls
   colorpartikel()
   movepartikel()
Wend
End