bcdice 3.15.0 → 3.17.0

data/lib/bcdice/game_system/DungeonsAndDragons_Korean.rb

@@ -0,0 +1,61 @@
+# frozen_string_literal: true
+
+require 'bcdice/game_system/DungeonsAndDragons'
+
+module BCDice
+  module GameSystem
+    class DungeonsAndDragons_Korean < DungeonsAndDragons
+      # ゲームシステムの識別子
+      ID = 'DungeonsAndDragons:Korean'
+
+      # ゲームシステム名
+      NAME = '던전 앤 드래곤'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = '国際化:Korean:던전 앤 드래곤'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = "※ 이 다이스봇은 방의 시스템 이름 표시용입니다.\n"
+
+      # 성공 결과 문자열
+      def success_text
+        "성공"
+      end
+
+      # 실패 결과 문자열
+      def failure_text
+        "실패"
+      end
+
+      # 크리티컬 결과 문자열
+      def critical_text
+        "크리티컬"
+      end
+
+      # 펌블 결과 문자열
+      def fumble_text
+        "펌블"
+      end
+
+      # Base.check_result(total, rand_results, cmp_op, target)를 오버라이드
+      def check_result(total, rand_results, cmp_op, target)
+        # target이 '?' 같은 문자열일 경우 nil 반환
+        return nil if target.is_a?(String)
+
+        # 크리티컬/펌블 처리 (D&D 룰: 1 = 펌블, 20 = 크리티컬)
+        dice_total = rand_results.map(&:value).sum
+        if rand_results.map(&:sides) == [20]
+          return Result.critical(critical_text) if dice_total == 20
+          return Result.fumble(fumble_text) if dice_total == 1
+        end
+
+        # 일반 성공/실패 판정
+        if total.send(cmp_op, target)
+          Result.success(success_text)
+        else
+          Result.failure(failure_text)
+        end
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/EdgeFlippers.rb

@@ -0,0 +1,315 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class EdgeFlippers < Base
+      # ゲームシステムの識別子
+      ID = 'EdgeFlippers'
+
+      # ゲームシステム名
+      NAME = 'EDGE FLIPPERS'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'えつしふりつはあす'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~MESSAGETEXT
+        ■ 汎用コマンド
+          xHD+ySD=t,t,t
+          人間ダイスと怪異ダイスをロールして、特定の出目があるか判定します。
+          x: 人間ダイスの数
+          y: 怪異ダイスの数
+          t: 必要な出目（省略化）
+
+        ■ 拮抗判定
+          xHD+ySD=Xi
+          人間ダイスと怪異ダイスをロールして、ゾロ目が必要数あるか判定します。
+          i: 必要なゾロ目の個数
+
+        ■ 全力判定
+          xHFD>=t
+          xSFD>=t
+          x: ダイスの数
+          t: 目標値（省略時20）
+
+        ■ 存在判定
+          EXIST -> 2HD+2SD
+
+        ■ 都市判定
+          xHCD -> xHD=1,2,3,4
+
+        ■ 超常判定
+          nSPD -> nSD=7,8,9,10
+
+        ■ 術式判定
+          TD
+
+        ■ ランダム表
+          BAET：【人間】にも【怪異】にも影響のある後遺症
+          HAET：【人間寄り】の時に影響のある後遺症
+          SAET：【怪異寄り】の時に影響のある後遺症
+      MESSAGETEXT
+
+      def eval_game_system_specific_command(command)
+        roll_hs(command) || roll_alias(command) || roll_fullpower(command) || roll_technical(command) || roll_tables(command, TABLES)
+      end
+
+      private
+
+      class HSCommand
+        class << self
+          def parse(command)
+            m = /^(?:(\d+)HD(?:\+(\d+)SD)?|(\d+)SD(?:\+(\d+)HD)?)(?:=(?:([\d,]+)|X(\d+)))?$/.match(command)
+            return nil unless m
+
+            h = m[1]&.to_i || m[4]&.to_i || 0
+            s = m[2]&.to_i || m[3]&.to_i || 0
+            targets = parse_target(m[5])
+            same_value = m[6]&.to_i
+
+            if h == 0 && s == 0
+              return nil
+            end
+
+            return HSCommand.new(h, s, targets, same_value)
+          end
+
+          private
+
+          def parse_target(str)
+            return nil unless str
+
+            str.split(",").filter { |s| !s.empty? }.map(&:to_i).sort
+          end
+        end
+
+        def initialize(h, s, targets, same_value)
+          @h = h
+          @s = s
+          @targets = targets
+          @same_value = same_value
+        end
+
+        def roll(randomizer)
+          @hv = randomizer.roll_barabara(@h, 6).sort
+          @sv = randomizer.roll_barabara(@s, 10).sort
+          values = (@hv + @sv).sort
+
+          @is_success = if @targets
+                          subset?(values, @targets)
+                        elsif @same_value
+                          values.group_by(&:itself).any? { |_k, v| v.length >= @same_value }
+                        end
+
+          Result.new.tap do |r|
+            r.text = [expr(), result_values(), result_label].compact.join(" ＞ ")
+            unless @is_success.nil?
+              r.condition = @is_success
+            end
+          end
+        end
+
+        private
+
+        def subset?(superset, subset)
+          return true if subset.empty?
+
+          i = 0
+          superset.each do |a|
+            b = subset[i]
+            if b == a
+              i += 1
+              if i == subset.length
+                return true
+              end
+            elsif a > b
+              return false
+            end
+          end
+
+          return false
+        end
+
+        def expr
+          "(#{expr_body()}#{expr_cond()})"
+        end
+
+        def expr_body
+          if @h != 0 && @s != 0
+            "#{@h}HD+#{@s}SD"
+          elsif @h != 0
+            "#{@h}HD"
+          else
+            "#{@s}SD"
+          end
+        end
+
+        def expr_cond
+          if @targets
+            "=#{@targets.join(',')}"
+          elsif @same_value
+            "=X#{@same_value}"
+          else
+            ""
+          end
+        end
+
+        def result_values
+          d6 = !@hv.empty? ? "D6[#{@hv.join(',')}]" : nil
+          d10 = !@sv.empty? ? "D10[#{@sv.join(',')}]" : nil
+          [d6, d10].compact.join(" ")
+        end
+
+        def result_label
+          case @is_success
+          when true
+            "成功"
+          when false
+            "失敗"
+          end
+        end
+      end
+
+      def roll_hs(command)
+        cmd = HSCommand.parse(command)
+        return nil unless cmd
+
+        cmd.roll(@randomizer)
+      end
+
+      def parse_target(str)
+        return nil unless str
+
+        str.split(",").filter { |s| !s.empty? }.map(&:to_i).sort
+      end
+
+      def subset?(superset, subset)
+        return true if subset.empty?
+
+        i = 0
+        superset.each do |a|
+          b = subset[i]
+          if b == a
+            i += 1
+            if i == subset.length
+              return true
+            end
+          elsif a > b
+            return false
+          end
+        end
+
+        return false
+      end
+
+      def roll_alias(command)
+        case command
+        when "EXIST"
+          return roll_hs("2HD+2SD")
+        end
+
+        m = /^(\d+)(HCD|SPD)$/.match(command)
+        return nil unless m
+
+        n = m[1].to_i
+        case m[2]
+        when "HCD"
+          roll_hs("#{n}HD=1,2,3,4")
+        when "SPD"
+          roll_hs("#{n}SD=7,8,9,10")
+        end
+      end
+
+      def roll_fullpower(command)
+        parser = Command::Parser.new(/[HS]FD/, round_type: @round_type)
+                                .disable_modifier.enable_prefix_number.restrict_cmp_op_to(nil, :>=)
+        parsed = parser.parse(command)
+        return nil unless parsed
+
+        n = parsed.prefix_number
+        side = parsed.command == "HFD" ? 6 : 10
+        target = parsed.target_number || 20
+        return nil if n == 0
+
+        dice = @randomizer.roll_barabara(n, side).sort
+        sum = dice.sum()
+        tries = [dice]
+        while sum < target
+          dice = @randomizer.roll_barabara(n, side).sort
+          tries.push(dice)
+          sum += dice.sum()
+        end
+
+        Result.new.tap do |r|
+          r.text = "(#{n}#{parsed.command}>=#{target})"
+          tries.each do |ds|
+            r.text += " ＞ #{ds.sum}[#{ds.join(',')}]"
+          end
+
+          is_success = tries.length < 5
+          r.text += " ＞ #{sum}(#{tries.length}回)"
+          r.text += is_success ? " ＞ 成功" : " ＞ 失敗"
+          r.condition = is_success
+        end
+      end
+
+      def roll_technical(command)
+        return nil unless command == "TD"
+
+        value = @randomizer.roll_once(10)
+        is_success = value <= 2
+        Result.new.tap do |r|
+          r.text = "(TD) ＞ #{value} ＞ #{is_success ? '成功' : '失敗'}"
+          r.condition = is_success
+        end
+      end
+
+      TABLES = {
+        "BAET" => DiceTable::Table.new(
+          "【人間】にも【怪異】にも影響のある後遺症",
+          "1D12",
+          [
+            "鏡に映らない：鏡や水面に姿が映らなくなる。他者から見えなくなるわけではない",
+            "部分的に透明：身体のどこかが透明になる",
+            "部分的欠落：身体のどこかが消えて触ることもできなくなる。生命維持に影響はない",
+            "角が生える：角が生えてくる。元から角がある場合はさらに追加",
+            "しっぽ：動物のしっぽが生える",
+            "けもみみ：動物の耳が頭に生える",
+            "影がなくなる：自分の影がなくなってしまう",
+            "涙が止まらない：ずっと涙が流れ続けて止まらなくなる",
+            "視界の端に何かいる：常に視界の端に何かがいて、踊っている",
+            "耳鳴り：ずっと耳鳴りがやまない。たまに幻聴がする",
+            "美しい幻聴：時々他人の声が現実離れした美しい声に変わって聞こえる",
+            "皮膚の下のうごめき：皮膚の下でずっと何かが蠢いているように感じられる",
+          ]
+        ),
+        "HAET" => DiceTable::Table.new(
+          "【人間寄り】の時に影響のある後遺症",
+          "1D6",
+          [
+            "幻肢の感覚：存在しない追加の腕や翼の感覚がある",
+            "声変わり：普段とは違う声になってしまう",
+            "怪異の片鱗：【怪異寄り】のときの容姿の一部が【人間寄り】の時にも出てしまう",
+            "幻覚：時折やけに生々しい幻覚が見えるようになる",
+            "恐怖：あらゆるものが怖く見える",
+            "怪異言語：【人間】の領域には存在しない謎の言語が理解できる",
+          ]
+        ),
+        "SAET" => DiceTable::Table.new(
+          "【怪異寄り】の時に影響のある後遺症",
+          "1D6",
+          [
+            "吸精体質：他者に触れると生命力を吸収してしまう。特に仲の良い相手だとより強くなる",
+            "威圧する視線：あなたの視線は周囲に強烈な威圧感を与えてしまう",
+            "キメラ：あなたの容姿の一部が、他の【越境者】の【怪異寄り】のときの容姿のものと同じになる",
+            "異なる怪異：あなた本来の【怪異】の姿とは違う姿に変化してしまう",
+            "ポルターガイスト：周囲でラップ音や部品の浮遊といった怪現象が多発する",
+            "人間そのもの：【怪異寄り】のときでも人間そのものの容姿になってしまう",
+          ]
+        ),
+      }.freeze
+
+      register_prefix('\d+HD', '\d+SD', '\d+HCD', '\d+SPD', '\d+HFD', '\dSFD', 'EXIST', 'TD', TABLES.keys)
+    end
+  end
+end

data/lib/bcdice/game_system/Emoklore.rb

@@ -17,10 +17,15 @@ module BCDice
 
       # ダイスボットの使い方
       HELP_MESSAGE = <<~MESSAGETEXT
-        ・技能値判定（xDM<=y）
+        ・技能値判定（xDM<=y / xDM<=yEz）
           "(個数)DM<=(判定値)"で指定します。
           ダイスの個数は省略可能で、省略した場合1個になります。
-          例）2DM<=5 DM<=8
+          個数や判定値には四則演算（+-*/）を使用できます。
+          末尾にEzを付けるとダイス数にzを加算します。E-zで減算も可能です。
+          例）2DM<=5 DM<=8 2+2DM<=5 → 4個で判定値5
+              2DM<=5E2 → 4個で判定値5 / 3DM<=5E-1 → 2個で判定値5
+          ※ダイス数が0以下になる場合は確定失敗
+
         ・技能値判定（sDAa+z)
           "(技能レベル)DA(能力値)+(ダイスボーナス)"で指定します。
           ダイスボーナスの個数は省略可能で、省略した場合0になります。
@@ -30,7 +35,7 @@ module BCDice
       MESSAGETEXT
 
       # ダイスボットで使用するコマンドを配列で列挙する
-      register_prefix('\d*DM<=', '(B|\d*)DA')
+      register_prefix('[-+*/\d]*DM<=', '(B|\d*)DA')
 
       CRITICAL_VALUE = 1
       FUMBLE_VALUE = 10
@@ -41,7 +46,7 @@ module BCDice
       # @return [nil] 無効なコマンドだった場合
       def eval_game_system_specific_command(command)
         case command
-        when /^\d*DM<=\d/
+        when %r{^[-+*/\d]*DM<=[-+*/\d]+}
           roll_dm(command)
         when /^(B|\d*)DA\d+(\+)?\d*/
           roll_da(command)
@@ -93,21 +98,37 @@ module BCDice
       # @param [String] command コマンド
       # @return [Result, nil] コマンドの結果
       def roll_dm(command)
-        m = /^(\d+)?DM<=(\d+)$/.match(command)
+        m = %r{^([-+*/\d]+)?DM<=([-+*/\d]+)(E(-?\d+))?$}.match(command)
         unless m
           return nil
         end
 
-        num_dice = m[1]&.to_i || 1
-        success_threshold = m[2].to_i
+        base_dice_str = m[1]
+        threshold_str = m[2]
+        modifier = m[4]&.to_i
+
+        base_dice = base_dice_str ? Arithmetic.eval(base_dice_str, RoundType::FLOOR) : 1
+        success_threshold = Arithmetic.eval(threshold_str, RoundType::FLOOR)
+        return nil unless base_dice && success_threshold
+
+        num_dice = modifier ? base_dice + modifier : base_dice
+
+        # ダイス数が0以下の場合は確定失敗
         if num_dice <= 0
-          return nil
+          return Result.fumble("(#{command}) ＞ #{translate('Emoklore.dice_count_zero')}")
         end
 
         # ダイスロール本体
         result = dice_roll(num_dice, success_threshold)
 
-        result.text = "(#{num_dice}DM<=#{success_threshold}) ＞ #{result.text}"
+        # 出力フォーマット：算術式やダイスボーナスがある場合は展開形を表示
+        has_arithmetic = base_dice_str&.match?(%r{[-+*/]}) || threshold_str.match?(%r{[-+*/]})
+        values_changed = (base_dice_str && base_dice_str != base_dice.to_s) || threshold_str != success_threshold.to_s
+        if modifier || (has_arithmetic && values_changed)
+          result.text = "(#{command}) ＞ (#{num_dice}DM<=#{success_threshold}) ＞ #{result.text}"
+        else
+          result.text = "(#{num_dice}DM<=#{success_threshold}) ＞ #{result.text}"
+        end
         return result
       end
 
@@ -124,6 +145,10 @@ module BCDice
         num_dice = (m[1] == "B" ? 1 : (m[1]&.to_i || 1)) + bonus
         success_threshold = m[1].to_i + m[2].to_i
 
+        if num_dice <= 0
+          return Result.fumble("(#{command}) ＞ #{translate('Emoklore.dice_count_zero')}")
+        end
+
         result = dice_roll(num_dice, success_threshold)
 
         result.text = "(#{command}) ＞ (#{num_dice}DM<=#{success_threshold}) ＞ #{result.text}"

data/lib/bcdice/game_system/Emoklore_Korean.rb

@@ -0,0 +1,50 @@
+# frozen_string_literal: true
+
+require 'bcdice/game_system/Emoklore'
+
+module BCDice
+  module GameSystem
+    class Emoklore_Korean < Emoklore
+      # ゲームシステムの識別子
+      ID = "Emoklore:Korean"
+
+      # ゲームシステム名
+      NAME = "에모크로아TRPG"
+
+      # ゲームシステム名の読みがな
+      #
+      # 「ゲームシステム名の読みがなの設定方法」（docs/dicebot_sort_key.md）を参考にして
+      # 設定してください
+      SORT_KEY = "国際化:Korean:에모크로아TRPG"
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~MESSAGETEXT
+        ・기능치 판정（xDM<=y / xDM<=yEz）
+          "(개수)DM<=(판정치)"로 판정합니다.
+          주사위의 개수는 생략 가능하며, 생략 시 1개로 설정됩니다.
+          주사위 개수와 판정치에는 사칙연산（+-*/）을 사용할 수 있습니다.
+          수식 끝에 Ez를 붙이면 주사위 수에 z를 더합니다. E-z로 빼기도 가능합니다.
+          ex）2DM<=5　DM<=8　2DM<=3+2
+              2+2DM<=5 → 주사위 4개로 판정치 5
+              2DM<=5E2 → 주사위 2+2 = 주사위 4개로 판정치 5
+              3DM<=5E-1 → 주사위 3-1 = 주사위 2개로 판정치 5
+            ※주사위 수가 0 이하가 되는 경우 확정 실패
+
+        ・기능치 판정（sDAa+z)
+          "(기능 레벨)DA(능력치)+(주사위 보너스)"로 판정합니다.
+          주사위 보너스의 개수는 생략 가능하며, 생략 시 0개로 설정됩니다.
+          기능 레벨에는 1~3의 수치를 입력합니다. 기본 기능으로 판정하려면 기능 레벨에"b"를 입력하세요.
+          주사위 개수는 기능 레벨과 주사위 보너스 개수에 따라 결정되며, s+z개의 주사위를 굴립니다. (s="b"인 경우 s=1)
+          판정치는 s+a 입니다.（s="b"인 경우에는 s=0）
+      MESSAGETEXT
+
+      register_prefix_from_super_class()
+
+      def initialize(command)
+        super(command)
+
+        @locale = :ko_kr
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/FateCoreSystem.rb

@@ -16,13 +16,13 @@ module BCDice
       HELP_MESSAGE = <<~MESSAGETEXT
         ■ ファッジダイスによる判定 (xDF+y>=t)
           ファッジダイスをx個ダイスロールし、結果を判定します。
-          x: ダイス数
+          x: ダイス数(省略時4)
           y: 修正値（省略可）
-          t: 目標値値（省略可）
-          例）4DF, 4DF>=3, 4DF+1>=3
+          t: 目標値（省略可）
+          例）4DF, 4DF>=3, 4DF+1>=3, DF, DF>=3, DF+1>=3
       MESSAGETEXT
 
-      register_prefix('\d+DF')
+      register_prefix('\d*DF')
 
       def eval_game_system_specific_command(command)
         roll_df(command)
@@ -40,7 +40,9 @@ module BCDice
           return nil
         end
 
-        dice_list = roll_fate_dice(parsed.prefix_number)
+        dice_x = 4
+        dice_x = parsed.prefix_number if parsed.prefix_number
+        dice_list = roll_fate_dice(dice_x)
         total = dice_list.sum() + parsed.modify_number
 
         fate_dice_list = dice_list.map do |i|
@@ -103,7 +105,9 @@ module BCDice
         if target.nil?
           Result.new
         elsif total == target
-          Result.success("Tie")
+          Result.success("Tie(+0)")
+        elsif total == target + 1
+          Result.success("Succeed(+1)")
         elsif total >= target + 3
           Result.critical("Succeed with Style")
         elsif total >= target

data/lib/bcdice/game_system/FullMetalPanic_Korean.rb

@@ -0,0 +1,28 @@
+# frozen_string_literal: true
+
+require 'bcdice/game_system/FullMetalPanic'
+
+module BCDice
+  module GameSystem
+    class FullMetalPanic_Korean < FullMetalPanic
+      # ゲームシステムの識別子
+      ID = 'FullMetalPanic:Korean'
+
+      # ゲームシステム名
+      NAME = '풀 메탈 패닉! RPG'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = '国際化:Korean:풀 메탈 패닉! RPG'
+
+      set_aliases_for_srs_roll('MG', 'FP')
+
+      register_prefix_from_super_class()
+
+      def initialize(command)
+        super(command)
+
+        @locale = :ko_kr
+      end
+    end
+  end
+end