Challenge....

[seph]

Jesus, there are over 20 screensavers on the first 2 pages alone! How do I know which ones are worth seeing!?

[relsoft]

All of it are worth seeing. Check out all of it or you'll miss some of the best. :*)

[oracle]

An' they're all going up on QBNZ, so congrats to the authors for making some of the best limited line code I have seen, and please, by all accounts, make some more!

[BinarySHOCK]

well here's another 1

1  SCREEN 13
2  M% = 1
3  FOR J% = 0 TO 119
4       FOR I% = 0 TO 119
5            PSET (I% + 95, J% + 30), SQR((I% * J%) MOD (L% + 1))
6       NEXT I%, J%
7  L% = (L% + M%)
8  IF L% = 64 OR L% = 0 THEN IF M% = 1 THEN M% = -1 ELSE M% = 1
9  IF LEN(INKEY$) = 0 THEN 3

[oracle]

Good... keep sending them in, they'll all be goin' on QBNZ.

[seph]

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

[Mango]

Code:

1 SCREEN 13
2 FOR t = 1 TO 320
3 x = RND * 320
4 PSET (x, (x AND (RND * t)) / 1.6), x AND t
5 PSET (320 - x, 200 - (x AND (RND * t)) / 1.6), x AND t
6 NEXT t
7 IF INKEY$ = "" GOTO 2

[Dantheman10110]

Mines just retarded, but who cares.

Code:

SCREEN 13

Code:

DO

Code:

FOR c = 1 TO 256

Code:

RANDOMIZE TIMER

Code:

PSET((rnd*319)+1,(rnd*199)+1),c

Code:

NEXT

Code:

LOOP UNTIL INKEY$ <> ""

[red_Marvin]

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

[Agamemnus]

nice.

[oracle]

*rubs hands with glee*

Keep 'em coming!

[relsoft]

So is this thread alive again?

*Tries to think of new gfx fx.......

[Hexadecimal Disaster]

*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!

[toonski84]

*gets his fat ass off the couch away from the lethal weapon marathon on tv* awwwwwww......

[toonski84]

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.