`Matrix-like Effect
set display mode 1920,1080,32
autocam off
sync rate 60
sync on
randomize timer()
color backdrop rgb(0,0,0)
set text font "fang song" `"adobe gothic std" `"ultima runes "`"meiryo" `"symbol"
set text size 24
hzz=16 : hzz2=hzz*0.5
create bitmap 1,hzz,1080
create bitmap 2,hzz,1080
create bitmap 3,hzz,1080
create bitmap 4,hzz,1080
create bitmap 5,hzz,1080
create bitmap 6,hzz,1080
num=75
dim sc#(200)
dim bb(200)
dim cc(200)
dim po(200)
dim dh(15)
for f=0 to 200
po(f)=f and 7
cc(f)=f and 15
next f
p=1
pk=0
y#=1080.0*0.05
for f=1 to num
make object plain f,17,2260,1
set object transparency f,1
rotate object f,0,0,0
set object texture f,0,1
scale object texture f,1,2
make object plain f+num,17,2260,1
set object transparency f+num,1
set object texture f+num,0,1
scale object texture f+num,1,3
rotate object f+num,0,0,0
t=f
inc pk:if pk>6 then pk=1
`if p>0
`yrotate object f,180
get image pk,2,0,hzz,1080,1
texture object f,pk
position object f,-940+t*25,y#-49,779+rnd(32)
texture object f+num,pk
position object f+num,-952+t*25,y#-50,779+rnd(32)
fix object pivot f
set object cull f,1
fix object pivot f+num
set object cull f+num,1
p=-p
n=75+rnd(28)
scale object f,n,100,100
n=75+rnd(28)
scale object f+num,n,100,100
a$="-0.005"+ str$(rnd(9999))
sc#(f)=val(a$)
a$="-0.006"+ str$(rnd(9999))
sc#(f+num)=val(a$)
next f
for n=0 to 599
for f=1 to num
scroll object texture f,0.0,sc#(f)
scroll object texture f+num,0.0,sc#(f+num)
next f
next n
color backdrop 0
set ambient light 65
pk=0
tt=1
set text opaque
````````````````````````````````````````````````````
do
position camera 0,0,-100
point camera 0,0,0
inc pk:if pk>6 then pk=1
set current bitmap pk
d=15*sin(delay*3)
e=abs(d*2)
`dec po(pk)
`if po(pk)<0
`po(pk)=10
`fade bitmap pk,99
`endif
`endif
v=34+rnd(104)
inc cc(pk)
if cc(pk)>7 then cc(pk)=0:inc bb(pk),16:if bb(pk)>1079 then bb(pk)=bb(pk)-1080
`if rnd(100)<95
ink rgb(240+d,50-e,60)
`else
`ink rgb(85+e,255,85+e)
`endif
if cc(pk)=0 then fade bitmap pk,97:ink rgb(255,55,100)
center text hzz2,bb(pk),chr$(v):dh(pk)=1
`center text hzz2,bb(pk)+1080,chr$(v)
get image pk,2,0,hzz,1080,1
texture object tt,pk:inc tt:if tt>150 then tt=1
set current bitmap 0
for f=1 to num
scroll object texture f,0,sc#(f)*0.7
scroll object texture f+num,0,sc#(f+num)*0.73
next f
`text 10,10,str$(sz2#)+" "+str$(pk)+" "+str$(sc#(15))
inc delay
sync
loop
