scrolly$=" 11 LINE, MEDIALESS, FULLY 3D SCROLLING MESSAGE, MADE BY GEECEE3 -------------------- GREETZ----JIMMY, SPOOKY, HAMISH, CODE2KILL, DARKWING, MEGATON, RED EYE, RICH, IAN M, TCA, RPGAMER, MR PET RAT, TAPEWORMZ, 7RAVI5.......TGC ROCKS................."
scrlsize=len(scrolly$) : scrlpos=1 : maxchar=20 : width=9.9 : height=19 : startpoint=200 : endpoint=1 : speed=1 : dim xpos(600) : spacing=startpoint/maxchar :
set text font "tahoma" : set text size 128 : for j = 1 to 60 : cls 0 : center text 64,32,chr$(j+31) : get image j,0,0,128,128 : next j : hide mouse : sync on : sync rate 0 : backdrop on : color backdrop rgb(0,0,0) : set image colorkey 0,0,0
for char=1 to maxchar : make object cube char,width : make object cube 100+char,width : make object cube 200+char,width : make object cube 300+char,width : make object cube 400+char,width : make object cube 500+char,width
ghost object on char,0 : ghost object on 100+char,0 : ghost object on 200+char,0 : ghost object on 300+char,0 : ghost object on 400+char,0 : ghost object on 500+char,0 : xpos(char)=char*spacing
texture object char,1 : texture object 100+char,1 : texture object 200+char,1 : texture object 300+char,1 : texture object 400+char,1 : texture object 500+char,1 : set object transparency char,1 : set object transparency 100+char,1
set object transparency 200+char,1 : set object transparency 300+char,1 : set object transparency 400+char,1 :set object transparency 500+char,1 : next char : position camera startpoint/2,0,-80 : point camera startpoint/2,0,0
do : for char=1 to maxchar : if scrlpos=scrlsize : scrlpos=1 : endif : if xpos(char)<endpoint : xpos(char)=startpoint : a$=mid$(scrolly$,scrlpos) : a=asc(a$)-31 : texture object char,a : texture object 100+char,a : texture object 200+char,a
texture object 300+char,a : texture object 400+char,a : texture object 500+char,a : inc scrlpos,1 : endif : xpos(char)=xpos(char)-speed : position object char,xpos(char),0,0 : position object 100+char,xpos(char),0,-20
position object 200+char,xpos(char),xpos(char),xpos(char) : position object 300+char,xpos(char),0-xpos(char),xpos(char) : position object 400+char,50+xpos(char),xpos(char)-20,xpos(char)-20
position object 500+char,50+xpos(char),(0-xpos(char))+20,xpos(char)-20 : next char : sync : loop : end
`11 LINE MULTISCROLLER, GEECEE3.
`MUSIC WHILE CODING, IDLEWILD - THE REMOTE PART, ALKALINE TRIO - FROM HERE TO INFIRMARY
`KOSHEEN - RESIST.
`2.5 HOURS CODING TIME.
added my name to it mwhahahaha
Good thing everyone here is a figment of my imagination.
[IMG]http://img.photobucket.com/albums/v435/7RAVI5/7RAVI5.jpg[href]www.travis.dbspot.com[/href][/IMG]
