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

[Adigun A. Polack]

To Nemesis once again:

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. !! 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 ( !! ) 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 ( ! ) 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.

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. 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. ! 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. 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. !! Please forgive me.

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



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.

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




- 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!! ! 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? !