Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
QB text-based graphical screensaver in *just* 7 lines.
#21
To Nemesis once again:

Quote:Adigun...

Nice, job! You've inspired me, atleast for the time being, to give the challenge a try, but I might not find the time considering all the other projects I'm working on. Also it would depend on how long this challenge is open too, it may be days before I can attempt a submission. Anyways, have a great day!

P.s.. It's great knowing people like you that are so motivated and
full of energy, especially when it's related to doing the stuff
I love most, and the main reason I come here for :bounce:!

Cya.

Now THAT is what I plain wanted to hear, at least from you. Big Grin !! I mean, over the past couple of years since my first QuickBASIC Caliber Programming Compo back in 2002, I had *quite* a number of people saying to me “AAP, your compo SUCKS” and “now I know why people don’t go to your compos!” and all of that like that (only a lot horribly worse like you would not even believe at all, whether directly or indirectly), and I can painfully remember that they are without a doubt in my life just as so plain disgustingly maddening ( :x ! ) and traumatically depressing ( Cry !! ) to me as ever it ain’t even funny period, you know, especially when I pointed Antoni yesterday about the specifics about one of the rules! It’s like, “HUH!? :???: ”! I mean, all I was trying to point out to him was to show him this following example which was:

Code:
' Translucent Plasma by Antoni Gual
' For Adigun's 7 liner contest at QBasicNews September/2004
'
' In this project, I will show you an amazing translucent
' plasma that is done within 16 colors.  This is my first
' work done in 7 lines of QB code.  Enjoy!

.........and it is just as doable as ever, without any excuses. Had that been done in the first place within his coding on that, I DEFINITELY would have *so* gladly ( Big Grin ! ) accepted his entry!! PERIOD, END OF THE CONVERSATION, and I am not even about to argue about it at all, please (as I honestly hate arguing myself, really! :wtnod: ! ).

Personally, I have gone through not one, BUT TWO (2) depressions in a row from over one single month within this past summer, and speaking for myself (at least), I am not gonna dampen this original challenge of mine presented here at QBasicNews.com. EVER AT ALL. Wink

I just want to encourage and inspire people indeed, especially through this! Has it *ever* been totally wrong for me to do or worth me regretting myself over? Of course not, as I can just spread the joy to you and so many others and the joy that I usually get back in return, all by doing that, whether I feel the exact opposite or not, really! I mean, as nothing even less a human being that I am, I am at least rather dead-seriously bold enough to sneak in forward and say that I do not expect just _all_ people to be pleased with me for/on what I do on challenges like this — whether through my rule making or not — even if I am learning to do something right and true around here, you understand that, my man? Anyway, I thank you richly more on that now!! ^_^=b !

(Getting more and more teary-eyed in what I am about to say here.)



And to you, Antoni (and do listen up to what I am about to say, please):

I do not normally get teary-eyed in my posts, but I absolutely do not even care to argue with anyone, not even you as well, Antoni Gual. I mean, you do not have to even enter any more of the challenge if you do not want to. No one is forcing you, not even yours truly myself. Wink Pardon me so deeply, I was rather mad only at the negative persecution against my compos, not you. :*) And look, I do not see you as a bad person at all, but rather as a good, wonderful person. Big Grin ! The end. And not only that, but as well, you are also a valuable member of the QB45/QB71 community just like I am continually learning to be, man. Sure I know I may feel like I am getting on your nerves *a lot* here, and that I feel like I am point-blank ashamed for even putting on this challenge, and that I felt (from recent months ago) like I was gonna throw away my whole entire QBCPC for changing the rules back in July 2004, BUT, I have tried my very best to reach more and more of the QB45/QB71 community and you in a positive way. Cool I never came to get harmed or to dampen you in any way at all. After all, I just had to put the challenge and the QBCPC out to bless you all and to make you and people happy in such a revolutionary and encouraging way. I am leaving my rules on this challenge right where they are, but hey, Antoni, if there is anything anywhere rashly wrong that I said to you, I am *so* sorry for that on purpose, really. Cry !! Please forgive me.

By the way, I thank you for liking my fire-based 7-liner. I appreciate it so much. Big Grin !



Now, if you both will excuse me please, I will *seriously* recover myself (plus my emotions as well). And all the while now, we will get right back to the challenge, and let’s just play this straight on through. Smile

See you later now, and to people who have not entered this one yet, let us see your wonderful 7-liners.



[Image: AAPname.gif]
- Adigun Azikiwe Polack
One of the Founders of “Aura Flow”
Continuing Developer of “Frantic Journey”
Current Developer of “Star Angelic Slugger”
Webmaster of the “AAP Official Projects Squad”



UPDATE (From the evening of Sunday, September 26, 2004 at 10:59pm EST): All of you, listen up!! Smile ! I just got done my very latest 7-liner tonight, and wait ‘till you run this one, people, so please do not fail to take a good gaze at it which is right here:

Code:
'F L O W I N G   S E A ,   S T A R R Y   D U S K
'------------------------ QB 7-line Text Demo #5
'
'Presented to you by Adigun Azikiwe Polack.
'
'Here, in my fifth and very newest graphical text demo, it
'amazingly shows you a beautiful and awesome blue sea,
'with some lush moving grass and even a flowing stream,
'too!!  And I am telling you, this is one of my *ABSOLUTE*
'best graphical text demos that has ever been done so far,
'all in ONLY 7 lines of coding in QuickBASIC and a 80x43
'mode here as my choice!  I am so sure that once you take
'a good look at this, you will be attracted like a strong
'magnet to do this kind of screensaver yourself in QB!!!
'With that said now, do enjoy this most invigorating
'creation of mine and be inspired, please!  ^_-=b !!
'
'
'- Adigun Azikiwe Polack
'  September 26, 2004


1 IF init = 0 THEN SCREEN 0 ELSE IF init = 1 THEN CLS  ELSE IF init = 2 THEN WIDTH 80, 43 ELSE IF init = 3 THEN PALETTE 1, 1 ELSE IF init = 4 THEN PALETTE 2, 8 ELSE IF init = 5 THEN PALETTE 3, 9 ELSE IF init = 6 THEN PALETTE 4, 16 ELSE IF init = 7 THEN PALETTE 5, 2 ELSE IF init = 8 THEN PALETTE 6, 18 ELSE IF init = 9 THEN VIEW PRINT 1 TO 43 ELSE IF init = 10 THEN COLOR 0, 6 ELSE IF init = 11 THEN CLS  ELSE IF init = 12 THEN VIEW PRINT 1 TO 42 ELSE IF init = 13 THEN COLOR 0, 0 ELSE IF init = 14 THEN CLS 2 ELSE IF init = 15 THEN VIEW PRINT 1 TO 43

2 IF init = 16 THEN LOCATE INT(RND(1) * 9) + 30, INT(RND(1) * 74) + 1 ELSE IF init = 17 THEN Tgtcol = INT(RND(1) * 3) + 1 ELSE IF init = 18 THEN COLOR Tgtcol, Tgtcol - 1 ELSE IF init = 19 THEN IF INT(RND(1) * 50) + 1 > 7 THEN PRINT "░▒▓█▓▒░"

3 IF init = 20 THEN LOCATE INT(RND(1) * 4) + 39, INT(RND(1) * 80) + 1 ELSE IF init = 21 THEN COLOR 6, 5 ELSE IF init = 22 THEN PRINT MID$("░▒▓██▓▒░", INT(RND * 10) + 1, 1) ELSE IF init = 23 THEN LOCATE INT(RND(1) * 3) + 27, INT(RND(1) * 80) + 1 ELSE IF init = 24 THEN COLOR 5, 4 ELSE IF init = 25 THEN PRINT MID$("░▒▓██▓▒░", INT(RND * 15) + 1, 1) ELSE IF init = 26 THEN LOCATE INT(RND(1) * 2) + 25, INT(RND(1) * 80) + 1 ELSE IF init = 27 THEN COLOR 4, 1

4 IF init = 28 THEN PRINT MID$("░▒▓██▓▒░", INT(RND * 40) + 1, 1) ELSE IF init = 29 THEN LOCATE INT(RND(1) * 6) + 19, INT(RND(1) * 80) + 1 ELSE IF init = 30 THEN COLOR 2, 0 ELSE IF init = 31 THEN PRINT MID$("░▒▓▓▒░", INT(RND * 4) + 1, 1) ELSE IF init = 32 THEN LOCATE INT(RND(1) * 3) + 17, INT(RND(1) * 80) + 1 ELSE IF init = 33 THEN COLOR 2, 0 ELSE IF init = 34 THEN PRINT MID$("▒░", INT(RND * 5) + 1, 1) ELSE IF init = 35 THEN LOCATE INT(RND(1) * 8) + 14, INT(RND(1) * 80) + 1

5 IF init = 36 THEN COLOR 2, 0 ELSE IF init = 37 THEN PRINT "░" ELSE IF init = 38 THEN LOCATE INT(RND(1) * 12) + 1, INT(RND(1) * 80) + 1 ELSE IF init = 39 THEN COLOR INT(RND(1) * 2) + 1, 0 ELSE IF init = 40 THEN PRINT MID$("▒░", INT(RND * 80) + 1, 1) ELSE IF init = 41 THEN LOCATE INT(RND(1) * 12) + 1, INT(RND(1) * 80) + 1 ELSE IF init = 42 THEN COLOR 0, 0 ELSE IF init = 43 THEN PRINT MID$("██", INT(RND * 3) + 1, 1)

6 IF init < 44 THEN init = init + 1 ELSE init = 16

7 GOTO 1

And I did it *all* for you and ONLY you, just ‘cause I love you. Period. There, how do you like that, huh? Big Grin !
url=http://dhost.hopto.org/aapproj/][Image: file.php?id=194][/url]
Your *official* home of the FreeBasic GFX Demo Central, now holding over 150 FB graphics demos so far!!! Big Grin !
Reply
#22
Adigun, I really like your last creation =D You did a very good job of representing the scene that you set out to show! I really like the water and the star effects! Great for only 7 lines =)

Keep up the good work!
Reply
#23
To Dark_prevail:

Quote:Flowing Sea, Starry Dusk[/i]”, you actually no less than"]Adigun, I really like your last creation =D You did a very good job of representing the scene that you set out to show! I really like the water and the star effects! Great for only 7 lines =)

Keep up the good work!

Hey, I want to SPLENDIDLY thank you on that great and encouraging comment, my fine man!!! Big Grin ! You know, I have worked so hard and true on that creation from yesterday *mostly* at a time when my monitor suddenly changed from an RGB (Red-Green-Blue) color combination to just no more than an RB (Red-Blue) color combination and stayed there for a while. Fortunately for all of us and me as well, just a day or two before the project first began, I have in advance prepared my own custom EGA color chart from which I have assembled and customized the actual order of the EGA colors that you get in Screen 0 in ANY text mode through the very use of the “Palette” command in QuickBASIC/QBasic. Have a look, please (and learn something!):

[Image: EGAColorPaletteReferenceSheet.gif]

Perhaps this will hopefully inspire you and others in choosing your colors for your future entry or whatever you want to do with your text mode, you understand me now? ;*) !

Continuing on on the development of my screensaver 7-liner from yesterday, Dark_prevail, choosing the color combinations (especially the “Green”-based ones, too!) would NOT have been an easy feat at all while the monitor was in an RB color combination state at the time that I was working on it, BUT, with Jasc Paint Shop Pro 7 and the dropper tool being used with the dropper itself placed over the color(s) of the text within the sheet that you see just above in this post (in order for the exact RGB coordinates to be shown, thank God!! Wink ), it made my life a _whole lot_ easier on that creation, really!!! Big Grin !! Otherwise, I would quite have had a truly hard time and would also have potentially worried myself about which exact colors for me to use! However, praise God Almighty that the right color choices have been so wisely made in the midst of that monitor RB color combination. No ifs, ands, or buts about that!! And now as of currently, the project entitled “Flowing Sea, Starry Dusk”, is now FINISHED AT LAST!!! Cool ! It took me around 6-8½ hours for the thing to be done, man.

This is one of the very crystal-clear reasons why my TRUE motives are showing in the right and positive direction, and boy, they do speak *a whole lot* louder volumes than just what was being said from within this thread, you know that? And not only that, but also such positive comments like yours DEFINITELY inspire me and helps out other people to encouragingly come along for the fun, whether it is your latest entry for this challenge, or the QuickBASIC Caliber Programming Compo (current one is QBCPC 2004/2005!), or what have you now!! ^-^ !!

You know what, praise God for you, my man Dark_prevail, and I sure would hope to accept your entry into the challenge (just read the rules and my example there at the beginning of this thread to get the idea about how this challenge works, please!). Be seeing you later!! ^_^=b !



LETTING MY ACTIONS TRULY ATTRACT YOU AND PEOPLE LIKE A STRONG MAGNET INDEED,

[Image: AAPname.gif]
Adigun Azikiwe Polack
One of the Founders of “Aura Flow”
Continuing Developer of “Frantic Journey”
Current Developer of “Star Angelic Slugger”
Webmaster of the “AAP Official Projects Squad”



______________________________________
[Image: AAPOfficialProjectSquad-468x80Weblinker.jpg]
Be sure to please pay a visit to it! While you are there, watch for new and exciting stuff to happen anytime and even regularly, too!! Big Grin !
url=http://dhost.hopto.org/aapproj/][Image: file.php?id=194][/url]
Your *official* home of the FreeBasic GFX Demo Central, now holding over 150 FB graphics demos so far!!! Big Grin !
Reply
#24
palette colours are easy to calculate, you don't need a table:

Quote:the 64 attributes are combinations of two of these eight colours (y'know: 8 x 8 = 64): black, blue, green, cyan, red, magenta, yellow and white. These are ordered like this:

* black+black, black+blue, black+cyan, black+green, etc...
* blue+black, blue+blue, ...
* ...
* white+black, white+ blue, ..., white+white.

Every attribute is (colour1)*8 + colour2, where colour1 and colour2 range from 0 to 7 (black, blue, green, cyan, red, magenta, yellow and white, resp.) The resulting colour is some kind of 33% colour1 and 66% colour2 (more or less Wink).

You can, anyhow, assign *any* VGA 18 bits colour value:

http://faq.qbasicnews.com/?blast=PaletteInScreenNine
SCUMM (the band) on Myspace!
ComputerEmuzone Games Studio
underBASIC, homegrown musicians
[img]http://www.ojodepez-fanzine.net/almacen/yoghourtslover.png[/i
Reply
#25
To Na_th_an:

I have recently taken a good look at your “Palette in Screen 9” tutorial for QBasicNews.com (and even added it to “My Favorites” as well! Wink ), and it has impressed me to where I can really work on the custom colors of any text- or graphics-based EGA project in QB where a palette of 64 colors turns into approximately a possible 262,144 of them ( :o ! ), all while *still* using the 16 displayable colors. Man, you do great work, and I would quite recommend your article, Na_th_an!! Big Grin !

Thank you so much for your truly fine piece of advice!!! :king: !!



[Image: AAPname.gif]
- Adigun Azikiwe Polack
One of the Founders of “Aura Flow”
Continuing Developer of “Frantic Journey”
Current Developer of “Star Angelic Slugger”
Webmaster of the “AAP Official Projects Squad”



UPDATE (From the afternoon of Tuesday, October 12, 2004 at 3:46pm EST): Attention please, everybody! I have just got done my sixth and ALL-NEW original screensaver in QB text mode to inspire you all even further than ever!! I sure hope you all are plain ready for this! Big Grin !!

Code:
'G R A S S L A N D S   U N D E R   T H E   S T A R S
'---------------------------- QB 7-line Text Demo #6
'
'Presented to you by Adigun Azikiwe Polack.
'
'This is now my sixth and rather latest graphical text
'demo, in which it paints up a *soothingly* beautiful
'living picture of the grasslands in which the grass
'itself actually moves in the wind at night while the
'night starry sky shows itself above!  Can you even dare
'imagine that it is all being done in a 80x43 resolution
'in just 7 lines of QuickBASIC source code?  WELL BELIEVE
'IT!!!  ;*) !  And I personally think that you are going
'to enjoy this original screensaver created by yours
'truly, just for you!  God bless you and see you again!!
'       ~~~~~~~~~~~~
'
'- Adigun Azikiwe Polack
'  October 12, 2004


1 IF init = 0 THEN SCREEN 0 ELSE IF init = 1 THEN CLS  ELSE IF init = 2 THEN WIDTH 80, 43 ELSE IF init = 3 THEN VIEW PRINT 1 TO 43 ELSE IF init = 4 THEN PALETTE 1, 8 ELSE IF init = 5 THEN PALETTE 2, 16 ELSE IF init = 6 THEN PALETTE 3, 2 ELSE IF init = 7 THEN PALETTE 4, 18 ELSE IF init = 8 THEN PALETTE 5, 8 ELSE IF init = 9 THEN PALETTE 6, 9 ELSE IF init = 10 THEN PALETTE 7, 57

2 IF init = 11 THEN LOCATE INT(RND(1) * 12) + 2, INT(RND(1) * 80) + 1 ELSE IF init = 12 THEN COLOR 1, INT(RND(1) * 3) + 5 ELSE IF init = 13 THEN PRINT MID$("████████████████████████▒█░", INT(RND * 28) + 1, 1) ELSE IF init = 14 THEN LOCATE INT(RND(1) * 2) + 14, INT(RND(1) * 80) + 1 ELSE IF init = 15 THEN COLOR 1, 2 ELSE IF init = 16 THEN PRINT MID$("███████▓▓▓▒▒", INT(RND * 12) + 1, 1) ELSE IF init = 17 THEN LOCATE INT(RND(1) * 2) + 16, INT(RND(1) * 80) + 1 ELSE IF init = 18 THEN COLOR 1, 2 ELSE IF init = 19 THEN PRINT MID$("▓▓▓▓▒▒▒░░░", INT(RND * 10) + 1, 1) ELSE IF init = 20 THEN LOCATE INT(RND(1) * 2) + 18, INT(RND(1) * 79) + 1 ELSE IF init = 21 THEN COLOR 2, 1 ELSE IF init = 22 THEN PRINT "▓█"

3 IF init = 23 THEN LOCATE INT(RND(1) * 2) + 20, INT(RND(1) * 80) + 1 ELSE IF init = 24 THEN COLOR 2, 0 ELSE IF init = 25 THEN PRINT "█" ELSE IF init = 26 THEN LOCATE INT(RND(1) * 2) + 22, INT(RND(1) * 80) + 1 ELSE IF init = 27 THEN COLOR 2, 3 ELSE IF init = 28 THEN PRINT MID$("███████▓▓▓▒▒", INT(RND * 12) + 1, 1) ELSE IF init = 29 THEN LOCATE INT(RND(1) * 2) + 24, INT(RND(1) * 80) + 1 ELSE IF init = 30 THEN COLOR 2, 3 ELSE IF init = 31 THEN PRINT MID$("▓▓▓▓▒▒▒░░░", INT(RND * 10) + 1, 1) ELSE IF init = 32 THEN LOCATE INT(RND(1) * 2) + 26, INT(RND(1) * 79) + 1 ELSE IF init = 33 THEN COLOR 3, 2 ELSE IF init = 34 THEN PRINT "▓█"

4 IF init = 35 THEN LOCATE INT(RND(1) * 2) + 28, INT(RND(1) * 80) + 1 ELSE IF init = 36 THEN COLOR 3, 0 ELSE IF init = 37 THEN PRINT "█" ELSE IF init = 38 THEN LOCATE INT(RND(1) * 2) + 30, INT(RND(1) * 80) + 1 ELSE IF init = 39 THEN COLOR 3, 4 ELSE IF init = 40 THEN PRINT MID$("███████▓▓▓▒▒", INT(RND * 12) + 1, 1)

5 IF init = 41 THEN LOCATE INT(RND(1) * 2) + 32, INT(RND(1) * 80) + 1 ELSE IF init = 42 THEN COLOR 3, 4 ELSE IF init = 43 THEN PRINT MID$("▓▓▓▓▒▒▒░░░", INT(RND * 10) + 1, 1) ELSE IF init = 44 THEN LOCATE INT(RND(1) * 2) + 34, INT(RND(1) * 79) + 1 ELSE IF init = 45 THEN COLOR 4, 3 ELSE IF init = 46 THEN PRINT "▓█" ELSE IF init = 47 THEN LOCATE INT(RND(1) * 7) + 36, INT(RND(1) * 80) + 1 ELSE IF init = 48 THEN COLOR 4, 0 ELSE IF init = 49 THEN PRINT "█"

6 IF init < 50 THEN init = init + 1 ELSE init = 11

7 GOTO 1

I promise you richly that you will enjoy this one indeed, I guarantee you that! Wink



UPDATE #2 (From the afternoon of Wednesday, October 20, 2004 at 1:18pm EST): In addition to that, I want to let you all know so something, as this is *very* important here. Listen to me now, please! Big Grin Just from yesterday afternoon or a bit before that, I had gotten a fresh and awesome idea that is TOTALLY out of the ordinary as to what my next 7-liner is gonna be: parallax-scrolling in textmode!! Wink=b !! So, with that already deeply embedded in my head, here now is my seventh (and definitely mind-blowing!!!) original screensaver for this challenge:

Code:
'C H A M B E R S   O F   M O L T E N   M A G M A
'------------------------ QB 7-line Text Demo #7
'
'Presented to you by Adigun Azikiwe Polack.
'
'This is now my seventh and *MOST* revolutionary graphical
'text demo you will ever dare to see, in that it features
'utterly amazing parallax-scrolling of the flowing magma
'that lies beneath the dark chambers of some volcano!!
'You had gotta be impressed a-plenty here, as you must
'witness it all in 80x25 text mode in order for you to
'enjoy the show once this baby is run!!!  ;*) !!  It took
'me around a good 3½ hours to get this prepared to be a
'special blessing to you all in only 7 LINES of pure-QB
'code, I must say!  With all of that spoken, do kick back
'and enjoy this very exciting new demo!!!  ^_-=b !!
'
'- Adigun Azikiwe Polack
'  October 20, 2004


1 IF init = 0 THEN SCREEN 0 ELSE IF init = 1 THEN CLS  ELSE IF init = 2 THEN WIDTH 80, 25 ELSE IF init = 3 THEN PALETTE 1, 63 ELSE IF init = 4 THEN PALETTE 2, 54 ELSE IF init = 5 THEN PALETTE 3, 46 ELSE IF init = 6 THEN PALETTE 4, 36 ELSE IF init = 7 THEN PALETTE 5, 4 ELSE IF init = 8 THEN PALETTE 6, 32 ELSE IF init = 9 THEN VIEW PRINT 1 TO 25 ELSE IF init = 10 THEN COLOR 0, 1 ELSE IF init = 11 THEN CLS  ELSE IF init = 12 THEN VIEW PRINT 1 TO 22 ELSE IF init = 13 THEN COLOR 0, 0 ELSE IF init = 14 THEN CLS 2 ELSE IF init = 15 THEN VIEW PRINT 1 TO 25 ELSE IF init = 16 THEN Speed! = .25

2 IF init = 17 THEN X! = X! + (Speed! / 1) ELSE IF init = 18 THEN LOCATE 22, 1 ELSE IF init = 19 THEN COLOR 1, 2 ELSE IF init = 20 THEN PRINT MID$("░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░", X! + 1, 80) ELSE IF init = 21 THEN LOCATE 21, 1 ELSE IF init = 22 THEN COLOR 1, 2 ELSE IF init = 23 THEN PRINT MID$("██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓", X! + 1, 80)

3 IF init = 24 THEN X2! = X2! + (Speed! / 1.5) ELSE IF init = 25 THEN LOCATE 20, 1 ELSE IF init = 26 THEN COLOR 2, 3 ELSE IF init = 27 THEN PRINT MID$("██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓", X2! + 1, 80) ELSE IF init = 28 THEN X3! = X3! + (Speed! / 2) ELSE IF init = 29 THEN LOCATE 19, 1 ELSE IF init = 30 THEN COLOR 3, 4 ELSE IF init = 31 THEN PRINT MID$("██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓", X3! + 1, 80)

4 IF init = 32 THEN X4! = X4! + (Speed! / 2.5) ELSE IF init = 33 THEN LOCATE 18, 1 ELSE IF init = 34 THEN COLOR 5, 4 ELSE IF init = 35 THEN PRINT MID$("██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓", X4! + 1, 80) ELSE IF init = 36 THEN X5! = X5! + (Speed! / 3) ELSE IF init = 37 THEN LOCATE 17, 1 ELSE IF init = 38 THEN COLOR 6, 0 ELSE IF init = 39 THEN PRINT MID$("██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓", X5! + 1, 80)

5 IF init = 40 THEN LOCATE INT(RND(1) * 15) + 1, INT(RND(1) * 80) + 1 ELSE IF init = 41 THEN COLOR 0, 6 ELSE IF init = 42 THEN PRINT MID$("▓▓▒░░▒▓▓▒░", INT(RND * 10) + 1, 1) ELSE IF init = 43 AND X! > 8 THEN X! = 1 ELSE IF init = 44 AND X2! > 8 THEN X2! = 1 ELSE IF init = 45 AND X3! > 8 THEN X3! = 1 ELSE IF init = 46 AND X4! > 8 THEN X4! = 1 ELSE IF init = 47 AND X5! > 8 THEN X5! = 1

6 IF init < 48 THEN init = init + 1 ELSE init = 17

7 GOTO 1

Praise God Almighty that He has inspired me to do this one to in turn inspire you all, and I hope you intensely marvel this one real good now, you understand? ;*) !
url=http://dhost.hopto.org/aapproj/][Image: file.php?id=194][/url]
Your *official* home of the FreeBasic GFX Demo Central, now holding over 150 FB graphics demos so far!!! Big Grin !
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)