Qbasicnews.com
January 22, 2019, 06:59:04 AM
 Pages: [1]
 Author Topic: 3D-ish Screen savers  (Read 5312 times)
Mech1031
Na_th_an

Posts: 1536

 « on: March 29, 2004, 09:07:06 PM »

I made all these (black and white) screen savers in my spare time.  all three create an optical effect.  here they are!

Name: BoxySnake
Platform: QuickBasic
Progress : 100%
Description : Creates a really cool boxy looking snake that bounces around the screen.

Code:
QBASIC:
DIM x(35), y(35)
DIM xm(34), ym(34)
cnt = 1
FOR n = 5 TO 170 STEP 5
cnt = cnt + 1
x(cnt) = n
y(cnt) = n
NEXT
FOR n = 1 TO 34
xm(n) = -1
ym(n) = -1
NEXT n
SCREEN 7, 0, 1, 0
DO
press\$ = INKEY\$
FOR n = 1 TO 34
IF x(n) < 1 THEN xm(n) = -xm(n)
IF y(n) < 1 THEN ym(n) = -ym(n)
IF x(n) + 50 > 320 THEN xm(n) = -xm(n)
IF y(n) + 30 > 200 THEN ym(n) = -ym(n)
NEXT n
FOR n = 1 TO 34
x(n) = x(n) + xm(n)
y(n) = y(n) + ym(n)
NEXT n
PCOPY 1, 0
CLS
FOR n = 2 TO 34
RANDOMIZE TIMER
r = INT(10 * RND) + 1
LINE (x(n), y(n))-(x(n) + 50, y(n) + 30), 15, B
NEXT n
LOOP UNTIL press\$ <> ""

Name: circles
Platform: QuickBasic
Progress : 100%
Description : staticy looking circles in a strait line bouncing around your screen.

Code:
QBASIC:
DIM x(35), y(35)
DIM xm(34), ym(34)
cnt = 1
FOR n = 5 TO 170 STEP 5
cnt = cnt + 1
x(cnt) = n
y(cnt) = n
NEXT
FOR n = 1 TO 34
xm(n) = -1
ym(n) = -1
NEXT n
SCREEN 7, 0, 1, 0
DO
press\$ = INKEY\$
FOR n = 1 TO 34
IF x(n) < 1 THEN xm(n) = -xm(n)
IF y(n) < 1 THEN ym(n) = -ym(n)
IF x(n) + 10 > 320 THEN xm(n) = -xm(n)
IF y(n) + 10 > 200 THEN ym(n) = -ym(n)
NEXT n
FOR n = 1 TO 34
x(n) = x(n) + xm(n)
y(n) = y(n) + ym(n)
NEXT n
PCOPY 1, 0
CLS
FOR n = 2 TO 34
RANDOMIZE TIMER
r = INT(10 * RND) + 1
CIRCLE (x(n), y(n)), r
NEXT n
LOOP UNTIL press\$ <> ""

Name: Tunnel
Platform: QuickBasic
Progress : 100%
Description : Tunnel effect, really cool.  i wish i could use it as my current screen saver.

Code:
QBASIC:
DIM x(35), y(35)
DIM xm(34), ym(34)
cnt = 1
FOR n = 5 TO 170 STEP 5
cnt = cnt + 1
x(cnt) = n
y(cnt) = n
NEXT
FOR n = 1 TO 34
xm(n) = -1
ym(n) = -1
NEXT n
SCREEN 7, 0, 1, 0
DO
press\$ = INKEY\$
FOR n = 1 TO 34
IF x(n) < 1 THEN xm(n) = -xm(n)
IF y(n) < 1 THEN ym(n) = -ym(n)
IF x(n) + 10 > 320 THEN xm(n) = -xm(n)
IF y(n) + 10 > 200 THEN ym(n) = -ym(n)
NEXT n
FOR n = 1 TO 34
x(n) = x(n) + xm(n)
y(n) = y(n) + ym(n)
NEXT n
PCOPY 1, 0
CLS
FOR n = 2 TO 34
RANDOMIZE TIMER
r = INT(10 * RND) + 1
CIRCLE (x(n), y(n)), n * n
NEXT n
LOOP UNTIL press\$ <> ""

 Logged

the mind is a beautiful thing, use it and make the world a more beautiful place.
relsoft
*/-\*

Posts: 3927

 « Reply #1 on: April 01, 2004, 08:43:14 AM »

You can make all of it as your current screensaver by using DOSSAVER.  PM DAV on the specifics. :*)
 Logged

y smiley is 24 bit.

Genso's Junkyard:
http://rel.betterwebber.com/
Liquid Snake
Wandering Guru

Posts: 354

 « Reply #2 on: April 04, 2004, 02:22:55 PM »

so if I put that Dossaver.pm.dav at the beginning or end of any program I make, it will become a screensaver?
 Logged

Not yet Snake! It's not over yet!
whitetiger0990
__/--\__

Posts: 2964

 « Reply #3 on: April 04, 2004, 02:36:51 PM »

Quote from: "Liquid Snake"
so if I put that Dossaver.pm.dav at the beginning or end of any program I make, it will become a screensaver?

no. the person named dav has something called dossaver...
privite messaged him him for details
 Logged

[size=10]Back by popular demand!
I will byte and nibble you bit by bit until nothing remains but crumbs.[/size]
TheBigBasicQ
*/-\*

Posts: 4549

 « Reply #4 on: April 04, 2004, 04:29:13 PM »

Quote from: "whitetiger0990"
no. the person named dav has something called dossaver...
privite messaged him him for details

 Logged
Mech1031
Na_th_an

Posts: 1536

 « Reply #5 on: April 04, 2004, 08:00:27 PM »

once again, another useless post from TBBQ.  whitetiger said it fine, it didn't need re-interpruting...

anywho, my computer sucks now.  so i couldn't really put it as a screen saver without my computer crashing
 Logged

the mind is a beautiful thing, use it and make the world a more beautiful place.
whitetiger0990
__/--\__

Posts: 2964

 « Reply #6 on: April 04, 2004, 08:01:44 PM »

Quote from: "TheBigBasicQ"

No I meant to said what I did say... Which acctually ends up begin the same thing what you said.
 Logged

[size=10]Back by popular demand!
I will byte and nibble you bit by bit until nothing remains but crumbs.[/size]
speedlemon
I hold this place together

Posts: 874

 « Reply #7 on: April 04, 2004, 09:35:44 PM »

wow mech! good job. 'play around' a little more!  well those are some pretty precious gems you have yourself there.

btw agamemnus- i got those books you were asking about. pm me
 Logged
TheBigBasicQ
*/-\*

Posts: 4549

 « Reply #8 on: April 05, 2004, 07:34:13 AM »

Quote from: "whitetiger"
...privite messaged him him for details

IMO, that wasnt very clear =P
 Logged
Z!re
*/-\*

Posts: 4599

 « Reply #9 on: April 05, 2004, 08:17:25 AM »

Quote from: "whitetiger"
no. the person named dav has something called dossaver...
privite messaged him him for details
That's clear... (even if it's poorly spelled )

Quote from: "tbbq"
That' wasn't very clear.

Here's what TBBQ meant:

You see, you have to read the entire post a person made. BEFORE you quote a part of it saying it's not clear enough. I know, I know, why should YOU have to read the whole post. But really, it's a lot easier for you to understand if you do.

Stop the useless posts already. At first it didn't bother me but now, you're really taking it to extremes tbbq.

Quote from: "tbbq"
IMO, that wasnt very clear =P
IMO. That was just another useless post, I think we all understood that you didn't think it was clear when you explained a perfectly clear sentence, which the rest of us understood perfectly.
 Logged
whitetiger0990
__/--\__

Posts: 2964

 « Reply #10 on: April 05, 2004, 08:44:03 AM »

Quote from: "Z!re"
That's clear... (even if it's poorly spelled )

hehe... I was running late for dinner.
oh and too make this sentence not useless.
.
I like the boxy snake one. Becuase it's... boxy.... yea
 Logged

[size=10]Back by popular demand!
I will byte and nibble you bit by bit until nothing remains but crumbs.[/size]
TheBigBasicQ
*/-\*

Posts: 4549

 « Reply #11 on: April 05, 2004, 10:14:52 AM »

Z!re stop mincing words =P. I had a lot of free time, after a long time :lol:
 Logged
Mech1031
Na_th_an

Posts: 1536

 « Reply #12 on: April 05, 2004, 03:37:18 PM »

Quote
I had a lot of free time

Sounds like thats not an issue you need to bring upon this forum.  next time you post, try and make it useful.

Speedlemon.  if you want you can have some fun and change the code around.  come up with some really sweet results.
 Logged

the mind is a beautiful thing, use it and make the world a more beautiful place.
TheBigBasicQ
*/-\*

Posts: 4549

 « Reply #13 on: April 05, 2004, 04:11:14 PM »

Hmph! Thats like the 4th or 5th post you have told me the same thing and I am not liking it very much.... :wink:
 Logged
speedlemon
I hold this place together

Posts: 874

 « Reply #14 on: April 05, 2004, 08:07:55 PM »

well mech, im not that good of a coder.  so ill leave that up to you. im sure i could change some but wouldnt come up with any sweet results since i dont know what any of the code means.  but i could try to mess around a bit because i do have a lot of free time.  :wink:  if i do come up with anything, ill be sure to post it tho.            :-?  ::    :lol:  :x    :cry:  :evil:  :roll:  :wink:  :normal:  :rotfl:  :barf:  :king:  :bounce:  :humm:  :na_th_an:  :shifty:  :red_marvin:  :neo:

<off topic>aga... im still waiting for your pm....</off topic>
 Logged
 Pages: [1]