You are not logged in or registered. Please login or register to use the full functionality of this board...
SIGN IN Join Our Community For FREE


ACID.
06-18-2014, 04:52 AM
Post: #1
 (Print Post)
ACID.
A Good Program to watch when you have had a few Beers! Smile


Anthony.


Code Snippet: [Select]
SCREEN 9
CLS
KEY OFF
DIM ACID(500)
DIM A$(44, 400)
A$(INT(RND * 44) + 1, 1) = "A2"
CIRCLE (354, 204), 3, 2, , , 5 / 5
PAINT (354, 204), 2
CIRCLE (356, 206), 3, 2, , , 5 / 5
PAINT (356, 206), 2
CIRCLE (357, 203), 3, 2, , , 5 / 5
PAINT (357, 203), 2
FOR A = 1 TO 25
B = INT(RND * 10) + 1
C = INT(RND * 10) + 1
LINE (B + 350, C + 200)-(B + 350, C + 200), 14
NEXT A
GET (350, 200)-(360, 210), ACID
CLS
FOR A = 1 TO 44
IF A$(A, 1) = "A2" THEN 210
NEXT
210 PUT ((A * 10) + 100, 1), ACID
A = 0
B = 0
C = 0
D = 0
230 FOR B = 1 TO 320
FOR A = 1 TO 44
IF A$(A, B) = "A2" THEN GOSUB 330
D = RND:  IF D > .2 THEN 300
C = INT(RND * 44) + 1
A$(C, 1) = "A2"
PUT ((C * 10) + 100, 1), ACID
300 NEXT A
NEXT B
GOTO 230
330 PUT ((A * 10) + 100, B), ACID
A$(A, B) = ""
A$(A, B + 2) = "A2"
PUT ((A * 10) + 100, B + 2), ACID
RETURN
END
Find all posts by this user
Like Post
06-25-2014, 06:57 AM
Post: #2
 (Print Post)
RE: ACID.
Very interesting indeed... If you had a few beers.

Walter Whitman
The joyful Programmer

Please help support The Joyful Programmer and The QB64 Edition by visiting our online store provided by Amazon.com. We hand-picked books related to computer programming from Amazon.com and added them to our store. When you make a purchase from our store, we do receive a small commission from the sale. Visit our store at: http://www.thejoyfulprogrammer.com/qb64/...azon-store
Find all posts by this user
Like Post
06-25-2014, 08:06 AM
Post: #3
 (Print Post)
RE: ACID.
Quote:
Very interesting indeed... If you had a few beers.

Walter Whitman
The joyful Programmer

Ha! what I would like to know ? is the Program Graphics changing as it runs ? 
it looks like a kind of Space Invaders...where they come down the Screen! do you notice that some at the bottom are being killed off ? or is it one Beer too many that does that! Smile

It's another Program I know little about!


Anthony.
Find all posts by this user
Like Post



Forum Jump:


User(s) browsing this thread: 1 Guest(s)




QB64 Member Project - Kobolts Monopoly
QB64 Member Project - Spinning Color Wheel
QB64 Member Project - Qubic
QB64 Member Project - ARB Checkers
QB64 Member Project - Touche
QB64 Member Project - Connect Four
QB64 Member Project - Amazon
QB64 Member Project - Martin Fractals version three
QB64 Member Project - Dreamy Clock
QB64 Member Project - Kings Valley verion one
QB64 Member Project - STxAxTIC 3D World
QB64 Member Project - Point Blank
QB64 Member Project - Swirl
QB64 Member Project - Input
QB64 Member Project - Martin Fractals version two
QB64 Member Project - Othello
QB64 Member Project - Pivot version two
QB64 Member Project - RGB Color Wheel
QB64 Member Project - Kings Vallery version two
QB64 Member Project - Dakapo
QB64 Member Project - Foursight
QB64 Member Project - Splatter
QB64 Member Project - Color Triangles
QB64 Member Project - Red Scrolling LED Sign
QB64 Member Project - Rotating Background
QB64 Member Project - Color Rotating Text
QB64 Member Project - Blokus
QB64 Member Project - Domain
QB64 Member Project - MAPTRIANGLE
QB64 Member Project - Isolation
QB64 Member Project - Quarto
QB64 Member Project - 9 Board
QB64 Member Project - Martin Fractals version four
QB64 Member Project - Martin Fractals version one
QB64 Member Project - Line Thickness
QB64 Member Project - Score 4
QB64 Member Project - Exit
QB64 Member Project - OpenGL Triangles
QB64 Member Project - Rubix's Magic
QB64 Member Project - Full Color LED Sign
QB64 Member Project - Bowditch curve
QB64 Member Project - Kings Court
QB64 Member Project - Pivet version one
QB64 Member Project - Inside Moves
QB64 Member Project - Basic Dithering
QB64 Member Project - Algeria Weather
QB64 Member Project - Sabotage
QB64 Member Project - Spiro Roses
QB64 Member Project - Overboard