Posts: 2,020
Threads: 24
Joined: Jun 2002
Seizures are most usually caused by a 15=20 fps, with the greatest sensitivity being around 17fps. Also, certain patterns like vertical bars seem to induce seizures seizures as well. Mango's program wouldnt be very effective...
Why would you want to make this contest anyway? It's silly, too easy and insensitive.
i]"I know what you're thinking. Did he fire six shots or only five? Well, to tell you the truth, in all this excitement, I've kinda lost track myself. But being as this is a .44 Magnum ... you've got to ask yourself one question: 'Do I feel lucky?' Well, do ya punk?"[/i] - Dirty Harry
Posts: 358
Threads: 15
Joined: May 2003
Quote:Seizures are most usually caused by a 15=20 fps, with the greatest sensitivity being around 17fps. Also, certain patterns like vertical bars seem to induce seizures seizures as well. Mango's program wouldnt be very effective...
is this better?
Code:
SCREEN 1
DO
u% = NOT u%
FOR y% = 0 TO 100
LINE (160 - 1.6 * y%, 100 - y%)-(160 + 1.6 * y%, 100 + y%), u%, BF
NEXT y%
LOOP
Posts: 1,057
Threads: 156
Joined: Aug 2003
Posts: 1,845
Threads: 44
Joined: Aug 2002
Code:
SCREEN 13
CLS
LINE (0,0)-(319,199), 0, BF
t$ = "Feeling Dizzy?"
LOCATE 10, 20 - LEN(t$) \ 2
COLOR 8
PRINT t$
DO
OUT &H3C8, 0
OUT &H3C9, 0
OUT &H3C9, 0
OUT &H3C9, 0
T! = TIMER
DO: LOOP UNTIL TIMER - T! > 1.0/17.0
OUT &H3C8, 0
OUT &H3C9, 63
OUT &H3C9, 63
OUT &H3C9, 63
T! = TIMER
DO: LOOP UNTIL TIMER - T! > 1.0/17.0
LOOP UNTIL INKEY$ <> ""
Posts: 1,845
Threads: 44
Joined: Aug 2002
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
Posts: 1,057
Threads: 156
Joined: Aug 2003
that sucks. what is SYSTME -1
Posts: 1,845
Threads: 44
Joined: Aug 2002
SYSTEM = END + quit QB.EXE when running from command line
Posts: 773
Threads: 71
Joined: Mar 2002
Chaos, can't DL your thingie.
