Qbasicnews.com

Full Version: Epilepsy Code
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Pages: 1 2 3
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.
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
better
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$ <> ""

Anonymous

wow, seems i have the same prob as nathan... (cant link to .bas), so here it is in text form.
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
that sucks. what is SYSTME -1
SYSTEM = END + quit QB.EXE when running from command line

Wink

Anonymous

Quote:that sucks.

ouch.

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


oh. nevermind.
Chaos, can't DL your thingie.
Pages: 1 2 3