A static screen. Nice for static video playbacks.

If you've ever played Homeworld 1, you'll remember the video playback sequences that had film static. I recreated that effect in Dark Basic.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `Turn on Manual Sync
sync on : sync rate 30

`turn on backdrop and color black
backdrop on
color backdrop rgb(0,0,0)

`main loop
do

`change static amount based on variable "full_static"
if full_static=1 then amount=8000 : color=155
if full_static=0 then amount=50 : color=rnd(50)+100

`if full_static=1 then clear the screen
if full_static=1
cls
endif

`make static dots, color: greyscale
ink rgb(color,color,color),0
for t=1 to amount : dot rnd(640),rnd(480) : next t

`set the speed for static_line
inc time
if time=>2 then time=0

`make a static_line
if time=0 and full_static=0
y=rnd(480)
for t=1 to 200 : dot rnd(640),y : next t
endif

`change variable "full_static" based on spacekey command
if spacekey()=1 then full_static=1
if spacekey()=0 then full_static=0

sync
loop