bcdice 3.10.0 → 3.12.0

data/lib/bcdice/game_system/SajinsenkiAGuS2E.rb

@@ -0,0 +1,285 @@
+# frozen_string_literal: true
+
+require 'bcdice/game_system/SajinsenkiAGuS'
+
+module BCDice
+  module GameSystem
+    class SajinsenkiAGuS2E < SajinsenkiAGuS
+      # ゲームシステムの識別子
+      ID = 'SajinsenkiAGuS2E'
+
+      # ゲームシステム名
+      NAME = '砂塵戦機アーガス2ndEdition'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'さしんせんきああかす2'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        ・一般判定Lv（チャンス出目0→判定0） nAG+x
+        　　　nは習得レベル、Lv0の場合nの省略可能。xは判定値修正（数式による修正可）、省略した場合はレベル修正0
+        　　　例）AG:習得レベル0の一般技能、1AG+1:習得レベル1・判定値修正+1の技能、AG+2-1：習得レベル0・判定値修正2-1の技能、(1-1)AG：習得レベル1・レベル修正-1の技能
+
+        ・適正距離での命中判定（チャンス出目0→判定0、HR算出）OM+y@z
+        　　　yは命中補正値（数式可）、zはクリティカル値。クリティカル値省略時は0
+        　　　HRの算出時には、HRが大きくなる場合に出目0を10に読み替えます。
+        　　　例）OM+18-6@2:命中補正値+18-6でクリティカル値2、適正距離の判定
+
+        ・非適正距離での命中判定（チャンス出目0→判定0、HR算出）NM+y@z
+        　　　yは命中補正値（数式可）、zはクリティカル値。クリティカル値省略時は0
+        　　　HRの算出時には、HRが大きくなる場合に出目0を10に読み替えます。
+        　　　例）NM+4-3:命中補正値+4-3で非適正距離の判定
+
+
+        ・『西風旅徨』で導入されたファンブル・ルールを用いた判定
+        　判定時にダイスがすべて8以上ならファンブル(自動失敗)です。
+        　それぞれのコマンドにWを付けると『西風旅徨』モードになります。
+        　　　・一般判定                nAGW+x
+        　　　・適正距離での命中判定    OMW+y@z
+        　　　・非適正距離での命中判定  NMW+y@z
+
+
+
+        ・クリティカル表　　 CR
+        ・鹵獲結果表　　　　 CAP
+        ・幕間クエスト表　　 INT
+        ・サルベージ表　　　 SAL
+        ・赤字ペナルティー表 DEF
+        ・特殊戦況表　　　　 SPE
+
+        ※通常の1D10などの10面ダイスにおいて出目10の読み替えはしません。コマンドのみです。
+        　ページ参照は、何もない場合は「ルールブック」、wは「西風旅徨」を示します。
+
+      INFO_MESSAGE_TEXT
+
+      def initialize(command)
+        super(command)
+        @enabled_d9 = true
+      end
+
+      def eval_game_system_specific_command(command)
+        super(command) ||
+          roll_ippan_west(command) ||
+          roll_hit_check_west(command) ||
+          roll_tables(command, SECOND_ED_TABLES)
+      end
+
+      def roll_ippan_west(command)
+        m = /AGW/.match(command)
+        return nil unless m
+
+        result = roll_ippan(command.sub(/(AG)W/) { ::Regexp.last_match(1) })
+        return change_fumble(result)
+      end
+
+      def roll_hit_check_west(command)
+        m = /[ON]MW/.match(command)
+        return nil unless m
+
+        result = roll_hit_check(command.sub(/([ON]M)W/) { ::Regexp.last_match(1) })
+        return change_fumble(result)
+      end
+
+      def change_fumble(result)
+        return nil if result.nil?
+
+        fumble_counts = result.rands.count { |val| val >= 8 }
+        if fumble_counts >= 2
+          result.text = result.text.sub(/(成功|失敗).*$/, 'ファンブル')
+          result.failure = true
+          result.success = false
+          result.fumble = true
+        end
+        return result
+      end
+
+      SECOND_ED_TABLES = {
+        "CAP" => DiceTable::Table.new(
+          "鹵獲結果表",
+          "2D10",
+          [
+            '0:敵A:GuS を完全な状態で鹵獲︕ ※総合価格÷ 2 で売却可。',
+            '1:敵A:GuS を完全な状態で鹵獲︕ ※総合価格÷ 2 で売却可。',
+            '2:敵A:GuS を完全な状態で鹵獲︕ ※総合価格÷ 2 で売却可。',
+            '3:敵A:GuS の兵装を鹵獲︕ ※敵A:GuS の装備している任意の兵装1つを獲得。',
+            '4:敵A:GuS の兵装を鹵獲︕ ※敵A:GuS の装備している任意の兵装1つを獲得。',
+            '5:敵A:GuS の兵装を鹵獲︕ ※敵A:GuS の装備している任意の兵装1つを獲得。',
+            '6:敵A:GuS の兵装を鹵獲︕ ※敵A:GuS の装備している任意の兵装1つを獲得。',
+            '7:敵A:GuS の兵装を鹵獲︕ ※敵A:GuS の装備している任意の兵装1つを獲得。',
+            '8:使えそうな兵装を発見︕ ※1D10 を振り、出目の部位の兵装1つを獲得。',
+            '9:使えそうな兵装を発見︕ ※1D10 を振り、出目の部位の兵装1つを獲得。',
+            '10:使えそうな兵装を発見︕ ※1D10 を振り、出目の部位の兵装1つを獲得。',
+            '11:使えそうな兵装を発見︕ ※1D10 を振り、出目の部位の兵装1つを獲得。',
+            '12:使えそうな兵装を発見︕ ※1D10 を振り、出目の部位の兵装1つを獲得。',
+            '13:使えそうな兵装を発見︕ ※1D10 を振り、出目の部位の兵装1つを獲得。',
+            '14:残念、完全にスクラップだ……。※部品代として［バランス値×300］cdtを獲得。',
+            '15:残念、完全にスクラップだ……。※部品代として［バランス値×300］cdtを獲得。',
+            '16:残念、完全にスクラップだ……。※部品代として［バランス値×300］cdtを獲得。',
+            '17:残念、完全にスクラップだ……。※部品代として［バランス値×300］cdtを獲得。',
+            '18:残念、完全にスクラップだ……。※部品代として［バランス値×300］cdtを獲得。',
+          ]
+        ),
+        "INT" => DiceTable::RangeTable.new(
+          "幕間クエスト表",
+          "1D100",
+          [
+            [1, '慰労 PC/クルー1名が、労ってくれる。 最大HP+4'],
+            [2..3, '感謝 PC/クルー1名が、感謝の気持ちを伝える。 最大HP+4'],
+            [4..5, '安堵 PC/ クルー1名が、安堵の気持ちを伝える。 最大HP+4'],
+            [6..7, '治療 戦闘中の怪我や急な病気で医療班のお世話になることに。 最大HP+4'],
+            [8..9, '日常 PC/クルー1名と、他愛のない日常の会話をする。 最大HP+4'],
+            [10..11, '遊興 PC/クルー1名と遊びに興じ、楽しい時を過ごす。 XP+1'],
+            [12..13, '勤労 PC/クルー1名と協力し、船内の仕事を行う。 XP+1'],
+            [14..15, '評価 PC/クルー1名が、仕事の出来を評価してくれる。 XP+1'],
+            [16..17, '調達 PC/クルー1名とともに生活品の買い出しを行うことに。 XP+1'],
+            [18..19, '社交 取引や補給などの仕事を通し、船外での社会経験を得る。 XP+1'],
+            [20..21, '注意 PC/クルー1名が、君の危険な戦闘行動について指摘する。 SP+1'],
+            [22..23, '反省 PC/クルー1名と、作戦行動の反省会を行う。 SP+1'],
+            [24..25, '鍛錬 PC/クルー1名に、模擬戦に付き合ってもらう。 SP+1'],
+            [26..27, '感心 PC/クルー1名の仕事や戦闘行動に対し、感銘を受ける。 SP+1'],
+            [28..29, '改良 整備班と協力し、A:GuSのプログラムの改良に努める。 SP+1'],
+            [30..31, '割引 兵装が割引されているのを発見し、格安で購入できる。 基本兵装1つを半額で購入可。'],
+            [32..33, '発見 クルー1名が、兵装を入手した。 基本兵装1つを半額で購入可。'],
+            [34..35, '発明 クルー1名が、兵装を開発した。 基本兵装1つを半額で購入可。'],
+            [36..37, '大発見 クルー1名が、強力な兵装を入手した！ 上級兵装1つを購入可。（p37参照）'],
+            [38..39, '大発明 クルー1名が、新たな兵装を開発した！ 上級兵装1つを購入可。（p37参照）'],
+            [40..41, '昔話 PC/クルー1名に、自分の過去について語ってしまう。 最大LP+1'],
+            [42..43, '願望 PC/クルー1名に、自分の夢や未来について語ってしまう。 最大LP+1'],
+            [44..45, '家族 PC/クルー1名に、自分の家族について語ってしまう。 最大LP+1'],
+            [46..47, '望郷 PC/クルー1名に、自分の故郷について語ってしまう。 最大LP+1'],
+            [48..49, '知人 PC/クルー1名に、自分の知人を重ね合わせてしまう。 最大LP+1'],
+            [50..51, '個人収入 チームとは関係ない個人的な商売や取引で利益を得る。 4,000cdtを獲得。'],
+            [52..53, '臨時収入 思いがけない臨時の収入が入る。 4,000cdt を獲得。'],
+            [54..55, '取引 クルー1 名と取引を行い、予算を獲得することに成功する。 4,000cdtを獲得。'],
+            [56..57, '裏取引 クルー1 名と秘密の取引を行い、見返りとして予算を獲得。 6,000cdtを獲得。'],
+            [58..59, '賞与 オーナーが特別に報酬を用意してくれた！ 6,000cdtを獲得。'],
+            [60..61, '改造 整備班とともに機体の改造に明け暮れる。 任意の改造Lv+1。（上限：2Lv）'],
+            [62..63, '鹵獲 鹵獲品の中から機体の改造に使えるものを発見。 任意の改造Lv+1。（上限：2Lv）'],
+            [64..65, '強化 案機体を強化するための画期的なアイディアを思いつく。 任意の改造Lv+1。（上限：2Lv）'],
+            [66..67, '懇願 整備班に頼みこみ、機体の改造をしてもらう。 任意の改造Lv+1。（上限：3Lv）'],
+            [68..69, '掘出物 掘出物を発見、整備班が早速機体に取り付けてくれた。 任意の改造Lv+1。（上限：3Lv）'],
+            [70..71, '募集 クルーの募集を行ったところ、何名か候補が現れた。 クルー1名を割安（20,000cdt）で雇用可。'],
+            [72..73, '勧誘 有能な人材を発見した。ぜひ雇い入れたいものだが。 クルー1名を割安（20,000cdt）で雇用可。'],
+            [74..75, '推薦 依頼人からの推薦で、クルーを1名紹介される。 クルー1名を割安（20,000cdt）で雇用可。'],
+            [76..77, '志願 クルーとして雇って欲しい、という人物が現れる。クルー1名を割安（15,000cdt）で雇用可。'],
+            [78..79, '成長 見習いクルーが大分成長してきた。もう1人前と見てもいい。クルー1名を割安（15,000cdt）で雇用可。'],
+            [80..81, '交渉 依頼人との交渉がうまくいき、少し報酬を割増ししてもらえる。 チーム予算を8,000cdt獲得。'],
+            [82..83, '節約 経費が思ったよりも節約できた。経理やオーナーの機嫌が良い。 チーム予算を8,000cdt獲得。'],
+            [84..85, '賞金 今回の敵は賞金がかかっていたようで臨時収入が入った。 チーム予算を8,000cdt獲得。'],
+            [86..87, '名声 チームの名声が高まっており、クルーの自尊心が刺激される。 チーム予算を12,000cdt獲得。'],
+            [88..89, '一致団結 オーナーからの労いがあり、クルー一同の結束力が高まる。 チーム予算を12,000cdt獲得。'],
+            [90..91, '点検 PC/クルー1名とシップに異状がないか点検作業を行う。 拠点AP+10。'],
+            [92..93, '補修 整備班とともにくたびれたシップの改装作業を行う。 拠点AP+10。'],
+            [94..95, '全面改修 艦内の問題箇所を全面的に改修する。 拠点AP+10。'],
+            [96..97, '自由 行動自由気ままに好きなことをして過ごす。 00～49の任意の効果を適用可。（p69参照）'],
+            [98..99, '歓迎 街の住民にたいへんな歓迎を受ける。 50～95の任意の効果を適用可。（p69参照）'],
+            [100, '慰労 PC/クルー1名が、労ってくれる。 最大HP+4'],
+          ]
+        ),
+        "SAL" => DiceTable::RangeTable.new(
+          "サルベージ表",
+          "1D100",
+          [
+            [1..2, '大失敗…。大変な損失を出してしまった…。 -5,000cdt'],
+            [3..5, '失敗…。かなりの損失を出してしまった…。 -3,000cdt'],
+            [6..9, '失敗…。損失を出してしまった…。 -1,000cdt'],
+            [10, '大成功！大きな収益を上げることができた！ +5,000cdt'],
+            [11..19, '空振り……何の成果も得られなかった…。 0cdt'],
+            [20, '掘り出し物を発見！2Lv改造済の【基本携行兵装】一つを獲得！ 一般兵装（→p34）'],
+            [21..22, 'ジャンク品を発見。船の装甲強化くらいには使えそうだ。 拠点AP+［5］'],
+            [23..25, 'ジャンク品を発見。少し赤字だがまあやむを得まい。 +1,000cdt'],
+            [26..29, 'ジャンク品を発見。手間賃くらいにはなった。 +2,000cdt'],
+            [30, '掘り出し物を発見！2Lv改造済の【基本外装兵装】一つを獲得！ 一般兵装（→p35）'],
+            [31..32, '成功！少しだが利益を出すことができた！ +3,000cdt'],
+            [33..35, '成功！まずまずの利益を出すことができた！ +5,000cdt'],
+            [36..39, '大成功！大きな利益を出すことができた！ +7,000cdt'],
+            [40..41, '良質のバッテリーを獲得。 EP+［4］'],
+            [42..43, '良質の装甲版を獲得。 AP+［4］'],
+            [44, '大失敗…。大きな損失を出してしまった…。 -5,000cdt'],
+            [45, 'ブレードを獲得。 →p34'],
+            [46, 'ランスを獲得。 →p34'],
+            [47, 'アンカーブレードを獲得。 →p34'],
+            [48, 'パイルバンカーを獲得。 →p34'],
+            [49, 'ハンドガンを獲得。 →p35'],
+            [50, 'ヘビーハンドガンを獲得。 →p35'],
+            [51, 'ライフルを獲得。 →p35'],
+            [52, 'アンカーショットを獲得。 →p35'],
+            [53, 'マシンガンSを獲得。 →p35'],
+            [54, 'マシンガンLを獲得。 →p35'],
+            [55, 'ミサイルポッドSを獲得。 →p35'],
+            [56, 'ミサイルポッドLを獲得。 →p35'],
+            [57, 'バズーカを獲得。 →p35'],
+            [58, 'カノンを獲得。 →p35'],
+            [59, 'ライトシールドを獲得。 →p35'],
+            [60, 'ミドルシールドを獲得。 →p35'],
+            [61, 'ヘビーシールドを獲得。 →p35'],
+            [62, 'レーダーユニットを獲得。 →p35'],
+            [63, 'ECMユニットを獲得。 →p35'],
+            [64, 'サブブースターを獲得。 →p36'],
+            [65, 'ディフェンスサポートを獲得。 →p36'],
+            [66, 'コンバットサポートを獲得。 →p36'],
+            [67, '大失敗…。大きな損失を出してしまった…。 -5,000cdt'],
+            [68, 'ショットサポートを獲得。 →p36'],
+            [69, 'パワーローダーを獲得。 →p36'],
+            [70, 'サブバッテリーを獲得。 →p36'],
+            [71, 'サブバッテリー+を獲得。 →p36'],
+            [72, 'ファランクスを獲得。 →p36'],
+            [73, 'リアクティブアーマーを獲得。 →p36'],
+            [74, '強化装甲版を獲得。 →p36'],
+            [75, 'ヘビーマシンガンSを獲得。 →p35'],
+            [76, 'ヘビーマシンガンLを獲得。 →p35'],
+            [77, '掘り出し物を発見！25,000cdt以下の【上級外装兵装】一つを獲得！ 上級兵装 (→p37）'],
+            [78..79, '失敗…。かなりの損失を出してしまった…。 -3,000cdt'],
+            [80, '医療用品を獲得！ 調息値+［1］（全PC）'],
+            [81, '大型ソーラーパネルを獲得！ 整備値+［1］（全PC）'],
+            [82, '艦内用の環境設備を獲得！ サポート使用回数+［1］'],
+            [83, 'リニアガンを獲得。 →p37'],
+            [84, 'リニアマシンガンを獲得。 →p37'],
+            [85, 'ジャマ―ユニットを獲得。 →p37'],
+            [86, 'センサー+を獲得。 →p37'],
+            [87, 'パワーローダー++を獲得。 →p37'],
+            [88, 'サブバッテリー++を獲得。 →p37'],
+            [89, 'フレームカバーを獲得。 →p37'],
+            [90, '空振り……何の成果も得られなかった…。 0cdt'],
+            [91..92, '良質なA:GuSのパーツを獲得！機体の改造や予備パーツとして使えそうだ！ 改造Lv+［1］（上限：3Lv）'],
+            [93..95, 'A:GuSのパーツを獲得！機体の改造や予備パーツとして使えそうだ。 改造Lv+［1］（上限：1Lv）'],
+            [96..98, '多少傷ついているが、A:GuS1機を獲得！→10,000cdtで売却可能→10,000cdt支払えば補修して取得が可能。 （→p30～33）（→w23）'],
+            [99, 'A:GuS1機をほぼ完全な状態で獲得！ （→p30～33）（→w23）'],
+            [100, '掘り出し物を発見！25,000cdt以下の【上級携行兵装】一つを獲得！ 上級兵装 (→p37）'],
+          ]
+        ),
+        "DEF" => DiceTable::RangeTable.new(
+          "赤字ペナルティー表",
+          "1D10",
+          [
+            [1, '解雇 クルー1名を失う。10,000cdtを得る。'],
+            [2..3, '劣化 任意のチーム能力一つは-1Lv。10,000cdtを得る。'],
+            [4..5, '借金 次回の維持費が+20,000cdt。10,000cdtを得る。'],
+            [6..7, '酷使 各PCは最大HP-4。10,000cdtを得る。'],
+            [8..9, '売却 各PCはオプション以外の兵装を一つずつ廃棄。10,000cdtを得る。'],
+            [10, '解雇 クルー1名を失う。10,000cdtを得る。'],
+          ]
+        ),
+        # DiceTable::Tableが現状1D9に未対応
+        "SPE" => DiceTable::Table.new(
+          "特殊戦況表",
+          "1D10",
+          [
+            '混戦 以下のエリアのユニットをシャッフルする。♠：A⇔C ♣：B⇔D ♦：A⇔D ♥：B⇔C',
+            '乱戦 R中、すべての攻撃は［距離：○］になる。',
+            '逸失 敵拠点エリアのユニットを［♠♣：A ♦♥：B］に移動。味方拠点エリアのユニットを［♠♣：D ♦♥：C］に移動。',
+            '突風 艦船、オブジェクト以外の全ユニットを「風向き」方向に移動。',
+            '流砂 以下のエリアのユニットは脱出のため、MPとEPを［3］点失う。［♠：A ♣：B ♦：C ♥：D］',
+            '混乱 母船内でトラブル発生。R中、【整備】は行えない。［♠♥：味方側 ♣♦：敵側］',
+            '岩盤 以下のエリアのユニットは岩盤に乗り上げ、《クリティカル》が1回発生。［♠：A ♣：B ♦：C ♥：D］',
+            '混乱 R中、イニシア値を逆順で処理する。 ※【エイミング】等の高低も逆として処理する。',
+            '飛礫 飛礫によって、すべてのユニットはAPを［1D10］（以下のエリアでは［2D10］）点失う。［♠：A ♣：B ♦：C ♥：D］',
+            '雨 雨は砂を土へと変えてしまう。R中、全ユニット移動/突撃不可。',
+          ]
+        ),
+      }.freeze
+      register_prefix_from_super_class()
+      register_prefix('-?\d*AGW', 'OMW', 'NMW', SECOND_ED_TABLES.keys)
+    end
+  end
+end

data/lib/bcdice/game_system/SkynautsBouken.rb

@@ -96,7 +96,7 @@ module BCDice
             "大漁\n船内マップ上にいるすべてのキャラクターの【生命点】の最大値を「2点」増加する。この効果は重複しない。\n　飛翔イカの群れだ！　どうも、 窓から漏れる明かりにつられてやってきたらしい。網をはろう。今夜は新鮮なイカがたらふく食べられそうだ。",
             "気流+1\n飛空艇コマを1スポット分進める。\n　他の空域よりも、比較的強い流れが一定の方向に吹き続けている空域。ときに探空士たちの手助けになり、ときに探空士たちに立ちはだかる。どの空域にどんな風が流れているかを見極めて進むのが、空の旅での基本だ。",
             "ケセランパセラン\nキミは任意の船内マップ上に配置されてるパーツ1つを選択する。そのパーツが【快適度】のキーワード効果がある場合、このセッションの間、その数値は「1点」高いものとして扱う。\n　ふわふわとした大きな綿毛のような浮遊生物。その毛のさわり心地は、上級階級のソファにも使われるほど柔らかい。捕まえて飼うことができれば、一服の癒やしをあたえてくれることだろう。",
-            "うさこぷたー\nキミの【生命点】を「3点」回復する。\n　ふわふわとした大きな綿毛のような浮遊生物。その毛のさわり心地は、上流階級のソファにも使われるほど柔らかい。 捕まえて飼うことができれば、一服の癒やしをあたえてくれることだろう。"
+            "うさこぷたー\nキミの【生命点】を「3点」回復する。\n　ふたつの耳を回転させて空を飛ぶうさぎのような浮遊生物が、ずっとこちらを見つめている。かわいいはかわいいのだが、こいつは一体なんなんだろう……。"
           ]
         ),
         "NEO" => DiceTable::Table.new(

data/lib/bcdice/game_system/SwordWorld.rb

@@ -334,6 +334,11 @@ module BCDice
             if command.modifier_after_half != 0
               text += Format.modifier(command.modifier_after_half)
             end
+          elsif command.one_and_a_half
+            text = "(#{text})*1.5"
+            if command.modifier_after_one_and_a_half != 0
+              text += Format.modifier(command.modifier_after_one_and_a_half)
+            end
           end
           sequence.push(text)
         elsif command.half
@@ -342,6 +347,12 @@ module BCDice
             text += Format.modifier(command.modifier_after_half)
           end
           sequence.push(text)
+        elsif command.one_and_a_half
+          text = "#{rateResults.first}*1.5"
+          if command.modifier_after_one_and_a_half != 0
+            text += Format.modifier(command.modifier_after_one_and_a_half)
+          end
+          sequence.push(text)
         end
 
         if round > 1
@@ -355,6 +366,11 @@ module BCDice
           if command.modifier_after_half != 0
             total += command.modifier_after_half
           end
+        elsif command.one_and_a_half
+          total = (total * 1.5).ceil
+          if command.modifier_after_one_and_a_half != 0
+            total += command.modifier_after_one_and_a_half
+          end
         end
 
         total_text = total.to_s

data/lib/bcdice/game_system/SwordWorld2_5.rb

@@ -39,6 +39,13 @@ module BCDice
         　クリティカル値を指定しない場合、クリティカルなしと扱われます。
         　例）HK20　　K20h　　HK10-5@9　　K10-5@9H　　K20gfH　　K20+8H+2　　K20+8H+(1+1)
 
+        ・レーティング表の1.5倍 (OHKx, KxOH+N)
+        　レーティング表の先頭または末尾に"OH"をつけると、レーティング表を振って最終結果を1.5倍します。
+        　末尾につけた場合、直後に修正ををつけることで、1.5倍後の加減算を行うことができます。
+        　この際、複数の項による修正にはカッコで囲うことが必要です（カッコがないとパースに失敗します）
+        　クリティカル値を指定しない場合、クリティカルなしと扱われます。
+        　例）OHK20　　K20oh　　OHK10-5@9　　K20+8OH+2　　K20+8OH+(1+1)
+
         ・ダイス目の修正（運命変転やクリティカルレイ用）
         　末尾に「$修正値」でダイス目に修正がかかります。
         　$＋１と修正表記ならダイス目に＋修正、＄９のように固定値ならダイス目をその出目に差し替え。
@@ -82,7 +89,7 @@ module BCDice
         　アビスカース表を出すことができます。
       INFO_MESSAGE_TEXT
 
-      register_prefix('H?K', 'Gr', '2D6?@\d+', 'FT', 'TT', 'Dru', 'ABT')
+      register_prefix('H?K', 'OHK', 'Gr', '2D6?@\d+', 'FT', 'TT', 'Dru', 'ABT')
 
       def eval_game_system_specific_command(command)
         case command

data/lib/bcdice/game_system/VampireTheMasquerade5th.rb

@@ -22,14 +22,14 @@ module BCDice
             2VMF6+3
             2VMI9H3
 
-          難易度指定：成功数のカウント、判定成功と失敗、Critical処理、Critical Winのチェックを行う
+          難易度指定：成功数のカウント、判定成功と失敗、Critical処理、Critical Win、Total Failureのチェックを行う
                      （Hungerダイスがある場合）Messy CriticalとBestial Failureチェックを行う
           例) (難易度)VMF(通常ダイス)+(Hungerダイス)
               (難易度)VMF(通常ダイス)
               (難易度)VMI(通常ダイス)H(Hungerダイス)
               (難易度)VMI(通常ダイス)
 
-          難易度省略：成功数のカウント、判定失敗、Critical処理、（Hungerダイスがある場合）Bestial Failureチェックを行う
+          難易度省略：成功数のカウント、判定失敗、Critical処理、Total Failure、（Hungerダイスがある場合）Bestial Failureチェックを行う
                       判定成功、Messy Criticalのチェックを行わない
                       Critical Win、（Hungerダイスがある場合）Bestial Failure、Messy Criticalのヒントを出力
           例) VMF(通常ダイス)+(Hungerダイス)
@@ -58,7 +58,7 @@ module BCDice
       register_prefix('\d*(VMF|(VMI\d*(H\d?)?))')
 
       def eval_game_system_specific_command(command)
-        m = /\A(\d+)?(((VMF)(\d)(\+(\d+))?)|((VMI)(\d)(H(\d+))?))$/.match(command)
+        m = /\A(\d+)?(((VMF)(\d+)(\+(\d+))?)|((VMI)(\d+)(H(\d+))?))$/.match(command)
         unless m
           return ''
         end
@@ -67,6 +67,9 @@ module BCDice
         if dice_pool < 0
           return "ダイスプールより多いHungerダイスは指定できません。"
         end
+        if hunger_dice_pool && hunger_dice_pool > 5
+          return "Hungerダイス指定は5ダイスが最大です。"
+        end
 
         dice_text, success_dice, ten_dice, = make_dice_roll(dice_pool)
         result_text = "(#{dice_pool}D10"
@@ -128,6 +131,9 @@ module BCDice
             if hunger_botch_dice > 0
               return Result.fumble("#{result_text}：判定失敗! [Bestial Failure]")
             end
+            if success_dice == 0
+              return Result.fumble("#{result_text}：判定失敗! [Total Failure]")
+            end
 
             return Result.failure("#{result_text}：判定失敗!")
           end
@@ -137,7 +143,7 @@ module BCDice
               return Result.fumble("#{result_text}：判定失敗! [Bestial Failure]")
             end
 
-            return Result.failure("#{result_text}：判定失敗!")
+            return Result.fumble("#{result_text}：判定失敗! [Total Failure]")
           else
             if hunger_botch_dice > 0
               result_text = "#{result_text}\n　判定失敗なら [Bestial Failure]"

data/lib/bcdice/game_system/WerewolfTheApocalypse5th.rb

@@ -0,0 +1,173 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class WerewolfTheApocalypse5th < Base
+      # ゲームシステムの識別子
+      ID = 'WerewolfTheApocalypse5th'
+
+      # ゲームシステム名
+      NAME = 'Werewolf: The Apocalypse 5th Edition'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'わあうふるしあほかりふす5'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~MESSAGETEXT
+        ・判定コマンド(nWAFx+x または nWAIxRx)
+          WAFコマンドはRageダイスとダイスプールを個別に指定する。
+          WAIコマンドはRageダイスをダイスプールの内数として指定する。
+
+            例：難易度2、9ダイスプールでRageダイス3個の場合、それぞれ以下のようなコマンドとなる。
+            2WAF6+3
+            2WAI9R3
+
+          難易度指定：成功数のカウント、判定成功と失敗、（Rageダイスがある場合）Brutal outcome、Critical処理、Total Failure、Critical Winのチェックを行う
+          例) (難易度)WAF(通常ダイス)+(Rageダイス)
+              (難易度)WAF(通常ダイス)
+              (難易度)WAI(通常ダイス)R(Rageダイス)
+              (難易度)WAI(通常ダイス)
+
+          難易度省略：成功数のカウント、判定失敗、（Rageダイスがある場合）Brutal outcome、Critical処理、Total Failureのチェックを行う
+                      判定成功チェックを行わない
+                      Critical Winのヒントを出力
+          例) WAF(通常ダイス)+(Rageダイス)
+              WAF(通常ダイス)
+              WAI(通常ダイス)R(Rageダイス)
+              WAI(通常ダイス)
+
+          難易度0指定：Critical処理と成功数のカウントを行い、全てのチェックを行わない
+          例) 0WAF(通常ダイス)+(Rageダイス)
+              0WAF(通常ダイス)
+              0WAI(通常ダイス)+(Rageダイス)
+              0WAI(通常ダイス)
+
+      MESSAGETEXT
+
+      DIFFICULTY_INDEX                          = 1
+      DICE_POOL_RAGE_DICE_NO_INCLUDED_INDEX     = 5
+      RAGE_DICE_NO_INCLUDED_INDEX               = 7
+      COMMAND_RAGE_DICE_INCLUDED_INDEX          = 9
+      DICE_POOL_RAGE_DICE_INCLUDED_INDEX        = 10
+      RAGE_DICE_INCLUDED_INDEX                  = 12
+
+      # 難易度に指定可能な特殊値
+      NOT_CHECK_SUCCESS = -1 # 判定成功にかかわるチェックを行わない(判定失敗に関わるチェックは行う)
+
+      register_prefix('\d*(WAF|(WAI\d*(R\d?)?))')
+
+      def eval_game_system_specific_command(command)
+        m = /\A(\d+)?(((WAF)(\d+)(\+(\d+))?)|((WAI)(\d+)(R(\d+))?))$/.match(command)
+        unless m
+          return ''
+        end
+
+        dice_pool, rage_dice_pool = get_dice_pools(m)
+        if dice_pool < 0
+          return "ダイスプールより多いRageダイス指定はできません。"
+        end
+        if rage_dice_pool && rage_dice_pool > 5
+          return "5を超えるRageダイス指定はできません。"
+        end
+
+        dice_text, success_dice, ten_dice, = make_dice_roll(dice_pool)
+        result_text = "(#{dice_pool}D10"
+
+        if rage_dice_pool
+          rage_dice_text, rage_success_dice, rage_ten_dice, brutal_result_dice = make_dice_roll(rage_dice_pool)
+
+          brutal_outcome = brutal_result_dice / 2
+          ten_dice += rage_ten_dice
+          success_dice += rage_success_dice
+
+          result_text = "#{result_text}+#{rage_dice_pool}D10) ＞ [#{dice_text}]+[#{rage_dice_text}] "
+        else
+          rage_ten_dice = 0
+          brutal_outcome = 0
+          result_text = "#{result_text}) ＞ [#{dice_text}] "
+        end
+
+        success_dice += get_critical_success(ten_dice)
+
+        difficulty = m[DIFFICULTY_INDEX] ? m[DIFFICULTY_INDEX].to_i : NOT_CHECK_SUCCESS
+
+        return get_roll_result(result_text, success_dice, ten_dice, rage_ten_dice, brutal_outcome, difficulty)
+      end
+
+      private
+
+      def get_dice_pools(m)
+        rage_dice_included_command = m[COMMAND_RAGE_DICE_INCLUDED_INDEX]
+        if rage_dice_included_command && rage_dice_included_command == "WAI"
+          # Rage Diceを内数処理するの場合
+          rage_dice_pool = m[RAGE_DICE_INCLUDED_INDEX]&.to_i
+          dice_pool = m[DICE_POOL_RAGE_DICE_INCLUDED_INDEX].to_i - (rage_dice_pool || 0)
+        else
+          # Rage DiceがPLによる内数指定の場合
+          rage_dice_pool = m[RAGE_DICE_NO_INCLUDED_INDEX]&.to_i
+          dice_pool = m[DICE_POOL_RAGE_DICE_NO_INCLUDED_INDEX].to_i
+        end
+        return dice_pool, rage_dice_pool
+      end
+
+      def get_roll_result(result_text, success_dice, ten_dice, _rage_ten_dice, brutal_outcome, difficulty)
+        is_critical = ten_dice >= 2
+
+        if brutal_outcome > 0 && difficulty != 0
+          success_dice += 4
+          result_text = "#{result_text} [Brutal outcome] 自動失敗、または 成功数=#{success_dice}"
+        else
+          result_text = "#{result_text} 成功数=#{success_dice}"
+        end
+
+        if difficulty > 0
+          result_text = "#{result_text} 難易度=#{difficulty}"
+          if success_dice >= difficulty
+            result_text = "#{result_text} 差分=#{success_dice - difficulty}"
+
+            if is_critical
+              result_data = Result.critical("#{result_text}：判定成功! [Critical Win]")
+              return brutal_outcome > 0 ? result_data.text : result_data
+            end
+            result_data = Result.success("#{result_text}：判定成功!")
+            return brutal_outcome > 0 ? result_data.text : result_data
+          else
+            if success_dice == 0
+              return Result.fumble("#{result_text}：判定失敗! [Total Failure]")
+            else
+              return Result.failure("#{result_text}：判定失敗!")
+            end
+          end
+        elsif difficulty < 0
+          if success_dice == 0
+            return Result.fumble("#{result_text}：判定失敗! [Total Failure]")
+          else
+            if is_critical
+              result_text = "#{result_text}\n　判定成功なら [Critical Win]"
+            end
+            return result_text.to_s
+          end
+        end
+
+        # 難易度0指定(=全ての判定チェックを行わない)
+        return result_text.to_s
+      end
+
+      def get_critical_success(ten_dice)
+        # 10の目が2個毎に追加2成功
+        return ((ten_dice / 2) * 2)
+      end
+
+      def make_dice_roll(dice_pool)
+        dice_list = @randomizer.roll_barabara(dice_pool, 10)
+
+        dice_text = dice_list.join(',')
+        success_dice = dice_list.count { |x| x >= 6 }
+        ten_dice = dice_list.count(10)
+        brutal_result_dice = dice_list.count(1) + dice_list.count(2)
+
+        return dice_text, success_dice, ten_dice, brutal_result_dice
+      end
+    end
+  end
+end