Computer Science Canada

Matrix text effect
Author:  lil_li [ Mon May 12, 2003 8:02 am ]
Post subject:  Matrix text effect
hey... anyone know how to use "Matrix" to make words?

i mean like, i know how to do the green letters falling down. But i want it stops and make words or Pictures... You ppl know how to do that?
Author:  AsianSensation [ Mon May 12, 2003 8:04 am ]
Post subject: 
look up at catalyst's source code, he has it in the source code help section
Author:  Catalyst [ Mon May 12, 2003 2:21 pm ]
Post subject: 
it would take some heavy modding to make what you want tho
Author:  Homer_simpson [ Mon May 12, 2003 4:15 pm ]
Post subject:  Re: Matrix text effect
lil_li wrote:
But i want it stops and make words or Pictures...

what does that mean?
Author:  kythoon [ Mon May 12, 2003 4:19 pm ]
Post subject: 
think he means the letters fall down the screen and then form a word at the bottom instead of disappearing
Author:  void [ Mon May 12, 2003 5:08 pm ]
Post subject: 
like in the actual movie...when the letters fell down like crazy then out of nowhere some letters didnt fall all the way...and in the end it spelled out..."YOU ARE A DUMBASS"....wait...no....that was my dream....it was actually "THE MATRIX"
Author:  Homer_simpson [ Mon May 12, 2003 5:12 pm ]
Post subject: 
Lol!!!!
IC
Author:  lil_li [ Mon May 12, 2003 10:58 pm ]
Post subject:  reply
it's like falling down then it will make a pattern of some sorte .... like they did with the movie matrix... except that was 3d and have human shapes... i just want the word "MATRIX" shown up
Author:  beedub [ Tue May 13, 2003 4:52 pm ]
Post subject: 
this may help...
code:
colourback (7)
cls
colour (green)

var ch : string (1)

loop
 
    var x : int
    randint (x, 1, 25)
    locate (x, 1)
    put x
    var y : int
    randint (y, 1, 25)
    locate (y, 2)
    put y
    var z : int
    randint (z, 1, 25)
    locate (z, 3)
    put z
    var a : int
    randint (a, 1, 25)
    locate (a, 4)
    put a
    var b : int
    randint (b, 1, 25)
    locate (b, 5)
    put b
    var c : int
    randint (c, 1, 25)
    locate (c, 6)
    put c
    var d : int
    randint (d, 1, 25)
    locate (d, 7)
    put d
    var e : int
    randint (e, 1, 25)
    locate (e, 8)
    put e
    var f : int
    randint (f, 1, 25)
    locate (f, 9)
    put f
    var g : int
    randint (g, 1, 25)
    locate (g, 10)
    put g
    var h : int
    randint (h, 1, 25)
    locate (h, 11)
    put h
    var i : int
    randint (i, 1, 25)
    locate (i, 12)
    put i
    var j : int
    randint (j, 1, 25)
    locate (j, 13)
    put j
    var k : int
    randint (k, 1, 25)
    locate (k, 14)
    put k
    var l : int
    randint (l, 1, 25)
    locate (l, 15)
    put l
    var m : int
    randint (m, 1, 25)
    locate (m, 16)
    put m
    var n : int
    randint (n, 1, 25)
    locate (n, 17)
    put n
    var o : int
    randint (o, 1, 25)
    locate (o, 18)
    put o
    var p : int
    randint (p, 1, 25)
    locate (p, 19)
    put p
    var q : int
    randint (q, 1, 25)
    locate (q, 20)
    put q
    var r : int
    randint (r, 1, 25)
    locate (r, 21)
    put r
    var s : int
    randint (s, 1, 25)
    locate (s, 22)
    put s
    var t : int
    randint (t, 1, 25)
    locate (t, 23)
    put t
    var u : int
    randint (u, 1, 25)
    locate (u, 24)
    put u
    var v : int
    randint (v, 1, 25)
    locate (v, 25)
    put v
    var w : int
    randint (w, 1, 25)
    locate (w, 26)
    put w
    var x1 : int
    randint (x1, 1, 25)
    locate (x1, 1)
    put x1
    var y1 : int
    randint (y1, 1, 25)
    locate (y1, 2)
    put y1
    var z1 : int
    randint (z1, 1, 25)
    locate (z1, 3)
    put z1
    var a1 : int
    randint (a1, 1, 25)
    locate (a1, 4)
    put a1
    var b1 : int
    randint (b1, 1, 25)
    locate (b1, 5)
    put b1
    var c1 : int
    randint (c1, 1, 25)
    locate (c1, 6)
    put c1
    var d1 : int
    randint (d1, 1, 25)
    locate (d1, 7)
    put d1
    var e1 : int
    randint (e1, 1, 25)
    locate (e1, 8)
    put e1
    var f1 : int
    randint (f1, 1, 25)
    locate (f1, 9)
    put f1
    var g1 : int
    randint (g1, 1, 25)
    locate (g1, 10)
    put g1
    var h1 : int
    randint (h1, 1, 25)
    locate (h1, 11)
    put h1
    var i1 : int
    randint (i1, 1, 25)
    locate (i1, 12)
    put i1
    var j1 : int
    randint (j1, 1, 25)
    locate (j1, 13)
    put j1
    var k1 : int
    randint (k1, 1, 25)
    locate (k1, 14)
    put k1
    var l1 : int
    randint (l1, 1, 25)
    locate (l1, 15)
    put l1
    var m1 : int
    randint (m1, 1, 25)
    locate (m1, 16)
    put m1
    var n1 : int
    randint (n1, 1, 25)
    locate (n1, 17)
    put n1
    var o1 : int
    randint (o1, 1, 25)
    locate (o1, 18)
    put o1
    var p1 : int
    randint (p1, 1, 25)
    locate (p1, 19)
    put p1
    var q1 : int
    randint (q1, 1, 25)
    locate (q1, 20)
    put q1
    var r1 : int
    randint (r1, 1, 25)
    locate (r1, 21)
    put r1
    var s1 : int
    randint (s1, 1, 25)
    locate (s1, 22)
    put s1
    var t1 : int
    randint (t1, 1, 25)
    locate (t1, 23)
    put t1
    var u1 : int
    randint (u1, 1, 25)
    locate (u1, 24)
    put u1
    var v1 : int
    randint (v1, 1, 25)
    locate (v1, 25)
    put v1
    var w1 : int
    randint (w1, 1, 25)
    locate (w1, 26)
    put w1
    delay (32)
    exit when count = hasch
end loop
i know this isnt exactly what you wanted but its a start
Author:  beedub [ Tue May 13, 2003 4:53 pm ]
Post subject: 
but what you could do is... at the end... make a delay and then put the words.. or image you want in there..
Author:  beedub [ Tue May 13, 2003 4:54 pm ]
Post subject: 
oh and i didnt do that code just for you.. my bro wanted to see if i could do it.. like a week ago...
Author:  beedub [ Tue May 13, 2003 5:09 pm ]
Post subject: 
but also catalyst's looks alot better... but mine is good for acyually making the words appear at the end.. Smile
Author:  Martin [ Tue May 13, 2003 5:13 pm ]
Post subject: 
You do realise that was 4 posts in a row by you...
Author:  nate [ Tue May 13, 2003 5:17 pm ]
Post subject: 
ur matrix sucks cause there is like 3/4 of just black background

use:

setscreen ("graphics:position;100,300")
or something like that


-Nate
Author:  beedub [ Tue May 13, 2003 5:27 pm ]
Post subject: 
yes i do know that was 4 posts... i am srry... some times i get carried away... and yes i do know my matrix sux... i am 12... i made the matrix scene on a 220;440 scene... it takes a long time to do..especially for me.. i have short hands lol Wink.. they hurt after a while.. srry i made it then put it on a program so the one that you want is this...
code:
setscreen ("graphics:220;400")
colourback (7)
cls
colour (green)

var ch : string (1)
loop
    var x : int
    randint (x, 1, 25)
    locate (x, 1)
    put x
    var y : int
    randint (y, 1, 25)
    locate (y, 2)
    put y
    var z : int
    randint (z, 1, 25)
    locate (z, 3)
    put z
    var a : int
    randint (a, 1, 25)
    locate (a, 4)
    put a
    var b : int
    randint (b, 1, 25)
    locate (b, 5)
    put b
    var c : int
    randint (c, 1, 25)
    locate (c, 6)
    put c
    var d : int
    randint (d, 1, 25)
    locate (d, 7)
    put d
    var e : int
    randint (e, 1, 25)
    locate (e, 8)
    put e
    var f : int
    randint (f, 1, 25)
    locate (f, 9)
    put f
    var g : int
    randint (g, 1, 25)
    locate (g, 10)
    put g
    var h : int
    randint (h, 1, 25)
    locate (h, 11)
    put h
    var i : int
    randint (i, 1, 25)
    locate (i, 12)
    put i
    var j : int
    randint (j, 1, 25)
    locate (j, 13)
    put j
    var k : int
    randint (k, 1, 25)
    locate (k, 14)
    put k
    var l : int
    randint (l, 1, 25)
    locate (l, 15)
    put l
    var m : int
    randint (m, 1, 25)
    locate (m, 16)
    put m
    var n : int
    randint (n, 1, 25)
    locate (n, 17)
    put n
    var o : int
    randint (o, 1, 25)
    locate (o, 18)
    put o
    var p : int
    randint (p, 1, 25)
    locate (p, 19)
    put p
    var q : int
    randint (q, 1, 25)
    locate (q, 20)
    put q
    var r : int
    randint (r, 1, 25)
    locate (r, 21)
    put r
    var s : int
    randint (s, 1, 25)
    locate (s, 22)
    put s
    var t : int
    randint (t, 1, 25)
    locate (t, 23)
    put t
    var u : int
    randint (u, 1, 25)
    locate (u, 24)
    put u
    var v : int
    randint (v, 1, 25)
    locate (v, 25)
    put v
    var w : int
    randint (w, 1, 25)
    locate (w, 26)
    put w
    var x1 : int
    randint (x1, 1, 25)
    locate (x1, 1)
    put x1
    var y1 : int
    randint (y1, 1, 25)
    locate (y1, 2)
    put y1
    var z1 : int
    randint (z1, 1, 25)
    locate (z1, 3)
    put z1
    var a1 : int
    randint (a1, 1, 25)
    locate (a1, 4)
    put a1
    var b1 : int
    randint (b1, 1, 25)
    locate (b1, 5)
    put b1
    var c1 : int
    randint (c1, 1, 25)
    locate (c1, 6)
    put c1
    var d1 : int
    randint (d1, 1, 25)
    locate (d1, 7)
    put d1
    var e1 : int
    randint (e1, 1, 25)
    locate (e1, 8)
    put e1
    var f1 : int
    randint (f1, 1, 25)
    locate (f1, 9)
    put f1
    var g1 : int
    randint (g1, 1, 25)
    locate (g1, 10)
    put g1
    var h1 : int
    randint (h1, 1, 25)
    locate (h1, 11)
    put h1
    var i1 : int
    randint (i1, 1, 25)
    locate (i1, 12)
    put i1
    var j1 : int
    randint (j1, 1, 25)
    locate (j1, 13)
    put j1
    var k1 : int
    randint (k1, 1, 25)
    locate (k1, 14)
    put k1
    var l1 : int
    randint (l1, 1, 25)
    locate (l1, 15)
    put l1
    var m1 : int
    randint (m1, 1, 25)
    locate (m1, 16)
    put m1
    var n1 : int
    randint (n1, 1, 25)
    locate (n1, 17)
    put n1
    var o1 : int
    randint (o1, 1, 25)
    locate (o1, 18)
    put o1
    var p1 : int
    randint (p1, 1, 25)
    locate (p1, 19)
    put p1
    var q1 : int
    randint (q1, 1, 25)
    locate (q1, 20)
    put q1
    var r1 : int
    randint (r1, 1, 25)
    locate (r1, 21)
    put r1
    var s1 : int
    randint (s1, 1, 25)
    locate (s1, 22)
    put s1
    var t1 : int
    randint (t1, 1, 25)
    locate (t1, 23)
    put t1
    var u1 : int
    randint (u1, 1, 25)
    locate (u1, 24)
    put u1
    var v1 : int
    randint (v1, 1, 25)
    locate (v1, 25)
    put v1
    var w1 : int
    randint (w1, 1, 25)
    locate (w1, 26)
    put w1
    delay (32)
    exit when hasch
end loop
Author:  void [ Tue May 13, 2003 6:05 pm ]
Post subject: 
WOW....no offence or anything..im taking into account that you are new....but that was the WORST programming i have ever seen in my life...honestly you used too many variables an some pointless stuff...in like 5 seconds i remade it and i know its still pretty crappy..but thats because i tried to make it not so big
code:

var w : int := Window.Open ("fullscreen")
var freak : string := "The matrix has you neo...."
setscreen ("nocursor")
colourback (7)
cls
colour (10)
var charac : int
var run_count : int := 0
loop
    for b : 1 .. 48
        for a : 1 .. maxcol
            randint (charac, 0, 1)
            locate (b, a)
            put charac
        end for
    end for
    run_count += 1
    exit when run_count = 30
end loop
delay (100)
colourback (7)
cls
for a : 1 .. length (freak)
    locate (3, a + 1)
    put freak (a), "_" ..
    delay (100)
end for

im pretty sure thats what you want...(unless you wanna mess around wit catalysts proggy...i tried to do that...but i couldnt get it to run properly...wateva...
Author:  ZeroKelvin [ Tue May 13, 2003 6:43 pm ]
Post subject: 
that's pretty good still, but i like catalyst's better
and btw matrix is out in like 2 days, can't wait to see it Laughing
Author:  beedub [ Tue May 13, 2003 6:49 pm ]
Post subject: 
void... i know its pretty crappy... i put that in my post... lol..i made it a couple weeks ago... when all i knew were variables , loops and randints..lol.. i could also.. do your's now.. but i had already done that,,, so i just copied and pasted... void what school you go to??
Author:  lil_li [ Tue May 13, 2003 7:53 pm ]
Post subject: 
testing
code:
hehehe
Author:  lil_li [ Tue May 13, 2003 7:55 pm ]
Post subject:  TAKE A LOOK
OK... I THIK THIS IS THE FREAKING LONGEST CODE I EVER DONE THAT COULD BE DONE UNDER 200 LINES... OMG... ME SO STUPID... ANYWAYS....

I WAS THINKNIG DRAWING "FOOT BALL" AS IN TEXT FILE AND OUT PUT IT.. (OH DARN STUPID CAPITAL)

so i was wondering, you ppl know how to make a real picture instead of words? ( i saw a guy drew a tank in matrix... really cool)
code:

setscreen ("graphics:788,502")

var startx, starty, randx : int
var font : int := Font.New ("courier:15:bold")
var font2 : int := Font.New ("courier:15:bold")
var letter := "QWERTYUIOPLKJHGFDSAZMXNCBVQWERTYUIOPLKCHGFDSAZMXNCBVASFWERIYTYUINQWEQ"
var xchange : array 1 .. 14 of int
var count := 0


drawfillbox (0, 0, maxx, maxy, 7)

startx := 10


var x := 4

loop

    count += 1
    for rep : 1 .. 14
        randint (randx, 1, 788)
        xchange (rep) := randx
    end for

    x := 4

    randint (starty, maxy - 30, maxy)

    for repss : 1 .. 54
        x := x + 1

        Font.Draw (letter (x), startx, starty, font, 10)
        Font.Draw (letter (x + 2), startx + xchange (1), starty - 62, font, 10)
        Font.Draw (letter (x + 5), startx + xchange (2), starty - 18, font, 10)
        Font.Draw (letter (x + 1), startx + xchange (3), starty - 55, font, 10)
        Font.Draw (letter (x + 2), startx + xchange (4), starty - 20, font, 10)
        Font.Draw (letter (x - 2), startx + xchange (5), starty - 13, font, 10)
        Font.Draw (letter (x + 3), startx + xchange (6), starty - 37, font, 10)
        Font.Draw (letter (x + 1), startx + xchange (7), starty - 8, font, 10)
        Font.Draw (letter (x - 1), startx + xchange (8), starty - 13, font, 10)
        Font.Draw (letter (x - 3), startx + xchange (9), starty - 4, font, 10)
        Font.Draw (letter (x + 5), startx + xchange (10), starty - 10, font, 10)
        Font.Draw (letter (x + 5), startx + xchange (11), starty - 8, font, 10)
        Font.Draw (letter (x + 5), startx + xchange (12), starty - 42, font, 10)
        Font.Draw (letter (x + 4), startx + xchange (13), starty - 23, font, 10)
        Font.Draw (letter (x - 1), startx + xchange (14), starty - 10, font, 10)


        starty -= 11
        delay (15)


        Font.Draw (letter (x), startx, starty + 20, font, 2)
        Font.Draw (letter (x + 2), startx + xchange (1), starty + 20, font, 2)
        Font.Draw (letter (x + 5), startx + xchange (2), starty + 20, font, 2)
        Font.Draw (letter (x + 1), startx + xchange (3), starty + 20, font, 2)
        Font.Draw (letter (x + 2), startx + xchange (4), starty + 20, font, 2)
        Font.Draw (letter (x - 2), startx + xchange (5), starty + 20, font, 2)
        Font.Draw (letter (x + 3), startx + xchange (6), starty + 20, font, 2)
        Font.Draw (letter (x + 1), startx + xchange (7), starty + 20, font, 2)
        Font.Draw (letter (x - 1), startx + xchange (8), starty + 20, font, 2)
        Font.Draw (letter (x - 3), startx + xchange (9), starty + 20, font, 2)
        Font.Draw (letter (x + 5), startx + xchange (10), starty + 20, font, 2)
        Font.Draw (letter (x + 5), startx + xchange (11), starty + 20, font, 2)
        Font.Draw (letter (x + 5), startx + xchange (12), starty + 20, font, 2)
        Font.Draw (letter (x + 4), startx + xchange (13), starty + 20, font, 2)
        Font.Draw (letter (x - 1), startx + xchange (14), starty + 20, font, 2)


        Font.Draw (letter (x), startx, starty + 40, font, 120)
        Font.Draw (letter (x + 2), startx + xchange (1), starty + 40, font, 120)
        Font.Draw (letter (x + 5), startx + xchange (2), starty + 40, font, 120)
        Font.Draw (letter (x + 1), startx + xchange (3), starty + 40, font, 120)
        Font.Draw (letter (x + 2), startx + xchange (4), starty + 40, font, 120)
        Font.Draw (letter (x - 2), startx + xchange (5), starty + 40, font, 120)
        Font.Draw (letter (x + 3), startx + xchange (6), starty + 40, font, 120)
        Font.Draw (letter (x + 1), startx + xchange (7), starty + 40, font, 120)
        Font.Draw (letter (x - 1), startx + xchange (8), starty + 40, font, 120)
        Font.Draw (letter (x - 3), startx + xchange (9), starty + 40, font, 120)
        Font.Draw (letter (x + 5), startx + xchange (10), starty + 40, font, 120)
        Font.Draw (letter (x + 5), startx + xchange (11), starty + 40, font, 120)
        Font.Draw (letter (x + 5), startx + xchange (12), starty + 40, font, 120)
        Font.Draw (letter (x + 4), startx + xchange (13), starty + 40, font, 120)
        Font.Draw (letter (x - 1), startx + xchange (14), starty + 40, font, 120)


        Font.Draw (letter (x), startx, starty + 60, font, 192)
        Font.Draw (letter (x + 2), startx + xchange (1), starty + 60, font, 192)
        Font.Draw (letter (x + 5), startx + xchange (2), starty + 60, font, 192)
        Font.Draw (letter (x + 1), startx + xchange (3), starty + 60, font, 192)
        Font.Draw (letter (x + 2), startx + xchange (4), starty + 60, font, 192)
        Font.Draw (letter (x - 2), startx + xchange (5), starty + 60, font, 192)
        Font.Draw (letter (x + 3), startx + xchange (6), starty + 60, font, 192)
        Font.Draw (letter (x + 1), startx + xchange (7), starty + 60, font, 192)
        Font.Draw (letter (x - 1), startx + xchange (8), starty + 60, font, 192)
        Font.Draw (letter (x - 3), startx + xchange (9), starty + 60, font, 192)
        Font.Draw (letter (x + 5), startx + xchange (10), starty + 60, font, 192)
        Font.Draw (letter (x + 5), startx + xchange (11), starty + 60, font, 192)
        Font.Draw (letter (x + 5), startx + xchange (12), starty + 60, font, 192)
        Font.Draw (letter (x + 4), startx + xchange (13), starty + 60, font, 192)
        Font.Draw (letter (x - 1), startx + xchange (14), starty + 60, font, 192)
        delay (15)


        Font.Draw (letter (x), startx, starty + 80, font, 7)
        Font.Draw (letter (x + 2), startx + xchange (1), starty + 80, font, 7)
        Font.Draw (letter (x + 5), startx + xchange (2), starty + 80, font, 7)
        Font.Draw (letter (x + 1), startx + xchange (3), starty + 80, font, 7)
        Font.Draw (letter (x + 2), startx + xchange (4), starty + 80, font, 7)
        Font.Draw (letter (x - 2), startx + xchange (5), starty + 80, font, 7)
        Font.Draw (letter (x + 3), startx + xchange (6), starty + 80, font, 7)
        Font.Draw (letter (x + 1), startx + xchange (7), starty + 80, font, 7)
        Font.Draw (letter (x - 1), startx + xchange (8), starty + 80, font, 7)
        Font.Draw (letter (x - 3), startx + xchange (9), starty + 80, font, 7)
        Font.Draw (letter (x + 5), startx + xchange (10), starty + 80, font, 7)
        Font.Draw (letter (x + 5), startx + xchange (11), starty + 80, font, 7)
        Font.Draw (letter (x + 5), startx + xchange (12), starty + 80, font, 7)
        Font.Draw (letter (x + 4), startx + xchange (13), starty + 80, font, 7)
        Font.Draw (letter (x - 1), startx + xchange (14), starty + 80, font, 7)


        if count = 1 and starty <= 290 then

            Font.Draw ("0", 710, 290, font2, 10)
            Font.Draw ("0", 720, 290, font2, 10)
            Font.Draw ("0", 730, 290, font2, 10)
            Font.Draw ("0", 740, 290, font2, 10)
            Font.Draw ("0", 750, 290, font2, 10)
            Font.Draw ("0", 730, 280, font2, 10)
            Font.Draw ("0", 730, 270, font2, 10)
            Font.Draw ("0", 641, 260, font2, 10)
            Font.Draw ("0", 641, 250, font2, 10)
            Font.Draw ("0", 641, 240, font2, 10)
            Font.Draw ("0", 641, 230, font2, 10)
            Font.Draw ("0", 641, 220, font2, 10)
            Font.Draw ("0", 631, 220, font2, 10)
            Font.Draw ("0", 623, 220, font2, 10)
            Font.Draw ("0", 591, 240, font2, 10)
            Font.Draw ("0", 553, 245, font2, 10)
            Font.Draw ("0", 563, 245, font2, 10)
            Font.Draw ("0", 573, 245, font2, 10)
            Font.Draw ("0", 583, 245, font2, 10)
            Font.Draw ("0", 651, 220, font2, 10)
            Font.Draw ("0", 455, 250, font2, 10)
            Font.Draw ("0", 455, 240, font2, 10)
            Font.Draw ("0", 455, 230, font2, 10)
            Font.Draw ("0", 445, 220, font2, 10)
            Font.Draw ("0", 455, 220, font2, 10)
            Font.Draw ("0", 465, 220, font2, 10)
            Font.Draw ("0", 475, 220, font2, 10)
            Font.Draw ("0", 300, 290, font2, 10)
            Font.Draw ("0", 310, 290, font2, 10)
            Font.Draw ("0", 320, 290, font2, 10)
            Font.Draw ("0", 150, 285, font2, 10)
            Font.Draw ("0", 155, 276, font2, 10)
            Font.Draw ("0", 160, 265, font2, 10)
            Font.Draw ("0", 160, 255, font2, 10)
            Font.Draw ("0", 160, 245, font2, 10)
            Font.Draw ("0", 155, 235, font2, 10)
            Font.Draw ("0", 147, 225, font2, 10)
            Font.Draw ("0", 137, 220, font2, 10)
            Font.Draw ("0", 127, 220, font2, 10)
            Font.Draw ("0", 60, 290, font2, 10)
            Font.Draw ("0", 70, 290, font2, 10)
            Font.Draw ("0", 72, 280, font2, 10)
            Font.Draw ("0", 72, 271, font2, 10)
            Font.Draw ("0", 20, 280, font2, 10)
            Font.Draw ("0", 20, 270, font2, 10)
            Font.Draw ("0", 20, 260, font2, 10)
            Font.Draw ("0", 20, 250, font2, 10)



        elsif count = 2 and starty <= 270 then

            Font.Draw ("0", 10, 220, font2, 10)
            Font.Draw ("0", 30, 220, font2, 10)
            Font.Draw ("0", 40, 220, font2, 10)
            Font.Draw ("0", 50, 220, font2, 10)
            Font.Draw ("0", 30, 255, font2, 10)
            Font.Draw ("0", 40, 255, font2, 10)
            Font.Draw ("0", 215, 290, font2, 10)
            Font.Draw ("0", 225, 290, font2, 10)
            Font.Draw ("0", 235, 285, font2, 10)
            Font.Draw ("0", 240, 276, font2, 10)
            Font.Draw ("0", 245, 265, font2, 10)
            Font.Draw ("0", 245, 255, font2, 10)
            Font.Draw ("0", 245, 245, font2, 10)
            Font.Draw ("0", 240, 235, font2, 10)
            Font.Draw ("0", 300, 280, font2, 10)
            Font.Draw ("0", 300, 270, font2, 10)
            Font.Draw ("0", 300, 260, font2, 10)
            Font.Draw ("0", 300, 250, font2, 10)
            Font.Draw ("0", 300, 240, font2, 10)
            Font.Draw ("0", 300, 230, font2, 10)
            Font.Draw ("0", 485, 220, font2, 10)
            Font.Draw ("0", 465, 258, font2, 10)
            Font.Draw ("0", 475, 258, font2, 10)
            Font.Draw ("0", 485, 258, font2, 10)
            Font.Draw ("0", 495, 258, font2, 10)
            Font.Draw ("0", 503, 270, font2, 10)
            Font.Draw ("0", 501, 282, font2, 10)
            Font.Draw ("0", 493, 288, font2, 10)
            Font.Draw ("0", 543, 247, font2, 10)
            Font.Draw ("0", 538, 237, font2, 10)
            Font.Draw ("0", 538, 222, font2, 10)
            Font.Draw ("0", 528, 222, font2, 10)
            Font.Draw ("0", 548, 222, font2, 10)
            Font.Draw ("0", 605, 222, font2, 10)
            Font.Draw ("0", 661, 220, font2, 10)
            Font.Draw ("0", 671, 220, font2, 10)
            Font.Draw ("0", 681, 220, font2, 10)
            Font.Draw ("0", 710, 220, font2, 10)
            Font.Draw ("0", 740, 220, font2, 10)
            Font.Draw ("0", 750, 220, font2, 10)
            Font.Draw ("0", 760, 220, font2, 10)
            Font.Draw ("0", 770, 220, font2, 10)



        elsif count = 3 and starty <= 270 then

            Font.Draw ("0", 730, 260, font2, 10)
            Font.Draw ("0", 730, 250, font2, 10)
            Font.Draw ("0", 730, 240, font2, 10)
            Font.Draw ("0", 730, 230, font2, 10)
            Font.Draw ("0", 730, 220, font2, 10)
            Font.Draw ("0", 720, 220, font2, 10)
            Font.Draw ("0", 621, 290, font2, 10)
            Font.Draw ("0", 631, 290, font2, 10)
            Font.Draw ("0", 641, 290, font2, 10)
            Font.Draw ("0", 651, 290, font2, 10)
            Font.Draw ("0", 661, 290, font2, 10)
            Font.Draw ("0", 595, 222, font2, 10)
            Font.Draw ("0", 585, 222, font2, 10)
            Font.Draw ("0", 575, 280, font2, 10)
            Font.Draw ("0", 580, 270, font2, 10)
            Font.Draw ("0", 583, 260, font2, 10)
            Font.Draw ("0", 587, 250, font2, 10)
            Font.Draw ("0", 455, 290, font2, 10)
            Font.Draw ("0", 465, 290, font2, 10)
            Font.Draw ("0", 475, 290, font2, 10)
            Font.Draw ("0", 485, 290, font2, 10)
            Font.Draw ("0", 455, 280, font2, 10)
            Font.Draw ("0", 455, 270, font2, 10)
            Font.Draw ("0", 455, 260, font2, 10)
            Font.Draw ("0", 330, 268, font2, 10)
            Font.Draw ("0", 270, 280, font2, 10)
            Font.Draw ("0", 270, 270, font2, 10)
            Font.Draw ("0", 300, 220, font2, 10)
            Font.Draw ("0", 310, 220, font2, 10)
            Font.Draw ("0", 320, 220, font2, 10)
            Font.Draw ("0", 290, 220, font2, 10)
            Font.Draw ("0", 280, 220, font2, 10)
            Font.Draw ("0", 222, 220, font2, 10)
            Font.Draw ("0", 212, 220, font2, 10)
            Font.Draw ("0", 202, 220, font2, 10)
            Font.Draw ("0", 192, 225, font2, 10)
            Font.Draw ("0", 180, 234, font2, 10)
            Font.Draw ("0", 178, 244, font2, 10)
            Font.Draw ("0", 176, 258, font2, 10)
            Font.Draw ("0", 180, 270, font2, 10)
            Font.Draw ("0", 117, 220, font2, 10)
            Font.Draw ("0", 107, 225, font2, 10)
            Font.Draw ("0", 100, 234, font2, 10)
            Font.Draw ("0", 93, 244, font2, 10)
            Font.Draw ("0", 91, 258, font2, 10)
            Font.Draw ("0", 95, 270, font2, 10)
            Font.Draw ("0", 10, 290, font2, 10)
            Font.Draw ("0", 20, 290, font2, 10)
            Font.Draw ("0", 30, 290, font2, 10)
            Font.Draw ("0", 40, 290, font2, 10)
            Font.Draw ("0", 50, 290, font2, 10)



        elsif count = 4 and starty <= 230 then
            Font.Draw ("0", 20, 240, font2, 10)
            Font.Draw ("0", 20, 230, font2, 10)
            Font.Draw ("0", 20, 220, font2, 10)
            Font.Draw ("0", 50, 255, font2, 10)
            Font.Draw ("0", 50, 265, font2, 10)
            Font.Draw ("0", 50, 245, font2, 10)
            Font.Draw ("0", 110, 290, font2, 10)
            Font.Draw ("0", 120, 290, font2, 10)
            Font.Draw ("0", 130, 290, font2, 10)
            Font.Draw ("0", 140, 290, font2, 10)
            Font.Draw ("0", 100, 280, font2, 10)
            Font.Draw ("0", 195, 290, font2, 10)
            Font.Draw ("0", 205, 290, font2, 10)
            Font.Draw ("0", 232, 225, font2, 10)
            Font.Draw ("0", 185, 280, font2, 10)
            Font.Draw ("0", 270, 290, font2, 10)
            Font.Draw ("0", 280, 290, font2, 10)
            Font.Draw ("0", 290, 290, font2, 10)
            Font.Draw ("0", 330, 290, font2, 10)
            Font.Draw ("0", 330, 278, font2, 10)
            Font.Draw ("0", 445, 290, font2, 10)
            Font.Draw ("0", 495, 222, font2, 10)
            Font.Draw ("0", 505, 225, font2, 10)
            Font.Draw ("0", 511, 235, font2, 10)
            Font.Draw ("0", 509, 245, font2, 10)
            Font.Draw ("0", 502, 250, font2, 10)
            Font.Draw ("0", 555, 290, font2, 10)
            Font.Draw ("0", 565, 290, font2, 10)
            Font.Draw ("0", 572, 290, font2, 10)
            Font.Draw ("0", 554, 277, font2, 10)
            Font.Draw ("0", 552, 267, font2, 10)
            Font.Draw ("0", 548, 257, font2, 10)
            Font.Draw ("0", 641, 280, font2, 10)
            Font.Draw ("0", 641, 270, font2, 10)
            Font.Draw ("0", 691, 220, font2, 10)
            Font.Draw ("0", 687, 232, font2, 10)
            Font.Draw ("0", 687, 245, font2, 10)
            Font.Draw ("0", 780, 220, font2, 10)
            Font.Draw ("0", 776, 232, font2, 10)
            Font.Draw ("0", 776, 245, font2, 10)


        elsif count > 4 and starty <= 290 then

            Font.Draw ("0", 10, 290, font2, 10)
            Font.Draw ("0", 20, 290, font2, 10)
            Font.Draw ("0", 30, 290, font2, 10)
            Font.Draw ("0", 40, 290, font2, 10)
            Font.Draw ("0", 50, 290, font2, 10)
            Font.Draw ("0", 60, 290, font2, 10)
            Font.Draw ("0", 70, 290, font2, 10)
            Font.Draw ("0", 72, 280, font2, 10)
            Font.Draw ("0", 72, 271, font2, 10)
            Font.Draw ("0", 20, 280, font2, 10)
            Font.Draw ("0", 20, 270, font2, 10)
            Font.Draw ("0", 20, 260, font2, 10)
            Font.Draw ("0", 20, 250, font2, 10)
            Font.Draw ("0", 20, 240, font2, 10)
            Font.Draw ("0", 20, 230, font2, 10)
            Font.Draw ("0", 20, 220, font2, 10)
            Font.Draw ("0", 10, 220, font2, 10)
            Font.Draw ("0", 30, 220, font2, 10)
            Font.Draw ("0", 40, 220, font2, 10)
            Font.Draw ("0", 50, 220, font2, 10)
            Font.Draw ("0", 30, 255, font2, 10)
            Font.Draw ("0", 40, 255, font2, 10)
            Font.Draw ("0", 50, 255, font2, 10)
            Font.Draw ("0", 50, 265, font2, 10)
            Font.Draw ("0", 50, 245, font2, 10)

            Font.Draw ("0", 110, 290, font2, 10)
            Font.Draw ("0", 120, 290, font2, 10)
            Font.Draw ("0", 130, 290, font2, 10)
            Font.Draw ("0", 140, 290, font2, 10)
            Font.Draw ("0", 150, 285, font2, 10)
            Font.Draw ("0", 155, 276, font2, 10)
            Font.Draw ("0", 160, 265, font2, 10)
            Font.Draw ("0", 160, 255, font2, 10)
            Font.Draw ("0", 160, 245, font2, 10)
            Font.Draw ("0", 155, 235, font2, 10)
            Font.Draw ("0", 147, 225, font2, 10)
            Font.Draw ("0", 137, 220, font2, 10)
            Font.Draw ("0", 127, 220, font2, 10)
            Font.Draw ("0", 117, 220, font2, 10)
            Font.Draw ("0", 107, 225, font2, 10)
            Font.Draw ("0", 100, 234, font2, 10)
            Font.Draw ("0", 93, 244, font2, 10)
            Font.Draw ("0", 91, 258, font2, 10)
            Font.Draw ("0", 95, 270, font2, 10)
            Font.Draw ("0", 100, 280, font2, 10)

            Font.Draw ("0", 195, 290, font2, 10)
            Font.Draw ("0", 205, 290, font2, 10)
            Font.Draw ("0", 215, 290, font2, 10)
            Font.Draw ("0", 225, 290, font2, 10)
            Font.Draw ("0", 235, 285, font2, 10)
            Font.Draw ("0", 240, 276, font2, 10)
            Font.Draw ("0", 245, 265, font2, 10)
            Font.Draw ("0", 245, 255, font2, 10)
            Font.Draw ("0", 245, 245, font2, 10)
            Font.Draw ("0", 240, 235, font2, 10)
            Font.Draw ("0", 232, 225, font2, 10)
            Font.Draw ("0", 222, 220, font2, 10)
            Font.Draw ("0", 212, 220, font2, 10)
            Font.Draw ("0", 202, 220, font2, 10)
            Font.Draw ("0", 192, 225, font2, 10)
            Font.Draw ("0", 180, 234, font2, 10)
            Font.Draw ("0", 178, 244, font2, 10)
            Font.Draw ("0", 176, 258, font2, 10)
            Font.Draw ("0", 180, 270, font2, 10)
            Font.Draw ("0", 185, 280, font2, 10)

            Font.Draw ("0", 270, 290, font2, 10)
            Font.Draw ("0", 280, 290, font2, 10)
            Font.Draw ("0", 290, 290, font2, 10)
            Font.Draw ("0", 300, 290, font2, 10)
            Font.Draw ("0", 310, 290, font2, 10)
            Font.Draw ("0", 320, 290, font2, 10)
            Font.Draw ("0", 330, 290, font2, 10)
            Font.Draw ("0", 330, 278, font2, 10)
            Font.Draw ("0", 330, 268, font2, 10)
            Font.Draw ("0", 270, 280, font2, 10)
            Font.Draw ("0", 270, 270, font2, 10)
            Font.Draw ("0", 300, 280, font2, 10)
            Font.Draw ("0", 300, 270, font2, 10)
            Font.Draw ("0", 300, 260, font2, 10)
            Font.Draw ("0", 300, 250, font2, 10)
            Font.Draw ("0", 300, 240, font2, 10)
            Font.Draw ("0", 300, 230, font2, 10)
            Font.Draw ("0", 300, 220, font2, 10)
            Font.Draw ("0", 310, 220, font2, 10)
            Font.Draw ("0", 320, 220, font2, 10)
            Font.Draw ("0", 290, 220, font2, 10)
            Font.Draw ("0", 280, 220, font2, 10)

            Font.Draw ("0", 445, 290, font2, 10)
            Font.Draw ("0", 455, 290, font2, 10)
            Font.Draw ("0", 465, 290, font2, 10)
            Font.Draw ("0", 475, 290, font2, 10)
            Font.Draw ("0", 485, 290, font2, 10)
            Font.Draw ("0", 455, 280, font2, 10)
            Font.Draw ("0", 455, 270, font2, 10)
            Font.Draw ("0", 455, 260, font2, 10)
            Font.Draw ("0", 455, 250, font2, 10)
            Font.Draw ("0", 455, 240, font2, 10)
            Font.Draw ("0", 455, 230, font2, 10)
            Font.Draw ("0", 445, 220, font2, 10)
            Font.Draw ("0", 455, 220, font2, 10)
            Font.Draw ("0", 465, 220, font2, 10)
            Font.Draw ("0", 475, 220, font2, 10)
            Font.Draw ("0", 485, 220, font2, 10)
            Font.Draw ("0", 465, 258, font2, 10)
            Font.Draw ("0", 475, 258, font2, 10)
            Font.Draw ("0", 485, 258, font2, 10)
            Font.Draw ("0", 495, 258, font2, 10)
            Font.Draw ("0", 503, 270, font2, 10)
            Font.Draw ("0", 501, 282, font2, 10)
            Font.Draw ("0", 493, 288, font2, 10)
            Font.Draw ("0", 495, 222, font2, 10)
            Font.Draw ("0", 505, 225, font2, 10)
            Font.Draw ("0", 511, 235, font2, 10)
            Font.Draw ("0", 509, 245, font2, 10)
            Font.Draw ("0", 502, 250, font2, 10)

            Font.Draw ("0", 555, 290, font2, 10)
            Font.Draw ("0", 565, 290, font2, 10)
            Font.Draw ("0", 572, 290, font2, 10)
            Font.Draw ("0", 554, 277, font2, 10)
            Font.Draw ("0", 552, 267, font2, 10)
            Font.Draw ("0", 548, 257, font2, 10)
            Font.Draw ("0", 543, 247, font2, 10)
            Font.Draw ("0", 538, 237, font2, 10)
            Font.Draw ("0", 538, 222, font2, 10)
            Font.Draw ("0", 528, 222, font2, 10)
            Font.Draw ("0", 548, 222, font2, 10)
            Font.Draw ("0", 605, 222, font2, 10)
            Font.Draw ("0", 595, 222, font2, 10)
            Font.Draw ("0", 585, 222, font2, 10)
            Font.Draw ("0", 575, 280, font2, 10)
            Font.Draw ("0", 580, 270, font2, 10)
            Font.Draw ("0", 583, 260, font2, 10)
            Font.Draw ("0", 587, 250, font2, 10)
            Font.Draw ("0", 591, 240, font2, 10)
            Font.Draw ("0", 553, 245, font2, 10)
            Font.Draw ("0", 563, 245, font2, 10)
            Font.Draw ("0", 573, 245, font2, 10)
            Font.Draw ("0", 583, 245, font2, 10)

            Font.Draw ("0", 621, 290, font2, 10)
            Font.Draw ("0", 631, 290, font2, 10)
            Font.Draw ("0", 641, 290, font2, 10)
            Font.Draw ("0", 651, 290, font2, 10)
            Font.Draw ("0", 661, 290, font2, 10)
            Font.Draw ("0", 641, 280, font2, 10)
            Font.Draw ("0", 641, 270, font2, 10)
            Font.Draw ("0", 641, 260, font2, 10)
            Font.Draw ("0", 641, 250, font2, 10)
            Font.Draw ("0", 641, 240, font2, 10)
            Font.Draw ("0", 641, 230, font2, 10)
            Font.Draw ("0", 641, 220, font2, 10)
            Font.Draw ("0", 631, 220, font2, 10)
            Font.Draw ("0", 623, 220, font2, 10)
            Font.Draw ("0", 651, 220, font2, 10)
            Font.Draw ("0", 661, 220, font2, 10)
            Font.Draw ("0", 671, 220, font2, 10)
            Font.Draw ("0", 681, 220, font2, 10)
            Font.Draw ("0", 691, 220, font2, 10)
            Font.Draw ("0", 687, 232, font2, 10)
            Font.Draw ("0", 687, 245, font2, 10)

            Font.Draw ("0", 710, 290, font2, 10)
            Font.Draw ("0", 720, 290, font2, 10)
            Font.Draw ("0", 730, 290, font2, 10)
            Font.Draw ("0", 740, 290, font2, 10)
            Font.Draw ("0", 750, 290, font2, 10)
            Font.Draw ("0", 730, 280, font2, 10)
            Font.Draw ("0", 730, 270, font2, 10)
            Font.Draw ("0", 730, 260, font2, 10)
            Font.Draw ("0", 730, 250, font2, 10)
            Font.Draw ("0", 730, 240, font2, 10)
            Font.Draw ("0", 730, 230, font2, 10)
            Font.Draw ("0", 730, 220, font2, 10)
            Font.Draw ("0", 720, 220, font2, 10)
            Font.Draw ("0", 710, 220, font2, 10)
            Font.Draw ("0", 740, 220, font2, 10)
            Font.Draw ("0", 750, 220, font2, 10)
            Font.Draw ("0", 760, 220, font2, 10)
            Font.Draw ("0", 770, 220, font2, 10)
            Font.Draw ("0", 780, 220, font2, 10)
            Font.Draw ("0", 776, 232, font2, 10)
            Font.Draw ("0", 776, 245, font2, 10)

        end if

    end for

    exit when count > 4

end loop


Author:  Asok [ Tue May 13, 2003 8:01 pm ]
Post subject: 
WAY too hardcoded!
Author:  void [ Tue May 13, 2003 8:24 pm ]
Post subject: 
nice effect...too much effort required...but i commend the fact that at least some programmers arent as lazy as most of us.... Laughing ...yea...that was well done...it wasnt the same as teh movie....but ye...it serves its purpose...............now if only i could figure out how to make it say " KILL THEM ALL..." Twisted Evil ...hehehehe
Author:  void [ Tue May 13, 2003 8:52 pm ]
Post subject: 
OMG!!!!!!!!!!.....i think i might just have discovered one....my modifiying catalysts first matrix program and combining that with what i gathered from this guys little "foot ball" thing....i got it to say "the matrix"...the only problem is having the letters not run over my word....coz by the end it say "$%e%M@+riX"..... Confused i wonder if an if statement would re-randomize the x-co-ordinate if it matches that of any of my letters.....hmmmmm
Author:  Martin [ Tue May 13, 2003 10:24 pm ]
Post subject: 
Hey man, don't worry about it. More of just a laugh than anything. Careful what you say Nate. You can criticize, but saying that something sucks accomplishes nothing. Except maybe getting you banned if you do it enough.
Author:  Martin [ Tue May 13, 2003 10:25 pm ]
Post subject: 
You too void.
Author:  Blade [ Tue May 13, 2003 11:25 pm ]
Post subject: 
would you ppl put ur stuff in a .t file instead of coding it.... ppl with slow temporary computers have hard time scrolling and stuff
Author:  Catalyst [ Tue May 13, 2003 11:31 pm ]
Post subject: 
i got an idea how to do this....

ill get back to you guys if i try it
Author:  void [ Wed May 14, 2003 4:08 pm ]
Post subject: 
thanks for the warning darkness...but i think i'll decide that for my self....and maybe wait till the admin ban me...coz i didnt say it sucked...the effect was good...but i just told the kid that his programming was of bad style...(the worst i'd seen)...and he didnt mind...in fact if i remember correctly...he agreed...so yea...
Author:  Mephi [ Sat May 17, 2003 10:54 am ]
Post subject:  1s and 0s
if you just want scrolling 1s and 0s u can do:
code:

var x : int

loop
randint (x, 0, 1)
put x ..
end loop


then i guess u could just make a word pop up....iunno
Author:  Tony [ Sat May 17, 2003 11:40 am ]
Post subject: 
Mephi - that wouldn't really "scroll" the bits, just lists them, but it is the basics of the "matrix".

As for keeping letter on top so that they dont get errased... You should have letters falling down in 3D, just like in the movie. So letters to stay will be jenerated by the columns with lowest Z value (closest to screen) and the rest will just fall behind.

I assume catalyst can do that easily, he's our 3D expert 8)

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy