Mystify your mind - GameCreators Forum

Author

Message

andrew11

21

Years of Service

User Offline

Joined: 23rd Feb 2003

Location: United States

Posted: 15th Mar 2003 21:54

Link

I was looking a the screensaver one day and tried to recreate it.
Pretty easy actually.

speed# = 2.0:polys = 2:lines = 2:space = 3: ink RGB(24,97,218),RGB(0,0,0)
Randomize 1
Dim direction(polys,8): Dim points#(polys,8)
For n = 1 To polys
For x = 1 To 4
points#(n,x) = rnd(screen width()):points#(n,x+4) = rnd(screen height())
direction(n,x) = rnd(2)+1: If direction(n,x) = 2 Then direction(n,x) = -1: direction(n,x+4) = rnd(2)+1: If direction(n,x+4)= 2 Then direction(n,x+4)=-1
Next x: Next n
Do
CLS
For n = 1 To polys
For x = 1 To 4
points#(n,x) = points#(n,x) + direction(n,x)*speed#: points#(n,x+4) = points#(n,x+4) + direction(n,x+4)*speed#
If points#(n,x) > screen width() or points#(n,x) screen height() or points#(n,x+4)

"All programmers are playwrights and all computers are lousy actors."
-Anon.

Back to top

Profile PM

andrew11

21

Years of Service

User Offline

Joined: 23rd Feb 2003

Location: United States

Posted: 15th Mar 2003 21:55

Link

I don't think a code box on the first post works.

Here's the code:

speed# = 2.0:polys = 2:lines = 2:space = 3: ink RGB(24,97,218),RGB(0,0,0)
Randomize 1
Dim direction(polys,8): Dim points#(polys,8)
For n = 1 To polys
For x = 1 To 4
points#(n,x) = rnd(screen width()):points#(n,x+4) = rnd(screen height())
direction(n,x) = rnd(2)+1: If direction(n,x) = 2 Then direction(n,x) = -1: direction(n,x+4) = rnd(2)+1: If direction(n,x+4)= 2 Then direction(n,x+4)=-1
Next x: Next n
Do
CLS
For n = 1 To polys
For x = 1 To 4
points#(n,x) = points#(n,x) + direction(n,x)*speed#: points#(n,x+4) = points#(n,x+4) + direction(n,x+4)*speed#
If points#(n,x) > screen width() or points#(n,x) < 1 Then direction(n,x) = direction(n,x)* -1
If points#(n,x+4) > screen height() or points#(n,x+4) < 1 Then direction(n,x+4) = direction(n,x+4) * -1
Next x: Next n
For n = 1 To polys: For x = 1 To lines
Line points#(n,1)+space*x,points#(n,5),points#(n,2)+space*x,points#(n,6): Line points#(n,2)+space*x,points#(n,6),points#(n,3)+space*x,points#(n,7): Line points#(n,3)+space*x,points#(n,7),points#(n,4)+space*x,points#(n,8): Line points#(n,4)+space*x,points#(n,8),points#(n,1)+space*x,points#(n,5)
Next x: Next n
Loop

+ Code Snippet

speed# = 2.0:polys = 2:lines = 2:space = 3: ink RGB(24,97,218),RGB(0,0,0)
Randomize 1
Dim direction(polys,8): Dim points#(polys,8)
For n = 1 To polys
For x = 1 To 4
points#(n,x) = rnd(screen width()):points#(n,x+4) = rnd(screen height())
direction(n,x) = rnd(2)+1: If direction(n,x) = 2 Then direction(n,x) = -1: direction(n,x+4) = rnd(2)+1: If direction(n,x+4)= 2 Then direction(n,x+4)=-1
Next x: Next n
Do
CLS
For n = 1 To polys
For x = 1 To 4
points#(n,x) = points#(n,x) + direction(n,x)*speed#: points#(n,x+4) = points#(n,x+4) + direction(n,x+4)*speed#
If points#(n,x) > screen width() or points#(n,x) < 1 Then direction(n,x) = direction(n,x)* -1
If points#(n,x+4) > screen height() or points#(n,x+4) < 1 Then direction(n,x+4) = direction(n,x+4) * -1
Next x: Next n
For n = 1 To polys: For x = 1 To lines
Line points#(n,1)+space*x,points#(n,5),points#(n,2)+space*x,points#(n,6): Line points#(n,2)+space*x,points#(n,6),points#(n,3)+space*x,points#(n,7): Line points#(n,3)+space*x,points#(n,7),points#(n,4)+space*x,points#(n,8): Line points#(n,4)+space*x,points#(n,8),points#(n,1)+space*x,points#(n,5)
Next x: Next n
Loop

"All programmers are playwrights and all computers are lousy actors."
-Anon.

Back to top

Profile PM

andrew11

21

Years of Service

User Offline

Joined: 23rd Feb 2003

Location: United States

Posted: 15th Mar 2003 23:06

Link

Mystify your mind V2.0

Added psycadellic colors and took out CLS because it looks cooler without.

speed# = 2.0:polys = 2:lines = 3:space = 5
Randomize 100
ink RGB(rnd(255)+1,rnd(255)+1,rnd(255)+1),RGB(0,0,0)
Dim direction(polys,8): Dim points#(polys,8)
For n = 1 To polys: For x = 1 To 4
points#(n,x) = rnd(screen width()):points#(n,x+4) = rnd(screen height())
direction(n,x) = rnd(2)+1: If direction(n,x) = 2 Then direction(n,x) = -1: direction(n,x+4) = rnd(2)+1: If direction(n,x+4)= 2 Then direction(n,x+4)=-1
Next x: Next n:r=255:Do
If r = 255 and b = 0 Then inc g
If r = 255 and b > 0 Then dec b
If g = 255 and r > 0 Then dec r
If r = 0 and b<255 Then inc b
If b = 255 and r=0 and g>0 Then dec g
If g=0 and b =255 Then inc r
ink RGB(r,g,b),RGB(0,0,0): For n = 1 To polys: For x = 1 To 4: points#(n,x) = points#(n,x) + direction(n,x)*speed#: points#(n,x+4) = points#(n,x+4) + direction(n,x+4)*speed#
If points#(n,x) > screen width() or points#(n,x) < 1 Then direction(n,x) = direction(n,x)* -1
If points#(n,x+4) > screen height() or points#(n,x+4) < 1 Then direction(n,x+4) = direction(n,x+4) * -1
Next x: Next n: For n = 1 To polys: For x = 1 To lines
Line points#(n,1)+space*x,points#(n,5),points#(n,2)+space*x,points#(n,6): Line points#(n,2)+space*x,points#(n,6),points#(n,3)+space*x,points#(n,7): Line points#(n,3)+space*x,points#(n,7),points#(n,4)+space*x,points#(n,8): Line points#(n,4)+space*x,points#(n,8),points#(n,1)+space*x,points#(n,5)
Next x: Next n:Loop

+ Code Snippet

speed# = 2.0:polys = 2:lines = 3:space = 5
Randomize 100
ink RGB(rnd(255)+1,rnd(255)+1,rnd(255)+1),RGB(0,0,0)
Dim direction(polys,8): Dim points#(polys,8)
For n = 1 To polys: For x = 1 To 4
points#(n,x) = rnd(screen width()):points#(n,x+4) = rnd(screen height())
direction(n,x) = rnd(2)+1: If direction(n,x) = 2 Then direction(n,x) = -1: direction(n,x+4) = rnd(2)+1: If direction(n,x+4)= 2 Then direction(n,x+4)=-1
Next x: Next n:r=255:Do
If r = 255 and b = 0 Then inc g
If r = 255 and b > 0 Then dec b
If g = 255 and r > 0 Then dec r
If r = 0 and b<255 Then inc b
If b = 255 and r=0 and g>0 Then dec g
If g=0 and b =255 Then inc r
ink RGB(r,g,b),RGB(0,0,0): For n = 1 To polys: For x = 1 To 4: points#(n,x) = points#(n,x) + direction(n,x)*speed#: points#(n,x+4) = points#(n,x+4) + direction(n,x+4)*speed#
If points#(n,x) > screen width() or points#(n,x) < 1 Then direction(n,x) = direction(n,x)* -1
If points#(n,x+4) > screen height() or points#(n,x+4) < 1 Then direction(n,x+4) = direction(n,x+4) * -1
Next x: Next n: For n = 1 To polys: For x = 1 To lines
Line points#(n,1)+space*x,points#(n,5),points#(n,2)+space*x,points#(n,6): Line points#(n,2)+space*x,points#(n,6),points#(n,3)+space*x,points#(n,7): Line points#(n,3)+space*x,points#(n,7),points#(n,4)+space*x,points#(n,8): Line points#(n,4)+space*x,points#(n,8),points#(n,1)+space*x,points#(n,5)
Next x: Next n:Loop

"All programmers are playwrights and all computers are lousy actors."
-Anon.

Back to top

Profile PM

Attreid

21

Years of Service

User Offline

Joined: 27th Nov 2002

Location:

Posted: 18th Mar 2003 20:03

Link

it's nice

I'll hide the mouse and run the programm when my mother works

I'm the God who made the world in seven lines.
I'm the Evil who destroyed this world in one line.

Back to top

Profile PM Email

andrew11

21

Years of Service

User Offline

Joined: 23rd Feb 2003

Location: United States

Posted: 18th Mar 2003 22:15 Edited at: 19th Mar 2003 23:37

Link

There's just one problem- If you leave the second one on for too long, like in a screensaver, many errors like "Insuffitient memory" keep popping up.

"All programmers are playwrights and all computers are lousy actors."
-Anon.
[href]www.geocities.com/andrew11m/[/href]

Back to top

Profile PM

Eponick

21

Years of Service

User Offline

Joined: 18th Mar 2003

Location:

Posted: 19th Mar 2003 01:52

Link

I cant get it to work, it might be because im still using trial, but the lines dont move.. On the first one they just shake and they dont move at all on the second one, but the colors change.

Back to top

Profile PM

andrew11

21

Years of Service

User Offline

Joined: 23rd Feb 2003

Location: United States

Posted: 19th Mar 2003 23:36

Link

It must just be for DB pro then.

"All programmers are playwrights and all computers are lousy actors."
-Anon.
[href]www.geocities.com/andrew11m/[/href]

Back to top

Profile PM

andrew11

21

Years of Service

User Offline

Joined: 23rd Feb 2003

Location: United States

Posted: 19th Mar 2003 23:46

Link

I was thinking about making it into a screensaver, but I want the variables to be changable by the user. You know how when you change your screensaver, you can go to settings and change colors, speed, etc. Does anyone know how I can use that?

"All programmers are playwrights and all computers are lousy actors."
-Anon.
[href]www.geocities.com/andrew11m/[/href]

Back to top

Profile PM

Superbeest

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: Netherlands

Posted: 20th Mar 2003 01:16

Link

You can try to read things (variables) from a file? A simple settings program must write some things and your saver can load them. Perhaps that works?

By steel will thy flesh divide

Back to top

Profile PM

andrew11

21

Years of Service

User Offline

Joined: 23rd Feb 2003

Location: United States

Posted: 20th Mar 2003 02:30 Edited at: 23rd Mar 2003 06:09

Link

I've tried that, but I don't want to use another file.

I mean:

http://www.geocities.com/andrew11m/images/screen.bmp

Youll have to paste it in your browser.

Stupid Geocities

If I click on that, the screen saver is executed, no variables.

"All programmers are playwrights and all computers are lousy actors."
-Anon.
[href]www.geocities.com/andrew11m[/href]

Back to top

Profile PM

Sorry your browser is not supported!

The 20 Line Challenge / Mystify your mind