Qbasicnews.com
November 12, 2019, 10:36:00 AM *
Welcome, Guest. Please login or register.

Login with username, password and session length
News: Back to Qbasicnews.com | QB Online Help | FAQ | Chat | All Basic Code | QB Knowledge Base
 
   Home   Help Search Login Register  
Pages: 1 ... 12 13 [14] 15
  Print  
Author Topic: Challenge....  (Read 63491 times)
seph
Na_th_an
*****
Posts: 1915



« 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
*/-\*
*****
Posts: 3927



WWW
« 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

y smiley is 24 bit.


Genso's Junkyard:
http://rel.betterwebber.com/
oracle
*/-\*
*****
Posts: 3652



WWW
« 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
Forum Regular
**
Posts: 117



WWW
« 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
*/-\*
*****
Posts: 3652



WWW
« Reply #199 on: May 23, 2003, 08:07:24 PM »

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

seph
Na_th_an
*****
Posts: 1915



« Reply #200 on: May 24, 2003, 02:06:24 PM »

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
Logged

earn.
Mango
Wandering Guru
***
Posts: 360



« Reply #201 on: May 24, 2003, 05:03:25 PM »

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
Logged
Dantheman10110
Forum Regular
**
Posts: 109


« Reply #202 on: May 24, 2003, 08:58:16 PM »

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$ <> ""
Logged
red_Marvin
Na_th_an
*****
Posts: 1509



WWW
« Reply #203 on: May 25, 2003, 11:23:24 AM »

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
Logged

/post]
Agamemnus
x/ \z
*****
Posts: 3491



« 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
*/-\*
*****
Posts: 3652



WWW
« Reply #205 on: May 25, 2003, 09:18:55 PM »

*rubs hands with glee*

Keep 'em coming!
Logged

relsoft
*/-\*
*****
Posts: 3927



WWW
« Reply #206 on: May 26, 2003, 12:39:28 AM »

So is this thread alive again?

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

y smiley is 24 bit.


Genso's Junkyard:
http://rel.betterwebber.com/
Hexadecimal Disaster
Been there, done that
*****
Posts: 1123



« Reply #207 on: May 26, 2003, 03:48:11 AM »

Quote from: "relsoft"
*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
__/--\__
*****
Posts: 2567



« 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
__/--\__
*****
Posts: 2567



« Reply #209 on: May 26, 2003, 12:47:40 PM »

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.
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
Pages: 1 ... 12 13 [14] 15
  Print  
 
Jump to:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!