Posts: 44
Threads: 5
Joined: Jan 2003
Quote:got any other programs that arent 9 lines?
Well, if you're talking about graphic demos, not really. But usually I just program bits and pieces of graphical/sound/network junk.
Of course that means I have over 200 files sitting in \QB45
Well, here's another one based around the same concepts:
Code: ' Crackler screensaver by someone42
1 SCREEN 9
2 a$ = MKI$(320) + MKI$(175) + MKI$(1) + MKI$(1) + STRING$(12288, 0)
3 IF x& MOD 128 = 0 THEN MID$(a$, 1, 8) = MKI$(CVI(MID$(a$, 1, 2)) + CVI(MID$(a$, 5, 2))) + MKI$(CVI(MID$(a$, 3, 2)) + CVI(MID$(a$, 7, 2))) + MID$(a$, 5, 4)
4 IF x& MOD 128 = 0 THEN MID$(a$, 5, 4) = MKI$((2 * ((0 > CVI(MID$(a$, 1, 2))) OR (640 < CVI(MID$(a$, 1, 2)))) + 1) * CVI(MID$(a$, 5, 2))) + MKI$((2 * (0 > CVI(MID$(a$, 3, 2)) OR 350 < CVI(MID$(a$, 3, 2))) + 1) * CVI(MID$(a$, 7, 2)))
5 IF MID$(a$, x& * 12 + 19, 2) = STRING$(2, 0) THEN MID$(a$, x& * 12 + 9, 12) = MKI$((CVI(MID$(a$, 1, 2)) - 320) * 64) + MKI$((CVI(MID$(a$, 3, 2)) - 175) * 64) + MKI$(RND * 512 - 256) + MKI$(RND * 512 - 256) + MKI$(RND * 15 + 1) + MKI$(RND * 24 + 4) _
ELSE MID$(a$, x& * 12 + 9, 12) = MKI$(CVI(MID$(a$, x& * 12 + 9, 2)) + CVI(MID$(a$, x& * 12 + 13, 2))) + MKI$(CVI(MID$(a$, x& * 12 + 11, 2)) + CVI(MID$(a$, x& * 12 + 15, 2))) + MID$(a$, x& * 12 + 13, 6) + MKI$(CVI(MID$(a$, x& * 12 + 19, 2)) - 1)
6 IF MID$(a$, x& * 12 + 19, 2) <> STRING$(2, 0) THEN PSET (CVI(MID$(a$, x& * 12 + 9, 2)) \ 64 + 320, CVI(MID$(a$, x& * 12 + 11, 2)) \ 64 + 175), CVI(MID$(a$, x& * 12 + 17, 2))
7 PSET ((CVI(MID$(a$, x& * 12 + 9, 2)) - CVI(MID$(a$, x& * 12 + 13, 2))) \ 64 + 320, (CVI(MID$(a$, x& * 12 + 11, 2)) - CVI(MID$(a$, x& * 12 + 15, 2))) \ 64 + 175), 0
8 x& = (x& + 1) MOD 1024
9 IF INKEY$ = "" THEN 3
Posts: 81
Threads: 0
Joined: Apr 2002
Quote:Key,
It's obviously not a circle.
It's 2 interlocked rings.
That is a circle....
Oh and just CTRL+Break.
Quote:hey i just wanted to point something out to bluekeyboard
use the "If inkey$ = "" goto 4" or what ever instead of do...loop
I know, it was 8 lines first, but I made it to 9 lines (but I don't know .... why).
Posts: 2,020
Threads: 24
Joined: Jun 2002
hahaha!! seriously, someone, that's awesome!!
how long have you been coding?
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
Posts: 1,407
Threads: 117
Joined: Dec 2002
Code: 'Antoni Gual, from an idea by Steve Nunnaly
1 IF i THEN CIRCLE (160, 100), i, (i MOD 16) + 32, , , .8 ELSE SCREEN 13
2 i = i + 1
3 IF i < 200 THEN GOTO 1 ELSE DIM b2%(5000)
4 w = (w + .3)
5 xmid = 140 + SIN(7 * w / 1000) * 110
6 ymid = 80 + SIN(11 * w / 1000) * 59
7 GET ((xmid - (SIN(w) * 28)), (ymid - (COS(w) * 20)))-((xmid - (SIN(w) * 28)) + 40, (ymid - (COS(w) * 20)) + 40), b2%
8 PUT ((xmid - (SIN(w - .04) * 27.16)), (ymid - (COS(w - .04) * 19.4))), b2%, PSET
9 IF LEN(INKEY$) = 0 THEN GOTO 4
Antoni
Posts: 3,288
Threads: 167
Joined: Nov 2001
Kewl Additions guys!!!
I knew of "Someone" who likes to 42 people.....
hmmmmm.......
Posts: 44
Threads: 5
Joined: Jan 2003
Quote:how long have you been coding?
Only a couple of years. I'm not a newbie to qb but I am a newbie to this forum.
Quote:I knew of "Someone" who likes to 42 people.....
And who has that?
Well, 42 was a random number chosen because "someone" was taken.
Posts: 2,020
Threads: 24
Joined: Jun 2002
ever read "hitchiker's guide to the galaxy?", someone? 42 is the answer to everything
and @antoni: HOLY**** THAT IS AN AWESOME DEMO.
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
Posts: 1,845
Threads: 44
Joined: Aug 2002
:o :o :o :o :o
WOW! There's good stuff here!
:oops: :oops:
Oops, didn't make a 9-line effect myself yet oops LoL
Posts: 3,288
Threads: 167
Joined: Nov 2001
Antoni: Whoaaa!!!!(again)
:*)
Posts: 81
Threads: 0
Joined: Apr 2002
Code: 1 SCREEN 13
'2 FOR I% = 0 TO 63 * 3 STEP 3
'3 FOR E% = 0 TO 3
'4 OUT &H3C6, &HFF
'5 OUT &H3C8, I% + E% + 1
'6 OUT &H3C9, 0
'7 OUT &H3C9, I% / 3
'8 OUT &H3C9, 0
'9 NEXT E%, I%
10 LINE (0, 0)-(319, 199), 0, BF
11 FOR I = 1 TO 359 STEP .09
12 PSET (160 + COS(I + N%) * I, 100 + SIN(I + N%) * I), 2
13 NEXT
14 N% = N% + 1
15 GOTO 10
Dont stare at it too long .
I couldn't fit the palette mod inside , but if you run with it, change
Code: 12 PSET (160 + COS(I + N%) * I, 100 + SIN(I + N%) * I), 2
to
12 PSET (160 + COS(I + N%) * I, 100 + SIN(I + N%) * I), I
|