Graphics 1024,768,32,1
SetBuffer BackBuffer()
Global buffer=CreateImage (1024,768)

Type partikel
   Field x#,y#
   Field leben#
   Field xspeed#,yspeed#
   Field r,g,b 
End Type

anzahl=5000
For t=0 To anzahl
     createpartikel(0,0,.2)
Next
;=============> Hauptschleife <==============
Repeat     
   UpdatePartikel(MouseX(),MouseY())
   DrawBlock buffer,0,0
   Color 255,255,255:Text 0,14,"Partikel "+Str(anzahl)        
   Flip   
Until KeyHit(1)

;==========> Hauptschleife Ende <============

;+++++++++++++ Type Partikel ++++++++++++++++

Function CreatePartikel(x#,y#,zeit)
   p.partikel = New partikel
   p\x = x
   p\y = y
   p\leben = zeit
   p\xspeed = 0
   p\yspeed = 0
   p\r = Rnd(0,255)
   p\g = Rnd(0,255)
   p\b = Rnd(0,255)
End Function

;+++++++++ Type Partikel abarbeiten +++++++++

Function UpdatePartikel(xstart,ystart)
    SetBuffer ImageBuffer(buffer)
    Color 0,0,0:Rect 0,0,1024,768
    LockBuffer()       
      For p.partikel = Each partikel
         ro#=(ro#+6) Mod 360   
         p\x = p\x+(p\xspeed+Sin(ro))
         p\y = p\y+p\yspeed+Cos(ro)
         WritePixelFast p\x,p\y,p\r*$10000+p\g*$100+p\b,ImageBuffer(buffer)
       If p\leben>0
         p\leben = p\leben -.1:p\yspeed=p\yspeed+Rnd(.03,.06)
       Else
          p\x=xstart
          p\y=ystart
          If MouseDown(1)
             p\leben=Rnd(18)
             p\x=xstart
             p\y=ystart
             p\xspeed = Rnd(-.3,.3)
             p\yspeed = Rnd(-1,-4)    
          EndIf
       EndIf            
      Next   
    UnlockBuffer()
    SetBuffer BackBuffer()
End Function