bcdice 3.0.0.pre.alpha.1

data/lib/bcdice/game_system/MeikyuKingdomBasic.rb

@@ -0,0 +1,269 @@
+# frozen_string_literal: true
+
+require "bcdice/game_system/MeikyuKingdom"
+require "bcdice/dice_table/table"
+
+module BCDice
+  module GameSystem
+    class MeikyuKingdomBasic < MeikyuKingdom
+      # ゲームシステムの識別子
+      ID = 'MeikyuKingdomBasic'
+
+      # ゲームシステム名
+      NAME = '迷宮キングダム 基本ルールブック'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'めいきゆうきんくたむ きほんるうるふつく'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+          ・判定　(nMK+m)
+          　n個のD6を振って大きい物二つだけみて達成値を算出します。修正mも可能です。
+          　絶対成功と絶対失敗も自動判定します。
+          ・各種表
+          　・休憩表：才覚 TBT／魅力 CBT／探索 SBT／武勇 VBT
+                     お祭り FBT／空振り EBT／全体 WBT／カップル LBT
+          　・ハプニング表：才覚 THT／魅力 CHT／探索 SHT／武勇 VHT
+          　・視察表 RT／情報収集表 IGT／ランダムマップ選択表 RMS
+          　・痛打表 CAT／致命傷表 FWT／戦闘ファンブル表 CFT
+          　・道中表 TT／交渉表 NT／相場表 MPT／王国災厄表 KDT／王国変動表 KCT
+          　・感情表 ET／好意表 FET／敵意表 HET
+          　・お宝表１／２／３／４／５ T1T／T2T／T3T／T4T／T5T
+          　・特殊遭遇表 SE
+          　　　上級：人工 ARN／水域 WEN／自然 NEN／洞窟 CEN／天空 SEN／異界 OEN
+          ・潜在能力：スキル決定表 SDT
+          　　基本：肉弾 BUS／射撃 SHS／星術 ASS／召喚 SUS／科学 SCS
+          　　　　　迷宮 LAS／交渉 NES／便利 COS／芸能 ENS／道具 TOS
+          　　上級：肉弾 ABUS／射撃 ASHS／星術 AASS／召喚 ASUS／科学 ASCS
+          　　　　　迷宮 ALAS／交渉 ANES／便利 ACOS／芸能 AENS／道具 ATOS
+          ・アイテム関連（上級不使用の場合、カッコ書きのものを使用して下さい）
+          　・コモンアイテムランダム決定表　CIR
+          　　　コモンアイテム表：武具 WIT／生活 LIT／回復 RIT／探索 SIT
+          　・レア武具アイテムランダム決定表　RWIR／レア一般アイテムランダム決定表　RUIR（上級込）
+          　　　レアアイテム表：基本武具 NRWT／基本一般 NRUT／上級武具 ARWT／上級一般 ARUT
+          　・デヴァイスファクトリー DFTx (xは特性の個数)
+          ・王国人物作成関連
+          　・王国名決定表１／２／３ KNT1／KNT2／KNT3
+          　・王国環境表 KET：技術 TET／国風 NST／資源 RET／人材 HRT／施設 FAT／血族 BLT
+          　・名前表 NAMEx (xは個数)
+          　　　名前A NAMEA／名前B NAMEB／エキゾチック NAMEEX／ファンタジック NAMEFA
+          　・新名前表 NNAMEx (xは個数)
+          　　　芸術 NMAR／食べ物 NMFO／日用品 NMDN／地名 NMPL／機械 NMMA／神様 NMGO
+          　・単語表１／２／３／４　WORD1／WORD2／WORD3／WORD4
+          　・生まれ決定表 BDT／生まれ表：才覚 TBO／魅力 CBO／探索 SBO／武勇 TBO
+          　・初期装備表 IEQ
+        　・地名決定表　PNTx (xは個数)／迷宮風景表 MLTx (xは個数)
+         ・D66ダイスあり
+      INFO_MESSAGE_TEXT
+
+      register_prefix([ # ダイスボットで使用するコマンドを配列で列挙すること。
+        '\d+MK.*', '\d+R6.*',
+        'IG', 'TT', 'NT', 'RMS',
+        'CFT', 'FWT', 'CAT', 'KDT', 'KCT',
+        'TBT', 'CBT', 'SBT', 'VBT', 'FBT', 'EBT', 'WBT', 'LBT',
+        'THT', 'CHT', 'SHT', 'VHT',
+        'BDT', 'TBO', 'CBO', 'SBO', 'VBO',
+        'ET', 'FET', 'HET', 'SDT', 'IEQ', 'FRT',
+        'T1T', 'T2T', 'T3T', 'T4T', 'T5T',
+        'MPT', 'KNT\d+', 'WORD\d+', 'NAME.*', 'NNAME.*', 'NM.*',
+        'RT', 'CIR', 'RUIR', 'RWIR',
+        'WIT', 'LIT', 'RIT', 'SIT', 'NRWT', 'NRUT', 'ARWT', 'ARUT',
+        'KET', 'TET', 'NST', 'RET', 'FAT', 'HRT', 'BLT',
+        'BUS', 'SHS', 'ASS', 'SUS', 'SCS', 'LAS', 'NES', 'COS', 'ENS', 'TOS',
+        'ABUS', 'ASHS', 'AASS', 'ASUS', 'ASCS', 'ALAS', 'ANES', 'ACOS', 'AENS', 'ATOS',
+        'SE', 'ARN', 'WEN', 'NEN', 'CEN', 'SEN', 'OEN',
+        'DFT\d+',
+      ])
+
+      def initialize(command)
+        super(command)
+
+        @sort_add_dice = true
+        @enabled_d66 = true
+        @d66_sort_type = D66SortType::ASC
+      end
+
+      def getKiryokuResult(_total_n, dice_list, _diff)
+        num_6 = dice_list.count(6)
+
+        if num_6 == 0
+          ""
+        else
+          " ＆ 《気力》#{num_6}点獲得"
+        end
+      end
+
+      def eval_game_system_specific_command(command)
+        output = ""
+        type = ""
+        total_n = ""
+
+        if (output = roll_tables(command, TABLES))
+          return output
+        else
+
+          case command
+          when /^DFT(\d*)$/i
+            feature_count = Regexp.last_match(1).to_i
+            return roll_device_factory_table(feature_count)
+
+          when /^NRWT/i
+            type = '基本レア武具アイテム'
+            total_n = @randomizer.roll_d66(D66SortType::NO_SORT)
+            output = mk_normal_rare_weapon_item_table(total_n)
+          when /^NRUT/i
+            type = '基本レア一般アイテム'
+            total_n = @randomizer.roll_d66(D66SortType::NO_SORT)
+            output = mk_normal_rare_item_table(total_n)
+          when /^ARWT/i
+            type = '上級レア武具アイテム'
+            total_n = @randomizer.roll_d66(D66SortType::NO_SORT)
+            output = mk_advanced_rare_weapon_item_table(total_n)
+          when /^ARUT/i
+            type = '上級レア一般アイテム'
+            total_n = @randomizer.roll_d66(D66SortType::NO_SORT)
+            output = mk_advanced_rare_item_table(total_n)
+          when /^CIR/i
+            type = 'コモンアイテムランダム決定'
+            total_n = @randomizer.roll_once(4)
+            output = mk_common_item_random_table(total_n)
+          when /^RWIR/i
+            type = 'レア武具アイテムランダム決定'
+            total_n = @randomizer.roll_once(6)
+            output = mk_rare_weapon_item_random_table(total_n)
+          when /^RUIR/i
+            type = 'レア一般アイテムランダム決定'
+            total_n = @randomizer.roll_once(6)
+            output = mk_rare_usual_item_random_table(total_n)
+          when /^NMAR/i
+            debug("namea passed")
+            type = '芸術系名前'
+            total_n = @randomizer.roll_d66(D66SortType::ASC)
+            output = mk_name_ar_table(total_n)
+          when /^NMFO/i
+            type = '食べ物系名前'
+            total_n = @randomizer.roll_d66(D66SortType::ASC)
+            output = mk_name_fo_table(total_n)
+          when /^NMDN/i
+            type = '日用品系名前'
+            total_n = @randomizer.roll_d66(D66SortType::ASC)
+            output = mk_name_dn_table(total_n)
+          when /^NMPL/i
+            type = '地名系名前'
+            total_n = @randomizer.roll_d66(D66SortType::ASC)
+            output = mk_name_pl_table(total_n)
+          when /^NMMA/i
+            type = '機械系名前'
+            total_n = @randomizer.roll_d66(D66SortType::ASC)
+            output = mk_name_ma_table(total_n)
+          when /^NMGO/i
+            type = '神様系名前'
+            total_n = @randomizer.roll_d66(D66SortType::ASC)
+            output = mk_name_go_table(total_n)
+          when /^NNAME(\d*)/i
+            type = '新名前'
+            count = getCount(Regexp.last_match(1))
+            names = ""
+            count.times do |_i|
+              name, dice = mk_new_name_table
+              names += "[#{dice}]#{name} "
+              output = names
+              total_n = count
+            end
+            output = output.strip
+          when /^RMS/i
+            type = 'ランダムマップ選択'
+            total_n = @randomizer.roll_d66(D66SortType::NO_SORT)
+            output = mk_random_map_select_table(total_n)
+
+          when /^KNT(\d+)/i
+            type = '王国名決定'
+            count = getCount(Regexp.last_match(1))
+            total_n = @randomizer.roll_d66(D66SortType::ASC)
+
+            case count
+            when 1
+              output = mk_kingdom_name_1_table(total_n)
+            when 2
+              output = mk_kingdom_name_2_table(total_n)
+            when 3
+              output = mk_kingdom_name_3_table(total_n)
+            end
+
+          when /^KET/i
+            type = '王国環境'
+            total_n = @randomizer.roll_once(6)
+            output = mk_kingdom_environment_table(total_n)
+          when /^TET/i
+            type = '技術決定'
+            total_n = @randomizer.roll_once(6)
+            output = mk_technic_decide_table(total_n)
+          when /^NST/i
+            type = '国風決定'
+            total_n = @randomizer.roll_once(6)
+            output = mk_national_style_decide_table(total_n)
+          when /^RET/i
+            type = '資源決定'
+            total_n = @randomizer.roll_once(6)
+            output = mk_resource_decide_table(total_n)
+          when /^FAT/i
+            type = '施設決定'
+            total_n = @randomizer.roll_once(6)
+            output = mk_facility_decide_table(total_n)
+          when /^HRT/i
+            type = '人材決定'
+            total_n = @randomizer.roll_once(6)
+            output = mk_human_resources_decide_table(total_n)
+          when /^BLT/i
+            type = '血族決定'
+            total_n = @randomizer.roll_once(6)
+            output = mk_blood_decide_table(total_n)
+          when /^ABUS/i
+            type = '上級肉弾スキル'
+            output, total_n = mk_advanced_bullet_skill_table
+          when /^ASHS/i
+            type = '上級射撃スキル'
+            output, total_n = mk_advanced_shooting_skill_table
+          when /^AASS/i
+            type = '上級星術スキル'
+            output, total_n = mk_advanced_astrology_skill_table
+          when /^ASUS/i
+            type = '上級召喚スキル'
+            output, total_n = mk_advanced_summon_skill_table
+          when /^ASCS/i
+            type = '上級科学スキル'
+            output, total_n = mk_advanced_science_skill_table
+          when /^ALAS/i
+            type = '上級迷宮スキル'
+            output, total_n = mk_advanced_labyrinth_skill_table
+          when /^ANES/i
+            type = '上級交渉スキル'
+            output, total_n = mk_advanced_negotiation_skill_table
+          when /^ACOS/i
+            type = '上級便利スキル'
+            output, total_n = mk_advanced_convenient_skill_table
+          when /^AENS/i
+            type = '上級芸能スキル'
+            output, total_n = mk_advanced_entertainment_skill_table
+          when /^ATOS/i
+            type = '上級道具スキル'
+            output, total_n = mk_advanced_tool_skill_table
+          end
+
+          if !output.nil?
+            debug("output", output)
+            output = "#{type}表(#{total_n}) ＞ #{output}"
+          else
+            super(command)
+          end
+        end
+      end
+    end
+  end
+end
+
+require "bcdice/game_system/meikyu_kingdom_basic/item_table"
+require "bcdice/game_system/meikyu_kingdom_basic/kingdom_table"
+require "bcdice/game_system/meikyu_kingdom_basic/name_table"
+require "bcdice/game_system/meikyu_kingdom_basic/word_table"
+require "bcdice/game_system/meikyu_kingdom_basic/table"

data/lib/bcdice/game_system/MetalHead.rb

@@ -0,0 +1,249 @@
+# frozen_string_literal: true
+
+require 'bcdice/arithmetic_evaluator'
+require 'bcdice/dice_table/range_table'
+
+module BCDice
+  module GameSystem
+    class MetalHead < Base
+      # ゲームシステムの識別子
+      ID = 'MetalHead'
+
+      # ゲームシステム名
+      NAME = 'メタルヘッド'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'めたるへつと'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~MESSAGETEXT
+        ・アビリティロール  AR>=目標値
+        ・スキルロール      SR<=目標値(%)
+        ・命中判定ロール    HR<=目標値(%)
+
+          例）AR>=5
+          例）SR<=(40+25)
+          例）HR<=(50-10)
+
+          これらのロールで成否、絶対成功/絶対失敗、クリティカル/アクシデントを自動判定します。
+
+        ・クリティカルチャート  CC
+        ・アクシデントチャート  射撃・投擲用:ACL  格闘用:ACS
+        ・戦闘結果チャート      CRCsn   s=耐久レベル(SUV) n=数値
+
+          例）CRCA61 SUV=Aを対象とした数値61(62に変換される)の戦闘結果を参照する。
+          例）CRCM98 対物で数値98の戦闘結果を参照する。
+      MESSAGETEXT
+
+      register_prefix(['AR', 'SR', 'HR<=.+', 'CC', 'ACT', 'ACL', 'ACS', 'CRC[A-Z]\d+'])
+
+      def eval_game_system_specific_command(command)
+        result = roll_tables(command, TABLES)
+        return result if result
+
+        case command
+        when /\ACRC(\w)(\d+)\z/
+          suv = Regexp.last_match(1)
+          num = Regexp.last_match(2)
+          return mh_crc_table(suv, num)
+        when /\AHR<=(.+)/
+          target = ArithmeticEvaluator.eval(
+            Regexp.last_match(1), round_type: @round_type
+          )
+          return rollHit(target)
+        end
+
+        return nil
+      end
+
+      def change_text(string)
+        string = string.gsub(/^(S)?AR/i) { "#{Regexp.last_match(1)}2D6" }
+        string = string.gsub(/^(S)?SR/i) { "#{Regexp.last_match(1)}1D100" }
+        return string
+      end
+
+      def check_2D6(total, dice_total, _dice_list, cmp_op, target)
+        return '' if cmp_op != :>= || target == "?"
+
+        if dice_total >= 12
+          " ＞ 絶対成功"
+        elsif dice_total <= 2
+          " ＞ 絶対失敗"
+        elsif total >= target
+          " ＞ 成功"
+        else
+          " ＞ 失敗"
+        end
+      end
+
+      def rollHit(target)
+        total = @randomizer.roll_once(100)
+        resultText = getHitResult(total, total, target)
+
+        text = "(1D100<=#{target}) ＞ #{total}#{resultText}"
+
+        return text
+      end
+
+      def check_1D100(total, dice_total, cmp_op, target)
+        return '' if target == '?'
+        return '' unless cmp_op == :<=
+
+        return getResult(total, dice_total, target)
+      end
+
+      def getHitResult(total_n, _dice_n, diff)
+        diceValue = total_n % 100
+        dice1 = diceValue % 10 # 1の位を代入
+
+        debug("total_n", total_n)
+
+        return ' ＞ 失敗' if total_n > diff
+
+        return ' ＞ 成功（クリティカル）' if  dice1 == 1
+        return ' ＞ 失敗（アクシデント）' if  dice1 == 0
+
+        return ' ＞ 成功'
+      end
+
+      def getResult(total_n, dice_n, diff)
+        return ' ＞ 絶対成功' if  dice_n <= 5
+        return ' ＞ 絶対失敗' if  dice_n >= 96
+
+        return ' ＞ 成功' if total_n <= diff
+
+        return ' ＞ 失敗'
+      end
+
+      # 戦闘結果チャートを振る
+      # @param [String] suv 耐久レベル
+      # @param [String] num 数値
+      # @return [String] 振った結果
+      def mh_crc_table(suv, num)
+        header_parts = ['戦闘結果チャート', num]
+        separator = ' ＞ '
+
+        suv = suv.to_s.upcase
+        numbuf = num.to_i
+        if numbuf < 1
+          return (header_parts + ['数値が不正です']).join(separator)
+        end
+
+        num_d1 = numbuf % 10
+        debug("num_d1[#{num_d1}]")
+        if num_d1 == 1
+          numbuf += 1
+        end
+        if num_d1 == 0
+          numbuf -= 1
+        end
+        num_d1 = numbuf % 10
+        debug("num_d1[#{num_d1}]")
+
+        table_point = [
+          nil, # 0
+          nil, # 1
+          "腕部", # 2
+          "腕部", # 3
+          "脚部", # 4
+          "脚部", # 5
+          "胴部", # 6
+          "胴部", # 7
+          "胴部", # 8
+          "頭部", # 9
+        ]
+
+        table_damage = {
+          'S' => [{'N' => 2}, {'LW' => 16}, {'MD' => 46}, {'MW' => 56}, {'HD' => 76}, {'HW' => 96}, {'MO' => 106}, {'K' => 116}],
+          'A' => [{'LW' => 2}, {'MW' => 46}, {'HW' => 76}, {'MO' => 96}, {'K' => 116}],
+          'B' => [{'LW' => 2}, {'MW' => 36}, {'HW' => 66}, {'MO' => 96}, {'K' => 106}],
+          'C' => [{'LW' => 2}, {'MW' => 26}, {'HW' => 66}, {'MO' => 86}, {'K' => 106}],
+          'D' => [{'LW' => 2}, {'MW' => 26}, {'HW' => 46}, {'MO' => 76}, {'K' => 96}],
+          'E' => [{'LW' => 2}, {'MW' => 26}, {'HW' => 39}, {'MO' => 54}, {'K' => 76}],
+          'F' => [{'LW' => 2}, {'MW' => 16}, {'HW' => 39}, {'MO' => 54}, {'K' => 66}],
+          'G' => [{'LW' => 2}, {'MW' =>  6}, {'HW' => 16}, {'MO' => 26}, {'K' => 39}],
+          'M' => [{'0'  => 2}, {'1' => 22}, {'2' => 42}, {'3' => 62}, {'4' => 82}, {'5' => 92}, {'6' => 102}, {'8' => 112}],
+        }
+
+        if table_damage[suv].nil?
+          return (header_parts + [
+            "耐久レベル(SUV)[#{suv}]",
+            "耐久レベル(SUV)の値が不正です",
+          ]).join(separator)
+        end
+
+        damage_level = ''
+        table_damage[suv].each do |v|
+          v.each do |d, n|
+            debug("suv[#{suv}] #{v} #{d} #{n}")
+            if n <= numbuf
+              damage_level = d
+            end
+          end
+        end
+
+        result_parts = []
+
+        if numbuf != num.to_i
+          result_parts.push(numbuf.to_s)
+        end
+
+        if suv == 'M'
+          result_parts.push('耐物', "HP[#{damage_level}]")
+        else
+          result_parts.push(
+            "耐久レベル(SUV)[#{suv}]",
+            "部位[#{table_point[num_d1]}] ： 損傷種別[#{damage_level}]"
+          )
+        end
+
+        return (header_parts + result_parts).join(separator)
+      end
+
+      # 表を振った結果の整形処理
+      TABLE_ROLL_RESULT_FORMATTER = lambda do |table, result|
+        [table.name, result.sum, result.content].join(' ＞ ')
+      end
+
+      # 表の集合
+      TABLES = {
+        'CC' => DiceTable::RangeTable.new(
+          'クリティカルチャート',
+          '1D10',
+          [
+            [1,     '相手は知覚系に多大なダメージを受けた。PERを1にして頭部にHWのダメージ、および心理チェック。'],
+            [2,     '相手の運動神経を断ち切った。DEXを1にして腕部にHWのダメージ、および心理チェック。さらに腕に持っていた武器などは落としてしまう。'],
+            [3,     '相手の移動手段は完全に奪われた。REFを1にして脚部にHWダメージと心理チェック。また、次回からのこちらの攻撃は必ず命中する。'],
+            [4..5,  '相手の急所に命中。激痛のため気絶した上、胴にHWダメージ。'],
+            [6,     '効果的な一撃。胴にHWダメージ。心理チェック。'],
+            [7,     '効果的な一撃。胴にMOダメージ。心理チェック。'],
+            [8..10, '君の一撃は相手の中枢を完全に破壊した。即死である。'],
+          ],
+          &TABLE_ROLL_RESULT_FORMATTER
+        ),
+        'ACL' => DiceTable::RangeTable.new(
+          'アクシデントチャート（射撃・投擲）',
+          '1D10',
+          [
+            [1..7, 'ささいなミス。特にペナルティーはない。'],
+            [8,    '不発、またはジャム。弾を取り出さねばならない物は次のターンは射撃できない。'],
+            [9,    'ささいな故障。可能なら次のターンから個別武器のスキルロールで修理を行える。'],
+            [10,   '武器の暴発、または爆発。頭部HWの心理効果ロール。さらに、その武器は破壊されPERとDEXのどちらか、または両方に計2ポイントのマイナスを与える。（遠隔操作の場合、射手への被害は無し）'],
+          ],
+          &TABLE_ROLL_RESULT_FORMATTER
+        ),
+        'ACS' => DiceTable::RangeTable.new(
+          'アクシデントチャート（格闘）',
+          '1D10',
+          [
+            [1..3, '足を滑らせて転倒し、起き上がるまで相手に+20の命中修正を与える。'],
+            [4..6, '手を滑らせて、武器を落とす。素手の時は関係ない。'],
+            [7..9, '使用武器の破壊。素手戦闘のときはMWのダメージを受ける。'],
+            [10,   '手を滑らせ、不幸にも武器は飛んでいき、5m以内に人がいれば誰かに刺さるか、または打撃を与えるかもしれない。ランダムに決定し、普通どおり判定を続ける。素手のときは関係ない。'],
+          ],
+          &TABLE_ROLL_RESULT_FORMATTER
+        ),
+      }.freeze
+    end
+  end
+end