+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: QB64 Rising (https://qb64phoenix.com/forum/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://qb64phoenix.com/forum/forumdisplay.php?fid=3)
+---- Forum: Programs (https://qb64phoenix.com/forum/forumdisplay.php?fid=7)
+---- Thread: Splashes (/showthread.php?tid=2965)
Splashes - SierraKen - 08-19-2024
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