Du benutzt Plot. Schäm dich! Im übrigen heisst es particle und nich particel.

Type particle
Field x#
Field y#
Field ri
Field e
Field s#
Field r
Field g
Field b
Field fk#
Field gr#
End Type
SeedRnd(millisecs())
;Type flock
; Field x
; Field xdif
; Field y
;End type
;
Type rocket
Field x#
Field y#
Field e
Field ri
End Type

Graphics 800,600,16,2
SetBuffer FrontBuffer()
Timer = CreateTimer(60)

rocketvalue = 50
rocketemin = 20
rocketemax = 50
gravity# = 0.075
minparticle = 750
maxparticle = 1500

date = Right$(CurrentDate(),4)

Local n$[4]
bigfont = LoadFont("Arial",60,1)
Smallfont = LoadFont("Arial", 50, 1)
SetFont bigfont
n[0] = "Happy new Year " + (date+1)
n[1] = "Michael Stummvoll aka Smily0412"
n[2] = "wünscht jedem Computer-Freak,"
n[3] = "Programmierer und Blitzportal-User"
n[4] = "ein fröhliches neues Jahr"

Repeat
Cls

olddate = date
date = Right$(CurrentDate(),4)
If olddate <> date Then
showtext=1:rocketvalue=5
For x = 0 To 10000
particle.particle = New particle
particle\x = 400
particle\y = 300
particle\ri = Rand(0,359)
particle\e = 128
particle\s = Rnd(0.0,6.0)
particle\r = Rand(0,2)
particle\g = Rand(0,2)
particle\b = Rand(0,2)
particle\gr = -2
Next
End if


If Not (Rand(0,rocketvalue) Or KeyDown(57))
rocket.rocket = New rocket
rocket\x = Rand(0,800)
rocket\y = 600
rocket\ri = Rand(150,210)
rocket\e = Rand(rocketemin,rocketemax)
End If

If nc < 255 And showtext nc = nc + 1
Color nc,nc,0
For z = 0 To 4
If z=0 Then SetFont bigfont
If z=1 Then SetFont smallfont
Text 400,130+z*60, n[z], 1, 1
Next

particles = 0
LockBuffer BackBuffer()
For particle.particle = Each particle
rgb=1*$1000000 + (particle\e * particle\r)*$10000 + (particle\e * particle\g)*$100 + (particle\e * particle\b)
rgb = rgb And $FFFFFF
WritePixelFast particle\x, particle\y,rgb
particle\e = particle\e - 2
particle\x = particle\x + Sin(particle\ri) * particle\s + particle\fk
particle\y = particle\y + Cos(particle\ri) * particle\s + particle\gr#
particle\gr = particle\gr + gravity
If particle\e < 0 Then Delete particle.particle
particles=particles+1
Next
UnlockBuffer BackBuffer()
Color 255,255,255
Rockets = 0
For Rocket.rocket = Each rocket
Line rocket\x,rocket\y, rocket\x+Sin(rocket\ri)*10,rocket\y+Cos(rocket\ri)*10
rocket\x = Rocket\x + Sin(rocket\ri)*10
rocket\y = Rocket\y + Cos(rocket\ri)*10
rocket\e = rocket\e - 1
If rocket\e <= 0 Then
Repeat
r = Rand(0,2)
g = Rand(0,2)
b = Rand(0,2)
Until (r or g Or b) > 2
For x = 0 To Rand(minparticle, maxparticle)
particle.particle = New particle
particle\x = rocket\x
particle\y = rocket\y
particle\ri = Rand(0,359)
particle\e = 128
particle\s = Rnd(0.0,1.0)
particle\r = r
particle\g = g
particle\b = b
particle\gr = -2
particle\fk = Sin(rocket\ri)*2
Next
Delete rocket.rocket
End If
rockets = rockets + 1
Next

; For flock.flock = Each flock
; Oval flock\x+sin(flock\y+flock\xdif)*10,flock\y,2,2
; flock\y = flock\y + 1
; If flock\y > 600 Delete flock.flock
; next

If minparticle > 0 And particles > 0
If t > 2 Then
minparticle = minparticle-(t-2)
maxparticle = maxparticle-(t-2)
End If
If t < 2 Then
minparticle = minparticle+1
maxparticle = maxparticle+1
End If
End If
; Print minparticle
t = WaitTimer(timer)
Flip 0
Until KeyHit(1)

Beim Jahreswechsel stürzt das Programm bei mir immer ab