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

 camera=CreateCamera()
 CameraClsMode camera,0,1
 CameraRange camera,1,800
 PositionEntity camera,400,-300,400
Cls


;; Felder erstellen
   Type particle
      Field xpos#
       Field ypos#
      Field xspeed#
      Field yspeed#   
      Field sprite
      Field rotation
      Field winkel
      Field alpha#
      Field richtung
   End Type






Function Plop_Effekt(SpriteF)

For I=0 To 1
R = Rand(1,2)


         ;; Neue Partikel hinzufügen
         pt.particle = New particle
            pt\xpos = MouseX() + Rand(-15,15)
            pt\ypos = MouseY()
            pt\xspeed = Rnd(-4,4)
            pt\yspeed = Rnd(-4,4)
            pt\alpha = 1
            If SpriteF = Gelb Then pt\sprite = LoadSprite("Gelb_Sprite.bmp")
             If SpriteF = Rot Then pt\sprite = LoadSprite("Rot_Sprite.bmp")
             ScaleSprite pt\sprite,5,5
         ;; Particle Drehung
            If R = 1 Then
              pt\richtung = Rand(-10,-5)
             Else
                  pt\richtung = Rand(5,10)
                EndIf
       Next

End Function



Function Explosion_Particle()



         
 For pt.particle = Each particle
      pt\xpos = pt\xpos + pt\xspeed + windspeed#
      pt\ypos = pt\ypos + pt\yspeed
      pt\winkel=(pt\winkel+pt\richtung) Mod 360
      RotateSprite pt\sprite,pt\winkel
      pt\alpha = pt\alpha - 0.005
      EntityAlpha pt\sprite,pt\alpha





 PositionEntity pt\sprite,pt\xpos,-(pt\ypos), 800


   ;; Partikel welche ausserhalb des Bildschirms liegen,werden gelöscht
   If pt\alpha <= 0 Then
    Delete pt
   EndIf
   

 
   
   Next

End Function










Repeat
Cls





If MouseDown(1)
 Plop_Effekt(Gelb)
EndIf
 Explosion_Particle()


RenderWorld()
Flip


Until KeyDown(1)

End

Function Plop_Effekt(SpriteF$)