02-03-2003, 12:28 AM
A cheap-o way to do a cheap-o fire effect in 8 lines.
You could change it easy to fill up the screen, but it would soooo slow.
Change the 169 in line 4 to a lower number, and the * 8 in line 6 to a lower number as well.
- Dav
Code:
1 FOR t = -1 TO 64
2 IF t = -1 THEN SCREEN 13 ELSE IF t = 64 THEN LINE (0, 189)-(319, 199), 60, BF ELSE PALETTE t, t
3 NEXT
4 FOR y% = 169 TO 189
5 FOR x% = 0 TO 319
6 IF x% = 319 AND y% = 189 THEN GOTO 4 ELSE c% = POINT(x%, y%) - RND * 8
7 IF c% >= 0 THEN PSET (x%, y% - 1), c% ELSE IF INKEY$ <> "" THEN END
8 NEXT x%, y%
You could change it easy to fill up the screen, but it would soooo slow.
Change the 169 in line 4 to a lower number, and the * 8 in line 6 to a lower number as well.
- Dav
Visit Dav's Qbasic Site