/***************************
*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)

%% New Matrix

View.Set ("position:300;300,graphics:640;640,offscreenonly,nobuttonbar,noecho,nocursor")
for i : 1 .. 255
    RGB.SetColor (i, 0, i / 255, 0)
end for
type Letter :
    record
        row, col : int
        life : real
    end record
type HiddenText :
    record
        Elements : array 1 .. 100, 1 .. 100 of int
        c : array 1 .. 100, 1 .. 100 of char
        C : array 1 .. 100, 1 .. 100 of int
        lives : array 1 .. 100, 1 .. 100 of real
    end record
drawfillbox (0, 0, maxx, maxy, 7)
const maxLett :=40
const maxLife := 20
var text : string := "The Matrix"
var text2 : string := "Reloaded"
var bigFont : int := Font.New ("verdana:75:bold")
Font.Draw (text, 15, 300, bigFont, 0)
var hText : HiddenText
for i : 1 .. maxrow
    for k : 1 .. maxcol
        hText.Elements (i, k) := 0
    end for
end for
var holdR, holdC : int
for decreasing i : maxy .. 12 by 12
    for k : 8 .. maxx by 8
        holdR := round (i / 12)
        holdR += round ((maxrow div 2 - holdR) * 2) + 4
        holdC := round (k / 8)
        if holdR > 0 and holdR < maxrow then
            if whatdotcolor (k, i) = 0 then
                hText.Elements (holdR, holdC) := 1
                hText.lives (holdR, holdC) := 1
            else
                hText.Elements (holdR, holdC) := 0
                hText.lives (holdR, holdC) := 0
            end if
            hText.c (holdR, holdC) := chr (Rand.Int (60, 90))
            hText.C (holdR, holdC) := Rand.Int (250, 255)
        end if
    end for
end for
drawfillbox (0, 0, maxx, maxy, 7)
var LettList : array 1 .. maxLett of Letter
for i : 1 .. maxLett
    LettList (i).row := Rand.Int (-maxrow, 1)
    LettList (i).col := Rand.Int (1, maxcol)
end for
var trailLength : int := 15
var multc : real := 255 / trailLength
loop
    for i : 1 .. maxrow
        for k : 1 .. maxcol
            if hText.Elements (i, k) = 1 then
                locate (i, k)
                if hText.lives (i, k) > 255 then
                    color (255)
                else
                    color (round ((hText.lives (i, k) / 255) * 255))
                end if
                 colorback (7)
                put hText.c (i, k) ..
            end if
        end for
    end for
    for i : 1 .. maxLett
        LettList (i).row += 1
        if LettList (i).row > 1 then
            for k : 1 .. trailLength
                if LettList (i).row - k > 1 and LettList (i).row - k < maxrow then
                    locate (LettList (i).row - k, LettList (i).col)
                    color (round (((256 - k * multc) / 255) * 255))
                    colorback (7)
                    put chr (Rand.Int (1, 100)) ..
                end if
            end for
            if LettList (i).row < maxrow then
                if hText.Elements (LettList (i).row, LettList (i).col) = 1 then
                    hText.lives (LettList (i).row, LettList (i).col) += Rand.Int (20,50)
                end if
            elsif LettList (i).row > maxrow + trailLength then
                LettList (i).row := Rand.Int (-maxrow, 1)
                LettList (i).col := Rand.Int (1, maxcol)
            else
            end if
        end if
    end for
    View.Update
    drawfillbox (0, 0, maxx, maxy, 7)
end loop

var screen : array 1 .. maxrow, 1 .. maxcol of int
var pic : int := Pic.FileNew ("pic.jpg")
Pic.Draw (pic, 0, 0, picCopy)
var holdR, holdC : int
for decreasing i : maxy .. 12 by 12
    for k : 8 .. maxx by 8
        holdR := round (i / 12)
        holdR += round ((maxrow div 2 - holdR) * 2) + 4
        holdC := round (k / 8)
        if holdR > 0 and holdR < maxrow then
            screen (holdR, holdC) := whatdotcolor (k, i)
        end if
    end for
end for
cls
for i : 1 .. maxrow - 1
    for k : 1 .. maxcol - 1
        locate (i, k)
        if i > 0 and i < maxrow then
            color (screen (i, k))
            colorback (7)
        else
            color (7)
              colorback (7)
        end if
        put chr (Rand.Int (60, 90)) ..
    end for
end for

for i : 1 .. maxrow - 1
    for k : 1 .. maxcol - 1
        locate (i, k)
        if i > 0 and i < maxrow then
            colorback (screen (i, k))
            color (7)
        else
            color (7)
              colorback (7)
        end if
        put " "..
    end for
end for