bcdice 3.0.0.pre.alpha.1

data/lib/bcdice/game_system/Raisondetre.rb

@@ -0,0 +1,171 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class Raisondetre < Base
+      # ゲームシステムの識別子
+      ID = 'Raisondetre'
+
+      # ゲームシステム名
+      NAME = '叛逆レゾンデートル'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'はんきやくれそんてとおる'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~MESSAGETEXT
+        判定：[判定値]RD[技能][@目標値]
+        ダメージロール：[ダイス数]DD[装甲]
+
+        []内のコマンドは省略可能。
+        「判定値」で判定に使用するダイス数を指定。省略時は「1」。0以下も指定可。
+        「技能」で有効なダイス数を指定。省略時は「1」。
+        達成値はクリティカルを含めて、「最も高くなる」ように計算します。
+        「@目標値」指定で、判定の成否を追加表示します。
+
+        ダメージロールは[装甲]指定で、有効なダイス数と0の出目の数を表示します。
+        [装甲]省略時は、ダイス結果のみ表示します。（複数の対象への攻撃時用）
+
+        【書式例】
+        ・RD → 1Dで達成値を表示。
+        ・2RD1@8 → 2D（1個選択）で目標値8の判定。
+        ・-3RD → 1Dでダイスペナルティ-4の判定。
+        ・4DD2 → 4Dで装甲2のダメージロール。
+      MESSAGETEXT
+
+      def initialize(command)
+        super(command)
+        @sort_add_dice = true # ダイスのソート有
+      end
+
+      register_prefix([
+        '(-)?(\d+)?RD(\d+)?(@(\d+))?',
+        '(-)?(\d+)?DD([1-9])?([\+\-]\d+)?'
+      ])
+
+      def eval_game_system_specific_command(command)
+        if command =~ /(-)?(\d+)?RD(\d+)?(@(\d+))?$/i
+          diceCount = (Regexp.last_match(2) || 1).to_i
+          diceCount *= -1 unless Regexp.last_match(1).nil?
+          choiceCount = (Regexp.last_match(3) || 1).to_i
+          target = (Regexp.last_match(5) || 0).to_i
+
+          return checkRoll(diceCount, choiceCount, target)
+
+        elsif command =~ /(-)?(\d+)?DD([1-9])?([\+\-]\d+)?$/i
+          diceCount = (Regexp.last_match(2) || 1).to_i
+          diceCount *= -1 unless Regexp.last_match(1).nil?
+          armor = (Regexp.last_match(3) || 0).to_i
+          if armor > 0
+            armor += (Regexp.last_match(4) || 0).to_i
+            armor = 1 if  armor < 1
+            armor = 9 if  armor > 9
+          end
+
+          return checkDamage(diceCount, armor)
+
+        end
+
+        return nil
+      end
+
+      def checkRoll(diceCount, choiceCount, target)
+        if diceCount <= 0
+          correction = 1 + diceCount * -1
+          rollCount = 1
+        else
+          correction = 0
+          rollCount = diceCount
+        end
+
+        diceArray = @randomizer.roll_barabara(rollCount, 10).sort
+        diceText = diceArray.join(',')
+
+        diceArray.map! { |x| x == 10 ? 0 : x }
+        diceArray.map! { |i| i - correction }
+        diceText2 = diceArray.sort.join(',')
+
+        funbleArray = diceArray.select { |i| i <= 1 }
+        isFunble = (funbleArray.size >= rollCount)
+
+        dice = 0
+        success = 0
+        unless isFunble
+          criticalCount = diceArray.count(0)
+          critical = criticalCount * 10
+
+          choiceArray = diceArray.reverse
+          choiceArray.delete(0)
+          choiceArray = choiceArray.slice(0..(choiceCount - 1))
+          choiceText = choiceArray.join(',')
+          dice = choiceArray.inject(:+)
+          success = dice + critical
+        end
+
+        result = "#{rollCount}D10"
+        result += "-#{correction}" if correction > 0
+        result += " ＞ [#{diceText}] ＞ [#{diceText2}] ＞ "
+
+        if isFunble
+          result += "達成値：0 (Funble)"
+        else
+          result += "#{dice}[#{choiceText}]"
+          result += "+#{critical}" if critical > 0
+          result += "=達成値：#{success}"
+          result += " (#{criticalCount}Critical)" if critical > 0
+        end
+
+        if target > 0
+          result += ">=#{target} "
+          result += "【成功】" if  success >= target
+          result += "【失敗】" if  success < target
+        end
+
+        return result
+      end
+
+      def checkDamage(diceCount, armor)
+        if diceCount <= 0
+          correction = 1 + diceCount * -1
+          rollCount = 1
+        else
+          correction = 0
+          rollCount = diceCount
+        end
+
+        dice_list = @randomizer.roll_barabara(rollCount, 10).sort
+        diceText = dice_list.join(",")
+
+        diceArray = dice_list.map { |x| x == 10 ? 0 : x }.sort
+        criticalCount = diceArray.count(0)
+        diceArray.map! { |i| i - correction }
+        diceText2 = diceArray.join(",")
+
+        result = "#{rollCount}D10"
+        result += "-#{correction}" if correction > 0
+        result += " ＞ [#{diceText}] ＞ [#{diceText2}]"
+
+        if armor > 0
+          resultArray = []
+          success = 0
+
+          diceArray.each do |i|
+            if i >= armor
+              resultArray.push(i)
+              success += 1
+            else
+              resultArray.push("×")
+            end
+          end
+          resultText = resultArray.join(',')
+
+          result += " ＞ [#{resultText}]>=#{armor} 有効数：#{success}"
+        end
+
+        result += "　0=#{criticalCount}個"
+
+        return result
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/RecordOfLodossWar.rb

@@ -0,0 +1,58 @@
+require 'bcdice/command_parser'
+
+module BCDice
+  module GameSystem
+    class RecordOfLodossWar < Base
+      ID = 'RecordOfLodossWar'.freeze
+      NAME = 'ロードス島戦記RPG'.freeze
+      SORT_KEY = 'ろおとすとうせんきRPG'.freeze
+
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT.freeze
+        ●判定
+        　LW<=(目標値)で判定。
+        　達成値が目標値の1/10(端数切り上げ)以下であれば大成功。1～10であれば自動成功。
+        　91～100であれば自動失敗となります。
+
+        ●回避判定
+        　LWD<=(目標値)で回避判定。この時出目が51以上で自動失敗となります。
+
+        　判定と回避判定は、どちらもコマンドだけの場合、出目の表示と自動成功と自動失敗の判定のみを行います。
+      INFO_MESSAGE_TEXT
+
+      register_prefix(['LW.*'])
+
+      def eval_game_system_specific_command(command)
+        parser = CommandParser.new("LW", "LWD")
+        cmd = parser.parse(command)
+
+        if cmd.nil? || ![nil, :<=].include?(cmd.cmp_op)
+          return nil
+        end
+
+        auto_failure = cmd.command == "LWD" ? 51 : 91
+        critical = (cmd.target_number.to_f / 10).ceil
+
+        dice_value = @randomizer.roll_once(100)
+
+        result =
+          if dice_value >= auto_failure
+            "自動失敗(#{auto_failure})"
+          elsif dice_value <= critical
+            "大成功(#{critical})"
+          elsif dice_value <= 10
+            "自動成功"
+          elsif cmd.cmp_op
+            dice_value <= cmd.target_number ? "成功" : "失敗"
+          end
+
+        sequence = [
+          "(1D100#{cmd.cmp_op}#{cmd.target_number})",
+          dice_value.to_s,
+          result
+        ].compact
+
+        return sequence.join(" ＞ ")
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/RecordOfSteam.rb

@@ -0,0 +1,149 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class RecordOfSteam < Base
+      # ゲームシステムの識別子
+      ID = 'RecordOfSteam'
+
+      # ゲームシステム名
+      NAME = 'Record of Steam'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'れこおとおふすちいむ'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~MESSAGETEXT
+        2S2@1
+        RecordOfSteam : (2S2@1) ＞ 1,2,3,4 ＞ 1回転 ＞ 成功数2
+
+        4S3@2
+        RecordOfSteam : (4S3@2) ＞ 2,1,2,4,4,4,2,3,4,5,6,6 ＞ 4回転 ＞ 成功数5
+      MESSAGETEXT
+
+      register_prefix(['\d+S\d+.*'])
+
+      # サンプルのダイスコマンドは「nSt@c」で n=ダイス個数, t=目標値, c=クリティカル値。@cのみ省略可
+
+      def eval_game_system_specific_command(command)
+        unless /(\d+)[sS](\d+)(@(\d+))?/i =~ command
+          return "1"
+        end
+
+        # $x の結果は正規表現マッチングすると新しい値に書き換わってしまうので、
+        # マッチングした直後に変数に格納してしまうのが大事なポイント！
+        diceCount = Regexp.last_match(1).to_i
+        targetNumber = Regexp.last_match(2).to_i
+        criticalValue = Regexp.last_match(4)
+        criticalValue ||= 1
+        criticalValue = criticalValue.to_i
+
+        if diceCount >= 150
+          return "(多分)無限個なので振れません！ ヤメテクダサイ、(プロセスが)死んでしまいますっ"
+        end
+
+        if criticalValue >= 3
+          return "(多分)無限個なので振れません！ ヤメテクダサイ、(プロセスが)死んでしまいますっ"
+        end
+
+        specialValue = criticalValue
+
+        rollResult, successCount, roundCount, specialCount, fumbleCount = getDiceRollResult(diceCount, targetNumber, criticalValue, specialValue)
+
+        output = "(#{command}) ＞ #{rollResult}"
+
+        roundCountText = getRoundCountText(roundCount)
+        successText = getSuccessText(successCount)
+        specialText = getSpecialText(specialCount)
+        fumbleText = getFumbleText(fumbleCount)
+
+        result = "#{output}#{roundCountText}#{specialText}#{successText}#{fumbleText}"
+
+        return result
+      end
+
+      def getDiceRollResult(diceCount, targetNumber, criticalValue, specialValue)
+        successCount = 0
+        roundCount = 0
+        rollResult = ""
+        specialCount = 0
+        specialFlag = false
+        fumbleCount = 0
+        fumbleFlag = false
+
+        while diceCount > 0
+          diceList = @randomizer.roll_barabara(diceCount, 6)
+          diceListText = diceList.join(",")
+
+          rollResult += "," if rollResult != ""
+          rollResult += diceListText
+
+          if diceList.uniq.length == 1 && roundCount == 0
+            if diceList.uniq.first <= specialValue
+              specialFlag = true
+            elsif diceList.uniq.first == 6
+              fumbleFlag = true
+            end
+          end
+          debug("diceList", diceList)
+
+          if specialFlag
+            specialCount = 1
+            successCount = diceCount * 3
+
+            return rollResult, successCount, roundCount, specialCount, fumbleCount
+          elsif fumbleFlag
+            fumbleCount = 1
+
+            return rollResult, successCount, roundCount, specialCount, fumbleCount
+          end
+
+          diceCount = 0
+
+          diceList.map do |diceValue|
+            debug("diceValue", diceValue)
+            debug("criticalValue", criticalValue)
+            debug("specialValue", specialValue)
+
+            if diceValue <= criticalValue
+              diceCount += 2
+              roundCount += 1
+            end
+
+            successCount += 1 if diceValue <= targetNumber
+          end
+        end
+
+        return rollResult, successCount, roundCount, specialCount, fumbleCount
+      end
+
+      def getRoundCountText(roundCount)
+        if  roundCount <= 0
+          return ""
+        end
+
+        return " ＞ #{roundCount}回転"
+      end
+
+      def getSuccessText(successCount)
+        if successCount > 0
+          return " ＞ 成功数#{successCount}"
+        end
+
+        return " ＞ 失敗"
+      end
+
+      def getSpecialText(specialCount)
+        if specialCount == 1
+          return " ＞ スペシャル"
+        end
+      end
+
+      def getFumbleText(fumbleCount)
+        if fumbleCount == 1
+          return " ＞ ファンブル"
+        end
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/RokumonSekai2.rb

@@ -0,0 +1,110 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class RokumonSekai2 < Base
+      # ゲームシステムの識別子
+      ID = 'RokumonSekai2'
+
+      # ゲームシステム名
+      NAME = '六門世界RPG セカンドエディション'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'ろくもんせかいRPG2'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        ・判定
+        aRSm<=t
+        能力値a,修正値m,目標値tで判定ロールを行います。
+        Rコマンド(3R6m<=t[a])に読み替えます。
+        成功度、評価、ボーナスダイスを自動表示します。
+        　例) 3RS+1<=9　3R6+1<=9[3]
+      INFO_MESSAGE_TEXT
+
+      register_prefix(['\d+RS.*', '3R6.*'])
+
+      def initialize(command)
+        super(command)
+
+        @sort_add_dice = true
+      end
+
+      def replace_text(string)
+        string = string.gsub(/(\d+)RS([\+\-][\+\-\d]+)<=(\d+)/i) { "3R6#{Regexp.last_match(2)}<=#{Regexp.last_match(3)}[#{Regexp.last_match(1)}]" }
+        string = string.gsub(/(\d+)RS<=(\d+)/i) { "3R6<=#{Regexp.last_match(2)}[#{Regexp.last_match(1)}]" }
+
+        return string
+      end
+
+      def eval_game_system_specific_command(string)
+        string = replace_text(string)
+        unless /3R6([\+\-\d]*)<=(\d+)\[(\d+)\]/i =~ string
+          return nil
+        end
+
+        modText = Regexp.last_match(1)
+        target = Regexp.last_match(2).to_i
+        abl = Regexp.last_match(3).to_i
+
+        mod = 0
+        if modText
+          mod = ArithmeticEvaluator.eval(modText)
+        end
+
+        dstr, suc, sum = rokumon2_roll(mod, target, abl)
+        output = "#{sum}[#{dstr}] ＞ #{suc} ＞ 評価#{rokumon2_suc_rank(suc)}"
+
+        if suc != 0
+          output += "(+#{suc}d6)"
+        end
+
+        output = "(#{string}) ＞ #{output}"
+
+        return output
+      end
+
+      def rokumon2_roll(mod, target, abl)
+        suc = 0
+
+        dice = @randomizer.roll_barabara(3 + mod.abs, 6).sort
+        dicestr = dice.join(",")
+
+        mod.abs.times do |_i|
+          if mod < 0
+            dice.shift
+          else
+            dice.pop
+          end
+        end
+
+        cnt5 = 0
+        cnt2 = 0
+        sum = 0
+
+        dice.each do |die1|
+          cnt5 += 1 if die1 >= 5
+          cnt2 += 1 if die1 <= 2
+          suc += 1  if die1 <= abl
+          sum += die1
+        end
+
+        if sum < target
+          suc += 2
+        elsif sum == target
+          suc += 1
+        end
+
+        suc = 0 if cnt5 >= 3
+        suc = 5 if cnt2 >= 3
+
+        return dicestr, suc, sum
+      end
+
+      def rokumon2_suc_rank(suc)
+        suc_rank = ['E', 'D', 'C', 'B', 'A', 'S']
+        return suc_rank[suc]
+      end
+    end
+  end
+end