I experimented a lot this afternoon and came up with this.
Happy New Years!
Edit: This version doesn't have the fireworks sound and isn't as good as one in a zip file a couple replies down.
Happy New Years!
Edit: This version doesn't have the fireworks sound and isn't as good as one in a zip file a couple replies down.
Code: (Select All)
Screen _NewImage(800, 600, 32)
oldstart = 0
pi = _Pi
oldx = 0
oldy = 0
ch = 15
_Title "SierraKen's Fireworks Show!"
Randomize Timer
Do
For changes = 1 To ch
r = Rnd * 255
g = Rnd * 255
b = Rnd * 255
For d = 200 To Rnd * 200 Step -.02
s = s + (Rnd + 10)
x = Cos(s * pi / 180) * d
y = Sin(s * pi / 180) * d
For sz = .1 To 1 Step .1
Circle (x + oldx + 400, y + oldy + 300), sz, _RGB32(r, g, b)
Next sz
Next d
oldx = x
oldy = y
Sound 1000, .2
_Delay .1
Line (0, 0)-(800, 600), _RGB32(0, 0, 0, 15), BF
Next changes
For t = 1 To 8
Line (0, 0)-(800, 600), _RGB32(0, 0, 0, 50), BF
_Delay .2
Next t
_Delay Rnd * 1.2
a = a + 1
If a = 30 Then
ch = 200
s = 2
End If
If a = 31 Then End
Cls
Loop Until InKey$ <> ""
