Qbasicnews.com

Qbasicnews.com > QbasicNews.Com > Challenges > Challenge....
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

someone42

02-16-2003, 09:59 AM
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 Smile

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

BlueKeyboard

02-16-2003, 08:46 PM
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 Big Grin(but I don't know ....whySmile).

toonski84

02-16-2003, 09:40 PM
hahaha!! seriously, someone, that's awesome!!

how long have you been coding?

Antoni Gual

02-17-2003, 05:00 AM
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

relsoft

02-17-2003, 10:02 AM
Kewl Additions guys!!!

I knew of "Someone" who likes to 42 people.....

hmmmmm.......

Smile

someone42

02-17-2003, 12:54 PM
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? Big Grin

Well, 42 was a random number chosen because "someone" was taken.

toonski84

02-17-2003, 01:32 PM
ever read "hitchiker's guide to the galaxy?", someone? 42 is the answer to everything Wink

and @antoni: HOLY**** THAT IS AN AWESOME DEMO.

Neo

02-17-2003, 02:38 PM
:o :o :o :o :o
WOW! There's good stuff here!

:oops: :oops:
Oops, didn't make a 9-line effect myself yet Undecided oops LoL

relsoft

02-18-2003, 09:38 AM
Antoni: Whoaaa!!!!(again)

:*)

BlueKeyboard

02-19-2003, 12:02 AM
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 Tongue.
I couldn't fit the palette mod inside Sad, 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
Pages: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
Qbasicnews.com > QbasicNews.Com > Challenges > Challenge....