// リバーシ 2人対戦 // 変更可能 定数 is_hex = false 定数 cells = 8 定数 players = 2 変数 present = 0 変数 option = 0 // 変更不可 変数 is_loading = false 定数 rect = [cells, cells] 定数 stage = [] 定数 canvas = 描画中キャンバス canvas.width = 700 canvas.height = 700 定数 width = canvas.width / rect[0] 定数 height = canvas.height / rect[1] set_stage() set_for_start() draw() 描画中キャンバスをマウス押時には: もしis_loadingなら 戻 is_loading = !is_loading x ＝ FLOOR(マウスX / width) y ＝ FLOOR(マウスY / height) もしset_stone(x, y)なら: iを1からplayersまで繰り返す: next_turn() もしcan_put()なら 抜 もしi != playersなら 続 表示("結果 : " & get_scores()) 抜 draw() is_loading = !is_loading ●set_stage(): もしis_hexなら: rect[0] = 8 + option * 2 rect[1] = 8 + option * 2 定数 row = [] rect[1]回: 配列追加(row, undefined) rect[0]回: 配列追加(stage, 配列複製(row)) ●set_for_start(): もしrect[0] < 2 || rect[1] < 2なら 戻 定数 half_width = FLOOR(rect[0] / 2) - 1 定数 half_height = FLOOR(rect[1] / 2) - 1 stage[half_width ][half_height ] = 0 stage[half_width + 1][half_height + 1] = 0 stage[half_width ][half_height + 1] = 1 stage[half_width + 1][half_height ] = 1 ●set_stone(x, y): // 範囲内である かつ 空のマスであるか もし!in_area(x, y) || (is_hex && !in_hex(x, y))なら falseを戻 もしstage[x][y] != undefinedなら falseを戻 定数 places = get_places(x, y) もし要素数(places) == 0なら falseを戻 stage[x][y] = present rowでplacesを反復: pointでrowを反復: stage[point[0]][point[1]] = present trueを戻 ●get_places(x, y): // 範囲内である かつ 空のマスであるか もし!in_area(x, y) || (is_hex && !in_hex(x, y))なら []を戻 もしstage[x][y] != undefinedなら []を戻 定数 vectors = [[1, 0], [1, 1]] 定数 places = [] 4回: vectors[0] = [-vectors[0][1], vectors[0][0]] vectors[1] = [-vectors[1][1], vectors[1][0]] 定数 line1 = get_line(x, y, vectors[0][0], vectors[0][1]) もし要素数(line1) > 0なら 配列追加(places, line1) // 六角形の時、傾きが-1の直線と並行なベクトルをのぞく もしis_hex && (vectors[1][0] - vectors[1][1] != 0)なら 続 定数 line2 = get_line(x, y, vectors[1][0], vectors[1][1]) もし要素数(line2) > 0なら 配列追加(places, line2) placesを戻 ●get_line(x, y, dx, dy): 変数 px = x 変数 py = y 変数 places = [] (cells - 1)回: px = px + dx py = py + dy もし!in_area(px, py) || is_hex && !in_hex(px, py)なら []を戻 もしstage[px][py] == undefinedなら []を戻 もしstage[px][py] == presentなら placesを戻 配列追加(places, [px, py]) []を戻 ●in_area(x, y): 0 =< x && x < rect[0] && 0 =< ｙ && ｙ < rect[1]を戻 ●in_hex(x, y): (in_area(x, y) && ABS(y - x) < 5 + option)を戻 ●next_turn(): present = (present + 1) % players ●draw(): もしrect[0] < 1 || rect[1] < 1なら 戻 iで0からrect[0] - 1まで繰り返す: jで0からrect[1] - 1まで繰り返す: 塗色設定("rgb(0, 128, 64)") 四角描画([i * width, j * height, width, height]) 定数 e = stage[i][j] もしe == undefinedなら 続 定数 value = FLOOR(255 * e / (players - 1)) 塗色設定(RGB(value, value, value)) 円描画([(i + 0.5) * width, (j + 0.5) * height], width / 3) ●can_put(): xで0からrect[0] - 1まで繰り返す: yで0からrect[1] - 1まで繰り返す: もしstage[x][y] != undefinedなら 続 もし要素数(get_places(x, y)) > 0なら trueを戻 falseを戻 ●get_scores(): 定数 scores = [] players回 配列追加(scores, 0) rowでstageを反復: eでrowを反復: もしe == undefinedなら 続 scores[e] = scores[e] + 1 scoresを戻