Matrix text effect

void · **Posted:** Tue May 13, 2003 6:05 pm

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

ZeroKelvin · **Posted:** Tue May 13, 2003 6:43 pm

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

beedub · **Posted:** Tue May 13, 2003 6:49 pm

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

lil_li · **Posted:** Tue May 13, 2003 7:53 pm

testing

code:

hehehe

lil_li · **Posted:** Tue May 13, 2003 7:55 pm

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

Asok · **Posted:** Tue May 13, 2003 8:01 pm

WAY too hardcoded!

void · **Posted:** Tue May 13, 2003 8:24 pm

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

void · **Posted:** Tue May 13, 2003 8:52 pm

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

Martin · **Posted:** Tue May 13, 2003 10:24 pm

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.

Martin · **Posted:** Tue May 13, 2003 10:25 pm

You too void.

Blade · **Posted:** Tue May 13, 2003 11:25 pm

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

Catalyst · **Posted:** Tue May 13, 2003 11:31 pm

i got an idea how to do this....

ill get back to you guys if i try it

void · **Posted:** Wed May 14, 2003 4:08 pm

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

Mephi · **Posted:** Sat May 17, 2003 10:54 am

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

Tony · **Posted:** Sat May 17, 2003 11:40 am

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)

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members