bcdice 3.16.1 → 3.17.0

data/lib/bcdice/game_system/NinjaSlayer2.rb

@@ -13,20 +13,62 @@ module BCDice
       SORT_KEY = "にんしやすれいやあTRPG2"
 
       HELP_MESSAGE = <<~TEXT
-        - K{x1},{x2},...,{xn}
-        難易度K([K]ids)の成功判定({x1}B6>=2)を、ダイス{x1}個({x2}～を指定した場合はそれぞれ個々に)で実行します。
-        先頭の文字を変えることで、難易度E([E]asy),N([N]ormal),H([H]ard),U([U]ltra-hard)もしくはUH([U]ltra-[H]ard)でも実行可能です。(以下も同様)
-
-        - K{x1},{x2},...,{xn}[>={y}]
-        K{x1}のロールの結果を使って、[]内で指定された条件を満たすダイスの個数を追加で出力します。
-        判定式は「>=」の他に「>」「<=」「<」「=」「!=」が利用可能です。
-        [=5][=6]のように複数記述することで、それぞれで追加判定が可能です。
-
-        - K{x1},{x2},...,{xn}[S] or K{x1},{x2},...,{xn}[S{y}]
-        - K{x1},{x2},...,{xn}[C] or K{x1},{x2},...,{xn}[C{y}]
-        いずれもK{x1},{x2},...,{xn}[>={y}]のショートカットです。({y}省略時は固定値6で処理します。)
-        出力時のテキストが、Sの場合は「サツバツ！」に、Cの場合は「クリティカル！」になります。
-        こちらも複数記述することで、それぞれで追加判定が可能です。
+        --- 成功判定コマンド ---
+        通常のダイスの「{ダイス個数}B6>={難易度ごとの目標出目}」を実行するための簡易入力コマンドです。
+
+        - K{x}
+        難易度K([K]ids/目標値=2)の成功判定をダイス{x}個で実行します。
+        先頭の文字を変えることで、難易度E([E]asy/目標値=3),N([N]ormal/目標値=4),H([H]ard/目標値=5),U([U]ltra-hard/目標値=6)もしくはUH([U]ltra-[H]ard/目標値=6)でも実行可能です。
+
+        - K{x1},N{x2},...,U{xn}
+        K{x}の複数ロール版。
+        カンマ(,)で区切って複数回入力すると、区切られたセットごとに成功判定を行います。
+        2回目以降は難易度指定を省略可能で、省略した場合はひとつ前の難易度を引き継いで判定を行います。
+        以下のコマンドについても同様の書式で複数ロールしての同時判定が可能です。
+
+        --- 追加判定コマンド ---
+        以下のコマンド群は、成功判定コマンドの後ろに付けて実行してください。
+
+        - [>={y}]
+        - [>{y}]
+        - [<={y}]
+        - [<{y}]
+        - [={y}]
+        - [!={y}]
+        成功判定コマンドでカンマ区切りで指定した各ロール結果に対して、[]内で指定された条件で追加判定を行います。
+        それぞれ、{y}以上(>=)、{y}より大きい(>)、{y}以下(<=)、{y}未満(<)、{y}のみ(=)、{y}以外(!=)を判定し、
+        ロール結果の中で条件を満たしたダイスの個数を「追加判定」というテキストと共に出力します。
+        [=5][=6]のように複数記述することで、ひとつのロールに対して複数パターンでの追加判定が可能です。
+        ※ 条件は一括でしか指定できないため、ロールごとに異なる条件を指定したい場合はコマンドを分けてください。以下も同様です。。
+
+        - [>={y1}{y2}...{yn}+]
+        成功判定コマンドでカンマ区切りで指定した各ロール結果に対して、[>={y1}]～[>={yn}]の各条件で追加判定を行います。
+        出目の中に条件を満たしたダイスが**全て**含まれていた場合、「追加判定成功！」というテキストを出力します。
+        例えば[>=665+]とした場合、出目の中に6以上のダイスが2つと5以上のダイスが1つ含まれていれば成功扱いになります。
+
+        - [S{y}]
+        成功判定コマンドでカンマ区切りで指定した各ロール結果に対して、[>={y}]と同等の追加判定を行います。
+        条件を満たしたダイスの個数を「サツバツ判定」というテキストと共に出力します。
+        ※ {y}は省略可能、省略した場合は固定値6で処理します。
+
+        - [S{y1}{y2}...{yn}+]
+        - [S{y1}{y2}...{yn}/{z1}{z2}...{zn}+]
+        成功判定コマンドでカンマ区切りで指定した各ロール結果に対して、[>={y1}{y2}...{yn}+]と[>={z1}{z2}...{zn}+]と同等の追加判定を行います。
+        {z1}～{zn}で条件を満たした場合、「ナムアミダブツ！」というテキストを出力します。
+        {z1}～{zn}の条件を満たせず、{y1}～{yn}で条件を満たした場合、「サツバツ！」というテキストを出力します。
+        ※ {z1}～{zn}を省略した場合は、「サツバツ！」の判定のみを行ないます。
+
+        - [C{y}]
+        成功判定コマンドでカンマ区切りで指定した各ロール結果に対して、[>={y}]と同等の追加判定を行います。
+        条件を満たしたダイスの個数を「クリティカル判定」というテキストと共に出力します。
+        ※ {y}は省略可能、省略した場合は固定値6で処理します。
+
+        - [C{y1}{y2}...{yx}+]
+        成功判定コマンドでカンマ区切りで指定した各ロール結果に対して、[>={y1}{y2}...{yn}+]と同等の追加判定を行います。
+        条件を条件を満たした場合、「クリティカル！」というテキストを出力します。
+
+        --- 定型文コマンド ---
+        以下のコマンド群はそれぞれ単体で使用してください。
 
         - SB or SB@{x}
         {x}(1-6/省略時はd6)に対応したサツバツ([S]atz-[B]atz)・クリティカル表の内容を返します。
@@ -79,27 +121,118 @@ module BCDice
       # @param default [Integer]
       # @return [Integer]
       def s_to_i(string, default)
-        return string.nil? ? default : string.to_i
+        return string.nil? || string.empty? ? default : string.to_i
       end
 
-      # 判定結果の出力テキストと成功数のカウントを返す。
+      # 難易度判定の成功数を返す。
       # @param dice_array [Array<Integer>]
       # @param difficulty [Integer]
       # @param cmp_op [String]
-      # @param title_text [String]
-      # @return [String, Integer]
-      def check_difficulty(dice_array, difficulty, cmp_op, title_text)
-        success_num = 0
+      # @return Integer
+      def check_difficulty(dice_array, difficulty, cmp_op)
         success_dice = []
         dice_array.each do |dice_value|
           if dice_value.send(Normalize.comparison_operator(cmp_op), difficulty)
-            success_num += 1
             success_dice.push(dice_value)
           end
         end
 
-        success_dice_s = success_dice.empty? ? "" : "[#{success_dice.sort.reverse.join(',')}]"
-        return "#{title_text}:#{success_num}#{success_dice_s}", success_num
+        return success_dice
+      end
+
+      # 難易度判定結果を返す。
+      # @param dice_array [Array<Integer>]
+      # @param difficulty [Integer]
+      # @param cmp_op [String]
+      # @return [boolean]
+      def check_difficulty_new(dice_array, difficulty, cmp_op)
+        if difficulty.nil? || dice_array.empty?
+          return false
+        end
+
+        # 難易度とダイスを昇順ソート
+        sorted_dice_array = dice_array.sort()
+        sorted_difficulty = difficulty.chars.sort()
+        debug("sorted_difficulty #{sorted_difficulty}")
+        debug("sorted_dice_array #{sorted_dice_array}")
+
+        # 出目が低い順に難易度を越えているかチェック
+        check_index = 0
+        sorted_dice_array.each do |dice_value|
+          if dice_value.send(Normalize.comparison_operator(cmp_op), sorted_difficulty[check_index].to_i)
+            check_index += 1
+          end
+        end
+
+        # 全難易度を突破していたら成功を返す
+        return check_index >= sorted_difficulty.size
+      end
+
+      # 追加判定の処理
+      # @param roll_result 判定対象とするロール結果の配列
+      # @param ap_commanc 追加判定のコマンド
+      # @return String
+      def proc_appendix(roll_result, ap_command)
+        debug("----- ap_command: #{ap_command}")
+        output_text = ''
+        case ap_command
+        when RE_COUNT_SATZ_BATZ
+          diff_condition = Regexp.last_match[1]
+          if ap_command.end_with?("+")
+            # サツバツ発生チェック
+            sb_condition = diff_condition.sub("\+", "").split("/")[0]
+            nm_condition = diff_condition.sub("\+", "").split("/")[1]
+            debug("sb_condition: #{sb_condition}")
+            debug("nm_condition: #{nm_condition}")
+
+            if check_difficulty_new(roll_result.last_dice_list, nm_condition, ">=")
+              output_text += ", ナムアミダブツ！[#{ap_command}]"
+            elsif check_difficulty_new(roll_result.last_dice_list, sb_condition, ">=")
+              output_text += ", サツバツ！[#{ap_command}]"
+            end
+
+          else
+            # サツバツ数カウント
+            diff_result_array = check_difficulty(roll_result.last_dice_list, s_to_i(diff_condition, 6), ">=")
+            output_text += ", サツバツ判定[#{ap_command}]:#{diff_result_array.size}"
+            unless diff_result_array.empty?
+              output_text += "[#{diff_result_array.sort.reverse.join(',')}]"
+            end
+          end
+        when RE_COUNT_CRITICAL
+          diff_condition = Regexp.last_match[1]
+          if ap_command.end_with?("+")
+            # クリティカル発生チェック
+            if check_difficulty_new(roll_result.last_dice_list, diff_condition.sub("\+", ""), ">=")
+              output_text += ", クリティカル！[#{ap_command}]"
+            end
+          else
+            # クリティカル数カウント
+            diff_result_array = check_difficulty(roll_result.last_dice_list, s_to_i(diff_condition, 6), ">=")
+            output_text += ", クリティカル判定[#{ap_command}]:#{diff_result_array.size}"
+            unless diff_result_array.empty?
+              output_text += "[#{diff_result_array.sort.reverse.join(',')}]"
+            end
+          end
+        when RE_COUNT_JUDGE
+          diff_type = Regexp.last_match[1]
+          diff_condition = Regexp.last_match[2]
+          debug("#{diff_type} / #{diff_condition}")
+          if ap_command.end_with?("+")
+            # 追加判定チェック
+            if check_difficulty_new(roll_result.last_dice_list, diff_condition.sub("\+", ""), diff_type)
+              output_text += ", 追加判定成功！[#{ap_command}]"
+            end
+          else
+            # 追加判定カウント
+            diff_result_array = check_difficulty(roll_result.last_dice_list, s_to_i(diff_condition, 6), diff_type)
+            output_text += ", 追加判定[#{ap_command}]:#{diff_result_array.size}"
+            unless diff_result_array.empty?
+              output_text += "[#{diff_result_array.sort.reverse.join(',')}]"
+            end
+          end
+        end
+        return output_text
       end
 
       # ダイス処理(2版用)
@@ -109,11 +242,16 @@ module BCDice
         output_text = ''
         total_success_num = 0
 
-        difficulty = DIFFICULTY_SYMBOL_TO_INTEGER.fetch(match[1])
-        appendix = match[3]
+        command = match[1]
+        appendix = match[2]
+        difficulty = 0
 
-        match[2].split(",").each do |sub_command|
-          dice_num = sub_command.to_i
+        command.split(",").each do |sub_command|
+          /^(UH|[KENHU])?(\d+)$/i.match(sub_command)
+          unless Regexp.last_match[1].nil?
+            difficulty = DIFFICULTY_SYMBOL_TO_INTEGER.fetch(Regexp.last_match[1])
+          end
+          dice_num = Regexp.last_match[2].to_i
 
           # D6バラバラロール
           roll_command = "#{dice_num}B6>=#{difficulty}"
@@ -127,24 +265,7 @@ module BCDice
             debug("---- appendix: [#{appendix}]")
             ap_command_array = appendix.split("\]\[")
             ap_command_array.each do |ap_command|
-              debug("----- ap_command: #{ap_command}")
-              case ap_command
-              when RE_COUNT_SATZ_BATZ
-                # サツバツ！カウント
-                check_result = check_difficulty(roll_result.last_dice_list, s_to_i(Regexp.last_match[1], 6), ">=", "サツバツ！")
-                output_text += ", #{check_result[0]}"
-                success_num += check_result[1]
-              when RE_COUNT_CRITICAL
-                # クリティカル！カウント
-                check_result = check_difficulty(roll_result.last_dice_list, s_to_i(Regexp.last_match[1], 6), ">=", "クリティカル！")
-                output_text += ", #{check_result[0]}"
-                success_num += check_result[1]
-              when RE_COUNT_JUDGE
-                # 追加判定カウント
-                check_result = check_difficulty(roll_result.last_dice_list, Regexp.last_match[2].to_i, Regexp.last_match[1], "追加判定")
-                output_text += ", #{check_result[0]}"
-                success_num += check_result[1]
-              end
+              output_text += proc_appendix(roll_result, ap_command)
             end
           end
           output_text += " \n"
@@ -266,11 +387,11 @@ module BCDice
         end
       end
 
-      RE_COUNT_SATZ_BATZ = /S([1-6])?/i.freeze
-      RE_COUNT_CRITICAL = /C([1-6])?/i.freeze
-      RE_COUNT_JUDGE = /(=|!=|>=|>|<=|<)([1-6])/.freeze
+      RE_COUNT_SATZ_BATZ = %r{S([1-6]|[1-6]+(?:/[1-6]+)?\+)?$}i.freeze
+      RE_COUNT_CRITICAL = /C([1-6]|[1-6]+\+)?$/i.freeze
+      RE_COUNT_JUDGE = /(=|!=|>=|>|<=|<)([1-6]+\+|[1-6])/.freeze
 
-      RE_JUDGE_DICEROLL = /^(UH|[KENHU])([\d,]+)(?:\[((?:(?:S([1-6])?|C([1-6])?|(=|!=|>=|>|<=|<)([1-6]))(?:\]\[)?)+)\])?$/i.freeze
+      RE_JUDGE_DICEROLL = %r{^((?:(?:UH|[KENHU])?\d+,?)+)(?:\[((?:(?:S([1-6]|[1-6]+(?:/[1-6]+)?\+)?|C([1-6]*\+?)?|(=|!=|>=|>|<=|<)([1-6]+\+?))(?:\]\[)?)+)\])?$}i.freeze
       RE_JUDGE_SATZ_BATZ = /^SB(?:@([1-6]))?$/i.freeze
       RE_JUDGE_WASSHOI = /^WS([1-9]|10|11|12)$/i.freeze
       RE_JUDGE_WASSHOI_ENTRY = /^WSE(?:@([1-6]))?$/i.freeze

data/lib/bcdice/game_system/Nuekagami.rb

@@ -22,270 +22,28 @@ module BCDice
       MESSAGETEXT
 
       def eval_game_system_specific_command(command)
-        info = TABLES[command.upcase]
-        return nil if info.nil?
-
-        name = info[:name]
-        type = info[:type]
-        table = info[:table]
-
-        text, number =
-          case type
-          when '1D20'
-            get_table_by_nDx(table, 1, 20)
-          end
-
-        return nil if text.nil?
-
-        return "#{name}(#{number}) ＞ #{text}"
+        roll_tables(command, TABLES)
       end
 
-      TABLES =
-        {
-          "LR" => {
-            name: "喪失取戻表",
-            type: '1D20',
-            table: [
-              '鬼化。妄執かくして鬼と結実す。欠けたるところすでになし。あやかし、己の欠けたるを足せり。すなわちその身、人ならず。',
-              '妄想。とくと見よ。何も失ってなどおらぬ。この肉この魂この身上、欠けたるところぞなし。欠けし夢を見しのみ。全て夢なり。',
-              '鵺型。肉に内に暗雲ゆらめく。欠けたるところ漂うそれは、鶴が欠片。暖昧の境界なれば、失いしものまた戻りたるが如く。',
-              '諦観。己が身を知る。望む愚かを知る。足掻く愚かを知る。心は折れり。望みは絶えり。諦めることで足るものもある知らむ。',
-              '屍漁。もはやいかな所業もいとわず。されば数多の骸を漁り、ついに欠けたるを満たせり。代わりに欠けたる心、知ることぞなし。',
-              '呪刻。あまねく呪はば、己も囚わる。己を騙る呪い、己を捕らえ絡めれば、欠けたるもまた満ちて見ゆる。',
-              '得心。すべては己の行いの結果なれば、因果応報。それなきは不具合なれど、得心せり。もはや悩めどせんなきことなりや。',
-              '奪取。無ければ、奪え。あな妬ましと思わば奪え。奪いて己がものとせよ。さすればたちまち、欲するところ戻れり。',
-              '罪価。己が罪を知れり。かくあさましき罪業に比ぶれば、己が失いしもの、なんと軽きことか。さあれば、悩むるに能はず。',
-              '代替。失へるもの、未だ失われり。されど、代わるものを得たり。二度とは失うわじ。失わばその痛みに狂い果てむ。',
-              '受容。納得はなし。諦観はなし。されど受け入れり。欠けたるもまた己なれば、欠けるところもて満たさば、それ己ならずや。',
-              '代行。かかる身にそれなくとも是。かく行い為すは、己が筆ならず。代わりて為す者、信ずべきあらばこそ。',
-              '適応。心痛むる時多けれど、欠けたるにも馴れたり。もはや欠けるに不自由なし。さればそれすなわち、欠けたるに非ず',
-              '妖賞。大妖に遇ひて、饗応す。彼の妖、大いに慶びてその身に欠けたるを与へむ。それ異様なれど、用は足れり。',
-              '奪還。つひに奪われしもの、奪い返せり！取り戻せしそれ、再び手の内に収まりて輝けり。けしてまた手放すことあらじ。',
-              '本懐。己の求むるを、ついに為し遂げり。もはや己が力、己が技、疑うところなし。己が有様になんぞ足らざるあるべきや。',
-              '取得。艱難辛苦ぞありや。ついぞ果てに失いしそれ、身に修めん。ただ取り戻せしものにあらじ。新たに得たりしや。',
-              '賜物。その欠ける様、彼の人あはれに思いて、かくなるを与え賜り。以て、満ちたる己、彼の人にまた仕えむ。',
-              '大悟。足掻けれど足掻けれど、満ちることなし。足りざるは自然。己の姿を受け入れむ。されば欠けたるに、悩まさるるもなし。',
-              '望月。欠けたる月が満ちるが如く。欠けたるは突然に戻れり。いかなる誠、いかなる印か、知るものはあらず。'
-            ],
-          },
-
-          "BL" => {
-            name: "血脈の喪失表",
-            type: '1D20',
-            table: [
-              '髪の色。一夜にしてあなたの髪は白くなった。',
-              '視力。周囲がぼんやりとしか見えない。',
-              '所作。体の一部がまともに動かせない。',
-              '痛み。体が痛みを感じなくなってしまった。',
-              '容貌。顔に大きな傷や火傷を負った。',
-              '血の気。あなたの肌は血の気を失ったままだ。',
-              '赤い血。体を流れる血が異様な色となった。',
-              '子を作る力。子を作る力を失った。',
-              '器用さ。体が常に小さく震えている。',
-              '健康。病を患った……体が衰弱している。',
-              '寿命。あなたの寿命は残りわずかとなった。',
-              'ぬくもり。その体は常に冷たい……。',
-              '片目。片目を失ってしまった……。',
-              '片脚。片脚を切り落とされた！',
-              '片腕。片腕を切り落とされた！',
-              '生命。あなたの鼓動は止まって久しい。',
-              '真の力。本来の力がほとんど発揮できない。',
-              '肉。異様に痩せたか、体の一部が白骨化している。',
-              '人の体。体が歪み変わり、異形と化した。',
-              '己の体。今は他人の体を借りている。'
-            ],
-          },
-
-          "LL" => {
-            name: "生様の喪失表",
-            type: '1D20',
-            table: [
-              '主君の寵愛。不興を買ってしまった。',
-              '師匠。死んだか、あるいはあなたが捨てられた。',
-              '面子。大いに恥をかいた。このままにしておけない。',
-              '時間。今まで精魂を傾けて来たものは無駄だった。',
-              '血縁。信じていた生まれではなかった……。',
-              '家宝。家の宝、あるいは形見を奪われてしまった。',
-              '恋人。死んだか、あるいは奪われた。',
-              '運。何をやってもうまくいかない。',
-              '財産。騙し取られたか……。あるいは使い果たした。',
-              '名声。あなたの名声は地に落ちている……。',
-              '居場所。居るべき場所、身分を失ってしまった……。',
-              '地位。かつての地位は失われたのだ。',
-              '日常。こんな世の中でも平和に暮らしていたのに。',
-              '相棒。死んだか、あるいは裏切られた。',
-              '仕える人。死んだか、あるいはあなたが捨てられた。',
-              '人望。かつてあなたを讃えた人が、今やあなたを罵る。',
-              '家族。死んだか、あるいはあなたが捨てられた。',
-              '故郷。何者かに滅ぼされたか、あるいは自滅した。',
-              '守るべき人。守るべき人を守れなかった……。',
-              '自由。脅され縛られ、誰かの命令を聞くしかできない。'
-            ],
-          },
-
-          "SL" => {
-            name: "魂魄の喪失表",
-            type: '1D20',
-            table: [
-              '誇り。誇りなど残ってはいない。',
-              '心の余裕。今を生きるだけで精一杯。',
-              '敬う心。己こそが全てだ。',
-              '気力。何もやる気がおきない……。',
-              '安眠。夜毎の悪夢に、まともに眠れない。',
-              '信じる心。二度と人など信じるものか。',
-              '愛。もはや誰かを愛することなどない。',
-              '夢。前に見えていた光、目標。今は闇の中だ。',
-              '一線。己の中の超えてはならぬ線を踏み越えた。',
-              '信じたもの。かつて信じたのはまやかしだった。',
-              '人の心。この世で人の心が何の役に立つ？',
-              '瞳の光。全て虚しいものとしか見えない。',
-              '希望。この世に何を望むというのだろう？',
-              '自制心。己を抑えて何とする？',
-              '涙。その目が涙を流すことはない。',
-              '笑顔。二度と笑いなどしないだろう。',
-              '大切な記憶。どうしてか……記憶を失っている。',
-              '本当の自分。己を偽りすぎて、本来の己を忘れた。',
-              '正気。今のあなたは狂気の沙汰だ！',
-              '己の意志。あなたは誰かの人形。道具に過ぎない。'
-            ],
-          },
-
-          "FL" => {
-            name: "因縁表",
-            type: '1D20',
-            table: [
-              '仇敵。奴は敵だ。あなたの敵だ。',
-              '殺意。殺してやりたい。',
-              '蔑視。口ほどにもない存在だ。',
-              '嫉妬。なぜアイツだけが……。',
-              '恐怖。恐ろしい。あれを怒らせてはいけない。',
-              '目障り。邪魔だ。気に入らない。',
-              '利用。役に立ってくれそうだな。',
-              '玩具。せいぜい楽しませてもらおう。',
-              '依存。あの人がいなければいけないのだ。',
-              '欲望。お前が欲しい……。',
-              '好敵。なかなかやるじゃないか。',
-              '憐憎。哀れな……。',
-              '悪友。腐れ縁。信用できないが妙に心地いい。',
-              '畏怖。あの人には逆らえない。',
-              '恩義。恩がある……返さなければ。',
-              '親友。心から信じられる友だ。',
-              '尊敬。あの人のようになりたい。',
-              '相棒。言葉はなくとも全てが通じ合う。',
-              '思慕。恋をしてしまった。',
-              '主君。心の主君。身命を賭して守り仕える。'
-            ],
-          },
-
-          "HG" => {
-            name: "地獄門通過描写表",
-            type: '1D20',
-            table: [
-              '背後見れば、地獄の門をば幻視せり。危うき次第を知りたり．',
-              '必死に歩めり。背後に穂れし血と臓脈、こぼしたるが心地なれど。',
-              '背後の地に深き爪痕あり。己を捕らへむとせる鬼の爪跡かと思ふ。',
-              '劫火に焼かるる己を幻視す。汗にまみれ覚めれば、己が所業悔悟せり。',
-              '水鏡に映る己を見て目を覚ます。彼のままなれば地獄に堕つると。',
-              '天に鶴騒ぎたり。御身が魂晩取り逃がしたりと吃るが如く。',
-              '足が泥淳に囚わるる幻視。引きずり込む亡者。必死に逃れ至れり。',
-              '陰に蠢く餓鬼を見ゆ･明日は己ぞと思へば、背も震えたり。',
-              '喪失の苦しみ、いくばくか休めり。他を思う心地ぞ生まれり。',
-              'いみじう悩み苦しけれど、やがてそれも馴れり。今や苦しみならず。',
-              'しずけき雨降らば、己が所業洗い流さるるとも、思へたり。',
-              '汚泥が如く絡みし過ぎたる日々、わずかに離れたる心地ぞする。',
-              '背負いし怨念ら退き薄れむ。これなるは縁がゆへか、心地ゆへか。',
-              '内に孕むる絶望へ、連理たれと希望の芽、萌ゆる。',
-              '生温かき風と共に、大粒の雨降れり。すわ血の雨かとも思へり。',
-              '人と関わりて縁を見ゆ。抱ふるもの、いくらか少なくなりき。',
-              '夢枕、あるいは白昼夢なるか。神仏現るるにすがりたり。',
-              '劫火の中、白き手が己を引けりと幻視す。あるひは過去の縁か。',
-              '蛙呑む蛇を見たり。あさましき業に、己をふと顧みぬ。',
-              '心中にて、かそけき希望の糸見へり。慎重にたぐりて登らむとす。'
-            ],
-          },
-
-          "RG" => {
-            name: "羅生門通過描写表",
-            type: '1D20',
-            table: [
-              'むごき所業、目にせり。心強張りて、常の様にてあれず．',
-              '人の目に、己を嗤ふ気配感じたり。怒り、悔み、恥ぞ覚えむ。',
-              '鬼の腕より、ついに逃るるか．おぞましき震へぞ、治まりき。',
-              '辻吹く風に、人骨散れり。たちまち無常の感、起こりて心改めたり。',
-              '愛憎恩普、いよいよ狂ほしく。猛るまま、ただただ前へと進めり。',
-              '飢えたる犬の如し。泥水すすりても前に進み、想い果たさむ。',
-              '喪失、取り戻すは近し。思はず、あさましき笑みぞ浮かべり。',
-              'いやしき者ども、あさましき目を向くる。蔑みてまかり通らむ。',
-              '喪失の夢繰り返すこといくたびか。もはや業苦の炎冷め、常日頃の如し。',
-              'あるひは己の内よりか。あやしき声あれば欲心また昂ぶらむ。',
-              '死人を見、成仏を祈れり。心あらば、己が内にて仏も宿らむ。',
-              'ただただ世の無常を知れば、哀愁の情あふれ感じむ。',
-              '路地に小さき花咲くを見ゆ。我執の心晴れたる心地せり。',
-              '冷たき風あらば、情動わずかに治まりて、落ち着きたりけり。',
-              '酒を飲めり。酔ひたる心地の内に、業苦も曖昧とならむ。',
-              '見えざる大門潜りしか。境目超えたるを感ずる。いざ、知らずの地平へ。',
-              '乞食坊主に逢ひて、恵む。これもまたいくばくの功徳なりきや。',
-              '子供ら遊ぶを見ゆ。己が古きを思へば、思はず顔ほころびぬ。',
-              '暗雲に包まれし都なれど今その身に、いくばくかの光差し照らしけり。',
-              '神仏の似姿、幻視す。されば、いかな身にも信心のいくばくか起これり。'
-            ],
-          },
-
-          "VG" => {
-            name: "朱雀門通過描写表",
-            type: '1D20',
-            table: [
-              '雷響きて、暗霊いよいよ濃ゆし。己が先を見せるるが如し。',
-              '今一つ取り戻すは及ばぬ口惜しきに、鬼が如く唸りし。',
-              '求めし手、届かずも絶望すれど再び、ふらふらと歩み出さむ。',
-              'かたときの福なるか。狐に化かさるるが如く、鹿なる泡沫の夢。',
-              '流るる血。朱に染まる視界。されど、染まらざる中に光あり。',
-              '己が臓腑抉るが如く。己が業、抉り捨て進まん。',
-              '先に狐の影見ゆ。あやしけれど、迷ひながら、狐を追へり。',
-              '大いなる境を越えたるかと思えり。未だ道半ばなれば油断許さず。',
-              '暗雲に白鷺翔けるを見ゆ。瑞兆なれば希望もまた湧きぬ。',
-              '内より翼の出るが心地せり。いざ思い切りて、翔ばむ。',
-              '割れた杯より漏れたるも、重ねたる杯に。合一せば余さず受けり。',
-              '心激しくして魚跳ねるが如く。その実も暗き水面より跳ね出たり。',
-              '貴き牛車と行き逢はむ。幽かな香に、目ぞ覚めたる思いせり。',
-              'ふと口をついて歌詠めり。何者か下の句継ぎて、心合わせむ。',
-              '知らずの人より、送られし歌あり。返歌いかがせむかと思ひたり。',
-              '鳥の巣立つを見たり。己もまた、新たな道歩むべきぞと心せり。',
-              '暗雲貫きて、空に月あり。天より見らるる心地して、行い正せり。',
-              '目的近づけど、心重し。胸痛みて、いみじう哀し。',
-              '不意に仏心起こりて、万物慈みの念おぼえたり。',
-              '頭上より何者かの楽の音、饗けり。その身、祝はるる心地せり。'
-            ],
-          },
-
-          "OG" => {
-            name: "応天門通過描写表",
-            type: '1D20',
-            table: [
-              '光捕らへど暗し。新たなる地獄の門に落つる己を知りたり。',
-              '求めしもの得たり。されど、なにものか失いし心地ぞせる……。',
-              '狐鴫きて自覚むる。全て一夜の夢の如し。痛みもまたしかり。',
-              'なにゆへか、涙こぼるる。ただ涙こぼれ、業苦もまた流れむ。',
-              '人想ひて、未練生まるる。己が幸求めれば、死を畏れむ。',
-              '打ち返す波の音聞く。遥か遠く、旅立ちたむと念、生じたり。',
-              '実る稲田を幻視す。もはや都の有様、人住む地に非ずと思へり。',
-              '取り戻したるに、ただただ歓喜す。もはや周りの様も感ぜず。',
-              'あまたの人の目、御身見てざわめくを感ず。優越の心地あり。',
-              'かけがへなきもの、見つけたり。今はただ、そを喜ぶのみなれば。',
-              '天盤にて星巡り、時満ちて、方合へり。なればその身にも幸ありむ。',
-              '幾年月ぞ、剥那の如し。思ふれば囚わる檻も、無きかと見ゆ。',
-              '天より鵺退きて、日の光差す。浴びる中、魂魄またぬくもりを覚えり。',
-              '風流、解する心あらば天地自然もまた並び、自らその内に合一せむ。',
-              'いかにせで、己の在り様を責むるや。己は己なれが、気に負うに値せず。',
-              'あまねく世のことども、遠く鈍く思ひて心安らかなる境地に至れり。',
-              '天遠く光差せば、淡き虹も浮かべり。何処かへ渡す橋とも見ゆ。',
-              '天より一輪の花舞い降りて、御身の手に落つ。心また花咲けり。',
-              '鵺の内に竜神舞へり。風雨激しく、身濡らせど、心清々し。',
-              '都の暗雲、晴れたる日も稀にあり。なんぞ魂魄晴るる日なしや。'
-            ],
-          },
+      class << self
+        private
+
+        def translate_tables(locale)
+          {
+            "LR" => DiceTable::Table.from_i18n("Nuekagami.table.LR", locale),
+            "BL" => DiceTable::Table.from_i18n("Nuekagami.table.BL", locale),
+            "LL" => DiceTable::Table.from_i18n("Nuekagami.table.LL", locale),
+            "SL" => DiceTable::Table.from_i18n("Nuekagami.table.SL", locale),
+            "FL" => DiceTable::Table.from_i18n("Nuekagami.table.FL", locale),
+            "HG" => DiceTable::Table.from_i18n("Nuekagami.table.HG", locale),
+            "RG" => DiceTable::Table.from_i18n("Nuekagami.table.RG", locale),
+            "VG" => DiceTable::Table.from_i18n("Nuekagami.table.VG", locale),
+            "OG" => DiceTable::Table.from_i18n("Nuekagami.table.OG", locale),
+          }
+        end
+      end
 
-        }.freeze
+      TABLES = translate_tables(:ja_jp)
 
       register_prefix(TABLES.keys)
     end

data/lib/bcdice/game_system/Nuekagami_Korean.rb

@@ -0,0 +1,43 @@
+# frozen_string_literal: true
+
+require 'bcdice/game_system/Nuekagami'
+
+module BCDice
+  module GameSystem
+    class Nuekagami_Korean < Nuekagami
+      # ゲームシステムの識別子
+      ID = 'Nuekagami:Korean'
+
+      # ゲームシステム名
+      NAME = '누에카가미'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = '国際化:Korean:누에카가미'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~MESSAGETEXT
+        ・상실표（xL）
+        　BL：혈맥, LL：생기(生様), SL：혼백, FL：인연
+
+        ・LR：상실 회복표
+
+        ・문 통과 묘사표（xG）
+        　HG：지옥문, RG：나생문, VG：주작문, OG：응천문
+      MESSAGETEXT
+
+      def initialize(command)
+        super(command)
+
+        @locale = :ko_kr
+      end
+
+      TABLES = translate_tables(:ko_kr)
+
+      def eval_game_system_specific_command(command)
+        roll_tables(command, TABLES)
+      end
+
+      register_prefix(TABLES.keys)
+    end
+  end
+end