seph
|
 |
« Reply #195 on: May 22, 2003, 10:18:51 PM » |
|
Jesus, there are over 20 screensavers on the first 2 pages alone! How do I know which ones are worth seeing!?
|
|
|
Logged
|
earn.
|
|
|
relsoft
|
 |
« Reply #196 on: May 23, 2003, 12:28:36 AM » |
|
All of it are worth seeing. Check out all of it or you'll miss some of the best. :*)
|
|
|
Logged
|
|
|
|
oracle
|
 |
« Reply #197 on: May 23, 2003, 02:36:02 AM » |
|
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!
|
|
|
Logged
|
|
|
|
BinarySHOCK
|
 |
« Reply #198 on: May 23, 2003, 03:34:03 AM » |
|
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
|
|
|
Logged
|
very F***ing song remains the same To everyone who sucks-up for the fame Out of strength you know we speak the truth Every trend that dies is living proof MasterMinds Software
|
|
|
oracle
|
 |
« Reply #199 on: May 23, 2003, 08:07:24 PM » |
|
Good... keep sending them in, they'll all be goin' on QBNZ.
|
|
|
Logged
|
|
|
|
seph
|
 |
« Reply #200 on: May 24, 2003, 02:06:24 PM » |
|
A little editted to look a little cool... '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
|
|
|
Logged
|
earn.
|
|
|
Mango
Wandering Guru
  
Posts: 360
|
 |
« Reply #201 on: May 24, 2003, 05:03:25 PM » |
|
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
|
|
|
Logged
|
|
|
|
Dantheman10110
Forum Regular
 
Posts: 109
|
 |
« Reply #202 on: May 24, 2003, 08:58:16 PM » |
|
Mines just retarded, but who cares. SCREEN 13 DO FOR c = 1 TO 256 RANDOMIZE TIMER PSET((rnd*319)+1,(rnd*199)+1),c NEXT LOOP UNTIL INKEY$ <> ""
|
|
|
Logged
|
|
|
|
red_Marvin
|
 |
« Reply #203 on: May 25, 2003, 11:23:24 AM » |
|
' 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: ' 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
|
|
|
Logged
|
/post]
|
|
|
Agamemnus
|
 |
« Reply #204 on: May 25, 2003, 03:32:32 PM » |
|
nice.
|
|
|
Logged
|
Peace cannot be obtained without war. Why? If there is already peace, it is unnecessary for war. If there is no peace, there is already war." Visit www.neobasic.net to see rubbish in all its finest.
|
|
|
oracle
|
 |
« Reply #205 on: May 25, 2003, 09:18:55 PM » |
|
*rubs hands with glee*
Keep 'em coming!
|
|
|
Logged
|
|
|
|
relsoft
|
 |
« Reply #206 on: May 26, 2003, 12:39:28 AM » |
|
So is this thread alive again?
*Tries to think of new gfx fx.......
|
|
|
Logged
|
|
|
|
Hexadecimal Disaster
|
 |
« Reply #207 on: May 26, 2003, 03:48:11 AM » |
|
*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!
|
|
|
Logged
|
img]http://usuarios.vtr.net/~disaster/sigs/annoyizer.php[/img]
|
|
|
toonski84
|
 |
« Reply #208 on: May 26, 2003, 10:43:59 AM » |
|
*gets his fat ass off the couch away from the lethal weapon marathon on tv* awwwwwww......
|
|
|
Logged
|
i]"I know what you're thinking. Did he fire six shots or only five? Well, to tell you the truth, in all this excitement, I've kinda lost track myself. But being as this is a .44 Magnum ... you've got to ask yourself one question: 'Do I feel lucky?' Well, do ya punk?"[/i] - Dirty Harry
|
|
|
toonski84
|
 |
« Reply #209 on: May 26, 2003, 12:47:40 PM » |
|
oh, what the hell, here's a crappy 9-line matrix: 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.
|
|
|
Logged
|
i]"I know what you're thinking. Did he fire six shots or only five? Well, to tell you the truth, in all this excitement, I've kinda lost track myself. But being as this is a .44 Magnum ... you've got to ask yourself one question: 'Do I feel lucky?' Well, do ya punk?"[/i] - Dirty Harry
|
|
|
|