Keskustelu: Koodit: QB: liekkejä ja räjähdys

SCREEN 13
FOR i = 1 TO 63                      'luodaan punainen paletti
PALETTE i, 0 * 65536 + 256 * 0 + i
NEXT
LINE (1, 199)-(320, 199), 63
FOR i = 64 TO 254
PALETTE i, 0 * 65536 + 256 * 0 + 0   'muut värit mustiksi. ota pois
NEXT                                 'niin tulee kaikenvärisiä pisteitä

DO                                   'pää looppi
RANDOMIZE TIMER
FOR y = 120 TO 199
FOR x = 1 TO 320
IF POINT(x, y) <> 0 THEN
IF INT(RND * 3) = 1 THEN PSET (x - 1, y - 1), POINT(x, y) - INT(RND * 3)
END IF
IF POINT(x, y) <> 0 THEN
IF INT(RND * 3) = 1 THEN PSET (x, y - 1), POINT(x, y) - INT(RND * 3)
END IF
IF POINT(x, y) <> 0 THEN
IF INT(RND * 3) = 1 THEN PSET (x + 1, y - 1), POINT(x, y) - INT(RND * 3)
END IF
NEXT: NEXT

LOOP UNTIL INKEY$ = CHR$(27)       'looppaa kunnes painetaan Esc
CLS
PSET (160, 100), 63
DO
FOR y = 20 TO 180
FOR x = 70 TO 230
IF POINT(x, y) <> 0 THEN
IF INT(RND * 18) = 1 THEN
PSET (x - 1, y - 1), POINT(x, y) - INT(RND * 3)
END IF
IF INT(RND * 18) = 1 THEN
PSET (x, y - 1), POINT(x, y) - INT(RND * 3)
END IF
IF INT(RND * 18) = 1 THEN
PSET (x + 1, y - 1), POINT(x, y) - INT(RND * 3)
END IF

IF INT(RND * 18) = 1 THEN
PSET (x - 1, y), POINT(x, y) - INT(RND * 3)
END IF
IF INT(RND * 18) = 1 THEN
PSET (x + 1, y), POINT(x, y) - INT(RND * 3)
END IF

IF INT(RND * 18) = 1 THEN
PSET (x - 1, y + 1), POINT(x, y) - INT(RND * 3)
END IF
IF INT(RND * 18) = 1 THEN
PSET (x, y + 1), POINT(x, y) - INT(RND * 3)
END IF
IF INT(RND * 18) = 1 THEN
PSET (x + 1, y + 1), POINT(x, y) - INT(RND * 3)
END IF

END IF


NEXT: NEXT
LOOP UNTIL INKEY$ = CHR$(27)