[灌水]画迷宫地图ing，顺便来水一下~~

soaryou

手指有点累~又是鼠标又是快捷键~哈哈~~
不知道这里有没有大人喜欢重温dos经典游戏的？
我觉得原来出的那个运标天下很好玩哦~~~ [s:1]

施魔法的猫

quake非常好...

soaryou

雷神简直影响了一代人啊~哈哈~CS出现之后才没落的~ [s:6]

杀鸡四天王

现在有quake 4了。

霜之哀伤

没玩过雷神…… [s:5]

maxumi

迷宫? 看这里
用Turbo pascal编译运行:

2. program lx;
3.   uses crt;
4.   const
5.     b:array[0..3] of integer = (-79, 79, 1, -1);
6.   var
7.     a:array[0..1816] of boolean;
8.     i:integer;
9.     ch:char;
10.   procedure m(p:integer);
11.     var
12.       i, d : byte;
13.     begin
14.       a[p]:=true;
15.       repeat
16.         d:=0;
17.         if (p>158) and not a[p-158] then inc(d, 1);
18.         if (p<1659) and not a[p+158] then inc(d, 2);
19.         if (p mod 79<>77) and not a[p + 2] then inc(d, 4);
20.         if (p mod 79<>1) and not a[p - 2] then inc(d, 8);
21.         if d <> 0 then begin
22.           repeat
23.             i:=random(4);
24.           until boolean(d and(1 shl i));
25.           a[p + b[i]] := true;
26.           m(p + 2 * b[i]);
27.         end;
28.       until d = 0;
29.     end;
30.   begin
31.     randomize;
32.     repeat
33.       clrscr;
34.       fillchar(a, sizeof(a), false);
35.       m(80);
36.       For i:=0 to 1816 do begin
37.         if i mod 79 = 0 then writeln;
38.         if a[i] then write(#32) else write(#219);
39.       end;
40.       ch:=readkey;
41.     until ch=chr(27);
42.   end.

复制代码