bcdice 3.3.0 → 3.6.0

data/lib/bcdice/game_system/{SterileLife.rb → StellarLife.rb}

@@ -2,9 +2,9 @@
 
 module BCDice
   module GameSystem
-    class SterileLife < Base
+    class StellarLife < Base
       # ゲームシステムの識別子
-      ID = 'SterileLife'
+      ID = 'StellarLife'
 
       # ゲームシステム名
       NAME = 'ステラーライフTRPG'
@@ -37,68 +37,17 @@ module BCDice
         　・超未来の宇宙船内　INT
       MESSAGETEXT
 
-      register_prefix('\d*DA', 'VPFT', 'VNFT', 'VNRT', 'AAFT', 'AST', 'RNST', 'RET', 'TRST', 'TRAT', 'TRMT', 'TROT', 'TET', 'ENT', 'CUT', 'NAT', 'INT')
-      def eval_game_system_specific_command(command) # ダイスロールコマンド
+      register_prefix('\d*DA')
+      def eval_game_system_specific_command(command)
         # 通常判定部分をgetJudgeResultコマンドに切り分け
         output = getJudgeResult(command)
         return output unless output.nil?
 
         # テーブル
-        result = '0'
-        type = ""
-        total_n = ""
+        table = TABLES[command]
+        return table.roll(@randomizer) unless table.nil?
 
-        case command.upcase # 大文字にしてチェックする
-        when 'VPFT'
-          type = '船名接頭辞表'
-          result, total_n = get_shipprefix_table
-        when 'VNFT'
-          type = '船名前半表'
-          result, total_n = get_shipnameformer_table
-        when 'VNRT'
-          type = '船名後半表'
-          result, total_n = get_shipnamelatter_table
-        when 'AAFT'
-          type = 'アバターアルファベット表①'
-          result, total_n = get_avataralphabetfirst_table
-        when 'AAST'
-          type = 'アバターアルファベット表②'
-          result, total_n = get_avataralphabetsecond_table
-        when 'RNST'
-          type = 'ランダムNPC艦表'
-          result, total_n = get_randomnpcship_table
-        when 'RET'
-          type = 'ランダムイベント表'
-          result, total_n = get_randomevent_table
-        when 'TRST'
-          type = 'お宝特徴表'
-          result, total_n = get_treasurespec_table
-        when 'TRAT'
-          type = 'お宝形容表'
-          result, total_n = get_treasureappearance_table
-        when 'TRMT'
-          type = 'お宝外見表'
-          result, total_n = get_treasurematerial_table
-        when 'TROT'
-          type = 'お宝物品表'
-          result, total_n = get_treasureobject_table
-        when 'TET'
-          type = '超未来の技術'
-          result, total_n = get_sftechnology_table
-        when 'ENT'
-          type = '超未来のエンタメ'
-          result, total_n = get_sfentertainment_table
-        when 'CUT'
-          type = '超未来の文化'
-          result, total_n = get_sfculture_table
-        when 'NAT'
-          type = '超未来の自然'
-          result, total_n = get_sfnature_table
-        when 'INT'
-          type = '超未来の宇宙船内'
-          result, total_n = get_sfinterior_table
-        end
-        return "#{type}(#{total_n}) ＞ #{result}"
+        nil
       end
 
       def getJudgeResult(command)
@@ -120,9 +69,10 @@ module BCDice
         if number <= 0 then number = 1 end
 
         number.times do
-          dice = @randomizer.roll_once(10) - 1
-          if (dice + correction).to_i >= single || dice == triple then success += 1 end
-          if (dice + correction).to_i >= double || dice == triple then success += 1 end
+          dice = @randomizer.roll_once(10)
+          dice = 0 if dice == 10
+          if (dice + correction) >= single || dice == triple then success += 1 end
+          if (dice + correction) >= double || dice == triple then success += 1 end
           if dice == triple then success += 1 end # unless triple == -1 3成功はダイス目一致時のみ
           if dicetext == ""
             dicetext = dice.to_s
@@ -148,54 +98,95 @@ module BCDice
         return result
       end
 
-      # 1D10 ロール用
-      def get_table_by_1d10(table)
-        dice = @randomizer.roll_once(10)
+      class StellarLifeD10Table < DiceTable::Table
+        def initialize(name, items)
+          super(name, '1D10', items)
+        end
 
-        text = table[dice - 1]
+        def choice(value)
+          index = value - @times
+          return RollResult.new(@name, value, @items[index])
+        end
 
-        indexText = (dice - 1).to_s
+        # このゲームでは D10 の出目 10 を 0 と読む
+        class RollResult < DiceTable::RollResult
+          def to_s
+            "#{@table_name}(#{@value == 10 ? 0 : value}) ＞ #{@body}"
+          end
+        end
+      end
 
-        return '1', indexText if text.nil?
+      # 紙面上で 0 始まり 9 終わりの D10 テーブル（ 0, 1, 2, ..., 8, 9 ）
+      class StellarLifeD10_0to9_Table < StellarLifeD10Table
+        def initialize(name, *items)
+          super(name, items[1..9] + [items[0]]) # 出目 10 を 0 と読む（表示する）ため、 0 番目を末尾に回す.
+        end
+      end
 
-        return text, indexText
+      # 紙面上で 1 始まり 0 終わりの D10 テーブル（ 1, 2, 3, ..., 8, 9, 0 ）
+      class StellarLifeD10_1to0_Table < StellarLifeD10Table
+        def initialize(name, *items)
+          super(name, items)
+        end
       end
 
-      # D1010 ロール用
-      def get_table_by_d1010(table)
-        dice1 = @randomizer.roll_once(10)
-        dice2 = @randomizer.roll_once(10)
+      # D10 を 2 個振って、 100 通りの結果を得るテーブル
+      # （このゲームではこの振り方の表に 2D10 と書いてあるので、そういう名前にしてある）
+      class StellarLife2D10Table
+        def initialize(name, *items)
+          @name = name
+          @items = items.freeze
+        end
 
-        num = (dice1 - 1) * 10 + (dice2 - 1)
+        def roll(randomizer)
+          dices = randomizer.roll_barabara(2, 10)
 
-        text = table[num]
+          row_index = dices[0] == 10 ? 0 : dices[0]
+          column_index = dices[1] == 10 ? 0 : dices[1]
 
-        indexText = "#{dice1 - 1}#{dice2 - 1}"
+          key = row_index * 10 + column_index
+          chosen = @items[key]
 
-        return '1', indexText if text.nil?
+          return RollResult.new(@name, format("%02d", key), chosen)
+        end
 
-        return text, indexText
+        # 出目 10 を 0 と読むため、ゼロパディングしなければならない
+        class RollResult < DiceTable::RollResult
+          def to_s
+            "#{@table_name}(#{format('%02d', @value)}) ＞ #{@body}"
+          end
+        end
       end
 
-      # D510 ロール用
-      def get_table_by_d510(table)
-        dice1 = @randomizer.roll_once(10)
-        dice2 = @randomizer.roll_once(10)
-
-        num = ((dice1 - 1) / 2) * 10 + (dice2 - 1)
-
-        text = table[num]
-
-        indexText = "#{dice1 - 1}#{dice2 - 1}"
-
-        return '1', indexText if text.nil?
-
-        return text, indexText
+      # D10 を 2 個振って、 50 通りの結果を得るテーブル
+      #
+      # イメージ図:
+      #
+      #     [0-1] [2-3] .. [8-9]
+      # [0]
+      # [1]
+      # [2]
+      #  :
+      # [8]
+      # [9]
+      #
+      # （c.f. ルールブック p120, p123 ）
+      class StellarLife2D10HalfTable < StellarLife2D10Table
+        def initialize(name, items)
+          super(
+            name,
+            *items.map do |row|
+              row.map do |value|
+                [value, value]
+              end.flatten
+            end.flatten
+          )
+        end
       end
 
-      # 船名接頭辞表
-      def get_shipprefix_table
-        table = [
+      TABLES = {
+        'VPFT' => StellarLifeD10_0to9_Table.new(
+          '船名接頭辞表',
           'ISS(独立宇宙船)',
           'PCS(惑星運搬船)',
           'NSS(中立星間船)',
@@ -206,13 +197,9 @@ module BCDice
           'OES(外縁探検船)',
           'SSS(主権星間船)',
           'HMS(陛下の船)'
-        ]
-        return get_table_by_1d10(table)
-      end
-
-      # 船名前半表
-      def get_shipnameformer_table
-        table = [
+        ),
+        'VNFT' => StellarLife2D10Table.new(
+          '船名前半表',
           'ブラック', 'ホワイト', 'レッド', 'ブルー', 'グリーン', 'パープル', 'ライラック', 'ブラウン', 'シルバー', 'ゴールド',
           'ネイビー', 'マリン', 'オーシャン', 'アクア', 'セイル', 'アンカー', 'パイレーツ', 'プライヴァティア', 'アルマダ', 'フロティラ',
           'ギャリソン', 'タンク', 'センチネル', 'スクァッド', 'トループ', 'フロント', 'オフェンシブ', 'ヴァンガード', 'オーダー', 'フラッグ',
@@ -223,80 +210,60 @@ module BCDice
           'フリー', 'ライト', 'リベラル', 'リッチ', 'エコノミー', 'マーケット', 'ナショナル', 'ソーシャル', 'エコロジカル', 'ナチュラル',
           'ロイヤル', 'プリンシパル', 'インペリアル', 'マジェスティック', 'ノーブル', 'ロード', 'ハイネス', 'デューク', 'カウント', 'バロン',
           'スモーク', 'クリア', 'ブリザード', 'ゲイル', 'ミスト', 'ヘイル', 'スノウ', 'ライトニング', 'サンダー', '(PC1人の名前)'
-        ]
-        return get_table_by_d1010(table)
-      end
-
-      # 船名後半表
-      def get_shipnamelatter_table
-        table = [
+        ),
+        'VNRT' => StellarLife2D10Table.new(
+          '船名後半表',
           'ローズ', 'ダンデリオン', 'オーキッド', 'アザリア', 'スウォードリリー', 'アイリス', 'ラベンダー', 'プロテア', 'グラジオラス', 'マグノリア',
           'ライナー', 'カッター', 'フライター', 'フェリー', 'バルジ', 'クルーザー', 'クラフト', 'リガー', 'キール', 'ヴェッセル',
           'リミテッド', 'インク', 'マーチャント', 'エクスペディション', 'コンボイ', 'キャラバン', 'コマース', 'レティニュー', 'アドバイザリー', 'コンサルティング',
-          'テレスコープ', 'オブザーバー', 'グラス', 'コスモス', 'ヘブン', 'ノート', 'ロット', 'スペースフェアラー', 'ノマド',
+          'テレスコープ', 'オブザーバー', 'グラス', 'コスモス', 'ヘブン', 'ノート', 'ロット', 'スペース', 'フェアラー', 'ノマド',
           'ブローカー', 'ディーラー', 'ダイバー', 'ドライバー', 'アドベンチャラー', 'ランナー', 'ウォーカー', 'トラベラー', 'トレーダー', 'エクスプローラー',
           'キャット', 'パンサー', 'ライオン', 'ピューマ', 'レオパルド', 'タイガー', 'ジャガー', 'オセロット', 'リンクス', 'チーター',
           'ウォルフ', 'カメレオン', 'クラブ', 'オスカー', 'シャーク', 'イーグル', 'コンドル', 'ドルフィン', 'サウルス', 'フィッシュ',
           'コンキスタドール', 'フサリア', 'ナイト', 'コサック', 'ヘタイロイ', 'バーサーカー', 'レギオン', 'ウォリアー', 'テルシオ', 'ライダー',
           'ルール', 'ディメイン', 'レイン', 'ジャスティス', 'エンクレーブ', 'ステート', 'カントリー', 'レルム', 'ドミニオン', 'ソブリン',
-          'ストーム', 'テンペスト', 'アヴァランチ', 'ストライク', 'フォール', 'クエイク', 'ハリケーン', 'ブラスター', 'ブリザード', '(PC 1人の名前)'
-        ]
-        return get_table_by_d1010(table)
-      end
-
-      # アバターアルファベット表①
-      def get_avataralphabetfirst_table
-        table = [
+          'ストーム', 'テンペスト', 'アヴァランチ', 'ストライク', 'フォール', 'クエイク', 'ハリケーン', 'ブラスター', 'ブリザード', '(PC1人の名前)'
+        ),
+        'AAFT' => StellarLifeD10_0to9_Table.new(
+          'アバターアルファベット表①',
           'A', 'F', 'G', 'I', 'J', 'K', 'R', 'S', 'T', 'V'
-        ]
-        return get_table_by_1d10(table)
-      end
-
-      # アバターアルファベット表②
-      def get_avataralphabetsecond_table
-        table = [
+        ),
+        'AAST' => StellarLifeD10_0to9_Table.new(
+          'アバターアルファベット表②',
           'D', 'F', 'L', 'M', 'N', 'O', 'R', 'S', 'X', 'Z'
-        ]
-        return get_table_by_1d10(table)
-      end
-
-      # ランダムNPC艦
-      def get_randomnpcship_table
-        table = [
-          '装甲＋20(HP+400)', '装甲＋20(HP+400)', '〈電磁パルスフィールド〉1基', '〈中性粒子ビーム砲〉2基', '〈バリアフィールド〉2基',
-          '装甲＋20(HP+400)', '装甲＋20(HP+400)', '〈電磁パルスフィールド〉1基	〈高機動ミサイル〉2基', '〈バリアフィールド〉2基',
-          '装甲＋20(HP+400)', '装甲＋20(HP+400)', '〈リサイクルフォージ〉', '〈高機動ミサイル〉2基', '〈バリアフィールド〉2基',
-          '装甲＋20(HP+400)', '装甲＋20(HP+400)', '〈リサイクルフォージ〉', '〈高機動ミサイル〉2基', '〈レーザーディフェンス〉2基',
-          '装甲＋20(HP+400)', '〈ホーミング量子ビーム〉2基', '〈高圧縮精製装置〉', '〈アタックドローン〉1基	〈レーザーディフェンス〉2基',
-          '装甲＋20(HP+400)', '〈ホーミング量子ビーム〉2基', '〈高圧縮精製装置〉', '〈爆縮高エネルギービーム砲〉2基	〈レーザーディフェンス〉2基',
-          '装甲＋20(HP+400)', '〈ホーミング量子ビーム〉2基', '〈艦載メタルディテクター〉', '〈マグネティックアロイミサイル〉2基', '〈艦内防護装甲〉',
-          '装甲＋20(HP+400)', '〈ロングランスミサイル〉2基', '〈「スターブレイカー」のハリボテ〉', '〈ドローンアバター〉1基	装甲＋40(HP+800)',
-          '装甲＋20(HP+400)', '〈ロングランスミサイル〉2基', '〈中性粒子ビーム砲〉2基', '〈拡散粒子ビーム砲〉2基	装甲＋40(HP+800)',
-          '装甲＋20(HP+400)', '〈ロングランスミサイル〉2基', '〈中性粒子ビーム砲〉2基', '〈マイクロミサイルポッド〉2基', '装甲＋40(HP+800)'
-        ]
-        return get_table_by_d510(table)
-      end
-
-      # ランダムイベント表
-      def get_randomevent_table
-        table = [
-          # 0
-          '燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', '燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', '燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', '燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', '燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', '鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得',
-          # 1
-          '鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '巨大暗黒星雲　この星系ではビーム属性の攻撃の判定で達成値－1', '超新星残骸　この星系では実体弾属性の攻撃の判定で達成値－1', 'C型アステロイド　推進剤400を獲得', '氷のアステロイド群　推進剤500を獲得', '巨大アイスブロック　推進剤600を獲得', '資源アステロイド　推進剤200、鋼材200を獲得', '枯渇彗星核　実体弾攻撃でダメージ200を出すと推進剤600を獲得', '放棄されたドローン　鋼材200、希少金属1を獲得',
-          # 2
-          '金属塊　鋼材300を獲得', 'S型アステロイド　鋼材400を獲得', 'S型アステロイド　鋼材400を獲得', 'スペースデブリ　鋼材500を獲得', 'スペースデブリ　鋼材500を獲得', 'M型アステロイド　鋼材600を獲得', '艦船の残骸　鋼材700を獲得', '大資源アステロイド　推進剤300、鋼材300を獲得', '小惑星の欠片　ビーム攻撃でダメージ200を出すと鋼材600を獲得', '希少金属アステロイド　希少金属2を獲得',
-          # 3
-          '砕けた惑星核　希少金属3を獲得', '燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', '燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', '燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', '燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', '鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '氷のアステロイド群　推進剤500を獲得', '巨大アイスブロック　推進剤600を獲得',
-          # 4
-          '大資源アステロイド　推進剤300、鋼材300を獲得', '氷火山アステロイド　推進剤300、希少金属1を獲得', 'オーガニックアステロイド　推進剤700を獲得', '金属塊　鋼材300を獲得', 'スペースデブリ　鋼材500を獲得', 'M型アステロイド　鋼材600を獲得', '放棄されたモジュール　鋼材300、希少金属1を獲得', '砕けた惑星核　希少金属3を獲得', 'レアアースアステロイド　希少金属4を獲得', 'レアアースアステロイド　希少金属4を獲得'
-        ]
-        return get_table_by_d510(table)
-      end
-
-      # お宝特徴表
-      def get_treasurespec_table
-        table = [
+        ),
+        'RNST' => StellarLife2D10HalfTable.new(
+          'ランダムNPC艦表',
+          [
+            ['装甲＋20(HP+400)', '装甲＋20(HP+400)', '〈電磁パルスフィールド〉1基', '〈中性粒子ビーム砲〉2基', '〈バリアフィールド〉2基'],
+            ['装甲＋20(HP+400)', '装甲＋20(HP+400)', '〈電磁パルスフィールド〉1基', '〈高機動ミサイル〉2基', '〈バリアフィールド〉2基'],
+            ['装甲＋20(HP+400)', '装甲＋20(HP+400)', '〈リサイクルフォージ〉', '〈高機動ミサイル〉2基', '〈バリアフィールド〉2基'],
+            ['装甲＋20(HP+400)', '装甲＋20(HP+400)', '〈リサイクルフォージ〉', '〈高機動ミサイル〉2基', '〈レーザーディフェンス〉2基'],
+            ['装甲＋20(HP+400)', '〈ホーミング量子ビーム〉2基', '〈高圧縮精製装置〉', '〈アタックドローン〉1基', '〈レーザーディフェンス〉2基'],
+            ['装甲＋20(HP+400)', '〈ホーミング量子ビーム〉2基', '〈高圧縮精製装置〉', '〈爆縮高エネルギービーム砲〉2基', '〈レーザーディフェンス〉2基'],
+            ['装甲＋20(HP+400)', '〈ホーミング量子ビーム〉2基', '〈艦載メタルディテクター〉', '〈マグネティックアロイミサイル〉2基', '〈艦内防護装甲〉'],
+            ['装甲＋20(HP+400)', '〈ロングランスミサイル〉2基', '〈「スターブレイカー」のハリボテ〉', '〈ドローンアバター〉1基', '装甲＋40(HP+800)'],
+            ['装甲＋20(HP+400)', '〈ロングランスミサイル〉2基', '〈中性粒子ビーム砲〉2基', '〈拡散粒子ビーム砲〉2基', '装甲＋40(HP+800)'],
+            ['装甲＋20(HP+400)', '〈ロングランスミサイル〉2基', '〈中性粒子ビーム砲〉2基', '〈マイクロミサイルポッド〉2基', '装甲＋40(HP+800)'],
+          ]
+        ),
+        'RET' => StellarLife2D10HalfTable.new(
+          'ランダムイベント表',
+          [
+            ['燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', '鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '金属塊　鋼材300を獲得', '砕けた惑星核　希少金属3を獲得', '大資源アステロイド　推進剤300、鋼材300を獲得'],
+            ['燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', '鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', 'S型アステロイド　鋼材400を獲得', '燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', '氷火山アステロイド　推進剤300、希少金属1を獲得'],
+            ['燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', '巨大暗黒星雲　この星系ではビーム属性の攻撃の判定で達成値－1', 'S型アステロイド　鋼材400を獲得', '燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', 'オーガニックアステロイド　推進剤700を獲得'],
+            ['燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', '超新星残骸　この星系では実体弾属性の攻撃の判定で達成値－1', 'スペースデブリ　鋼材500を獲得', '燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', '金属塊　鋼材300を獲得'],
+            ['燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', 'C型アステロイド　推進剤400を獲得', 'スペースデブリ　鋼材500を獲得', '燃料1　《周辺探索》成功数0～1では推進剤[1D10×30]獲得', 'スペースデブリ　鋼材500を獲得'],
+            ['鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '氷のアステロイド群　推進剤500を獲得', 'M型アステロイド　鋼材600を獲得', '鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', 'M型アステロイド　鋼材600を獲得'],
+            ['鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '巨大アイスブロック　推進剤600を獲得', '艦船の残骸　鋼材700を獲得', '鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '放棄されたモジュール　鋼材300、希少金属1を獲得'],
+            ['鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '資源アステロイド　推進剤200、鋼材200を獲得', '大資源アステロイド　推進剤300、鋼材300を獲得', '鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '砕けた惑星核　希少金属3を獲得'],
+            ['鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '枯渇彗星核　実体弾攻撃でダメージ200を出すと推進剤600を獲得', '小惑星の欠片　ビーム攻撃でダメージ200を出すと鋼材600を獲得', '氷のアステロイド群　推進剤500を獲得', 'レアアースアステロイド　希少金属4を獲得'],
+            ['鋼材1　《周辺探索》成功数0～1では鋼材[1D10×30]獲得', '放棄されたドローン　鋼材200、希少金属1を獲得', '希少金属アステロイド　希少金属2を獲得', '巨大アイスブロック　推進剤600を獲得', 'レアアースアステロイド　希少金属4を獲得'],
+          ]
+        ),
+        'TRST' => StellarLife2D10Table.new(
+          'お宝特徴表',
           '恐竜を模した(価値+3)', 'ヘビを模した(価値+1)', '魚を模した(価値+1)', 'イヌを模した(価値+1)', 'ウマを模した(価値+1)', 'ネズミを模した(価値+1)', 'ウサギを模した(価値+1)', 'クマを模した(価値+1)', 'ネコを模した(価値+1)', '鳥を模した(価値+2)',
           '触り心地の良い(価値+1)', 'ふかふかした(価値+1)', 'ふわふわの', '柔らかな', 'なめらかな', 'かすかに震える', 'とげとげした', '硬質な', 'ザラッとした', '持ちやすい(価値+1)',
           '美しい(価値+1)', 'きれいな', '麗しの(価値+1)', '華美な', '派手な', 'ほのかに発光する', '色とりどりの', '鮮やかな', '変化に富む', '可憐な(価値+1)',
@@ -307,13 +274,9 @@ module BCDice
           '気高き(価値+1)', '艶やかな', '気取った', '気位の高い', 'リッチな', '気品漂う', '高潔な', '格調高い(価値+1)', '典雅な', 'ロイヤルな(価値+1)',
           '闇に溶けるような(価値+1)', '血塗られた', '片翼の', '円環の', '「機関」の', 'オッドアイの', '片目の', '堕天使の', '二重人格の(価値+1)', '輝きを纏う(価値+1)',
           '秘密を持つ(価値+2)', 'いわく付きの(価値+1)', '歴史ある(価値+1)', '奪い合われた(価値+1)', '受け継がれた(価値+1)', '失われた文化の(価値+1)', '謎に満ちた(価値+1)', '廃墟で見つかった(価値+1)', 'あのシリーズの1つ(価値+1)', '寵愛を受けた(価値+3)'
-        ]
-        return get_table_by_d1010(table)
-      end
-
-      # お宝形容表
-      def get_treasureappearance_table
-        table = [
+        ),
+        'TRAT' => StellarLife2D10Table.new(
+          'お宝形容表',
           'ブレスト(価値+3)', 'ホーリー(価値+1)', 'ワンダフル(価値+1)', 'シャイニング(価値+1)', 'スーパー(価値+1)', 'エクセレント(価値+1)', 'グロリアス(価値+1)', 'グレート(価値+1)', 'フラワリー(価値+1)', 'ミラクル(価値+2)',
           'アース(価値+1)', 'サバンナ(価値+1)', 'マウンテン', 'リバー', 'フォレスト', 'ジャングル', 'デザート', 'ハイランド', 'レイク', 'オーシャン(価値+1)',
           'スペース(価値+1)', 'コスモ', 'ワールド(価値+1)', 'ユニバーサル', 'スカイ', 'メテオール', 'コメット', 'ルナティック', 'プラネタリー', 'ステラー(価値+1)',
@@ -324,13 +287,9 @@ module BCDice
           '宇宙(価値+1)', '乾坤', '世界', '森羅万象', '空の', '流星の', '隕石の', '月の(価値+1)', '惑星', '星の(価値+1)',
           '大地の(価値+1)', '草原の', '山の', '川の', '森の', '林の', '砂漠の', '高地の', '湖の(価値+1)', '海の(価値+1)',
           '祝福の(価値+2)', '神聖な(価値+1)', '不思議な(価値+1)', '輝かしい(価値+1)', '超(価値+1)', '素晴らしい(価値+1)', '栄光の(価値+1)', '偉大な(価値+1)', '華の(価値+1)', '奇跡の(価値+3)'
-        ]
-        return get_table_by_d1010(table)
-      end
-
-      # お宝外見表
-      def get_treasurematerial_table
-        table = [
+        ),
+        'TRMT' => StellarLife2D10Table.new(
+          'お宝外見表',
           'ダイヤモンド(価値+3)', 'ジェイド(価値+1)', 'エメラルド(価値+1)', 'トパーズ(価値+1)', 'サファイア(価値+1)', 'ルビー(価値+1)', 'ガーネット(価値+1)', 'ラピスラズリ(価値+1)', 'アメジスト(価値+1)', 'スモーキークォーツ(価値+2)',
           'ゴールデン(価値+1)', 'チタン(価値+1)', 'ブリキの', 'アイアン', 'スチール', '真鍮の', 'ブロンズ', 'カッパー', 'シルバー', 'プラチナ(価値+1)',
           'マーブル(価値+1)', 'グラナイト', 'オブシディアン(価値+1)', 'スレート', 'ライムストーン', 'ガラス', 'リネン', 'ビロード', 'コットン', 'シルク(価値+1)',
@@ -341,13 +300,9 @@ module BCDice
           '大理石の(価値+1)', '御影石の', '黒曜石の', '粘板岩の', '石灰岩の', '玻璃の', '麻の', '天鵞絨の(価値+1)', '綿の', '絹の(価値+1)',
           '黄金の(価値+1)', 'アルミニウム', '錫の', '鉄の', '鋼鉄の', '鉛の', '青銅の', '銅の', '銀の(価値+1)', '白金の(価値+1)',
           '金剛石の(価値+2)', '翡翠の(価値+1)', '翠玉の(価値+1)', '黄玉の(価値+1)', '蒼玉の(価値+1)', '紅玉の(価値+1)', '紅榴石の(価値+1)', '瑠璃の(価値+1)', '紫水晶の(価値+1)', '煙水晶の(価値+3)'
-        ]
-        return get_table_by_d1010(table)
-      end
-
-      # お宝物品表
-      def get_treasureobject_table
-        table = [
+        ),
+        'TROT' => StellarLife2D10Table.new(
+          'お宝物品表',
           'フルート(価値+3)', 'オカリナ(価値+1)', 'ギター(価値+1)', 'ピアノ(価値+1)', 'ドラム(価値+1)', 'ティンパニー(価値+1)', '太鼓(価値+1)', 'トランペット(価値+1)', 'ハープ(価値+1)', 'マイク(価値+2)',
           'ブランコ(価値+1)', '人形(価値+1)', 'シーソー', 'ベンチ', 'すべり台', 'ラケット', 'ミニカー', 'コースター', 'ボール', 'オーブ(価値+1)',
           '皿(価値+1)', 'プレート', 'ティーセット(価値+1)', '箸', 'フォーク', 'スプーン', 'ナイフ', 'フライパン', '鍋', 'カップ(価値+1)',
@@ -358,13 +313,9 @@ module BCDice
           'スマートドレス(価値+1)', 'タッチパネル', 'インプットグローブ', 'プロジェクター', 'ディテクター', 'アナライザー', 'インジェクター', 'エアーボトル(価値+1)', 'ワイヤーロンチャー', 'ジェットパック(価値+1)',
           'ランプ(価値+1)', 'ドア', '窓', '灯籠', '棚', 'キッチン', 'ソファ', '椅子', 'テーブル(価値+1)', 'ベッド(価値+1)',
           '人物像(価値+2)', 'フィギュア(価値+1)', 'モデル(価値+1)', '植物像(価値+1)', '動物像(価値+1)', 'レリーフ(価値+1)', 'オブジェ(価値+1)', 'ドーム(価値+1)', 'タペストリー(価値+1)', '絵画(価値+3)'
-        ]
-        return get_table_by_d1010(table)
-      end
-
-      # 超未来の技術
-      def get_sftechnology_table
-        table = [
+        ),
+        'TET' => StellarLifeD10_1to0_Table.new(
+          '超未来の技術',
           '船の種、家の種、ビルの種：発達したバイオテクノロジーにより、光合成をしながらカーボン製品を作り出す「種」が作られました。土に植えると一軒家に育ったり、立派な木になってコップの実をならせたりします。',
           'ワープリング：星と星の間を結ぶ空間のトンネルを作り出すのが、「ワープリング」です。中に入ると超光速で空間が周回しており、数時間から数日で数光年先の星に辿り着くことができます。',
           '擬似重力発生装置：超未来の宇宙船や宇宙ステーションでは、回転による遠心力などを活用して、擬似的に床に引っ張られる力を発生させています。パラメーターを変えれば、物の重さも体重も思いのままです。',
@@ -375,30 +326,22 @@ module BCDice
           'ジェットパック：個人用の強力なジェット噴射機で、誰でも空に飛び上がることができます。長く使っていると高熱を発するので注意。宇宙空間では、これとスマートワイヤーを組み合わせて移動に使います。',
           'メンタルプロジェクション：ヒトの心は、様々な価値観や性格が溶け合う複層的なもの。その複雑な姿を脳波投影で視界に映して、心の整理を付けやすくする技術です。しばしば「天使と悪魔」のビジュアルを付けます。',
           'スライムソファ：球体状の大きなソファで、ポリマーとカーボン素材でできており、自在に変形させたり柔らかさを変えたりできます。床や壁に吸着してくれるため、無重力空間では身体を固定してくれます。'
-        ]
-        return get_table_by_1d10(table)
-      end
-
-      # 超未来のエンタメ
-      def get_sfentertainment_table
-        table = [
+        ),
+        'ENT' => StellarLifeD10_1to0_Table.new(
+          '超未来のエンタメ',
           'ホロシアター：劇場いっぱいにホログラムを展開して、広大な大地や美しい空の上などで大冒険のスペクタクルショーを「その場にいるような」臨場感で楽しむことができます。',
           'アバターファイト！：手の平サイズの小型の人型アバターを思念で操って、ドームの中でバトルを楽しみます。フィールドはホログラム生成で、ビームやミサイルもホログラム再現なので、損傷の心配はありません。',
-          'VRゲーム：外接電脳さえ持っていれば、VR ゴーグルがなくても仮想現実世界にダイブできます。圧倒的なリアリティを持つ仮想世界を堪能し、育成や対戦、パズルなど様々なゲームを楽しめます。',
+          'VRゲーム：外接電脳さえ持っていれば、VRゴーグルがなくても仮想現実世界にダイブできます。圧倒的なリアリティを持つ仮想世界を堪能し、育成や対戦、パズルなど様々なゲームを楽しめます。',
           'ハイド・アンド・シーク：惑星全域を舞台にしたかくれんぼです。第七感覚をフル活用して都市の全域を見て回り、ときには動物たちからも情報を集めながら、この星のどこかにいる鬼を見つけ出しましょう。',
           'アロマバス：リラックスできる香りがいっぱいのお湯に浸かって、心身を癒やします。神経に疲れが溜まる超未来。ハーブの香りを思い切り吸い込んで、緊張を溶きほぐします。',
           'ロジックパズル：外接電脳をフル活用しないと解けないような、難解なパズルに挑戦します。一見すると無関係な2つの要素を組み合わせることで、意外な手がかりが見つかります。',
           'ホロアスレチック：コンクリートや植物性ビルなどを使って組み立てた殺風景なアスレチックを、ホログラムで美しくダイナミックに彩ります。超未来人の高い運動能力を存分に発揮できます。',
           'スカイレース：超未来なので人は空を飛べます。トリブリードは自前の翼で、そうでなくても自分で設計したグライダーなどで、空中にホロ投影されるリングを通過しながら、複雑なコースを高速で飛びます。',
           'ミステリーハウス：宝探しや事件解決など、規定時間以内に「謎」を解くイベントです。屋敷の中には手がかりが散りばめられており、VRでもリアルでも手軽に探偵遊びを楽しむことができます。',
-          'SNS：超未来のSNS は濃密にして苛烈！超高速でやり取りが行いながら、惑星の多くの人々と触れ合い交流を深めます。惑星ごとの微妙な文化の違いに注意を払いましょう。'
-        ]
-        return get_table_by_1d10(table)
-      end
-
-      # 超未来の文化
-      def get_sfculture_table
-        table = [
+          'SNS：超未来のSNSは濃密にして苛烈！超高速でやり取りが行いながら、惑星の多くの人々と触れ合い交流を深めます。惑星ごとの微妙な文化の違いに注意を払いましょう。'
+        ),
+        'CUT' => StellarLifeD10_1to0_Table.new(
+          '超未来の文化',
           'リスペクト・ユー：超未来の社会では、他人に対する「リスペクト」が何より大事にされています。見てもらうこと、尊敬されることを目指して、今日も人々はSNSで活動したり、働いたりします。',
           'マインドミュージック：手を振るうことで感情を音色にする未来的な音楽です。VRやホログラフィと組み合わせれば映像効果も付き、思うままに自分の心から湧き出る音楽を演奏することができます。',
           'レプロドュィーユ：オペラやバレエ、歌舞伎、ミュージカルといった歌劇の血筋を引いた文化です。物語や歴史の登場人物になりきって、身体の動きを正確に制御しつつ音楽を演奏して全身で表現を行います。',
@@ -409,13 +352,9 @@ module BCDice
           'ガーデニング：平たい土地に植物や柵、椅子や机などの種を植えて、美しい庭を造成します。惑星ごとに異なる気候に適応した様々な固有種を使って、その惑星ならではの花の彩りを演出しましょう。',
           'お料理！：超未来の合成肉や促成栽培野菜などを使って、舌を楽しませるおいしい料理を作りましょう。調理器具は3Dプリンターやクローナイフ、調味料は塩や砂糖、マイクロマシンに香辛料などです。',
           'シリコンオフィス：角張ったオフィス机やタイムカードなど超未来の世界では絶滅しました。人々は家からでも公園からでも木の上や洞窟の中からでもワークに参加しますし、趣味と労働の区別を付けません。'
-        ]
-        return get_table_by_1d10(table)
-      end
-
-      # 超未来の自然
-      def get_sfnature_table
-        table = [
+        ),
+        'NAT' => StellarLifeD10_1to0_Table.new(
+          '超未来の自然',
           'アニマルハート：動物たちの鳴き声の意味を解読し、また脳波分析を組み合わせることで、高等知能動物たちとある程度の意思疎通ができます。共通の話題は天気の話や景色の話、それにコイバナなど。',
           'キャンプ：野外で夜を越すときは、キャンプをします。スマートテクスタイルを広げて雨風を避けるテントを作り、虫や鳥の鳴き声を聞きながら星空を眺めて一晩を過ごします。',
           'ミネラルウォーター：テラフォーミングした惑星の海は、元の惑星のミネラル組成によって成分がだいぶ違ってきます。それほどしょっぱくない海もあれば、赤や緑っぽい海もあり。生息する魚等もまったく違います。',
@@ -426,13 +365,9 @@ module BCDice
           'スカイハイ・ビュー：自然の環境ですばやく移動するには、グライダーや翼を使って滑空するのが手っ取り早いです。高い木や丘に上ってからジェットパック併用で舞い上がれば、空からの美しい景観も楽しめます。',
           '道なき森の道：惑星を覆う森の中には、基本的に整備された道はありません。空を見上げれば陽の光を遮る樹の冠。草をかき分け、花や草いきれの臭いを感じながら、ときには木の上を通って、先に進みます。',
           'テラフォーミング：この銀河で、地球以外のすべての惑星はヒトが入植するために「テラフォーミング」したものです。水と大気を形成し、植物を育て、動物たちを導入し、長い年月を経て現在の姿になりました。'
-        ]
-        return get_table_by_1d10(table)
-      end
-
-      # 超未来の宇宙船内
-      def get_sfinterior_table
-        table = [
+        ),
+        'INT' => StellarLifeD10_1to0_Table.new(
+          '超未来の宇宙船内',
           '甲板上でお茶を：狭い宇宙船に飽きてきたら、甲板の上に出て無限に広がる宇宙を感じることもできます。気圧0なので圧力ポットで持ってくる必要がありますが、星空を眺めながら飲むお茶は乙なものです。',
           'マイクロマシン隔壁：宇宙船の隔壁はメタルナノカーボンやナノスチールでできていますが、補修のためにマイクロマシンが住んでいます。ときどき壁の端がちらちら動いて見えるのも、彼らのためかもしれません。',
           'ダンベル100kg持てる：惑星環境と比べれば、宇宙船の擬似重力はどうしても弱くなるもの。筋力の衰えを防ぐために、部屋にトレーニングマシンを生成して筋トレをします。適度な負荷をかけましょう。',
@@ -443,9 +378,10 @@ module BCDice
           'ワープ酔い：ワープ航法は空間の歪みを利用します。装甲が最も厚いユリカゴの中でも、ワープリングを出入りするときはグラっとくる感触があります。気分が悪くなったら、おとなしく寝ていましょう。',
           '1日25時間：宇宙船に「昼夜」はないため、照明を人工的に調整して生活サイクルを作ります。どうせ惑星ごとに1日の長さは違うので、24時間にこだわる必要はありません。自由に決めます。',
           'スターリー・スカイ：惑星の明かりも大気もない宇宙船の上からは、星空を鮮やかに見ることができます。当然、星によって天球図も違います。月が2つや4つあったり、連星が見られたりします。'
-        ]
-        return get_table_by_1d10(table)
-      end
+        ),
+      }.freeze
+
+      register_prefix(TABLES.keys)
     end
   end
 end

data/lib/bcdice/game_system/StrangerOfSwordCity.rb

@@ -37,6 +37,8 @@ module BCDice
         command = command.upcase
 
         result = checkRoll(command)
+
+        return result if result.instance_of?(Result)
         return result unless result.empty?
 
         return result
@@ -45,7 +47,8 @@ module BCDice
       def checkRoll(command)
         debug("checkRoll begin command", command)
 
-        result = ''
+        result = Result.new
+        result.text = ''
         return result unless command =~ /^(\d+)SR([+\-]?\d+)?(>=(\d+))?$/i
 
         diceCount = Regexp.last_match(1).to_i
@@ -57,21 +60,31 @@ module BCDice
 
         totalValue = (dice + modify)
         modifyText = getModifyText(modify)
-        result += "(#{command}) ＞ #{dice}[#{diceList.join(',')}]#{modifyText} ＞ #{totalValue}"
+        result.text += "(#{command}) ＞ #{dice}[#{diceList.join(',')}]#{modifyText} ＞ #{totalValue}"
 
         criticalResult = getCriticalResult(diceList)
         unless criticalResult.nil?
-          result += " ＞ クリティカル(+#{criticalResult}D6)"
+          result.critical = true
+          result.success = true
+          result.text += " ＞ クリティカル(+#{criticalResult}D6)"
           return result
         end
 
         if isFumble(diceList, diceCount)
-          result += ' ＞ ファンブル'
+          result.fumble = true
+          result.failure = true
+          result.text += ' ＞ ファンブル'
           return result
         end
 
         unless difficulty.nil?
-          result += totalValue >= difficulty ? ' ＞ 成功' : ' ＞ 失敗'
+          if totalValue >= difficulty
+            result.success = true
+            result.text += ' ＞ 成功'
+          else
+            result.failure = true
+            result.text += ' ＞ 失敗'
+          end
         end
 
         return result