Maze Generator

[SierraKen]

This Maze Generator is much better than the one I made last year, although I don't know if I posted that one. It doesn't automatically make a finished path always but almost all of them do have ways to enter and exit. You can make unlimited random mazes with it and it's your decision on where to enter and where to exit. You can also save them as .bmp pictures and also print them.

Note: Please skip this one if you haven't seen it yet and use the next one below on this forum. This is nowhere near as good.

Code: QB64: [Select]

1. 'Maze Generator 3 - By SierraKen - June 8, 2020.
2. _TITLE "Maze Generator 3 - Space Bar To Make Another Maze, (S)ave, (P)rint, Esc ends."
3. picture& = _NEWIMAGE(800, 600, 32)
4. start:
5. _LIMIT 200
6. CLS
7. s& = _NEWIMAGE(800, 600, 32)
8. SCREEN s&, picture&
9. PAINT (1, 1), _RGB32(255, 255, 255)
10. FOR x = 50 TO 750 STEP 25
11.     LINE (x, 50)-(x, 550), _RGB32(0, 0, 0)
12. NEXT x
13. FOR y = 50 TO 550 STEP 25
14.     LINE (50, y)-(750, y), _RGB32(0, 0, 0)
15. NEXT y
16. FOR tt = 1 TO 100000
17.     RANDOMIZE TIMER
18.     xx = INT(RND * 750) + 50
19.     yy = INT(RND * 550) + 50
20.     LINE (xx, yy)-(xx + 25, yy + 25), _RGB32(255, 255, 255), BF
21.     xx = INT(RND * 750) + 50
22.     yy = INT(RND * 550) + 50
23.     LINE (xx, yy)-(xx + 25, yy + 25), _RGB32(255, 255, 255), BF
24. NEXT tt
25. _PUTIMAGE , s&, picture&
26. IF sav = 1 THEN SaveImage 0, nm$: sav = 0
27. DO
28.     a$ = INKEY$
29.     IF a$ = " " THEN GOTO start:
30.     IF a$ = "s" OR a$ = "S" THEN GOTO saving:
31.     IF a$ = CHR$(27) THEN END
32.     IF a$ = "p" OR a$ = "P" THEN
33.         j& = _COPYIMAGE(0)
34.         _DELAY .25
35.         INPUT "Print on printer (Y/N)?", i$ 'print screen page on printer
36.         CLS
37.         SCREEN j&
38.         _DELAY .25
39.         IF LEFT$(i$, 1) = "y" OR LEFT$(i$, 1) = "Y" THEN
40.             'printer prep (code copied and pasted from bplus Free Calendar Program)
41.             YMAX = _HEIGHT: XMAX = _WIDTH
42.             landscape& = _NEWIMAGE(YMAX, XMAX, 32)
43.             _MAPTRIANGLE (XMAX, 0)-(0, 0)-(0, YMAX), 0 TO(0, 0)-(0, XMAX)-(YMAX, XMAX), landscape&
44.             _MAPTRIANGLE (XMAX, 0)-(XMAX, YMAX)-(0, YMAX), 0 TO(0, 0)-(YMAX, 0)-(YMAX, XMAX), landscape&
45.             _PRINTIMAGE landscape&
46.             _DELAY 2
47.             landscape& = 0
48.             s& = j&
49.         END IF
50.     END IF
51. LOOP
52.  
53. saving:
54. CLS
55. PRINT "                       Saving"
56. PRINT
57. PRINT "         Your bmp file will be saved in the"
58. PRINT "         same directory as this program is."
59. PRINT "         It can be used with almost any"
60. PRINT "         other graphics program or website."
61. PRINT "         It is saved using:"
62. PRINT "         width: 800  height: 600 pixels."
63. PRINT
64. PRINT "         Type a name to save your picture"
65. PRINT "         and press the Enter key. Do not"
66. PRINT "         add .bmp at the end, the program"
67. PRINT "         will do it automatically."
68. PRINT
69. PRINT "         Example: MyPic"
70. PRINT "         Quit and Enter key ends program."
71. PRINT
72. INPUT "         ->"; nm$
73. IF nm$ = "Quit" OR nm$ = "quit" OR nm$ = "QUIT" THEN END
74. nm$ = nm$ + ".bmp"
75. 'Checking to see if the file already exists on your computer.
76. theFileExists = _FILEEXISTS(nm$)
77. IF theFileExists = -1 THEN
78.     PRINT
79.     PRINT "       File Already Exists"
80.     PRINT "       Saving will delete your old"
81.     PRINT "       bmp picture."
82.     PRINT "       Would you like to still do it?"
83.     PRINT "      (Y/N)."
84.     PRINT "      Esc goes to start screen."
85.     llloop:
86.     _LIMIT 100
87.     ag2$ = INKEY$
88.     IF ag2$ = CHR$(27) THEN GOTO start:
89.     IF ag2$ = "" THEN GOTO llloop:
90.     IF ag2$ = "y" OR ag$ = "Y" THEN
91.         SHELL _HIDE "DEL " + nm$
92.         GOTO saving2:
93.     END IF
94.     GOTO llloop:
95. END IF
96. saving2:
97. CLS
98. sav = 1
99. FOR snd = 100 TO 700 STEP 100
100.     SOUND snd, 2
101. NEXT snd
102. GOTO start:
103.  
104. 'Here is the SUB needed to save the image to BMP.
105. SUB SaveImage (image AS LONG, filename AS STRING)
106.     bytesperpixel& = _PIXELSIZE(image&)
107.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
108.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
109.     x& = _WIDTH(image&)
110.     y& = _HEIGHT(image&)
111.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
112.     IF bytesperpixel& = 1 THEN
113.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
114.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
115.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
116.         NEXT
117.     END IF
118.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
119.     lastsource& = _SOURCE
120.     _SOURCE image&
121.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
122.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
123.         r$ = ""
124.         FOR px& = 0 TO x& - 1
125.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
126.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
127.         NEXT px&
128.         d$ = d$ + r$ + padder$
129.     NEXT py&
130.     _SOURCE lastsource&
131.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
132.     b$ = b$ + d$ ' total file data bytes to create file
133.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
134.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
135.     f& = FREEFILE
136.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
137.     OPEN filename$ + ext$ FOR BINARY AS #f&
138.     PUT #f&, , b$
139.     CLOSE #f&
140. END SUB
141.  

[Virtusoroca]

I was just working in some maze algorithms! Definetly gona check this one :D

[bplus]

I am amazed how Ken finds simple work-a-rounds to usually more complex processes, this one is good case in point.

[SierraKen]

:) Thanks Bplus. When I don't have the math skills or programming experience, it's pretty much all I can do. lol But originality is what makes inventions too so that's what keeps me chugging along. :)

[SierraKen]

Virtusoroca, I would love to see your algorithms. Mine has none, just a grid and then random places it erases. I figure that if someone doesn't like the maze, they can keep pressing the Space Bar until they find one they like.

[SierraKen]

I spent all afternoon again on a new Maze Generator that is much better. All, or almost all of them are solvable and this one looks more like a maze than the others I've made. It doesn't calculate a solved path but what it does is first it makes neat looking random walls. Then it randomly opens up more walls so it can be solved. The funny thing is, I spent a lot more time on a different version that I had actually try to "crawl" around from bottom to top making paths, but that turned out to be a mess. lol I've read some of a Wikipedia page about making mazes with algorithms but that is a bit beyond my comprehension. So I hope you all enjoy this. Put it in its own folder so you can save them as .bmp pictures and look at anytime. This program can also print them on your printer. Tell me what you think. I made it look hard with many walls, but the mazes itself are fairly easy to finish. Start at any opening and end at any other opening. I suggest going from bottom to top. I included an example maze as an attachment. Oh also, if you send any maze made with this to someone else, or put online, please make sure it's solvable first, thanks. You can quickly make a new one by pressing the Space Bar. 

Code: QB64: [Select]

1. 'Maze Generator 5 - By SierraKen - June 9, 2020.
2. 'This Maze Generator does not calculate a solvable path to take but all or almost all of them are solvable.
3. 'So if you give one of these maze pictures to someone else, please make sure you can solve it first.
4. 'You can save them as .bmp pictures and/or print them on your printer.
5. 'Freeware.
6.  
7. _TITLE "Maze Generator 5 - Space Bar To Make Another Maze, (S)ave, (P)rint, Esc ends."
8. picture& = _NEWIMAGE(800, 600, 32)
9. start:
10. _LIMIT 200
11. CLS
12. s& = _NEWIMAGE(800, 600, 32)
13. SCREEN s&, picture&
14. PAINT (1, 1), _RGB32(255, 255, 255)
15. LINE (50, 50)-(725, 575), _RGB32(0, 0, 0), B
16. FOR x = 50 TO 710 STEP 10
17.     FOR y = 50 TO 560 STEP 10
18.         RANDOMIZE TIMER
19.         d = INT(RND * 2) + 1
20.         IF d = 1 THEN GOTO skip:
21.         LINE (x, y)-(x + 10, y), _RGB32(0, 0, 0)
22.         GOTO skip2:
23.         skip:
24.         LINE (x, y)-(x, y + 10), _RGB32(0, 0, 0)
25.         skip2:
26.     NEXT y
27. NEXT x
28. yy = 550
29. again:
30. RANDOMIZE TIMER
31. xx = INT(RND * 675) + 75
32. xx2 = INT(RND * 675) + 75
33. IF xx / 10 <> INT(xx / 10) THEN GOTO again:
34. LINE (xx, 575)-(xx + 10, 575), _RGB32(255, 255, 255)
35. LINE (xx2, 575)-(xx2 + 10, 575), _RGB32(255, 255, 255)
36. tt = INT(RND * 250) + 375
37. tt2 = INT(RND * 250) + 375
38. FOR xx3 = 1 TO tt
39.     more:
40.     xx4 = INT(RND * 650) + 50
41.     yy4 = INT(RND * 500) + 50
42.     IF xx4 / 10 <> INT(xx4 / 10) OR yy4 / 10 <> INT(yy4 / 10) THEN GOTO more:
43.     LINE (xx4, yy4)-(xx4 + 10, yy4), _RGB32(255, 255, 255)
44. NEXT xx3
45. FOR xx3 = 1 TO tt2
46.     more2:
47.     xx5 = INT(RND * 650) + 50
48.     yy5 = INT(RND * 500) + 50
49.     IF xx5 / 10 <> INT(xx5 / 10) OR yy5 / 10 <> INT(yy5 / 10) THEN GOTO more2:
50.     LINE (xx5, yy5)-(xx5, yy5 + 10), _RGB32(255, 255, 255)
51. NEXT xx3
52.  
53. _PUTIMAGE , s&, picture&
54. IF sav = 1 THEN SaveImage 0, nm$: sav = 0
55. DO
56.     a$ = INKEY$
57.     IF a$ = " " THEN GOTO start:
58.     IF a$ = "s" OR a$ = "S" THEN GOTO saving:
59.     IF a$ = CHR$(27) THEN END
60.     IF a$ = "p" OR a$ = "P" THEN
61.         j& = _COPYIMAGE(0)
62.         _DELAY .25
63.         INPUT "Print on printer (Y/N)?", i$ 'print screen page on printer
64.         CLS
65.         SCREEN j&
66.         _DELAY .25
67.         IF LEFT$(i$, 1) = "y" OR LEFT$(i$, 1) = "Y" THEN
68.             'printer prep (code copied and pasted from bplus Free Calendar Program)
69.             YMAX = _HEIGHT: XMAX = _WIDTH
70.             landscape& = _NEWIMAGE(YMAX, XMAX, 32)
71.             _MAPTRIANGLE (XMAX, 0)-(0, 0)-(0, YMAX), 0 TO(0, 0)-(0, XMAX)-(YMAX, XMAX), landscape&
72.             _MAPTRIANGLE (XMAX, 0)-(XMAX, YMAX)-(0, YMAX), 0 TO(0, 0)-(YMAX, 0)-(YMAX, XMAX), landscape&
73.             _PRINTIMAGE landscape&
74.             _DELAY 2
75.             landscape& = 0
76.             s& = j&
77.         END IF
78.     END IF
79. LOOP
80.  
81. saving:
82. CLS
83. PRINT "                       Saving"
84. PRINT
85. PRINT "         Your bmp file will be saved in the"
86. PRINT "         same directory as this program is."
87. PRINT "         It can be used with almost any"
88. PRINT "         other graphics program or website."
89. PRINT "         It is saved using:"
90. PRINT "         width: 800  height: 600 pixels."
91. PRINT
92. PRINT "         Type a name to save your picture"
93. PRINT "         and press the Enter key. Do not"
94. PRINT "         add .bmp at the end, the program"
95. PRINT "         will do it automatically."
96. PRINT
97. PRINT "         Example: MyPic"
98. PRINT "         Quit and Enter key ends program."
99. PRINT
100. INPUT "         ->"; nm$
101. IF nm$ = "Quit" OR nm$ = "quit" OR nm$ = "QUIT" THEN END
102. nm$ = nm$ + ".bmp"
103. 'Checking to see if the file already exists on your computer.
104. theFileExists = _FILEEXISTS(nm$)
105. IF theFileExists = -1 THEN
106.     PRINT
107.     PRINT "       File Already Exists"
108.     PRINT "       Saving will delete your old"
109.     PRINT "       bmp picture."
110.     PRINT "       Would you like to still do it?"
111.     PRINT "      (Y/N)."
112.     PRINT "      Esc goes to start screen."
113.     llloop:
114.     _LIMIT 100
115.     ag2$ = INKEY$
116.     IF ag2$ = CHR$(27) THEN GOTO start:
117.     IF ag2$ = "" THEN GOTO llloop:
118.     IF ag2$ = "y" OR ag$ = "Y" THEN
119.         SHELL _HIDE "DEL " + nm$
120.         GOTO saving2:
121.     END IF
122.     GOTO llloop:
123. END IF
124. saving2:
125. CLS
126. sav = 1
127. FOR snd = 100 TO 700 STEP 100
128.     SOUND snd, 2
129. NEXT snd
130. GOTO start:
131.  
132. 'Here is the SUB needed to save the image to BMP.
133. SUB SaveImage (image AS LONG, filename AS STRING)
134.     bytesperpixel& = _PIXELSIZE(image&)
135.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
136.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
137.     x& = _WIDTH(image&)
138.     y& = _HEIGHT(image&)
139.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
140.     IF bytesperpixel& = 1 THEN
141.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
142.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
143.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
144.         NEXT
145.     END IF
146.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
147.     lastsource& = _SOURCE
148.     _SOURCE image&
149.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
150.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
151.         r$ = ""
152.         FOR px& = 0 TO x& - 1
153.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
154.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
155.         NEXT px&
156.         d$ = d$ + r$ + padder$
157.     NEXT py&
158.     _SOURCE lastsource&
159.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
160.     b$ = b$ + d$ ' total file data bytes to create file
161.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
162.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
163.     f& = FREEFILE
164.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
165.     OPEN filename$ + ext$ FOR BINARY AS #f&
166.     PUT #f&, , b$
167.     CLOSE #f&
168. END SUB
169.  

[bplus]

Wow looking good.

Here is a tip:

Code: QB64: [Select]

1.         d = INT(RND * 2) + 1
2.         IF d = 1 THEN GOTO skip:
3.         LINE (x, y)-(x + 10, y), _RGB32(0, 0, 0)
4.         GOTO skip2:
5.         skip:
6.         LINE (x, y)-(x, y + 10), _RGB32(0, 0, 0)
7.         skip2:

is this:

Code: QB64: [Select]

1. d = INT(RND * 2) + 1
2. IF d = 1 THEN
3.     LINE (x, y)-(x + 10, y), _RGB32(0, 0, 0)
4. ELSE
5.     LINE (x, y)-(x, y + 10), _RGB32(0, 0, 0)
6. END IF
7.  
8. 'or just this
9.  
10. d = INT(RND * 2) + 1
11. IF d = 1 THEN LINE (x, y)-(x + 10, y), _RGB32(0, 0, 0) ELSE LINE (x, y)-(x, y + 10), _RGB32(0, 0, 0)
12.  

Oh try making lines a pixel longer to be rid of those tiny gaps. I assume you will be using POINT to detect wall collision in games?

[SierraKen]

Thanks Bplus! I changed it to what you said, it sure reduces some lines, thank you. I also fixed 2 minor problems in that the deleted vertical walls were making 1 pixel holes on the horizontal walls so I fixed that. I also made the maze line up in the center of the page (and bmp file and paper printout) better.
Here is the better version. Also included is another attachment maze.

Code: QB64: [Select]

1. 'Maze Generator 5 - By SierraKen - June 9, 2020.
2. 'This Maze Generator does not calculate a solvable path to take but all or almost all of them are solvable.
3. 'So if you give one of these maze pictures to someone else, please make sure you can solve it first.
4. 'You can save them as .bmp pictures and/or print them on your printer.
5. 'Freeware.
6.  
7. _TITLE "Maze Generator 5 - Space Bar To Make Another Maze, (S)ave, (P)rint, Esc ends."
8. picture& = _NEWIMAGE(800, 600, 32)
9. start:
10. _LIMIT 200
11. CLS
12. s& = _NEWIMAGE(800, 600, 32)
13. SCREEN s&, picture&
14. PAINT (1, 1), _RGB32(255, 255, 255)
15. LINE (50, 50)-(750, 575), _RGB32(0, 0, 0), B
16. FOR x = 50 TO 740 STEP 10
17.     FOR y = 50 TO 560 STEP 10
18.         RANDOMIZE TIMER
19.         d = INT(RND * 2) + 1
20.         IF d = 1 THEN LINE (x, y)-(x + 10, y), _RGB32(0, 0, 0) ELSE LINE (x, y)-(x, y + 10), _RGB32(0, 0, 0)
21.     NEXT y
22. NEXT x
23. yy = 550
24. again:
25. RANDOMIZE TIMER
26. xx = INT(RND * 675) + 75
27. xx2 = INT(RND * 675) + 75
28. IF xx / 10 <> INT(xx / 10) THEN GOTO again:
29. LINE (xx, 575)-(xx + 10, 575), _RGB32(255, 255, 255)
30. LINE (xx2, 575)-(xx2 + 10, 575), _RGB32(255, 255, 255)
31. tt = INT(RND * 250) + 375
32. tt2 = INT(RND * 250) + 375
33. FOR xx3 = 1 TO tt
34.     more:
35.     xx4 = INT(RND * 700) + 50
36.     yy4 = INT(RND * 500) + 50
37.     IF xx4 / 10 <> INT(xx4 / 10) OR yy4 / 10 <> INT(yy4 / 10) THEN GOTO more:
38.     LINE (xx4 + 1, yy4)-(xx4 + 9, yy4), _RGB32(255, 255, 255)
39. NEXT xx3
40. FOR xx3 = 1 TO tt2
41.     more2:
42.     xx5 = INT(RND * 700) + 50
43.     yy5 = INT(RND * 500) + 50
44.     IF xx5 / 10 <> INT(xx5 / 10) OR yy5 / 10 <> INT(yy5 / 10) THEN GOTO more2:
45.     LINE (xx5, yy5 + 1)-(xx5, yy5 + 9), _RGB32(255, 255, 255)
46. NEXT xx3
47.  
48. _PUTIMAGE , s&, picture&
49. IF sav = 1 THEN SaveImage 0, nm$: sav = 0
50. DO
51.     a$ = INKEY$
52.     IF a$ = " " THEN GOTO start:
53.     IF a$ = "s" OR a$ = "S" THEN GOTO saving:
54.     IF a$ = CHR$(27) THEN END
55.     IF a$ = "p" OR a$ = "P" THEN
56.         j& = _COPYIMAGE(0)
57.         _DELAY .25
58.         INPUT "Print on printer (Y/N)?", i$ 'print screen page on printer
59.         CLS
60.         SCREEN j&
61.         _DELAY .25
62.         IF LEFT$(i$, 1) = "y" OR LEFT$(i$, 1) = "Y" THEN
63.             'printer prep (code copied and pasted from bplus Free Calendar Program)
64.             YMAX = _HEIGHT: XMAX = _WIDTH
65.             landscape& = _NEWIMAGE(YMAX, XMAX, 32)
66.             _MAPTRIANGLE (XMAX, 0)-(0, 0)-(0, YMAX), 0 TO(0, 0)-(0, XMAX)-(YMAX, XMAX), landscape&
67.             _MAPTRIANGLE (XMAX, 0)-(XMAX, YMAX)-(0, YMAX), 0 TO(0, 0)-(YMAX, 0)-(YMAX, XMAX), landscape&
68.             _PRINTIMAGE landscape&
69.             _DELAY 2
70.             landscape& = 0
71.             s& = j&
72.         END IF
73.     END IF
74. LOOP
75.  
76. saving:
77. CLS
78. PRINT "                       Saving"
79. PRINT
80. PRINT "         Your bmp file will be saved in the"
81. PRINT "         same directory as this program is."
82. PRINT "         It can be used with almost any"
83. PRINT "         other graphics program or website."
84. PRINT "         It is saved using:"
85. PRINT "         width: 800  height: 600 pixels."
86. PRINT
87. PRINT "         Type a name to save your picture"
88. PRINT "         and press the Enter key. Do not"
89. PRINT "         add .bmp at the end, the program"
90. PRINT "         will do it automatically."
91. PRINT
92. PRINT "         Example: MyPic"
93. PRINT "         Quit and Enter key ends program."
94. PRINT
95. INPUT "         ->"; nm$
96. IF nm$ = "Quit" OR nm$ = "quit" OR nm$ = "QUIT" THEN END
97. nm$ = nm$ + ".bmp"
98. 'Checking to see if the file already exists on your computer.
99. theFileExists = _FILEEXISTS(nm$)
100. IF theFileExists = -1 THEN
101.     PRINT
102.     PRINT "       File Already Exists"
103.     PRINT "       Saving will delete your old"
104.     PRINT "       bmp picture."
105.     PRINT "       Would you like to still do it?"
106.     PRINT "      (Y/N)."
107.     PRINT "      Esc goes to start screen."
108.     llloop:
109.     _LIMIT 100
110.     ag2$ = INKEY$
111.     IF ag2$ = CHR$(27) THEN GOTO start:
112.     IF ag2$ = "" THEN GOTO llloop:
113.     IF ag2$ = "y" OR ag$ = "Y" THEN
114.         SHELL _HIDE "DEL " + nm$
115.         GOTO saving2:
116.     END IF
117.     GOTO llloop:
118. END IF
119. saving2:
120. CLS
121. sav = 1
122. FOR snd = 100 TO 700 STEP 100
123.     SOUND snd, 2
124. NEXT snd
125. GOTO start:
126.  
127. 'Here is the SUB needed to save the image to BMP.
128. SUB SaveImage (image AS LONG, filename AS STRING)
129.     bytesperpixel& = _PIXELSIZE(image&)
130.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
131.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
132.     x& = _WIDTH(image&)
133.     y& = _HEIGHT(image&)
134.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
135.     IF bytesperpixel& = 1 THEN
136.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
137.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
138.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
139.         NEXT
140.     END IF
141.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
142.     lastsource& = _SOURCE
143.     _SOURCE image&
144.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
145.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
146.         r$ = ""
147.         FOR px& = 0 TO x& - 1
148.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
149.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
150.         NEXT px&
151.         d$ = d$ + r$ + padder$
152.     NEXT py&
153.     _SOURCE lastsource&
154.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
155.     b$ = b$ + d$ ' total file data bytes to create file
156.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
157.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
158.     f& = FREEFILE
159.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
160.     OPEN filename$ + ext$ FOR BINARY AS #f&
161.     PUT #f&, , b$
162.     CLOSE #f&
163. END SUB
164.  

[bplus]

Huh? where are dots coming from?

Oh another tip, a repeated one, RANDOMIZE TIMER only needed once at the start of your code, really :)

[bplus]

Oh I bet you missed reading this:

Oh try making lines a pixel longer to be rid of those tiny gaps. I assume you will be using POINT to detect wall collision in games?

I added it on in edit, that might get rid of the dots.

[SierraKen]

Making the maze, I make a lot of random walls first. Then I delete a bunch of random ones. Deleting vertical ones were too long of white which were making 1 pixel holes on the horizontal ones, so I just reduced the size of the white ones. Yeah, I've always had a bad habit of making many Randomize Timers. I guess I thought that as the program went on, it needed to be more random LOL. I just took your advice and removed them and put one up near the top. Thanks, I'll try to remember that.

Code: QB64: [Select]

1. 'Maze Generator 5 - By SierraKen - June 9, 2020.
2. 'This Maze Generator does not calculate a solvable path to take but all or almost all of them are solvable.
3. 'So if you give one of these maze pictures to someone else, please make sure you can solve it first.
4. 'You can save them as .bmp pictures and/or print them on your printer.
5. 'Freeware.
6.  
7. _TITLE "Maze Generator 5 - Space Bar To Make Another Maze, (S)ave, (P)rint, Esc ends."
8. picture& = _NEWIMAGE(800, 600, 32)
9. start:
10. _LIMIT 200
11. CLS
12. RANDOMIZE TIMER
13. s& = _NEWIMAGE(800, 600, 32)
14. SCREEN s&, picture&
15. PAINT (1, 1), _RGB32(255, 255, 255)
16. LINE (50, 50)-(750, 575), _RGB32(0, 0, 0), B
17. FOR x = 50 TO 740 STEP 10
18.     FOR y = 50 TO 560 STEP 10
19.         d = INT(RND * 2) + 1
20.         IF d = 1 THEN LINE (x, y)-(x + 10, y), _RGB32(0, 0, 0) ELSE LINE (x, y)-(x, y + 10), _RGB32(0, 0, 0)
21.     NEXT y
22. NEXT x
23. yy = 550
24. again:
25. xx = INT(RND * 675) + 75
26. xx2 = INT(RND * 675) + 75
27. IF xx / 10 <> INT(xx / 10) THEN GOTO again:
28. LINE (xx, 575)-(xx + 10, 575), _RGB32(255, 255, 255)
29. LINE (xx2, 575)-(xx2 + 10, 575), _RGB32(255, 255, 255)
30. tt = INT(RND * 250) + 375
31. tt2 = INT(RND * 250) + 375
32. FOR xx3 = 1 TO tt
33.     more:
34.     xx4 = INT(RND * 700) + 50
35.     yy4 = INT(RND * 500) + 50
36.     IF xx4 / 10 <> INT(xx4 / 10) OR yy4 / 10 <> INT(yy4 / 10) THEN GOTO more:
37.     LINE (xx4 + 1, yy4)-(xx4 + 9, yy4), _RGB32(255, 255, 255)
38. NEXT xx3
39. FOR xx3 = 1 TO tt2
40.     more2:
41.     xx5 = INT(RND * 700) + 50
42.     yy5 = INT(RND * 500) + 50
43.     IF xx5 / 10 <> INT(xx5 / 10) OR yy5 / 10 <> INT(yy5 / 10) THEN GOTO more2:
44.     LINE (xx5, yy5 + 1)-(xx5, yy5 + 9), _RGB32(255, 255, 255)
45. NEXT xx3
46.  
47. _PUTIMAGE , s&, picture&
48. IF sav = 1 THEN SaveImage 0, nm$: sav = 0
49. DO
50.     a$ = INKEY$
51.     IF a$ = " " THEN GOTO start:
52.     IF a$ = "s" OR a$ = "S" THEN GOTO saving:
53.     IF a$ = CHR$(27) THEN END
54.     IF a$ = "p" OR a$ = "P" THEN
55.         j& = _COPYIMAGE(0)
56.         _DELAY .25
57.         INPUT "Print on printer (Y/N)?", i$ 'print screen page on printer
58.         CLS
59.         SCREEN j&
60.         _DELAY .25
61.         IF LEFT$(i$, 1) = "y" OR LEFT$(i$, 1) = "Y" THEN
62.             'printer prep (code copied and pasted from bplus Free Calendar Program)
63.             YMAX = _HEIGHT: XMAX = _WIDTH
64.             landscape& = _NEWIMAGE(YMAX, XMAX, 32)
65.             _MAPTRIANGLE (XMAX, 0)-(0, 0)-(0, YMAX), 0 TO(0, 0)-(0, XMAX)-(YMAX, XMAX), landscape&
66.             _MAPTRIANGLE (XMAX, 0)-(XMAX, YMAX)-(0, YMAX), 0 TO(0, 0)-(YMAX, 0)-(YMAX, XMAX), landscape&
67.             _PRINTIMAGE landscape&
68.             _DELAY 2
69.             landscape& = 0
70.             s& = j&
71.         END IF
72.     END IF
73. LOOP
74.  
75. saving:
76. CLS
77. PRINT "                       Saving"
78. PRINT
79. PRINT "         Your bmp file will be saved in the"
80. PRINT "         same directory as this program is."
81. PRINT "         It can be used with almost any"
82. PRINT "         other graphics program or website."
83. PRINT "         It is saved using:"
84. PRINT "         width: 800  height: 600 pixels."
85. PRINT
86. PRINT "         Type a name to save your picture"
87. PRINT "         and press the Enter key. Do not"
88. PRINT "         add .bmp at the end, the program"
89. PRINT "         will do it automatically."
90. PRINT
91. PRINT "         Example: MyPic"
92. PRINT "         Quit and Enter key ends program."
93. PRINT
94. INPUT "         ->"; nm$
95. IF nm$ = "Quit" OR nm$ = "quit" OR nm$ = "QUIT" THEN END
96. nm$ = nm$ + ".bmp"
97. 'Checking to see if the file already exists on your computer.
98. theFileExists = _FILEEXISTS(nm$)
99. IF theFileExists = -1 THEN
100.     PRINT
101.     PRINT "       File Already Exists"
102.     PRINT "       Saving will delete your old"
103.     PRINT "       bmp picture."
104.     PRINT "       Would you like to still do it?"
105.     PRINT "      (Y/N)."
106.     PRINT "      Esc goes to start screen."
107.     llloop:
108.     _LIMIT 100
109.     ag2$ = INKEY$
110.     IF ag2$ = CHR$(27) THEN GOTO start:
111.     IF ag2$ = "" THEN GOTO llloop:
112.     IF ag2$ = "y" OR ag$ = "Y" THEN
113.         SHELL _HIDE "DEL " + nm$
114.         GOTO saving2:
115.     END IF
116.     GOTO llloop:
117. END IF
118. saving2:
119. CLS
120. sav = 1
121. FOR snd = 100 TO 700 STEP 100
122.     SOUND snd, 2
123. NEXT snd
124. GOTO start:
125.  
126. 'Here is the SUB needed to save the image to BMP.
127. SUB SaveImage (image AS LONG, filename AS STRING)
128.     bytesperpixel& = _PIXELSIZE(image&)
129.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
130.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
131.     x& = _WIDTH(image&)
132.     y& = _HEIGHT(image&)
133.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
134.     IF bytesperpixel& = 1 THEN
135.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
136.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
137.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
138.         NEXT
139.     END IF
140.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
141.     lastsource& = _SOURCE
142.     _SOURCE image&
143.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
144.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
145.         r$ = ""
146.         FOR px& = 0 TO x& - 1
147.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
148.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
149.         NEXT px&
150.         d$ = d$ + r$ + padder$
151.     NEXT py&
152.     _SOURCE lastsource&
153.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
154.     b$ = b$ + d$ ' total file data bytes to create file
155.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
156.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
157.     f& = FREEFILE
158.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
159.     OPEN filename$ + ext$ FOR BINARY AS #f&
160.     PUT #f&, , b$
161.     CLOSE #f&
162. END SUB
163.  

[bplus]

Oh hey, I was walking dog and realized making wall lines longer wasn't going to work.

So you already figured to make wall erasers shorter good! But that still leaves us with the dots when walls erased all the way around.

There is a way to make a dot eraser: check every place walls intersect and use point() 1 pixel above&below, 1 pixel left&right of those places, if they are all white then make the center location white.

[Virtusoroca]

@SierraKen um trying to code the backtrack algorithm. I have little training in math but quite a bit in data arrays. If yoi want to give it a try, look at this video:

. The guy works in C but the best part is in the logical steps. As soon as I finsh my experiment I get back to you.

[bplus]

Oh man I ran into that guy explaining 3D code engines, 3D something or other.

Heck I can give you the algorithm, I have already posted with notes on using for Ken, but Ken sorta has to do things his own way :)

https://www.qb64.org/forum/index.php?topic=1680.msg109160#msg109160

[SierraKen]

Thanks :) Here's another update. I now have it delete the dots for this version.
I'll check out what you posted before Bplus. But for now here is this one.

Code: QB64: [Select]

1. 'Maze Generator 5 - By SierraKen - June 9, 2020.
2. 'This Maze Generator does not calculate a solvable path to take but all or almost all of them are solvable.
3. 'So if you give one of these maze pictures to someone else, please make sure you can solve it first.
4. 'You can save them as .bmp pictures and/or print them on your printer.
5. 'Freeware.
6.  
7. _TITLE "Maze Generator 5 - Space Bar To Make Another Maze, (S)ave, (P)rint, Esc ends."
8. picture& = _NEWIMAGE(800, 600, 32)
9. start:
10. _LIMIT 200
11. CLS
12. RANDOMIZE TIMER
13. s& = _NEWIMAGE(800, 600, 32)
14. SCREEN s&, picture&
15. PAINT (1, 1), _RGB32(255, 255, 255)
16. LINE (50, 50)-(750, 575), _RGB32(0, 0, 0), B
17. FOR x = 50 TO 740 STEP 10
18.     FOR y = 50 TO 560 STEP 10
19.         d = INT(RND * 2) + 1
20.         IF d = 1 THEN LINE (x, y)-(x + 10, y), _RGB32(0, 0, 0) ELSE LINE (x, y)-(x, y + 10), _RGB32(0, 0, 0)
21.     NEXT y
22. NEXT x
23. yy = 550
24. again:
25. xx = INT(RND * 675) + 75
26. xx2 = INT(RND * 675) + 75
27. IF xx / 10 <> INT(xx / 10) THEN GOTO again:
28. LINE (xx, 575)-(xx + 10, 575), _RGB32(255, 255, 255)
29. LINE (xx2, 575)-(xx2 + 10, 575), _RGB32(255, 255, 255)
30. tt = INT(RND * 250) + 375
31. tt2 = INT(RND * 250) + 375
32. FOR xx3 = 1 TO tt
33.     more:
34.     xx4 = INT(RND * 700) + 50
35.     yy4 = INT(RND * 500) + 50
36.     IF xx4 / 10 <> INT(xx4 / 10) OR yy4 / 10 <> INT(yy4 / 10) THEN GOTO more:
37.     LINE (xx4 + 1, yy4)-(xx4 + 9, yy4), _RGB32(255, 255, 255)
38. NEXT xx3
39. FOR xx3 = 1 TO tt2
40.     more2:
41.     xx5 = INT(RND * 700) + 50
42.     yy5 = INT(RND * 500) + 50
43.     IF xx5 / 10 <> INT(xx5 / 10) OR yy5 / 10 <> INT(yy5 / 10) THEN GOTO more2:
44.     LINE (xx5, yy5 + 1)-(xx5, yy5 + 9), _RGB32(255, 255, 255)
45. NEXT xx3
46. FOR checkx = 50 TO 750
47.     FOR checky = 50 TO 575
48.         IF POINT(checkx, checky) = _RGB32(0, 0, 0) AND POINT(checkx + 1, checky) = _RGB32(255, 255, 255) AND POINT(checkx, checky + 1) = _RGB32(255, 255, 255) AND POINT(checkx - 1, checky) = _RGB32(255, 255, 255) AND POINT(checkx, checky - 1) = _RGB32(255, 255, 255) THEN PSET (checkx, checky), _RGB32(255, 255, 255)
49.     NEXT checky
50. NEXT checkx
51.  
52.  
53. _PUTIMAGE , s&, picture&
54. IF sav = 1 THEN SaveImage 0, nm$: sav = 0
55. DO
56.     a$ = INKEY$
57.     IF a$ = " " THEN GOTO start:
58.     IF a$ = "s" OR a$ = "S" THEN GOTO saving:
59.     IF a$ = CHR$(27) THEN END
60.     IF a$ = "p" OR a$ = "P" THEN
61.         j& = _COPYIMAGE(0)
62.         _DELAY .25
63.         INPUT "Print on printer (Y/N)?", i$ 'print screen page on printer
64.         CLS
65.         SCREEN j&
66.         _DELAY .25
67.         IF LEFT$(i$, 1) = "y" OR LEFT$(i$, 1) = "Y" THEN
68.             'printer prep (code copied and pasted from bplus Free Calendar Program)
69.             YMAX = _HEIGHT: XMAX = _WIDTH
70.             landscape& = _NEWIMAGE(YMAX, XMAX, 32)
71.             _MAPTRIANGLE (XMAX, 0)-(0, 0)-(0, YMAX), 0 TO(0, 0)-(0, XMAX)-(YMAX, XMAX), landscape&
72.             _MAPTRIANGLE (XMAX, 0)-(XMAX, YMAX)-(0, YMAX), 0 TO(0, 0)-(YMAX, 0)-(YMAX, XMAX), landscape&
73.             _PRINTIMAGE landscape&
74.             _DELAY 2
75.             landscape& = 0
76.             s& = j&
77.         END IF
78.     END IF
79. LOOP
80.  
81. saving:
82. CLS
83. PRINT "                       Saving"
84. PRINT
85. PRINT "         Your bmp file will be saved in the"
86. PRINT "         same directory as this program is."
87. PRINT "         It can be used with almost any"
88. PRINT "         other graphics program or website."
89. PRINT "         It is saved using:"
90. PRINT "         width: 800  height: 600 pixels."
91. PRINT
92. PRINT "         Type a name to save your picture"
93. PRINT "         and press the Enter key. Do not"
94. PRINT "         add .bmp at the end, the program"
95. PRINT "         will do it automatically."
96. PRINT
97. PRINT "         Example: MyPic"
98. PRINT "         Quit and Enter key ends program."
99. PRINT
100. INPUT "         ->"; nm$
101. IF nm$ = "Quit" OR nm$ = "quit" OR nm$ = "QUIT" THEN END
102. nm$ = nm$ + ".bmp"
103. 'Checking to see if the file already exists on your computer.
104. theFileExists = _FILEEXISTS(nm$)
105. IF theFileExists = -1 THEN
106.     PRINT
107.     PRINT "       File Already Exists"
108.     PRINT "       Saving will delete your old"
109.     PRINT "       bmp picture."
110.     PRINT "       Would you like to still do it?"
111.     PRINT "      (Y/N)."
112.     PRINT "      Esc goes to start screen."
113.     llloop:
114.     _LIMIT 100
115.     ag2$ = INKEY$
116.     IF ag2$ = CHR$(27) THEN GOTO start:
117.     IF ag2$ = "" THEN GOTO llloop:
118.     IF ag2$ = "y" OR ag$ = "Y" THEN
119.         SHELL _HIDE "DEL " + nm$
120.         GOTO saving2:
121.     END IF
122.     GOTO llloop:
123. END IF
124. saving2:
125. CLS
126. sav = 1
127. FOR snd = 100 TO 700 STEP 100
128.     SOUND snd, 2
129. NEXT snd
130. GOTO start:
131.  
132. 'Here is the SUB needed to save the image to BMP.
133. SUB SaveImage (image AS LONG, filename AS STRING)
134.     bytesperpixel& = _PIXELSIZE(image&)
135.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
136.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
137.     x& = _WIDTH(image&)
138.     y& = _HEIGHT(image&)
139.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
140.     IF bytesperpixel& = 1 THEN
141.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
142.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
143.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
144.         NEXT
145.     END IF
146.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
147.     lastsource& = _SOURCE
148.     _SOURCE image&
149.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
150.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
151.         r$ = ""
152.         FOR px& = 0 TO x& - 1
153.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
154.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
155.         NEXT px&
156.         d$ = d$ + r$ + padder$
157.     NEXT py&
158.     _SOURCE lastsource&
159.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
160.     b$ = b$ + d$ ' total file data bytes to create file
161.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
162.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
163.     f& = FREEFILE
164.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
165.     OPEN filename$ + ext$ FOR BINARY AS #f&
166.     PUT #f&, , b$
167.     CLOSE #f&
168. END SUB
169.