Sorry your browser is not supported!

sizeX = 50
sizeY = 50

Make Maze(50,50,1)
end





Function Make Maze(sizeX,sizeY,randomness)
Dim Maze(sizeX + 5,sizeY + 5)

rem fill as unvisited
For x = 1 to sizeX + 5
   For y = 1 to sizeY + 5
      Maze(x,y) = 3
   Next y
Next x

rem make outer walls
For x = 2 to sizeX + 3
   Maze(x,2) = 1 : Maze(x,sizeY + 3) = 1
Next x
For y = 2 to sizeY + 3
   Maze(2,y) = 1 : Maze(sizeX + 3,y) = 1
Next y


xdir = 0
ydir = 0
rdir = rnd(3) + 1
   if rdir = 1 then xdir = 1
   if rdir = 2 then xdir = -1
   if rdir = 3 then ydir = 1
   if rdir = 4 then ydir = -1
repeat
   rem look for unvisited spot
   randompointcheck = 1
   repeat
      StartPointX = rnd(sizeX - 1) + 3
      StartPointY = rnd(sizeY - 1) + 3
      If Maze(StartPointX,StartPointY) = 3 then randompointcheck = 1
   until randompointcheck = 1

   rem Make walls
   currentX = StartPointX
   currentY = StartPointY
   repeat
      rem Check Walls
      wallend = 0
      if Maze(currentX - 1,currentY) < 3 and Maze(currentX + 1,currentY) < 3 and Maze(currentX,currentY - 1) < 3 and Maze(currentX,currentY + 1) < 3
         wallend = 1
      endif

   rem make walls and paths
   if wallend = 0
   moved = 0
   movemore = 0
      repeat
       if  Maze(currentX + xdir,currentY + ydir) = 3
         inc currentX, xdir
         inc currentY, ydir
            Maze(currentX,currentY) = 1
            if Maze(currentX - 1,currentY) = 3 then Maze(currentX - 1,currentY) = 2
            if Maze(currentX + 1,currentY) = 3 then Maze(currentX + 1,currentY) = 2
            if Maze(currentX,currentY + 1) = 3 then Maze(currentX,currentY + 1) = 2
            if Maze(currentX,currentY - 1) = 3 then Maze(currentX,currentY - 1) = 2
         moved = 1
       else
         xdir = 0
         ydir = 0
         rdir = rnd(3) + 1
         if rdir = 1 then xdir = 1
         if rdir = 2 then xdir = -1
         if rdir = 3 then ydir = 1
         if rdir = 4 then ydir = -1
       endif
      until moved = 1
   endif
   rem turn walls
      rdir = rnd(99) + 1
      if rdir > randomness
         xdir = 0
         ydir = 0
         rdir = rnd(3) + 1
         if rdir = 1 then xdir = 1
         if rdir = 2 then xdir = -1
         if rdir = 3 then ydir = 1
         if rdir = 4 then ydir = -1
       endif
   until wallend = 1

   rem if all spots visited then end function
   MatrixCompleat = 1
   For x = 3 to sizeX + 2
      For y = 3 to sizeX + 2
         If Maze(x,y) = 3 then MatrixCompleat = 0
      Next y
   Next x
until MatrixCompleat = 1





rem  Matrix Test
For x = 2 to sizeX + 3
   For y = 2 to sizeY + 3
      if Maze(x,y) = 1 or Maze(x,y) = 0 then BOX x*5, y*5, x*5+5, y*5+5
      `Set Cursor x*8,y*12
      `Print Maze(x,y)
   Next y
Next x

`SAVE ARRAY "Maze", Maze(sizeX - 1,sizeY - 1)
EndFunction

` s=size of maze (2 or more)
` w=pixel size of boxes (1 or more)
` xs=startx (MUST be even)
` ys=starty (MUST be even)
s=40 : w=5 : xs=2 : ys=2
sync on : sync rate 0 : t=s*2+1
dim d(4,2) : d(1,1)=1 : d(2,2)=1 : d(3,1)=-1 : d(4,2)=-1
dim m(t,t)
randomize timer()
do
   x=xs : y=ys : z=0 : zm=0
   for f=1 to t : m(f,1)=1 : m(f,t)=1 : m(1,f)=1 : m(t,f)=1 : next f
   rem generate maze
   repeat
      k=1
      for f=1 to 3
         r1=rnd(3)+1 : r2=rnd(3)+1 : p1=d(r1,1) : p2=d(r1,2) : d(r1,1)=d(r2,1) : d(r1,2)=d(r2,2) : d(r2,1)=p1 : d(r2,2)=p2
      next f
      for f=1 to 4
         dx=d(f,1) : dy=d(f,2)
         if m(x+dx,y+dy)=0
            if m((2*dx)+x,(2*dy)+y)=0
               m(x,y)=2 : m(x+dx,y+dy)=2 : x=x+(2*dx) : y=y+(2*dy) : inc z
               if z > zm then zm=z : x1=x : y1=y
               k=0 : exit
            endif
         endif
      next f
      if k=1
         for f=1 to 4
            dx=d(f,1) : dy=d(f,2) : if m(x+dx,y+dy)=2 then m(x,y)=3 : m(x+dx,y+dy)=3 : x=x+(2*dx) : y=y+(2*dy) : dec z : k=0 : exit
         next f
      endif
   until k=1
   m(x,y)=3
   rem draw maze
   cls : sync
   for f=1 to t
      for g=1 to t
         c=m(f,g)
         if (f=x1 and g=y1) or (f=xs and g=ys) or (c < 2)
            if c < 2 : ink rgb(0,0,255),0 : else : ink rgb(0,255,0),0 : endif
            box (g-1)*w,(f-1)*w,g*w,f*w
         endif
      next g
   next f
   sync
   wait key
   for f=1 to t : for g=1 to t : m(f,g)=0 : next g : next f
loop