Posts: 2
Threads: 0
Joined: Feb 2003
Hey, here's an attempt at the Jame's Bond death sequence
Code: 1 SCREEN 13
2 DEFINT A-Z
3 LINE (0, 0)-(319, 0), 4
4 FOR j = 1 TO 200
5 FOR i = 0 TO 319
6 IF INT(RND * 5) = 0 AND POINT(i, j - 2) THEN LINE (i - 90 / j, j - 1)-(i + 90 / j, j - 1), 4
7 NEXT i
8 NEXT j
9 GOTO 4
Ichiban_Addict
AKA Jake
Posts: 3,288
Threads: 167
Joined: Nov 2001
Great!!!!
the MMS members are active again!!!!
Posts: 2
Threads: 0
Joined: Feb 2003
Hey again...this ones just a bunch of rotating points, i wouldnt recommend looking at it for too long
Code: 1 SCREEN 13
2 angle = angle + 1
3 IF angle = 360 THEN angle = 0
4 xy = xy + .09'RND * .5
5 PSET (160 + COS(angle) * xy - SIN(angle) * xy, 100 + SIN(angle) * xy + COS(angle) * xy), RND * 2
6 PSET (160 + COS(360 - angle) * xy - SIN(360 - angle) * xy, 100 + SIN(360 - angle) * xy + COS(360 - angle) * xy), RND * 4 + 2
7 IF xy > 160 THEN xy = 0
8 IF xy = 0 THEN LINE (0, 0)-(319, 199), 0, BF
9 GOTO 2
Posts: 440
Threads: 65
Joined: Sep 2001
Man, all you guys are posting some great stuff!
This one gives the effect of a scrolling screen (it's not really).
Scrolls up and down randomly.
Code: 'Fake screen scrolling in 9 lines by Dav
'Scrolls up and down randomly
1 SCREEN 13
2 w% = RND * 1
3 IF w% = 0 THEN a$ = MKI$(199) + MKI$(0) + MKI$(-1) + MKI$(RND * 100 + 1) ELSE a$ = MKI$(0) + MKI$(199) + MKI$(1) + MKI$(RND * 100 + 1)
4 FOR t% = 1 TO CVI(MID$(a$, 7, 2))
5 FOR y% = CVI(MID$(a$, 1, 2)) TO CVI(MID$(a$, 3, 2)) STEP CVI(MID$(a$, 5, 2))
6 IF INKEY$ = "" THEN LINE (0, y%)-(319, y%), c% ELSE END
7 IF w% = 0 THEN IF c% > 199 THEN c% = 0 ELSE c% = c% + 1 ELSE IF c% < 0 THEN c% = 199 ELSE c% = c% - 1
8 IF t% = CVI(MID$(a$, 7, 2)) THEN GOTO 2
9 NEXT y%, t%
- Dav
Posts: 43
Threads: 7
Joined: Feb 2002
k guys dont laugh, I am a total newbie. I just started learning qb again!!! tonight. I felt like posting something even though a 2 year old could probably write this piece of code :oops:
Quote:1: SCREEN 13
2: DO
3: RANDOMIZE TIMER
4: a = INT(RND * 320)
5: b = INT(RND * 200)
6: FOR i = 0 TO 200
7: LINE (a, b)-(a, b), INT(RND * 14) + 1
8: NEXT i
9: LOOP UNTIL INKEY$ = CHR$(27)
easy I know, but Im a newbie
cheers
URL=http://mofu.qbasicnews.com] [/URL]
Posts: 43
Threads: 7
Joined: Feb 2002
k guys,
heres a better attempt at mt first one
I think im getting better already :wink:
Quote:1: SCREEN 13
2: c = 1
3: DO
4: FOR i = 0 TO 10
5: CIRCLE (160, 100), c, INT(RND * 14) + 1
6: NEXT i
7: c = c + 1
8: IF c = 200 THEN c = 1
9: LOOP UNTIL INKEY$ = CHR$(27)
cheers
URL=http://mofu.qbasicnews.com] [/URL]
Posts: 6,419
Threads: 74
Joined: Mar 2002
At last our entry (Na Than+Phobeous)
This comes out of a full-screen fire. You can see it now inside a small box just for speed issues. It is, of course, out of contest 'cause it has 11 lines. We couldn't shrink it any more. Anyways, the *real* effect takes 8 lines, but 3 are needed to set up the palette.
Code: ' Convolution Fire by WOPR2k
' In fact this effects takes 8 lines, but the palette rutines took 3 lines
' (It looks like crap without the custom palette).
' NOTE: ** DON'T ** use copy and paste to QB in a DOS box, 'cause there
' are split lines. Copy to notepad and save it as a .BAS file.
1 IF c& = 0 THEN SCREEN 13 ELSE IF c& = 1 THEN PAINT (0, 0), 255 ELSE IF c& = 2 THEN DIM Sc%(2049) ELSE IF c& = 3 THEN LINE (128, 136)-(191, 199), 0, BF ELSE IF c& = 4 THEN s% = VARPTR(Sc%(0)) ELSE IF c& = 5 THEN DEF SEG = VARSEG(Sc%(0)) ELSE GET ( _
128, 136)-(191, 199), Sc%(0)
IF c& < 63 THEN b% = b% + 1 ELSE IF c& < 126 THEN g% = g% + 1 ELSE IF c& < 189 THEN r% = r% + 1
IF c& < 256 THEN PALETTE c&, 63 - r% + (63 - g%) * 256! + (63 - b%) * 65536!
c& = c& + 1
2 IF c& > 4 THEN POKE VARPTR(Sc%(0)) + 4 + 62 * 64 + INT(RND * 64), 255
3 FOR i% = 1 TO 62
4 FOR j% = 1 TO 62
5 p% = (PEEK(s% + 4 + 64 * i% + j%) + PEEK(s% + 4 + 64 * (i% - 1) + j%) + PEEK(s% + 5 + 64 * (i% - 1) + j%) + PEEK(s% + 5 + 64 * i% + j%) + PEEK(s% + 4 + 64 * (i% + 1) + j% + 1) + PEEK(s% + 4 + 64 * (i% + 1) + j%) + PEEK(s% + 3 + 64 * (i% + 1) + j%) _
+ PEEK(s% + 3 + 64 * i% + j%) + PEEK(s% + 3 + 64 * (i% - 1) + j%)) \ 8
6 IF p% < 256 THEN PSET (128 + j%, i% + 135), p% ELSE PSET (128 + j%, i% + 135), 255
7 NEXT j%, i%
8 IF INKEY$ = "" THEN GOTO 1
' Unreadable code.
Enjoy . The 'c' version that I posted a couple of days ago really looks like fire, mainly because it goes faster . We coded that version 2 years ago.
The effect is based upon a per-pixel convolution and a feedback. The convolution matrix is:
Code: (1 1 1)
1/8*(1 1 1)
(1 1 1)
Once the convolution matrix is applied, the resulting image is output to screen and then copied over the original, but shifting it one pixel up, and so on.
Posts: 294
Threads: 9
Joined: Oct 2002
Woah na_th_an thats pretty cool fire. /me votes nathan's fire the best so far heh.
Also funny one jake heh.
Posts: 115
Threads: 6
Joined: Feb 2003
1 SCREEN 13
2 DIM Temp%(51)
3 X% = INT(RND * 310)
4 Y% = INT(RND * 189)
5 IF G& < 10000 THEN CIRCLE (RND * 319, RND * 199), 10, RND * 15 + 16
6 IF G& AND 7 THEN GET (X%, Y%)-(X% + 9, Y% + 9), Temp%
7 IF G& AND 7 THEN PUT (X%, Y% + 1), Temp%, PSET
8 G& = (G& + 1) MOD 64000
9 IF LEN(INKEY$) = 0 THEN 3
screen melting... yup..
and ya i agree that is cool fire.
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
Posts: 115
Threads: 6
Joined: Feb 2003
Here's my final entry i think
not quite a screen saver, it's a 9 line pong game, heh hacked to hell but ya anywayz i uploaded it, you can download it from http://www25.brinkster.com/darksoftware/9linep.bas here.
flickery as hell, but you'll live and no 'computer' to go against it's just you against the ball (and the flicker )
(you may have to right click and save target as to download it)
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
|