« previous next »
Pages: [1] 2   Go Down

Author Topic: Simple Maze Designer  (Read 5507 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Simple Maze Designer
« on: June 26, 2019, 06:18:34 pm »
I just thought I would toss this little program I made this afternoon into the mix. It's a simple plotting/drawing program to mostly use with other games or programs we make in the future. There's no color changes, just white lines. I'm not very good at making a color picker and just using numbers would be pretty random for me so I just stuck with white. Of course you can add color or anything you wish to this if you want. It uses a 640 x 480 screen with 10 x 10 plots. There is a limit of 10,000 plots but that would fill up the whole screen and more and the size of the file that would save as would be around 100 KB. The saved files have an .aze ending (maze without the m). I couldn't find a file ending on Google that has that ending so I stuck with it. The file it makes doesn't have a color number on it so when you load it with your own programs, you will need to add that. You use the arrow keys and space bar to change from pen up to pen down and vice-versa, S to save, L to load. There is no printer support with this one because of the 10 x 10 pixels would be heavy on the ink. This is just something I tossed together within about 3 hours. :) Enjoy.

- Code deleted because of a much better update I made below on my post.
« Last Edit: June 27, 2019, 04:07:01 pm by SierraKen »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Simple Maze Designer
« Reply #1 on: June 26, 2019, 08:07:35 pm »
Hi Ken,

Reminds me of Etch-A-Sketch. Have you thought about an eraser? change a cell back to black.
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Simple Maze Designer
« Reply #2 on: June 26, 2019, 09:01:33 pm »
Oh, how can you compare Picaso with an "Etch-a-Sketch"?

But you could be right about an eraser. If so, would it not be better to have the 'cursor' as a empty box, just so you can tell where it is? Just a thought.
Logged
Logic is the beginning of wisdom.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Simple Maze Designer
« Reply #3 on: June 26, 2019, 10:56:34 pm »
I thought about an eraser but since I use t=t+1 x(t) y(t) and just create the picture file with those coords, it would be too hard to try and go back and erase it since I don't use colors. But I'm glad you guys like it. :) I also thought about a cursor, but that is a bit beyond me as well. I used to know more about such a thing but am not completely back to how I was in the 90's. I remember a command named XOR where you can put graphics over graphics. Someday I may look into it again, but I'm just going to keep this program the way it is. :)
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Simple Maze Designer
« Reply #4 on: June 27, 2019, 01:54:28 am »
In a nutshell you can draw a square (or whatever shape you choose) for a cursor, use _hidemouse(), then display the shape at mouseX and mouseY. Well, that's what I think could work... you may have to check with the others...

J
Logged
Logic is the beginning of wisdom.

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: Simple Maze Designer
« Reply #5 on: June 27, 2019, 01:56:41 am »
Hi. Thank You for this program. It is going to be useful for me.
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Simple Maze Designer
« Reply #6 on: June 27, 2019, 08:09:07 am »
Hi. And what to do a little differently. Left-click to paint the block, right-click to delete it. Save it by pressing S. Load map by pressing L. And moreover ... the map is not limited to one displayed field, so press the up, down, left and right keys to move around the map. It's just a quick sketch. Basically the basis in which I make a maze editor.

Code: QB64: [Select]
  1. 'maze edit fast
  2. SCREEN _NEWIMAGE(640, 480, 256)
  3. REDIM maze(100, 100) AS _BYTE 'total map contains 10.000 cells
  4. CONST map$ = "Mazemap_textfile.txt"
  5. 'create cells 20 x 20
  6. FOR y = 0 TO 460 STEP 20 '23 steps
  7.     FOR x = 0 TO 620 STEP 20 '31 steps
  8.         LINE (x, y)-(x + 19, y + 19), , B
  9. NEXT x, y
  10.  
  11. 'activate mouse for inserting / deleting cell:
  14.     PositionX = Sx + _CEIL(_MOUSEX / 20)
  15.     PositionY = Sy + _CEIL(_MOUSEY / 20)
  16.  
  17.     IF PositionX > UBOUND(maze, 1) THEN PositionX = UBOUND(maze, 1)
  18.     IF PositionY > UBOUND(maze, 2) THEN PositionY = UBOUND(maze, 2)
  19.  
  20.     IF _MOUSEBUTTON(1) THEN maze(PositionX, PositionY) = 1
  21.     IF _MOUSEBUTTON(2) THEN maze(PositionX, PositionY) = 0
  22.  
  23.     'add keyboard support for map edit move up, down, left and right
  24.  
  25.     i$ = INKEY$
  26.     SELECT CASE i$
  27.         CASE CHR$(0) + CHR$(72): Sy = Sy - 1 'up
  28.         CASE CHR$(0) + CHR$(80): Sy = Sy + 1 'dn
  29.         CASE CHR$(0) + CHR$(75): Sx = Sx - 1 'up
  30.         CASE CHR$(0) + CHR$(77): Sx = Sx + 1 'dn
  31.  
  32.             'and after "S" pressing it save this map to file:
  33.         CASE "S", "s": GOSUB SaveIt
  34.  
  35.             'and after "L" pressing, load it from file mazemap_textfile (if is previously saved)
  36.         CASE "L", "l": GOSUB LoadIt
  37.     END SELECT
  38.  
  39.     IF Sx > UBOUND(maze, 1) - 32 THEN Sx = UBOUND(maze, 1) - 32
  40.     IF Sx < LBOUND(maze, 1) THEN Sx = LBOUND(maze, 1)
  41.     IF Sy > UBOUND(maze, 2) - 24 THEN Sy = UBOUND(maze, 2) - 24
  42.     IF Sy < LBOUND(maze, 2) THEN Sy = LBOUND(maze, 2)
  43.  
  44.     Ex = Sx + 32
  45.     Ey = Sy + 24
  46.  
  47.     IF Ex > UBOUND(maze, 1) THEN Ex = UBOUND(maze, 1)
  48.     IF Ex < LBOUND(maze, 1) THEN Ex = LBOUND(maze, 1)
  49.     IF Ey > UBOUND(maze, 2) THEN Ey = UBOUND(maze, 2)
  50.     IF Ey < LBOUND(maze, 2) THEN Ey = LBOUND(maze, 2)
  51.  
  52.     'draw it to screen:
  53.  
  54.     FOR dy = Sy TO Ey
  55.         FOR dx = Sx TO Ex
  56.             SDx = 20 * (dx - Sx - 1) 'SDX = start draw X
  57.             SDy = 20 * (dy - Sy - 1) 'SDY = start draw Y
  58.             IF maze(dx, dy) THEN
  59.                 LINE (SDx, SDy)-(SDx + 18, SDy + 18), , BF
  60.             ELSE
  61.                 LINE (SDx, SDy)-(SDx + 18, SDy + 18), 0, BF
  62.             END IF
  63.     NEXT dx, dy
  65.  
  66. SaveIt:
  67. IF _FILEEXISTS(map$) THEN KILL map$
  69. OPEN map$ FOR OUTPUT AS #f
  70. FOR recX = LBOUND(maze, 1) TO UBOUND(maze, 1)
  71.     FOR recY = LBOUND(maze, 2) TO UBOUND(maze, 2)
  72.         IF maze(recX, recY) THEN
  73.             PRINT #f, STR$(recX); ","; STR$(recY); ","; STR$(maze(recX, recY))
  74.         END IF
  75. NEXT recY, recX
  77.  
  78. SOUND 150, .3
  80.  
  81. LoadIt:
  83.     REDIM maze(UBOUND(maze, 1), UBOUND(maze, 2)) AS _BYTE
  84.     f = FREEFILE
  85.     OPEN map$ FOR INPUT AS #f
  86.     DO WHILE NOT EOF(f)
  87.         INPUT #f, x, y, value
  88.         maze(x, y) = value
  89.     LOOP
  90.     CLOSE #f
  91.     SOUND 150, .3
  92. ELSE BEEP 'file not exists
  95.  
  96.  


As you can see, the value "1" is written for the filled cell in field. So here's a lot of options: Suppose 1 will be an ordinary wall. 2 will swamp, 3 need sand .... and everything will have different characteristics. Or with a small adjustment you can create a platform game. Anything. Of course, you can write more map layers to the same place (by adding more fields or just variables to the fields), for example, to run some timed activity, or for sound.
« Last Edit: June 27, 2019, 08:17:45 am by Petr »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Simple Maze Designer
« Reply #7 on: June 27, 2019, 04:06:05 pm »
That's really cool Petr! I liked the grid a lot so I put it into my program. I also figured out how to make a red box so you know where your plot is going to be before you make it. I'm still using the arrow keys because personally I think it's easier than choosing 1 square at a time with a mouse. I also renamed it and added an eraser. So here it is: :) 

Edit: Code deleted again because I keep adding more things. :)
« Last Edit: June 27, 2019, 04:53:09 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Simple Maze Designer
« Reply #8 on: June 27, 2019, 04:49:57 pm »
Sorry for always updating and posting, will try to test programs out more from now on before I post on here.
I made it so you don't see Eraser On when your Pen is Up since you can't erase when your pen is up anyway. Am still working on it and testing it.

« Last Edit: June 27, 2019, 04:52:31 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Simple Maze Designer
« Reply #9 on: June 27, 2019, 05:21:15 pm »
OK here it is, I'm 99.9% sure this is the final one. It's been tested, fixed, added to, everything. lol

Code: QB64: [Select]
  1. 'This plotter was made in 2 days by Ken G. and finished on June 27, 2019 using QB64 language.
  2. 'Thank you for some ideas from some people at the QB64.org Forum!
  3. 'Code to use the pictures made with this can be found marked out toward the end of this program.
  4. 'This program is Freeware and will always be Freeware.
  5. 'Feel free to use any of this code in your own programs.
  6. '-----------------------------------------------------------------------------------------------
  7. _TITLE "Ken's Plotter"
  8. _LIMIT 400
  9. start:
  10. DIM x$(10000), y$(10000), x(10000), y(10000)
  11. p = 0
  12. t = 0
  13. pn = 0
  14. e = 0
  16. SCREEN _NEWIMAGE(640, 480, 32)
  17. PRINT "                     Ken's Plotter"
  19. PRINT "                       By Ken G."
  21. PRINT "Use the arrow keys to move the red box."
  22. PRINT "Use Space Bar to move Pen Down to draw and Pen Up to just move."
  23. PRINT "Use E to turn the Eraser off and on."
  24. PRINT "Use Esc to start over."
  26. PRINT "**** You will need to have Pen Down to use Eraser."
  28. PRINT "There is a 10,000 plot limit. Don't worry about this limit"
  29. PRINT "because you can fill the entire screen and more and still be"
  30. PRINT "less than 10,000 plots."
  31. PRINT "Press S to save and L to load an already saved picture."
  32. PRINT "The saved .txt file will have X,Y plots on each line that"
  33. PRINT "can be used in your own programs."
  34. PRINT "This is a simple plotting/drawing program that doesn't change colors."
  35. PRINT "The saved files don't have any colors on them, so when"
  36. PRINT "you use them for your own programs, you will need to add a color."
  37. PRINT "The window scale is 640 x 480 pixels with each plot every 10 pixels."
  38. PRINT "So when using in your own programs, make sure and make X = X + 10 and"
  39. PRINT "Y = Y + 10 to display with LINE command."
  40. PRINT "Code to load your picture is marked out in the code of this program."
  41. PRINT "The coordinates and Pen Up, Pen Down, Eraser On, Eraser Off will be"
  42. PRINT "in the top Window title bar."
  44. INPUT "Press enter to start.", st$
  47. x = 320: y = 240
  48. FOR gridx = 0 TO 640 STEP 10
  49.     FOR gridy = 0 TO 480 STEP 10
  50.         LINE (gridx, gridy)-(gridx + 10, gridy + 10), _RGB32(255, 255, 255), B
  51.     NEXT gridy
  52. NEXT gridx
  53. LINE (x, y)-(x + 10, y + 10), _RGB(255, 0, 0), B
  54. pen$ = "Up": eraser$ = "Off"
  55. xx$ = STR$(x): yy$ = STR$(y)
  56. titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
  57. _TITLE titl$
  58. go:
  59. _LIMIT 400
  60. a$ = INKEY$
  61. IF a$ = CHR$(27) THEN GOTO start:
  62. IF a$ = "s" OR a$ = "S" THEN GOTO save:
  63. IF a$ = "l" OR a$ = "L" OR a$ = "m" OR a$ = "M" THEN GOTO load:
  64. IF a$ = CHR$(0) + CHR$(72) THEN
  65.     LINE (x, y)-(x + 10, y + 10), _RGB(255, 255, 255), B
  66.     y = y - 10
  67.     IF y < 0 THEN y = 0
  68.     LINE (x, y)-(x + 10, y + 10), _RGB(255, 0, 0), B
  69.     IF pn = 1 THEN
  70.         x2 = x + 10
  71.         y2 = y + 10
  72.         IF e = 0 THEN LINE (x, y)-(x2, y2), _RGB32(255, 255, 255), BF
  73.         t = t + 1
  74.         x$(t) = STR$(x): y$(t) = STR$(y)
  75.         IF e = 1 THEN
  76.             LINE (x, y)-(x2, y2), _RGB32(0, 0, 0), BF
  77.             GOSUB eraser:
  78.         END IF
  79.         GOSUB check:
  80.     END IF
  81.     xx$ = STR$(x): yy$ = STR$(y)
  82.     titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
  83.     _TITLE titl$
  85. IF a$ = CHR$(0) + CHR$(80) THEN
  86.     LINE (x, y)-(x + 10, y + 10), _RGB(255, 255, 255), B
  87.     y = y + 10
  88.     IF y > 470 THEN y = 470
  89.     LINE (x, y)-(x + 10, y + 10), _RGB(255, 0, 0), B
  90.     IF pn = 1 THEN
  91.         x2 = x + 10
  92.         y2 = y + 10
  93.         LINE (x, y)-(x2, y2), _RGB32(255, 255, 255), BF
  94.         t = t + 1
  95.         x$(t) = STR$(x): y$(t) = STR$(y)
  96.         IF e = 1 THEN
  97.             LINE (x, y)-(x2, y2), _RGB32(0, 0, 0), BF
  98.             GOSUB eraser:
  99.         END IF
  100.         GOSUB check:
  101.     END IF
  102.     xx$ = STR$(x): yy$ = STR$(y)
  103.     titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
  104.     _TITLE titl$
  106. IF a$ = CHR$(0) + CHR$(77) THEN
  107.     LINE (x, y)-(x + 10, y + 10), _RGB(255, 255, 255), B
  108.     x = x + 10
  109.     IF x > 630 THEN x = 630
  110.     LINE (x, y)-(x + 10, y + 10), _RGB(255, 0, 0), B
  111.     IF pn = 1 THEN
  112.         x2 = x + 10
  113.         y2 = y + 10
  114.         LINE (x, y)-(x2, y2), _RGB32(255, 255, 255), BF
  115.         t = t + 1
  116.         x$(t) = STR$(x): y$(t) = STR$(y)
  117.         IF e = 1 THEN
  118.             LINE (x, y)-(x2, y2), _RGB32(0, 0, 0), BF
  119.             GOSUB eraser:
  120.         END IF
  121.         GOSUB check:
  122.     END IF
  123.     xx$ = STR$(x): yy$ = STR$(y)
  124.     titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
  125.     _TITLE titl$
  127. IF a$ = CHR$(0) + CHR$(75) THEN
  128.     LINE (x, y)-(x + 10, y + 10), _RGB(255, 255, 255), B
  129.     x = x - 10
  130.     IF x < 0 THEN x = 0
  131.     LINE (x, y)-(x + 10, y + 10), _RGB(255, 0, 0), B
  132.     IF pn = 1 THEN
  133.         x2 = x + 10
  134.         y2 = y + 10
  135.         LINE (x, y)-(x2, y2), _RGB32(255, 255, 255), BF
  136.         t = t + 1
  137.         x$(t) = STR$(x): y$(t) = STR$(y)
  138.         IF e = 1 THEN
  139.             LINE (x, y)-(x2, y2), _RGB32(0, 0, 0), BF
  140.             GOSUB eraser:
  141.         END IF
  142.         GOSUB check:
  143.     END IF
  144.     xx$ = STR$(x): yy$ = STR$(y)
  145.     titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
  146.     _TITLE titl$
  148. IF a$ = "e" OR a$ = "E" THEN
  149.     e = e + 1
  150.     IF e = 2 THEN e = 0
  151.     IF e = 1 THEN
  152.         IF pen$ = "Down" THEN eraser$ = "On"
  153.         titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
  154.         _TITLE titl$
  155.     END IF
  156.     IF e = 0 THEN
  157.         eraser$ = "Off"
  158.         titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
  159.         _TITLE titl$
  160.     END IF
  162. IF a$ = " " THEN
  163.     pn = pn + 1
  164.     IF pn = 2 THEN pn = 0
  166. IF pn = 1 THEN
  167.     pen$ = "Down"
  168.     titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
  169.     _TITLE titl$
  170.  
  172. IF pn = 0 THEN
  173.     pen$ = "Up"
  174.     titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
  175.     _TITLE titl$
  177. GOTO go:
  178.  
  179. save:
  181. save2:
  182. INPUT "Type file name of maze to create (without the .txt ending):", nm$
  183. nm$ = nm$ + ".txt"
  184. 'Checking to see if the file already exists on your computer.
  185. theFileExists = _FILEEXISTS(nm$)
  186. IF theFileExists = -1 THEN
  187.     PRINT "File Already Exists"
  188.     PRINT "Saving will delete your old maze."
  189.     PRINT
  190.     PRINT "Would you like to still do it?"
  191.     PRINT "(Y/N). Esc ends program."
  192.     llloop:
  193.     _LIMIT 10
  194.     ag2$ = INKEY$
  195.     IF ag2$ = "" THEN GOTO llloop:
  196.     IF ag2$ = "y" OR ag$ = "Y" THEN GOTO save3:
  197.     IF ag2$ = CHR$(27) THEN END
  198.     GOTO save2:
  200. save3:
  201. OPEN nm$ FOR OUTPUT AS #1
  202. FOR plots = 1 TO t
  203.     _LIMIT 400
  204.     IF x$(plots) = "" OR y$(plots) = "" THEN GOTO skip2:
  205.     PRINT #1, x$(plots); ","; y$(plots)
  206.     skip2:
  207. NEXT plots
  210. PRINT nm$; " has been saved to your computer."
  212. INPUT "Press enter to start again."; a$
  213. GOTO start:
  214.  
  215. '------------------------------------------------------------------------------
  216. 'The following is the code you can use to load the graphic to your own program.
  217. '------------------------------------------------------------------------------
  218.  
  219. load:
  221. INPUT "Type file name to load (without the .txt ending):", nm$
  222. nm$ = nm$ + ".txt"
  224. OPEN nm$ FOR INPUT AS #1
  225. ggo:
  226. _LIMIT 400
  227. p = p + 1
  228. INPUT #1, x$(p), y$(p)
  229. x(p) = VAL(x$(p)): y(p) = VAL(y$(p))
  230. LINE (x(p), y(p))-(x(p) + 10, y(p) + 10), _RGB(255, 255, 255), BF
  231. IF EOF(1) THEN CLOSE #1: GOTO done:
  232. GOTO ggo:
  233. done:
  234. a$ = INKEY$
  235. IF a$ = "" THEN GOTO done:
  236. IF a$ = CHR$(27) THEN END
  237.  
  238. '------------------------------------------------------------------------------
  239.  
  240. GOTO start:
  241.  
  242. check:
  243. IF t = 10000 THEN
  244.     INPUT "Limit has been reached, do you want to save (Yes/No):"; yn$
  245.     IF yn$ = "YES" OR yn$ = "yes" OR yn$ = "Yes" OR yn$ = "YEs" OR yn$ = "yES" OR yn$ = "Y" OR yn$ = "y" THEN GOTO save:
  246.     GOTO start:
  249.  
  250. eraser:
  251. FOR ee = 1 TO t
  252.     IF x$(ee) = x$(t) AND y$(ee) = y$(t) THEN
  253.         x$(ee) = "": y$(ee) = ""
  254.     END IF
  255. NEXT ee
  257.  
  258.  


Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Simple Maze Designer
« Reply #10 on: June 27, 2019, 08:29:04 pm »
I just made something I've wanted to make since the 80's! I used the above program to make a bunch of hallways on 1 picture. Then I made this program below as an example to everyone on how to detect every single wall from the picture. You move the little red dot around with your arrow keys and it stops if you hit a wall. :)))) Imagine the possibilities of games people can make with this! This probably sounds funny to most of you since you all are much higher up in skill than I am, but I am really excited. :) Here is:

Code: QB64: [Select]
  1. 'This is an example on how to detect walls from using a picture made by using Ken's Plotter.
  2. 'First make a picture with Ken's Plotter program and then type in the name of it in this program.
  3. 'This example starts you out in the direct center of the screen.
  4. _TITLE "Maze Loader and Wall Detector Example"
  5. start:
  6. 'You will need to DIM these strings and variables first to make memory.
  7. DIM x$(10000), y$(10000), x(10000), y(10000)
  8.  
  9. 'xx and yy are the coordinates to your red square.
  10. xx = 320: yy = 240
  11. SCREEN _NEWIMAGE(640, 480, 32)
  13. PRINT "Maze Loader and Wall Detector Example"
  15. PRINT "By Ken G."
  17. PRINT "This is an example on how to detect walls."
  18. PRINT "First you need to create a picture or maze using 'Ken's Plotter'."
  20. PRINT "Use your arrow keys to move the little red square around and it will"
  21. PRINT "stop at every wall. In this example, you start out in the very center"
  22. PRINT "of the window."
  24. again:
  25. INPUT "Type file name of picture to load (without the .txt ending):", nm$
  26. IF nm$ = "" THEN GOTO again:
  27. nm$ = nm$ + ".txt"
  28. theFileExists = _FILEEXISTS(nm$)
  29. IF theFileExists = 0 THEN
  30.     PRINT "File does not exist, try again."
  31.     GOTO again:
  34. 'First you load the picture and put every coordinate into memory.
  35. OPEN nm$ FOR INPUT AS #1
  36. ggo:
  37. _LIMIT 400
  38. p = p + 1
  39. INPUT #1, x$(p), y$(p)
  40. x(p) = VAL(x$(p)): y(p) = VAL(y$(p))
  41. LINE (x(p), y(p))-(x(p) + 10, y(p) + 10), _RGB(255, 255, 255), BF
  43.     CLOSE #1
  44.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(255, 0, 0), BF
  45.     GOTO go:
  47. GOTO ggo:
  48.  
  49. 'Here is the main loop of the program where you move the square around.
  50. go:
  51. _LIMIT 400
  52. a$ = INKEY$
  53. IF a$ = CHR$(27) THEN END
  54. IF a$ = CHR$(0) + CHR$(72) THEN
  55.     oldyy = yy
  56.     oldxx = xx
  57.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(0, 0, 0), BF
  58.     yy = yy - 5
  59.     GOSUB check:
  60.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(255, 0, 0), BF
  62.  
  63. IF a$ = CHR$(0) + CHR$(80) THEN
  64.     oldyy = yy
  65.     oldxx = xx
  66.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(0, 0, 0), BF
  67.     yy = yy + 5
  68.     GOSUB check:
  69.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(255, 0, 0), BF
  71.  
  72. IF a$ = CHR$(0) + CHR$(75) THEN
  73.     oldxx = xx
  74.     oldyy = yy
  75.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(0, 0, 0), BF
  76.     xx = xx - 5
  77.     GOSUB check:
  78.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(255, 0, 0), BF
  80.  
  81. IF a$ = CHR$(0) + CHR$(77) THEN
  82.     oldxx = xx
  83.     oldyy = yy
  84.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(0, 0, 0), BF
  85.     xx = xx + 5
  86.     GOSUB check:
  87.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(255, 0, 0), BF
  89.  
  90. GOTO go:
  91.  
  92. 'Here is where the computer checks to see if your red square hits a wall.
  93. check:
  94. FOR t = 1 TO p
  95.     IF xx > x(t) - 15 AND xx < x(t) + 15 AND yy > y(t) - 10 AND yy < y(t) + 15 THEN xx = oldxx: yy = oldyy
  98.  
  99.  
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Simple Maze Designer
« Reply #11 on: June 27, 2019, 09:49:18 pm »
Congratulations Ken,

I think you got a double dose of the Basic bug. :)
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Simple Maze Designer
« Reply #12 on: June 27, 2019, 10:25:13 pm »
ROFL Thanks B+! I do! LOL
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Simple Maze Designer
« Reply #13 on: June 27, 2019, 10:38:11 pm »
I added a couple more lines of code to stop the red square in the Maze Loader and Wall Detector Example, to stop your guy from going outside of the screen. I also decrease 5 numbers from one of the X detection numbers so it goes closer to the wall. 
Here is the newer update:

Code: QB64: [Select]
  1. 'This is an example on how to detect walls from using a picture made by using Ken's Plotter.
  2. 'First make a picture with Ken's Plotter program and then type in the name of it in this program.
  3. 'This example starts you out in the direct center of the screen.
  4. _TITLE "Maze Loader and Wall Detector Example"
  5. start:
  6. 'You will need to DIM these strings and variables first to make memory.
  7. DIM x$(10000), y$(10000), x(10000), y(10000)
  8.  
  9. 'xx and yy are the coordinates to your red square.
  10. xx = 320: yy = 240
  11. SCREEN _NEWIMAGE(640, 480, 32)
  13. PRINT "Maze Loader and Wall Detector Example"
  15. PRINT "By Ken G."
  17. PRINT "This is an example on how to detect walls."
  18. PRINT "First you need to create a picture or maze using 'Ken's Plotter'."
  20. PRINT "Use your arrow keys to move the little red square around and it will"
  21. PRINT "stop at every wall. In this example, you start out in the very center"
  22. PRINT "of the window."
  24. again:
  25. INPUT "Type file name of picture to load (without the .txt ending):", nm$
  26. IF nm$ = "" THEN GOTO again:
  27. nm$ = nm$ + ".txt"
  28. theFileExists = _FILEEXISTS(nm$)
  29. IF theFileExists = 0 THEN
  30.     PRINT "File does not exist, try again."
  31.     GOTO again:
  34. 'First you load the picture and put every coordinate into memory.
  35. OPEN nm$ FOR INPUT AS #1
  36. ggo:
  37. _LIMIT 400
  38. p = p + 1
  39. INPUT #1, x$(p), y$(p)
  40. x(p) = VAL(x$(p)): y(p) = VAL(y$(p))
  41. LINE (x(p), y(p))-(x(p) + 10, y(p) + 10), _RGB32(255, 255, 255), BF
  43.     CLOSE #1
  44.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(255, 0, 0), BF
  45.     GOTO go:
  47. GOTO ggo:
  48.  
  49. 'Here is the main loop of the program where you move the square around.
  50. go:
  51. _LIMIT 400
  52. a$ = INKEY$
  53. IF a$ = CHR$(27) THEN END
  54. IF a$ = CHR$(0) + CHR$(72) THEN
  55.     oldyy = yy
  56.     oldxx = xx
  57.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(0, 0, 0), BF
  58.     yy = yy - 5
  59.     GOSUB check:
  60.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(255, 0, 0), BF
  62.  
  63. IF a$ = CHR$(0) + CHR$(80) THEN
  64.     oldyy = yy
  65.     oldxx = xx
  66.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(0, 0, 0), BF
  67.     yy = yy + 5
  68.     GOSUB check:
  69.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(255, 0, 0), BF
  71.  
  72. IF a$ = CHR$(0) + CHR$(75) THEN
  73.     oldxx = xx
  74.     oldyy = yy
  75.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(0, 0, 0), BF
  76.     xx = xx - 5
  77.     GOSUB check:
  78.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(255, 0, 0), BF
  80.  
  81. IF a$ = CHR$(0) + CHR$(77) THEN
  82.     oldxx = xx
  83.     oldyy = yy
  84.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(0, 0, 0), BF
  85.     xx = xx + 5
  86.     GOSUB check:
  87.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(255, 0, 0), BF
  89.  
  90. GOTO go:
  91.  
  92. 'Here is where the computer checks to see if your red square hits a wall.
  93. check:
  94. IF yy < 0 THEN yy = 0
  95. IF xx < 0 THEN xx = 0
  96. IF yy > 475 THEN yy = 475
  97. IF xx > 635 THEN xx = 635
  98.  
  99. FOR t = 1 TO p
  100.     IF xx > x(t) - 10 AND xx < x(t) + 15 AND yy > y(t) - 10 AND yy < y(t) + 15 THEN xx = oldxx: yy = oldyy
  103.  
« Last Edit: June 28, 2019, 02:32:38 pm by SierraKen »
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Simple Maze Designer
« Reply #14 on: June 29, 2019, 05:45:47 am »
"ROFL"?
Logged
Logic is the beginning of wisdom.
Pages: [1] 2   Go Up
« previous next »