;
; Matrix version 2.3
;  
; A matrix in Blitz3D
;
; by Max Cohen
;
; e-mail: mamba_mambaovich@bk.ru
;

Graphics(640, 480, 32, 2)
SetBuffer(BackBuffer())

SetFont(LoadFont("Courier New", 14, 0, 0, 0))

Const deathTime=700
Const amountOfElement=63 ; max=63
Const speedOfElement=60 ; ///////
Const heightOfElement=11
Const widthOfElement=10
Const beginOfElement=1
Const endOfElement=63
Const minLengthOfElement=5
Const maxLengthOfElement=23
Const beginOfChar=0
Const endOfChar=89
Const errorTime=333 ; ///////

Dim XPos(63)

Global Timer%
Timer=CreateTimer(speedOfElement)

Global a1%, a2%
a1=0
a2=amountOfElement

Global b1%, b2%
b1=0

Type Element
  Field x%, y%, l%, t%, d%
End Type

Viewport(0, 118, 640, 240) ; ///

While Not KeyHit(1)
  If a1<a2 Then
   InitilizeE()
   a1=a1+1
  Else
   a1=a2
  End If
   
  UpdateE()
Wend
End

Function InitilizeE()
  SeedRnd(MilliSecs())

  Local a%, b%
  a=1
   
  Repeat
   a=Rand(beginOfElement, endOfElement)
  Until (XPos(a)<>1)

  XPos(a)=1
   
  Ax.Element=New Element
   Ax\x=a*widthOfElement
   Ax\y=Rand(5, 9)*heightOfElement
   Ax\l=Rand(minLengthOfElement, maxLengthOfElement)
   Ax\t=Rand(1, 3)
   Ax\d=a
End Function

Function UpdateE()
  Local a%, b%, c%, d%, e%, f%
  b=WaitTimer(Timer)

  For a=0 To b
  Next
   
  For Ax.Element=Each Element
   If Ax\y<deathTime Then
    If Ax\t>b2 Then
     Ax\y=Ax\y+heightOfElement
      
     For c=0 To Ax\l-1
      d=c*11
      e=c*Abs((255.0/Ax\l))
      f=c*Abs((71.0/Ax\l))
       
      Color(0, 0, 0)
      Rect(Ax\x-5, (Ax\y-5)-d, 11, 11)
       
      Color(72-f, 255-e, 72-f)
      Text(Ax\x, Ax\y-d, Chr(Rand(33, 126)), 1, 1)
     Next
      
     Color(0, 0, 0)
     Rect(Ax\x-5, Ax\y-5, 11, 13)

     Color(125, 255, 155)
     Text(Ax\x, Ax\y, Chr(Rand(33, 126)), 1, 1)
    End If
     
    b2=b2+1
     
    If b2>4 Then
     b2=0
    End If
   Else
    a1=a1-1
    XPos(Ax\d)=0
    Delete Ax
   End If
  Next
  Flip
End Function