MAZE GENERATOR in 1 LINE (25 COMMANDS)

Author

Message

IceVAN

21

Years of Service

User Offline

Joined: 6th Aug 2003

Location:

Posted: 11th May 2006 19:02

Link

Hi!

This is a random maze generator (real maze) in 1 line.
In only 25 commands.

bye!
IceVAN / Purples Studios

+ Code Snippet

set display mode 800,600,32:dim laberinto(32*4,32*4):for y=0 to 31:for x=0 to 31:if rnd(1)=1:laberinto(x*4,y*4)=1:laberinto(x*4+1,y*4+1)=1:laberinto(x*4+2,y*4+2)=1:laberinto(x*4+3,y*4+3)=1:else:laberinto(x*4+2,y*4)=1:laberinto(x*4+1,y*4+1)=1:laberinto(x*4,y*4+2)=1:laberinto(x*4+3,y*4+3)=1:endif:next x:next y:for y=0 to 32*4:for x=0 to 32*4:if laberinto(x,y)=1:box x*4,y*4,x*4+4,y*4+4:endif:next x:next y:wait key

Genius + Technique + Art = Programming
http://purplesstudios.blogcindario.com/

Back to top

Profile PM Website

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 11th May 2006 20:37 Edited at: 11th May 2006 20:38

Link

That is pretty cool!!!

Maybe you should make it 2 lines and have a centre of the
maze that is red or something.

Also, instead of drawing boxes, you could put lines in between each block of wall.

There are three types of people, those that can count and those that can't.

Back to top

Profile PM Email Website

Pricey

21

Years of Service

User Offline

Joined: 22nd Feb 2003

Location:

Posted: 11th May 2006 23:15

Link

that my friend... is very very nice

:: 3Ghz Pentium 4 / Hyper Threading, 1024mb RAM, 250GB HDD, 256mb Radeon 9600XT Graphics ::

Back to top

Profile PM Email

da king

User Banned

Posted: 18th May 2006 00:16

Link

The line was really extened

but nice

Please don't click on that red face to the bottom right of my post. Or I will KILL YOU!

Back to top

Profile

Azrael

19

Years of Service

User Offline

Joined: 2nd Mar 2005

Location: Germany

Posted: 18th May 2006 20:37

Link

This is cool!

Back to top

Profile PM Email Website

Chily Dog

20

Years of Service

User Offline

Joined: 6th Nov 2004

Location: U.S.A.

Posted: 19th May 2006 02:37

Link

I think it's a-MAZE-ing

Back to top

Profile PM Email

Admin 7737

18

Years of Service

User Offline

Joined: 14th May 2006

Location: Japan... I WISH!!

Posted: 21st May 2006 12:34

Link

ammazing!

-----------------------------------------------------------
Im in A race With 5 People And I'm in third, I over Take 2nd, In what position am I? (Email me for the Answer!)

Back to top

Profile PM Email

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 13th Jul 2006 03:22

Link

Beautiful! I added just one thing to it. Random RGB, lol. Hope you don't mind.

+ Code Snippet

randomize Timer() : ink rgb(100+rnd(155),100+rnd(155),100+rnd(155)),0 : set display mode 800,600,32:dim laberinto(32*4,32*4):for y=0 to 31:for x=0 to 31:if rnd(1)=1:laberinto(x*4,y*4)=1:laberinto(x*4+1,y*4+1)=1:laberinto(x*4+2,y*4+2)=1:laberinto(x*4+3,y*4+3)=1:else:laberinto(x*4+2,y*4)=1:laberinto(x*4+1,y*4+1)=1:laberinto(x*4,y*4+2)=1:laberinto(x*4+3,y*4+3)=1:endif:next x:next y:for y=0 to 32*4:for x=0 to 32*4:if laberinto(x,y)=1:box x*4,y*4,x*4+4,y*4+4:endif:next x:next y:wait key

Oh, and something to attempt to add:
===Make the maze different each time!

Good job though! All in 1 line and 25 commands... Nice work!

My Functions: Mine
Post yours: Post

Back to top

Profile PM Email

Sorry your browser is not supported!

The 20 Line Challenge / MAZE GENERATOR in 1 LINE (25 COMMANDS)