AppTitle "Partikelsystem"
Graphics3D 1024,768,0,2

;Laden....
cam=CreateCamera()
PositionEntity cam,0,5,-50

Dim partikel(200,2)
Dim partikelspeed#(200)
Dim alpha#(200)
For i=1 To 200
partikel(i,1)=LoadSprite("partikel.jpg")
alpha(i)=0.2
partikelspeed(i)=0.3
ScaleSprite partikel(i,1),7,7
Next
Dim partikel2(200,2)
Dim partikelspeed2#(200)
For i=1 To 200
partikel2(i,1)=LoadSprite("partikel.jpg")
EntityAlpha partikel2(i,1),0.2
EntityColor partikel2(i,1),255,170,0
partikelspeed2(i)=0.3
ScaleSprite partikel2(i,1),7,7
Next



;Hauptschleife+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Color 0,0,0
timer=CreateTimer(30)
SetBuffer BackBuffer()
Repeat


For i=1 To 200
MoveEntity partikel(i,1),0,partikelspeed(i),0
a=a+1
If a>20 Then
a=0
SeedRnd MilliSecs()
EndIf
alpha(i)=alpha(i)-0.005
EntityAlpha partikel(i,1),alpha(i)

partikel(i,2)=partikel(i,2)+1
If partikel(i,2)>Rand(40,70)
PositionEntity partikel(i,1),Rand(-5,5)-30,-25,Rand(-5,5)
partikel(i,2)=0
alpha(i)=0.2
partikelspeed#(i)=Rnd(0.2,0.6)
EndIf
Next


For i=1 To 200
MoveEntity partikel2(i,1),0,partikelspeed2(i),0
a=a+1
If a>30 Then
a=0
SeedRnd MilliSecs()
EndIf
partikel2(i,2)=partikel2(i,2)+1
If partikel2(i,2)>Rand(15,40)
PositionEntity partikel2(i,1),Rand(-5,5)+30,-25,Rand(-5,5)
partikel2(i,2)=0
partikelspeed2#(i)=Rnd(0.5,1.5)
EndIf
Next


WaitTimer(timer)
UpdateWorld()
RenderWorld()
Flip
Cls
Until KeyDown(1)
;Hauptschleife+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
End