01-29-2003, 07:50 PM
Played around with it a bit more (since I had 2 more lines to use )
In this version, PALETTE is used both to make the gradient pallette and as a method for delay. Ball size is increased.
Big BLUE balls....
- Dav
In this version, PALETTE is used both to make the gradient pallette and as a method for delay. Ball size is increased.
Big BLUE balls....
Code:
1 SCREEN 13
2 FOR c% = -1 TO 63
3 IF c% = -1 THEN A$ = MKI$(RND * 320) + MKI$(RND * 200) + CHR$(8) ELSE PALETTE c%, c% * 65536
4 NEXT
5 FOR z% = RND * 54 TO 0 STEP -1
6 MID$(A$, 5, 1) = CHR$(ASC(MID$(A$, 5, 1)) + 1)
7 IF INKEY$ = "" THEN CIRCLE (CVI(MID$(A$, 1, 2)), CVI(MID$(A$, 3, 2))), z%, ASC(MID$(A$, 5, 1)) ELSE END
8 IF z% = 0 THEN GOTO 2 ELSE PAINT (CVI(MID$(A$, 1, 2)), CVI(MID$(A$, 3, 2))), ASC(MID$(A$, 5, 1))
9 NEXT
- Dav
Visit Dav's Qbasic Site