# 一个比较有趣的自动生成迷宫程序.

gvbasic代码如下:
10 l=8:mx=160/l:my=80/l:dim a(mx+1,my+1):goto 110
20 while not(x=2 and y=1)
30 if a(x-1,y)*a(x,y-1)*a(x,y+1)*a(x+1,y)=0 then 70
40 for i=0 to 3:xx=x+(i=0)-(i=2):yy=y+(i=1)-(i=3):if a(xx,yy)=s-1 then 60
50 next : return
60 x=xx:y=yy:s=a(x,y):goto 90
70 r=int(rnd(1)*4):xx=x+(r=0)-(r=2):yy=y+(r=1)-(r=3):if a(xx,yy)<>0 then 70
80 x=xx:y=yy:s=s+1:a(x,y)=s
90 wend:return
110 for i=0 to mx+1:a(i,0)=-1:a(i,my+1)=-1:next:for i=0 to my+1:a(0,i)=-1:a(mx+1,i)=-1:next
120 x=mx-1:y=my:s=1:a(x,y)=s:gosub 20
130 for q=my to 1 step -1:for p=mx to 1 step -1:if a(p,q)>0 then 160
140 r=int(rnd(1)*4):pp=p+(r=0)-(r=2)::qq=q+(r=1)-(r=3):if a(pp,qq)<1 then 140
150 x=p:y=q:s=a(pp,qq)*2+1000:a(x,y)=s:gosub 20:f=1
160 next p,q:if f then f=0:goto 130
200 graph
210 for x=1 to mx:for y=1 to my
220 t=abx(a(x,y)-a(x+1,y)):if t<=1 or t-1000=a(x,y) or t-1000=a(x+1,y) then 230
225 line x*l,y*l-l,x*l,y*l
230 t=abx(a(x,y)-a(x,y+1)):if t<=1 or t-1000=a(x,y) or t-1000=a(x,y+1) then 240
235 linex*l-l,y*l,x*l,y*l
240 next y,x
250 box 1,0,160,80:line l,0,l+l,0,0:line 160-l,80,160-l-l,80,0
260 end
400 while not (x=2 and y=1)
1000 for i=1 to 4:for j=1 to 8:print a(j,i);" ";:next: print inkey\$:next:return

int SetMaze(int **Maze,int s,int x,int y)
{
int r,xx,yy;
int i;
while(x!=2||y!=1)
{
if(Maze[y][x-1]*Maze[y][x+1]*Maze[y+1][x]*Maze[y-1][x]==0)
{
r=rand()%4;
xx=x+(r==0)-(r==2);
yy=y+(r==1)-(r==3);
while(Maze[yy][xx]!=0)
{
r=rand()%4;
xx=x+(r==0)-(r==2);
yy=y+(r==1)-(r==3);
}
x=xx;y=yy;s++;
Maze[y][x]=s;
}
else
{
for(i=0;i<4;i++)
{
xx=x+(i==0)-(i==2);
yy=y+(i==1)-(i==3);
if(Maze[yy][xx]==s-1)
{
x=xx;y=yy;s=Maze[y][x];
break;
}
}
if(i==4)
break;
}
}

return 0;
}
int **CreateMaze(int xSize,int ySize)
{
int x=xSize-1,y=ySize,s=1;
int r;
int i,j;

int **Maze=new int*[ySize+2];
for(i=0;i<ySize+2;i++)
Maze[i]=new int[xSize+2];
for(i=0;i<ySize+2;i++)
for(j=0;j<xSize+2;j++)
Maze[i][j]=0;
for(i=0;i<ySize+2;i++)
Maze[i][xSize+1]=Maze[i][0]=-1;
for(i=0;i<xSize+2;i++)
Maze[0][i]=Maze[ySize+1][i]=-1;
Maze[y][x]=s;
srand((unsigned)time(NULL));
SetMaze(Maze,s,x,y);

for(i=ySize;i>0;i--)
{
for(j=xSize;j>0;j--)
{
if(Maze[i][j]<=0)
{
r=rand()%4;
while(Maze[i+(r==1)-(r==3)][j+(r==0)-(r==2)]<1)
r=rand()%4;
x=j;y=i;s=Maze[i+(r==1)-(r==3)][j+(r==0)-(r==2)]*2+1000;
Maze[y][x]=s;
SetMaze(Maze,s,x,y);
CheckOver=false;
}
}
}
return Maze;
}

int DestroyMaze(int **Maze,int ySize)
{
for(int i=0;i<ySize+2;i++)
{
delete []Maze[i];
}

return 0;
}

LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
PAINTSTRUCT ps;
HDC hdc,hdcEmf;

static HENHMETAFILE hemf;
RECT rect;
static int **Maze;
int t;
static int xSize=20;
static int ySize=16;

switch (message)
{
case WM_COMMAND:
break;
case WM_CREATE:
Maze=CreateMaze(xSize,ySize);
hdcEmf=CreateEnhMetaFile(NULL,"emf.emf",NULL,NULL);

Rectangle(hdcEmf,0,0,20*xSize+1,20*ySize+1);
for(int i=1;i<ySize+1;i++)
for(int j=1;j<xSize+1;j++)
{
t=abs(Maze[i][j]-Maze[i][j+1]);
if(!(t<=1||(t-1000)==Maze[i][j]||t-1000==Maze[i][j+1]))
{
MoveToEx(hdcEmf,j*20,i*20-20,NULL);
LineTo(hdcEmf,j*20,i*20);
}
t=abs(Maze[i][j]-Maze[i+1][j]);
if(!(t<=1||(t-1000)==Maze[i][j]||t-1000==Maze[i+1][j]))
{
MoveToEx(hdcEmf,j*20-20,i*20,NULL);
LineTo(hdcEmf,j*20,i*20);
}
}
SelectObject(hdcEmf,GetStockObject(WHITE_PEN));
MoveToEx(hdcEmf,20,0,NULL);
LineTo(hdcEmf,40,0);
MoveToEx(hdcEmf,20*(xSize-2),20*ySize,NULL);
LineTo(hdcEmf,20*(xSize-1),20*ySize);
DeleteObject(SelectObject(hdcEmf,GetStockObject(BLACK_PEN)));
hemf=CloseEnhMetaFile(hdcEmf);
break;
case WM_PAINT:
hdc = BeginPaint(hWnd, &ps);
// TODO: 在此添加任意绘图代码...
GetClientRect(hWnd,&rect);

rect.left=rect.right/4;
rect.right=3*rect.right/4;
rect.top=rect.bottom/4;
rect.bottom=3*rect.bottom/4;

PlayEnhMetaFile(hdc,hemf,&rect);
EndPaint(hWnd, &ps);
break;
case WM_DESTROY:
DeleteEnhMetaFile(hemf);
DestroyMaze(Maze,ySize);
PostQuitMessage(0);
break;
default:
return DefWindowProc(hWnd, message, wParam, lParam);
}
return 0;
}

1代表可行即可,但这样设计未免太过于偷懒.

(xSize+2)*(ySize+2)个点构成.这样地图中不再有障碍的概念,而变为块于

static int xSize=20;
static int ySize=16;

-1 -1 -1 -1 -1
-1  0  0  0 -1
-1  0  0  0 -1
-1  0  0  0 -1
-1 -1 -1 -1 -1

s=s-1,并且退回先前位置).否则便结束函数.还需注意,如果精灵已经到达组成出口的

s=Maze[i+(r==1)-(r==3)][j+(r==0)-(r==2)]*2+1000;

Rectangle(hdcEmf,0,0,20*xSize+1,20*ySize+1);
for(int i=1;i<ySize+1;i++)
for(int j=1;j<xSize+1;j++)
{
t=abs(Maze[i][j]-Maze[i][j+1]);
if(!(t<=1||(t-1000)==Maze[i][j]||t-1000==Maze[i][j+1]))
{
MoveToEx(hdcEmf,j*20,i*20-20,NULL);
LineTo(hdcEmf,j*20,i*20);
}
t=abs(Maze[i][j]-Maze[i+1][j]);
if(!(t<=1||(t-1000)==Maze[i][j]||t-1000==Maze[i+1][j]))
{
MoveToEx(hdcEmf,j*20-20,i*20,NULL);
LineTo(hdcEmf,j*20,i*20);
}
}

#### C语言实现迷宫求解问题（详细思路+附源代码）

2016-01-03 16:59:59

#### 迷宫自动生成程序

2014-07-20 16:56:38

#### C语言迷宫程序代码自动生成迷宫、自动输出路径

2010年04月19日 5KB 下载

#### java小游戏迷宫游戏自动生成路径自动找路

2015年07月16日 1.93MB 下载

#### 一个JAVA编写的迷宫算法。。自动找迷宫出口

2010-06-10 00:56:00

#### 3D迷宫（源代码+演示程序）

2012年12月22日 737KB 下载

#### C++自动生成迷宫

2017年12月28日 11KB 下载

#### 迷宫生成算法和迷宫寻路算法

2012-12-14 20:57:25

#### 自动生成的迷宫（c语言）

2016年10月25日 1.17MB 下载

#### 随机生成一个迷宫并探索一条路径的JAVA实现

2018年02月08日 2KB 下载