I challenged myself to complete this in 30 minutes or less (getting the 'get image' command just right cost me like 12 minutes tho) and I just scraped by, here is the code, no media required. Did it in DBPRO.
Rem Project: Matrix Waterfall
Rem Created: 1/3/2005 10:02:11 PM
Rem ***** Main Source File *****
global dim waterfall#(53,4)
global dim waterfallpic#(53,9)
sync on
sync rate 60
ink rgb(0,255,0),rgb(0,255,0)
set text size 6
text 0,0, "0"
get image 1,1,4,12,18,1
cls
text 0,0, "1"
get image 2,1,4,12,18,1
cls
randomize timer()
for x=1 to 53
makewaterfall(rnd(5)+4,rnd(5)+10,x,x*12-12,rnd(480))
next x
do
for x=1 to 53
inc waterfall#(x,4),waterfall#(x,2)
if waterfall#(x,4)>=480+(waterfall#(x,1)*18):
makewaterfall(rnd(5)+4,rnd(5)+10,x,x*12-12,0)
endif
for y=1 to waterfall#(x,1)
paste image waterfallpic#(x,y),waterfall#(x,3),waterfall#(x,4)-y*18-18
next y
next x
sync
cls
loop
function makewaterfall(size#,speed#,arraypos,xpos#,ypos#)
waterfall#(arraypos,1)=size#
waterfall#(arraypos,2)=speed#
waterfall#(arraypos,3)=xpos#
waterfall#(arraypos,4)=ypos#
for x=1 to size#
waterfallpic#(arraypos,x)=rnd(1)+1
next x
endfunction
I didn't want to use the text command because it is much much slower than paste image, so that's why you don't see any of the cool japanese text characters
Searching for file 'sanity'...
Sorry, no results were found.
