这是开始界面。。
游戏界面。。
2楼上源代码。。

哎呦我去。。代码被度娘删了。。坐等恢复。。。。

火钳流明

这个我也做过

楼主发代码截图就不会被删了

用graph好吗我求你了！！

同意楼上的观点 虽然我也不太会用graph 但是这样做出来的走迷宫狮子暗示不忍直视啊

看不懂迷宫

上代码！
program zoumigong;
uses crt;
label 9;
type
t4=record
g:char;
gone:boolean;
end;
t1=record
x,y:integer;
end;
var
m:array[1..255,1..255] of t4;
now:t1;
i,j,n:integer;
ok:boolean;
procedure check;
type
t3=^t2;
t2=record
xx,yy:integer;
next:t3;
end;
var
a,b:^t2;
i:integer;
begin
new(b); a:=b;
for i:=2 to (n*n div 2+1) do begin
new(a^.next); a:=a^.next;
end;
a^.next:=b; b^.xx:=1; b^.yy:=1; m[1,1].gone:=true;
repeat
a:=a^.next;
if (a^.xx-1>0) then
if (m[a^.xx-1,a^.yy].g<>'@') then
if m[a^.xx-1,a^.yy].gone<>true then begin
b:=b^.next; b^.xx:=a^.xx-1; b^.yy:=a^.yy; m[b^.xx,b^.yy].gone:=true;
end;
if (b^.xx=n)and(b^.yy=n) then break;
if (a^.xx+1<=n) then
if (m[a^.xx+1,a^.yy].g<>'@') then
if m[a^.xx+1,a^.yy].gone<>true then begin
b:=b^.next; b^.xx:=a^.xx+1; b^.yy:=a^.yy; m[b^.xx,b^.yy].gone:=true;
end;
if (b^.xx=n)and(b^.yy=n) then break;
if (a^.yy+1<=n) then
if (m[a^.xx,a^.yy+1].g<>'@') then
if m[a^.xx,a^.yy+1].gone<>true then begin
b:=b^.next; b^.xx:=a^.xx; b^.yy:=a^.yy+1; m[b^.xx,b^.yy].gone:=true;
end;
if (b^.xx=n)and(b^.yy=n) then break;
if (a^.yy-1>0) then
if (m[a^.xx,a^.yy-1].g<>'@') then
if m[a^.xx,a^.yy-1].gone<>true then begin
b:=b^.next; b^.xx:=a^.xx; b^.yy:=a^.yy-1; m[b^.xx,b^.yy].gone:=true;
end;
if (b^.xx=n)and(b^.yy=n) then break;
until (a=b);
ok:=(b^.xx=n)and(b^.yy=n);
end;

begin {main}
repeat
clrscr;
write('input the size of map(n*n)[1<=n<=255]-----n=');
9:readln(n);
if (n>255)or(n<1) then begin writeln('input right "n"'); goto 9; end;
writeln('make map(',n,'*',n,') now,please wait some time....');
randomize;
repeat
for i:=1 to n do
for j:=1 to n do begin
now.x:=random(1000); m[i,j].gone:=false;
if now.x<=350 then m[i,j].g:='@' else m[i,j].g:=' ';
end;
check;
until ok;
m[1,1].g:='$'; m[n,n].g:='#';
now.x:=1; now.y:=1;
writeln('finish map(',n,'*',n,')');
writeln;writeln;
writeln('your aim------go from left-up to right-down');
writeln('press any key to begin');
readkey; gamenow;
writeln('press any key to restart...');
readkey;
until false;
end.

喷死！！！！！！！！第一段又删了！！！！度娘我恨你！！！

这是第一段。。。。
program zoumigong;
uses crt;
label 9;
type
t4=record
g:char;
gone:boolean;
end;
t1=record
x,y:integer;
end;
var
m:array[1..255,1..255] of t4;
now:t1;
i,j,n:integer;
ok:boolean;
procedure check;
type
t3=^t2;
t2=record
xx,yy:integer;
next:t3;
end;
var
a,b:^t2;
i:integer;
begin
new(b); a:=b;
for i:=2 to (n*n div 2+1) do begin
new(a^.next); a:=a^.next;
end;
a^.next:=b; b^.xx:=1; b^.yy:=1; m[1,1].gone:=true;
repeat
a:=a^.next;
if (a^.xx-1>0) then
if (m[a^.xx-1,a^.yy].g<>'@') then
if m[a^.xx-1,a^.yy].gone<>true then begin
b:=b^.next; b^.xx:=a^.xx-1; b^.yy:=a^.yy; m[b^.xx,b^.yy].gone:=true;
end;
if (b^.xx=n)and(b^.yy=n) then break;
if (a^.xx+1<=n) then
if (m[a^.xx+1,a^.yy].g<>'@') then
if m[a^.xx+1,a^.yy].gone<>true then begin
b:=b^.next; b^.xx:=a^.xx+1; b^.yy:=a^.yy; m[b^.xx,b^.yy].gone:=true;
end;
if (b^.xx=n)and(b^.yy=n) then break;
if (a^.yy+1<=n) then
if (m[a^.xx,a^.yy+1].g<>'@') then
if m[a^.xx,a^.yy+1].gone<>true then begin
b:=b^.next; b^.xx:=a^.xx; b^.yy:=a^.yy+1; m[b^.xx,b^.yy].gone:=true;
end;
if (b^.xx=n)and(b^.yy=n) then break;
if (a^.yy-1>0) then
if (m[a^.xx,a^.yy-1].g<>'@') then
if m[a^.xx,a^.yy-1].gone<>true then begin
b:=b^.next; b^.xx:=a^.xx; b^.yy:=a^.yy-1; m[b^.xx,b^.yy].gone:=true;
end;
if (b^.xx=n)and(b^.yy=n) then break;
until (a=b);
ok:=(b^.xx=n)and(b^.yy=n);
end;

火钳~
你可以换一下墙壁的图标换成方块

这 与合法的调查显示速度感激不尽配合刚刚地促进繁荣平均积分洒出

不错 界面单调

界面单调+1

表示弱爆了
————我就是水个贴，不过确实挺弱