bcdice 3.14.0 → 3.15.0

data/lib/bcdice/game_system/CharonSanctions.rb

@@ -0,0 +1,112 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class CharonSanctions < Base
+      # ゲームシステムの識別子
+      ID = "CharonSanctions"
+
+      # ゲームシステム名
+      NAME = "カローン・サンクションズ"
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = "かろおんさんくしおんす"
+
+      HELP_MESSAGE = <<~TEXT
+        ■ 判定
+          nCSm>=t ［判定］を行う。成功／不完全成功を判定。（p.111）
+          n: ダイス数
+          m: ［難易度］（省略時 4）
+          t: ［必要成功数］（省略時 1）
+
+        ■ 各種表
+          ET 感情ワード（キャラクター）表（p.120）
+          RT 襲撃表（p.146）
+      TEXT
+
+      def eval_game_system_specific_command(command)
+        action_roll(command) ||
+          roll_tables(command, TABLES)
+      end
+
+      private
+
+      def action_roll(command)
+        parser = Command::Parser.new("CS", round_type: round_type)
+                                .has_prefix_number
+                                .enable_suffix_number
+                                .disable_modifier
+                                .restrict_cmp_op_to(nil, :>=)
+        cmd = parser.parse(command)
+        return nil unless cmd
+
+        times = cmd.prefix_number
+        return nil if times < 1
+
+        required = (cmd.suffix_number || 4).clamp(2, 6)
+        target = cmd.target_number || 1
+
+        dice_list = @randomizer.roll_barabara(times, 6)
+        count = dice_list.count { |i| i >= required }
+
+        result =
+          if count >= target
+            Result.success("成功")
+          else
+            Result.failure("不完全成功")
+          end
+
+        sequence = [
+          "(#{cmd})",
+          "(#{times}B6>=#{required}[>=#{target}])",
+          "[#{dice_list.join(',')}]",
+          "成功数:#{count}",
+          result.text
+        ].compact
+
+        result.text = sequence.join(" ＞ ")
+        result
+      end
+
+      TABLES = {
+        'ET' => DiceTable::D66RangeTable.new(
+          '感情ワード（キャラクター）表',
+          {
+            11..12 => '愛情／あなたは、対象のキャラクターに愛情を抱いています。',
+            13..14 => '家族／あなたは、対象のキャラクターをまるで家族のように感じています。',
+            15..16 => '腐れ縁／あなたは、対象のキャラクターを腐れ縁だとを感じています（または、まるで長年の腐れ縁のように気が合う相手だと感じています）。',
+            21..22 => '師弟／そのキャラクターとは、師弟のような関係だと感じています。',
+            23..24 => '好敵手／そのキャラクターを、好敵手だと感じています。',
+            25..26 => '親近感／あなたは、対象のキャラクターに、親近感を抱いています。',
+            31..32 => '友情／あなたは、対象のキャラクターに、友情を抱いています。',
+            33..34 => '尊敬／あなたは、対象のキャラクターを尊敬しています。',
+            35..36 => '庇護／あなたは、対象のキャラクターを守らなければと感じています。',
+            41..42 => '好感／あなたは、対象のキャラクターに好感を抱いています。',
+            43..44 => '興味／あなたは、対象のキャラクターに興味を抱いています。',
+            45..46 => '感銘／あなたは、対象のキャラクターに感銘を抱いています。',
+            51..52 => '畏怖／あなたは、対象のキャラクターに畏怖を抱いています。',
+            53..54 => '信頼／あなたは、対象のキャラクターに信頼を感じています。',
+            55..56 => '不信感／あなたは、対象のキャラクターに不信感を抱いています。',
+            61..62 => '劣等感／あなたは、対象のキャラクターの能力や容姿、実績などに対し劣等感を抱いています。',
+            63..64 => '後悔／あなたは対象のキャラクターを見ると、後悔の念を思い出します（かつて失った人に似ている、など）。',
+            65..66 => '無関心／あなたは、対象のキャラクターに対して無関心を装っています。しかし本当は無視できない存在であると感じています。',
+          }
+        ),
+        "RT" => DiceTable::Table.new(
+          "襲撃表",
+          "1D6",
+          [
+            "概要：今回の事件の黒幕が放ったものか、それとも何かで恨みを買ったのか、裏社会の暗殺者たちが襲撃を仕掛けてくる。迎え撃つ必要がある。\n判定：2人で判定。【機敏(SR+1)】〔†射撃〕／【身体(SR+1)】〔†白兵〕\n全員が完全成功：敵の迎撃に成功した。襲撃者を放ってきた相手もしばらくは動けないだろう。【AP】+1。\n1人でも不完全成功：何とか敵を迎撃したが、手傷を負ってしまった。PC全員は【HP】を1d+[SR]点消費する。",
+            "概要：あまりにも目立ちすぎたせいか、自分に目を光らせている司法組織の捜査官が追ってきた。戦うわけにもいかない。誰かが囮になってうまく逃げるしかない。\n判定：1人で判定。【身体(SR+2)】〔運動〕\n全員が完全成功：うまく追手をまくことができた。しばらくは時間を稼ぐことができるだろう。【AP】+1。\n1人でも不完全成功：何とか逃げることには成功したが、体力を使い果たした。判定を行ったPCは、[調査フェイズ]終了時まで【身体】の判定で振るダイス数-1d。",
+            "概要：偶然、一般市民に非合法の活動をしている場面を目撃される。彼らを巻き込まないためにも、何とか誤魔化した方がいいだろう。\n判定：全員で判定。【知性(SR)】〔交渉〕\n全員が完全成功：それらしい理屈をつけて、誤魔化すことができた。機転の利いた対応に、裏社会での評価も上がる。【畏敬】+2。\n1人でも不完全成功：なんとか誤魔化せたが、相手はいまいち納得できないようだ。今後、彼らの動向にも気を配る必要があるだろう。[不完全成功]だったPCは[調査フェイズ]終了まで【知性】の判定で振るダイス数-1d。",
+            "概要：情報を整理しようと集まった瞬間、何者かに襲撃を受ける。出自は不明だが、裏社会の存在で間違いないだろう。迎撃の必要がある。\n判定：全員で判定。【機敏(SR)】〔†射撃〕／【身体(SR)】〔†白兵〕\n全員が完全成功：鮮やかに敵を撃退してみせた。【畏敬】+2。\n1人でも不完全成功：敵を撃退できたものの、手傷を負ってしまった。[不完全成功]だったPCは[調査フェイズ]終了まで【機敏】の判定で振るダイス数-1d。",
+            "概要：君の活躍に目をつけ、闇の組織が急な情報収集の仕事を依頼してきた。やむにやまれぬ事情があり、無視することもできない。急いで片付けた方がいいだろう。\n判定：2人で判定。【知性(SR+1)】〔コンピュータ〕／【機敏(SR+1)】〔操縦〕\n全員が完全成功：コンピュータやフットワークを活かし、情報を素早く手に入れた。闇社会からの評価も上がる。【畏敬】+2。\n1人でも不完全成功：仕事は成功させたものの、少し雑なものとなって相手を落胆させてしまう。【畏敬】-1。",
+            "概要：カローンのことを嗅ぎ回っているマスコミに、活動現場を見られてしまった。何とか言いくるめて、対処する必要がある。\n判定：1人で判定。【知性(SR+2)】〔交渉〕\n全員が完全成功：自分たちはカローンではないと言いくるめることができた。ついでに事件捜査の時間を稼ぐための偽情報をリークすることにも成功する。【AP】+1。\n1人でも不完全成功：何とか言いくるめることができたが、激しく気力を消耗してしまう。判定を行ったPCは、【EP】-1。",
+          ]
+        ),
+      }.freeze
+
+      register_prefix('\d+CS', TABLES.keys)
+    end
+  end
+end

data/lib/bcdice/game_system/Cthulhu7th.rb

@@ -203,7 +203,7 @@ module BCDice
 
         if bonus_dice == 0 && difficulty.nil?
           dice = @randomizer.roll_once(100)
-          return "1D100 ＞ #{dice}"
+          return "(1D100) ＞ #{dice}"
         end
 
         if bonus_dice.abs > 100

data/lib/bcdice/game_system/Cthulhu7th_ChineseTraditional/full_auto.rb

@@ -0,0 +1,293 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class Cthulhu7th_ChineseTraditional < Base
+      class FullAuto
+        BONUS_DICE_RANGE = (-2..2).freeze
+
+        # 停止連射的條件（難度閾值）
+        # @return [Hash<String, Integer>]
+        #
+        # 成功類型的小寫表記 => 難度的閾值
+        ROLL_FULL_AUTO_DIFFICULTY_THRESHOLD = {
+          # 一般
+          "r" => 0,
+          # 困難
+          "h" => 1,
+          # 極限
+          "e" => 2
+        }.freeze
+
+        def self.eval(command, randomizer)
+          new.eval(command, randomizer)
+        end
+
+        def eval(command, randomizer)
+          @randomizer = randomizer
+          get_full_auto_result(command)
+        end
+
+        private
+
+        include Rollable
+
+        def get_full_auto_result(command)
+          m = /^FAR\((-?\d+),(-?\d+),(-?\d+)(?:,(-?\d+)?)?(?:,(-?\w+)?)?(?:,(-?\d+)?)?\)$/i.match(command)
+          unless m
+            return nil
+          end
+
+          bullet_count = m[1].to_i
+          diff = m[2].to_i
+          broken_number = m[3].to_i
+          bonus_dice_count = m[4].to_i
+          stop_count = m[5]&.downcase || ""
+          bullet_set_count_cap = m[6]&.to_i || diff / 10
+
+          output = ""
+
+          # 最大（8次 * （PC技能值最大值 / 10））= 72發，因此設置上限
+          bullet_count_limit = 100
+          if bullet_count > bullet_count_limit
+            output += "彈藥數量過多。將裝填的彈藥數量更改為#{bullet_count_limit}發。\n"
+            bullet_count = bullet_count_limit
+          end
+
+          # 如果設置的連射上限不合理則顯示注意
+          if (bullet_set_count_cap > diff / 10) && (diff > 39) && !m[6].nil?
+            bullet_set_count_cap = diff / 10
+            output += "連射的彈藥數量上限為\[技能值÷10（取整）\]發，因此無法指定更高的數量。連射的彈藥數量更改為#{bullet_set_count_cap}發。\n"
+          elsif (diff <= 39) && (bullet_set_count_cap > 3) && !m[6].nil?
+            bullet_set_count_cap = 3
+            output += "技能值在39以下時，連射的彈藥數量上限和下限均為3發。連射的彈藥數量更改為#{bullet_set_count_cap}發。\n"
+          end
+
+          # 如果設置的連射下限不合理則顯示注意或錯誤
+          return "連射的彈藥數量必須為正數。" if (bullet_set_count_cap <= 0) && !m[6].nil?
+
+          if (bullet_set_count_cap < 3) && !m[6].nil?
+            bullet_set_count_cap = 3
+            output += "連射的彈藥數量下限為3發。連射的彈藥數量更改為3發。\n"
+          end
+
+          return "彈藥數量必須為正數。" if bullet_count <= 0
+          return "目標值必須為正數。" if diff <= 0
+
+          if broken_number < 0
+            output += "故障值必須為正數。去掉負號。\n"
+            broken_number = broken_number.abs
+          end
+
+          unless BONUS_DICE_RANGE.include?(bonus_dice_count)
+            return "錯誤。獎勵・懲罰骰的值必須在#{BONUS_DICE_RANGE.min}～#{BONUS_DICE_RANGE.max}之間。"
+          end
+
+          output += "獎勵・懲罰骰[#{bonus_dice_count}]"
+          output += roll_full_auto(bullet_count, diff, broken_number, bonus_dice_count, stop_count, bullet_set_count_cap)
+
+          return output
+        end
+
+        def roll_full_auto(bullet_count, diff, broken_number, dice_num, stop_count, bullet_set_count_cap)
+          output = ""
+          loop_count = 0
+
+          counts = {
+            hit_bullet: 0,
+            impale_bullet: 0,
+            bullet: bullet_count,
+          }
+
+          # 難度變更用循環
+          4.times do |more_difficulty|
+            output += get_next_difficulty_message(more_difficulty)
+
+            # 隨著懲罰骰的減少進行擲骰循環
+            while dice_num >= BONUS_DICE_RANGE.min
+              loop_count += 1
+              hit_result, total, total_list = get_hit_result_infos(dice_num, diff, more_difficulty)
+              output += "\n#{loop_count}次: ＞ #{total_list.join(', ')} ＞ #{hit_result}"
+
+              if total >= broken_number
+                output += "　卡彈"
+                return get_hit_result_text(output, counts)
+              end
+
+              hit_type = get_hit_type(more_difficulty, hit_result)
+              hit_bullet, impale_bullet, lost_bullet = get_bullet_results(counts[:bullet], hit_type, diff, bullet_set_count_cap)
+
+              output += "　（#{hit_bullet}發命中，#{impale_bullet}發貫穿）"
+
+              counts[:hit_bullet] += hit_bullet
+              counts[:impale_bullet] += impale_bullet
+              counts[:bullet] -= lost_bullet
+
+              return get_hit_result_text(output, counts) if counts[:bullet] <= 0
+
+              dice_num -= 1
+            end
+
+            # 當達到指定的難度時，停止連射處理
+            if should_stop_roll_full_auto?(stop_count, more_difficulty)
+              output += "\n【因達到指定難度，處理結束。】"
+              break
+            end
+
+            dice_num += 1
+          end
+
+          return get_hit_result_text(output, counts)
+        end
+
+        # 判斷是否應該停止連射處理
+        # @param [String] stop_count 成功的類型
+        # @param [Integer] difficulty 難度
+        # @return [Boolean]
+        def should_stop_roll_full_auto?(stop_count, difficulty)
+          difficulty_threshold = ROLL_FULL_AUTO_DIFFICULTY_THRESHOLD[stop_count]
+          return difficulty_threshold && difficulty >= difficulty_threshold
+        end
+
+        def get_hit_result_infos(dice_num, diff, more_difficulty)
+          total, total_list = roll_with_bonus(dice_num)
+
+          fumbleable = get_fumbleable(more_difficulty)
+          hit_result = ResultLevel.from_values(total, diff, fumbleable).to_s
+
+          return hit_result, total, total_list
+        end
+
+        def get_hit_result_text(output, counts)
+          return "#{output}\n＞ #{counts[:hit_bullet]}發一般命中，#{counts[:impale_bullet]}發貫穿，剩餘彈藥#{counts[:bullet]}發"
+        end
+
+        def get_hit_type(more_difficulty, hit_result)
+          success_list, impale_bullet_list = get_success_list_impale_bullet_list(more_difficulty)
+
+          return :hit if success_list.include?(hit_result)
+          return :impale if impale_bullet_list.include?(hit_result)
+
+          return ""
+        end
+
+        def get_bullet_results(bullet_count, hit_type, diff, bullet_set_count_cap)
+          bullet_set_count = get_set_of_bullet(diff, bullet_set_count_cap)
+          hit_bullet_count_base = get_hit_bullet_count_base(diff, bullet_set_count)
+          impale_bullet_count_base = (bullet_set_count / 2.to_f)
+
+          lost_bullet_count = 0
+          hit_bullet_count = 0
+          impale_bullet_count = 0
+
+          if !last_bullet_turn?(bullet_count, bullet_set_count)
+
+            case hit_type
+            when :hit
+              hit_bullet_count = hit_bullet_count_base # 計算一般命中的彈數
+
+            when :impale
+              impale_bullet_count = impale_bullet_count_base.floor # 計算貫穿的彈數
+              hit_bullet_count = impale_bullet_count_base.ceil
+            end
+
+            lost_bullet_count = bullet_set_count
+
+          else
+
+            case hit_type
+            when :hit
+              hit_bullet_count = get_last_hit_bullet_count(bullet_count)
+
+            when :impale
+              impale_bullet_count = get_last_hit_bullet_count(bullet_count)
+              hit_bullet_count = bullet_count - impale_bullet_count
+            end
+
+            lost_bullet_count = bullet_count
+          end
+
+          return hit_bullet_count, impale_bullet_count, lost_bullet_count
+        end
+
+        def get_success_list_impale_bullet_list(more_difficulty)
+          success_list = []
+          impale_bullet_list = []
+
+          case more_difficulty
+          when 0
+            success_list = ["困難成功", "一般成功"]
+            impale_bullet_list = ["大成功", "極限成功"]
+          when 1
+            success_list = ["困難成功"]
+            impale_bullet_list = ["大成功", "極限成功"]
+          when 2
+            success_list = []
+            impale_bullet_list = ["大成功", "極限成功"]
+          when 3
+            success_list = ["大成功"]
+            impale_bullet_list = []
+          end
+
+          return success_list, impale_bullet_list
+        end
+
+        def get_next_difficulty_message(more_difficulty)
+          case more_difficulty
+          when 1
+            return "\n【難度已更改為困難】"
+          when 2
+            return "\n【難度已更改為極限】"
+          when 3
+            return "\n【難度已更改為大成功】"
+          end
+
+          return ""
+        end
+
+        def get_set_of_bullet(diff, bullet_set_count_cap)
+          bullet_set_count = diff / 10
+
+          if bullet_set_count_cap < bullet_set_count
+            bullet_set_count = bullet_set_count_cap
+          end
+
+          if (diff >= 1) && (diff < 30)
+            bullet_set_count = 3 # 技能值在29以下的最低值保障處理
+          end
+
+          return bullet_set_count
+        end
+
+        def get_hit_bullet_count_base(diff, bullet_set_count)
+          hit_bullet_count_base = (bullet_set_count / 2)
+
+          if (diff >= 1) && (diff < 30)
+            hit_bullet_count_base = 1 # 技能值在29以下的最低值保障
+          end
+
+          return hit_bullet_count_base
+        end
+
+        def last_bullet_turn?(bullet_count, bullet_set_count)
+          ((bullet_count - bullet_set_count) < 0)
+        end
+
+        def get_last_hit_bullet_count(bullet_count)
+          # 剩餘1發的最低值保障處理
+          if bullet_count == 1
+            return 1
+          end
+
+          count = (bullet_count / 2.to_f).floor
+          return count
+        end
+
+        def get_fumbleable(more_difficulty)
+          # 因為成功的出目必須在49以下，因此失誤值上升
+          return (more_difficulty >= 1)
+        end
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/Cthulhu7th_ChineseTraditional/rollable.rb

@@ -0,0 +1,43 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class Cthulhu7th_ChineseTraditional < Base
+      module Rollable
+        private
+
+        # 1D100の一の位用のダイスロール
+        # 0から9までの値を返す
+        #
+        # @return [Integer]
+        def roll_ones_d10
+          dice = @randomizer.roll_once(10)
+          return 0 if dice == 10
+
+          return dice
+        end
+
+        # @param bonus [Integer] ボーナス・ペナルティダイスの数。負の数ならペナルティダイス。
+        # @return [Array<(Integer, Array<Integer>)>]
+        def roll_with_bonus(bonus)
+          tens_list = Array.new(bonus.abs + 1) { @randomizer.roll_tens_d10 }
+          ones = roll_ones_d10()
+
+          dice_list = tens_list.map do |tens|
+            dice = tens + ones
+            dice == 0 ? 100 : dice
+          end
+
+          dice =
+            if bonus >= 0
+              dice_list.min
+            else
+              dice_list.max
+            end
+
+          return dice, dice_list
+        end
+      end
+    end
+  end
+end