Qbasicnews.com
November 20, 2019, 08:31:56 AM *
Welcome, Guest. Please login or register.

Login with username, password and session length
News: Back to Qbasicnews.com | QB Online Help | FAQ | Chat | All Basic Code | QB Knowledge Base
 
   Home   Help Search Login Register  
Pages: 1 [2]
  Print  
Author Topic: Epilepsy Code  (Read 13945 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

Wink
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



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

Chaos, can't DL your thingie.
Logged
Anonymous
Guest
« Reply #20 on: December 10, 2003, 06:02:30 AM »

Quote from: "Lachie Dazdarian"
Chaos, can't DL your thingie.


Look up  Cool

Neo posted my source
Logged
Neo
Na_th_an
*****
Posts: 2150



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

Always very handy if servers don't support or don't allow hot-linking or direct-downloading Cheesy
Logged
Anonymous
Guest
« Reply #22 on: December 10, 2003, 06:12:01 AM »

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

neo: hooee i sho could use some o dat 'hot-downloadin'
Logged
Neo
Na_th_an
*****
Posts: 2150



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

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

but, neo, this is a public forum! Wink
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]
  Print  
 
Jump to:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!