Class Board < Object

# File sample/mine.rb, line 21
def initialize(h,w,m)
  # ゲーム盤の生成(h:縦，w:横，m:爆弾の数)
  @hi=h; @wi=w; @m=m
  reset
end

# File sample/mine.rb, line 87
def count(x,y)
  # (x,y)に隣接する爆弾の数を返す
  fetch(x-1,y-1)+fetch(x,y-1)+fetch(x+1,y-1)+
  fetch(x-1,y)  +             fetch(x+1,y)+
  fetch(x-1,y+1)+fetch(x,y+1)+fetch(x+1,y+1)
end

# File sample/mine.rb, line 126
def down
  # カーソルを下に
  if @cy < @hi-1 then @cy=@cy+1; pos(@cx, @cy) end
end

# File sample/mine.rb, line 77
def fetch(x,y)
  # (x,y)の位置の爆弾の数(0 or 1)を返す
  if x < 0 then 0
  elsif x >= @wi then 0
  elsif y < 0 then 0
  elsif y >= @hi then 0
  else
    @data[y*@wi+x]
  end
end

# File sample/mine.rb, line 134
def left
  # カーソルを左に
  if @cx > 0 then @cx=@cx-1; pos(@cx, @cy) end
end

# File sample/mine.rb, line 48
def mark
  # 現在のカーソル位置にマークをつける
  if @state[@wi*@cy+@cx] != nil then return end
  @state[@wi*@cy+@cx] = "MARK"
  @mc=@mc-1;
  @total=@total-1;
  put(@cx, @cy, COL[1], CHR[9])
end

# File sample/mine.rb, line 56
def open(x=@cx,y=@cy)
  # 現在のカーソル位置をオープンにする
  # 爆弾があればゲームオーバー
  if @state[@wi*y+x] =="OPEN"  then return 0 end
  if @state[@wi*y+x] == nil then @total=@total-1 end
  if @state[@wi*y+x] =="MARK" then @mc=@mc+1 end
  @state[@wi*y+x]="OPEN"
  if fetch(x,y) == 1 then @over = 1; return end
  c = count(x,y)
  put(x, y, COL[1], CHR[c])
  return 0 if c != 0
  if x > 0 && y > 0         then open(x-1,y-1) end
  if y > 0                  then open(x,  y-1) end
  if x < @wi-1 && y > 0     then open(x+1,y-1) end
  if x > 0                  then open(x-1,y) end
  if x < @wi-1              then open(x+1,y) end
  if x > 0 && y < @hi-1     then open(x-1,y+1) end
  if y < @hi -1             then open(x,y+1) end
  if x < @wi-1 && y < @hi-1 then open(x+1,y+1) end
  pos(@cx,@cy)
end

# File sample/mine.rb, line 93
def over(win)
  # ゲームの終了
  quit
  unless win
    pos(@cx,@cy); print CHR[11]
  end
  pos(0,@hi)
  if win then print "*** YOU WIN !! ***"
  else print "*** GAME OVER ***"
  end
end

# File sample/mine.rb, line 104
def over?
  # ゲームの終了チェック
  # 終了処理も呼び出す
  remain = (@mc+@total == 0)
  if @over || remain
    over(remain)
    true
  else
    false
  end
end

# File sample/mine.rb, line 115
def quit
  # ゲームの中断(または終了)
  # 盤面を全て見せる
  @hi.times do|y|
    pos(0,y)
    @wi.times do|x|
      colorstr(if @state[y*@wi+x] == "MARK" then COL[1] else COL[2] end,
               if fetch(x,y)==1 then CHR[10] else CHR[count(x,y)] end)
    end
  end
end

# File sample/mine.rb, line 26
def reset
  # ゲーム盤を(再)初期化する
  srand()
  @cx=0; @cy=0; @mc=@m
  @over=false
  @data=Array.new(@hi*@wi)
  @state=Array.new(@hi*@wi)
  @total=@hi*@wi
  @total.times {|i| @data[i]=0}
  @m.times do
     loop do
       j=rand(@total-1)
       if @data[j] == 0 then
         @data[j]=1
         break
       end
     end
  end
  clr; pos(0,0)
  @hi.times{|y| pos(0,y); colorstr(COL[0],CHR[0]*@wi)}
  pos(@cx,@cy)
end

# File sample/mine.rb, line 138
def right
  # カーソルを右に
  if @cx < @wi-1 then @cx=@cx+1; pos(@cx, @cy) end
end

# File sample/mine.rb, line 130
def up
  # カーソルを上に
  if @cy > 0 then @cy=@cy-1; pos(@cx, @cy) end
end