No media required, just copy and paste this code into your DBC editor and run!
cls : backdrop on : color backdrop 0 : sync on : hide mouse : dim bx(10) : dim by(10) : for block=0 to 10 : bx(block)=rnd(629) : by(block)=0-bx(block)*2 : next block
do : ink rgb(255,255,255),1 : box x,470,x+50,475 : x=mousex() : if x=>589 then x=589 : if x=<0 then x=0
ink rgb(255,255,255),1 : set cursor 10,10 : print score : ink rgb(255,0,0),1
for block=0 to 10 : if block=>8 then ink rgb(255,0,0),1 : else ink rgb(0,0,255),1
box bx(block),by(block),bx(block)+10,by(block)+10 : by(block)=by(block)+1
if by(block)=461 : if block=>8 : bx(block)=rnd(629) : by(block)=0-bx(block)*2 : inc score,10 : else : bx(block)=rnd(629) : by(block)=0-bx(block)*2 : dec score,10
endif : endif : if by(block)=460 : if bx(block)=>x : if bx(block)=<x+50 : if block=>8
by(block)=0-rnd(800) : bx(block)=rnd(629) : dec score,10 : else : by(block)=0-rnd(800) : bx(block)=rnd(629) : inc score,10
endif : endif : endif : endif : next block : sync : loop
Collect all the blues you can by moving the pad with mouse, but avoid reds at all costs. For every blue that you miss you lose 10 points, but letting the reds fall unnoticed will earn you extra points. Enjoy! Storyline: (blue blocks are H20, red is acid and the white pad (you) is a water loving hydrogen molocule.)
The Old Remedy 3D Skateboarding; coming April 27th 2004, 85% completed and now in BETA
