I have developed a simple yet effective way of steering through a 3-D world. I am not sure if it works for DB.
make camera 1:set camera range 1,1,999
Do
sync rate 25
position camera 1,cx#,5,cz#
rotate camera 1,rx#,t#,rz#
move camera 1,cz2#
t#=wrapvalue(tn#)
if upkey()=1
cz2#=cz2#+1
endif
if downkey()=1
cz2#=cz2#-1
endif
if rightkey()=1
tn#=tn#+1.5
endif
if leftkey()=1
tn#=tn#-1.5
endif
loop
Here it is in a enviorment
make camera 1:set camera range 1,1,999:color backdrop 1,RGB(64,0,128)
`ground
make object box 2,1000,1,1000:color object 2,RGB(128,64,0)
`houses left side
make object cylinder 3,10:position object 3,-20,2,0:color object 3,RGB(197,197,137)
make object cone 4,12:position object 4,-20,12,0:color object 4,RGB(128,128,0)
make object cylinder 5,10:position object 5,-20,2,15:color object 5,RGB(197,197,137)
make object cone 6,12:position object 6,-20,12,15:color object 6,RGB(128,128,0)
make object cylinder 7,10:position object 7,-20,2,30:color object 7,RGB(197,197,137)
make object cone 8,12:position object 8,-20,12,30:color object 8,RGB(128,128,0)
make object cylinder 9,10:position object 9,-20,2,45:color object 9,RGB(197,197,137)
make object cone 10,12:position object 10,-20,12,45:color object 10,RGB(128,128,0)
make object box 19,10,10,40:position object 19,-20,5,75:color object 19,RGB(197,197,137)
`houses right side
make object cylinder 11,10:position object 11,20,2,0:color object 11,RGB(197,197,137)
make object cone 12,12:position object 12,20,12,0:color object 12,RGB(128,128,0)
make object cylinder 13,10:position object 13,20,2,15:color object 13,RGB(197,197,137)
make object cone 14,12:position object 14,20,12,15:color object 14,RGB(128,128,0)
make object cylinder 15,10:position object 15,20,2,30:color object 15,RGB(197,197,137)
make object cone 16,12:position object 16,20,12,30:color object 16,RGB(128,128,0)
make object cylinder 17,10:position object 17,20,2,45:color object 17,RGB(197,197,137)
make object cone 18,12:position object 18,20,12,45:color object 18,RGB(128,128,0)
make object box 20,10,10,40:position object 20,20,5,75:color object 20,RGB(197,197,137)
Do
sync rate 25
position camera 1,cx#,5,cz#
rotate camera 1,rx#,t#,rz#
move camera 1,cz2#
t#=wrapvalue(tn#)
if upkey()=1
cz2#=cz2#+1
endif
if downkey()=1
cz2#=cz2#-1
endif
if rightkey()=1
tn#=tn#+1.5
endif
if leftkey()=1
tn#=tn#-1.5
endif
loop
Mysteries Surround You
