bcdice 3.0.0.pre.alpha.1

data/lib/bcdice/game_system/NightWizard3rd.rb

@@ -0,0 +1,24 @@
+# frozen_string_literal: true
+
+require 'bcdice/game_system/NightWizard'
+
+module BCDice
+  module GameSystem
+    class NightWizard3rd < NightWizard
+      # ゲームシステム名
+      NAME = 'ナイトウィザード The 3rd Edition'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'ないとういさあと3'
+
+      # ゲームシステムの識別子
+      ID = 'NightWizard3rd'
+
+      register_prefix(['([-+]?\d+)?NW.*', '2R6.*'])
+
+      def fumble_base_number(parsed)
+        parsed.passive_modify_number + parsed.active_modify_number
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/NightmareHunterDeep.rb

@@ -0,0 +1,117 @@
+# frozen_string_literal: true
+
+require "bcdice/command_parser"
+require "bcdice/format"
+
+module BCDice
+  module GameSystem
+    class NightmareHunterDeep < Base
+      # ゲームシステムの識別子
+      ID = 'NightmareHunterDeep'
+
+      # ゲームシステム名
+      NAME = 'ナイトメアハンター=ディープ'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'ないとめあはんたあていいふ'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        判定（xD6+y>=a, xD6+y, xD6)
+          出目6の個数をカウントして、その4倍を合計値に加算します。
+          また、宿命を獲得したか表示します。
+
+          Lv目標値 (xD6+y>=LVn, xD6+y>=NLn)
+            レベルで目標値を指定することができます。
+            LVn -> n*5+1, NLn -> n*5+5 に変換されます。
+          目標値'?' (xD6+y>=?)
+            目標値を '?' にすると何Lv成功か、何NL成功かを表示します。
+
+        ※判定コマンドは xD6 から始まる必要があります。また xD6 が複数あると反応しません。
+      INFO_MESSAGE_TEXT
+
+      register_prefix('\d+D6')
+
+      def initialize(command)
+        super(command)
+
+        @sort_add_dice = true
+      end
+
+      def eval_game_system_specific_command(command)
+        command = command
+                  .sub(/Lv(\d+)/i) { (Regexp.last_match(1).to_i * 5 - 1).to_s }
+                  .sub(/NL(\d+)/i) { (Regexp.last_match(1).to_i * 5 + 5).to_s }
+
+        parser = CommandParser.new(/^\d+D6$/)
+                              .allow_cmp_op(nil, :>=)
+                              .enable_question_target()
+        cmd = parser.parse(command)
+        unless cmd
+          return nil
+        end
+
+        times = cmd.command.to_i
+
+        dice_list = @randomizer.roll_barabara(times, 6).sort
+        dice_total = dice_list.sum()
+        total = dice_total + cmd.modify_number
+
+        suffix, revision = dice_revision(dice_list)
+        total += revision
+
+        target = cmd.question_target? ? "?" : cmd.target_number
+        result = result_text(total, cmd.cmp_op, target)
+
+        sequence = [
+          "(#{cmd})",
+          interim_expr(cmd, dice_total, dice_list),
+          expr_with_revision(dice_total + cmd.modify_number, suffix),
+          total,
+          result,
+          fate(dice_list),
+        ].compact
+
+        return sequence.join(" ＞ ")
+      end
+
+      def result_text(total, cmp_op, target)
+        return nil unless cmp_op == :>=
+
+        if target != "?"
+          return total >= target ? "成功" : "失敗"
+        end
+
+        success_lv = (total + 1) / 5
+        success_nl = (total - 5) / 5
+
+        return success_lv > 0 ? "Lv#{success_lv}/NL#{success_nl}成功" : "失敗"
+      end
+
+      # ナイトメアハンターディープ用宿命表示
+      def fate(dice_list)
+        dice_list.count(1) > 0 ? "宿命獲得" : nil
+      end
+
+      def interim_expr(cmd, dice_total, dice_list)
+        if dice_list.size > 1 || cmd.modify_number != 0
+          modifier = Format.modifier(cmd.modify_number)
+          "#{dice_total}[#{dice_list.join(',')}]#{modifier}"
+        end
+      end
+
+      def expr_with_revision(total, suffix)
+        suffix ? "#{total}#{suffix}" : nil
+      end
+
+      def dice_revision(dice_list)
+        count6 = dice_list.count(6)
+        if count6 > 0
+          return "+#{count6}*4", count6 * 4
+        else
+          return nil, 0
+        end
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/NinjaSlayer.rb

@@ -0,0 +1,274 @@
+# frozen_string_literal: true
+
+require 'bcdice/dice_table/table'
+
+module BCDice
+  module GameSystem
+    class NinjaSlayer < Base
+      # ゲームシステムの識別子
+      ID = 'NinjaSlayer'
+
+      # ゲームシステム名
+      NAME = 'ニンジャスレイヤーTRPG'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'にんしやすれいやあRPG'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~MESSAGETEXT
+        ・通常判定　NJ
+        　NJx[y] or NJx@y or NJx
+        　x=判定ダイス y=難易度 省略時はNORMAL(4)
+        　例:NJ4@H 難易度HARD、判定ダイス4で判定
+        ・回避判定　EV
+        　EVx[y]/z or EVx@y/z or EVx/z or EVx[y] or EVx@y or EVx
+        　x=判定ダイス y=難易度 z=攻撃側の成功数(省略可) 難易度を省略時はNORMAL(4)
+        　攻撃側の成功数を指定した場合、カウンターカラテ発生時には表示
+        　例:EV5/3 難易度NORMAL(省略時)、判定ダイス5、攻撃側の成功数3で判定
+        ・近接攻撃　AT
+        　ATx[y] or ATx@y or ATx
+        　x=判定ダイス y=難易度 省略時はNORMAL(4) サツバツ！発生時には表示
+        　例:AT6[H] 難易度HARD,判定ダイス5で近接攻撃の判定
+        ・サツバツ判定　SB
+        ・電子戦　EL
+        　ELx[y] or ELx@y or ELx
+        　x=判定ダイス y=難易度 省略時はNORMAL(4)
+        　例:EL6[H] 難易度HARD,判定ダイス5で電子戦の判定
+
+        ・難易度
+        　KIDS=K,EASY=E,NORMAL=N,HARD=H,ULTRA HARD=UH 数字にも対応
+      MESSAGETEXT
+
+      # ダイスボットで使用するコマンドを配列で列挙する
+      register_prefix([
+        'NJ\d+.*',
+        'EV\d+.*',
+        'AT\d+.*',
+        'EL\d+.*',
+        'SB'
+      ])
+
+      def initialize(command)
+        super(command)
+
+        @default_cmp_op = :>=
+        @default_target_number = 4
+      end
+
+      # 難易度の値の正規表現
+      DIFFICULTY_VALUE_RE = /UH|[2-6KENH]/i.freeze
+      # 難易度の正規表現
+      DIFFICULTY_RE = /\[(#{DIFFICULTY_VALUE_RE})\]|@(#{DIFFICULTY_VALUE_RE})/io.freeze
+
+      # 通常判定の正規表現
+      NJ_RE = /\A(S)?NJ(\d+)#{DIFFICULTY_RE}?\z/io.freeze
+      # 回避判定の正規表現
+      EV_RE = %r{\AEV(\d+)#{DIFFICULTY_RE}?(?:/(\d+))?\z}io.freeze
+      # 近接攻撃の正規表現
+      AT_RE = /\AAT(\d+)#{DIFFICULTY_RE}?\z/io.freeze
+      # 電子戦の正規表現
+      EL_RE = /\AEL(\d+)#{DIFFICULTY_RE}?\z/io.freeze
+
+      # バラバラロール結果の "(" の前までの先頭部分
+      B_ROLL_RESULT_HEAD_RE = /\A[^(]+/.freeze
+
+      # 回避判定のノード
+      EV = Struct.new(:num, :difficulty, :targetValue)
+      # 近接攻撃のノード
+      AT = Struct.new(:num, :difficulty)
+      # 電子戦のノード
+      EL = Struct.new(:num, :difficulty)
+
+      # 難易度の文字表現から整数値への対応
+      DIFFICULTY_SYMBOL_TO_INTEGER = {
+        'K' => 2,
+        'E' => 3,
+        'N' => 4,
+        'H' => 5,
+        'UH' => 6
+      }.freeze
+
+      def change_text(str)
+        m = NJ_RE.match(str)
+        return str unless m
+
+        b_roll = bRollCommand(m[2], integerValueOfDifficulty(m[3] || m[4]))
+        return "#{m[1]}#{b_roll}"
+      end
+
+      def eval_game_system_specific_command(command)
+        debug('eval_game_system_specific_command begin string', command)
+
+        if (table = TABLES[command])
+          return table.roll(randomizer)
+        end
+
+        case node = parse(command)
+        when EV
+          return executeEV(node)
+        when AT
+          return executeAT(node)
+        when EL
+          return executeEL(node)
+        else
+          return nil
+        end
+      end
+
+      private
+
+      # 構文解析する
+      # @param [String] command コマンド文字列
+      # @return [EV, AT, EL, nil]
+      def parse(command)
+        case command
+        when EV_RE
+          return parseEV(Regexp.last_match)
+        when AT_RE
+          return parseAT(Regexp.last_match)
+        when EL_RE
+          return parseEL(Regexp.last_match)
+        else
+          return nil
+        end
+      end
+
+      # 正規表現のマッチ情報から回避判定ノードを作る
+      # @param [MatchData] m 正規表現のマッチ情報
+      # @return [EV]
+      def parseEV(m)
+        num = m[1].to_i
+        difficulty = integerValueOfDifficulty(m[2] || m[3])
+        targetValue = m[4]&.to_i
+
+        return EV.new(num, difficulty, targetValue)
+      end
+
+      # 正規表現のマッチ情報から近接攻撃ノードを作る
+      # @param [MatchData] m 正規表現のマッチ情報
+      # @return [AT]
+      def parseAT(m)
+        num = m[1].to_i
+        difficulty = integerValueOfDifficulty(m[2] || m[3])
+
+        return AT.new(num, difficulty)
+      end
+
+      # 正規表現のマッチ情報から電子戦ノードを作る
+      # @param [MatchData] m 正規表現のマッチ情報
+      # @return [EL]
+      def parseEL(m)
+        num = m[1].to_i
+        difficulty = integerValueOfDifficulty(m[2] || m[3])
+
+        return EL.new(num, difficulty)
+      end
+
+      # 回避判定を行う
+      # @param [EV] ev 回避判定ノード
+      # @return [String] 回避判定結果
+      def executeEV(ev)
+        command = bRollCommand(ev.num, ev.difficulty)
+
+        rollResult = BCDice::CommonCommand::BarabaraDice.new(command, @randomizer, self).eval().sub(B_ROLL_RESULT_HEAD_RE, '')
+        return rollResult unless ev.targetValue
+
+        m = /成功数(\d+)/.match(rollResult)
+        raise '成功数が見つかりません' unless m
+
+        numOfSuccesses = m[1].to_i
+        if numOfSuccesses > ev.targetValue
+          return "#{rollResult} ＞ カウンターカラテ!!"
+        end
+
+        return rollResult
+      end
+
+      # 近接攻撃を行う
+      # @param [AT] at 近接攻撃ノード
+      # @return [String] 近接攻撃結果
+      def executeAT(at)
+        command = bRollCommand(at.num, at.difficulty)
+        rollResult = BCDice::CommonCommand::BarabaraDice.new(command, @randomizer, self).eval().sub(B_ROLL_RESULT_HEAD_RE, '')
+
+        # バラバラロールの出目を取得する
+        # TODO: バラバラロールの結果として、出目を配列で取得できるようにする
+        m = /＞ (\d+(?:,\d+)*)/.match(rollResult)
+        values = m[1].split(',').map(&:to_i)
+
+        numOfMaxValues = values.select { |v| v == 6 }.length
+
+        return numOfMaxValues >= 2 ? "#{rollResult} ＞ サツバツ!!" : rollResult
+      end
+
+      # 電子戦を行う
+      # @param [EL] el 電子戦ノード
+      # @return [String] 電子戦結果
+      def executeEL(el)
+        command = bRollCommand(el.num, el.difficulty)
+        rollResult = BCDice::CommonCommand::BarabaraDice.new(command, @randomizer, self).eval().sub(B_ROLL_RESULT_HEAD_RE, '')
+
+        # バラバラロールの出目を取得する
+        # TODO: バラバラロールの結果として、出目を配列で取得できるようにする
+        m = /＞ (\d+(?:,\d+)*)/.match(rollResult)
+        values = m[1].split(',').map(&:to_i)
+
+        numOfMaxValues = values.select { |v| v == 6 }.length
+
+        sumOfTrueValues = values.select { |v| v >= el.difficulty }.length
+
+        return numOfMaxValues >= 1 ? "#{rollResult} + #{numOfMaxValues} ＞ #{sumOfTrueValues + numOfMaxValues}" : rollResult
+      end
+
+      # 難易度の整数値を返す
+      # @param [String, nil] s 難易度表記
+      # @return [Integer] 難易度の整数値
+      # @raise [KeyError, IndexError] 無効な難易度表記が渡された場合。
+      #
+      # sは2から6までの数字あるいは'K', 'E', 'N', 'H', 'UH'。
+      # sがnilの場合は 4 を返す。
+      def integerValueOfDifficulty(s)
+        return 4 unless s
+
+        return s.to_i if /\A[2-6]\z/.match(s)
+
+        return DIFFICULTY_SYMBOL_TO_INTEGER.fetch(s.upcase)
+      end
+
+      # バラバラロールのコマンドを返す
+      # @param [#to_s] num ダイス数
+      # @param [#to_s] difficulty 難易度
+      # @return [String]
+      def bRollCommand(num, difficulty)
+        "#{num}B6>=#{difficulty}"
+      end
+
+      # サツバツ表
+      SATSUBATSU_TABLE = [
+        '「死ねーッ！」腹部に強烈な一撃！　敵はくの字に折れ曲がり、ワイヤーアクションめいて吹っ飛んだ！：本来のダメージ+1ダメージを与える。敵は後方の壁または障害物に向かって、何マスでもまっすぐ弾き飛ばされる（他のキャラのいるマスは通過する）。壁または障害物に接触した時点で、敵はさらに1ダメージを受ける。敵はこの激突ダメージに対して改めて『回避判定』を行っても良い。',
+        '「イヤーッ！」頭部への痛烈なカラテ！　眼球破壊もしくは激しい脳震盪が敵を襲う！：本来のダメージを与える。さらに敵の【ニューロン】と【ワザマエ】がそれぞれ1ずつ減少する（これによる最低値は1）。残虐ボーナスにより【万札】がD3発生。この攻撃を【カルマ：善】のキャラに対して行ってしまった場合、【DKK】がD3上昇する。',
+        '「苦しみ抜いて死ぬがいい」急所を情け容赦なく破壊！：本来のダメージ+1ダメージを与える。耐え難い苦痛により、敵は【精神力】が-2され、【ニューロン】が1減少する（これによる最低値は1）。残虐ボーナスにより【万札】がD3発生。この攻撃を【カルマ：善】のキャラに対して行ってしまった場合、【DKK】がD3上昇する。',
+        '「逃げられるものなら逃げてみよ」敵の脚を粉砕！：本来のダメージを与える。さらに敵の【脚力】がD3減少する（最低値は1）。残虐ボーナスにより【万札】がD3発生。この攻撃を【カルマ：善】のキャラに対して行ってしまった場合、【DKK】がD3上昇する。',
+        '「これで手も足も出まい！」敵の両腕を切り飛ばした！　鮮血がスプリンクラーめいて噴き出す！：本来のダメージ+1ダメージを与える。さらに敵の【ワザマエ】と【カラテ】がそれぞれ2減少する（最低値は1）。残虐ボーナスにより【万札】がD3発生。この攻撃を【カルマ：善】のキャラに対して行ってしまった場合、【DKK】がD3上昇する。',
+        '「イイイヤアアアアーーーーッ！」ヤリめいたチョップが敵の胸を貫通！　さらに心臓を掴み取り、握りつぶした！　ナムアミダブツ！：敵は残り【体力】に関係なく即死する。残虐ボーナスにより【万札】がD6発生。この攻撃を【カルマ：善】のキャラに対して行ってしまった場合、【DKK】がD6上昇する。'
+      ].freeze
+
+      # 表の定義
+      TABLES = {
+        'SB' => DiceTable::Table.new(
+          'サツバツ表',
+          '1D6',
+          SATSUBATSU_TABLE
+        )
+      }.freeze
+
+      # ダイスボットで使用するコマンドを配列で列挙する
+      register_prefix([
+        'NJ\d+.*',
+        'EV\d+.*',
+        'AT\d+.*',
+        'EL\d+.*'
+      ] + TABLES.keys)
+    end
+  end
+end

data/lib/bcdice/game_system/NjslyrBattle.rb

@@ -0,0 +1,54 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class NjslyrBattle < Base
+      # ゲームシステムの識別子
+      ID = 'NJSLYRBATTLE'
+
+      # ゲームシステム名
+      NAME = 'NJSLYRBATTLE'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'にんしやすれいやあはとる'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        ・カラテロール
+        2d6<=(カラテ点)
+        例）2d6<=5
+        (2D6<=5) ＞ 2[1,1] ＞ 2 ＞ 成功 重点 3 溜まる
+      INFO_MESSAGE_TEXT
+
+      # ゲーム別成功度判定(2D6)
+      def check_2D6(total, _dice_total, dice_list, cmp_op, target)
+        return '' if target == '?'
+        return '' if cmp_op != :<=
+
+        return success_text(total, target) + juuten(dice_list)
+      end
+
+      def success_text(total, target)
+        if total <= target
+          " ＞ 成功"
+        else
+          " ＞ 失敗"
+        end
+      end
+
+      def juuten(dice_list)
+        juuten = dice_list.count(1) + dice_list.count(6)
+
+        if dice_list[0] == dice_list[1]
+          juuten += 1
+        end
+
+        if juuten > 0
+          " 重点 #{juuten} 溜まる"
+        else
+          ""
+        end
+      end
+    end
+  end
+end