扫地雷II

感谢格致杭业晟同学改进完善

uses crt;
var
  i,j,k,ls,x,y:byte;
  b:array[0..11,0..11] of shortint;
  f:array[0..11,0..11] of boolean;
  c:char;
procedure a;  //光标往左
begin
  gotoxy((x+2)*2,y+3);  //恢复上一个位置
  if f[y+1,x+1] then write(b[y+1,x+1])
                else write('?');
  if x=0 then x:=9
         else x:=x-1;
  textbackground(white);  //更新新位置
  textcolor(black);
  gotoxy((x+2)*2,y+3);
  if f[y+1,x+1] then write(b[y+1,x+1])
                else write('?');
  textbackground(black);
  textcolor(white);
end;
procedure w;
begin
  gotoxy((x+2)*2,y+3);
  if f[y+1,x+1] then write(b[y+1,x+1])
                else write('?');
  if y=0 then y:=9
         else y:=y-1;
  textbackground(white);
  textcolor(black);
  gotoxy((x+2)*2,y+3);
  if f[y+1,x+1] then write(b[y+1,x+1])
                else write('?');
  textbackground(black);
  textcolor(white);
end;
procedure d;
begin
  gotoxy((x+2)*2,y+3);
  if f[y+1,x+1] then write(b[y+1,x+1])
                else write('?');
  if x=9 then x:=0
         else x:=x+1;
  textbackground(white);
  textcolor(black);
  gotoxy((x+2)*2,y+3);
  if f[y+1,x+1] then write(b[y+1,x+1])
                else write('?');
  textbackground(black);
  textcolor(white);
end;
procedure s;
begin
  gotoxy((x+2)*2,y+3);
  if f[y+1,x+1] then write(b[y+1,x+1])
                else write('?');
  if y=9 then y:=0
         else y:=y+1;
  textbackground(white);
  textcolor(black);
  gotoxy((x+2)*2,y+3);
  if f[y+1,x+1] then write(b[y+1,x+1])
                else write('?');
  textbackground(black);
  textcolor(white);
end;
begin
  clrscr;
  cursoroff;
  fillchar(f,sizeof(f),false);
  randomize;
  for i:=1 to 10 do  //随机生成地雷（10%，-1表示地雷格），并统计地雷个数
    for j:=1 to 10 do begin
      k:=random(10);
      if k=0 then b[i,j]:=-1
             else b[i,j]:=0;
      if b[i,j]=-1 then inc(ls);
    end;

for i:=1 to 10 do  //计算非地雷格周边的地雷数
    for j:=1 to 10 do
      if b[i,j]=0 then begin
        if b[i-1,j-1]=-1 then inc(b[i,j]);
        if b[i-1,j]=-1 then inc(b[i,j]);
        if b[i-1,j+1]=-1 then inc(b[i,j]);
        if b[i,j-1]=-1 then inc(b[i,j]);
        if b[i,j+1]=-1 then inc(b[i,j]);
        if b[i+1,j-1]=-1 then inc(b[i,j]);
        if b[i+1,j]=-1 then inc(b[i,j]);
        if b[i+1,j+1]=-1 then inc(b[i,j]);
      end;
  writeln('   0 1 2 3 4 5 6 7 8 9');  //输出初始界面
  writeln(' .--------------------.');
  for i:=1 to 10 do begin
    write(i-1,'|');
    for j:=1 to 10 do write(' ?');
    write('|');
    writeln;
  end;
  writeln(' .-------------------.');

x:=0;  //光标定位到左上角
  y:=0;
  textbackground(white);
  textcolor(black);
  gotoxy((x+2)*2,y+3);
  write('?');
  textbackground(black);
  textcolor(white);
  while (100-ls)>0 do  //扫雷开始
    if keypressed then begin
      c:=readkey;
      if c='w' then w;
      if c='a' then a;
      if c='s' then s;
      if c='d' then d;
      if c=' ' then  //如果按空格
        if b[y+1,x+1]=-1 then begin  //如果这格是地雷
          clrscr;
          textcolor(lightred);
          writeln('Bomb! You Lose!');
          writeln('Press Enter to Exit');
          readln;
          exit;
        end
        else begin  //如果这格不是地雷
          textbackground(white);
          textcolor(black);
          gotoxy((x+2)*2,y+3);
          write(b[y+1,x+1]);
          textbackground(black);
          textcolor(white);
          f[y+1,x+1]:=true;
          inc(ls);
        end;
  end;
  clrscr;
  textcolor(yellow);
  writeln('You Win!');
  writeln('Press Enter to Exit');
  readln;
end.