Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on June 09, 2020, 01:00:27 am

Title: Maze Generator
Post by: SierraKen on June 09, 2020, 01:00:27 am
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
  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)
  13. FOR y = 50 TO 550 STEP 25
  14.     LINE (50, y)-(750, y), _RGB32(0, 0, 0)
  16. FOR tt = 1 TO 100000
  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
  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
  52.  
  53. saving:
  55. PRINT "                       Saving"
  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."
  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."
  69. PRINT "         Example: MyPic"
  70. PRINT "         Quit and Enter key ends program."
  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:
  96. saving2:
  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&
  141.  
Title: Re: Maze Generator
Post by: Virtusoroca on June 09, 2020, 03:28:38 am
I was just working in some maze algorithms! Definetly gona check this one :D
Title: Re: Maze Generator
Post by: bplus on June 09, 2020, 11:42:27 am
I am amazed how Ken finds simple work-a-rounds to usually more complex processes, this one is good case in point.
Title: Re: Maze Generator
Post by: SierraKen on June 09, 2020, 11:47:15 am
:) 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. :)
Title: Re: Maze Generator
Post by: SierraKen on June 09, 2020, 11:48:39 am
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.
Title: Re: Maze Generator
Post by: SierraKen on June 09, 2020, 08:48:00 pm
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
  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
  28. yy = 550
  29. again:
  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
  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
  80.  
  81. saving:
  83. PRINT "                       Saving"
  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."
  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."
  97. PRINT "         Example: MyPic"
  98. PRINT "         Quit and Enter key ends program."
  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:
  124. saving2:
  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&
  169.  





Title: Re: Maze Generator
Post by: bplus on June 09, 2020, 09:02:39 pm
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)
  5.     LINE (x, y)-(x, y + 10), _RGB32(0, 0, 0)
  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?
Title: Re: Maze Generator
Post by: SierraKen on June 09, 2020, 09:13:49 pm
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
  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
  23. yy = 550
  24. again:
  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
  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
  75.  
  76. saving:
  78. PRINT "                       Saving"
  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."
  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."
  92. PRINT "         Example: MyPic"
  93. PRINT "         Quit and Enter key ends program."
  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:
  119. saving2:
  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&
  164.  
Title: Re: Maze Generator
Post by: bplus on June 09, 2020, 09:16:59 pm
Huh? where are dots coming from?

Oh another tip, a repeated one, RANDOMIZE TIMER only needed once at the start of your code, really :)
Title: Re: Maze Generator
Post by: bplus on June 09, 2020, 09:21:36 pm
Oh I bet you missed reading this:
Quote
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.
Title: Re: Maze Generator
Post by: SierraKen on June 09, 2020, 09:25:23 pm
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
  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
  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
  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
  74.  
  75. saving:
  77. PRINT "                       Saving"
  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."
  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."
  91. PRINT "         Example: MyPic"
  92. PRINT "         Quit and Enter key ends program."
  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:
  118. saving2:
  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&
  163.  
Title: Re: Maze Generator
Post by: bplus on June 09, 2020, 09:55:18 pm
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.
Title: Re: Maze Generator
Post by: Virtusoroca on June 09, 2020, 09:57:51 pm
@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.
Title: Re: Maze Generator
Post by: bplus on June 09, 2020, 10:20:36 pm
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
Title: Re: Maze Generator
Post by: SierraKen on June 09, 2020, 10:42:52 pm
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
  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
  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
  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
  80.  
  81. saving:
  83. PRINT "                       Saving"
  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."
  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."
  97. PRINT "         Example: MyPic"
  98. PRINT "         Quit and Enter key ends program."
  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:
  124. saving2:
  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&
  169.  
Title: Re: Maze Generator
Post by: bplus on June 09, 2020, 10:48:07 pm
There it is! What did you do to get rid of dots?
Title: Re: Maze Generator
Post by: SierraKen on June 10, 2020, 12:13:11 am
I did what you said mostly and just made a double loop. :)

Code: QB64: [Select]
  1. FOR checkx = 50 TO 750
  2.     FOR checky = 50 TO 575
  3.         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)
  4.     NEXT checky
  5. NEXT checkx
  6.  
Title: Re: Maze Generator
Post by: Virtusoroca on June 10, 2020, 12:22:37 am
@bplus thanks for the link regarding mazes. Im going to look into it for sure. Working in text mode here, so there is always some different trick to explore. ;)
Title: Re: Maze Generator
Post by: bplus on June 10, 2020, 09:59:17 am
@SierraKen ha! I skimmed over your code too quickly glad the 4 points worked.

@Virtusoroca yeah, I don't know if I could have figured out maze building on my own, nice that every cell is accessible to every other cell, it might be a little better if one could do the maze with one array instead of 2. I have worked out some pathfinder code to find shortest route from one cell to another.
Title: Re: Maze Generator
Post by: Virtusoroca on June 10, 2020, 10:11:34 am
@bplus great! I will look for it in you maze game. Downloaded it yesterday. Ive looked up some pathfinding algorithms. After the backtrack for the maze I will probably start with the wave propagation (Dijkstra's algorithm) for the pathfinding. A* algorithm seems to be a more complex implementation to me.
Title: Re: Maze Generator
Post by: bplus on June 10, 2020, 10:20:45 am
Quote from: Virtusoroca on June 10, 2020, 10:11:34 am
@bplus great! I will look for it in you maze game. Downloaded it yesterday. Ive looked up some pathfinding algorithms. After the backtrack for the maze I will probably start with the wave propagation (Dijkstra's algorithm) for the pathfinding. A* algorithm seems to be a more complex implementation to me.

Yeah I started by reading about A* someone else posted about and then went my own way here:
B+ Pathfinder is a sort of study
https://www.qb64.org/forum/index.php?topic=410.msg2878#msg2878

Later I did some code for running a mouse through a maze and later a Smart snake for the Classic Snake Game.
Text Only | Text with Attachments