help!!!
hello with the bdpro it does not work help!!! the program compiles it and then it is closed help!!!
separate example
`///// 3d scroller, code and font by Grant Clark, aka GeeCee3, Credit me please!!! "geecee3@hotmail.com"
`\\\\\ this is the first bit of code i have ever submitted to anyone, so i hope you like it.
`///// the challenge was to write a useful piece of code that could disply a scrolling message using 3d
`\\\\\ instead of sprites using only 20 lines of code, as per the rules. using simple variable names,
`///// this code could be made a lot smaller, mabey between 6 and 7 lines in length. although i think
`\\\\\ full 3d text scrolling in 10 lines of code is more than acceptable!
`***** the editable text is held in a file called "scrolly.txt", this must be no longer than 255 characters!
`***** the font is the file "tiltswitch.bmp" this can also be edited!
`***** change the display mode @ the beginning of line 13 if the scroller runs too slow or jerky!!
set display mode 1024,768,16
open to read 1,"scrolly.txt"
read string 1,scrolly$
scrlsize=len(scrolly$)
scrlpos=1
maxchar=20
width=9.9
height=19
startpoint=201
endpoint=1
speed=1
dim chheight#(maxchar)
dim xpos(maxchar)
dim chdepth#(maxchar)
spacing=startpoint/maxchar
dmp=4
dmpm=100
dmpd=2
return
hide mouse
sync on
sync rate 0
backdrop on
color backdrop rgb(0,0,0)
fog on : fog color rgb(0,0,0)
fog distance 600
return
load bitmap "tiltswitch.bmp",1
wide=64
tall=64
xp=0
yp=0
for img=1 to 60
get image img,xp,yp,xp+wide,yp+tall
inc xp,wide
if xp>=639
xp=0
inc yp,tall
endif
next img
delete bitmap 1
return
for char=1 to maxchar
xpos(char)=char*spacing
chheight#(char)=sin(xpos(char)*4)*10
chdepth#(char)=sin(xpos(char)*4)*20
for m=1 to dmp
make object plain (m*dmpm)+char,width,height
texture object (m*dmpm)+char,1
position object (m*dmpm)+char,char*spacing,0,(m*dmpd)+chdepth#(char)
ghost object on (m*dmpm)+char
next m
next char
position camera startpoint/2,20,-80
point camera startpoint/2,20,0
do
for char=1 to maxchar
if scrlpos=scrlsize then scrlpos=1
if xpos(char)<endpoint : xpos(char)=startpoint
a$=mid$(scrolly$,scrlpos)
a=asc(a$)-31
for m=1 to dmp
texture object (m*dmpm)+char,a
next m : inc scrlpos,1
endif
xpos(char)=xpos(char)-speed
chheight#(char)=sin(xpos(char)*10)
chdepth#(char)=cos(xpos(char)*10)
for m=1 to dmp
position object (m*dmpm)+char,xpos(char),0,(m*dmpd)+chdepth#(char)
next m
next char
sync
loop
end
