Keskustelu: Koodit: QB: Laiska Matrix efekti

'Hauska Matrix efekti By: Nyrhinen (TailGunner)
SCREEN 12
OUT &H3C8, 0                ' Asettaa 16 eri vihreän sävyä.
FOR a% = 0 TO 15
OUT &H3C9, (0)
OUT &H3C9, (a% * 4)
OUT &H3C9, (0)
NEXT a%

DIM s%(79)
FOR i% = 0 TO 79
s%(i%) = RND * -10
NEXT i%

DIM sm%(79)
FOR i% = 0 TO 79
sm%(i%) = s%(i%) + 20'((50 - s%(i%)) * RND)
NEXT i%
LOCATE 15, 25: PRINT "Kirjoitusta ynm. hassua "   'kirjoitettava teksti (aika pieni alue sille)

WHILE a$ <> CHR$(27)
a$ = INKEY$
FOR i% = 0 TO 78
    IF s%(i%) >= 0 AND s%(i%) <= 29 AND (s%(i%) <> 14 OR (i% < 24 OR i% > 56)) THEN
    LOCATE s%(i%) + 1, i% + 1
    COLOR 15
    PRINT CHR$(128 + (RND * 100))    'Tulostetaan kirjaimet
    END IF

 IF s%(i%) > 0 THEN
xx% = 8  'Vari
  FOR j% = s%(i%) - 1 TO 0 STEP -1
   xx% = xx% - .4
   IF xx% < 3 THEN xx% = 3
    IF j% <= 29 AND (j% <> 14 OR (i% < 24 OR i% > 56)) THEN
   LOCATE j% + 1, i% + 1
    COLOR xx%
     PRINT CHR$(128 + (RND * 100));
    END IF
  NEXT j%
 END IF
 IF s%(i%) < sm%(i%) THEN
  s%(i%) = s%(i%) + 1
  IF s%(i%) > 70 THEN
   s%(i%) = 0
   sm%(i%) = RND * 50
  END IF
 ELSE
  IF RND < .05 THEN
   s%(i%) = 0
   sm%(i%) = RND * 50
  END IF
 END IF
NEXT i%
COLOR 15

WEND

END

FOR i% = 0 TO 15
COLOR i%
PRINT i%
NEXT i%