Qbasicnews.com

Pages: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Hey, here's an attempt at the Jame's Bond death sequence Tongue

Code:
SCREEN 13

DEFINT A-Z

LINE (0, 0)-(319, 0), 4

FOR j = 1 TO 200

FOR i = 0 TO 319

IF INT(RND * 5) = 0 AND POINT(i, j - 2) THEN LINE (i - 90 / j, j - 1)-(i + 90 / j, j - 1), 4

NEXT i

NEXT j

GOTO 4   

Ichiban_Addict

AKA Jake

Great!!!!

the MMS members are active again!!!!

Hey again...this ones just a bunch of rotating points, i wouldnt recommend looking at it for too long Big Grin

Code:
SCREEN 13

angle = angle + 1

IF angle = 360 THEN angle = 0

xy = xy + .09'RND * .5

PSET (160 + COS(angle) * xy - SIN(angle) * xy, 100 + SIN(angle) * xy + COS(angle) * xy), RND * 2

PSET (160 + COS(360 - angle) * xy - SIN(360 - angle) * xy, 100 + SIN(360 - angle)  * xy + COS(360 - angle) * xy), RND * 4 + 2

IF xy > 160 THEN xy = 0

IF xy = 0 THEN LINE (0, 0)-(319, 199), 0, BF

GOTO 2

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

SCREEN 13

w% = RND * 1

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)

FOR t% = 1 TO CVI(MID$(a$, 7, 2))

FOR y% = CVI(MID$(a$, 1, 2)) TO CVI(MID$(a$, 3, 2)) STEP CVI(MID$(a$, 5, 2))

IF INKEY$ = "" THEN LINE (0, y%)-(319, y%), c% ELSE END

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

IF t% = CVI(MID$(a$, 7, 2)) THEN GOTO 2

NEXT y%, t%

- Dav

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 Big Grin

cheers

k guys,
heres a better attempt at mt first one Big Grin

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

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 Wink

. 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.

Woah na_th_an thats pretty cool fire. /me votes nathan's fire the best so far heh.

Also funny one jake heh.

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.

Here's my final entry i think Tongue

not quite a screen saver, it's a 9 line pong game, heh hacked to hell but ya Tongue

anywayz i uploaded it, you can download it from http://www25.brinkster.com/darksoftware/9linep.bas here.

flickery as hell, but you'll live Tongue

and no 'computer' to go against it's just you against the ball (and the flicker Tongue

)

(you may have to right click and save target as to download it)

Pages: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Ichiban_Addict

relsoft

Ichiban_Addict

Dav

mofu

mofu

na_th_an

Nexinarus

BinarySHOCK

BinarySHOCK