A little editted to look a little cool...
Code:
'6-line SS by Seph
1 SCREEN 13
2 RANDOMIZE TIMER
3 x = RND(320) * 320 + 1
4 y = RND(200) * 200 + 1
5 PSET (x, y), (x MOD (RND(2) + 1)) + (y MOD (RND(2) + 1)) AND 2
6 IF INKEY$ = "" THEN GOTO 3
[edit] made smaller by 1 line
Mines just retarded, but who cares.
Code:
PSET((rnd*319)+1,(rnd*199)+1),c
Code:
LOOP UNTIL INKEY$ <> ""
Code:
' Nineliner by red_Marvin:
' DNAMATRIX
' runs OK on a P90
' color number = 65536 * blue + 256 * green + red
'---ENJOY!---
'
1 RANDOMIZE TIMER
2 SCREEN 13
3 FOR n = 0 TO 63
4 PALETTE n, n * 256
5 NEXT
6 x = INT(RND * 32) * 10
7 y = INT(RND * 199) + 1
8 LINE (x, y)-(x + 5, y), (POINT(x, y - 2) + RND AND 63) * RND * 2 AND 63
9 IF INKEY$ = "" THEN GOTO 6
IMHO this one is better than my greenboxes...
[EDIT]
I "optisized" the code down to FIVE lines:
Code:
' FIVEliner by red_Marvin:
' DNAMATRIX
' runs OK on a P90
' color number = 65536 * blue + 256 * green + red
'---ENJOY!---
'
1 IF n = 0 THEN SCREEN 13 ELSE RANDOMIZE TIMER
2 IF n = 64 THEN x = INT(RND * 32) * 10 ELSE PALETTE n, n * 256
3 IF n = 64 THEN y = INT(RND * 199) + 1 ELSE n = n + 1
4 IF n = 64 THEN LINE (x, y)-(x + 5, y), (POINT(x, y - 2) + RND AND 63) * RND * 2 AND 63 ELSE GOTO 1
5 IF INKEY$ = "" THEN GOTO 2
*rubs hands with glee*
Keep 'em coming!
So is this thread alive again?
*Tries to think of new gfx fx.......
Quote:*Tries to think of new gfx fx.......
Please, Mr. Rel. Please use your valuable time in
those people who're still waiting for your slice of the cake. Quite a few. You know.
*muffled voice* Joe! It's your turn now!
*gets his fat ass off the couch away from the lethal weapon marathon on tv* awwwwwww......
oh, what the hell, here's a crappy 9-line matrix:
Code:
1 DEF SEG = &HB800
2 FOR x = 4000 TO 0 STEP -2
3 IF x <= 24 THEN OUT &H3C9, -(((x \ 2) MOD 3) = 2) * 15 * (4 - x \ 6 - 1) ELSE OUT &H3C8, 0
4 IF PEEK(x + 1) > 0 THEN POKE x + 161, PEEK(x + 1)
5 IF PEEK(x + 1) > 0 THEN POKE x + 1, PEEK(x + 161) - 1 ELSE POKE INT(RND * 1999) * 2, INT(RND * 9) + 48
6 IF x MOD 250 = 0 THEN POKE INT(RND * 319) * 2 + 1, 3 ELSE n = 1
7 NEXT
8 FOR x = 0 TO 100000: NEXT
9 IF INKEY$ = "" THEN GOTO 2
remember, if it doesnt have a label in front it ain't a line break.