Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 The Matrix
Index -> General Discussion
Goto page Previous  1, 2, 3, 4, 5, 6, 7, 8  Next
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
ZeroKelvin




PostPosted: Mon May 12, 2003 10:45 am   Post subject: (No subject)

anime is the best, no one can dis it
i think animatrix is gonna be great
i support it all the way
Sponsor
Sponsor
Sponsor
sponsor
Blade




PostPosted: Mon May 12, 2003 12:18 pm   Post subject: (No subject)

yea! ANIME RULES
Ravage




PostPosted: Mon May 12, 2003 12:39 pm   Post subject: (No subject)

Well I hated anime, until Blade showed me the REAL stuff, if it wasnt for DBZ on YTV then I wouldnt be swaying so often
Office of the Registar




PostPosted: Mon May 12, 2003 2:08 pm   Post subject: (No subject)

anime rules Laughing
ThunderChuncky




PostPosted: Mon May 12, 2003 2:42 pm   Post subject: (No subject)

Yeah! nothing can come close to beating it! Very Happy
Homer_simpson




PostPosted: Mon May 12, 2003 3:18 pm   Post subject: (No subject)

how do u all figure?!
void




PostPosted: Mon May 12, 2003 5:51 pm   Post subject: (No subject)

yea yea....we all love animatrix....the only thing i would suggest next time....3D animation!!!!!!!!1.....like....ummm......whats that one show called.....you kno digimon (oh...the memories that show holds for me)....when they transformed...it was really sick ass hard core 3D animation...like that....that shit is sick....yes....guess what?!?!?!?!.....I HAVE TICKETS TO BOTH THE 12:00 SHOW AND THE FIRST SHOW AFTER SCHOOL (3:30 SHOW).....arent i in love with the matrix....now if only they could get trinity to have some sort of lesbien sex with that new seductress lady....mmmmmmmmm......lez sex......shit...i hope my gf does read this.....wait...shes a blonde...she wont use the internet let alone go to a site called cs...(if she reads this im DEAD!!!!)...man....i just keep diggin myself deeper
Ravage




PostPosted: Wed May 14, 2003 11:52 am   Post subject: (No subject)

Only 11 hours 41 minutes and 10 seconds left
Sponsor
Sponsor
Sponsor
sponsor
Blade




PostPosted: Wed May 14, 2003 11:53 am   Post subject: (No subject)

thx for the reminder mr. obsessive
void




PostPosted: Wed May 14, 2003 4:03 pm   Post subject: (No subject)

im going in like 4 hours to camp out....ITS SOLD OUT ALL OVER THE TOWN!!!!!!!
void




PostPosted: Wed May 14, 2003 4:59 pm   Post subject: (No subject)

okay...this is my pathetic attempt at mod-ing catalysts proggy...its pretty gay...y?...becuase my other attempt at doing it to get it to drop off the letters at the end of a stream failed...(all the streaks wanna end up at the bottom...so if it drops of a letter in the middle of the screen...by the time the streak ends up at the bottom..it will have draw over it...and drawing it at the tail of a streak was kinda hard for me to do)......
code:

/***************************
*Matrix Program by Catalyst*
*Modified Slightly by Void *
***************************/
const maxChar := 100
const maxStreak := 250
randomize
var l_r : int
var w : int := Window.Open ("fullscreen")
Window.Set (w, "nocursor,noecho")
var count : int := 0
var x, y, c : array 1 .. maxStreak of int
var matrix := "The matrix has you neo..."
var switch := 0
var ch : array 1 .. maxStreak of string
for i : 1 .. maxStreak
    y (i) := maxy
    ch (i) := " "
    c (i) := 1
end for

var z : int := 1
var font : int := Font.New ("courier:12:bold")
var yspd : int := 10
var rc : int := 0

proc fillback (c : int)
    drawfillbox ( - 10, - 10, maxx + 10, maxy + 10, c)
end fillback

proc Streak (num : int, highlight : boolean)
    %% Turns a white sparkles effets on/off
    for n : 1 .. num
        randint (l_r, 0, 1)
        if l_r = 0 then
            randint (x (n), 0, (maxx div 2) - 55)
        elsif l_r = 1 then
            randint (x (n), (maxx div 2) + 55, maxx)
        end if
        randint (y (n), maxy, maxy * 2 + 140)
    end for
    loop
        for n : 1 .. num
            randint (z, 1, maxChar)

            ch (n) += chr (z)

            c (n) += 1
            y (n) -= yspd
            if y (n) < - 140 then
                randint (y (n), maxy, maxy * 2 + 140)
                randint (x (n), 0, maxx)
                ch (n) := " "
                c (n) := 1
            end if


            if c (n) > 16 then
                if highlight = true then
                    Font.Draw (ch (n) (c (n) - 1), x (n), y (n), font,
                        white)
                end if
                Font.Draw (ch (n) (c (n) - 2), x (n), y (n) + 10, font,
                    10)
                Font.Draw (ch (n) (c (n) - 3), x (n), y (n) + 20, font,
                    2)
                Font.Draw (ch (n) (c (n) - 7), x (n), y (n) + 60, font,
                    120)
                Font.Draw (ch (n) (c (n) - 11), x (n), y (n) + 100, font,
                    192)
                Font.Draw (ch (n) (c (n) - 15), x (n), y (n) + 140, font,
                    black)
            end if
            if count = 100 then
                Font.Draw ("T", (maxx div 2) - 50, 400, font, 10)
            elsif count = 150 then
                Font.Draw ("Th", (maxx div 2) - 50, 400, font, 10)
            elsif count = 200 then
                Font.Draw ("The", (maxx div 2) - 50, 400, font, 10)
            elsif count = 250 then
                Font.Draw ("The M", (maxx div 2) - 50, 400, font, 10)
            elsif count = 300 then
                Font.Draw ("The Ma", (maxx div 2) - 50, 400, font, 10)
            elsif count = 350 then
                Font.Draw ("The Mat", (maxx div 2) - 50, 400, font, 10)
            elsif count = 400 then
                Font.Draw ("The Matr", (maxx div 2) - 50, 400, font, 10)
            elsif count = 450 then
                Font.Draw ("The Matri", (maxx div 2) - 50, 400, font,
                    10)
            elsif count = 500 then
                Font.Draw ("The Matrix", (maxx div 2) - 50, 400, font,
                    10)

            elsif count = 600 then
                switch := 1
            end if
        end for
        count += 1
        exit when switch = 1
    end loop
    Font.Draw ("The Matrix", (maxx div 2) - 50, 400, font,
        10)
    delay (2000)
    colorback (black)
    cls
    color (10)
    for a : 1 .. length (matrix)
        locate (3, a)
        put matrix (a), "_"
        delay (150)
    end for
    loop
        locate (3, length (matrix) + 1)
        put " "
        delay (500)
        locate (3, length (matrix) + 1)
        put "_"
        delay (500)
    end loop
end Streak


fillback (black)
Streak (60, false)

enjoy!?
Tony




PostPosted: Wed May 14, 2003 6:56 pm   Post subject: (No subject)

so what exactly did you modify?
Latest from compsci.ca/blog: Tony's programming blog. DWITE - a programming contest.
Asok




PostPosted: Wed May 14, 2003 6:59 pm   Post subject: (No subject)

he just merged catalyst's and the other one.
Catalyst




PostPosted: Wed May 14, 2003 6:59 pm   Post subject: (No subject)

Hes got it spelling the matrix in the middle
Asok




PostPosted: Wed May 14, 2003 7:01 pm   Post subject: (No subject)

I think it's running to fast on my machine to see it.
Display posts from previous:   
   Index -> General Discussion
View previous topic Tell A FriendPrintable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 4 of 8  [ 106 Posts ]
Goto page Previous  1, 2, 3, 4, 5, 6, 7, 8  Next
Jump to:   


Style:  
Search: