Sorry your browser is not supported!

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.......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.

Rem Project: 3d intro
Rem Created: 7/29/04 6:16:53 PM

Rem ***** Main Source File *****
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.......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