https://oldwiki.cpcwiki.eu/index.php?action=history&feed=atom&title=Programming%3AMaze_generationProgramming:Maze generation - Revision history2026-08-28T14:50:59ZRevision history for this page on the wikiMediaWiki 1.25.1https://oldwiki.cpcwiki.eu/index.php?title=Programming:Maze_generation&diff=101750&oldid=prevCPM User: Created page with "From Rosetta Code, I was able to translate a [http://rosettacode.org/wiki/Maze_generation#BASIC Maze generation routine from a QB64] for Locomotive BASIC. The original code..."2018-05-06T06:34:03Z<p>Created page with "From Rosetta Code, I was able to translate a [http://rosettacode.org/wiki/Maze_generation#BASIC Maze generation routine from a QB64] for Locomotive BASIC. The original code..."</p>
<p><b>New page</b></p><div>From Rosetta Code, I was able to translate a [http://rosettacode.org/wiki/Maze_generation#BASIC Maze generation routine from a QB64] for Locomotive BASIC. <br />
<br />
The original code produced a 40x20 maze and recommended using even numbers for the Width and Height. <br />
<br />
I have set it up for MODE 1, 38 x 20 and it actually takes a while to prepare, though it should be useful for creating maze style games as it requires very little information to adjust for MODE 0.<br />
<br />
<pre><br />
10 MODE 1:DEFINT a-z:INK 0,0:INK 1,9:BORDER 0<br />
20 LOCATE 14,12:PEN 1:PRINT"Please Wait."<br />
30 RANDOMIZE TIME:RANDOMIZE RND<br />
40 w=38<br />
50 h=20<br />
60 DIM m$(w,h)<br />
70 FOR x=0 TO w<br />
80 FOR y=0 TO h<br />
90 m$(x,y)="#"<br />
100 NEXT y<br />
110 NEXT x<br />
120 cx=INT(RND*(w-1))<br />
130 cy=INT(RND*(h-1))<br />
140 IF cx MOD 2=0 THEN cx=cx+1<br />
150 IF cy MOD 2=0 THEN cy=cy+1<br />
160 m$(cx,cy) = " "<br />
170 d=0<br />
180 WHILE d=0<br />
190 FOR i=0 TO 99<br />
200 ox=cx<br />
210 oy=cy<br />
220 s=INT(RND*4)+1<br />
230 ON s GOSUB 410,430,450,470<br />
240 IF m$(cx,cy)="#" THEN m$(cx,cy)=" ":m$(INT((cx+ox)/2),INT((cy+oy)/2))=" "<br />
250 NEXT i<br />
260 d=1<br />
270 FOR x=1 TO w-1 STEP 2<br />
280 FOR y=1 TO h-1 STEP 2<br />
290 IF m$(x,y)="#" THEN d=0<br />
300 NEXT y<br />
310 NEXT x<br />
320 WEND<br />
330 LOCATE 1,1<br />
340 FOR y=0 TO h<br />
350 FOR x=0 TO w<br />
360 PRINT m$(x,y);<br />
370 NEXT x<br />
380 PRINT<br />
390 NEXT y<br />
400 END<br />
410 IF cx+2<w THEN cx=cx+2<br />
420 RETURN<br />
430 IF cy+2<h THEN cy=cy+2<br />
440 RETURN<br />
450 IF cx-2>0 THEN cx=cx-2<br />
460 RETURN<br />
470 IF cy-2>0 THEN cy=cy-2<br />
480 RETURN<br />
</pre><br />
<br />
[[Category:Programming]]</div>CPM User