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

Antoni Gual

02-02-2003, 10:30 AM
Oh-oh. Lithium there... :o Fasten your seat belts! :bounce:

Lithium

02-02-2003, 11:09 AM
Code:
1 SCREEN 13
2 x% = (x% + 1) AND 32767
3 if c& < 255 then palette c&, c&\4 else if c& = 255 then def seg = &ha000
4 c& = c& + 1
5 line (x%\20, 101)-step(0, -3), (rnd * 32)+abs(sin(timer*16))*222
6 o% = (o% + 1) AND 32767
7 if c& => 255 then poke o%, (peek(o%) + peek(o%-1) + peek(o%+1) + peek(o%+320)) \ 4
8 if c& => 255 then poke 64000-o%, peek(o%)
9 if inkey$ = "" then goto 2

it sucks[/code]

Lithium

02-02-2003, 01:48 PM
Code:
1 Msg$ = "0AAAA00AAAA00AAAA00000000AAAA00AAAA00000000AAAAA0AAAAA000AAA0AAAAA00000000AA0000AA0000AA0000AA0000AA0000AA0000000000AA0000AA0000AA0000AA00000000"
2 SCREEN 13
3 i = (i + 1) MOD 36
4 IF i = 0 AND (j + 1) = 4 THEN sz = RND * 16
5 IF i = 0 AND (j + 1) = 4 THEN clr = (TIMER * 32) MOD 255
6 IF i = 0 AND (j + 1) = 4 THEN ps = RND * 64000
7 IF i = 0 THEN j = (j + 1) MOD 4
8 IF MID$(Msg$, j * 36 + i + 1, 1) = "0" THEN LINE ((ps MOD 320) + (i MOD 6) * sz + j * (sz * 8), FIX(ps / 320) + FIX(i / 6) * sz)-STEP(sz, sz), clr, BF
9 IF INKEY$ = "" GOTO 3

yar

:rotfl: i'm tired :rotfl:

relsoft

02-02-2003, 02:13 PM
Finally!!!!!!

Now that Lith's here...

I wouldn't be surprised if we get to see the MMS and Bluecastle members posting here!!!

Yay!!! Keep it coming!!!!!

Dav: Would it be possible for me to make a zip of all these files along with the authors names and submit it to your site?

Lithium

02-02-2003, 03:01 PM
this is my last one for tonight

Code:
1 Smiley$ = "þþþþ*+++,,,þþþþþþþ*+++,,,,,,,þþþþ*++,þ,,,þ,,,,þþþ*+,,þ,,,þ,,,,þþ*++,,þ,,,þ,,,,,þ*+þ,,þ,,,þ,,þ,,þ*þþ,,,,,,,,,þþ,þ*+þ,,,,,,,,,þ,,þ*++þ,,,,,,,þ,,,þþ*+,þ,,,,,þ,,,þþþ*++,þþþþþ,,,,þþþþ*+++,,,,,,,þþþþþþþ*+++,,,þþþþþþþþþþþþþþþþþþþþþ"
2 SCREEN 13
3 sz = ABS(SIN(TIMER)) * 10 + 3 ' sz = INT(ABS(SIN(TIMER)) * 10 + 3
4 ps = 0
5 i = (i + 1) MOD 224
6 IF (i = 0) AND (ps MOD 320 + int(sz) * 16) >= 320 THEN ps = (FIX(ps / 320) + int(sz) * 14) * 320 ELSE IF i = 0 THEN ps = ps + int(sz) * 16
7 LINE ((ps MOD 320) + (i MOD 16) * sz + j * (sz * 8), FIX(ps / 320) + FIX(i / 16) * sz)-STEP(sz, sz), ASC(MID$(Smiley$, i + 1, 1)), BF
8 IF (ps > 64000) AND (i = 0) THEN GOTO 3
9 IF INKEY$ = "" GOTO 5

zooming tiled smiley face

get rid of the flicker by adding an INT() around ABS(SIN(TIMER))*10+3, but that makes it jerky..

ak00ma

02-02-2003, 03:34 PM
Hey, this is my code. It's like a little smoother
Code:
1 SCREEN 13
2 DEF SEG = &HA000
3 FOR n& = 0 TO 65000
4  POKE n&, INT(RND * 256)
5 NEXT n&
6 FOR n& = 0 TO 64000
7  POKE n&, (PEEK(n& - 1) + PEEK(n&) + PEEK(n& + 1) + PEEK(n& + 320) + PEEK(n& - 320)) \ 5
8 NEXT n&
9 GOTO 6

Antoni Gual

02-02-2003, 05:01 PM
Lithium: Your smiley zoom is great!

While waiting for Nathan's fire...
Code:
'Lissajous by Antoni Gual
1 IF k = 0 THEN SCREEN 12 ELSE CLS
2 i& = (i& + 1) AND &HFFFFF
3 k = 6.3 * RND
4 l = 6.3 * RND
5 n% = (n% + 1) MOD 15
6 FOR j& = 0 TO 100000
7 PSET (320 + 300 * SIN(.01 * SIN(k) + j&), 240 + 200 * SIN(.01 * SIN(l) * j&)), n% + 1
8 NEXT
9 IF LEN(INKEY$) = 0 THEN GOTO 1

Dav

02-02-2003, 06:22 PM
Quote:Dav: Would it be possible for me to make a zip of all these files along with the authors names and submit it to your site?

Good idea! Yes, please do. Smile

- Dav

toonski84

02-02-2003, 07:22 PM
well, here's a shot at 9-line fire, but i could only get it down to 10 lines. if you dont mind bright, multicolored fire you can take out the fire code. and since it went super-slow on my 1.8gig, it's probably going to go even slower on other computers.

Code:
' 10 line fire by jofers
1 SCREEN 13
2 FOR i = 0 TO 255
3  PALETTE i, i \ 4
4 NEXT i
5 PSET (x, 199), CINT(RND) * 255
6 FOR i = 198 TO 100 STEP -1
7  PSET (x, i), (POINT(x, i + 1) + POINT(x + 1, i + 1) + POINT(x + 1, i - 1) + POINT(x, i) + POINT(x, i + 2)) / 5
8 NEXT i
9 x = (x + 1) MOD 320
10 IF INKEY$ = "" THEN GOTO 5

toonski84

02-02-2003, 07:30 PM
never mind, i got it down to 9 Smile

Code:
1 SCREEN 13
2 FOR a = 0 TO 255
3  PALETTE a, a \ 4
4 NEXT a
5 PSET (x, 199), CINT(RND) * 255
6 PSET (x, 198 - i), (POINT(x, 198 - i + 1) + POINT(x + 1, 198 - i + 1) + POINT(x + 1, 198 - i - 1) + POINT(x, 198 - i) + POINT(x, 198 - i + 2)) / 5
7 x = (x + 1) MOD 320
8 IF x = 0 THEN i = (i + 1) MOD 98
9 IF INKEY$ = "" THEN GOTO 5
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....