QB text-based graphical screensaver in *just* 7 lines.

[Adigun A. Polack]

To Meg:

Right up on the front side now, your submissions are VERY good. The only thing wrong with submission #3 of yours is that 1) you have used Screen 13 for your mode (as Screen 13 counts as graphics mode, not text mode); and 2) you have only used six (6) lines, not seven. But hey, at least you are learning. In time, your next submission might *finally* get accepted from me, Meg. !

And by the way, you double-posted. Could you please not do that? Hey, I know it is not easy to do, and we all make mistakes at times, BUT, we gotta learn to save what we want to say from our 2nd-post-in-a-row for our first one that we already posted. That then becomes such good manners here. You get my drift, Meg? ;*) !!

Finally, your optimization on the coding is remarkably wonderful! VERY. I will keep all of that in mind on my future 7-liners. ^_- !

See you again, and be sure to take what I said into fine consideration, please!



HOPING YOUR NEXT SUBMISSION GETS ACCEPTED,


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”

[Antoni Gual]

Here is my entry.
I'm no good at all in doing plasmas, perhaps someone could make a thing pleasant to see of this hack.
I found no way of stuffing a palete into it so colors are not so good..

Code:

' Translucent Plasma by Antoni Gual
' For Adigun's 7 liner contest at QBasicNews September/2004
'
1 k! = k! + .5
2 IF i% = 0 THEN WIDTH , 50 ELSE back% = 2.5 + (COS(.3 * (i% MOD 160) + 30 * COS(k! / 10)) - 2 * SIN(.09 * (i% \ 160) + .3 * COS(k! / 10)))
3 IF i% = 0 THEN DEF SEG = &HB800 ELSE fore% = 9.5 + .3 * (SIN(.2 * (i% \ 160) + .03 * (i% MOD 160) - .2 * k!) + 3 * SIN(.22 * (i% MOD 160) + k!))
4 IF i% = 0 THEN PRINT STRING$(80 * 50 - 1, 177);  ELSE POKE i%, 16 * back% + fore%
5 IF i% > 7998 OR i% = 0 THEN i% = 1 ELSE i% = i% + 2
6 IF LEN(INKEY$) = 0 THEN IF i% = 1 THEN 1 ELSE 2
7 BEEP

[Meg]

I love line 7

[Antoni Gual]

Rule nr 1 of forums: Before posting, read the previous posts!!

[Adigun A. Polack]

To Antoni:

Hello to you again!

Well, on your entry there, you got some pretty good ideas going here. Sadly though, it comes up just a little bit short, mainly on the count of the slow retrace as it just happened on my Pionex 450mhz computer (even when compiled). And the only thing that prevents your entry from being accepted by me is that in your remark lines, you forgot to tell me in the additional ones ( ' ) from near the beginning of your code what your project was gonna be about, the same thing that I told Meg from earlier.

Remark lines ( ' ) do not count as a line. You are to, however, use at least one of the remark lines at the VERY start of your coding to name your project, who you are that created it, and what your project is really all about.

So Antoni, if — on your next 7-liner submission — you tell me what your project is all about indeed in addition to the rest there, then it *will* become an acceptable entry to me. Try to remember that, okay? I want you, Meg, and others to succeed on this, man!! !



And to the whole rest of you:

Here comes my third and newest 7-liner shot right here!! I have worked on it hard to inspire you and ONLY to do so indeed! !

Code:

'8 0 x 5 0   T E X T M O D E   F I R E F A L L
'---------------------- QB 7-line Text Demo #3
'
'Presented to you by Adigun Azikiwe Polack.
'
'In this one, you are in for a *real* treat, because it
'shows you a graphical version of fire falling, only it is
'being done here IN PURE, UNADULTERATED 80x50 TEXT MODE IN
'JUST SEVEN LINES OF QB CODE!!!  Quite an amazing feat
'there, huh?  ^-^  Well, I just had to give it to you as
'my way of being a blessing to you on purpose, really.
'Having said that, please enjoy this third and original
'masterpiece of a screensaver!!!  ;*) !
'
'- Adigun Azikiwe Polack
'  September 23, 2004


1 IF init = 0 THEN SCREEN 0 ELSE IF init = 1 THEN CLS  ELSE IF init = 2 THEN WIDTH 80, 50 ELSE IF init = 3 THEN VIEW PRINT 1 TO 50 ELSE IF init = 4 THEN LOCATE INT(RND(1) * 20) + 30, INT(RND(1) * 77) + 1 ELSE IF init = 5 THEN COLOR 15, 0 ELSE IF init = 6 THEN PRINT "███"

2 IF init = 7 THEN LOCATE INT(RND(1) * 13) + 31, INT(RND(1) * 79) + 1 ELSE IF init = 8 THEN COLOR 14, 6 ELSE IF init = 9 THEN PRINT MID$("░▒▓█", INT(RND * 5) + 1, 1) ELSE IF init = 10 THEN LOCATE INT(RND(1) * 14) + 25, INT(RND(1) * 79) + 1 ELSE IF init = 11 THEN COLOR 7, 0 ELSE IF init = 12 THEN PRINT "█"

3 IF init = 12 THEN LOCATE INT(RND(1) * 11) + 17, INT(RND(1) * 79) + 1 ELSE IF init = 13 THEN COLOR 8, 7 ELSE IF init = 14 THEN PRINT MID$("█▓▒", INT(RND * 10) + 1, 1) ELSE IF init = 15 THEN LOCATE INT(RND(1) * 11) + 10, INT(RND(1) * 79) + 1 ELSE IF init = 16 THEN COLOR 8, 0 ELSE IF init = 17 THEN PRINT "█"

4 IF init = 18 THEN LOCATE INT(RND(1) * 10) + 6, INT(RND(1) * 79) + 1 ELSE IF init = 19 THEN COLOR 8, 0 ELSE IF init = 14 THEN PRINT MID$("░▒▓█", INT(RND * 10) + 1, 1) ELSE IF init = 20 THEN LOCATE INT(RND(1) * 13) + 5, INT(RND(1) * 79) + 1 ELSE IF init = 21 THEN COLOR 8, 0 ELSE IF init = 22 THEN PRINT MID$("░▒▓", INT(RND * 5) + 1, 1) ELSE IF init = 23 THEN COLOR 0, 0 ELSE IF init = 24 THEN LOCATE INT(RND(1) * 12) + 1, INT(RND(1) * 79) + 1 ELSE IF init = 25 THEN LOCATE INT(RND(1) * 17) + 1, INT(RND(1) * 79) + 1 ELSE IF init = 26 THEN PRINT "█" ELSE IF init = 27 AND trk >= 58 THEN LOCATE 50, 1

5 IF init >= 28 THEN trk = trk + 1 ELSE IF trk = 52 THEN PRINT  ELSE IF init >= 23 AND trk >= 58 THEN trk = 0

6 IF init < 28 THEN init = init + 1 ELSE init = 3

7 GOTO 1

I hope you all will be blown away in awe by my latest one. Thank you so much.



God bless all of you tonight, and all of you have yourselves a good one now even during this challenge!! :king:




- 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”

[Nemesis]

Not bad, but I think it needs more yellow and orange,
for a more fiery look!

Keep up the enthusiasm!

[Adigun A. Polack]

To Nemesis:

Thanks so much, my man Nemesis!! !!

Here then is the improved version of my third 7-liner (which I will count now as my fourth one! ). Prior to my previous and most recent one indeed, it took me a bit of a time to get the proper custom EGA colors in within the four (4) on-screen colors that I have outputted, but with these following improvements which resulted in this:

Code:

'8 0 x 5 0   T E X T M O D E   F I R E F A L L
'                                      P E R F E C T
'---------------------------- QB 7-line Text Demo #4
'
'Presented to you by Adigun Azikiwe Polack.
'
'Once again, it shows you a graphical version of fire
'falling, but this time, in a custom EGA palette using
'now five (5) visible colors on-screen, giving it a MUCH
'improved and realistic experience!!  This is PURE, 80x50
'TEXT-MODE GRAPHICS at its finest, ladies and gentlemen,
'in just seven lines of QuickBASIC code!!!  ^_-=b !!
'
'You know what, practice *does* make perfect indeed, so
'ENJOY my fourth and improved demo, and thanks!!!  ;*) !
'
'- Adigun Azikiwe Polack
'  September 24, 2004


1 IF init = 0 THEN SCREEN 0 ELSE IF init = 1 THEN CLS  ELSE IF init = 2 THEN WIDTH 80, 50 ELSE IF init = 3 THEN VIEW PRINT 1 TO 50 ELSE IF init = 4 THEN PALETTE 6, 55 ELSE IF init = 5 THEN PALETTE 7, 55 ELSE IF init = 6 THEN PALETTE 8, 52 ELSE IF init = 7 THEN PALETTE 1, 6 ELSE IF init = 8 THEN LOCATE INT(RND(1) * 20) + 30, INT(RND(1) * 77) + 1 ELSE IF init = 9 THEN COLOR 15, 0 ELSE IF init = 10 THEN PRINT "███"

2 IF init = 11 THEN LOCATE INT(RND(1) * 13) + 31, INT(RND(1) * 79) + 1 ELSE IF init = 12 THEN COLOR 14, 6 ELSE IF init = 13 THEN PRINT MID$("░▒▓█", INT(RND * 5) + 1, 1) ELSE IF init = 14 THEN LOCATE INT(RND(1) * 14) + 25, INT(RND(1) * 79) + 1 ELSE  IF init = 15 THEN COLOR 7, 0 ELSE IF init = 16 THEN PRINT "█"

3 IF init = 16 THEN LOCATE INT(RND(1) * 11) + 17, INT(RND(1) * 79) + 1 ELSE IF init = 17 THEN COLOR 8, 7 ELSE IF init = 18 THEN PRINT MID$("█▓▒", INT(RND * 10) + 1, 1) ELSE IF init = 19 THEN LOCATE INT(RND(1) * 11) + 10, INT(RND(1) * 79) + 1 ELSE IF init = 20 THEN COLOR 8, 0 ELSE IF init = 21 THEN PRINT "█"

4 IF init = 22 THEN LOCATE INT(RND(1) * 10) + 6, INT(RND(1) * 79) + 1 ELSE IF init = 23 THEN COLOR 8, 1 ELSE IF init = 18 THEN PRINT MID$("░▒▓█", INT(RND * 10) + 1, 1) ELSE IF init = 24 THEN LOCATE INT(RND(1) * 13) + 5, INT(RND(1) * 79) + 1 ELSE IF init = 25 THEN COLOR 8, 1 ELSE IF init = 26 THEN PRINT MID$("░▒▓", INT(RND * 5) + 1, 1) ELSE IF init = 27 THEN COLOR 0, 1 ELSE IF init = 28 THEN LOCATE INT(RND(1) * 12) + 1, INT(RND(1) * 79) + 1 ELSE IF init = 29 THEN LOCATE INT(RND(1) * 17) + 1, INT(RND(1) * 79) + 1 ELSE IF init = 30 THEN PRINT MID$("░▒▓███", INT(RND * 6) + 1, 1) ELSE IF init = 31 AND trk >= 38 THEN LOCATE 50, 1

5 IF init = 31 THEN LOCATE INT(RND(1) * 5) + 1, INT(RND(1) * 79) + 1 ELSE IF init = 32 THEN COLOR 0, 0 ELSE IF init = 33 THEN PRINT "█" ELSE IF init = 34 THEN trk = trk + 1 ELSE IF trk = 56 THEN PRINT  ELSE IF init >= 38 AND trk >= 58 THEN trk = 0

6 IF init < 40 THEN init = init + 1 ELSE init = 8

7 GOTO 1

.............I hope you do like it. !

Once again, I thank you so much wonderfully now! Be seeing you! :bounce: !!



CRANKING UP THE SURE HEAT ON THE INSPIRATION,


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”



______________________________________

T H E • T H I R D • C A L I B E R • H A S • C U R R E N T L Y • A R R I V E D ! ! ! !!

Now encouraging even more positive originality than ever before, and even featuring exclusive QB challenges based on the 2004 Athens Olympic Games, too!!! ;*) !

Got game for the QuickBASIC Caliber Programming Compo 2004/2005? Then I challenge you to please visit http://dhost.hopto.org/aapproj/qbcpc/. That means YOU, pal!

[Antoni Gual]

AAAAARGH!!!!

Remark lines ( ' ) do not count as a line. You are to, however, use at least one of the remark lines at the VERY start of your coding to name your project, who you are that created it, and what your project is really all about.

My first line:

Code:

' Translucent Plasma by Antoni Gual

Translation:
Name:Translucent Plasma (self-explaining)
Author:Antoni Gual
What is all about:It is in the name

I did'nt elaborate because you ruled it had to be in the first line

Now I know why your compos don't attract people.. :barf:

Don't expect a new submission from me!!







[/quote]

[Antoni Gual]

PS: I liked your fire !

[Nemesis]

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.