И снова всем привет! Я сегодня покажу вам переделанную Матрицу (Matrix), версия 2.0! Если возникнут вопросы, пишите!
Вот полный код:
Code
;
; Matrix version 2.0
;
; A matrix in Blitz3D
;
; by Max Cohen
;
; e-mail: mamba_mambaovich@bk.ru
;
Graphics(640, 480, 16, 2)
SetBuffer(BackBuffer())
SetFont(LoadFont("Courier", 14, 0, 0, 0))
Global a1%, a2%, a3%, a4%
Dim b1%(9), b2%(62)
b1(0) = 22
b1(1) = 19
b1(2) = 16
b1(3) = 13
b1(4) = 11
b1(5) = 10
b1(6) = 9
b1(7) = 8
b1(8) = 8
b1(9) = 7
c1()
a1 = CreateTimer(10)
While Not KeyHit(1)
a2 = WaitTimer(a1)
For a3 = 1 To a2
Next
If a4 < 92 Then
a4 = a4 + 1
c1()
End If
c2()
Flip
Cls
Wend
End
Type d1
Field x%, y%, l%, c%
End Type
Function c1()
Local a%
b.d1 = New d1
Repeat
a = Rand(1, 63)
Until b2(a - 1) = 0
b2(a - 1) = 1
b\x = a * 10
b\y = 0
b\l = Rand(5, 14)
b\c = b\l - 5
End Function
Function c2()
Local a%, b%
For c.d1 = Each d1
For b = 1 To c\l
a = Rand(65, 90)
Color(0, Abs(137 - (b * b1(c\c))), 0)
Text(c\x, (c\y - (b * 12)), Chr(a), 1, 1)
Next
a = Rand(65, 90)
Color(0, 255, 0)
Text(c\x, c\y, Chr(a), 1, 1)
If c\y > 400 Then b2((c\x / 10) - 1) = 0
If c\y < 650 Then
c\y = c\y + 12
Else
Delete c
c1()
End If
Next
End Function