bcdice 3.0.0.pre.alpha.1

data/lib/bcdice/game_system/AnimaAnimus.rb

@@ -0,0 +1,96 @@
+# frozen_string_literal: true
+
+require 'bcdice/dice_table/table'
+require 'bcdice/dice_table/range_table'
+require 'bcdice/arithmetic_evaluator'
+
+module BCDice
+  module GameSystem
+    class AnimaAnimus < Base
+      # ゲームシステムの識別子
+      ID = 'AnimaAnimus'
+
+      # ゲームシステム名
+      NAME = 'アニマアニムス'
+
+      # ゲームシステム名の読みがな
+      #
+      # 「ゲームシステム名の読みがなの設定方法」（docs/dicebot_sort_key.md）を参考にして
+      # 設定してください
+      SORT_KEY = 'あにまあにむす'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~MESSAGETEXT
+        ・行為判定(xAN<=y±z)
+        　十面ダイスをx個振って判定します。達成値が算出されます(クリティカル発生時は2増加)。
+        　x：振るダイスの数。魂魄値や攻撃値。
+        　y：成功値。
+        　z：成功値への補正。省略可能。
+        　(例) 2AN<=3+1 5AN<=7
+        ・各種表
+        　情報収集表　IGT/喪失表　LT
+      MESSAGETEXT
+
+      def initialize(command)
+        super(command)
+      end
+
+      def eval_game_system_specific_command(command)
+        case command
+        when /(\d+)AN<=(\d+([\+\-]\d+)*)/i
+          return check_action(Regexp.last_match)
+        else
+          return roll_tables(command, TABLES)
+        end
+      end
+
+      def check_action(match_data)
+        dice_cnt = ArithmeticEvaluator.eval(match_data[1])
+        target = ArithmeticEvaluator.eval(match_data[2])
+        debug("dice_cnt", dice_cnt)
+        debug("target", target)
+
+        dice_arr = @randomizer.roll_barabara(dice_cnt, 10)
+        dice_str = dice_arr.join(",")
+        suc_cnt = dice_arr.count { |x| x <= target }
+        has_critical = dice_arr.include?(1)
+        result = has_critical ? suc_cnt + 2 : suc_cnt
+
+        return "(#{dice_cnt}B10<=#{target}) ＞ #{dice_str} ＞ #{result > 0 ? '成功' : '失敗'}(達成値:#{result})#{has_critical ? ' (クリティカル発生)' : ''}"
+      end
+
+      TABLES = {
+        'IGT' => DiceTable::Table.new(
+          '情報収集表',
+          '1d10',
+          [
+            'ストリートファイト/<格闘>/「俺に勝てたら教えてやるよ」情報を知る魂願者から勝負を挑まれた。生き延びるためにもこの勝負、負けるわけにはいかない。',
+            '追跡！/<追跡／逃走>/有益な情報を持っている人間を見つけたが、こちらの顔を見るなり逃げ出した。どうにかして捕まえなくてはならない。',
+            '脅し/<威圧>/ならず者たちが集まるバーにやってきた。裏社会に生きる彼らを脅せば有益な情報が手に入るはずだ。',
+            'インターネット/<コンピュータ>/SNSやニュースなど、インターネット上の情報を調査する。デマには騙されないようにしなくては。',
+            '瀕死の情報提供者/<医学>/情報を知る人物がいると聞いてやってきたら、その人物が瀕死の重傷を負っていた。なんとかして蘇生させなくては。',
+            '潜入捜査/<隠密>/敵対する魂願者たちのグループに潜り込んでの調査活動。リスクは高いが、有益な情報が手に入る確率は高い。',
+            '情報交換/<交渉>/友好的な関係にある魂願者との情報交換。うまく話を聞き出すことができるとよいが。',
+            '魔宴の情報屋/<調達>/魔宴の情報屋に接触して情報を聞き出すことにした。一筋縄ではいかない相手らしいが、はたして……？',
+            '違法調査/<犯罪>/法に触れるやり方で情報を集めることにした。ハッキング、窃盗、恐喝、どんな手段を選ぼうか。',
+            '聞き込み/<自我>/街ゆく人びとに聞き込みを行なう。地道な活動こそが目標にたどり着くための最短の方法だ。',
+          ]
+        ),
+        'LT' => DiceTable::RangeTable.new(
+          '喪失表',
+          '1d10',
+          [
+            [1..2, "存在/存在が希薄になり、知り合いや友人に自分の存在を忘れられてしまう。いずれ大切なパートナーの記憶からも消え、この世界でひとりぼっちになる。\nあなたの出自を消去すること。"],
+            [3..4, "記憶/自分の大切な記憶をひとつ失なう。これからは力を使うたびに記憶をひとつ失なうことになり、最後には大切なパートナーのことも思い出せなくなってしまう。\nあなたのメモリアをひとつ選択して消去すること。シナリオメモリアは選択できない。"],
+            [5..6, "容姿/だんだんと以前とはかけ離れた姿に変わっていく。いずれ誰も自分のことを自分だと気づかなくなるのだろう。\nあなたの特徴的な外見を失なう。内容をふさわしいものに書き換えること(特徴的な外見が美しい髪であれば醜い髪など)。"],
+            [7..8, "感情/喜怒哀楽の感情のうち、いずれかひとつを失なう。力を使うたびに他の感情も失っていき、最後にはただ生き残るために戦う機械となる。\nポジティブかネガティブのどちらかを選択する。選択した感情をすべてのメモリアから消去する。消去した結果、表出感情がなくなってしまった場合、残った感情を表出感情にすること。なお、新しくメモリアを取得した場合も、選んだ感情を得ることはできない。"],
+            [9..10, "五感/少しずつ五感が鈍くなる。今までできていたはずのことができなくなってしまう。\nあなたの特技をひとつ選択する。選択した特技に×をつけること。×が付いた技能で判定を行なうことはできず、判定を求められた場合は自動的に失敗となる。"],
+          ]
+        ),
+      }.freeze
+
+      # ダイスボットで使用するコマンドを配列で列挙する
+      register_prefix(['\d+AN<=\d([\+\-]\d+)*'] + TABLES.keys)
+    end
+  end
+end

data/lib/bcdice/game_system/Arianrhod.rb

@@ -0,0 +1,50 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class Arianrhod < Base
+      # ゲームシステムの識別子
+      ID = 'Arianrhod'
+
+      # ゲームシステム名
+      NAME = 'アリアンロッドRPG'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'ありあんろつとRPG'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        ・クリティカル、ファンブルの自動判定を行います。(クリティカル時の追加ダメージも表示されます)
+        ・D66ダイスあり
+      INFO_MESSAGE_TEXT
+
+      def initialize(command)
+        super(command)
+
+        @sort_add_dice = true
+        @enabled_d66 = true
+        @d66_sort_type = D66SortType::NO_SORT
+      end
+
+      def check_nD6(total, _dice_total, dice_list, cmp_op, target)
+        n_max = dice_list.count(6)
+
+        if dice_list.count(1) == dice_list.size
+          # 全部１の目ならファンブル
+          " ＞ ファンブル"
+        elsif n_max >= 2
+          # ２個以上６の目があったらクリティカル
+          " ＞ クリティカル(+#{n_max}D6)" if n_max >= 2
+        elsif cmp_op != :>= || target == '?'
+          ''
+        elsif total >= target
+          " ＞ 成功"
+        else
+          " ＞ 失敗"
+        end
+      end
+
+      alias check_2D6 check_nD6
+    end
+  end
+end

data/lib/bcdice/game_system/ArsMagica.rb

@@ -0,0 +1,149 @@
+# frozen_string_literal: true
+
+require "bcdice/normalize"
+require "bcdice/format"
+
+module BCDice
+  module GameSystem
+    class ArsMagica < Base
+      # ゲームシステムの識別子
+      ID = 'ArsMagica'
+
+      # ゲームシステム名
+      NAME = 'アルスマギカ'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'あるすまきか'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        ・ストレスダイス　(ArSx+y)
+        　"ArS(ボッチダイス)+(修正)"です。判定にも使えます。Rコマンド(1R10+y[m])に読替をします。
+        　ボッチダイスと修正は省略可能です。(ボッチダイスを省略すると1として扱います)
+        　botchダイスの0の数が2以上の時は、数えて表示します。
+        　（注意！） botchの判断が発生したときには、そのダイスを含めてロールした全てのダイスを[]の中に並べて表示します。
+        　例) (1R10[5]) ＞ 0[0,1,8,0,8,1] ＞ Botch!
+        　　最初の0が判断基準で、その右側5つがボッチダイスです。1*2,8*2,0*1なので1botchという訳です。
+      INFO_MESSAGE_TEXT
+
+      register_prefix(['ArS.*', '1R10.*'])
+
+      def eval_game_system_specific_command(string)
+        unless parse_ars(string) || parse_1r10(string)
+          return nil
+        end
+
+        diff = @target_numner || 0
+        botch = @botch
+        bonus = @modify_number
+        crit_mul = 1
+        total = 0
+        cmp_op = @cmp_op
+
+        die = @randomizer.roll_once(10) - 1
+        output = "(#{expr()}) ＞ "
+
+        if die == 0 # botch?
+          count0 = 0
+          dice_n = []
+
+          botch.times do |_i|
+            botch_die = @randomizer.roll_once(10) - 1
+            count0 += 1 if botch_die == 0
+            dice_n.push(botch_die)
+          end
+
+          output += "0[#{die},#{dice_n.join(',')}]"
+
+          if count0 != 0
+            if count0 > 1
+              output += " ＞ #{count0}Botch!"
+            else
+              output += " ＞ Botch!"
+            end
+
+            # Botchの時には目標値を使った判定はしない
+            cmp_op = nil
+          else
+            if bonus > 0
+              output += "+#{bonus} ＞ #{bonus}"
+            elsif bonus < 0
+              output += "#{bonus} ＞ #{bonus}"
+            else
+              output += " ＞ 0"
+            end
+            total = bonus
+          end
+        elsif die == 1 # Crit
+          crit_dice = ""
+          while die == 1
+            crit_mul *= 2
+            die = @randomizer.roll_once(10)
+            crit_dice += "#{die},"
+          end
+          total = die * crit_mul
+          crit_dice = crit_dice.sub(/,$/, '')
+          output += total.to_s
+          output += "[1,#{crit_dice}]"
+          total += bonus
+          if bonus > 0
+            output += "+#{bonus} ＞ #{total}"
+          elsif bonus < 0
+            output += "#{bonus} ＞ #{total}"
+          end
+        else
+          total = die + bonus
+          if bonus > 0
+            output += "#{die}+#{bonus} ＞ #{total}"
+          elsif bonus < 0
+            output += "#{die}#{bonus} ＞ #{total}"
+          else
+            output += total.to_s
+          end
+        end
+
+        if cmp_op == :>=
+          output += (total >= diff ? " ＞ 成功" : " ＞ 失敗")
+        end
+
+        return output.to_s
+      end
+
+      private
+
+      def parse_ars(command)
+        m = /^ArS(\d+)?((?:[+-]-?\d+)+)?(?:([>=]+)(\d+))?$/i.match(command)
+        unless m
+          return false
+        end
+
+        @botch = m[1]&.to_i || 1
+        @modify_number = ArithmeticEvaluator.eval(m[2] || "")
+        @cmp_op = Normalize.comparison_operator(m[3])
+        @target_numner = m[4]&.to_i
+
+        return true
+      end
+
+      def parse_1r10(command)
+        m = /^1R10((?:[+-]-?\d+)+)?(?:\[(\d+)\])?(?:([>=]+)(\d+))?$/i.match(command)
+        unless m
+          return false
+        end
+
+        @modify_number = ArithmeticEvaluator.eval(m[1] || "")
+        @botch = m[2]&.to_i || 1
+        @cmp_op = Normalize.comparison_operator(m[3])
+        @target_numner = m[4]&.to_i
+
+        return true
+      end
+
+      def expr()
+        modifier = Format.modifier(@modify_number)
+
+        "1R10#{modifier}[#{@botch}]#{@cmp_op}#{@target_numner}"
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/Avandner.rb

@@ -0,0 +1,101 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class Avandner < Base
+      # ゲームシステムの識別子
+      ID = 'Avandner'
+
+      # ゲームシステム名
+      NAME = '黒絢のアヴァンドナー'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'こつけんのあうあんとなあ'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~MESSAGETEXT
+        ・調査判定：nAVm[Cx]
+        ・命中判定：nAVm*p[+t][Cx]
+        []内は省略可能。
+
+        クリティカルヒットの分だけ、自動で振り足し処理を行います。0
+        「n」でダイス数を指定。
+        「m」で目標値を指定。省略は出来ません。
+        「Cx」でクリティカル値を指定。省略時は「1」、最大値は「2」、「0」でクリティカル無し。
+        「p」で攻撃力を指定。「*」は「x」でも可。
+        「+t」でクリティカルトリガーを指定。省略可能です。
+        攻撃力指定で命中判定となり、成功数ではなく、ダメージを結果表示します。
+
+        【書式例】
+        ・5AV3 → 5d10で目標値3。
+        ・6AV2C0 → 6d10で目標値2。クリティカル無し。
+        ・4AV3*5 → 4d10で目標値3、攻撃力5の命中判定。
+        ・7AV2x10 → 7d10で目標値2、攻撃力10の命中判定。
+        ・8av4*7+10 → 8d10で目標値4、攻撃力7、クリティカルトリガー10の命中判定。
+      MESSAGETEXT
+
+      register_prefix(['\d+AV\d+((x|\*)\d+(\+\d+)?)?(c\d+)?'])
+
+      def initialize(command)
+        super(command)
+        @sort_add_dice = true # ダイスのソート有
+      end
+
+      def eval_game_system_specific_command(command)
+        # AVコマンド：調査判定, 成功判定
+        if command =~ /(\d+)AV(\d+)((x|\*)(\d+))?(\+(\d+))?(C(\d+))?$/i
+          diceCount = Regexp.last_match(1).to_i
+          target = Regexp.last_match(2).to_i
+          damage = (Regexp.last_match(5) || 0).to_i
+          criticalTrigger = (Regexp.last_match(7) || 0).to_i
+          criticalNumber = (Regexp.last_match(9) || 1).to_i
+          criticalNumber = 2 if criticalNumber > 3
+          return checkRoll(diceCount, target, damage, criticalTrigger, criticalNumber)
+        end
+
+        return nil
+      end
+
+      def checkRoll(diceCount, target, damage, criticalTrigger, criticalNumber)
+        totalSuccessCount = 0
+        totalCriticalCount = 0
+        text = ""
+
+        rollCount = diceCount
+
+        while rollCount > 0
+          diceArray = @randomizer.roll_barabara(rollCount, 10).sort
+          diceText = diceArray.join(",")
+
+          successCount = diceArray.count { |i| i <= target }
+          criticalCount = diceArray.count { |i| i <= criticalNumber }
+
+          totalSuccessCount += successCount
+          totalCriticalCount += criticalCount
+
+          text += "+" unless text.empty?
+          text += "#{successCount}[#{diceText}]"
+
+          rollCount = criticalCount
+        end
+
+        result = ""
+        isDamage = (damage != 0)
+
+        if isDamage
+          totalDamage = totalSuccessCount * damage + totalCriticalCount * criticalTrigger
+
+          result += "(#{diceCount}D10\<\=#{target}) ＞ #{text} ＞ Hits：#{totalSuccessCount}*#{damage}"
+          result += " + Trigger：#{totalCriticalCount}*#{criticalTrigger}" if  criticalTrigger > 0
+          result += " ＞ #{totalDamage}ダメージ"
+        else
+          result += "(#{diceCount}D10\<\=#{target}) ＞ #{text} ＞ 成功数：#{totalSuccessCount}"
+        end
+
+        result += " / #{totalCriticalCount}クリティカル" if totalCriticalCount > 0
+
+        return result
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/BBN.rb

@@ -0,0 +1,143 @@
+module BCDice
+  module GameSystem
+    class BBN < Base
+      # ダイスボットで使用するコマンドを配列で列挙する
+      register_prefix(['\d+BN.*'])
+
+      ID = 'BBN'.freeze
+
+      NAME = 'BBNTRPG'.freeze
+
+      SORT_KEY = 'ひいひいえぬTRPG'.freeze
+
+      HELP_MESSAGE = <<~MESSAGETEXT.freeze
+        ・判定(xBN±y>=z[c,f])
+        　xD6の判定。クリティカル、ファンブルの自動判定を行います。
+        　1Dのクリティカル値とファンブル値は1。2Dのクリティカル値とファンブル値は2。
+        　nDのクリティカル値とファンブル値は n/2 の切り上げ。
+        　クリティカルとファンブルが同時に発生した場合、クリティカルを優先。
+        　x：xに振るダイス数を入力。
+        　y：yに修正値を入力。省略可能。
+          z：zに目標値を入力。省略可能。
+          c：クリティカルに必要なダイス目「6」の数の増減。省略可能。
+          f：ファンブルに必要なダイス目「1」の数の増減。省略可能。
+        　例） 3BN+4　3BN>=8　3BN+1>=10[-1] 3BN+1>=10[,1] 3BN+1>=10[1,1]
+      MESSAGETEXT
+
+      def eval_game_system_specific_command(command)
+        unless parse(command)
+          return nil
+        end
+
+        # ダイスロール
+        dice_list = @randomizer.roll_barabara(@roll_times, 6)
+        dice = dice_list.sum()
+        dice_str = dice_list.join(",")
+
+        total = dice + @modify
+
+        # 出力文の生成
+        sequence = [
+          "(#{command})",
+          "#{dice}[#{dice_str}]#{@modify_str}",
+          total
+        ]
+
+        # クリティカルとファンブルが同時に発生した時にはクリティカルが優先
+        if critical_?(dice_list)
+          sequence.push("クリティカル！", *additional_roll(dice_list.count(6), total))
+        elsif fumble_?(dice_list)
+          sequence.push("ファンブル！")
+        elsif @difficulty
+          sequence.push(total >= @difficulty ? "成功" : "失敗")
+        end
+
+        return sequence.join(" ＞ ")
+      end
+
+      private
+
+      # コマンド文字列をパースする
+      #
+      # @param command [String] コマンド
+      # @return [Boolean] パースに成功したか
+      def parse(command)
+        m = /^(\d+)BN([+-]\d+)?(>=(([+-]?\d+)))?(\[([+-]?\d+)?(,([+-]?\d+))?\])?/.match(command)
+        unless m
+          return false
+        end
+
+        @roll_times = m[1].to_i
+        @modify_str = m[2] || ''
+        @modify = m[2].to_i
+        @difficulty = m[4] ? m[4].to_i : nil
+
+        base = critical_base(@roll_times)
+        @critical = base + m[7].to_i
+        @fumble = base + m[9].to_i
+
+        return true
+      end
+
+      # 振るダイスの数からクリティカルとファンブルの基本値を算出する
+      #
+      # @param roll_times [Integer] 振るダイスの数
+      # @return [Integer] クリティカルの値
+      def critical_base(roll_times)
+        case roll_times
+        when 1, 2
+          roll_times
+        else
+          (roll_times.to_f / 2).ceil
+        end
+      end
+
+      # @return [Boolean] クリティカルか
+      def critical_?(dice_list)
+        dice_list.count(6) >= @critical
+      end
+
+      # @return [Boolean] ファンブルか
+      def fumble_?(dice_list)
+        dice_list.count(1) >= @fumble
+      end
+
+      # クリティカルの追加ロールをする
+      # 追加ロールで6が出た場合、さらに追加ロールが行われる
+      #
+      # @param additional_dice [Integer] クリティカルによる追加のダイス数
+      # @param total [Integer] 現在の合計値
+      # @return [Array<String>]
+      def additional_roll(additional_dice, total)
+        sequence = []
+        reroll_count = 0
+
+        # 追加クリティカルは無限ループしうるので、10回に制限
+        while additional_dice > 0 && reroll_count < 10
+          reroll_count += 1
+
+          dice_list = @randomizer.roll_barabara(additional_dice, 6)
+          dice_total = dice_list.sum()
+          dice_str = dice_list.join(",")
+          additional_dice = dice_list.count(6)
+
+          sequence.push("#{total}+#{dice_total}[#{dice_str}]")
+          sequence.push("追加クリティカル！") if additional_dice > 0
+
+          total += dice_total
+        end
+
+        if additional_dice > 0
+          sequence.push("無限ループ防止のため中断")
+        end
+
+        sequence.push total
+        if @difficulty
+          sequence.push(total >= @difficulty ? "成功" : "失敗")
+        end
+
+        return sequence
+      end
+    end
+  end
+end