extends SpriteChar;

/*
＊＊＊|
＊６３|
＊？？|←悩むね！（
￣￣￣
マインスイーパです。

--変数一覧--
W 横のマス数
H 縦のマス数
M 地雷数
S ゲーム状況(0停止、1プレイ、2一時停止)
T 経過時間(フレーム)
D 二次元配列、マップ。(地雷=1、その他=null)
E 地雷のX,Y座標が入っている配列。
MX マウスのX(マップ)
MY マウスのY(マップ)
------------

---その他---
初級は 9* 9 10個
中級は16*16 40個
上級は30*16 99個
オリジナル 9*9~56*40 10~2052
(ただし(X-1)*(Y-1)個まで)
------------
*/


//マスを作る。

//基本事項
randomize();
W = 9;
H = 9;
M = 10;
$ScreenWidth = W * 16 +1;
$ScreenHeight = H * 16 +1;
$BGCOLOR = $clWhite;

//マスわけ
for (x=0;x<W+1;x++) {
  $panel.drawLine(x*16,0,x*16,$ScreenHeight,$clBlack);
}
for (y=0;y<H+1;y++) {
  $panel.drawLine(0,y*16,$ScreenWidth,y*16,$clBlack);
}

//地雷仕込み
D = new Matrix(W);
D.addRows(H);
E = new Array();
F = new Array();

i=0;
while(i<M) {
  x = rnd(W);
  y = rnd(H);
  if (D.get(x,y) != -1) {D.set(x,y,-1);i++;E.add(x+","+y);}
}
for (x=0;x<W;x++) {
  for (y=0;y<H;y++) {
    
    //周りの地雷の数を数える。
    i=0;
    if (Y > 0) {
      if (X > 0) if (D.get(X-1,Y-1) == -1) i++;
      if (D.get(X,Y-1) == -1) i++;
      if (X < W-1) if (D.get(X+1,Y-1) == -1) i++;
    }
    if (X > 0) if (D.get(X-1,Y) == -1) i++;
    if (X < W-1) if (D.get(X+1,Y) == -1) i++;
    if (Y < H-1) {
      if (X > 0) if (D.get(X-1,Y+1) == -1) i++;
      if (D.get(X,Y+1) == -1) i++;
      if (X < W-1) if (D.get(X+1,Y+1) == -1) i++;
    }
    D.set(X,Y,i);
    
  }
}


//本体
setVisible(0);
S = 0;
T = 0;
while(S < 2) {
  
  //クリックでゲーム開始
  if (S == 0 && getKey(1)==1) S=1;
  
  //プレイ中
  if (S==1) {
    
    T++;
    
    if (getKey(1)==1) {
      MX = trunc($MouseX/16);
      MY = trunc($MouseY/16);
      
      //地雷
      if (D.get(MX,MY) == -1) {
        for (i=0;i<M;i++) {
          D = E.get(i).split();
          D.set(0,valueOf(D.get(0)));
          D.set(1,valueOf(D.get(1)));
          $panel.fillRect(D.get(0)*16+1,D.get(1)*16+1,D.get(0)*16+16,D.get(1)*16+16,$ClRed);
          $panel.drawText(D.get(0)*16+2,D.get(1)*16-5,"*",$ClBlack,20);
          S = 2;
        }
      } else {
        
        print(MX);
        print(MY);
        //関数呼び出し
        fill(MX,MY);
        
      }
    }
  }
  
  update();
}

//塗りつぶし処理
function fill(X,Y) {
  var i;
  i = D.get(X,Y);
  
  //書き込む
  if (i != -2) {
    $panel.fillRect(X*16+1,Y*16+1,X*16+16,Y*16+16,color(200,200,200));
    $panel.drawText(X*16+4,Y*16-1,i,$ClBlack,15);
  }
  
  //0なら上下左右にfillを呼び出す。
  if (i == 0) {
    D.set(X,Y,-2);
    if (Y>0) fill(X,Y-1);
    if (Y<H+1) fill(X,Y+1);
    if (X>0) fill(X-1,Y);
    if (X<W+1) fill(X+1,Y);
  }
  
}