Qbasicnews.com

Full Version: Challenge....
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Pages: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
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
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
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$ <> ""
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
nice.
*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.[Image: eviltongue.gif]

*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.
Pages: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22