bcdice 3.13.0 → 3.15.0

data/lib/bcdice/game_system/ArknightsFan.rb

@@ -7,159 +7,302 @@ module BCDice
       ID = "ArknightsFan"
 
       # ゲームシステム名
-      NAME = "アークナイツTRPG by Dapto"
+      NAME = "アークナイツTRPG by daaaper"
 
       # ゲームシステム名の読みがな
-      SORT_KEY = "ああくないつTRPGはいたふと"
+      SORT_KEY = "ああくないつTRPGはいてえはあ"
 
       HELP_MESSAGE = <<~TEXT
-        ■ 判定 (nADm>=x)
-          nDmのダイスロールをして、x 以下であれば成功。
+        ■ 能力値判定 (nADm<=x)
+          nDmのダイスロールをして、出目が x 以下であれば成功。
           出目が91以上でエラー。
           出目が10以下でクリティカル。
 
-        ■ 判定 (nABm>=x)
+        ■ 攻撃/防御判定 (nABm<=x)
           nBmのダイスロールをして、
-            x 以下であれば成功数+1。
-            出目が91以上でエラー。成功数+1。
-            出目が10以下でクリティカル。成功数-1。
+            出目が x 以下であれば成功数+1。
+            出目が91以上でエラー。成功数-1。
+            出目が10以下でクリティカル。成功数+1。
           上記による成功数をカウント。
 
-        ■ 判定 (nABm>=x--役職)
+        ■ 役職効果付き攻撃判定 (nABm<=x--役職名h)
+          h: 健康状態(0: 健康、1: 中等症、2: 重症)
           nBmのダイスロールをして、
             出目が x 以下であれば成功数+1。
-            出目が91以上でエラー。成功数+1。
-            出目が10以下でクリティカル。成功数-1。
-          上記による成功数をカウントした上で、以下の役職による成功数増加効果を適応。
-            狙撃（SNIPER） 成功数1以上のとき、成功数+1。
+            出目が91以上でエラー。成功数-1。
+            出目が10以下でクリティカル。成功数+1。
+          上記による成功数をカウントした上で、以下の役職名による成功数増加効果を適応。
+            狙撃（SNI）: 健康(h=0)かつ成功数1以上のとき、成功数+1。
+          健康状態hを省略した場合、健康(h=0)として扱われる。
+
+        ■ 鉱石病判定 (ORPx@y+Dd+Tt)
+          x: 生理的耐性、y: 上昇後侵食度、d: ダイス補正、t: 判定値補正
+          生理的耐性xのOPが侵食度yに上昇した際の鉱石病判定を、ダイス数補正d、判定値補正tで行う。
+          ダイス数補正と判定値補正は省略可能。例えば ORP60@25 は ORP60@25+D0+T0 と同義。
+          また、ダイス数補正と判定値補正は逆順でも可。例えば ORP60@25+T10+D2 も可。
+
+        ■ 増悪判定（--WORSENING）
+          症状を「末梢神経障害」「内臓機能不全」「精神症状」からランダムに選択。
+          継続ラウンド数を1d6+1で判定。
+
+        ■ 中毒判定（--ADDICTION）
+          症状を「脳神経障害」「多臓器不全」「急性精神反応」からランダムに選択。
+
+        ■ 判定の省略表記
+          nADm、nABm、nABmにおいて、
+            n（ダイス個数）を省略した場合、1として扱われる。
+            m（ダイス種類）を省略した場合、100として扱われる。
+          例えば、AD<=90は1AD100<=90として解釈される。
       TEXT
 
-      register_prefix('\d*AD\d*', '\d*AB\d*', '--ADDICTION', '--WORSENING')
+      register_prefix('[-+*/\d]*AD\d*', '[-+*/\d]*AB\d*', 'ORP', '--WORSENING', '--ADDICTION')
+
+      def initialize(command)
+        super(command)
+        @sort_add_dice = true      # 加算ダイスでダイス目をソートする
+        @sort_barabara_dice = true # バラバラダイスでダイス目をソートする
+        @sides_implicit_d = 100    # 1D のようにダイスの面数が指定されていない場合に100面ダイスにする
+      end
 
       def eval_game_system_specific_command(command)
-        roll_ad(command) || roll_ab(command) || roll_addiction(command) || roll_worsening(command)
+        eval_ad(command) || eval_ab(command) || eval_orp(command) || eval_worsening(command) || eval_addiction(command)
       end
 
       private
 
-      def roll_ad(command)
-        m = /^(\d*)AD(\d*)<=(\d+)$/.match(command)
+      module Status
+        CRITICAL = 1
+        SUCCESS  = 2
+        FAILURE  = 3
+        ERROR    = 4
+      end
+
+      STATUS_NAME = {
+        Status::CRITICAL => 'クリティカル！',
+        Status::SUCCESS => '成功',
+        Status::FAILURE => '失敗',
+        Status::ERROR => 'エラー'
+      }.freeze
+
+      # クリティカル、エラー、成功失敗周りの閾値や優先関係が複雑かつルールが変動する可能性があるため、明示的にルール管理するための関数。
+      def check_roll(roll_result, target)
+        success = roll_result <= target
+
+        crierror =
+          if roll_result <= 10
+            "Critical"
+          elsif roll_result >= 91
+            "Error"
+          else
+            "Neutral"
+          end
+
+        result =
+          if success && (crierror == "Critical")
+            Status::CRITICAL
+          elsif success && (crierror == "Neutral")
+            Status::SUCCESS
+          elsif success && (crierror == "Error")
+            Status::SUCCESS
+          elsif !success && (crierror == "Critical")
+            Status::FAILURE
+          elsif !success && (crierror == "Neutral")
+            Status::FAILURE
+          elsif !success && (crierror == "Error")
+            Status::ERROR
+          end
+
+        return result
+      end
+
+      def eval_ad(command)
+        # -は文字クラスの先頭または最後に置く。
+        # そうしないと範囲指定子として解釈される。
+        m = %r{^([-+*/\d]*)AD(\d*)<=([-+*/\d]+)$}.match(command)
         return nil unless m
 
         times = m[1]
         sides = m[2]
-        target = m[3].to_i
-        times = !times.empty? ? times.to_i : 1
+        target = Arithmetic.eval(m[3], @round_type)
+        times = !times.empty? ? Arithmetic.eval(m[1], @round_type) : 1
         sides = !sides.empty? ? sides.to_i : 100
-        return roll_d(command, times, sides, target)
+
+        roll_ad(command, times, sides, target)
       end
 
-      def roll_ab(command)
-        m = /^(\d*)AB(\d*)<=(\d+)(?:--([^\d\s]+)(0)?)?$/.match(command)
+      def eval_ab(command)
+        m = %r{^([-+*/\d]*)AB(\d*)<=([-+*/\d]+)(?:--([^\d\s]+)([0-2])?)?$}.match(command)
         return nil unless m
 
         times = m[1]
         sides = m[2]
-        target = m[3].to_i
+        target = Arithmetic.eval(m[3], @round_type)
         type = m[4]
-        suffix = m[5]
-        times = !times.empty? ? times.to_i : 1
+        type_status = m[5]
+        times = !times.empty? ? Arithmetic.eval(m[1], @round_type) : 1
         sides = !sides.empty? ? sides.to_i : 100
+        if !type_status.nil?
+          type_status = type_status.to_i
+        elsif type == "SNIPER" # スプレッドシート版キャラシの後方互換性のために必要
+          type_status = 1
+        else
+          type_status = 0
+        end
 
-        if suffix || type.nil?
-          roll_b(command, times, sides, target)
+        if type.nil?
+          roll_ab(command, times, sides, target)
         else
-          roll_b_withtype(command, times, sides, target, type)
+          roll_ab_withtype(command, times, sides, target, type, type_status)
         end
       end
 
-      def roll_d(command, times, sides, target)
+      def eval_orp(command)
+        m   = %r{^ORP(?'END'[-+*/\d]+)@(?'ORP'[-+*/\d]+)(?:\+D(?'DICE'[-+*/\d]+))?(?:\+T(?'TGT'[-+*/\d]+))?$}.match(command)
+        # D補正とT補正が逆順でも対応する
+        m ||= %r{^ORP(?'END'[-+*/\d]+)@(?'ORP'[-+*/\d]+)(?:\+T(?'TGT'[-+*/\d]+))?(?:\+D(?'DICE'[-+*/\d]+))?$}.match(command)
+        return nil unless m
+
+        endurance = Arithmetic.eval(m[:END], @round_type)
+        oripathy = Arithmetic.eval(m[:ORP], @round_type)
+        times_mod = !m[3].nil? ? Arithmetic.eval(m[:DICE], @round_type) : 0
+        target_mod = !m[4].nil? ? Arithmetic.eval(m[:TGT], @round_type) : 0
+
+        roll_orp(command, endurance, oripathy, times_mod, target_mod)
+      end
+
+      def roll_ad(command, times, sides, target)
         dice_list = @randomizer.roll_barabara(times, sides).sort
         total = dice_list.sum
-        success = total <= target
 
-        crierror =
-          if total <= 10
-            "Critical"
-          elsif total >= 91
-            "Error"
-          else
-            "Neutral"
-          end
-
-        result =
-          if success && (crierror == "Critical")
-            "クリティカル！"
-          elsif success && (crierror == "Neutral")
-            "成功"
-          elsif success && (crierror == "Error")
-            "成功"
-          elsif !success && (crierror == "Critical")
-            "失敗"
-          elsif !success && (crierror == "Neutral")
-            "失敗"
-          elsif !success && (crierror == "Error")
-            "エラー"
-          end
+        result = check_roll(total, target)
 
         if times == 1
-          return "(#{command}) ＞ #{dice_list.join(',')} ＞ #{result}"
+          result_text = "(#{command}) ＞ #{dice_list.join(',')} ＞ #{STATUS_NAME[result]}"
         else
-          return "(#{command}) ＞ #{total}[#{dice_list.join(',')}] ＞ #{result}"
+          result_text = "(#{command}) ＞ #{total}[#{dice_list.join(',')}] ＞ #{STATUS_NAME[result]}"
+        end
+        case result
+        when Status::CRITICAL
+          Result.critical(result_text)
+        when Status::SUCCESS
+          Result.success(result_text)
+        when Status::FAILURE
+          Result.failure(result_text)
+        when Status::ERROR
+          Result.fumble(result_text)
         end
       end
 
-      def roll_b(command, times, sides, target)
-        dice_list, success_count, critical_count, error_count = process_b(times, sides, target)
+      def roll_ab(command, times, sides, target)
+        dice_list = @randomizer.roll_barabara(times, sides).sort
+
+        success_count, critical_count, error_count = process_ab(dice_list, target)
         result_count = success_count + critical_count - error_count
 
-        return "(#{command}) ＞ [#{dice_list.join(',')}] ＞ #{success_count}+#{critical_count}C-#{error_count}E ＞ 成功数#{result_count}"
+        result_text = "(#{command}) ＞ [#{dice_list.join(',')}] ＞ #{success_count}+#{critical_count}C-#{error_count}E ＞ 成功数#{result_count}"
+        Result.new.tap do |r|
+          r.text = result_text
+          r.condition = result_count > 0
+          r.critical = critical_count > 0
+          r.fumble = error_count > 0
+        end
       end
 
-      def roll_b_withtype(command, times, sides, target, type)
-        dice_list, success_count, critical_count, error_count = process_b(times, sides, target)
+      def roll_ab_withtype(command, times, sides, target, type, type_status)
+        dice_list = @randomizer.roll_barabara(times, sides).sort
+
+        success_count, critical_count, error_count = process_ab(dice_list, target)
         result_count = success_count + critical_count - error_count
 
-        type_effect =
-          if (type == "SNIPER") && (result_count > 0)
-            1
+        case type
+        when "SNI"
+          if (type_status == 0) && (result_count > 0)
+            result_mod = 1
+          else
+            result_mod = 0
+          end
+        when "SNIPER" # スプレッドシート版キャラシの後方互換性のため残している
+          if (type_status != 0) && (result_count > 0)
+            result_mod = 1
           else
-            0
+            result_mod = 0
           end
-        result_count += type_effect
+        end
 
-        return "(#{command}) ＞ [#{dice_list.join(',')}] ＞ #{success_count}+#{critical_count}C-#{error_count}E+#{type_effect}(#{type}) ＞ 成功数#{result_count}"
+        if !result_mod.nil?
+          result_count += result_mod
+          result_text = "(#{command}) ＞ [#{dice_list.join(',')}] ＞ #{success_count}+#{critical_count}C-#{error_count}E+#{result_mod}(#{type}) ＞ 成功数#{result_count}"
+        else
+          result_text = "(#{command}) ＞ [#{dice_list.join(',')}] ＞ #{success_count}+#{critical_count}C-#{error_count}E ＞ 成功数#{result_count}"
+        end
+        Result.new.tap do |r|
+          r.text = result_text
+          r.condition = result_count > 0
+          r.critical = critical_count > 0
+          r.fumble = error_count > 0
+        end
       end
 
-      def process_b(times, sides, target)
+      ENDURANCE_LEVEL_TABLE = [20, 40, 70, 90, Float::INFINITY].freeze # 生理的耐性の実数値から能力評価への変換テーブル
+      ORP_TIMES_TABLE = [1, 2, 2, 3, 4].freeze                         # 生理的耐性の能力評価ごとのダイス数基本値
+      def roll_orp(command, endurance, oripathy, times_mod, target_mod)
+        sides = 100
+
+        endurance_level = ENDURANCE_LEVEL_TABLE.find_index { |n| endurance <= n }
+        original_times = ORP_TIMES_TABLE[endurance_level]
+        times = original_times + times_mod
+
+        if oripathy <= 20
+          return Result.new("(#{command}) ＞ 鉱石病判定が発生しない侵食度です。侵食度は21以上を指定してください。")
+        end
+
+        oripathy_stage = (oripathy / 20.0).ceil - 1
+        original_target = (80 - oripathy_stage * 20) - (oripathy - oripathy_stage * 20) * 5
+        target = original_target + target_mod
+        dice_and_target_text = "ダイス数#{original_times}" +
+                               (times_mod > 0 ? "+#{times_mod}" : "") +
+                               "、判定値#{original_target}" +
+                               (target_mod > 0 ? "+#{target_mod}" : "")
+        result_texts = ["(#{command})", dice_and_target_text, "#{times}B100<=#{target}"]
+
+        if target <= 0
+          result_texts += ["自動失敗！"]
+          return Result.failure(result_texts.join(" ＞ "))
+        end
+
+        # 複数振ったダイスのうち1つでも判定値を下回れば成功なので、最も出目の小さいダイスのみを確認すればよい。
+        # dice_listをソートした上で、dice_list[0]が最小の出目。
         dice_list = @randomizer.roll_barabara(times, sides).sort
+        success_count = dice_list.count { |n| n <= target }
+        if success_count > 0
+          result_texts += ["[#{dice_list.join(',')}]", "成功数#{success_count}", "成功"]
+          Result.success(result_texts.join(" ＞ "))
+        else
+          result_texts += ["[#{dice_list.join(',')}]", "成功数#{success_count}", "失敗"]
+          Result.failure(result_texts.join(" ＞ "))
+        end
+      end
 
+      def process_ab(dice_list, target)
         success_count = 0
         critical_count = 0
         error_count = 0
 
         dice_list.each do |value|
-          success_count += 1 if value <= target
-          critical_count += 1 if value <= 10
-          error_count += 1 if value >= 91
+          case check_roll(value, target)
+          when Status::CRITICAL
+            critical_count += 1
+            success_count += 1
+          when Status::SUCCESS
+            success_count += 1
+          when Status::FAILURE
+            # Nothing to do
+          when Status::ERROR
+            error_count += 1
+          end
         end
 
-        return [dice_list, success_count, critical_count, error_count]
-      end
-
-      ADDICTION_TABLE = [
-        "中枢神経障害",
-        "多臓器不全",
-        "急性ストレス反応",
-      ].freeze
-
-      def roll_addiction(command)
-        return nil if command != "--ADDICTION"
-
-        value = @randomizer.roll_once(3)
-        chosen = ADDICTION_TABLE[value - 1]
-
-        return "--ADDICTION ＞ #{chosen}"
+        return [success_count, critical_count, error_count]
       end
 
       WORSENING_TABLE = [
@@ -168,7 +311,7 @@ module BCDice
         "精神症状",
       ].freeze
 
-      def roll_worsening(command)
+      def eval_worsening(command)
         return nil if command != "--WORSENING"
 
         value = @randomizer.roll_once(3)
@@ -177,6 +320,21 @@ module BCDice
 
         return "--WORSENING ＞ #{chosen}: #{elapse} rounds"
       end
+
+      ADDICTION_TABLE = [
+        "脳神経障害",
+        "多臓器不全",
+        "急性精神症状",
+      ].freeze
+
+      def eval_addiction(command)
+        return nil if command != "--ADDICTION"
+
+        value = @randomizer.roll_once(3)
+        chosen = ADDICTION_TABLE[value - 1]
+
+        return "--ADDICTION ＞ #{chosen}"
+      end
     end
   end
 end

data/lib/bcdice/game_system/BlackJacket.rb

@@ -0,0 +1,244 @@
+# frozen_string_literal: true
+
+require 'bcdice/dice_table/range_table'
+
+module BCDice
+  module GameSystem
+    class BlackJacket < Base
+      # ゲームシステムの識別子
+      ID = 'BlackJacket'
+
+      # ゲームシステム名
+      NAME = 'ブラックジャケットRPG'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'ふらつくしあけつとRPG'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        ・行為判定（BJx）
+        　x：成功率
+        　例）BJ80
+        　クリティカル、ファンブルの自動的判定を行います。
+        　「BJ50+20-30」のように加減算記述も可能。
+        　成功率は上限100％、下限０％
+        ・デスチャート(DCxY)
+        　x：チャートの種類。肉体：DCL、精神：DCS、環境：DCC
+        　Y=マイナス値
+        　例）DCL5：ライフが -5 の判定
+        　　　DCS3：サニティーが -3 の判定
+        　　　DCC0：クレジット 0 の判定
+        ・チャレンジ・ペナルティ・チャート（CPC）
+        ・サイドトラック・チャート（STC）
+      INFO_MESSAGE_TEXT
+
+      def eval_game_system_specific_command(command)
+        resolute_action(command) || roll_death_chart(command) || roll_tables(command, TABLES)
+      end
+
+      private
+
+      def resolute_action(command)
+        m = /^BJ(\d+([+-]\d+)*)$/.match(command)
+        unless m
+          return nil
+        end
+
+        success_rate = ArithmeticEvaluator.eval(m[1])
+
+        roll_result, dice10, dice01 = roll_d100
+        roll_result_text = format('%02d', roll_result)
+
+        result = action_result(roll_result, dice10, dice01, success_rate)
+
+        sequence = [
+          "行為判定(成功率:#{success_rate}％)",
+          "1D100[#{dice10},#{dice01}]=#{roll_result_text}",
+          roll_result_text.to_s,
+          result.text
+        ]
+
+        result.text = sequence.join(" ＞ ")
+        result
+      end
+
+      SUCCESS_STR = "成功"
+      FAILURE_STR = "失敗"
+      CRITICAL_STR = (SUCCESS_STR + " ＞ クリティカル！ パワーの代償１／２").freeze
+      FUMBLE_STR = (FAILURE_STR + " ＞ ファンブル！ パワーの代償２倍＆振り直し不可").freeze
+      MISERY_STR = (FAILURE_STR + " ＞ ミザリー！ パワーの代償２倍＆振り直し不可").freeze
+
+      def action_result(total, tens, ones, success_rate)
+        if total == 100
+          Result.fumble(MISERY_STR)
+        elsif success_rate <= 0
+          Result.fumble(FUMBLE_STR)
+        elsif total <= success_rate - 100
+          Result.critical(CRITICAL_STR)
+        elsif tens == ones
+          if total <= success_rate
+            Result.critical(CRITICAL_STR)
+          else
+            Result.fumble(FUMBLE_STR)
+          end
+        elsif total <= success_rate
+          Result.success(SUCCESS_STR)
+        else
+          Result.failure(FAILURE_STR)
+        end
+      end
+
+      def roll_d100
+        dice10 = @randomizer.roll_once(10)
+        dice10 = 0 if dice10 == 10
+        dice01 = @randomizer.roll_once(10)
+        dice01 = 0 if dice01 == 10
+
+        roll_result = dice10 * 10 + dice01
+        roll_result = 100 if roll_result == 0
+
+        return roll_result, dice10, dice01
+      end
+
+      class DeathChart
+        def initialize(name, chart)
+          @name = name
+          @chart = chart.freeze
+
+          if @chart.size != 11
+            raise ArgumentError, "unexpected chart size #{name.inspect} (given #{@chart.size}, expected 11)"
+          end
+        end
+
+        # @param randomizer [Randomizer]
+        # @param minus_score [Integer]
+        # @return [String]
+        def roll(randomizer, minus_score)
+          dice = randomizer.roll_once(10)
+          key_number = dice + minus_score
+
+          key_text, chosen = at(key_number)
+
+          return "デスチャート（#{@name}）[マイナス値:#{minus_score} + 1D10(->#{dice}) = #{key_number}] ＞ #{key_text} ： #{chosen}"
+        end
+
+        private
+
+        # key_numberの10から20がindexの0から10に対応する
+        def at(key_number)
+          if key_number < 10
+            ["10以下", @chart.first]
+          elsif key_number > 20
+            ["20以上", @chart.last]
+          else
+            [key_number.to_s, @chart[key_number - 10]]
+          end
+        end
+      end
+
+      def roll_death_chart(command)
+        m = /^DC([LSC])(\d+)$/i.match(command)
+        unless m
+          return m
+        end
+
+        chart = DEATH_CHARTS[m[1]]
+        minus_score = m[2].to_i
+
+        return chart.roll(@randomizer, minus_score)
+      end
+
+      DEATH_CHARTS = {
+        'L' => DeathChart.new(
+          '肉体',
+          [
+            "何も無し。キミは奇跡的に一命を取り留めた。闘いは続く。",
+            "激痛が走る。以後、イベント終了時まで、全ての判定の成功率－10％。",
+            "もう、体が動かない……。キミは［硬直２］を受ける。",
+            "渾身の一撃!!　キミは〈生存〉判定を行なう。失敗した場合、［死亡］する。",
+            "突然、目の前が真っ暗になった。キミは［気絶２］を受ける。",
+            "以後、イベント終了時まで、全ての判定の成功率－20％。",
+            "記録的一撃!!　キミは〈生存〉－20％の判定を行なう。失敗した場合、［死亡］する。",
+            "生きているのか死んでいるのか。キミは［瀕死２］を受ける。",
+            "叙事詩的一撃!!　キミは〈生存〉－30％の判定を行なう。失敗した場合、［死亡］する。",
+            "以後、イベント終了時まで、全ての判定の成功率－30％。",
+            "神話的一撃!!　キミは宙を舞って三回転ほどした後、地面に叩きつけられる。見るも無惨な姿。肉体は原型を留めていない（キミは［死亡］した）。",
+          ]
+        ),
+        'S' => DeathChart.new(
+          '精神',
+          [
+            "何も無し。キミは歯を食いしばってストレスに耐えた。",
+            "以後、イベント終了時まで、全ての判定の成功率－10％。",
+            "云い知れぬ恐怖がキミを襲う。キミは［恐怖２］を受ける。",
+            "とても傷ついた。キミは〈意思〉判定を行なう。失敗した場合、［絶望］してNPCとなる。",
+            "キミは意識を失った。キミは［気絶２］を受ける。",
+            "以後、イベント終了時まで、全ての判定の成功率－20％。",
+            "信じる者にだまされたような痛み。キミは〈意思〉－20％の判定を行なう。失敗した場合、［絶望］してＮＰＣとなる。",
+            "仲間に裏切られたのかも知れない。キミは［混乱２］を受ける。",
+            "あまりに残酷な現実。キミは〈意思〉－30％の判定を行なう。失敗した場合、［絶望］してＮＰＣとなる。",
+            "以後、イベント終了時まで、全ての判定の成功率－30％。",
+            "宇宙開闢の理に触れるも、それは人類の認識限界を超える何かであった。キミは［絶望］し、以後ＮＰＣとなる。",
+          ]
+        ),
+        'C' => DeathChart.new(
+          '環境',
+          [
+            "何も無し。キミは黒い噂を握りつぶした。",
+            "以後、イベント終了時まで、全ての判定の成功率－10％。",
+            "ピンチ！　以後、ラウンド終了時まで、キミはカルマを使用できない。",
+            "悪い噂が流れる。キミは〈交渉〉判定を行なう。失敗した場合、キミは仲間からの信頼を失って［無縁］され、ＮＰＣとなる。",
+            "以後、イベント終了時まで、代償にクレジットを消費するパワーを使用できない。",
+            "キミの悪評が世間に知れ渡る。協力者からの支援が打ち切られる。以後、シナリオ終了時まで、全ての判定の成功率－20％。",
+            "裏切り!!　キミは〈経済〉－20％の判定を行なう。失敗した場合、キミは周囲からの信頼を失い、［無縁］され、ＮＰＣとなる。",
+            "以後、シナリオ終了時まで、【環境】系の技能のレベルがすべて０となる。",
+            "捏造報道？　身に覚えのない背信行為がスクープとして報道される。キミは〈心理〉－30％の判定を行なう。失敗した場合、キミは人としての尊厳を失い、［無縁］を受ける。",
+            "以後、イベント終了時まで、全ての判定の成功率－30％。",
+            "キミの名は史上最悪の汚点として歴史に刻まれる。もはらキミを信じる仲間はなく、キミを助ける社会もない。キミは［無縁］され、以後ＮＰＣとなる。",
+          ]
+        )
+      }.freeze
+
+      TABLES = {
+        "CPC" => DiceTable::Table.new(
+          "チャレンジ・ペナルティ・チャート",
+          "1D10",
+          [
+            "逝去\n助けるべきＮＰＣ（ヒロインなど）が死亡する。",
+            "黒星\n敵が目的を成就し、事件はPCの敗北で終了する。そのまま余韻フェイズへ。",
+            "活性\n敵のボスのライフを２倍にしたうえで決戦フェイズを開始する。",
+            "攻勢\n敵ボスの与ダメージに＋２D6の修正を与えたうえで決戦フェイズを開始する。",
+            "大挙\n敵の数（ボス以外）を２倍にしたうえで決戦フェイズを開始する。",
+            "暗黒\nすべてのエリアを［暗闇］にしたうえで決戦フェイズを開始する。",
+            "猛火\n２つの戦場エリアを［ダメージゾーン２］にして、決戦フェイズを開始する。",
+            "伏兵\n敵の半分をエリア１とエリア２に移動させた状態で決戦フェイズを開始する。",
+            "満腹\nボス以外の敵のライフをすべて２倍にしたうえで決戦フェイズを開始する。",
+            "封印\n決戦フェイズの間、PCはカルマを使用できない。決戦フェイズを開始する。"
+          ]
+        ),
+        "STC" => DiceTable::Table.new(
+          "サイドトラック・チャート",
+          "1D10",
+          [
+            "邂逅\n偶然、ＮＰＣと出会う。どのＮＰＣが現れるかはGMが決定すること。",
+            "事故\n交通事故に出くわす。周囲ではパニックが起きているかも知れない。",
+            "午睡\n強烈な睡魔に襲われる。まさか、新手のヴィランの能力か？",
+            "告白\nＮＰＣのひとりから、今まで秘めていた思いを吐露される。",
+            "設定\n新たな設定が明かされる。実はＮＰＣの父だったとか、生来目が見えん、とか。",
+            "刺客\n何者かから攻撃を受ける。第３勢力か？",
+            "会敵\n偶然、仇敵のひとりと出くわす。追うべきか？　無視すべきか？",
+            "不審\n怪しい人物を見かける。追うべきか？　無視すべきか？",
+            "遭遇\nシナリオと関係のないヴィラン組織と遭遇する。",
+            "平和\n特に何も起きなかった。",
+          ]
+        ),
+      }.freeze
+
+      register_prefix(
+        'BJ',
+        'DC[LSC]',
+        TABLES.keys
+      )
+    end
+  end
+end