bcdice 3.0.0.pre.alpha.1

data/lib/bcdice/game_system/DiceBot.rb

@@ -0,0 +1,17 @@
+module BCDice
+  module GameSystem
+    class DiceBot < Base
+      # ゲームシステムの識別子
+      ID = 'DiceBot'.freeze
+
+      # ゲームシステム名
+      NAME = 'DiceBot'.freeze
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = '*たいすほつと'.freeze
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = ''.freeze
+    end
+  end
+end

data/lib/bcdice/game_system/DiceOfTheDead.rb

@@ -0,0 +1,111 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class DiceOfTheDead < Base
+      # ゲームシステムの識別子
+      ID = 'DiceOfTheDead'
+
+      # ゲームシステム名
+      NAME = 'ダイス・オブ・ザ・デッド'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'たいすおふさてつと'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        ・ゾンビ化表　ZMB+x
+        （x=オープン中の感染度マスの数。+xは省略可能、省略時は0）
+        ・感染度表　BIOx
+        （xは被弾回数。xは省略可能、省略時は1）
+        （上記二つは最初からシークレットダイスで行われます）
+      INFO_MESSAGE_TEXT
+
+      register_prefix(['(ZMB|BIO).*'])
+
+      def initialize(command)
+        super(command)
+
+        @sort_add_dice = true
+        @enabled_d66 = true
+        @d66_sort_type = D66SortType::ASC
+      end
+
+      def eval_game_system_specific_command(command)
+        case command
+        when /^BIO(\d+)?$/
+          roll_times = (Regexp.last_match(1) || 1).to_i
+          @is_secret = true
+
+          return checkInfection(roll_times)
+        when /^ZMB(\+(\d+))?$/
+          value = Regexp.last_match(2).to_i
+          @is_secret = true
+
+          return rollZombie(value)
+        end
+      end
+
+      def checkInfection(roll_times)
+        result = "感染度表"
+
+        roll_times.times do
+          d1 = @randomizer.roll_once(6)
+          d2 = @randomizer.roll_once(6)
+
+          result += "　＞　出目：#{d1}、#{d2}　"
+
+          index1 = (d1 / 2.0).ceil - 1
+          index2 = (d2 / 2.0).ceil - 1
+
+          table =
+            [["「右下（【足】＋１）」", "「右中（【足】＋１）」", "「右上（【足】＋１）」"],
+             ["「中下（【腕】＋１）」", "「真中（【腕】＋１）」", "「中上（【腕】＋１）」"],
+             ["「左下（【頭】＋１）」", "「左中（【頭】＋１）」", "「左上（【頭】＋１）」"],]
+
+          result += table[index1][index2]
+        end
+
+        return result
+      end
+
+      ####################
+      # 各種表
+
+      def rollZombie(value)
+        d1 = @randomizer.roll_once(6)
+        d2 = @randomizer.roll_once(6)
+
+        diceTotal = d1 + d2 + value
+
+        table = [
+          [5, "５以下：影響なし"],
+          [6, "６：任意の部位を１点回復"],
+          [7, "７：〈アイテム〉武器を１つその場に落とす"],
+          [8, "８：〈アイテム〉便利道具１つをその場に落とす"],
+          [9, "９：〈アイテム〉消耗品１つをその場に落とす"],
+          [10, "１０：腕の傷が広がる。「部位：【腕】」１点ダメージ"],
+          [11, "１１：足の傷が広がる。「部位：【足】」１点ダメージ"],
+          [12, "１２：頭の傷が広がる。「部位：【頭】」１点ダメージ"],
+          [13, "１３：【ゾンビ化表】が新たに適用されるまで「【感染度】＋１マス」の効果を受ける"],
+          [14, "１４：即座に自分以外の味方１人のスロット内の〈アイテム〉１つをランダムに捨てさせる"],
+          [15, "１５：味方１人に素手で攻撃を行う"],
+          [16, "１６：即座に感染度が１上昇する"],
+          [17, "１７：次のターンのみ、すべての【能力値】を２倍にする"],
+          [18, "１８以上：自分以外の味方１人にできる限り全力で攻撃を行う。〈アイテム〉も可能な限り使用する"]
+        ]
+
+        minDice = table.first.first
+        maxDice = table.last.first
+        index = diceTotal
+        index = [minDice, index].max
+        index = [index, maxDice].min
+
+        _number, text = table.assoc(index)
+        result = "ゾンビ化表　＞　出目：#{d1}＋#{d2}　感染度：#{value}　合計値：#{diceTotal}　＞　#{text}"
+
+        return result
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/DoubleCross.rb

@@ -0,0 +1,373 @@
+# frozen_string_literal: true
+
+require 'bcdice/arithmetic_evaluator'
+require 'bcdice/dice_table/range_table'
+
+module BCDice
+  module GameSystem
+    class DoubleCross < Base
+      # ゲームシステムの識別子
+      ID = 'DoubleCross'
+
+      # ゲームシステム名
+      NAME = 'ダブルクロス2nd,3rd'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'たふるくろす2'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        ・判定コマンド（xDX+y@c or xDXc+y）
+        　"(個数)DX(修正)@(クリティカル値)" もしくは "(個数)DX(クリティカル値)(修正)" で指定します。
+        　修正値も付けられます。
+        　例）10dx　　10dx+5@8（OD tool式)　　5DX7+7-3（疾風怒濤式）
+
+        ・各種表
+        　・感情表（ET）
+        　　ポジティブとネガティブの両方を振って、表になっている側に○を付けて表示します。
+        　　もちろん任意で選ぶ部分は変更して構いません。
+
+        ・D66ダイスあり
+      INFO_MESSAGE_TEXT
+
+      register_prefix(['\d+DX.*', 'ET'])
+
+      # 成功判定コマンドのノード
+      class DX
+        # ノードを初期化する
+        # @param [Integer] num ダイス数
+        # @param [Integer] critical_value クリティカル値
+        # @param [Integer] modifier 修正値
+        # @param [Integer] target_value 目標値
+        def initialize(num, critical_value, modifier, target_value)
+          @num = num
+          @critical_value = critical_value
+          @modifier = modifier
+          @target_value = target_value
+
+          @modifier_str = Format.modifier(@modifier)
+          @expression = node_expression()
+        end
+
+        # 成功判定を行う
+        # @param randomizer [Randomizer]
+        # @return [String] 判定結果
+        def execute(randomizer)
+          if @critical_value < 2
+            return "(#{@expression}) ＞ クリティカル値が低すぎます。2以上を指定してください。"
+          end
+
+          if @num < 1
+            return "(#{@expression}) ＞ 自動失敗"
+          end
+
+          # 出目のグループの配列
+          value_groups = []
+          # 次にダイスロールを行う際のダイス数
+          num_of_dice = @num
+          # 回転数
+          loop_count = 0
+
+          while num_of_dice > 0 && loop_count < CommonCommand::RerollDice::REROLL_LIMIT
+            values = randomizer.roll_barabara(num_of_dice, 10)
+
+            value_group = ValueGroup.new(values, @critical_value)
+            value_groups.push(value_group)
+
+            # 次回はクリティカル発生数と等しい個数のダイスを振る
+            # [3rd ルールブック1 p. 185]
+            num_of_dice = value_group.num_of_critical_occurrences
+
+            loop_count += 1
+          end
+
+          return result_str(value_groups)
+        end
+
+        private
+
+        # 数式表記を返す
+        # @return [String]
+        def node_expression
+          lhs = "#{@num}DX#{@critical_value}#{@modifier_str}"
+
+          return @target_value ? "#{lhs}>=#{@target_value}" : lhs
+        end
+
+        # 判定結果の文字列を返す
+        # @param [Array<ValueGroup>] value_groups 出目のグループの配列
+        # @return [String]
+        def result_str(value_groups)
+          fumble = value_groups[0].values.all? { |value| value == 1 }
+          # TODO: Ruby 2.4以降では Array#sum が使える
+          sum = value_groups.map(&:max).reduce(0, &:+)
+          achieved_value = fumble ? 0 : (sum + @modifier)
+
+          parts = [
+            "(#{@expression})",
+            "#{value_groups.join('+')}#{@modifier_str}",
+            achieved_value_with_if_fumble(achieved_value, fumble),
+            compare_result(achieved_value, fumble)
+          ]
+
+          return parts.compact.join(' ＞ ')
+        end
+
+        # ファンブルかどうかを含む達成値の表記を返す
+        # @param [Integer] achieved_value 達成値
+        # @param [Boolean] fumble ファンブルしたか
+        # @return [String]
+        def achieved_value_with_if_fumble(achieved_value, fumble)
+          fumble ? "#{achieved_value} (ファンブル)" : achieved_value.to_s
+        end
+
+        # 達成値と目標値を比較した結果を返す
+        # @param [Integer] achieved_value 達成値
+        # @param [Boolean] fumble ファンブルしたか
+        # @return [String, nil]
+        def compare_result(achieved_value, fumble)
+          return nil unless @target_value
+
+          # ファンブル時は自動失敗
+          # [3rd ルールブック1 pp. 186-187]
+          return '失敗' if fumble
+
+          # 達成値が目標値以上ならば行為判定成功
+          # [3rd ルールブック1 p. 187]
+          return achieved_value >= @target_value ? '成功' : '失敗'
+        end
+      end
+
+      # 出目のグループを表すクラス
+      class ValueGroup
+        # 出目の配列
+        # @return [Array<Integer>]
+        attr_reader :values
+        # クリティカル値
+        # @return [Integer]
+        attr_reader :critical_value
+
+        # 出目のグループを初期化する
+        # @param [Array<Integer>] values 出目の配列
+        # @param [Integer] critical_value クリティカル値
+        def initialize(values, critical_value)
+          @values = values.sort
+          @critical_value = critical_value
+        end
+
+        # 出目のグループの文字列表記を返す
+        # @return [String]
+        def to_s
+          "#{max}[#{@values.join(',')}]"
+        end
+
+        # 出目のグループ中の最大値を返す
+        # @return [Integer]
+        #
+        # クリティカル値以上の出目が含まれていた場合は10を返す。
+        # [3rd ルールブック1 pp. 185-186]
+        def max
+          @values.any? { |value| critical?(value) } ? 10 : @values.max
+        end
+
+        # クリティカルの発生数を返す
+        # @return [Integer]
+        def num_of_critical_occurrences
+          @values
+            .select { |value| critical?(value) }
+            .length
+        end
+
+        private
+
+        # クリティカルが発生したかを返す
+        # @param [Integer] value 出目
+        # @return [Boolean]
+        #
+        # クリティカル値以上の値が出た場合、クリティカルとする。
+        # [3rd ルールブック1 pp. 185-186]
+        def critical?(value)
+          value >= @critical_value
+        end
+      end
+
+      def check_nD10(total, _dice_total, dice_list, cmp_op, target)
+        return '' if target == '?'
+        return '' unless cmp_op == :>=
+
+        if dice_list.count(1) == dice_list.size
+          " ＞ ファンブル"
+        elsif total >= target
+          " ＞ 成功"
+        else
+          " ＞ 失敗"
+        end
+      end
+
+      # ダイスボット固有コマンドの処理を行う
+      # @param [String] command コマンド
+      # @return [String] ダイスボット固有コマンドの結果
+      # @return [nil] 無効なコマンドだった場合
+      def eval_game_system_specific_command(command)
+        if (dx = parse_dx(command))
+          return dx.execute(@randomizer)
+        end
+
+        if command == 'ET'
+          return roll_emotion_table()
+        end
+
+        return nil
+      end
+
+      private
+
+      # OD Tool式の成功判定コマンドの正規表現
+      #
+      # キャプチャ内容は以下のとおり:
+      #
+      # 1. ダイス数
+      # 2. 修正値
+      # 3. クリティカル値
+      # 4. 達成値
+      DX_OD_TOOL_RE = /\A(\d+)DX([-+]\d+(?:[-+*]\d+)*)?@(\d+)(?:>=(\d+))?\z/io.freeze
+
+      # 疾風怒濤式の成功判定コマンドの正規表現
+      #
+      # キャプチャ内容は以下のとおり:
+      #
+      # 1. ダイス数
+      # 2. クリティカル値
+      # 3. 修正値
+      # 4. 達成値
+      DX_SHIPPU_DOTO_RE = /\A(\d+)DX(\d+)?([-+]\d+(?:[-+*]\d+)*)?(?:>=(\d+))?\z/io.freeze
+
+      # 成功判定コマンドの構文解析を行う
+      # @param [String] command コマンド文字列
+      # @return [DX, nil]
+      def parse_dx(command)
+        case command
+        when DX_OD_TOOL_RE
+          return parse_dx_od(Regexp.last_match)
+        when DX_SHIPPU_DOTO_RE
+          return parse_dx_shippu_doto(Regexp.last_match)
+        end
+
+        return nil
+      end
+
+      # OD Tool式の成功判定コマンドの正規表現マッチ情報からノードを作る
+      # @param [MatchData] m 正規表現のマッチ情報
+      # @return [DX]
+      def parse_dx_od(m)
+        num = m[1].to_i
+        modifier = m[2] ? ArithmeticEvaluator.eval(m[2]) : 0
+        critical_value = m[3] ? m[3].to_i : 10
+
+        target_value = m[4]&.to_i
+
+        return DX.new(num, critical_value, modifier, target_value)
+      end
+
+      # 疾風怒濤式の成功判定コマンドの正規表現マッチ情報からノードを作る
+      # @param [MatchData] m 正規表現のマッチ情報
+      # @return [DX]
+      def parse_dx_shippu_doto(m)
+        num = m[1].to_i
+        critical_value = m[2] ? m[2].to_i : 10
+        modifier = m[3] ? ArithmeticEvaluator.eval(m[3]) : 0
+
+        target_value = m[4]&.to_i
+
+        return DX.new(num, critical_value, modifier, target_value)
+      end
+
+      # 感情表を振る
+      #
+      # ポジティブとネガティブの両方を振って、表になっている側に○を付ける。
+      #
+      # @return [String]
+      def roll_emotion_table
+        pos_result = POSITIVE_EMOTION_TABLE.roll(@randomizer)
+        neg_result = NEGATIVE_EMOTION_TABLE.roll(@randomizer)
+
+        positive = @randomizer.roll_once(2) == 1
+        pos_neg_text =
+          if positive
+            ["○#{pos_result.content}", neg_result.content]
+          else
+            [pos_result.content, "○#{neg_result.content}"]
+          end
+
+        output_parts = [
+          "感情表(#{pos_result.sum}-#{neg_result.sum})",
+          pos_neg_text.join(' - ')
+        ]
+
+        return output_parts.join(' ＞ ')
+      end
+
+      # 感情表（ポジティブ）
+      POSITIVE_EMOTION_TABLE = DiceTable::RangeTable.new(
+        '感情表（ポジティブ）',
+        '1D100',
+        [
+          # [0, '傾倒(けいとう)'],
+          [1..5,    '好奇心(こうきしん)'],
+          [6..10,   '憧憬(どうけい)'],
+          [11..15,  '尊敬(そんけい)'],
+          [16..20,  '連帯感(れんたいかん)'],
+          [21..25,  '慈愛(じあい)'],
+          [26..30,  '感服(かんぷく)'],
+          [31..35,  '純愛(じゅんあい)'],
+          [36..40,  '友情(ゆうじょう)'],
+          [41..45,  '慕情(ぼじょう)'],
+          [46..50,  '同情(どうじょう)'],
+          [51..55,  '遺志(いし)'],
+          [56..60,  '庇護(ひご)'],
+          [61..65,  '幸福感(こうふくかん)'],
+          [66..70,  '信頼(しんらい)'],
+          [71..75,  '執着(しゅうちゃく)'],
+          [76..80,  '親近感(しんきんかん)'],
+          [81..85,  '誠意(せいい)'],
+          [86..90,  '好意(こうい)'],
+          [91..95,  '有為(ゆうい)'],
+          [96..100, '尽力(じんりょく)'],
+          # [101, '懐旧(かいきゅう)'],
+          # [102, '任意(にんい)'],
+        ]
+      ).freeze
+
+      # 感情表（ネガティブ）
+      NEGATIVE_EMOTION_TABLE = DiceTable::RangeTable.new(
+        '感情表（ネガティブ）',
+        '1D100',
+        [
+          # [0, '侮蔑(ぶべつ)'],
+          [1..5,    '食傷(しょくしょう)'],
+          [6..10,   '脅威(きょうい)'],
+          [11..15,  '嫉妬(しっと)'],
+          [16..20,  '悔悟(かいご)'],
+          [21..25,  '恐怖(きょうふ)'],
+          [26..30,  '不安(ふあん)'],
+          [31..35,  '劣等感(れっとうかん)'],
+          [36..40,  '疎外感(そがいかん)'],
+          [41..45,  '恥辱(ちじょく)'],
+          [46..50,  '憐憫(れんびん)'],
+          [51..55,  '偏愛(へんあい)'],
+          [56..60,  '憎悪(ぞうお)'],
+          [61..65,  '隔意(かくい)'],
+          [66..70,  '嫌悪(けんお)'],
+          [71..75,  '猜疑心(さいぎしん)'],
+          [76..80,  '厭気(いやけ)'],
+          [81..85,  '不信感(ふしんかん)'],
+          [86..90,  '不快感(ふかいかん)'],
+          [91..95,  '憤懣(ふんまん)'],
+          [96..100, '敵愾心(てきがいしん)'],
+          # [101, '無関心(むかんしん)'],
+          # [102, '任意(にんい)'],
+        ]
+      ).freeze
+    end
+  end
+end