Sorry your browser is not supported!

sync on:sync rate 60:hide mouse:autocam off:randomize timer()
dim stats#(5):dim chars(65):dim char$(65):for j=0 to 63:chars(j)=0
char$(j)=chr$(int(rnd(60)+33)):next j:dim message$(2):message$(0)="enter the matrix":message$(1)="by the darthster":create bitmap 1,2,2
cls rgb(255,255,255):get image 1,0,0,1,1:set current bitmap 0:delete bitmap 1:set camera view 0,0,63,47
dim level(142):data 1,5,2,1,2,2,2,4,2,5,2,7,2,8,3,1,3,8,4,5,5,2,5,8,6,6,6,8,6,9,7,1,7,4,8,1,8,7,9,1,9,2,9,3,9,4,9,7,9,9,0,0,1,0,2,0,3,0,4,0,5,0,6,0,7,0,8,0,9,0,10,0,10,1,10,2,10,3,10,4,10,5,10,6,10,7,10,8,10,9,10,10,0,1,0,2,0,3,0,4,0,5,0,6,0,7,0,8,0,9,0,10,1,10,2,10,3,10,4,10,5,10,6,10,7,10,8,10,9,10,2,3,6,5,4,9,1,8,7,2:for i=0 to 71:read level(i*2):read level((i*2)+1)
if i < 65:make object box i+1,200,200,200:position object i+1,(level(i*2)*200)-100,100,(level((i*2)+1)*200)-100:make static collision box ((level(i*2)*200))-200,0,(level((i*2)+1)*200)-200,(level(i*2)*200),0,(level((i*2)+1)*200):else:make light i-64
set point light i-64,(level(i*2)*200)-100,50,(level((i*2)+1)*200)-100:endif:next i:make object box 100,2100,3000,2100:texture object 100,1:scale object 100,-100,-100,-100:position object 100,900,1400,900
hide light 0:set ambient light 10:make matrix 1,1800,1800,9,9:prepare matrix texture 1,1,1,1:do
a#=wrapvalue(a#+1):stats#(2)=stats#(0):stats#(3)=stats#(1):if upkey()=1:stats#(0)=stats#(0)+sin(stats#(4))*10
stats#(1)=stats#(1)+cos(stats#(4))*10:endif:if downkey()=1:stats#(0)=stats#(0)-sin(stats#(4))*10:stats#(1)=stats#(1)-cos(stats#(4))*10:endif:if leftkey()=1
stats#(4)=wrapvalue(stats#(4)-4):endif:if rightkey()=1:stats#(4)=wrapvalue(stats#(4)+4):endif:if get static collision hit(stats#(2)-20,125-200,stats#(3)-20,stats#(2)+20,125+200,stats#(3)+20,stats#(0)-20,125-200,stats#(1)-20,stats#(0)+20,125+200,stats#(1)+20)=1:stats#(0)=stats#(0)-get static collision x()
stats#(1)=stats#(1)-get static collision z():endif:position camera stats#(0),125,stats#(1):rotate camera 0,stats#(4),0:get image 5,0,0,63,47:make memblock from image 1,5
create bitmap 1,640,480:cls:k=12:for i=1 to 47:for j=1 to 63
b#=int(rnd((sin(a#)*49)+50)):c#=int(rnd((cos(a#)*49)+50)):d#=int(rnd((sin(a#+180)*49)+50)):if i=10 and j>24 and j<41 and mid$(char$(j),i)<>"" and c#<15:ink rgb(0,255,0),0
text j*10,i*10,mid$(message$(0),j-24):else:if i=40 and j>24 and j<41 and mid$(char$(j),i)<>"" and b#<15:ink rgb(0,255,0),0:text j*10,i*10,mid$(message$(1),j-24):else:if i=45 and j>50 and j<57 and mid$(char$(j),i)<>"" and d#<15
ink rgb(0,255,0),0:text j*10,i*10,mid$("fps:"+str$(screen fps()),j-50):else:ink rgb(0,memblock word(1,k)/255,0),0:text j*10,i*10,mid$(char$(j),i):endif:endif:endif:if int(rnd(80))=1
temp$=char$(j):char$(j)=chr$(int(rnd(60)+33)):for m=1 to 47:char$(j)=char$(j)+mid$(temp$,m):next m:endif:k=k+2
next j:next i:copy bitmap 1,0:set current bitmap 0:delete bitmap 1:delete memblock 1
sync
loop

#constant GhostTrails 10
set display mode 400,300,32 : type Matrix_t x y life img endtype : sync on : sync rate 60 : hide mouse
backdrop on : color backdrop 0 : set text font "Arial",128 : ink rgb(25,196,10),0 : print chr$(asc("a"))+chr$(asc("e"))+chr$(asc("i"))+chr$(asc("o"))+chr$(asc("u"))+chr$(asc("n"))
for i=0 to 5 : get image i+1,0+(i*10),0,10+(i*10),14 : make memblock from image i+1,12+((10*13)*4) : delete image i+1 : next i
for i=1 to 6 : for j=0 to (10*13)-1 step 12 : write memblock byte i,12+j,255 : next j : next i
for i=1 to 10 : make object cylinder i,100 : scale object i,50,100,50 : position object i,rnd(1024),50,rnd(1024) : next i
make memblock 10,12+((512*512)*4) : write memblock dword 10,0,512 : write memblock dword 10,4,512 : write memblock dword 10,8,32 : next i
get image 1,0,0,512,512 : texture backdrop 1 : dim arMatrixFX(60) as dword
do
 cax#=wrapvalue(cax#+mousemovey()) : cay#=wrapvalue(cay#+mousemovex()) : caz#=wrapvalue(caz#+mousemovez()) : rotate camera cax#,cay#,caz# : UpdateMatrixFX()
 for i=1 to 10 texture object i,1 : next i
 if upkey()=1 then move camera 10 : if downkey()=1 then move camera -10
sync : loop
function UpdateMatrix()
 inc CurrentImage : if CurrentImage>60 then CurrentImage=0 : for c=0 to CurrentImage : if arMatrixFX(c).life=0 : arMatrixFX(c).x=rnd(50)*10
 arMatrixFX(c).img=rnd(5) : arMatrixFX(c).x=0 : else : inc arMatrixFX(c).life : if arMatrixFX(c).life=30 then arMartixFX(c).life=0
 inc arMatrixFX(c).x,5 : for i=0 to (arMatrixFX(c).life/3) : for u=0 to 9 : for v=0 to 12 : for d=0 to 3
 if d<>3 : write memblock byte 10,12+arMatrixFX(c).x+(arMatrixFX(c).y-(arMatrix(c).life/3))+dx,memblock byte(arMatrixFX(c).img,12+u+v+d) : else
 write memblock byte 10,12+arMatrixFX(c).x+(arMatrixFX(c).y-(arMatrix(c).life/3))+dx,255*(255*((life/GhostTrails)/(30/GhostTrails))) : endif : next d : next v : next u
 next i : next c : make image from memblock 10,1
endfunction

#constant GhostTrails 10
set display mode 400,300,32

`type Matrix_t
`x
`y
`life
`img
`endtype

`0=x
`1=y
`2=life
`3=img
`replaced the type with an array, since I understand arrays better at the moment

sync on
sync rate 60
hide mouse
backdrop on
color backdrop 0

set text font "Arial",128
ink rgb(25,196,10),0
print chr$(asc("a"))+chr$(asc("e"))+chr$(asc("i"))+chr$(asc("o"))+chr$(asc("u"))+chr$(asc("n"))
`write the letters on the screen

for i=0 to 5
 get image i+1,0+(i*10),0,10+(i*10),14
` make memblock from image i+1,12+((10*13)*4)
`make memblock from image requires an image number, not a size
  make memblock from image i+1,i+1
 delete image i+1
next i
`memblocks 1 to 6 contain images of the letters a, e, i, o, u and n

for i=1 to 6
 for j=0 to (10*13)-1 step 12
  write memblock byte i,12+j,255
 next j
next i
`I don't see what you're doing here

for i=1 to 10
 make object cylinder i,100
 scale object i,50,100,50
 position object i,rnd(1024),50,rnd(1024)
next i
`make cylinders 1 to 10 to look at in the world

make memblock 10,12+((512*512)*4)
write memblock dword 10,0,512
write memblock dword 10,4,512
write memblock dword 10,8,32
`memblock 10 has the header of a 32bit 512x512 bitmap, but contains nothing yet

`next i
`I'm guessing this isn't needed

`get image 1,0,0,512,512
`texture backdrop 1
`I get an illegal image size here, so I took it out

dim arMatrixFX(60,4) as dword

do
 cax#=wrapvalue(cax#+mousemovey())
 cay#=wrapvalue(cay#+mousemovex())
 caz#=wrapvalue(caz#+mousemovez())
 rotate camera cax#,cay#,caz#
 if upkey()=1 then move camera 10
 if downkey()=1 then move camera -10
`movement code

 UpdateMatrixFX()

 for i=1 to 10
  texture object i,1
 next i
`texture all the cylinders with image 1

sync
loop

function UpdateMatrixFX()
 inc CurrentImage
 if CurrentImage>60 then CurrentImage=0

 for c=0 to CurrentImage

  if arMatrixFX(c,2)=0
  `if the life is zero
   arMatrixFX(c,0)=rnd(50)*10
   `set the x value to random(500) to nearest 10
   arMatrixFX(c,3)=rnd(5)
   `set the image value to a random image
   arMatrixFX(c,0)=0
   `set the x value to zero.  Should this be the y value?
  else
   inc arMatrixFX(c,2)
  endif
  `i'm guessing the endif goes here, correct me if i'm wrong

  if arMatrixFX(c,2)=30 then arMatrixFX(c,2)=0
  `wrap the life value down if it is = 30

  inc arMatrixFX(c,0),5
  `increase the x value by 5

  for i=0 to (arMatrixFX(c,2)/3)
  `i=0 to the life value /3
   for u=0 to 9
    for v=0 to 12
     for d=0 to 3
      if d<>3
       write memblock byte 10,12+arMatrixFX(c,0)+(arMatrixFX(c,1)-(arMatrixFX(c,2)/3))+dx,memblock byte(arMatrixFX(c,3),12+u+v+d)
      else
       write memblock byte 10,12+arMatrixFX(c,0)+(arMatrixFX(c,1)-(arMatrixFX(c,2)/3))+dx,255*(255*((life/GhostTrails)/(30/GhostTrails)))
      endif
      `d is the r/g/b/a offset, and u and v are the x and y coordinates?  In effect, the text image memblocks are being copied and pasted onto memblock 10 to create the image.
     next d
    next v
   next u
  next i

 next c

 make image from memblock 10,1
 `image 1 is created from the contents of memblock 10
endfunction

sync on
sync rate 0
hide mouse
autocam off
randomize timer()

dim chars(65)
dim char$(65)

for j=0 to 63
 chars(j)=0
 char$(j)=chr$(int(rnd(60)+33))
next j

dim message$(2)
message$(0)="enter the matrix"
message$(1)="by the darthster"

do

a#=wrapvalue(a#+1)

k=12
for i=1 to 47
 for j=1 to 63
  b#=int(rnd((sin(a#)*49)+50))
  c#=int(rnd((cos(a#)*49)+50))
  d#=int(rnd((sin(a#+180)*49)+50))
  if i=10 and j>24 and j<41 and mid$(char$(j),i)<>"" and c#<15
   ink rgb(0,255,0),0
   text j*10,i*10,mid$(message$(0),j-24)
  else
   if i=40 and j>24 and j<41 and mid$(char$(j),i)<>"" and b#<15
    ink rgb(0,255,0),0
    text j*10,i*10,mid$(message$(1),j-24)
   else
    if i=45 and j>50 and j<57 and mid$(char$(j),i)<>"" and d#<15
     ink rgb(0,255,0),0
     text j*10,i*10,mid$("fps:"+str$(screen fps()),j-50)
    else
     ink rgb(0,100,0),0
     text j*10,i*10,mid$(char$(j),i)
    endif
   endif
  endif

  if int(rnd(80))=1
   temp$=char$(j):char$(j)=chr$(int(rnd(60)+33))
   for m=1 to 47
    char$(j)=char$(j)+mid$(temp$,m)
   next m
  endif

  k=k+2
 next j
next i

sync
cls
loop

#constant GHOST_TRAILS  0x010
#constant TRUE          0x001
#constant FALSE         0x000

type MatrixText
   x as dword
   y as dword
   life as dword
   img as dword
endtype

backdrop on
color backdrop 0

set text font "Arial",128
ink rgb(25,196,10),0
print chr$(asc("a"))+chr$(asc("e"))+chr$(asc("i"))+chr$(asc("o"))+chr$(asc("u"))+chr$(asc("n"))

i as dword
u as dword
v as dword
dim image(6) as dword
for i=0 to 5
   get image i+1,i*10,0,i*10+10,14
   image(i+1) = make memory(12+((10*14)*4))
      *image(i+1) = (value=10)
      *image(i+1) = (value=14)
      *image(i+1) = (value=32)
      for u=0 to 9
         for v=13 to 0 step -1
            *image(i+1) = point(u,v)
         next v
      next u
   delete image i+1
next i

make memblock 10,12+((512*512)*4)
   write memblock dword 10,0,512
   write memblock dword 10,4,512
   write memblock dword 10,8,32
make image from memblock 10,10

set camera to image 0,10,512,512

for i=1 to 10
   make object cylinder i,100.0
   scale object i,50,100,50
   position object i,rnd(1024)*1.0,50.0,rnd(1024)*1.0
   texture object i,10
next i

dim arMatrixFX(60) as MatrixText
global cImage as dword

do
   if escapekey()=TRUE then Quit()
   UpdateMatrixText()

   if upkey()=TRUE then move camera 5.0
   if downkey()=TRUE then move camera -5.0

   if rightkey()=TRUE then cam#=2.0
   if leftkey()=TRUE then cam#=-2.0
   cay#=wrapvalue(camera angle y()+cam#)
   rotate camera 0.0,cay#,0.0
loop

function Quit( )
`{
   for i=0 to 5
      Release( Image(i+1 ) )
   next i
   undim Image(6)
   end
endfunction
`} void

function Release( ptr as dword )
`{
   delete memory ptr
endfunction
`} void

function UpdateMatrix()
`{
   local i as integer
   local u as integer
   local v as integer
   local d as integer
   local c as integer

    inc cImage
    if cImage>60 then cImage=0

    for c=0 to cImage-1
      if arMatrixFX(c).life=0
         arMatrixFX(c).x=rnd(50)*10
         arMatrixFX(c).img=image(rnd(5)+1)+12
         arMatrixFX(c).x=0
      else
      inc arMatrixFX(c).life
      if arMatrixFX(c).life=30 then arMartixFX(c).life=0
      inc arMatrixFX(c).x,5
      for i=0 to (arMatrixFX(c).life/3)
         for u=0 to 9
            for v=13 to 0 step -1
               for d=0 to 3
                  if d<>3
                     write memblock byte 10,12+arMatrixFX(c).x+(arMatrixFX(c).y-(arMatrix(c).life/3))+dx,(memblock byte(arMatrixFX(c).img,12+u+v+d))
                  else
                     write memblock byte 10,12+arMatrixFX(c).x+(arMatrixFX(c).y-(arMatrix(c).life/3))+dx,255*(255*((life/GHOST_TRAILS)/(30/GHOST_TRAILS)))
                  endif
               next d
            next v
         next u
      next i
    next c
    make image from memblock 10,10
endfunction
`} void