The Matrix program

[ahsonmonis]

I have tried to imitate the effect of the matrix. It is a bit lame now, i am still working on it. Hope you guys can help me improve it.

[Carey]

Man. I've seen so many of these matrix generator things, and all of the ones with 1s and 0s in them have insanely long put statements filled with random 1s and 0s. Try this:

Turing:

colourback(black) colour (green) cls for i: 1 .. 9999 %or whatever     put Rand.Int (0,1)..     delay (1) %or whatever end for

It is sooooo much more efficiant and cleaner looking.

not trying to be mean or anything

[ahsonmonis]

Thanks for the advice. I am fairly new in Turing and just thought of using the basics i have learned. I was thinking on how to make it look cleaner. Thanks for the improvement.

[lilmizeminem]

hahah this is so cool, it actually made my day !

[shoobyman]

cool, but maybe it should be... more matrixy

check out mine

http://www.compsci.ca/v3/viewtopic.php?t=14175&highlight=

[ahsonmonis]

Your matrix edition looks a lot better. Although, i want to make a suggestion. I think there should be more symbols and don't use letters. try to use symbols from the characters list...

[Qamar]

haha, this is soo coool. good job on it. (Y)

[ashiphire]

cool, but why is there a inthe part with all the 1s and 0s

[Warchamp7]

Lol, I made a matrix a while ago myself. Much simpler too

code:

%Matrix colorback(7) color(10) cls loop var x : int x := Rand.Int (0, 1) delay (1) put x.. end loop

[gnewylliw]

found this old link. well hears mine View.Set ("graphic:600;600")

colorback (black)
color (green)
cls

var clr,clrstarter,random : int := green
var ltr:array 1..80 of string
var x, y, speed : array 1 .. 80 of int
var rows : int := 20
for i : 1 .. 80
% randint (x (i), 0, maxx div 15)
x(i):=(i div 2) * 15
randint (y (i), 30, 60)
randint (speed (i), 2, 3)
randint (random,1,5)
if random = 1 then ltr(i):="A"
elsif random = 2 then ltr(i):="B"
elsif random = 3 then ltr(i):="M"
elsif random = 4 then ltr(i):="X"
elsif random = 5 then ltr(i):="5"
end if

end for
loop



for i : 1 .. 80

for j : 1 .. rows
if j = 2 then
clr := white
elsif j=rows-3 then clr:=18
elsif j<rows div 2 then clr:= 121- j div 8
else
clr := 193 - j div 6
end if
if j = 1 then
% Draw.FillBox (x (i), y (i) * 10, x (i) + 15, 10*(y (i))+ 10, black)
elsif j=rows then Draw.FillBox (x (i), y (i) * 10 + j * 9, x (i) + 15, 10*(y (i))+ j * 10 + 20, black)
else
Draw.Text (ltr(i), x (i), 10*(y (i)) + j * 10, defFontID, clr)
end if


end for

y (i) -= speed (i)
if y (i) < -20 then
randint (y (i), 30, 60)
randint (random,1,5)
if random = 1 then ltr(i):="A"
elsif random = 2 then ltr(i):="B"
elsif random = 3 then ltr(i):="M"
elsif random = 4 then ltr(i):="X"
elsif random = 5 then ltr(i):="5"
end if
% randint (x (i), 0, maxx)
end if

end for

end loop

[Nick]

that was really cool but heres some suggestions:
use randint to make a number and the chr it to make the code look clean also try not to use letters so much