Splashes

[SierraKen]

I'm sure most of you think this is very simple, but I'm learning.  

Press any key to stop. 

Code: (Select All)

'Splashes by SierraKen

Screen _NewImage(800, 600, 32)

_FullScreen _Stretch , _Smooth

start:

s = 10

s2 = -10

s3 = -30

s4 = -50

s6 = -70

l = 0

_Display

Paint (1, 1), _RGB32(0, 0, 200)

b = 241

g = 50

r = 50

Do



    _Limit 750

    s = s * 1.0015

    s2 = s2 * 1.0015

    s3 = s3 * 1.0015

    s4 = s4 * 1.0015

    s5 = s5 * 1.0015

    s6 = s6 * 1.0015

    For waves = 1 To 7

        b = b + 2

        If b > 255 Then b = 241

        Circle (400 + ((Rnd * 50)), 300 + (Rnd * 50)), s, _RGB32(r, g, b)

        Circle (400 + ((Rnd * 50)), 300 + (Rnd * 50)), s2, _RGB32(r, g, b)

        Circle (400 + ((Rnd * 50)), 300 + (Rnd * 50)), s3, _RGB32(r, g, b)

        Circle (400 + ((Rnd * 50)), 300 + (Rnd * 50)), s4, _RGB32(r, g, b)

        Circle (400 + ((Rnd * 50)), 300 + (Rnd * 50)), s5, _RGB32(r, g, b)

        Circle (400 + ((Rnd * 50)), 300 + (Rnd * 50)), s6, _RGB32(r, g, b)

    Next waves

    l = l + 1

    If l > 3000 Then GoTo start:

    _Display

    If l / 31 = Int(l / 31) Then Cls: Paint (1, 1), _RGB32(0, 0, 200)

Loop Until InKey$ <> ""

End