Graphics 800,600,16,1
SeedRnd MilliSecs()
SetBuffer BackBuffer()
HidePointer
Const anzahl=20

Type Obj
Field x,y
Field r,g,b,Farbe
Field start,dauer
Field richtungx,richtungy
End Type

Global Funke.obj,farbe

For h=1 To anzahl
Createfunken()
Next


While Not KeyHit(1)
Cls

Updatefunken()

Flip
Wend
End

Function Updatefunken()
For Funke=Each obj
funke\x=funke\x+funke\richtungx
funke\y=funke\y+funke\richtungy

If funke\start+funke\dauer<MilliSecs() Then
 Delete Funke
 createfunken()
EndIf

LockBuffer BackBuffer()
farbe=$FF000000+funke\r*$10000+funke\g*$100+funke\b
If funke\x>0 And funke\X<800 And funke\Y>0 And funke\Y<600 Then WritePixelFast funke\x,funke\y,Farbe
UnlockBuffer BackBuffer()

Next
End Function

Function Createfunken()
funke=New obj
funke\x=MouseX()
funke\y=MouseY()
funke\r=Rnd(0,255)
funke\g=Rnd(0,255)
funke\b=Rnd(0,255)
funke\start=MilliSecs()
funke\dauer=Rand(100,5000)
Repeat
funke\richtungx=Rand(-1,1)
funke\richtungy=Rand(-1,1)
Until (funke\richtungy<>0)Or(funke\richtungx<>0)
End Function