That's pretty cool
. It does work in DBPro, only it goes quite fast.
Here's my version, just the text scrolling on it's own:
sync on
sync rate 20
hide mouse
autocam off
randomize timer()
dim chars(65,2)
dim char$(65)
start_range=150
trail_length=50
wrap_range=50
for j=0 to 63
chars(j,0)=int(rnd(start_range))*-1
chars(j,1)=chars(j,0)-int(rnd(trail_length))
char$(j)=chr$(int(rnd(60)+33))
for i=1 to 47
char$(j)=char$(j)+chr$(int(rnd(60)+33))
next i
next j
do
a#=wrapvalue(a#+1)
k=12
for j=1 to 63
chars(j,0)=chars(j,0)+1
chars(j,1)=chars(j,1)+1
if chars(j,1)>50
chars(j,0)=int(rnd(wrap_range))*-1
chars(j,1)=chars(j,0)-int(rnd(trail_length))
endif
for i=1 to 47
ink rgb(0,100-((chars(j,0)-i)*(100/trail_length)),0),0
if i=chars(j,0)-1 then ink rgb(0,255,0),0
if i<chars(j,0) and i>chars(j,1) then text j*10,i*10,mid$(char$(j),i)
if int(rnd(800))=1
temp$=char$(j):char$(j)=chr$(int(rnd(60)+33))
for m=1 to 47
char$(j)=char$(j)+mid$(temp$,m)
next m
endif
if int(rnd(200))=1
temp$=char$(j)
char$(j)=left$(temp$,i)
char$(j)=char$(j)+chr$(int(rnd(60)+33))
char$(j)=char$(j)+right$(temp$,len(temp$)-(i+1))
endif
k=k+2
next i
next j
sync
cls
loop
It's from this topic:
http://www.darkbasicpro.com/apollo/view.php?t=10931&b=11
Once I was but the learner,
now, I am the Master.