Qbasicnews.com
August 03, 2020, 02:08:18 PM
 Pages: 1 [2]
 Author Topic: Epilepsy Code  (Read 14474 times)
Neo
Na_th_an

Posts: 2150

 « Reply #15 on: December 08, 2003, 06:10:55 AM »

Ahem Cha0s, why didn't you do it this way?:
Code:
DEFINT A-Y

SCREEN 12                          'This thing'll make u have a seizure lol

FOR X = 1 TO 640

FOR Y = 1 TO 480

RANDOMIZE TIMER / 2

'Z = INT(RND * 32767)
'Z2 = INT(RND * 32767)
'Z = Z + Z2
'IF Z > 32767 THEN Z = (Z - 32767) * -1

'LINE (X, 0)-(X, 480), 15, , -Z

Col = INT(RND * 2)

IF Col > 0 THEN Col = 15

PSET (X, Y), Col

NEXT

IF INKEY\$ = CHR\$(27) THEN SYSTEM -1

NEXT

LOCATE 1, 1: PRINT "Hit Esc when you've had enough!!"

DO

count = count + 1

IF count MOD 5 - 0 THEN Bri = INT(RND * 5) + 58

FOR i = 0 TO 1
IF i = 0 THEN PALETTE 0, 65536 * Bri + 256 * Bri + Bri: PALETTE 15, 0
IF i = 1 THEN PALETTE 15, 65536 * Bri + 256 * Bri + Bri: PALETTE 0, 0

IF INKEY\$ = CHR\$(27) THEN SYSTEM

FOR Z = 1 TO INT(RND * 5000) + 1: NEXT

NEXT

IF count = 30000 THEN count = 0

LOOP
 Logged
Diroga
Been there, done that

Posts: 1087

 « Reply #16 on: December 08, 2003, 06:59:05 AM »

that sucks. what is SYSTME -1
 Logged
Neo
Na_th_an

Posts: 2150

 « Reply #17 on: December 08, 2003, 07:04:01 AM »

SYSTEM = END + quit QB.EXE when running from command line

 Logged
Anonymous
Guest
 « Reply #18 on: December 10, 2003, 04:59:22 AM »

Quote from: "Diroga"
that sucks.

ouch.

im surprised you could even write that post without a typo.

oh. nevermind.
 Logged
Lachie Dazdarian
I hold this place together

Posts: 955

 « Reply #19 on: December 10, 2003, 05:43:21 AM »

 Logged
Anonymous
Guest
 « Reply #20 on: December 10, 2003, 06:02:30 AM »

Quote from: "Lachie Dazdarian"

Look up

Neo posted my source
 Logged
Neo
Na_th_an

Posts: 2150

 « Reply #21 on: December 10, 2003, 06:07:23 AM »

 Logged
Anonymous
Guest
 « Reply #22 on: December 10, 2003, 06:12:01 AM »

lachie: first the pics in tbn, now this! friggin nazis!

 Logged
Neo
Na_th_an

Posts: 2150

 « Reply #23 on: December 10, 2003, 06:15:01 AM »

Huh? Explain pls?
 Logged
Anonymous
Guest
 « Reply #24 on: December 10, 2003, 06:23:45 AM »

but, neo, this is a public forum!
 Logged
Neo
Na_th_an

Posts: 2150

 « Reply #25 on: December 10, 2003, 09:50:21 AM »

:-? Argh. Never mind. :roll:
 Logged
 Pages: 1 [2]