Rubyでアドベンチャーゲーム用DSL(ドメイン固有言語)を作る

Adventure.start(first_scene: ‘始まり’) do
シーン(‘始まり’) {
テキスト表示 ‘あなたは見知らぬ部屋で目が覚めた。ここは一体…?’
テキスト表示 ‘あなたは混乱した頭をなんとか落ち着かせ、部屋の中を調べることにした。’
移動 ‘リビング’
シーン終了
}シーン(‘リビング’) {
もし(初めてのシーン？) {
テキスト表示 “自分が寝ていた場所はどうやらリビングらしい。床に文房具や雑貨が散らかっている”
}

もし(２回目以降？) {
テキスト表示 ‘酷く荒れ果てたリビングだ。’
}

アクション({
‘テーブルを調べる’ => 結果 {
テキスト表示 ‘木製のダイニングテーブルだ。傷みが酷く、ところどころに赤黒いシミがついている。’
テキスト表示 ‘上には、空のマグカップと電源の入っていないノートパソコンが置かれている’

アクション({
‘ノートパソコンを調べる’ => 結果 {
テキスト表示 ‘電源は繋がっているが起動しない。故障しているようだ。’
},
‘離れる’ => 結果 {
一つ前のアクションに戻る
}
})
},
‘タンスを調べる’ => 結果 {
テキスト表示 “古びたタンスだ。取手には鎖と錠前がかけられている。簡単には開けられそうにない。”
もし(持っている？ ‘錆だらけの鍵’) {
アクション({
‘錆だらけの鍵を使う’ => 結果 {
アイテム使用 ‘錆だらけの鍵’
テキスト表示 “鍵を差し込み回すと、錠前は意外にもあっさりと外れた。次に絡み合っていたチェーンを外し、タンスの取手に手を掛ける”
テキスト表示 “軋む音をたてながらを開かれた、タンスの内側には…”
移動 ‘結末’
シーン終了
},
‘何もしない’ => 結果 {
テキスト表示 ‘何もしないでおこう’
一つ前のアクションに戻る
}
})
}
アクション({
‘離れる’ => 結果 {
テキスト表示 ‘今できることはない。ここから離れよう。’
一つ前のアクションに戻る
}
})
},
‘風呂場に移動する’ => 結果 {
移動 ‘風呂場’
シーン終了
}
})
}

シーン(‘風呂場’) {
もし(初めてのシーン？) {
テキスト表示 ‘リビングの奥に、風呂場につながる廊下を見つけた。’
テキスト表示 ‘長らく使用されていないユニットバスがある’
}

もし(２回目以降？) {
テキスト表示 ‘汚れの目立つバスルームだ’
}

アクション({
‘洗面台を調べる’ => 結果 {
テキスト表示 ‘水垢が酷く、とても役目を果たせる状態ではない。’
},
‘浴槽を調べる’ => 結果 {

もし(持っている？ ‘錆だらけの鍵’) {
テキスト表示 ‘こびりついた汚れ以外、他に目に留まる物はない。’
}

もし(持っていない？ ‘錆だらけの鍵’) {
テキスト表示 ‘バスタブの中には、錆だらけの鍵が落ちていた。’
アイテム取得 ‘錆だらけの鍵’
}
},
‘リビングに戻る’ => 結果 {
移動 ‘リビング’
シーン終了
}
})
}

シーン(‘結末’) {
テキスト表示 ‘変わり果てたあなた自身が詰め込まれていた’
テキスト表示 ‘to be continued…’
移動 ‘END’
シーン終了
}
end

class Adventure
# ゲームの設定に必要なメソッドを特異クラスに定義
class << self
def start(first_scene:, &block)
@player = Player.new
@scene_list = []
@current_scene = ‘ ‘
@current_processes = []# シーンの登録
parse_config(&block)

# 最初のシーンに移動
change_scene(first_scene)
move_player(first_scene)
# @current_sceneが’END’になるまでシーンを実行
start_scene until @current_scene == ‘END’
end

def parse_config(&block)
# Adventureクラスのコンテキストでブロックを実行する
self.class_eval(&block)
end

def move_player(scene)
# プレイヤーを新しいシーンに移動
@player.visit(scene)
end

def change_scene(next_scene)
# 現在のシーンを変更
@current_scene = next_scene
end

def start_scene
# 現在のシーンに登録された処理をプロセスとして順に実行する
@current_processes.clear
target_scene = @scene_list.find { |scene| scene[:name] == @current_scene }
target_scene[:process].call
# :scene_endの終了のタグがthrowされた場合、そこで処理を終了する
catch(:scene_end) do
@current_processes.each(&:call)
end
end

def display_text(&block)
# プレイヤーの操作に応じてテキストをゲームっぽく表示する
puts ‘-+-‘ * 20
puts “<- #{@current_scene} ->”
block.call
print “< Enter >”.rjust(60)
gets
end

def シーン(name, &block)
# 各シーンのプロセスをハッシュ形式でリストに登録する
@scene_list.push({ name: name, process: block })
end

def アクション(config)
process = Proc.new {
# シーンが終了するか一つ前のアクションに戻るタグがthrowされるまで選択肢の表示を繰り返す
catch(:action_back) do
loop do
# アクションブロックに記述された選択肢をリストに一時保存
action_list = []
config.each do |command, result|
action_list.push({ command: command, result: result })
end

# プレイヤーに、実行させるアクションを選択させる
puts ‘-+-‘ * 20
puts “<- #{@current_scene} ->”
puts ‘どうする？(コマンド番号を選択)’
action_list.each.with_index(1) do |action, index|
puts “#{index}: #{action[:command]}”
end
print “\nコマンド: ”
command_number = gets.chomp.to_i
# 選択肢にないコマンド番号を選択した場合を考慮
next if command_number <= 0 || command_number > action_list.count

# 選択したアクションに設定されたコマンドを実行し
# current_processesに実行するプロセスを登録・実行する
@current_processes.clear
selected_action = action_list[command_number – 1]
selected_action[:result].call
@current_processes.each(&:call)
end
end
}
@current_processes.push(process)
end

def 結果(&block)
# 与えられたブロックをProcオブジェクトに変換して返す
block
end

def シーン終了
# シーンを終了させるタグをthrowする
process = Proc.new { throw(:scene_end) }
@current_processes.push(process)
end

def 一つ前のアクションに戻る
# ネストしたアクションを一つ前に戻すためのタグをthrowする
process = Proc.new { throw(:action_back) }
@current_processes.push(process)
end

def 移動(next_scene)
# シーンの遷移とプレイヤーの行動履歴の追加を行う
process = Proc.new {
change_scene(next_scene)
move_player(next_scene)
}
@current_processes.push(process)
end

def テキスト表示(text)
# コマンドラインにテキストを30文字折り返しで表示する
process = Proc.new {
display_text do
text.each_char.each_slice(30) { |line| puts line.join }
end
}
@current_processes.push(process)
end

def アイテム取得(item)
# プレイヤーの所持品にアイテムを追加する
process = Proc.new {
@player.get_item(item)
display_text { puts “\”#{item}\” を手に入れた” }
}
@current_processes.push(process)
end

def アイテム使用(item)
process = Proc.new {
@player.lost_item(item)
display_text { puts “\”#{item}\” を使用した” }
}
@current_processes.push(process)
end

# 条件分岐設定用
def もし(condition, &block)
block.call if condition
end

# 以下はプレイヤーの状態に応じた真偽地を返すメソッド
# 上記`もし`のメソッドの条件部分に指定する
def 初めてのシーン？
@player.visited_count[@current_scene] == 1
end

def ２回目以降？
@player.visited_count[@current_scene] > 1
end

def 持っている？(item)
@player.items.include?(item)
end

def 持っていない？(item)
@player.items.none?(item)
end
end
end

# ゲーム進行におけるプレイヤーの状態管理を行うクラス
class Player
attr_reader :visited_count, :items

def initialize
@items = []
@visited_count = {}
end

def visit(scene)
visited_count[scene] ? @visited_count[scene] += 1 : @visited_count[scene] = 1
end

def get_item(item)
@items.push(item)
end

def lost_item(item)
@items.delete(item)
end
end

$ ruby dsl.rb

class Adventure
class << self
def start(first_scene:, &block)
@player = Player.new
@scene_list = []
@current_scene = ‘ ‘
@current_processes = []# シーンの登録
parse_config(&block)

# 最初のシーンに移動
change_scene(first_scene)
move_player(first_scene)

start_scene until @current_scene == ‘END’
end
…
end

def parse_config(&block)
# Adventureクラスのコンテキストでブロックを実行する
self.class_eval(&block)
end

def 移動(next_scene)
# シーンの遷移とプレイヤーの行動履歴の追加を行う
process = Proc.new {
change_scene(next_scene)
move_player(next_scene)
}
@current_processes.push(process)
end

def もし(condition, &block)
block.call if condition
end