New Years Eve Fireworks!

[SierraKen]

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. 

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$ <> ""