Graphics 640,480
SetBuffer BackBuffer()
Dim Partikelstartx(200)
Dim Partikelstarty(200)
Dim scale#(200)
Dim particel(201)
Global schaltersprung = 0
Global schalter#
Global particelstartx
Global particelstarty
Global partikelanzahl
Global panz
Global pinz#
Global TFPS
Global FPS
Global TimerFPS

Repeat

CreateExplosion "exp2.bmp",300,200
ShowFPS()

Flip
Cls

Until KeyHit(1)


Function  CreateExplosion(particelbild$,particelstartx,particelstarty)
 
If schalter > 1 Then Goto schaltersprung
   For I = 1 To 20
      Partikelstartx(I) = Rand(300,400)
      Partikelstarty(I) = Rand(300,400)
      schalter# = schalter# +0.25
      scale#(I) = 0.5
      particel(I) = LoadImage(particelbild$)
      panz = 1
Next
.schaltersprung



For I = 1 To panz

particel(I) = LoadImage(particelbild$)
ScaleImage particel(I),scale#(I),scale#(I)
DrawImage particel(I) ,Partikelstartx(I),Partikelstarty(I)

pinz#=pinz#+0.05


If scale#(I) > 3 Then
   scale#(I) = scale#(I) -0.06
Else
   scale#(I)=scale#(I)+0.03
EndIf



If panz < 5 Then
   If pinz# > 1 Then
      panz=panz+1
      Partikelstartx(panz) = Rand(300,400)
      Partikelstarty(panz) = Rand(300,400)
      schalter# = schalter# +0.25
      scale#(panz) = 0.5
      pinz# = 0
   EndIf
EndIf

Next
End Function


Function ShowFPS ()
TFPS = TFPS + 1
If MilliSecs () - TimerFPS => 1000 Then
   TimerFPS = MilliSecs ()
   FPS = TFPS
   TFPS = 0
End If
Text (0,0,"FPS : "+FPS)
End Function