bcdice 3.0.0.pre.alpha.1

data/lib/bcdice/game_system/BladeOfArcana.rb

@@ -0,0 +1,252 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class BladeOfArcana < Base
+      # ゲームシステムの識別子
+      ID = 'BladeOfArcana'
+
+      # ゲームシステム名
+      NAME = 'ブレイド・オブ・アルカナ'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'ふれいとおふあるかな'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        ■行為判定　nA[m][Cx][Fy]
+        　n：ダイス数　　m：判定値(省略時はクリティカル値と同じ)
+        　x：クリティカル値(省略時は1)　　y：ファンブル値(省略時は20)
+        　注）[m]、[Cx]、[Fy]は省略可能。
+        　　例）3A12C4F15→3個振り12以下で成功。C値4、F値は15。
+        　　例）3A12→3個振り12以下で成功。C値1、F値は20。
+
+        ■各種表　(+：出目2～21に変更　-：出目0～19に変更)
+        ●リインカーネイション
+        　因縁表　CTR[+/-]　　前世邂逅表　DJV[-]
+        　悪徳シーン表　AKST[+/-]
+        ●The 3rd（第三版）
+        　因縁表　CT3[+/-]
+        　注）[]内は省略可能。
+        　　例）CTR→因縁表（R版）を出目1～20でロールする。
+        　　例）CTR+→因縁表（R版）を出目2～21でロールする。
+      INFO_MESSAGE_TEXT
+
+      register_prefix([
+        '\d+A\d*[CF]?\d*[CF]?\d*',
+        'CT3[\+\-]?',
+        'CTR[\+\-]?',
+        'DJV\-?',
+        'AKST[\+\-]?'
+      ])
+
+      def initialize(command)
+        super(command)
+
+        @sort_add_dice = true
+      end
+
+      def eval_game_system_specific_command(command)
+        case command.upcase
+        when /^(\d+)A(\d*)([CF]?)(\d*)([CF]?)(\d*)$/
+          counts = Regexp.last_match(1).to_i
+          judgment = Regexp.last_match(2).to_i
+          option1 = Regexp.last_match(3)
+          argument1 = Regexp.last_match(4)
+          option2 = Regexp.last_match(5)
+          argument2 = Regexp.last_match(6)
+          return nil if (option1.empty? != argument1.empty?) || (option2.empty? != argument2.empty?) || (!option2.empty? && (option1 == option2))
+
+          if option1 == 'C'
+            critical = argument1.to_i
+            fumble = argument2.to_i
+          else
+            critical = argument2.to_i
+            fumble = argument1.to_i
+          end
+          return rollAct(counts, judgment, critical, fumble)
+
+        when /^CT3([\+\-]?)$/
+          sign = Regexp.last_match(1)
+          title = '因縁表(The 3rd)　『BoA3』P292'
+          table = [
+            "【他生】",
+            "【師弟】",
+            "【忘却】",
+            "【兄姉】",
+            "【貸し】",
+            "【慕情】",
+            "【主従】",
+            "【強敵】",
+            "【秘密】",
+            "【恩人】",
+            "【告発】",
+            "【友人】",
+            "【仇敵】",
+            "【父母】",
+            "【借り】",
+            "【信頼】",
+            "【幼子】",
+            "【取引】",
+            "【地縁】",
+            "【同志】",
+            "【不審】",
+            "【自身】",
+          ]
+          return tableText(title, table, sign)
+
+        when /^CTR([\+\-]?)$/
+          sign = Regexp.last_match(1)
+          title = '因縁表(リインカーネイション)　『BAR』P51、299'
+          table = [
+            "【他生】",
+            "【師弟】",
+            "【忘却】",
+            "【兄姉】",
+            "【貸し】",
+            "【憧憬】",
+            "【主従】",
+            "【強敵】",
+            "【秘密】",
+            "【恩人】",
+            "【取引】",
+            "【友人】",
+            "【怨敵】",
+            "【後援】",
+            "【借り】",
+            "【信頼】",
+            "【弟妹】",
+            "【商売】",
+            "【奇縁】",
+            "【同志】",
+            "【有為】",
+            "【自身】",
+          ]
+          return tableText(title, table, sign)
+
+        when /^DJV(\-?)$/
+          sign = Regexp.last_match(1)
+          title = '前世邂逅表（デジャブ）　『BAR』P235'
+          table = [
+            "【鮮烈な風】\n風は懐かしい匂いを、香りを運んでくる。それは……。",
+            "【薄暗い影】\nまるで時が止まってしまっているかのようだ。",
+            "【操りの糸】\nそれはあなたを導く蜘蛛の糸。",
+            "【天上の光】\n偉大なるものがもたらす、天上からの御しるし。",
+            "【温もり】\n春のひなたのような温かさを感じる。",
+            "【鋭いナイフ】\n鋭いナイフのような視線を感じる。これは……。",
+            "【共鳴】\n同じ感覚を感じる、ふたりは通じ合っている。",
+            "【城壁】\n厳しく高い城壁のように重く堅く厚い。",
+            "【砕ける器】\n落ちれば砕ける。砕ければそれは器ではない。",
+            "【陽炎】\n求めれば揺らいで消える。",
+            "【終わりなき円環】\nそれはあなたを捉え巡る輪廻の輪。",
+            "【天秤】\n揺れるバランス、揺れ続ける安定。",
+            "【流れる水】\nひとつ所にとどまらず、姿を固めることはない",
+            "【光る刃】\n鋭く光る刃のような、鋭いまなざし。",
+            "【悪魔】\nあまりにも危険な魅力、それは悪魔的だった。",
+            "【牙】\n獲物を引き裂く鋭く長い、牙。",
+            "【輝く星】\n星は暗く小さい。だがそこに輝く。",
+            "【冴え渡る月光】\n冷たさと安らかさが同居している。",
+            "【照りつける太陽】\n暑い。",
+            "【燃えさかる炎】\n炎はすべてを破壊し、すべてを滅ぼす。",
+            "【世界】\nすべてはこの世界の中で起こり、終わる。",
+            "【なし】",
+          ]
+          return tableText(title, table, sign)
+
+        when /^AKST([\+\-]?)$/
+          sign = Regexp.last_match(1)
+          title = '悪徳シーン表　『GoV』P16、164'
+          table = [
+            "▼ウェントス／止まない風\n【行動】殺戮者の狂気に当てられたのか、通り魔的殺人者が現れる。切り裂かれた人々の悲鳴が響き渡る。",
+            "▼エフェクトス／原初の力\n【行動】殺戮者の配下が無法を働く。店先で金品を要求したり、暴力を振るったりしている。",
+            "▼クレアータ／傀儡人形の王\n【行動】殺戮者の配下が人々の行動を監視している。違反した者には即座に罰が与えられる。",
+            "▼マーテル／生ける神\n【行動】殺戮者の配下が人々に殺戮者への信仰を告白し、忠誠を宣誓するように強要している。",
+            "▼コロナ／簒奪者\n【行動】嘆き悲しんでいる者がいる。殺戮者によって、財産、地位、家族あるいは、恋人を奪い取られたという。",
+            "▼フィニス／永遠の人\n【行動】怪物が人々を虐殺している。この地には人間が多すぎるのだという。それが彼らの主の決定だ。",
+            "▼エルス／無私なる愛\n【行動】殺戮者の配下が略奪を働いている。どうやら、殺戮者に献上するものを争っているようだ。",
+            "▼アダマス／万物の保護者\n【行動】反逆者と名指しされる。人々は君たちに接触しようとしない。情報を集めるにも苦労しそうだ。",
+            "▼アルドール／終わりなき戦い\n【行動】ならず者の集団が人々を襲っている。力を示さなければ切り捨てられるのは彼らなのだ。",
+            "▼ファンタスマ／謀略の渦\n【行動】人々は君を見るなり逃げ出した。どうやら恐ろしい殺人者だと思われているようだ。",
+            "▼アクシス／真理の探究者\n【行動】殺戮者の配下の手によって、人々が連れ去られている。誰ひとりもどってこない。",
+            "▼レクス／捕縛者\n【行動】殺戮者への恐怖に駆られた人々はその命令にしたがって徒党を組み、PCたちを捜索している。",
+            "▼アクア／澱んだ水\n【行動】人々は獣のように生きている。言葉は通じない。有効なのは力、暴力だけだ。",
+            "▼グラディウス／暗き死の刃\n【行動】殺戮者とその配下によって虐殺が行なわれている。見渡す限り、死者ばかりだ。",
+            "▼アングルス／純白の恐怖\n【行動】遊びとして人間狩りが行なわれている。人々は逃げ惑い、殺戮者は愉悦に笑う。",
+            "▼ディアボルス／悪魔の囁き\n【行動】殺戮者は少年少女を召し上げている。召し上げられた者たちは音信不通となってしまう。",
+            "▼フルキフェル／裏切り者\n【行動】人々は猜疑の目で君を見る。嘘を吐くのが普通の場所で真実を見いだせるだろうか。",
+            "▼ステラ／破滅への愛\n【行動】街や村落が破壊されている。焼け野原の中、人々は力なくうずくまる。ここには絶望だけがあった。",
+            "▼ルナ／奪う者\n【行動】君たちの目の前に略奪が繰り返される。略奪のために略奪を行なう殺戮者の配下たち。",
+            "▼デクストラ／邪悪な技\n【行動】殺戮者による非道な人体実験が繰り返されている。そのための実験材料が集められている。",
+            "▼イグニス／根源たる炎\n【行動】街や集落、あるいは店舗や住宅が焼き討ちに合う。人々は互いに陥れ、磔刑が行なわれている。",
+            "▼オービス／闇の鎖\n【行動】世界の完全なる破滅、人類の絶滅、無作為で広範囲な虐殺が行なわれる。",
+          ]
+          return tableText(title, table, sign)
+        end
+
+        return nil
+      end
+
+      def rollAct(counts, judgment = 0, critical = 0, fumble = 0)
+        if critical < 1
+          critical = 1
+        end
+        if judgment <= 0
+          judgment = critical
+        elsif critical > judgment
+          critical = judgment
+        end
+
+        if fumble <= 0
+          fumble = 20
+        end
+        if counts <= 0
+          counts = 1
+          fumble -= 5
+        end
+        if fumble < 2
+          fumble = 2
+        elsif fumble > 20
+          fumble = 20
+        end
+
+        dice_list = @randomizer.roll_barabara(counts, 20).sort
+        value = dice_list.sum()
+        string = dice_list.join(",")
+
+        text = "(#{counts}A#{judgment}C#{critical}F#{fumble}) ＞ #{string} ＞ "
+
+        unless counts == 1
+          value = string.split(",").map(&:to_i).min
+          text += "#{value} ＞ "
+        end
+
+        if value >= fumble
+          text += 'ファンブル'
+        elsif value <= critical
+          text += 'クリティカル'
+        elsif value > judgment
+          text += '失敗'
+        else
+          text += '成功'
+        end
+        return text
+      end
+
+      def tableText(title, table, sign = '')
+        number = @randomizer.roll_once(20)
+        index = number
+        if sign == '+'
+          index += 1
+        elsif sign == '-'
+          index -= 1
+        end
+
+        text = "#{title} ＞ #{index}"
+        unless sign.empty?
+          text += "[#{number}#{sign}1]"
+        end
+        return text + ' ＞ ' + table[index]
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/BlindMythos.rb

@@ -0,0 +1,460 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class BlindMythos < Base
+      # ゲームシステムの識別子
+      ID = 'BlindMythos'
+
+      # ゲームシステム名
+      NAME = 'ブラインド・ミトスRPG'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'ふらいんとみとすRPG'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~MESSAGETEXT
+        ・判定：BMx@y>=z、BMSx@y>=z
+          　x:スキルレベル
+        　　y:目標難易度（省略可。デフォルト4）
+        　　z:必要成功度
+        　BMコマンドはダイスの振り足しを常に行い、
+        　BMSは振り足しを自動では行いません。
+         例）BM>=1　BM@3>=1　BMS2>=1
+
+        ・判定振り足し：ReRollx,x,x...@y>=1
+          　x:振るダイスの個数
+        　　y:目標難易度（省略可。デフォルト4）
+        　　z:必要成功度
+        　振り足しを自動で行わない場合（BMSコマンド）に使用します。
+
+        ・LE：失う感情表
+        ・感情後遺症表 ESx
+        　ESH：喜、ESA：怒、ESS：哀、ESP：楽、ESL：愛、ESE：感
+        ・DT：汚染チャート
+        ・RPxyz：守護星表チェック
+         xyz:守護星ナンバーを指定
+         例）RP123　RP258
+      MESSAGETEXT
+
+      def eval_game_system_specific_command(command)
+        debug("eval_game_system_specific_command Begin")
+
+        text = judgeRoll(command)
+        return text unless text.nil?
+
+        isStop = true
+        text, = reRoll(command, isStop)
+        return text unless text.nil?
+
+        text = getRulingPlanetDiceCommandResult(command)
+        return text unless text.nil?
+
+        text = getDurtyTableCommandReuslt(command)
+        return text unless text.nil?
+
+        return roll_tables(command, TABLES)
+      end
+
+      def judgeRoll(command)
+        return nil unless /^BM(S)?(\d*)(@(\d+))?>=(\d+)$/i =~ command
+
+        isStop = !Regexp.last_match(1).nil?
+        skillRank = Regexp.last_match(2).to_i
+        judgeNumberText = Regexp.last_match(3)
+        judgeNumber = (Regexp.last_match(4) || 4).to_i
+        targetNumber = (Regexp.last_match(5) || 1).to_i
+
+        message = ""
+        diceCount = skillRank + 2
+        isReRoll = false
+        text, bitList, successList, countOneList, canReRoll =
+          getRollResult([diceCount], judgeNumberText, judgeNumber, targetNumber, isReRoll, isStop)
+
+        message += text
+        message += getTotalResultMessageText(bitList, successList, countOneList, targetNumber, isStop, canReRoll)
+
+        return message
+      end
+
+      def reRoll(command, isStop)
+        debug("ReRoll Begin", command)
+
+        return nil unless /^ReRoll([\d,]+)(@(\d+))?>=(\d+)$/i =~ command
+
+        debug("ReRoll pass")
+
+        rerollCountsText = Regexp.last_match(1)
+        judgeNumberText = Regexp.last_match(2)
+        judgeNumber = (Regexp.last_match(3) || 4).to_i
+        targetNumber = Regexp.last_match(4).to_i
+
+        rerollCounts = rerollCountsText.split(/,/).map(&:to_i)
+
+        commandText = ""
+        rerollCounts.each do |diceCount|
+          commandText += "," unless commandText.empty?
+          commandText += "ReRoll#{diceCount}#{judgeNumberText}>=#{targetNumber}"
+        end
+
+        debug("commandText", commandText)
+
+        message = ""
+        if rerollCounts.size > 1
+          message += "(#{commandText})" if isStop
+        end
+        message += "\n"
+        isReRoll = true
+        text, _bitList, successList, countOneList, =
+          getRollResult(rerollCounts, judgeNumberText, judgeNumber, targetNumber, isReRoll, isStop)
+
+        message += text
+
+        return message, successList, countOneList, targetNumber
+      end
+
+      def getRollResult(rerollCounts, judgeNumberText, judgeNumber, targetNumber, isReRoll, isStop)
+        bitList = []
+        successList = []
+        countOneList = []
+        rerollTargetList = []
+
+        message = ""
+        rerollCounts.each_with_index do |diceCount, index|
+          message += "\n" unless index == 0
+
+          commandName = "ReRoll#{diceCount}"
+          unless isReRoll
+            if isStop
+              commandName = "BMS#{diceCount - 2}"
+            else
+              commandName = "BM#{diceCount - 2}"
+            end
+          end
+          commandText = "#{commandName}#{judgeNumberText}>=#{targetNumber}"
+
+          diceList = @randomizer.roll_barabara(diceCount, 6).sort
+          diceText = diceList.join(",")
+
+          message += " ＞ " if isReRoll
+          message += "(#{commandText}) ＞ #{diceCount}D6[#{diceText}] ＞ "
+
+          success, countOne, resultText = getSuccessResultText(diceList, judgeNumber)
+          bitList += diceList.find_all { |i| i >= 4 } unless isReRoll
+          successList << success
+          countOneList << countOne
+          message += resultText
+
+          sameDiceList = getSameDieList(diceList)
+          next if sameDiceList.empty?
+
+          rerollText = ""
+          sameDiceList.each do |list|
+            rerollText += "," unless rerollText.empty?
+            rerollText += list.join('')
+          end
+
+          rerollTargetList << sameDiceList.map(&:count).join(",")
+
+          message += "、リロール[#{rerollText}]"
+        end
+
+        rerollCommand = ""
+        unless rerollTargetList.empty?
+          rerollCommand = "ReRoll#{rerollTargetList.join(',')}#{judgeNumberText}>=#{targetNumber}"
+          message += "\n ＞ コマンド：#{rerollCommand}" if isStop
+        end
+
+        canReRoll = !rerollCommand.empty?
+
+        if canReRoll
+          unless isStop
+            text, successListTmp, countOneListTmp, = reRoll(rerollCommand, isStop)
+            message += text
+            successList += successListTmp
+            countOneList += countOneListTmp
+          end
+        end
+
+        return message, bitList, successList, countOneList, canReRoll
+      end
+
+      def getTotalResultMessageText(bitList, successList, countOneList, targetNumber, isStop, canReRoll)
+        success = successList.inject { |sum, i| sum + i }
+        countOne = countOneList.inject { |sum, i| sum + i }
+
+        result = ""
+
+        if successList.size > 1
+          result += "\n ＞ 最終成功数:#{success}"
+        end
+
+        if canReRoll && isStop
+          result += "\n"
+
+          if success >= targetNumber
+            result += " ＞ 現状で成功。コマンド実行で追加リロールも可能"
+          else
+            result += " ＞ 現状のままでは失敗"
+            result += "。汚染ポイント+#{countOne}" if countOne >= 1
+          end
+
+          return result
+        end
+
+        if success >= targetNumber
+          result += " ＞ 成功"
+
+          if bitList.size >= 1
+            result += "、禁書ビット発生[#{bitList.join(',')}]"
+          end
+
+        else
+          result += " ＞ 失敗"
+          result += "。汚染ポイント+#{countOne}" if countOne >= 1
+        end
+
+        return result
+      end
+
+      def getSameDieList(diceList)
+        sameDiceList = []
+
+        diceList.uniq.each do |i|
+          next if i == 1
+
+          list = diceList.find_all { |dice| dice == i }
+          next if list.length <= 1
+
+          sameDiceList << list
+        end
+
+        return sameDiceList
+      end
+
+      def getSuccessResultText(diceList, judgeNumber)
+        success = 0
+        countOne = 0
+
+        diceList.each do |i|
+          countOne += 1 if i == 1
+
+          next unless i >= judgeNumber
+
+          success += 1
+        end
+
+        result = "成功数:#{success}"
+
+        return success, countOne, result
+      end
+
+      def getRulingPlanetDiceCommandResult(command)
+        return nil unless command =~ /^RP(\d+)/i
+
+        targetNumbers = Regexp.last_match(1).split(//).map(&:to_i)
+        diceList = getRulingPlanetDice
+
+        matchResult = "失敗"
+        targetNumbers.each do |i|
+          if diceList.include?(i)
+            matchResult = "発動"
+            break
+          end
+        end
+
+        text = "守護星表チェック(#{targetNumbers.join(',')}) ＞ #{diceList.count}D10[#{diceList.join(',')}] ＞ #{matchResult}"
+
+        return text
+      end
+
+      def getRulingPlanetDice
+        dice1 = @randomizer.roll_once(10)
+        dice2 = dice1
+
+        while dice1 == dice2
+          dice2 = @randomizer.roll_once(10)
+        end
+
+        dice1 = changeRulingPlanetDice(dice1)
+        dice2 = changeRulingPlanetDice(dice2)
+
+        return dice1, dice2
+      end
+
+      def changeRulingPlanetDice(dice)
+        return 0 if dice == 10
+
+        return dice
+      end
+
+      def getDurtyTableCommandReuslt(command)
+        return nil unless /^DT$/i =~ command
+
+        table = <<~__TABLE_END__
+          汚染チャートを２回振り、その効果を適用する（1・2-2,5・6-12 なら振り直す）
+          ＰＣ全員の「トラウマ」「喪失」すべてに２ダメージ
+          ＰＣ全員の「喪失」２つに４ダメージ
+          ＰＣ全員の「トラウマ」すべてに２ダメージ。その後さらに汚染が２増える
+          ＰＣ全員、１つの【記憶】の両方の値が０になる。このときアクロバットダイス獲得不可
+          ＰＣ全員の「喪失」１つに４ダメージ。このときアクロバットダイス獲得不可
+          ＰＣ全員の「トラウマ」すべてに１ダメージ。その後さらに汚染が３増える
+          ＰＣ全員の「トラウマ」すべてに１ダメージ。その後アクロバットダイスをＰＣ人数分失う
+          ＰＣ全員の「喪失」すべてに２ダメージ。禁書ビットをすべて失う
+          ＰＣ全員の「トラウマ」２つに３ダメージ。その後さらに汚染が１増える
+          ＰＣ全員の「トラウマ」「喪失」すべてに１ダメージ
+          ＰＣ全員の「喪失」１つに４ダメージ。禁書ビットをすべて失う
+          ＰＣ全員の「トラウマ」すべてに２ダメージ
+          ＰＣ全員の１つの【記憶】の「トラウマ」「喪失」それぞれに３ダメージ
+          ＰＣ全員の「喪失」すべてに１ダメージ
+          ＰＣ全員の「トラウマ」３つに２ダメージ
+          ＰＣ全員の「トラウマ」と「喪失」それぞれ１つに３ダメージ
+          ＰＣ全員の「喪失」３つに２ダメージ
+          ＰＣ全員のすべての「トラウマ」に1 ダメージ
+          ＰＣ全員のひとつの【記憶】の「トラウマ」「喪失」それぞれに３ダメージ
+          ＰＣ全員の「喪失」すべてに２ダメージ
+          ＰＣ全員の「トラウマ」ひとつに４ダメージ。禁書ビットをすべて失う
+          ＰＣ全員の「トラウマ」「喪失」すべてに１ダメージ
+          ＰＣ全員の「喪失」２つに３ダメージ。その後さらに汚染が１増える
+          ＰＣ全員の「トラウマ」すべてに２ダメージ。禁書ビットをすべて失う
+          ＰＣ全員の「喪失」すべてに１ダメージ。その後アクロバットダイスをＰＣ人数分失う
+          ＰＣ全員の「喪失」すべてに１ダメージ。その後さらに汚染が３増える
+          ＰＣ全員の「トラウマ」１つに４ダメージ。このときアクロバットダイス獲得不可
+          ＰＣ全員、１つの【記憶】の両方の値が０になる。このときアクロバットダイス獲得不可
+          ＰＣ全員の「喪失」すべてに２ダメージ。その後さらに汚染が２増える
+          ＰＣ全員の「トラウマ」２つに４ダメージ
+          ＰＣ全員の「トラウマ」「喪失」すべてに２ダメージ
+          汚染チャートを２回振り、その効果を適用する（1・2-2,5・6-12 なら振り直す）
+        __TABLE_END__
+
+        table = table.split("\n")
+
+        dice1 = @randomizer.roll_once(6)
+        dice2 = @randomizer.roll_sum(2, 6)
+
+        index = (dice2 - 2) * 3 + (dice1 / 2.0).ceil - 1
+
+        return "汚染チャート(#{dice1},#{dice2}) ＞ #{table[index]}"
+      end
+
+      TABLES = {
+        "LE" => DiceTable::Table.new(
+          "失う感情表",
+          "1D6",
+          [
+            "喜：喜びは消えた。嬉しい気持ちとは、なんだっただろう。",
+            "怒：激情は失われ、憎しみもどこかへと消える。",
+            "哀：どんなに辛くても、悲しさを感じない。どうやら涙も涸れたらしい。",
+            "楽：もはや楽しいことなどない。希望を抱くだけ無駄なのだ。",
+            "愛：愛など幻想……無力で儚い、役に立たない世迷い言だ。",
+            "感：なにを見ても、感動はない。心は凍てついている。"
+          ]
+        ),
+        "ESH" => DiceTable::Table.new(
+          "「喜」の感情後遺症表",
+          "2D6",
+          [
+            "日々喜びを求めてしまう。",
+            "日々喜びを求めてしまう。",
+            "嬉しい時間が長続きしない。",
+            "素直に喜びを共有できないことがある。",
+            "小さなことで大きく喜びを感じる。",
+            "小さなことで大きく喜びを感じる。",
+            "影響なし。",
+            "影響なし。",
+            "「喜」の後遺症をひとつ消してもよい。",
+            "「喜」の後遺症をひとつ消してもよい。",
+            "「喜」の後遺症をひとつ消してもよい。"
+          ]
+        ),
+        "ESA" => DiceTable::Table.new(
+          "「怒」の感情後遺症表",
+          "2D6",
+          [
+            "始終不機嫌になる。",
+            "始終不機嫌になる。",
+            "一度怒ると、なかなか収まらない。",
+            "怒りっぽくなる",
+            "怒りかたが激しくなる。",
+            "怒りかたが激しくなる。",
+            "影響なし。",
+            "影響なし。",
+            "「怒」の後遺症をひとつ消してもよい。",
+            "「怒」の後遺症をひとつ消してもよい。",
+            "「怒」の後遺症をひとつ消してもよい。"
+          ]
+        ),
+        "ESS" => DiceTable::Table.new(
+          "「哀」の感情後遺症表",
+          "2D6",
+          [
+            "一度涙が出るとなかなか止まらない。",
+            "一度涙が出るとなかなか止まらない。",
+            "夜、哀しいことを思い出して目が覚める。",
+            "不意に哀しい気持ちになる。",
+            "涙もろくなる。",
+            "涙もろくなる。",
+            "影響なし。",
+            "影響なし。",
+            "「哀」の後遺症をひとつ消してもよい。",
+            "「哀」の後遺症をひとつ消してもよい。",
+            "「哀」の後遺症をひとつ消してもよい。"
+          ]
+        ),
+        "ESP" => DiceTable::Table.new(
+          "「楽」の感情後遺症表",
+          "2D6",
+          [
+            "突然陽気になったり、不意に笑い出してしまう。",
+            "突然陽気になったり、不意に笑い出してしまう。",
+            "周りが楽しくなさそうだと不安になる。",
+            "楽しいことがないと落ち着かない。",
+            "些細なことでも笑ってしまう。",
+            "些細なことでも笑ってしまう。",
+            "影響なし。",
+            "影響なし。",
+            "「楽」の後遺症をひとつ消してもよい。",
+            "「楽」の後遺症をひとつ消してもよい。",
+            "「楽」の後遺症をひとつ消してもよい。"
+          ]
+        ),
+        "ESL" => DiceTable::Table.new(
+          "「愛」の感情後遺症表",
+          "2D6",
+          [
+            "少しでも気になる相手に愛を求めてしまう。",
+            "少しでも気になる相手に愛を求めてしまう。",
+            "愛する相手（恋人・家族・ペット・空想）から離れたくない。",
+            "誰彼構わず優しくしてしまう。",
+            "ひとりでいると不安を感じる。",
+            "ひとりでいると不安を感じる。",
+            "影響なし。",
+            "影響なし。",
+            "「愛」の後遺症をひとつ消してもよい。",
+            "「愛」の後遺症をひとつ消してもよい。",
+            "「愛」の後遺症をひとつ消してもよい。"
+          ]
+        ),
+        "ESE" => DiceTable::Table.new(
+          "「感」の感情後遺症表",
+          "2D6",
+          [
+            "感動を共有できない相手を不信に思ってしまう。",
+            "感動を共有できない相手を不信に思ってしまう。",
+            "嬉しくても哀しくてもすぐに涙が出る。",
+            "リアクションがオーバーになる。",
+            "ちょっとしたことで感動する。",
+            "ちょっとしたことで感動する。",
+            "影響なし。",
+            "影響なし。",
+            "「感」の後遺症をひとつ消してもよい。",
+            "「感」の後遺症をひとつ消してもよい。",
+            "「感」の後遺症をひとつ消してもよい。"
+          ]
+        ),
+      }.freeze
+
+      register_prefix(['BM.*', 'ReRoll\d+.*', 'RP\d+', 'DT'] + TABLES.keys)
+    end
+  end
+end