bcdice 3.0.0.pre.alpha.1

data/lib/bcdice/game_system/EmbryoMachine.rb

@@ -0,0 +1,227 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class EmbryoMachine < Base
+      # ゲームシステムの識別子
+      ID = 'EmbryoMachine'
+
+      # ゲームシステム名
+      NAME = 'エムブリオマシンRPG'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'えむふりおましんRPG'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        ・判定ロール(EMt+m@c#f)
+        　目標値t、修正値m、クリティカル値c(省略時は20)、ファンブル値f(省略時は2)で攻撃判定を行います。
+        　命中した場合は命中レベルと命中部位も自動出力します。
+        　Rコマンドに読み替えされます。
+        ・各種表
+        　・命中部位表　HLT
+        　・白兵攻撃ファンブル表　MFT
+        　・射撃攻撃ファンブル表　SFT
+      INFO_MESSAGE_TEXT
+
+      register_prefix(['EM\d+.*', 'HLT', 'MFT', 'SFT', '2R10.*'])
+
+      def initialize(command)
+        super(command)
+
+        @sort_add_dice = true
+      end
+
+      def replace_text(string)
+        string
+          .gsub(/EM(\d+)([\+\-][\+\-\d]+)(@(\d+))(\#(\d+))/i) { "2R10#{Regexp.last_match(2)}>=#{Regexp.last_match(1)}[#{Regexp.last_match(4)},#{Regexp.last_match(6)}]" }
+          .gsub(/EM(\d+)([\+\-][\+\-\d]+)(\#(\d+))/i) { "2R10#{Regexp.last_match(2)}>=#{Regexp.last_match(1)}[20,#{Regexp.last_match(4)}]" }
+          .gsub(/EM(\d+)([\+\-][\+\-\d]+)(@(\d+))/i) { "2R10#{Regexp.last_match(2)}>=#{Regexp.last_match(1)}[#{Regexp.last_match(4)},2]" }
+          .gsub(/EM(\d+)([\+\-][\+\-\d]+)/i) { "2R10#{Regexp.last_match(2)}>=#{Regexp.last_match(1)}[20,2]" }
+          .gsub(/EM(\d+)(@(\d+))(\#(\d+))/i) { "2R10>=#{Regexp.last_match(1)}[#{Regexp.last_match(3)},#{Regexp.last_match(5)}]" }
+          .gsub(/EM(\d+)(\#(\d+))/i) { "2R10>=#{Regexp.last_match(1)}[20,#{Regexp.last_match(3)}]" }
+          .gsub(/EM(\d+)(@(\d+))/i) { "2R10>=#{Regexp.last_match(1)}[#{Regexp.last_match(3)},2]" }
+          .gsub(/EM(\d+)/i) { "2R10>=#{Regexp.last_match(1)}[20,2]" }
+      end
+
+      # ゲーム別成功度判定(nD10)
+      def check_nD10(total, dice_total, _dice_list, cmp_op, target)
+        return '' if target == '?'
+        return '' unless cmp_op == :>=
+
+        if dice_total <= 2
+          " ＞ ファンブル"
+        elsif dice_total >= 20
+          " ＞ クリティカル"
+        elsif total >= target
+          " ＞ 成功"
+        else
+          " ＞ 失敗"
+        end
+      end
+
+      def checkRoll(string)
+        string = replace_text(string)
+
+        return nil unless /(^|\s)S?(2[rR]10([\+\-\d]+)?([>=]+(\d+))(\[(\d+),(\d+)\]))(\s|$)/i =~ string
+
+        string = Regexp.last_match(2)
+        diff = 0
+        crit = 20
+        fumble = 2
+        mod = 0
+        modText = Regexp.last_match(3)
+
+        diff = Regexp.last_match(5).to_i if Regexp.last_match(5)
+        crit = Regexp.last_match(7).to_i if Regexp.last_match(7)
+        fumble = Regexp.last_match(8).to_i if Regexp.last_match(8)
+        mod = ArithmeticEvaluator.eval(modText) if modText
+
+        dice_arr = @randomizer.roll_barabara(2, 10).sort
+        dice_now = dice_arr.sum()
+        dice_str = dice_arr.join(",")
+
+        dice_loc = @randomizer.roll_sum(2, 10)
+        big_dice = dice_arr[1]
+        output = "#{dice_now}[#{dice_str}]"
+        total_n = dice_now + mod
+        if mod > 0
+          output += "+#{mod}"
+        elsif mod < 0
+          output += mod.to_s
+        end
+        if output =~ /[^\d\[\]]+/
+          output = "(#{string}) ＞ #{output} ＞ #{total_n}"
+        else
+          output = "(#{string}) ＞ #{output}"
+        end
+        # 成功度判定
+        if dice_now <= fumble
+          output += " ＞ ファンブル"
+        elsif dice_now >= crit
+          output += " ＞ クリティカル ＞ " + get_hit_level_table(big_dice) + "(ダメージ+10) ＞ [#{dice_loc}]#{get_hit_location_table(dice_loc)}"
+        elsif total_n >= diff
+          output += " ＞ 成功 ＞ " + get_hit_level_table(big_dice) + " ＞ [#{dice_loc}]#{get_hit_location_table(dice_loc)}"
+        else
+          output += " ＞ 失敗"
+        end
+
+        return output
+      end
+
+      def eval_game_system_specific_command(command)
+        debug("eval_game_system_specific_command command", command)
+
+        if (result = checkRoll(command))
+          return result
+        end
+
+        output = '1'
+        type = ""
+        number = 0
+
+        case command
+        when /HLT/i
+          type = '命中部位'
+          number = @randomizer.roll_sum(2, 10)
+          output = get_hit_location_table(number)
+        when /SFT/i
+          type = '射撃ファンブル'
+          number = @randomizer.roll_sum(2, 10)
+          output = get_shoot_fumble_table(number)
+        when /MFT/i
+          type = '白兵ファンブル'
+          number = @randomizer.roll_sum(2, 10)
+          output = get_melee_fumble_table(number)
+        end
+
+        if output != '1'
+          output = "#{type}表(#{number}) ＞ #{output}"
+        end
+        return output
+      end
+
+      # ** 命中部位表
+      def get_hit_location_table(num)
+        table = [
+          [4, '頭'],
+          [7, '左脚'],
+          [9, '左腕'],
+          [12, '胴'],
+          [14, '右腕'],
+          [17, '右脚'],
+          [20, '頭'],
+        ]
+
+        return get_table_by_number(num, table)
+      end
+
+      # ** ファンブル表
+      def get_shoot_fumble_table(num) # 射撃攻撃ファンブル表
+        output = '1'
+        table = [
+          '暴発した。使用した射撃武器が搭載されている部位に命中レベルAで命中する。',
+          'あまりに無様な誤射をした。パイロットの精神的負傷が2段階上昇する。',
+          '誤射をした。自機に最も近い味方機体に命中レベルAで命中する。',
+          '誤射をした。対象に最も近い味方機体に命中レベルAで命中する。',
+          '武装が暴発した。使用した射撃武器が破損する。ダメージは発生しない。',
+          '転倒した。次のセグメントのアクションが待機に変更される。',
+          '弾詰まりを起こした。使用した射撃武器は戦闘終了まで使用できなくなる。',
+          '砲身が大きく歪んだ。使用した射撃武器による射撃攻撃の命中値が戦闘終了まで-3される。',
+          '熱量が激しく増大した。使用した射撃武器の消費弾薬が戦闘終了まで+3される。',
+          '暴発した。使用した射撃武器が搭載されている部位に命中レベルBで命中する。',
+          '弾薬が劣化した。使用した射撃武器の全てのダメージが戦闘終了まで-2される。',
+          '無様な誤射をした。パイロットの精神的負傷が1段階上昇する。',
+          '誤射をした。対象に最も近い味方機体に命中レベルBで命中する。',
+          '誤射をした。自機に最も近い味方機体に命中レベルBで命中する。',
+          '砲身が歪んだ。使用した射撃武器による射撃攻撃の命中値が戦闘終了まで-2される。',
+          '熱量が増大した。使用した射撃武器の消費弾薬が戦闘終了まで+2される。',
+          '砲身がわずかに歪んだ。使用した射撃武器による射撃攻撃の命中値が戦闘終了まで-1される。',
+          '熱量がやや増大した。使用した射撃武器の消費弾薬が戦闘終了まで+1される。',
+          '何も起きなかった。',
+        ]
+        dc = 2
+        output = table[num - dc] if table[num - dc]
+        return output
+      end
+
+      def get_melee_fumble_table(num) # 白兵攻撃ファンブル表
+        output = '1'
+        table = [
+          '大振りしすぎた。使用した白兵武器が搭載されている部位の反対の部位(右腕に搭載されているなら左側)に命中レベルAで命中する。',
+          '激しく頭を打った。パイロットの肉体的負傷が2段階上昇する。',
+          '過負荷で部位が爆発した。使用した白兵武器が搭載されている部位が全壊する。ダメージは発生せず、搭載されている武装も破損しない。',
+          '大振りしすぎた。使用した白兵武器が搭載されている部位の反対の部位(右腕に搭載されているなら左側)に命中レベルBで命中する。',
+          '武装が爆発した。使用した白兵武器が破損する。ダメージは発生しない。',
+          '部分的に機能停止した。使用した白兵武器は戦闘終了まで使用できなくなる。',
+          '転倒した。次のセグメントのアクションが待機に変更される。',
+          '激しい刃こぼれを起こした。使用した白兵武器の全てのダメージが戦闘終了まで-3される。',
+          '地面の凹凸にはまった。次の2セグメントは移動を行うことができない。',
+          '刃こぼれを起こした。使用した白兵武器の全てのダメージが戦闘終了まで-2される。',
+          '大振りしすぎた。使用した白兵武器が搭載されている部位の反対の部位(右腕に搭載されているなら左側)に命中レベルCで命中する。',
+          '頭を打った。パイロットの肉体的負傷が1段階上昇する。',
+          '駆動系が損傷した。移動力が戦闘終了まで-2される(最低1)。',
+          '間合いを取り損ねた。隣接している機体(複数の場合は1機をランダムに決定)に激突する。',
+          '機体ごと突っ込んだ。機体が向いている方角へ移動力をすべて消費するまで移動する。',
+          '制御系が損傷した。回避値が戦闘終了まで-1される(最低1)。',
+          '踏み誤った。機体が向いている方角へ移動力の半分を消費するまで移動する。',
+          'たたらを踏んだ。機体が向いている方角へ1の移動力で移動する。',
+          '何も起きなかった。',
+        ]
+        dc = 2
+        output = table[num - dc] if table[num - dc]
+        return output
+      end
+
+      def get_hit_level_table(num)
+        table = [
+          [6, '命中レベルC'],
+          [9, '命中レベルB'],
+          [10, '命中レベルA'],
+        ]
+
+        return get_table_by_number(num, table)
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/EndBreaker.rb

@@ -0,0 +1,132 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class EndBreaker < Base
+      # ゲームシステムの識別子
+      ID = 'EndBreaker'
+
+      # ゲームシステム名
+      NAME = 'エンドブレイカー！'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'えんとふれいかあ'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~MESSAGETEXT
+        ・判定 (nEB)
+          n個のD6を振る判定。ダブルトリガー発動で自動振り足し。
+        ・各種表
+          ・生死不明表 (LDUT)
+      MESSAGETEXT
+
+      register_prefix(['\d+EB', 'LDUT'])
+
+      def initialize(command)
+        super(command)
+
+        @enabled_d66 = true
+        @d66_sort_type = D66SortType::NO_SORT
+      end
+
+      def eval_game_system_specific_command(command)
+        if command =~ /(\d+)EB/i
+          diceCount = Regexp.last_match(1).to_i
+          return checkRoll(diceCount)
+        end
+
+        tableName = ""
+        text = ""
+        number = 0
+
+        case command
+        when "LDUT"
+          tableName = "生死不明表"
+          text, number = getLifeAndDeathUnknownResult()
+        else
+          return nil
+        end
+
+        result = "#{tableName}(#{number}):#{text}"
+
+        return result
+      end
+
+      def checkRoll(diceCount)
+        debug("EndBreaker diceCount", diceCount)
+
+        rollCount = diceCount # ダブルトリガー
+
+        result = ""
+        diceFullList = []
+
+        while rollCount != 0
+          diceList = @randomizer.roll_barabara(rollCount, 6).sort
+          diceFullList.concat(diceList)
+
+          # 1の出目ごとにダブルトリガーで2個ダイス追加
+          rollCount = diceList.select { |i| i == 1 }.size * 2
+
+          result += "[#{diceList.join}]"
+          result += " ダブルトリガー! " if rollCount > 0
+        end
+
+        # ダイスの出目の個数を集計
+        result += " ＞"
+        (2..6).each do |num|
+          count = diceFullList.select { |i| i == num }.size
+          result += " [#{num}:#{count}個]" unless count == 0
+        end
+
+        return result
+      end
+
+      def getLifeAndDeathUnknownResult()
+        table = [
+          ' 1日：生還！',
+          ' 1日：生還！',
+          ' 1日：生還！',
+          ' 1日：生還！',
+          ' 1日：生還！',
+          ' 1日：生還！',
+
+          ' 1日：生還！',
+          ' 5日：敵に捕らわれ、ひどい暴行と拷問を受けた。',
+          ' 2日：謎の人物に命を救われた。',
+          '10日：奴隷として売り飛ばされた。',
+          ' 8日：おぞましい儀式の生贄として連れ去られた。',
+          ' 9日：幽閉・投獄された。',
+
+          ' 1日：生還！',
+          ' 7日：モンスター蠢く地下迷宮に滑落した。',
+          '12日強力なマスカレイドにとらわれ、実験台にされた。',
+          ' 8日：放浪中に遭遇した事件を、颯爽と解決していた。',
+          ' 5日：飢餓状態に追い込まれた。',
+          '15日：記憶を失い放浪した。',
+
+          ' 1日：生還！',
+          '10日：異性に命を救われて、手厚い看病を受けた。',
+          ' 3日：負傷からくる熱病で、生死の境を彷徨った。',
+          '11日：闘奴にされたが、戦いと友情の末に自由を獲得した。',
+          ' 6日：負傷したまま川に落ち、遥か下流まで流された。',
+          ' 9日：敵に連れ去られ、執拗な拷問を受け続けた。',
+
+          ' 1日：生還！',
+          ' 4日：繰り返す「死の悪夢」に苛まれた。',
+          ' 3日：巨獣の巣に連れ去られた。',
+          '10日：謎の集団に救われて、手厚い看病を受けた。',
+          ' 3日：チッタニアンの集落に迷い込み、もてなしを受けた。',
+          ' 7日：ピュアリィの群れにとらわれ、弄ばれた。',
+
+          ' 1日：生還！',
+          ' 6日：楽園のような場所を発見し、しばらく逗留した。',
+          ' 9日：盗賊団に救われ、恩返しとして少し用心棒をした。',
+          '10日：熱病の見せる官能的な幻影にとらわれ、彷徨った。',
+          ' 5日：謎の賞金首に狙われ、傷めつけられていた。',
+          ' - ：「五分五分」の一般判定。失敗すると死亡。',
+        ]
+        return get_table_by_d66(table)
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/EtrianOdysseySRS.rb

@@ -0,0 +1,27 @@
+# frozen_string_literal: true
+
+require 'bcdice/game_system/SRS'
+
+# 世界樹の迷宮SRSのダイスボット
+module BCDice
+  module GameSystem
+    class EtrianOdysseySRS < SRS
+      # ゲームシステムの識別子
+      ID = 'EtrianOdysseySRS'
+
+      # ゲームシステム名
+      NAME = '世界樹の迷宮SRS'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'せかいしゆのめいきゆうSRS'
+
+      # 固有のコマンドの接頭辞を設定する
+      register_prefix(['2D6.*', 'EO.*', 'SQ.*'])
+
+      # 成功判定のエイリアスコマンドを設定する
+      set_aliases_for_srs_roll('EO', 'SQ')
+
+      HELP_MESSAGE = help_message()
+    end
+  end
+end

data/lib/bcdice/game_system/Fiasco.rb

@@ -0,0 +1,123 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class Fiasco < Base
+      # ゲームシステムの識別子
+      ID = 'Fiasco'
+
+      # ゲームシステム名
+      NAME = 'フィアスコ'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'ふいあすこ'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<INFO_MESSAGE_TEXT
+  ・判定コマンド(FSx, WxBx)
+    相関図・転落要素用(FSx)：相関図や転落要素のためにx個ダイスを振り、出目ごとに分類する
+    黒白差分判定用(WxBx)  ：転落、残響のために白ダイス(W指定)と黒ダイス(B指定)で差分を求める
+      ※ WとBは片方指定(Bx, Wx)、入替指定(WxBx,BxWx)可能
+
+INFO_MESSAGE_TEXT
+
+      COMMAND_TYPE_INDEX = 1
+
+      START_DICE_INDEX = 2
+
+      BW_FIRST_DICE_INDEX = 2
+      BW_SECOND_DICE_INDEX = 5
+      BW_SECOND_DICE_TAG_INDEX = 4
+
+      START_COMMAND_TAG = "FS"
+      W_DICEROLL_COMMAND_TAG = "W"
+      B_DICEROLL_COMMAND_TAG = "B"
+
+      register_prefix(['(FS|[WB])(\d+).*'])
+
+      def eval_game_system_specific_command(command)
+        m = /\A(FS|[WB])(\d+)(([WB])(\d+))?/.match(command)
+        unless m
+          return ''
+        end
+
+        type = m[COMMAND_TYPE_INDEX]
+        if type == START_COMMAND_TAG
+          return makeStartDiceRoll(m)
+        else
+          return makeWhiteBlackDiceRoll(type, m)
+        end
+      end
+
+      def makeStartDiceRoll(m)
+        dice = m[START_DICE_INDEX].to_i
+
+        dice_list = @randomizer.roll_barabara(dice, 6)
+
+        diceList = [0, 0, 0, 0, 0, 0]
+        dice_list.each do |takeDice|
+          diceList[takeDice - 1] += 1
+        end
+
+        return "１ => #{diceList[0]}個 ２ => #{diceList[1]}個 ３ => #{diceList[2]}個 ４ => #{diceList[3]}個 ５ => #{diceList[4]}個 ６ => #{diceList[5]}個"
+      end
+
+      def makeWhiteBlackDiceRoll(type, m)
+        if type == W_DICEROLL_COMMAND_TAG
+          whiteTotal, whiteDiceText, blackTotal, blackDiceText = makeArgsDiceRoll(m[BW_FIRST_DICE_INDEX], m[BW_SECOND_DICE_INDEX])
+          result = "白#{whiteTotal}[#{whiteDiceText}]"
+          if blackDiceText
+            if m[BW_SECOND_DICE_TAG_INDEX] == W_DICEROLL_COMMAND_TAG
+              return "#{m}：白指定(#{W_DICEROLL_COMMAND_TAG})は重複できません。"
+            end
+
+            result += " 黒#{blackTotal}[#{blackDiceText}]"
+          end
+        elsif type == B_DICEROLL_COMMAND_TAG
+          blackTotal, blackDiceText, whiteTotal, whiteDiceText = makeArgsDiceRoll(m[BW_FIRST_DICE_INDEX], m[BW_SECOND_DICE_INDEX])
+          result = "黒#{blackTotal}[#{blackDiceText}]"
+          if whiteDiceText
+            if m[BW_SECOND_DICE_TAG_INDEX] == B_DICEROLL_COMMAND_TAG
+              return "#{m}：黒指定(#{B_DICEROLL_COMMAND_TAG})は重複できません。"
+            end
+
+            result += " 白#{whiteTotal}[#{whiteDiceText}]"
+          end
+        else
+          return ''
+        end
+
+        if blackTotal > whiteTotal
+          return "#{result} ＞ 黒#{blackTotal - whiteTotal}"
+        elsif blackTotal < whiteTotal
+          return "#{result} ＞ 白#{whiteTotal - blackTotal}"
+        end
+
+        return "#{result} ＞ 0"
+      end
+
+      def makeArgsDiceRoll(firstDice, secondDice)
+        firstDice = firstDice.to_i
+        secondDice = secondDice&.to_i
+
+        secondTotal = 0
+
+        dice_list = @randomizer.roll_barabara(firstDice, 6)
+        firstTotal = dice_list.sum()
+        firstDiceText = dice_list.join(",")
+
+        if secondDice
+          if secondDice > 0
+            dice_list = @randomizer.roll_barabara(secondDice, 6)
+            secondTotal = dice_list.sum()
+            secondDiceText = dice_list.join(",")
+          else
+            secondDiceText = "0"
+          end
+        end
+
+        return firstTotal, firstDiceText, secondTotal, secondDiceText
+      end
+    end
+  end
+end