bcdice 3.0.0.pre.alpha.1

data/lib/bcdice/game_system/ScreamHighSchool.rb

@@ -0,0 +1,128 @@
+# frozen_string_literal: true
+
+require 'bcdice/game_system/GardenOrder'
+
+module BCDice
+  module GameSystem
+    class ScreamHighSchool < GardenOrder
+      # ゲームシステムの識別子
+      ID = 'ScreamHighSchool'
+
+      # ゲームシステム名
+      NAME = 'スクリームハイスクール'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'すくりいむはいすくうる'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        ・基本判定
+        　SHx/y@z　x：成功率、y：連続攻撃回数（省略可）、z：クリティカル値（省略可）
+        　（連続攻撃では1回の判定のみが実施されます）
+        　例）SH55　SH(40-20) SH100/2　SH70@10　SH155/3@44
+        ・感情判定
+        　EMx@z　x：成功率、z：クリティカル値（省略可）
+        　例）EM50　EM50@15
+        ・性格傾向判定
+        　TRx@z　x：成功率、z：クリティカル値（省略可）
+        　例）TR60　TR60@15
+        ・恐怖判定
+        　FEx@z　x：成功率、z：クリティカル値（省略可）
+        　例）FE70　FE70@15
+        ・負傷表
+        　DCxxy
+        　xx：属性（切断：SL，銃弾：BL，衝撃：IM，灼熱：BR，冷却：RF，電撃：EL）
+        　y：ダメージ
+        　例）DCSL7　DCEL22
+      INFO_MESSAGE_TEXT
+
+      register_prefix([
+        '(SH|SHS)(\-?\d+)(\/\d+)?(@\d+)?',
+        '(EM|TR|FE)(\-?\d+)(@\d+)?',
+        'DC(SL|BL|IM|BR|RF|EL).+'
+      ])
+
+      def eval_game_system_specific_command(command)
+        case command
+        when /(EM|TR|FE)(\-?\d+)(@(\d+))?/i
+          command_type = Regexp.last_match(1).upcase
+          success_rate = Regexp.last_match(2).to_i
+          critical_border_text = Regexp.last_match(4)
+          critical_border = get_critical_border(critical_border_text, success_rate)
+
+          return check_roll_sh(success_rate, critical_border, command_type)
+        when %r{(SH|SHS)(\-?\d+)(/(\d+))?(@(\d+))?}i
+          success_rate = Regexp.last_match(2).to_i
+          repeat_count = (Regexp.last_match(4) || 1).to_i
+          critical_border_text = Regexp.last_match(6)
+          critical_border = get_critical_border(critical_border_text, success_rate)
+
+          return check_roll_repeat_attack(success_rate, repeat_count, critical_border)
+        when /^DC(SL|BL|IM|BR|RF|EL)(\d+)/i
+          type = Regexp.last_match(1)
+          damage_value = Regexp.last_match(2).to_i
+          return look_up_damage_chart(type, damage_value)
+        end
+
+        return nil
+      end
+
+      def check_roll_sh(success_rate, critical_border, command_type)
+        success_rate = 0 if success_rate < 0
+        fumble_border = (success_rate < 100 ? 96 : 99)
+
+        dice_value = @randomizer.roll_once(100)
+        result = get_check_result(dice_value, success_rate, critical_border, fumble_border)
+        title, supplementary = get_supplementary(command_type, result)
+        unless supplementary.empty?
+          supplementary = "（#{supplementary}）"
+        end
+
+        text = "#{title}判定 D100<=#{success_rate}@#{critical_border} ＞ #{dice_value} ＞ #{result}#{supplementary}"
+        return text
+      end
+
+      def get_supplementary(command_type, result)
+        title = ''
+        supplementary = ''
+        case command_type
+        when 'EM'
+          title = '感情'
+          case result
+          when 'クリティカル'
+            supplementary = '次に行う判定の成功率に+50%'
+          when  '成功'
+            supplementary = '次に行う判定の成功率に+30%'
+          when  '失敗'
+            supplementary = '次に行う判定の成功率に-20%、呪縛+1点'
+          when  'ファンブル'
+            supplementary = '次に行う判定の成功率に-50%、呪縛+1D5点'
+          end
+        when 'TR'
+          title = '性格傾向'
+          case result
+          when  '失敗'
+            supplementary = '反対側の性格傾向で再判定する。あるいは、もしこれがその再判定の結果であればプレイヤーが性格傾向を選択する'
+          when  'ファンブル'
+            supplementary = '反対側の性格傾向に従い、呪縛+1D5点する。あるいは、もしこれが失敗後の再判定の結果だった場合、PCは混乱し行動を放棄するか逃げ出す。呪縛+2点'
+          else
+            supplementary = '判定した性格傾向に従う'
+          end
+        when 'FE'
+          title = '恐怖'
+          case result
+          when  '成功'
+            supplementary = 'ショックを受け流した。恐怖判定効果表の成功側の値分、呪縛が上昇する'
+          when  '失敗'
+            supplementary = 'ショックを受けた。恐怖判定効果表の失敗側の値分、呪縛が上昇する'
+          when  'ファンブル'
+            supplementary = '深いショックを受けた。恐怖判定効果表の失敗側の値分に加え、さらに1D5点分、呪縛が上昇する'
+          else
+            supplementary = '何もショックを受けなかった'
+          end
+        end
+        return title, supplementary
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/SevenFortressMobius.rb

@@ -0,0 +1,34 @@
+# frozen_string_literal: true
+
+require 'bcdice/game_system/NightWizard'
+
+module BCDice
+  module GameSystem
+    class SevenFortressMobius < NightWizard
+      # ゲームシステムの識別子
+      ID = 'SevenFortressMobius'
+
+      # ゲームシステム名
+      NAME = 'セブン＝フォートレス メビウス'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'せふんふおおとれすめひうす'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        ・判定用コマンド　(nSFM+m@x#y)
+        　"(基本値)SFM(常時および常時に準じる特技等及び状態異常（省略可）)@(クリティカル値)#(ファンブル値)（常時以外の特技等及び味方の支援効果等の影響（省略可））"でロールします。
+        　Rコマンド(2R6m[n,m]c[x]f[y]>=t tは目標値)に読替されます。
+        　クリティカル値、ファンブル値が無い場合は1や13などのあり得ない数値を入れてください。
+        　例）12SFM-5@7#2　　1SFM　　50SFM+5@7,10#2,5　50SFM-5+10@7,10#2,5+15+25
+      INFO_MESSAGE_TEXT
+
+      register_prefix(['([-+]?\d+)?SFM.*', '2R6.*'])
+
+      def initialize(command)
+        super(command)
+        @nw_command = "SFM"
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/ShadowRun.rb

@@ -0,0 +1,26 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class ShadowRun < Base
+      # ゲームシステムの識別子
+      ID = 'ShadowRun'
+
+      # ゲームシステム名
+      NAME = 'シャドウラン'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'しやとうらん'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = "上方無限ロール(xUn)の境界値を6にセットします。\n"
+
+      def initialize(command)
+        super(command)
+        @sort_add_dice = true
+        @sort_barabara_dice = true
+        @upper_dice_reroll_threshold = 6
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/ShadowRun4.rb

@@ -0,0 +1,49 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class ShadowRun4 < Base
+      # ゲームシステムの識別子
+      ID = 'ShadowRun4'
+
+      # ゲームシステム名
+      NAME = 'シャドウラン 4th Edition'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'しやとうらん4'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        個数振り足しロール(xRn)の境界値を6にセット、バラバラロール(xBn)の目標値を5以上にセットします。
+        BコマンドとRコマンド時に、グリッチの表示を行います。
+      INFO_MESSAGE_TEXT
+
+      def initialize(command)
+        super(command)
+        @sort_add_dice = true
+        @sort_barabara_dice = true
+        @reroll_dice_reroll_threshold = 6 # RerollDiceで振り足しをする出目の閾値
+
+        @default_cmp_op = :>=
+        @default_target_number = 5
+      end
+
+      # シャドウラン4版用グリッチ判定
+      def grich_text(numberSpot1, dice_cnt_total, successCount)
+        dice_cnt_total_half = (1.0 * dice_cnt_total / 2)
+        debug("dice_cnt_total_half", dice_cnt_total_half)
+
+        unless numberSpot1 >= dice_cnt_total_half
+          return nil
+        end
+
+        # グリッチ！
+        if successCount == 0
+          'クリティカルグリッチ'
+        else
+          'グリッチ'
+        end
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/ShadowRun5.rb

@@ -0,0 +1,80 @@
+# frozen_string_literal: true
+
+require 'bcdice/game_system/ShadowRun4'
+
+module BCDice
+  module GameSystem
+    class ShadowRun5 < ShadowRun4
+      # ゲームシステムの識別子
+      ID = 'ShadowRun5'
+
+      # ゲームシステム名
+      NAME = 'シャドウラン 5th Edition'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'しやとうらん5'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        個数振り足しロール(xRn)の境界値を6にセット、バラバラロール(xBn)の目標値を5以上にセットします。
+        バラバラロール(xBn)のみ、リミットをセットできます。リミットの指定は(xBn@l)のように指定します。(省略可)
+        BコマンドとRコマンド時に、グリッチの表示を行います。
+      INFO_MESSAGE_TEXT
+
+      register_prefix(['(\d+)B6@(\d+)'])
+
+      def initialize(command)
+        super(command)
+        @sort_add_dice = true
+        @sort_barabara_dice = true
+        @reroll_dice_reroll_threshold = 6 # RerollDiceで振り足しをする出目の閾値
+
+        @default_cmp_op = :>=
+        @default_target_number = 5
+      end
+
+      # シャドウラン5版　リミット時のテスト
+      def eval_game_system_specific_command(command)
+        debug('chatch limit prefix')
+
+        m = /(\d+B6)@(\d+)/.match(command)
+        b_dice = m[1]
+        limit = m[2].to_i
+        output_before_limited = BCDice::CommonCommand::BarabaraDice.new(b_dice, @randomizer, self).eval()
+
+        m = /成功数(\d+)/.match(output_before_limited)
+        output_after_limited = output_before_limited
+        before_suc_cnt = m[1].to_i
+        if before_suc_cnt > limit
+          after_suc_cnt = limit
+          over_suc_cnt = before_suc_cnt - limit
+          output_after_limited = output_before_limited.gsub(/成功数(\d+)/, "成功数#{after_suc_cnt}")
+          output_after_limited += "(リミット超過#{over_suc_cnt})"
+        end
+
+        output = output_after_limited
+        output = output.gsub('B', 'B6')
+        output = output.gsub('6>=5', "[6]Limit[#{limit}]>=5")
+        debug(output)
+        return output
+      end
+
+      # シャドウラン5版用グリッチ判定
+      def grich_text(numberSpot1, dice_cnt_total, successCount)
+        dice_cnt_total_half = dice_cnt_total.to_f / 2
+        debug("dice_cnt_total_half", dice_cnt_total_half)
+
+        unless numberSpot1 > dice_cnt_total_half
+          return nil
+        end
+
+        # グリッチ！
+        if successCount == 0
+          'クリティカルグリッチ'
+        else
+          'グリッチ'
+        end
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/SharedFantasia.rb

@@ -0,0 +1,69 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class SharedFantasia < Base
+      # ゲームシステムの識別子
+      ID = 'SharedFantasia'
+
+      # ゲームシステム名
+      NAME = 'Shared†Fantasia'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'しえああとふあんたしあ'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~MESSAGETEXT
+        2D6の成功判定に 自動成功、自動失敗、致命的失敗、劇的成功 の判定があります。
+
+        SF/ST = 2D6のショートカット
+
+        例) SF+4>=9 : 2D6して4を足した値が9以上なら成功
+      MESSAGETEXT
+
+      register_prefix(['SF.*', 'ST.*'])
+
+      def change_text(string)
+        string.gsub(/SF/i, "2D6").gsub(/ST/i, "2D6")
+      end
+
+      def check_2D6(total, dice_total, _dice_list, cmp_op, target)
+        return '' if target == '?'
+
+        critical = false
+        fumble   = false
+
+        if dice_total == 12
+          critical = true
+        elsif dice_total == 2
+          fumble = true
+        end
+
+        totalValueBonus = 0
+        if cmp_op == :>=
+          totalValueBonus = 1
+        end
+
+        if [:>=, :>].include?(cmp_op)
+          if (total + totalValueBonus) > target
+            if critical
+              return " ＞ 自動成功(劇的成功)"
+            elsif fumble
+              return " ＞ 自動失敗"
+            else
+              return " ＞ 成功"
+            end
+          else
+            if critical
+              return " ＞ 自動成功"
+            elsif fumble
+              return " ＞ 自動失敗(致命的失敗)"
+            else
+              return " ＞ 失敗"
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/ShinMegamiTenseiKakuseihen.rb

@@ -0,0 +1,85 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class ShinMegamiTenseiKakuseihen < Base
+      # ゲームシステムの識別子
+      ID = 'SMTKakuseihen'
+
+      # ゲームシステム名
+      NAME = '真・女神転生TRPG 覚醒篇'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'しんめかみてんせいTRPGかくせいへん'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        ・判定
+        1D100<=(目標値) でスワップ・通常・逆スワップ判定を判定。
+        威力ダイスは nU6[6] (nはダイス個数)でロール可能です。
+      INFO_MESSAGE_TEXT
+
+      # ゲーム別成功度判定(1d100)
+      def check_1D100(total, dice_total, cmp_op, target)
+        return '' if target == '?'
+        return '' unless cmp_op == :<=
+
+        dice1, dice2 = split_tens(dice_total)
+
+        total1 = dice1 * 10 + dice2
+        total2 = dice2 * 10 + dice1
+
+        # ゾロ目
+        isRepdigit = (dice1 == dice2)
+
+        result = " ＞ スワップ"
+        result += getCheckResultText(target, [total1, total2].min, isRepdigit)
+        result += "／通常"
+        result += getCheckResultText(target, total % 100, isRepdigit)
+        result += "／逆スワップ"
+        result += getCheckResultText(target, [total1, total2].max, isRepdigit)
+
+        return result
+      end
+
+      def split_tens(value)
+        value %= 100
+
+        ones = value / 10
+        tens = value % 10
+
+        return [ones, tens]
+      end
+
+      def getCheckResultText(diff, total, isRepdigit)
+        checkResult = getCheckResult(diff, total, isRepdigit)
+        text = format("(%02d)", total) + checkResult
+        return text
+      end
+
+      def getCheckResult(diff, total, isRepdigit)
+        if diff >= total
+          return getSuccessResult(isRepdigit)
+        end
+
+        return getFailResult(isRepdigit)
+      end
+
+      def getSuccessResult(isRepdigit)
+        if isRepdigit
+          return "絶対成功"
+        end
+
+        return "成功"
+      end
+
+      def getFailResult(isRepdigit)
+        if isRepdigit
+          return "絶対失敗"
+        end
+
+        return "失敗"
+      end
+    end
+  end
+end