Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on September 13, 2020, 03:15:13 am

Title: Cave Map Maker
Post by: SierraKen on September 13, 2020, 03:15:13 am
This is for people that play roll playing games that use caves, or paths, or whatever and need a completely random map grid. Making it was a challenge but I knew I could do it. It has some A.I. in the fact that it starts out making the START and FINISH areas first, then it generates different caves (or paths) starting from the START area and eventually ending up at the FINISH area. It usually takes a few different paths in order to make the right way to go, which I figured would make your roll playing game more challenging and fun anyway. I haven't added a Save feature, not sure if I will or not, but I did add a Print feature to print it on your printer. When the Title Bar says "Press Space Bar for another one, P to Print, C to copy to Clipboard, or Esc to Quit," that means it is finished generating that one. Usually it only takes a few seconds or less. Once in awhile it only needs one direct cave that goes straight to it. The A.I. points the cave(s) toward the FINISH but not on every turn. I also just added C to copy the image to the Clipboard so you can paste it to any graphics program you have to save or change it. If you don't like the map it makes, when it's done making it, press the Space Bar for another one. It's almost limitless on how many different maps it can make.
Tell me what you think, thanks.

The grid is 800 x 800 with 35 x 35 cells (20 pixels x 20 pixels per cell). It is a white background with black lines so it's printer-friendly and takes up almost an entire page printing it.

Code: QB64: [Select]
  1. 'Cave Map Maker by SierraKen
  2. '9-13-2020
  3. 'Each cell is 20 pixels x 20 pixels.
  4. start:
  5. _TITLE "Cave Map Maker"
  7. picture& = _NEWIMAGE(800, 800, 32)
  8. SCREEN picture&
  9. PAINT (2, 2), _RGB32(255, 255, 255)
  10. LINE (50, 50)-(750, 750), _RGB32(0, 0, 0), B
  12. 'Start Location
  13. startlocation:
  14. stx = INT(RND * 650)
  15. IF stx / 20 <> INT(stx / 20) THEN GOTO startlocation:
  16. stx = stx + 70
  17. LINE (stx, 750)-(stx + 20, 750), _RGB32(255, 255, 255)
  18. 'End Location
  19. endlocation:
  20. endx = INT(RND * 650)
  21. IF endx / 20 <> INT(endx / 20) THEN GOTO endlocation:
  22. endx = endx + 70
  23. LINE (endx, 50)-(endx + 20, 50), _RGB32(255, 255, 255)
  24. 'Make Grid
  25. FOR x = 70 TO 730 STEP 20
  26.     LINE (x, 50)-(x, 750), _RGB32(0, 0, 0)
  28. FOR y = 70 TO 730 STEP 20
  29.     LINE (50, y)-(750, y), _RGB32(0, 0, 0)
  31. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 255)
  32. _PRINTSTRING (stx - 10, 760), "START"
  33. _PRINTSTRING (endx - 10, 30), "FINISH"
  34.  
  35. start2:
  36. x = stx
  37. y = 750
  38. 'Make Paths
  40.     _LIMIT 500
  41.     direction:
  42.     olddir = dir
  43.     dir = INT(RND * 35) + 1
  44.     tt = tt + 1
  45.     IF tt = 5 THEN
  46.         tt = 0
  47.         IF x > endx THEN
  48.             LINE (x, y)-(x, y - 20), _RGB32(255, 255, 255)
  49.             x = x - 20
  50.         END IF
  51.         IF x < endx THEN
  52.             LINE (x + 20, y)-(x + 20, y - 20), _RGB32(255, 255, 255)
  53.             x = x + 20
  54.         END IF
  55.     END IF
  56.     IF dir > 0 AND dir < 10 THEN LINE (x, y)-(x, y - 20), _RGB32(255, 255, 255): x = x - 20: GOSUB check:
  57.     IF dir >= 10 AND dir <= 20 THEN LINE (x + 20, y)-(x + 20, y - 20), _RGB32(255, 255, 255): x = x + 20: GOSUB check:
  58.     IF dir > 20 AND dir <= 30 THEN LINE (x, y - 20)-(x + 20, y - 20), _RGB32(255, 255, 255): y = y - 20: GOSUB check:
  59.     IF dir > 30 THEN LINE (x, y)-(x + 20, y), _RGB32(255, 255, 255): y = y + 20: GOSUB check:
  60.     IF x = endx AND y - 20 = 50 THEN GOTO again:
  62.  
  63. check:
  64. t = t + 1
  65. IF x < 70 THEN x = x + 20: RETURN
  66. IF x > 720 THEN x = x - 20: RETURN
  67. IF x = endx AND y = 70 THEN GOTO again:
  68. IF y <= 70 AND x <> endx THEN GOTO start2:
  69. IF y > 730 THEN y = 730: LINE (x, y)-(x + 20, y), _RGB32(255, 255, 255): RETURN
  71.  
  72. again:
  74. _TITLE "Press Space Bar for another one, P to Print, C to copy to Clipboard, or Esc to Quit."
  75. a$ = INKEY$
  76. IF a$ = " " THEN t = 0: dir = 0: GOTO start:
  77. IF a$ = CHR$(27) THEN END
  78. IF a$ = "p" OR a$ = "P" THEN GOSUB printing:
  79. IF a$ = "c" OR a$ = "C" THEN _CLIPBOARDIMAGE = picture&
  80. GOTO again:
  81.  
  82. printing:
  83. picture2& = _COPYIMAGE(0)
  84. _PRINTIMAGE picture2&
  86. _FREEIMAGE picture2&
  88.  
Title: Re: Cave Map Maker
Post by: SierraKen on September 13, 2020, 05:02:59 pm
Here's one that goes a tiny bit more directly there with less caves.

Code: QB64: [Select]
  1. 'Cave Map Maker by SierraKen
  2. '9-13-2020
  3. 'Each cell is 20 pixels x 20 pixels.
  4. start:
  5. _TITLE "Cave Map Maker"
  7. picture& = _NEWIMAGE(800, 800, 32)
  8. SCREEN picture&
  9. PAINT (2, 2), _RGB32(255, 255, 255)
  10. LINE (50, 50)-(750, 750), _RGB32(0, 0, 0), B
  12. 'Start Location
  13. startlocation:
  14. stx = INT(RND * 650)
  15. IF stx / 20 <> INT(stx / 20) THEN GOTO startlocation:
  16. stx = stx + 70
  17. LINE (stx, 750)-(stx + 20, 750), _RGB32(255, 255, 255)
  18. 'End Location
  19. endlocation:
  20. endx = INT(RND * 650)
  21. IF endx / 20 <> INT(endx / 20) THEN GOTO endlocation:
  22. endx = endx + 70
  23. LINE (endx, 50)-(endx + 20, 50), _RGB32(255, 255, 255)
  24. 'Make Grid
  25. FOR x = 70 TO 730 STEP 20
  26.     LINE (x, 50)-(x, 750), _RGB32(0, 0, 0)
  28. FOR y = 70 TO 730 STEP 20
  29.     LINE (50, y)-(750, y), _RGB32(0, 0, 0)
  31. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 255)
  32. _PRINTSTRING (stx - 10, 760), "START"
  33. _PRINTSTRING (endx - 10, 30), "FINISH"
  34.  
  35. start2:
  36. x = stx
  37. y = 750
  38. 'Make Paths
  40.     _LIMIT 500
  41.     direction:
  42.     olddir = dir
  43.     dir = INT(RND * 35) + 1
  44.     tt = tt + 1
  45.     IF tt = 3 THEN
  46.         tt = 0
  47.         IF x > endx THEN
  48.             LINE (x, y)-(x, y - 20), _RGB32(255, 255, 255)
  49.             x = x - 20
  50.         END IF
  51.         IF x < endx THEN
  52.             LINE (x + 20, y)-(x + 20, y - 20), _RGB32(255, 255, 255)
  53.             x = x + 20
  54.         END IF
  55.     END IF
  56.     IF dir > 0 AND dir < 10 THEN LINE (x, y)-(x, y - 20), _RGB32(255, 255, 255): x = x - 20: GOSUB check:
  57.     IF dir >= 10 AND dir <= 20 THEN LINE (x + 20, y)-(x + 20, y - 20), _RGB32(255, 255, 255): x = x + 20: GOSUB check:
  58.     IF dir > 20 AND dir <= 30 THEN LINE (x, y - 20)-(x + 20, y - 20), _RGB32(255, 255, 255): y = y - 20: GOSUB check:
  59.     IF dir > 30 THEN LINE (x, y)-(x + 20, y), _RGB32(255, 255, 255): y = y + 20: GOSUB check:
  60.     IF x = endx AND y - 20 = 50 THEN GOTO again:
  62.  
  63. check:
  64. t = t + 1
  65. IF x < 70 THEN x = x + 20: RETURN
  66. IF x > 720 THEN x = x - 20: RETURN
  67. IF x = endx AND y = 70 THEN GOTO again:
  68. IF y <= 70 AND x <> endx THEN GOTO start2:
  69. IF y > 730 THEN y = 730: LINE (x, y)-(x + 20, y), _RGB32(255, 255, 255): RETURN
  71.  
  72. again:
  74. _TITLE "Press Space Bar for another one, P to Print, C to copy to Clipboard, or Esc to Quit."
  75. a$ = INKEY$
  76. IF a$ = " " THEN t = 0: dir = 0: GOTO start:
  77. IF a$ = CHR$(27) THEN END
  78. IF a$ = "p" OR a$ = "P" THEN GOSUB printing:
  79. IF a$ = "c" OR a$ = "C" THEN _CLIPBOARDIMAGE = picture&
  80. GOTO again:
  81.  
  82. printing:
  83. picture2& = _COPYIMAGE(0)
  84. _PRINTIMAGE picture2&
  86. _FREEIMAGE picture2&
  88.  
Title: Re: Cave Map Maker
Post by: SierraKen on September 13, 2020, 05:22:58 pm
Here's one that goes almost completely directly from START to FINISH. Which would be totally cool for even adding to a computer game. This one also only needs one cave per map. I added an example picture of what this makes below.

Code: QB64: [Select]
  1. 'Cave Map Maker by SierraKen
  2. '9-13-2020
  3. 'Each cell is 20 pixels x 20 pixels.
  4. start:
  5. _TITLE "Cave Map Maker"
  7. picture& = _NEWIMAGE(800, 800, 32)
  8. SCREEN picture&
  9. PAINT (2, 2), _RGB32(255, 255, 255)
  10. LINE (50, 50)-(750, 750), _RGB32(0, 0, 0), B
  12. 'Start Location
  13. startlocation:
  14. stx = INT(RND * 650)
  15. IF stx / 20 <> INT(stx / 20) THEN GOTO startlocation:
  16. stx = stx + 70
  17. LINE (stx, 750)-(stx + 20, 750), _RGB32(255, 255, 255)
  18. 'End Location
  19. endlocation:
  20. endx = INT(RND * 650)
  21. IF endx / 20 <> INT(endx / 20) THEN GOTO endlocation:
  22. endx = endx + 70
  23. LINE (endx, 50)-(endx + 20, 50), _RGB32(255, 255, 255)
  24. 'Make Grid
  25. FOR x = 70 TO 730 STEP 20
  26.     LINE (x, 50)-(x, 750), _RGB32(0, 0, 0)
  28. FOR y = 70 TO 730 STEP 20
  29.     LINE (50, y)-(750, y), _RGB32(0, 0, 0)
  31. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 255)
  32. _PRINTSTRING (stx - 10, 760), "START"
  33. _PRINTSTRING (endx - 10, 30), "FINISH"
  34.  
  35. start2:
  36. x = stx
  37. y = 750
  38. 'Make Paths
  40.     _LIMIT 500
  41.     direction:
  42.     olddir = dir
  43.     dir = INT(RND * 35) + 1
  44.     tt = tt + 1
  45.     IF tt = 10 THEN
  46.         tt = 0
  47.         IF x > endx THEN
  48.             LINE (x, y)-(x, y - 20), _RGB32(255, 255, 255)
  49.             x = x - 20
  50.         END IF
  51.         IF x < endx THEN
  52.             LINE (x + 20, y)-(x + 20, y - 20), _RGB32(255, 255, 255)
  53.             x = x + 20
  54.         END IF
  55.     END IF
  56.     IF dir > 0 AND dir < 10 THEN LINE (x, y)-(x, y - 20), _RGB32(255, 255, 255): x = x - 20: GOSUB check:
  57.     IF dir >= 10 AND dir <= 20 THEN LINE (x + 20, y)-(x + 20, y - 20), _RGB32(255, 255, 255): x = x + 20: GOSUB check:
  58.     IF dir > 20 AND dir <= 30 THEN LINE (x, y - 20)-(x + 20, y - 20), _RGB32(255, 255, 255): y = y - 20: GOSUB check:
  59.     IF dir > 30 THEN LINE (x, y)-(x + 20, y), _RGB32(255, 255, 255): y = y + 20: GOSUB check:
  60.     IF x = endx AND y - 20 = 50 THEN GOTO again:
  62.  
  63. check:
  64. t = t + 1
  65. IF x < 70 THEN x = x + 20: RETURN
  66. IF x > 720 THEN x = x - 20: RETURN
  67. IF x = endx AND y = 70 THEN GOTO again:
  68. IF y <= 70 AND x <> endx THEN y = y + 20: RETURN
  69. IF y > 730 THEN y = 730: LINE (x, y)-(x + 20, y), _RGB32(255, 255, 255): RETURN
  71.  
  72. again:
  74. _TITLE "Press Space Bar for another one, P to Print, C to copy to Clipboard, or Esc to Quit."
  75. a$ = INKEY$
  76. IF a$ = " " THEN t = 0: dir = 0: GOTO start:
  77. IF a$ = CHR$(27) THEN END
  78. IF a$ = "p" OR a$ = "P" THEN GOSUB printing:
  79. IF a$ = "c" OR a$ = "C" THEN _CLIPBOARDIMAGE = picture&
  80. GOTO again:
  81.  
  82. printing:
  83. picture2& = _COPYIMAGE(0)
  84. _PRINTIMAGE picture2&
  86. _FREEIMAGE picture2&
  88.  

Title: Re: Cave Map Maker
Post by: SierraKen on September 13, 2020, 06:47:09 pm
And then of course I HAD to make the crazy maze version. I've made similar maze generators in the past but this is the first time every single one of them have a way out. If people used this as a roll playing map, it might take TONS of time to get through it. LOL There is a picture below.

Code: QB64: [Select]
  1. 'Cave Map Maker by SierraKen
  2. '9-13-2020
  3. 'Each cell is 20 pixels x 20 pixels.
  4. start:
  5. _TITLE "Cave Map Maker"
  7. picture& = _NEWIMAGE(800, 800, 32)
  8. SCREEN picture&
  9. PAINT (2, 2), _RGB32(255, 255, 255)
  10. LINE (50, 50)-(750, 750), _RGB32(0, 0, 0), B
  12. 'Start Location
  13. startlocation:
  14. stx = INT(RND * 650)
  15. IF stx / 20 <> INT(stx / 20) THEN GOTO startlocation:
  16. stx = stx + 70
  17. LINE (stx, 750)-(stx + 20, 750), _RGB32(255, 255, 255)
  18. 'End Location
  19. endlocation:
  20. endx = INT(RND * 650)
  21. IF endx / 20 <> INT(endx / 20) THEN GOTO endlocation:
  22. endx = endx + 70
  23. LINE (endx, 50)-(endx + 20, 50), _RGB32(255, 255, 255)
  24. 'Make Grid
  25. FOR x = 70 TO 730 STEP 20
  26.     LINE (x, 50)-(x, 750), _RGB32(0, 0, 0)
  28. FOR y = 70 TO 730 STEP 20
  29.     LINE (50, y)-(750, y), _RGB32(0, 0, 0)
  31. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 255)
  32. _PRINTSTRING (stx - 10, 760), "START"
  33. _PRINTSTRING (endx - 10, 30), "FINISH"
  34.  
  35. start2:
  36. x = stx
  37. y = 750
  38. 'Make Paths
  39. _LIMIT 500
  41.     direction:
  42.     dir = INT(RND * 35) + 1
  43.     tt = tt + 1
  44.     IF tt = 8 THEN
  45.         tt = 0
  46.         IF x > endx THEN
  47.             LINE (x, y)-(x, y - 20), _RGB32(255, 255, 255)
  48.             x = x - 20
  49.         END IF
  50.         IF x < endx THEN
  51.             LINE (x + 20, y)-(x + 20, y - 20), _RGB32(255, 255, 255)
  52.             x = x + 20
  53.         END IF
  54.     END IF
  55.     IF dir > 0 AND dir < 10 THEN LINE (x, y)-(x, y - 20), _RGB32(255, 255, 255): x = x - 20: GOSUB check:
  56.     IF dir >= 10 AND dir <= 20 THEN LINE (x + 20, y)-(x + 20, y - 20), _RGB32(255, 255, 255): x = x + 20: GOSUB check:
  57.     IF dir > 20 AND dir <= 30 THEN LINE (x, y - 20)-(x + 20, y - 20), _RGB32(255, 255, 255): y = y - 20: GOSUB check:
  58.     IF dir > 30 THEN LINE (x, y)-(x + 20, y), _RGB32(255, 255, 255): y = y + 20: GOSUB check:
  59.     IF x = endx AND y - 20 = 50 THEN GOTO more:
  60.  
  62.  
  63. check:
  64. IF x < 70 THEN x = x + 20: RETURN
  65. IF x > 720 THEN x = x - 20: RETURN
  66. IF x = endx AND y = 70 THEN GOTO more:
  67. IF y <= 70 AND x <> endx THEN y = y + 20: RETURN
  68. IF y > 730 THEN y = 730: LINE (x, y)-(x + 20, y), _RGB32(255, 255, 255): RETURN
  70.  
  71. more:
  72. cells = INT(RND * 300) + 1000
  73. FOR cell = 1 TO cells
  74.     calc:
  75.     x2 = INT(RND * 680) + 70
  76.     y2 = INT(RND * 780) + 70
  77.     IF x2 / 20 <> INT(x2 / 20) THEN GOTO calc:
  78.     IF y2 / 20 <> INT(y2 / 20) THEN GOTO calc:
  79.     x2 = x2 + 10
  80.     y2 = y2 - 10
  81.     vh = INT(RND * 2) + 1
  82.     length = INT(RND * 10) + 1
  83.     l = length * 5
  84.  
  85.     IF vh = 1 THEN
  86.         LINE (x2 + 1, y2)-(x2 + l - 1, y2), _RGB32(255, 255, 255)
  87.     END IF
  88.     IF vh = 2 THEN
  89.         LINE (x2, y2)-(x2, y2 + l - 1), _RGB32(255, 255, 255)
  90.     END IF
  91. NEXT cell
  92.  
  93. again:
  95. _TITLE "Press Space Bar for another one, P to Print, C to copy to Clipboard, or Esc to Quit."
  96. a$ = INKEY$
  97. IF a$ = " " THEN t = 0: dir = 0: GOTO start:
  98. IF a$ = CHR$(27) THEN END
  99. IF a$ = "p" OR a$ = "P" THEN GOSUB printing:
  100. IF a$ = "c" OR a$ = "C" THEN _CLIPBOARDIMAGE = picture&
  101. GOTO again:
  102.  
  103. printing:
  104. picture2& = _COPYIMAGE(0)
  105. _PRINTIMAGE picture2&
  107. _FREEIMAGE picture2&
  109.  
Title: Re: Cave Map Maker
Post by: SierraKen on September 13, 2020, 07:24:22 pm
2 lines of code turns it into a City Map Maker. :)

Code: QB64: [Select]
  1. 'City Map Maker by SierraKen
  2. '9-13-2020
  3. 'Each cell is 20 pixels x 20 pixels.
  4. start:
  5. _TITLE "City Map Maker"
  7. picture& = _NEWIMAGE(800, 800, 32)
  8. SCREEN picture&
  9. PAINT (2, 2), _RGB32(255, 255, 255)
  10. LINE (50, 50)-(750, 750), _RGB32(0, 0, 0), B
  12. 'Start Location
  13. startlocation:
  14. stx = INT(RND * 650)
  15. IF stx / 20 <> INT(stx / 20) THEN GOTO startlocation:
  16. stx = stx + 70
  17. LINE (stx, 750)-(stx + 20, 750), _RGB32(255, 255, 255)
  18. 'End Location
  19. endlocation:
  20. endx = INT(RND * 650)
  21. IF endx / 20 <> INT(endx / 20) THEN GOTO endlocation:
  22. endx = endx + 70
  23. LINE (endx, 50)-(endx + 20, 50), _RGB32(255, 255, 255)
  24. 'Make Grid
  25. FOR x = 70 TO 730 STEP 20
  26.     LINE (x, 50)-(x, 750), _RGB32(0, 0, 0)
  28. FOR y = 70 TO 730 STEP 20
  29.     LINE (50, y)-(750, y), _RGB32(0, 0, 0)
  31. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 255)
  32. _PRINTSTRING (stx - 10, 760), "START"
  33. _PRINTSTRING (endx - 10, 30), "FINISH"
  34.  
  35. start2:
  36. x = stx
  37. y = 750
  38. 'Make Paths
  40.     _LIMIT 500
  41.     direction:
  42.     t = t + 1
  43.     IF t = 10 THEN dir = INT(RND * 35) + 1: t = 0
  44.     tt = tt + 1
  45.     IF tt = 10 THEN
  46.         tt = 0
  47.         IF x > endx THEN
  48.             LINE (x, y)-(x, y - 20), _RGB32(255, 255, 255)
  49.             x = x - 20
  50.         END IF
  51.         IF x < endx THEN
  52.             LINE (x + 20, y)-(x + 20, y - 20), _RGB32(255, 255, 255)
  53.             x = x + 20
  54.         END IF
  55.     END IF
  56.     IF dir > 0 AND dir < 10 THEN LINE (x, y)-(x, y - 20), _RGB32(255, 255, 255): x = x - 20: GOSUB check:
  57.     IF dir >= 10 AND dir <= 20 THEN LINE (x + 20, y)-(x + 20, y - 20), _RGB32(255, 255, 255): x = x + 20: GOSUB check:
  58.     IF dir > 20 AND dir <= 30 THEN LINE (x, y - 20)-(x + 20, y - 20), _RGB32(255, 255, 255): y = y - 20: GOSUB check:
  59.     IF dir > 30 THEN LINE (x, y)-(x + 20, y), _RGB32(255, 255, 255): y = y + 20: GOSUB check:
  60.     IF x = endx AND y - 20 = 50 THEN GOTO again:
  62.  
  63. check:
  64. t = t + 1
  65. IF x < 70 THEN x = x + 20: RETURN
  66. IF x > 720 THEN x = x - 20: RETURN
  67. IF x = endx AND y = 70 THEN GOTO again:
  68. IF y <= 70 AND x <> endx THEN y = y + 20: RETURN
  69. IF y > 730 THEN y = 730: LINE (x, y)-(x + 20, y), _RGB32(255, 255, 255): RETURN
  71.  
  72. again:
  74. _TITLE "Press Space Bar for another one, P to Print, C to copy to Clipboard, or Esc to Quit."
  75. a$ = INKEY$
  76. IF a$ = " " THEN t = 0: dir = 0: GOTO start:
  77. IF a$ = CHR$(27) THEN END
  78. IF a$ = "p" OR a$ = "P" THEN GOSUB printing:
  79. IF a$ = "c" OR a$ = "C" THEN _CLIPBOARDIMAGE = picture&
  80. GOTO again:
  81.  
  82. printing:
  83. picture2& = _COPYIMAGE(0)
  84. _PRINTIMAGE picture2&
  86. _FREEIMAGE picture2&
  88.  
Title: Re: Cave Map Maker
Post by: OldMoses on September 14, 2020, 08:22:26 pm
Those are pretty neat, and I like the copy to clipboard function. I can take it to a image editor, mess with the various filters and contrast and get a good looking basic cave shape.

PS I pasted one to Image Composer and alternated a neon glow effect with a negative effect.
Title: Re: Cave Map Maker
Post by: SierraKen on September 14, 2020, 08:29:47 pm
Wow that looks wild, thanks OldMoses! I tested it with PAINT also and it fills in the caves and streets very nicely. I didn't post it though because it wouldn't be too great for printers. But people can do like you did and use Fill to fill in too. :)
Title: Re: Cave Map Maker
Post by: bplus on September 14, 2020, 10:50:58 pm
I kinda like the city map.

@SierraKen what was the thing you changed to make it so neat?
Title: Re: Cave Map Maker
Post by: SierraKen on September 14, 2020, 11:07:08 pm
Thanks B+. I added a counter and when the counter reaches 10, then it changes direction. The counter is actually in 2 places so it counts them at different times. This program has been beating me up the last couple days though. I've made it look like a simple maze, adding streets of different lengths and locations. But the maze itself is only good for kids like under 5 years old because they are so simple to finish. I remember you showing us the maze you made that time. I don't know if I could ever do that though, which is why I've been trying to make this one better. But here is what I have so far. I don't know if I will (or can) make it any better than this though. I don't like how it makes giant looking parking lots sometimes. I tried for around an hour or more to fix that, but to no prevail.

Code: QB64: [Select]
  1. 'City Map Maker by SierraKen
  2. '9-14-2020
  3. 'Each cell is 20 pixels x 20 pixels.
  4. start:
  5. _LIMIT 200
  6. _TITLE "City Map Maker"
  7. x = 0: y = 0: x2 = 0: y2 = 0
  9. picture& = _NEWIMAGE(800, 800, 32)
  10. SCREEN picture&
  11. PAINT (2, 2), _RGB32(255, 255, 255)
  12. LINE (50, 50)-(750, 750), _RGB32(0, 0, 0), B
  13. 'Start Location
  14. startlocation:
  16. stx = INT(RND * 650)
  17. IF stx / 20 <> INT(stx / 20) THEN GOTO startlocation:
  18. stx = stx + 70
  19. LINE (stx, 750)-(stx + 20, 750), _RGB32(255, 255, 255)
  20. 'End Location
  21. endlocation:
  22. endx = INT(RND * 650)
  23. IF endx / 20 <> INT(endx / 20) THEN GOTO endlocation:
  24. endx = endx + 70
  25. LINE (endx, 50)-(endx + 20, 50), _RGB32(255, 255, 255)
  26. 'Make Grid
  27. FOR x = 70 TO 730 STEP 20
  28.     LINE (x, 50)-(x, 750), _RGB32(0, 0, 0)
  30. FOR y = 70 TO 730 STEP 20
  31.     LINE (50, y)-(750, y), _RGB32(0, 0, 0)
  33. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 255)
  34. _PRINTSTRING (stx - 10, 760), "START"
  35. _PRINTSTRING (endx - 10, 30), "FINISH"
  36.  
  37. start2:
  39. t = 0: tt = 0
  40. x = stx
  41. y = 750
  42. x2 = 0: y2 = 0
  43. 'Make Paths
  44. _LIMIT 200
  46.     direction:
  47.     t = t + 1
  48.     IF t = 10 THEN dir = INT(RND * 100) + 1: t = 0
  49.     tt = tt + 1
  50.     IF tt = 5 THEN
  51.         tt = 0
  52.         IF x > endx THEN
  53.             LINE (x, y)-(x, y - 20), _RGB32(255, 255, 255)
  54.             x = x - 20
  55.         END IF
  56.         IF x < endx THEN
  57.             LINE (x + 20, y)-(x + 20, y - 20), _RGB32(255, 255, 255)
  58.             x = x + 20
  59.         END IF
  60.     END IF
  61.     IF dir > 0 AND dir < 40 THEN LINE (x, y)-(x, y - 20), _RGB32(255, 255, 255): x = x - 20: GOSUB check:
  62.     IF dir >= 40 AND dir <= 80 THEN LINE (x + 20, y)-(x + 20, y - 20), _RGB32(255, 255, 255): x = x + 20: GOSUB check:
  63.     IF dir > 80 AND dir <= 90 THEN LINE (x, y - 20)-(x + 20, y - 20), _RGB32(255, 255, 255): y = y - 20: GOSUB check:
  64.     IF dir > 90 THEN LINE (x, y)-(x + 20, y), _RGB32(255, 255, 255): y = y + 20: GOSUB check:
  65.     IF x = endx AND y - 20 = 50 THEN GOTO more:
  67.  
  68. check:
  69. t = t + 1
  70. IF x < 70 THEN x = x + 20
  71. IF x > 720 THEN x = x - 20
  72. IF x = endx AND y = 70 THEN GOTO more:
  73. IF y <= 70 AND x <> endx THEN y = y + 20
  74. IF y > 730 THEN y = 730: LINE (x, y)-(x + 20, y), _RGB32(255, 255, 255)
  76.  
  77. check2:
  78. IF x2 < 70 THEN x2 = x2 + 20
  79. IF x2 > 720 THEN x2 = x2 - 20
  80. IF y2 <= 70 AND x2 <> endx THEN y2 = y2 + 20
  81. IF y2 > 730 THEN y2 = 730: LINE (x2, y2)-(x2 + 20, y2), _RGB32(255, 255, 255)
  83.  
  84.  
  85. more:
  86. walls = INT(RND * 10) + 3
  87. FOR w = 1 TO walls
  88.     thewall:
  89.     x2 = INT(RND * 700) + 70
  90.     y2 = INT(RND * 700) + 70
  91.     IF x2 / 20 <> INT(x2 / 20) THEN GOTO thewall:
  92.     IF y2 / 20 <> INT(y2 / 20) THEN GOTO thewall:
  93.     x2 = x2 + 10
  94.     y2 = y2 + 10
  95.     dir2 = INT(RND * 100) + 1
  96.     walllength = INT(RND * 3) + 3
  97.     FOR ww = 1 TO walllength
  98.         IF x2 > endx THEN
  99.             LINE (x2, y2)-(x2, y2 - 20), _RGB32(255, 255, 255)
  100.             x2 = x2 - 20
  101.         END IF
  102.         IF x2 < endx THEN
  103.             LINE (x2 + 20, y2)-(x2 + 20, y2 - 20), _RGB32(255, 255, 255)
  104.             x2 = x2 + 20
  105.         END IF
  106.         IF dir2 > 0 AND dir2 < 40 THEN LINE (x2, y2)-(x2, y2 - 20), _RGB32(255, 255, 255): x2 = x2 - 20: GOSUB check2:
  107.         IF dir2 >= 40 AND dir2 <= 80 THEN LINE (x2 + 20, y2)-(x2 + 20, y2 - 20), _RGB32(255, 255, 255): x2 = x2 + 20: GOSUB check2:
  108.         IF dir2 > 80 AND dir2 <= 90 THEN LINE (x2, y2 - 20)-(x2 + 20, y2 - 20), _RGB32(255, 255, 255): y2 = y2 - 20: GOSUB check2:
  109.         IF dir2 > 90 THEN LINE (x2, y2)-(x2 + 20, y2), _RGB32(255, 255, 255): y2 = y2 + 20: GOSUB check2:
  110.     NEXT ww
  112.  
  113. again:
  115. _TITLE "Press Space Bar for another one, P to Print, C to copy to Clipboard, or Esc to Quit."
  116. a$ = INKEY$
  117. IF a$ = " " THEN t = 0: dir = 0: GOTO start:
  118. IF a$ = CHR$(27) THEN END
  119. IF a$ = "p" OR a$ = "P" THEN GOSUB printing:
  120. IF a$ = "c" OR a$ = "C" THEN _CLIPBOARDIMAGE = picture&
  121. GOTO again:
  122.  
  123. printing:
  124. picture2& = _COPYIMAGE(0)
  125. _PRINTIMAGE picture2&
  127. _FREEIMAGE picture2&
  129.  

Title: Re: Cave Map Maker
Post by: bplus on September 14, 2020, 11:29:40 pm
That kind of layout reminds me of Pac Man, if the ghoulies were coming down one "street" you could duck off into another route.
Title: Re: Cave Map Maker
Post by: SierraKen on September 14, 2020, 11:57:28 pm
LOL That's true!
Title: Re: Cave Map Maker
Post by: SierraKen on September 23, 2020, 02:11:13 am
I have decided to make a more complicated path maker, with smaller blocks. Plus there's less code on this version and written a lot differently. Check it out. There's no "Start" or "Finish" words but I figured that is obvious. Sometimes there will even be 2 open Finish areas. This one determines when it's finished just when the path reaches the top. Like the other one, sometimes there's a lot of open space, sometimes a direct path, etc.

Space Bar makes a new one. C copies to clipboard. P prints it on the printer.

Code: QB64: [Select]
  1. 'Path Maker by SierraKen
  2. '9-22-2020
  3. 'This version is more of a path maker using a grid.
  4. start:
  5. picture& = _NEWIMAGE(600, 600, 32)
  6. SCREEN picture&
  8. PAINT (2, 2), _RGB32(255, 255, 255)
  9. LINE (50, 50)-(550, 550), _RGB32(0, 0, 0), B
  10.  
  11. 'grid
  12. FOR x = 50 TO 550 STEP 10
  13.     LINE (x, 50)-(x, 550), _RGB32(0, 0, 0)
  15. FOR y = 50 TO 550 STEP 10
  16.     LINE (50, y)-(550, y), _RGB32(0, 0, 0)
  18. xx = 295
  19. yy = 545
  20. LINE (xx - 5, yy + 5)-(xx + 5, yy + 5), _RGB32(255, 255, 255)
  22. _LIMIT 100
  24.     direction:
  25.     d = INT(RND * 100) + 1
  26.     IF d < 33 THEN dir = 1 'left
  27.     IF d >= 33 AND d < 66 THEN dir = 2 'right
  28.     IF d >= 66 AND d < 84 THEN dir = 3 'up
  29.     IF d >= 84 THEN dir = 4 'down
  30.     IF olddir = d THEN GOTO direction:
  31.     olddir = d
  32.     length:
  33.     length = INT(RND * 4) + 2
  34.     IF length / 2 <> INT(length / 2) THEN GOTO length:
  35.     FOR ee = 1 TO length
  36.         IF dir = 1 THEN
  37.             'left
  38.             IF xx < 65 THEN xx = 65
  39.             LINE (xx - 5, yy - 5)-(xx - 5, yy + 5), _RGB32(255, 255, 255)
  40.             xx = xx - 10
  41.         END IF
  42.         IF dir = 2 THEN
  43.             'right
  44.             IF xx > 535 THEN xx = 535
  45.             LINE (xx + 5, yy - 5)-(xx + 5, yy + 5), _RGB32(255, 255, 255)
  46.             xx = xx + 10
  47.         END IF
  48.         IF dir = 3 THEN
  49.             'up
  50.             IF yy < 55 THEN GOTO done:
  51.             LINE (xx - 5, yy - 5)-(xx + 5, yy - 5), _RGB32(255, 255, 255)
  52.             yy = yy - 10
  53.         END IF
  54.         IF dir = 4 THEN
  55.             'down
  56.             IF yy > 535 THEN yy = 535
  57.             LINE (xx - 5, yy + 5)-(xx + 5, yy + 5), _RGB32(255, 255, 255)
  58.             yy = yy + 10
  59.         END IF
  60.     NEXT ee
  62. done:
  64.     _LIMIT 10
  65.     _TITLE "Press Space Bar for another one, P to Print, C to copy to Clipboard, or Esc to Quit."
  66.     a$ = INKEY$
  67.     IF a$ = " " THEN GOTO start:
  68.     IF a$ = CHR$(27) THEN END
  69.     IF a$ = "p" OR a$ = "P" THEN GOSUB printing:
  70.     IF a$ = "c" OR a$ = "C" THEN _CLIPBOARDIMAGE = picture&
  72. printing:
  73. picture2& = _COPYIMAGE(0)
  74. _PRINTIMAGE picture2&
  76. _FREEIMAGE picture2&
  78.  
Title: Re: Cave Map Maker
Post by: SierraKen on September 23, 2020, 01:24:50 pm
Here is an example picture of the path maker I made, posted right above this post.

Text Only | Text with Attachments