Open in online IDE I sort of find this interesting "Coorae".
Code archives/Algorithms/Maze Generator
This code has been declared by its author to be Public Domain code.
Download source code
| This function generates a random maze by filling the maze(,) array. All generated mazes are solvable! Meaning there is always exactly one way to reach any point on any maze. Walls are solid blocks. 1=wall 0=empty The function is self contained except you need the array dimmed at 0. |
Graphics 640,480,0,2 SeedRnd MilliSecs() ;This Dim is needed for the function Dim maze(0,0) ;Randomly Generated Example Mazes: ;EXAMPLE MAZE 1 sx=55 sy=35 makemaze(sx,sy,0,2) For fy=1 To sy For fx=1 To sx If maze(fx,fy) Then Rect fx*10,fy*10,10,10 Next Next WaitKey ;EXAMPLE MAZE 2 sx=15 sy=45 makemaze(sx,sy,1,1) Cls For fy=1 To sy For fx=1 To sx If maze(fx,fy) Then Rect fx*10,fy*10,10,10 Next Next WaitKey ;EXAMPLE MAZE 3 sx=301 sy=201 makemaze(sx,sy,4,9) Cls For fy=1 To sy For fx=1 To sx If maze(fx,fy) Then Rect fx*2,fy*2,2,2 Next Next WaitKey ;EXAMPLE MAZE 4 sx=301 sy=201 makemaze(sx,sy,0,10) Cls For fy=1 To sy For fx=1 To sx If maze(fx,fy)>=1 Then Rect fx*2,fy*2,2,2 Next Next WaitKey ;EXAMPLE MAZE 5 sx=301 sy=201 makemaze(sx,sy,1,1) Cls For fy=1 To sy For fx=1 To sx If maze(fx,fy)>=1 Then Rect fx*2,fy*2,2,2 Next Next WaitKey End ;MAKEMAZE() ;OPEN tells how wide the space between walls are ;if OPEN is large the mazes tend to look the same ;when EXACT is 1 a maze wall can only make a turn on an odd number cell ;EXACT=1 ;# ;### ; # ; # ;EXACT=0 ;# ;## ; ## ; # ;ex. when EXACT is 5, a wall can only be put on every fifth cell ;##### ; # ; # ; # ; ###### Function MakeMaze(width,height,exact=0,open=1) Local fx,fy,allx,ally Local go,farx,fary,alldir Local dir,ok,f,f2 Local x,y,x2,y2 Local movex[3],movey[3] Local cango[4] Local did,didmax Local mx2,my2 Local mx=width,my=height If exact=1 Then If (my And 1)=0 Or (mx And 1)=0 Then RuntimeError "maze size must be odd for exact mazes" If open<1 Then RuntimeError "open must be greater than 0" movex[0]=+1 movey[1]=+1 movex[2]=-1 movey[3]=-1 Dim maze(mx+1,my+1) For fx=1 To mx maze(fx,1)=1 maze(fx,my)=1 Next For fy=1 To my maze(1,fy)=1 maze(mx,fy)=1 Next farx=mx fary=my ally=1 allx=1 exact=exact+1 didmax=mx*my mx2=mx+exact+1 my2=my+exact+1 Repeat Repeat allx=Rand(exact,mx2) ally=Rand(exact,my2) allx=allx/exact*exact-1 ally=ally/exact*exact-1 If allx>mx Then allx=mx If ally>my Then ally=my If maze(allx,ally)=1 Then Exit Forever did=did+1 If did>didmax Then Exit x=allx y=ally dir=Rand(0,3) Repeat ok=0 For candir=0 To 3 For f=1 To exact+open x2=x+movex[candir]*f y2=y+movey[candir]*f If x2<=0 Or y2<=0 Or x2>mx Or y2>my Then f=9999:Exit If maze(x2,y2)=1 Then f=9999:Exit For f2=1 To open If maze(x2+movex[(candir+1) And 3]*f2,y2+movey[(candir+1) And 3]*f2)=1 Then f=9999:Exit If maze(x2+movex[(candir-1) And 3]*f2,y2+movey[(candir-1) And 3]*f2)=1 Then f=9999:Exit Next Next cango[candir]=(f<9999) If cango[candir] Then ok=1 Next If Rand(didmax)=1 Then Exit If ok=0 Then Exit dir=(dir+Rand(-1,+1)) And 3 If cango[dir]=1 Then For f=1 To exact x=x+movex[dir] y=y+movey[dir] maze(x,y)=1 Next EndIf Forever Forever End Function |
Comments
Halls of the things!!! Anyone?!
Good stuff Coorae, nice generator
Good stuff Coorae, nice generator
Nice one. I may use this to generate a few maze levels for my game, if that's OK.
sure, how do I make it public domain?
View your own profile then click the link at the bottom of the page.
I might use this for my game, to have endless gameplay! :o
I will tell you if I do ;)
I will tell you if I do ;)
cool, endless gameplay is the best
Hi, any attemp to port it to BlitzMax ?
I tried myself but did not get the same mazes at all !
I tried myself but did not get the same mazes at all !
..the random algo might be a different one in bmax?
Ya I did port it to blitzmax.
This one is self contained and returns a 2D array.
This one is self contained and returns a 2D array.
Strict Graphics 640,480 SeedRnd MilliSecs() 'Randomly Generated Example Mazes: Local maze[,] Local sx,sy Local fx,fy 'EXAMPLE MAZE 1 sx=55 sy=35 maze=makemaze(sx,sy,0,2) For fy=1 To sy For fx=1 To sx If maze[fx,fy] Then DrawRect fx*10,fy*10,10,10 Next Next Flip WaitKey 'EXAMPLE MAZE 2 sx=15 sy=45 maze=makemaze(sx,sy,1,1) Cls For fy=1 To sy For fx=1 To sx If maze[fx,fy] Then DrawRect fx*10,fy*10,10,10 Next Next Flip WaitKey 'EXAMPLE MAZE 3 sx=301 sy=201 maze=makemaze(sx,sy,4,9) Cls For fy=1 To sy For fx=1 To sx If maze[fx,fy] Then DrawRect fx*2,fy*2,2,2 Next Next Flip WaitKey 'EXAMPLE MAZE 4 sx=301 sy=201 maze=makemaze(sx,sy,0,10) Cls For fy=1 To sy For fx=1 To sx If maze[fx,fy] Then DrawRect fx*2,fy*2,2,2 Next Next Flip WaitKey 'EXAMPLE MAZE 5 sx=301 sy=201 maze=makemaze(sx,sy,1,1) Cls For fy=1 To sy For fx=1 To sx If maze[fx,fy] Then DrawRect fx*2,fy*2,2,2 Next Next Flip WaitKey End 'MAKEMAZE() 'Returns a 2D array of integers. 1=wall. 0=open space. 'OPEN tells how wide the space between walls are 'If OPEN is large the mazes tend to look the same 'when EXACT is 1 a maze wall can only make a turn on an odd number cell 'EXACT=1 '# '### ' # ' # 'EXACT=0 '# '## ' ## ' # 'ex. when EXACT is 5, a wall can only be put on every fifth cell '##### ' # ' # ' # ' ###### Function MakeMaze:Int[,](width,height,exact=0,open=1) Local fx,fy,allx,ally Local go,farx,fary,alldir Local dir,ok,f,f2 Local x,y,x2,y2 Local did,didmax Local mx2,my2 Local mx=width,my=height Global movex[4],movey[4] Local cango[4] Local candir,candir2 If exact = 1 Then If (my & 1)=0 Or (mx & 1)=0 Then RuntimeError "maze size must be odd for exact mazes" EndIf If open<1 Then RuntimeError "open must be greater than 0" movex[0]=+1 movey[1]=+1 movex[2]=-1 movey[3]=-1 Local maze[,] maze=New Int[mx+1,my+1] For fx=1 To mx maze[fx,1]=1 maze[fx,my]=1 Next For fy=1 To my maze[1,fy]=1 maze[mx,fy]=1 Next farx=mx fary=my ally=1 allx=1 exact:+1 didmax=mx*my mx2=mx+exact+1 my2=my+exact+1 Repeat Repeat allx=Rand(1,mx2) ally=Rand(1,my2) allx=allx/exact*exact-1 ally=ally/exact*exact-1 If allx<1 Then allx=1 If ally<1 Then ally=1 If allx>mx Then allx=mx If ally>my Then ally=my If maze[allx,ally]=1 Then Exit Forever did:+1 If did>didmax Then Exit x=allx y=ally dir=Rand(0,3) Repeat If Rand(didmax)=1 Then Exit ok=0 For candir=0 To 3 For f=1 To exact+open x2=x+movex[candir]*f y2=y+movey[candir]*f If x2<=0 Or y2<=0 Or x2>mx Or y2>my Then f=9999;Exit If maze[x2,y2]=1 Then f=9999;Exit For f2=1 To open candir2=(candir+1) & 3 If maze[x2+movex[candir2]*f2,y2+movey[candir2]*f2]=1 Then f=9999;Exit candir2=(candir-1) & 3 If maze[x2+movex[candir2]*f2,y2+movey[candir2]*f2]=1 Then f=9999;Exit Next Next cango[candir]=(f<9999) If cango[candir] Then ok=1 Next If ok=0 Then Exit Repeat dir=(dir+Rand(-1,+1)) & 3 If cango[dir]=1 Then Exit Forever For f=1 To exact x:+movex[dir] y:+movey[dir] maze[x,y]=1 Next Forever Forever Return maze EndFunction
Holy cow thats pretty great!! I like the type 4 maze!!! Thanks!!
Great piece of code ! thanks to share !