QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on January 16, 2021, 05:27:56 pm

Title: Maze Generator 8
Post by: SierraKen on January 16, 2021, 05:27:56 pm

Like the others, this one doesn't find a path. And like the others it randomly puts walls and exits. But I think this is my best so far. Check out the picture to see what kind of maze it makes. Since it doesn't find a path, maybe 1/4 or so of them doesn't work, so just press the Space Bar to make a new one. I also added clipboard to it so people can copy it using the C key (not CTRL C, just C) and then paste it into their favorite graphics program to save or print. Like my other ones, it's a white background with black walls. I made a similar one I think last Summer using circles instead of boxes, but this one looks more like a regular maze.

Code: QB64: [Select]

1. 'Maze Generator 8 - by SierraKen
2. 'Made on January 16, 2021.
3. 'Not every maze works so use the Space Bar to make ones that do.
4. 'Press C to copy to clipboard so you can paste it into your favorite graphics program.
5. 'From there you can save it or print it to your printer.
6. '-------------------------------------------------------------------------------------
7. 'This little program doesn't find a path, instead it randomly chooses areas to make walls and exits after making a bunch of boxes.
8. 'After trial and error I believe this is as good, or almost as good as it gets for this type of maze.
9.  
10. _TITLE "Space Bar for new maze. C = Copy to clipboard. Not every maze works. "
11. DIM maze AS LONG
12. start:
13. _LIMIT 30
14. IF maze& <> 0 THEN SCREEN _NEWIMAGE(600, 600, 32): _FREEIMAGE maze&
15. maze& = _NEWIMAGE(600, 600, 32)
16. SCREEN maze&
17. CLS
18. PAINT (2, 2), _RGB32(255, 255, 255)
19. LINE (50, 50)-(550, 550), _RGB32(0, 0, 0), B
20. LINE (275, 550)-(325, 550), _RGB32(255, 255, 255)
21.  
22. FOR boxes = 50 TO 225 STEP 25
23.     LINE (300 - boxes, 300 - boxes)-(300 + boxes, 300 + boxes), _RGB32(0, 0, 0), B
24. NEXT boxes
25. RANDOMIZE TIMER
26. FOR lx = 50 TO _WIDTH - 100
27.     FOR ly = 50 TO _HEIGHT - 100
28.         IF POINT(lx, ly) = _RGB32(0, 0, 0) AND POINT(lx + 25, ly) = _RGB32(0, 0, 0) THEN
29.             IF INT(RND * 1000) + 1 > 996 THEN
30.                 LINE (lx, ly)-(lx + 25, ly), _RGB32(0, 0, 0)
31.                 LINE (lx + 25, ly)-(lx + 25, ly + 25), _RGB32(255, 255, 255)
32.             END IF
33.         END IF
34.         IF POINT(lx, ly) = _RGB32(0, 0, 0) AND POINT(lx, ly + 25) = _RGB32(0, 0, 0) THEN
35.             IF INT(RND * 1000) + 1 > 996 THEN
36.                 LINE (lx, ly)-(lx, ly + 25), _RGB32(0, 0, 0)
37.                 LINE (lx, ly + 25)-(lx + 25, ly + 25), _RGB32(255, 255, 255)
38.             END IF
39.         END IF
40.         'Make more exits.
41.         FOR a = 1 TO 2
42.             IF POINT(lx, ly) = _RGB32(0, 0, 0) AND POINT(lx + 25, ly) = _RGB32(0, 0, 0) AND lx > 190 AND lx < 460 THEN
43.                 IF INT(RND * 1000) + 1 > 996 THEN
44.                     LINE (lx + 25, ly)-(lx + 25, ly + 25), _RGB32(255, 255, 255)
45.                 END IF
46.             END IF
47.             IF POINT(lx, ly) = _RGB32(0, 0, 0) AND POINT(lx, ly + 25) = _RGB32(0, 0, 0) AND lx > 190 AND lx < 460 THEN
48.                 IF INT(RND * 1000) + 1 > 996 THEN
49.                     LINE (lx, ly + 25)-(lx + 25, ly + 25), _RGB32(255, 255, 255)
50.                 END IF
51.             END IF
52.         NEXT a
53.     NEXT ly
54. NEXT lx
55. DO
56.     _LIMIT 30
57.     a$ = INKEY$
58.     IF a$ = CHR$(27) THEN END
59.     IF a$ = " " THEN GOTO start:
60.     IF a$ = "c" OR a$ = "C" THEN _CLIPBOARDIMAGE = maze&
61. LOOP
62. GOTO start:
63.  

Title: Re: Maze Generator 8
Post by: SierraKen on January 16, 2021, 07:53:41 pm

Post deleted.

Title: Re: Maze Generator 8
Post by: SierraKen on January 17, 2021, 02:53:43 pm

Here is an update. I did it 38 times before I got a maze that didn't have an ending. It makes easier mazes but I like this one better. Here's a picture of this one below. I hope some of you use this.

Code: QB64: [Select]

1. 'Maze Generator 8 - by SierraKen
2. 'Made on January 17, 2021.
3. 'Not every maze works so use the Space Bar to make ones that do.
4. 'Press C to copy to clipboard so you can paste it into your favorite graphics program.
5. 'From there you can save it or print it to your printer.
6. '-------------------------------------------------------------------------------------
7. 'This little program doesn't find a path, instead it randomly chooses areas to make walls and exits after making a bunch of boxes.
8. 'After trial and error I believe this is as good, or almost as good as it gets for this type of maze.
9.  
10. _TITLE "Space Bar for new maze. C = Copy to clipboard. Not every maze works. "
11. DIM maze AS LONG
12. start:
13. _LIMIT 30
14. IF maze& <> 0 THEN SCREEN _NEWIMAGE(600, 600, 32): _FREEIMAGE maze&
15. maze& = _NEWIMAGE(600, 600, 32)
16. SCREEN maze&
17. CLS
18. PAINT (2, 2), _RGB32(255, 255, 255)
19. LINE (50, 50)-(550, 550), _RGB32(0, 0, 0), B
20. LINE (275, 550)-(325, 550), _RGB32(255, 255, 255)
21.  
22. FOR boxes = 50 TO 225 STEP 25
23.     LINE (300 - boxes, 300 - boxes)-(300 + boxes, 300 + boxes), _RGB32(0, 0, 0), B
24. NEXT boxes
25. RANDOMIZE TIMER
26. FOR lx = 50 TO _WIDTH - 100
27.     FOR ly = 50 TO _HEIGHT - 100
28.         IF POINT(lx, ly) = _RGB32(0, 0, 0) AND POINT(lx + 25, ly) = _RGB32(0, 0, 0) THEN
29.             IF INT(RND * 100) + 1 > 99 THEN
30.                 LINE (lx, ly)-(lx + 25, ly), _RGB32(0, 0, 0)
31.                 LINE (lx + 25, ly)-(lx + 25, ly + 25), _RGB32(255, 255, 255)
32.             END IF
33.         END IF
34.         IF POINT(lx, ly) = _RGB32(0, 0, 0) AND POINT(lx, ly + 25) = _RGB32(0, 0, 0) THEN
35.             IF INT(RND * 100) + 1 > 99 THEN
36.                 LINE (lx, ly)-(lx, ly + 25), _RGB32(0, 0, 0)
37.                 LINE (lx, ly + 25)-(lx + 25, ly + 25), _RGB32(255, 255, 255)
38.             END IF
39.         END IF
40.         'Make more exits.
41.         FOR a = 1 TO 2
42.             IF POINT(lx, ly) = _RGB32(0, 0, 0) AND POINT(lx + 25, ly) = _RGB32(0, 0, 0) AND lx > 190 AND lx < 460 THEN
43.                 IF INT(RND * 100) + 1 > 99 THEN
44.                     LINE (lx + 25, ly)-(lx + 25, ly + 25), _RGB32(255, 255, 255)
45.                 END IF
46.             END IF
47.             IF POINT(lx, ly) = _RGB32(0, 0, 0) AND POINT(lx, ly + 25) = _RGB32(0, 0, 0) AND lx > 190 AND lx < 460 THEN
48.                 IF INT(RND * 100) + 1 > 99 THEN
49.                     LINE (lx, ly + 25)-(lx + 25, ly + 25), _RGB32(255, 255, 255)
50.                 END IF
51.             END IF
52.         NEXT a
53.     NEXT ly
54. NEXT lx
55.  
56. 'LINE (250, 250)-(350, 350), _RGB32(255, 0, 0), B
57. 'LINE (225, 225)-(375, 375), _RGB32(0, 0, 255), B
58. 'LINE (200, 200)-(400, 400), _RGB32(0, 255, 0), B
59. 'LINE (175, 175)-(425, 425), _RGB32(0, 255, 255), B
60.  
61.  
62.  
63. DO
64.     _LIMIT 30
65.     a$ = INKEY$
66.     IF a$ = CHR$(27) THEN END
67.     IF a$ = " " THEN GOTO start:
68.     IF a$ = "c" OR a$ = "C" THEN _CLIPBOARDIMAGE = maze&
69. LOOP
70. GOTO start:
71.  

Title: Re: Maze Generator 8
Post by: SierraKen on January 17, 2021, 03:14:48 pm

I decided to make it more than double as hard with 10 pixel hallways instead of 25. This one is more fun to use. After 13 mazes it got to one that didn't have an exit.
A picture of this one is also below.

Code: QB64: [Select]

1. 'Maze Generator 8 - by SierraKen
2. 'Made on January 17, 2021.
3. 'Not every maze works so use the Space Bar to make ones that do.
4. 'Press C to copy to clipboard so you can paste it into your favorite graphics program.
5. 'From there you can save it or print it to your printer.
6. '-------------------------------------------------------------------------------------
7. 'This little program doesn't find a path, instead it randomly chooses areas to make walls and exits after making a bunch of boxes.
8.  
9. _TITLE "Space Bar for new maze. C = Copy to clipboard. Not every maze works. "
10. DIM maze AS LONG
11. start:
12. _LIMIT 30
13. IF maze& <> 0 THEN SCREEN _NEWIMAGE(600, 600, 32): _FREEIMAGE maze&
14. maze& = _NEWIMAGE(600, 600, 32)
15. SCREEN maze&
16. CLS
17. PAINT (2, 2), _RGB32(255, 255, 255)
18.  
19. FOR boxes = 50 TO 270 STEP 10
20.     LINE (300 - boxes, 300 - boxes)-(300 + boxes, 300 + boxes), _RGB32(0, 0, 0), B
21. NEXT boxes
22. LINE (275, 570)-(325, 570), _RGB32(255, 255, 255)
23.  
24. RANDOMIZE TIMER
25. FOR lx = 50 TO _WIDTH - 50
26.     FOR ly = 50 TO _HEIGHT - 50
27.         IF POINT(lx, ly) = _RGB32(0, 0, 0) AND POINT(lx + 10, ly) = _RGB32(0, 0, 0) THEN
28.             IF INT(RND * 100) + 1 > 99 THEN
29.                 LINE (lx, ly)-(lx + 10, ly), _RGB32(0, 0, 0)
30.                 LINE (lx + 10, ly)-(lx + 10, ly + 10), _RGB32(255, 255, 255)
31.             END IF
32.         END IF
33.         IF POINT(lx, ly) = _RGB32(0, 0, 0) AND POINT(lx, ly + 10) = _RGB32(0, 0, 0) THEN
34.             IF INT(RND * 100) + 1 > 99 THEN
35.                 LINE (lx, ly)-(lx, ly + 10), _RGB32(0, 0, 0)
36.                 LINE (lx, ly + 10)-(lx + 10, ly + 10), _RGB32(255, 255, 255)
37.             END IF
38.         END IF
39.         'Make more exits.
40.         FOR a = 1 TO 2
41.             IF POINT(lx, ly) = _RGB32(0, 0, 0) AND POINT(lx + 10, ly) = _RGB32(0, 0, 0) AND lx > 190 AND lx < 460 THEN
42.                 IF INT(RND * 100) + 1 > 99 THEN
43.                     LINE (lx + 10, ly)-(lx + 10, ly + 10), _RGB32(255, 255, 255)
44.                 END IF
45.             END IF
46.             IF POINT(lx, ly) = _RGB32(0, 0, 0) AND POINT(lx, ly + 10) = _RGB32(0, 0, 0) AND lx > 190 AND lx < 460 THEN
47.                 IF INT(RND * 100) + 1 > 99 THEN
48.                     LINE (lx, ly + 10)-(lx + 10, ly + 10), _RGB32(255, 255, 255)
49.                 END IF
50.             END IF
51.         NEXT a
52.     NEXT ly
53. NEXT lx
54.  
55. DO
56.     _LIMIT 30
57.     a$ = INKEY$
58.     IF a$ = CHR$(27) THEN END
59.     IF a$ = " " THEN GOTO start:
60.     IF a$ = "c" OR a$ = "C" THEN _CLIPBOARDIMAGE = maze&
61. LOOP
62. GOTO start:
63.  

Text Only | Text with Attachments