Graphics 1024,768,32,1
.anfang
SeedRnd MilliSecs()
SetBuffer BackBuffer()
newstart()
newpoint(1)
While Not KeyHit(1) 
Cls
Color 255,255,255
Text 5,5,\"Mit der Plus-Taste auf dem Num-Pad kann man neue machen und mit der Leertaste Neustart\"
If KeyHit(57) Then Gosub anfang
keys()
drawpoint()
bewegungpoint()
insfeld()
Flip
Wend
WaitKey
End

Function keys()
If KeyHit(78) Then newpoint(1)
End Function

Function newpoint(anzahlschlangen)
For i = 0 To anzahlschlangen-1
werk.feuer = New feuer
werk\x = Rand(50,974)
werk\y = Rand(50,718)
werk\winkel = 0
werk\speed = Rand(2,5)
Next
End Function

Function drawpoint()
For werk.feuer = Each feuer
Color Rand(0,255),Rand(0,255),Rand(0,255)
Oval werk\x,werk\y,10,10,0
Next
End Function

Function bewegungpoint()
For werk.feuer = Each feuer
werk\winkel= werk\winkel + Rand(-15,15)    
If werk\winkel > 359 Then werk\winkel = 0
If werk\winkel < 0 Then werk\winkel = 359
werk\x = werk\x + Sin(werk\winkel)*werk\speed
werk\y = werk\y - Cos(werk\winkel)*werk\speed
Next
End Function

Function insfeld()
For werk.feuer = Each feuer
If werk\x < 0 Then werk\winkel = 90
If werk\x > 1024 Then werk\winkel = 270
If werk\y < 50 Then werk\winkel = 180
If werk\y > 768 Then werk\winkel = 0
Next
End Function

Function Newstart()
For werk.feuer=Each feuer

Delete werk
Next
End Function

Type Feuer
Field x
Field y
Field winkel
Field speed
End Type

SeedRnd MilliSecs()