こんにちは、usagi-sanです。
今回は、統計解析やデータ解析用のスクリプト言語であるR言語を用いてマインスイーパーを作成しました。
R言語は手続き型の言語であるため、クラスを定義することはほとんどありませんが、今回ゲームを作成するということでクラスを定義し、オブジェクト指向でスクリプトを書いてみました。
マインスイーパーは、次の画像のようにR言語のwindow上で遊ぶことができます。
マインスイーパ実行画面
マインスイーパーのプログラミングコードはこの記事の一番下でダウンロードできます。
クラスの定義の仕方の勉強したい方や興味のある方は、是非是非ダウンロードしてください。
クラス mineSweeper
マインスイーパーのアルゴリズムや描画するメソッドなどから成るクラスmineSweeperを紹介します。
クラスmineSweeperは次のフィールドとメソッドから構成されています。
フィールド
- n_row = "numeric"
- n_col = "numeric"
- n_bomb = "numeric"
- df = "data.frame"
- exploredTile = "data.frame"
- flaggedTile = "data.frame"
- gameEnd = "logical"
- mode = "character"
- remainingCells = "numeric"
メソッド
- Initialize = function()
- Start = function()
- Explore = function(x,y)
- GameStartPlot = function()
- GamePlot = function()
- MousePointer = function(x,y)
- ConvertMode = function(x, y)
- RemainingCells = function()
このクラスのインスタンスを生成し、メソッドをmain()で実行することで、マインスイーパーを実行することができます。
これらのフィールドとメソッドの意味や役割は次で紹介していきます。
フィールド
n_row
マインスイーパーの行の数を指定する。ゲーム開始時に指定した行数がn_rowに代入されます。
n_col
マインスイーパーの列の数を指定する。ゲーム開始時に指定した列数がn_colに代入されます。
n_bomb
マインスイーパーの地雷の数を指定する。ゲーム開始時に指定した地雷の数がn_bombに代入されます。
df
マインスイーパーの盤面の地雷の位置や、接している地雷の数などの情報を格納するためのデータフレーム。接している地雷の数が1,2,3,4,...の場合dfには、対応する地雷の数が代入されます。また地雷は-1として表現されます。
exploredTile
探索済みの盤面を代入します。TRUEはすでに探索済みのセルであり、FALSEの場合は探索していないセルを表現します。TRUEの盤面のみがGUI上で描画されます。
flaggedTile
旗付きのセルを格納するデータフレーム。TRUEの場合、旗が付いていて、FALSEの場合、旗がついていないことを表現します。後述するmodeがflagのときにクリックしたセルに対応するflaggedTileがTRUEとなります。
gameEnd
ゲームが続いているか、終了しているかを表すlogical型の変数。
mode
探索するか、旗を付けるかを表すcharacter型の変数。modeがexploreの場合、選択したセルを探索します（セルを開ける）。flagの場合、選択したセルに旗を付けます。
remainingCells
未探索のセルの数を表すnumeric型の変数。
メソッド
Initialize
Initializeは、フィールドの変数を初期化するためのメソッドです。
インスタンスの生成後に、このメソッドを実行することで、フィールドの変数を初期化できます。
gameEnd、mode、remainigCells、df、eploredTile、flaggedTileなどの変数を初期化しています。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Initialize = function(){ gameEnd <<- FALSE mode <<- "explore" remainingCells <<- n_row * n_col - n_bomb df <<- data.frame(matrix(rep(NA, n_row), nrow = n_row))[,numeric(0)] for(i in 1:n_col){ df <<- cbind(df, rep(0,n_row)) } exploredTile <<- data.frame(matrix(rep(F, n_row), nrow = n_row))[,numeric(0)] for(i in 1:n_col){ exploredTile <<- cbind(exploredTile, rep(F,n_row)) } flaggedTile <<- data.frame(matrix(rep(F, n_row), nrow = n_row))[,numeric(0)] for(i in 1:n_col){ flaggedTile <<- cbind( flaggedTile, rep(F,n_row)) } } |
Start
Initializeで初期化したdfに盤面の情報を与えるメソッドです。
dfに地雷の数n_bombの数だけ、-1を代入し地雷の情報を与えます。
そのあとはdfの-1の位置を頼りに、-1に接している数をdfの各要素に代入していきます。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | Start = function(){ xy_bomb <- NULL for(i in 1:n_bomb){ xy <- sample(setdiff(1:(n_row*n_col), xy_bomb),1) xy_bomb[i] <- xy df[(xy%/%n_col)+1,(xy%%n_row)+1] <<- (-1) } for(i in 1:n_row){ for(j in 1:n_col){ if(df[i,j]!=-1){ count <- 0 if(i < n_row){ if(df[i+1,j] == -1){count <- count + 1} } if(i > 1){ if(df[i-1,j] == -1){count <- count + 1} } if(j < n_col){ if(df[i,j+1] == -1){count <- count + 1} } if(j > 1){ if(df[i,j-1] == -1){count <- count + 1} } if(i < n_row & j < n_col){ if(df[i+1,j+1] == -1){count <- count + 1} } if(i < n_row & j > 1){ if(df[i+1,j-1] == -1){count <- count + 1} } if(i > 1 & j < n_col){ if(df[i-1,j+1] == -1){count <- count + 1} } if(i > 1 & j > 1){ if(df[i-1,j-1] == -1){count <- count + 1} } df[i,j] <<- count } } } } |
Explore
マウスでクリックした座標をもとに、dfを探索していくメソッドです。
マインスイーパーの探索法と同様に、指定された座標x,yから再帰的に探索していきます。
1,2, . . . , 8まで探索し、探索後の座標はexploredTileの対応する座標にTRUEを代入し、return()を返し、探索を終了します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | Explore = function(x,y){ if(x <= n_row & x >= 1 & y <= n_col & y >= 1){ if(mode == "explore"){ if(df[x,y] == -1 & exploredTile[x,y] == F){ exploredTile[x,y] <<- T gameEnd <<- TRUE return() }else if(df[x,y] >= 1 & exploredTile[x,y] == F){ exploredTile[x,y] <<- T return() }else if(df[x,y] == 0 & exploredTile[x,y] == F){ if(x < n_row){ exploredTile[x,y] <<- T Explore(x+1,y) } if(x > 1){ exploredTile[x,y] <<- T Explore(x-1,y) } if(y < n_col){ exploredTile[x,y] <<- T Explore(x,y+1) } if(y > 1){ exploredTile[x,y] <<- T Explore(x,y-1) } if(x < n_row & y < n_col){ exploredTile[x,y] <<- T Explore(x+1,y+1) } if(x < n_row & y > 1){ exploredTile[x,y] <<- T Explore(x+1,y-1) } if(x > 1 & y < n_col){ exploredTile[x,y] <<- T Explore(x-1,y+1) } if(x > 1 & y > 1){ exploredTile[x,y] <<- T Explore(x-1,y-1) } } }else{ if(flaggedTile[x,y] == F){ flaggedTile[x,y] <<- T return() } } } } |
GameStartPlot
マインスイーパーを開始したときのゲーム画面をplotで描画します。
マインスイーパーの盤面の格子や枠、exploreボタンやflagボタンの描画などをゲーム開始時に行います。
ゲームを開始した後はGameStartPlotではなく、次で紹介するGamePlotでゲームを描画していきます。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | GameStartPlot = function(){ windows(n_col,n_row) plot.new() for(i in 1:n_row){ for(j in 1: n_col){ rect((j-1)/n_col , (1 - i/(n_row + 1)) , j/n_col, ( 1 + (1-i)/(n_row + 1)) , col = "grey", pin = c(n_col, (n_row + 1)), lty = 2) } } rect(0 , (1 - n_row/(n_row + 1)) , 1, 1 , pin = c(n_col, (n_row + 1))) rect(0.38, 0, 0.48, 1/(n_row + 1) - 1/(10*(n_row + 1)), col = rgb(0.25, 0.95, 0.81)) text(list(x=0.43 ,y=1/(2*(n_row + 1))), labels = "explore") rect(0.52, 0, 0.62, 1/(n_row + 1) - 1/(10*(n_row + 1)), col = rgb(0.25, 0.95, 0.81, alpha = 0.5)) text(list(x=0.57 ,y=1/(2*(n_row + 1))), labels = "flag") text(list(x=0.2 ,y=1/(2*(n_row + 1))), labels = paste0("remain:", remainingCells)) text(list(x=0.8 ,y=1/(2*(n_row + 1))), labels = paste0("bombs:", n_bomb)) } |
GamePlot
GamePlotは、マインスイーパーを実行中に、セルの選択やexploreやflagボタンを押した後に実行されるメソッドです。
盤面の情報が更新された後に、このメソッドを用いてGUI上の描画も更新していきます。
また画像ファイルを読み込み、ゲーム終了時のGame ClearやGame overなどの描画を行ったり、地雷の画像や旗の画像などを描画したりしています。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 | GamePlot = function(){ library(png) pass <- getwd() setwd(paste0(pass, "/", "Picture")) bombImage <- readPNG("bomb.png") flagImage <- readPNG("flag.png") gameOverImage <- readPNG("gameover.png") gameClearImage <- readPNG("gameclear.png") setwd(pass) for(i in 1:n_row){ for(j in 1:n_col){ if(df[i,j] == 0 & exploredTile[i,j] == T){ rect((j-1)/n_col , (1 - i/(n_row + 1)),j/n_col, ( 1 + (1-i)/(n_row + 1)), col = "white", pin = c(n_col, (n_row+1))) } else if(df[i,j] >= 1 & exploredTile[i,j] == T){ rect((j-1)/n_col , (1 - i/(n_row + 1)),j/n_col, ( 1 + (1-i)/(n_row + 1)), col = "white", pin = c(n_col, (n_row + 1))) text(list(x=(2*j-1)/(2*n_col) ,y=(1 + (1-2*i)/(2*(n_row + 1)))), labels = as.character(df[i,j])) } else if(df[i,j] == -1 & exploredTile[i,j] == T){ if(mode == "explore"){ for(m in 1:n_row){ for(n in 1:n_col){ if(df[m,n] == -1){ rect((n-1)/n_col , (1 - m/(n_row + 1)), n/n_col, ( 1 + (1-m)/(n_row + 1)), col = "white", pin = c(n_col, (n_row + 1))) rasterImage(bombImage, (n-1)/n_col , (1 - m/(n_row + 1)),n/n_col, ( 1 + (1-m)/(n_row + 1))) } } } } }else if(flaggedTile[i,j] == T){ rect((j-1)/n_col , (1 - i/(n_row + 1)), j/n_col, ( 1 + (1-i)/(n_row + 1)), col = "white", pin = c(n_col, (n_row + 1))) rasterImage(flagImage, (j-1)/n_col , (1 - i/(n_row + 1)),j/n_col, ( 1 + (1-i)/(n_row + 1))) } } } rect(0.1, 0, 0.3, 1/(n_row + 1) - 1/(10*(n_row + 1)), col = "white", lty = 0) text(list(x=0.2 ,y=1/(2*(n_row + 1))), labels = paste0("remain:", remainingCells)) rect(0.7, 0, 0.9, 1/(n_row + 1) - 1/(10*(n_row + 1)), col = "white", lty = 0) text(list(x=0.8 ,y=1/(2*(n_row + 1))), labels = paste0("bombs:", n_bomb)) if(mode == "explore"){ rect(0.38, 0, 0.48, 1/(n_row + 1) - 1/(10*(n_row + 1)), col = "white") rect(0.38, 0, 0.48, 1/(n_row + 1) - 1/(10*(n_row + 1)), col = rgb(0.25, 0.95, 0.81)) text(list(x=0.43 ,y=1/(2*(n_row + 1))), labels = "explore") rect(0.52, 0, 0.62, 1/(n_row + 1) - 1/(10*(n_row + 1)), col = "white") rect(0.52, 0, 0.62, 1/(n_row + 1) - 1/(10*(n_row + 1)), col = rgb(0.25, 0.95, 0.81, alpha = 0.5)) text(list(x=0.57 ,y=1/(2*(n_row + 1))), labels = "flag") }else if(mode == "flag"){ rect(0.38, 0, |