bcdice 3.0.0.pre.alpha.1

data/lib/bcdice/game_system/WARPS.rb

@@ -0,0 +1,33 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class WARPS < Base
+      # ゲームシステムの識別子
+      ID = 'WARPS'
+
+      # ゲームシステム名
+      NAME = 'ワープス'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'わあふす'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = "失敗、成功度の自動判定を行います。\n"
+
+      def check_2D6(total, dice_total, _dice_list, cmp_op, target)
+        if dice_total <= 2
+          " ＞ クリティカル"
+        elsif dice_total >= 12
+          " ＞ ファンブル"
+        elsif cmp_op == :<= && target != "?"
+          if total <= target
+            " ＞ #{target - total}成功"
+          else
+            " ＞ 失敗"
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/WaresBlade.rb

@@ -0,0 +1,34 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class WaresBlade < Base
+      # ゲームシステムの識別子
+      ID = 'WaresBlade'
+
+      # ゲームシステム名
+      NAME = 'ワースブレイド'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'わあすふれいと'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = "nD10>=m 方式の判定で成否、完全成功、完全失敗を自動判定します。\n"
+
+      def check_nD10(total, _dice_total, dice_list, cmp_op, target)
+        return '' if target == '?'
+        return '' unless cmp_op == :>=
+
+        if dice_list.count(10) == dice_list.size
+          ' ＞ 完全成功'
+        elsif dice_list.count(1) == dice_list.size
+          ' ＞ 絶対失敗'
+        elsif total >= target
+          ' ＞ 成功'
+        else
+          ' ＞ 失敗'
+        end
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/Warhammer.rb

@@ -0,0 +1,336 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class Warhammer < Base
+      # ゲームシステムの識別子
+      ID = 'Warhammer'
+
+      # ゲームシステム名
+      NAME = 'ウォーハンマー'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'うおおはんまあ'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
+        ・クリティカル表(whHxx/whAxx/whBxx/whLxx)
+        　"WH部位 クリティカル値"の形で指定します。部位は「H(頭部)」「A(腕)」「B(胴体)」「L(足)」の４カ所です。
+        　例）whH10 whA5 WHL4
+        ・命中判定(WHx@t)
+        　"WH(命中値)@(種別)"の形で指定します。
+        　種別は脚の数を数字、翼が付いているものは「W」、手が付いているものは「H」で書きます。
+        　「2H(二足)」「2W(有翼二足)」「4(四足)」「4H(半人四足)」「4W(有翼四足)」「W(鳥類)」となります。
+        　命中判定を行って、当たれば部位も表示します。
+        　なお、種別指定を省略すると「二足」、「@」だけにすると全種別の命中部位を表示します。(コマンドを忘れた時の対応です)
+        　例）wh60　　wh43@4W　　WH65@
+      INFO_MESSAGE_TEXT
+
+      register_prefix(['WH.*'])
+
+      def initialize(command)
+        super(command)
+
+        @round_type = RoundType::CEIL # 端数切り上げに設定
+      end
+
+      def eval_game_system_specific_command(command)
+        output_msg = nil
+
+        case command.upcase
+
+        when /^(WH\d+(@[\dWH]*)?)/i
+          attackCommand = Regexp.last_match(1)
+          output_msg = getAttackResult(attackCommand)
+
+        when /^(WH[HABTLW]\d+)/i
+          criticalCommand = Regexp.last_match(1)
+          output_msg = getCriticalResult(criticalCommand)
+        end
+
+        return output_msg
+      end
+
+      def check_1D100(total, _dice_total, cmp_op, target)
+        return '' if target == '?'
+        return '' unless cmp_op == :<=
+
+        if total <= target
+          " ＞ 成功(成功度#{(target - total) / 10})"
+        else
+          " ＞ 失敗(失敗度#{(total - target) / 10})"
+        end
+      end
+
+      ####################            WHFRP関連          ########################
+      def getCriticalResult(string)
+        # クリティカル効果データ
+        whh = [
+          '01:打撃で状況が把握出来なくなる。次ターンは1回の半アクションしか行なえない。',
+          '02:耳を強打された為、耳鳴りが酷く目眩がする。1Rに渡って一切のアクションを行なえない。',
+          '03:打撃が頭皮を酷く傷つけた。【武器技術度】に-10%。治療を受けるまで継続。',
+          '04:鎧が損傷し当該部位のAP-1。修理するには(職能:鎧鍛冶)テスト。鎧を着けていないなら1Rの間アクションを行なえない。',
+          '05:転んで倒れ、頭がくらくらする。1Rに渡ってあらゆるテストに-30で、立ち上がるには起立アクションが必要。',
+          '06:1d10R気絶。',
+          '07:1d10分気絶。以後CTはサドンデス。',
+          '08:顔がずたずたになって倒れ、以後無防備状態。治療を受けるまで毎Rの被害者のターン開始時に20%で死亡。以後CTはサドンデスを適用。【頑強】テストに失敗すると片方の視力を失う。',
+          '09:凄まじい打撃により頭蓋骨が粉砕される。死は瞬時に訪れる。',
+          '10:死亡する。いかに盛大に出血し、どのような死に様を見せたのかを説明してもよい。',
+        ]
+        wha = [
+          '01:手に握っていたものを落とす。盾はくくりつけられている為、影響なし。',
+          '02:打撃で腕が痺れ、1Rの間使えなくなる。',
+          '03:手の機能が失われ、治療を受けるまで回復できない。手で握っていたもの(盾を除く)は落ちる。',
+          '04:鎧が損傷する。当該部位のAP-1。修理するには(職能:鎧鍛冶)テスト。鎧を着けていないなら腕が痺れ、1Rの間使えなくなる。',
+          '05:腕の機能が失われ、治療を受けるまで回復できない。手で握っていたもの(盾を除く)は落ちる。',
+          '06:腕が砕かれる。手で握っていたもの(盾を除く)は落ちる。出血がひどく、治療を受けるまで毎Rの被害者のターン開始時に20%で死亡。以後CTはサドンデスを適用。',
+          '07:手首から先が血まみれの残骸と化す。手で握っていたもの(盾を除く)は落ちる。出血がひどく、治療を受けるまで毎Rの被害者のターン開始時に20%で死亡。以後CTはサドンデスを適用。【頑健】テストに失敗すると手の機能を失う。',
+          '08:腕は血まみれの肉塊がぶら下がっている状態になる。手で握っていたもの(盾を除く)は落ちる。治療を受けるまで毎Rの被害者のターン開始時に20%で死亡。以後CTはサドンデスを適用。【頑健】テストに失敗すると肘から先の機能を失う。',
+          '09:大動脈に傷が及んだ。コンマ数秒の内に損傷した肩から血を噴出して倒れる。ショックと失血により、ほぼ即死する。',
+          '10:死亡する。いかに盛大に出血し、どのような死に様を見せたのかを説明してもよい。',
+        ]
+        whb = [
+          '01:打撃で息が詰まる。1Rの間、キャラクターの全てのテストや攻撃に-20%。',
+          '02:股間への一撃。苦痛のあまり、1Rに渡って一切のアクションを行なえない。',
+          '03:打撃で肋骨がぐちゃぐちゃになる。以後治療を受けるまでの間、【武器技術度】に-10%。',
+          '04:鎧が損傷する。当該部位のAP-1。修理するには(職能:鎧鍛冶)テスト。鎧を着けていないなら股間への一撃、1Rに渡って一切のアクションを行なえない。',
+          '05:転んで倒れ、息が詰まって悶絶する。1Rに渡ってあらゆるテストに-30の修正、立ち上がるには起立アクションが必要。',
+          '06:1d10R気絶。',
+          '07:ひどい内出血が起こり、無防備状態。出血がひどく、治療を受けるまで毎Rの被害者のターン開始時に20%で死亡。',
+          '08:脊髄が粉砕されて倒れ、以後治療を受けるまで無防備状態。以後CTはサドンデスを適用。【頑強】テストに失敗すると腰から下が不随になる。',
+          '09:凄まじい打撃により複数の臓器が破裂し、死は数秒のうちに訪れる。',
+          '10:死亡する。いかに盛大に出血し、どのような死に様を見せたのかを説明してもよい。',
+        ]
+        whl = [
+          '01:よろめく。次のターン、1回の半アクションしか行なえない。',
+          '02:脚が痺れる。1Rに渡って【移動】は半減し、脚に関連する【敏捷】テストに-20%。回避が出来なくなる。',
+          '03:脚の機能が失われ、治療を受けるまで回復しない。【移動】は半減し、脚に関連する【敏捷】テストに-20%。回避が出来なくなる。',
+          '04:鎧が損傷する。当該部位のAP-1。修理するには(職能:鎧鍛冶)テスト。鎧を着けていないなら脚が痺れる、1Rに渡って【移動】は半減し、脚に関連する【敏捷】テストに-20%、回避不可になる。',
+          '05:転んで倒れ、頭がくらくらする。1Rに渡ってあらゆるテストに-30の修正、立ち上がるには起立アクションが必要。',
+          '06:脚が砕かれ、無防備状態。出血がひどく、治療を受けるまで毎Rの被害者のターン開始時に20%で死亡。以後CTはサドンデスを適用。',
+          '07:脚は血まみれの残骸と化し、無防備状態になる。治療を受けるまで毎Rの被害者のターン開始時に20%で死亡。以後CTはサドンデスを適用。【頑強】テストに失敗すると足首から先を失う。',
+          '08:脚は血まみれの肉塊がぶらさがっている状態。以後無防備状態。治療を受けるまで毎Rの被害者のターン開始時に20%で死亡。以後CTはサドンデスを適用。【頑強】テストに失敗すると膝から下を失う。',
+          '09:大動脈に傷が及ぶ。コンマ数秒の内に脚の残骸から血を噴出して倒れ、ショックと出血で死は瞬時に訪れる。',
+          '10:死亡する。いかに盛大に出血し、どのような死に様を見せたのかを説明してもよい。',
+        ]
+        whw = [
+          '01:軽打。1ラウンドに渡って、あらゆるテストに-10％。',
+          '02:かすり傷。+10％の【敏捷】テストを行い、失敗なら直ちに高度を1段階失う。地上にいるクリーチャーは、次のターンには飛び立てない。',
+          '03:損傷する。【飛行移動力】が2点低下する。-10％の【敏捷】テストを行い、失敗なら直ちに高度を1段階失う。地上にいるクリーチャーは、次のターンには飛び立てない。',
+          '04:酷く損傷する。【飛行移動力】が4点低下する。-30％の【敏捷】テストを行い、失敗なら直ちに高度を1段階失う。地上にいるクリーチャーは、1d10ターンが経過するまで飛び立てない。',
+          '05:翼が使えなくなる。【飛行移動力】が0に低下する。飛行中のものは落下し、高度に応じたダメージを受ける。地上にいるクリーチャーは、怪我が癒えるまで飛び立てない。',
+          '06:翼の付け根に傷が開く。【飛行移動力】が0に低下する。飛行中のものは落下し、高度に応じたダメージを受ける。地上にいるクリーチャーは、怪我が癒えるまで飛び立てない。治療を受けるまで毎R被害者のターン開始時に20％の確率で死亡。以後CTはサドンデスを適用。',
+          '07:翼は血まみれの残骸と化し、無防備状態になる。【飛行移動力】が0に低下する。飛行中のものは落下し、高度に応じたダメージを受ける。地上にいるクリーチャーは、怪我が癒えるまで飛び立てない。治療を受けるまで毎R被害者のターン開始時に20％の確率で死亡。以後CTはサドンデスを適用。【頑強】テストに失敗すると飛行能力を失う。',
+          '08:翼が千切れてバラバラになり、無防備状態になる。【飛行移動力】が0に低下する。飛行中のものは落下し、高度に応じたダメージを受ける。地上にいるクリーチャーは、怪我が癒えるまで飛び立てない。治療を受けるまで毎R被害者のターン開始時に20％の確率で死亡。以後CTはサドンデスを適用。飛行能力を失う。',
+          '09:大動脈が切断された。コンマ数秒の内に血を噴き上げてくずおれる、ショックと出血で死は瞬時に訪れる。',
+          '10:死亡する。いかに盛大に出血し、どのような死に様を見せたのかを説明してもよい。',
+        ]
+
+        criticalTable = [
+          5, 7, 9, 10, 10, 10, 10, 10, 10, 10, # 01-10
+          5, 6, 8, 9, 10, 10, 10, 10, 10, 10, # 11-20
+          4, 6, 8, 9, 9, 10, 10, 10, 10, 10, # 21-30
+          4, 5, 7, 8, 9, 9, 10, 10, 10, 10, # 31-40
+          3, 5, 7, 8, 8, 9, 9, 10, 10, 10, # 41-50
+          3, 4, 6, 7, 8, 8, 9, 9, 10, 10, # 51-60
+          2, 4, 6, 7, 7, 8, 8, 9, 9, 10, # 61-70
+          2, 3, 5, 6, 7, 7, 8, 8, 9, 9,  # 71-80
+          1, 3, 5, 6, 6, 7, 7, 8, 8, 9,  # 81-90
+          1, 2, 4, 5, 6, 6, 7, 7, 8, 8,  # 91-00
+        ]
+
+        unless /WH([HABTLW])(\d+)/ =~ string
+          return '1'
+        end
+
+        partsWord = Regexp.last_match(1) # 部位
+        criticalValue = Regexp.last_match(2).to_i # クリティカル値
+        criticalValue = 10 if criticalValue > 10
+        criticalValue = 1 if criticalValue < 1
+
+        whpp = ''
+        whppp = ''
+
+        case partsWord
+        when /H/i
+          whpp = '頭部'
+          whppp = whh
+        when /A/i
+          whpp = '腕部'
+          whppp = wha
+        when /[TB]/i
+          whpp = '胴体'
+          whppp = whb
+        when /L/i
+          whpp = '脚部'
+          whppp = whl
+        when /W/i
+          whpp = '翼部'
+          whppp = whw
+        end
+
+        dice_now = @randomizer.roll_once(100)
+
+        crit_no = ((dice_now - 1) / 10).to_i * 10
+        crit_num = criticalTable[crit_no + criticalValue - 1]
+
+        resultText = whppp[crit_num - 1]
+        if crit_num >= 5
+          resultText += 'サドンデス×'
+        else
+          resultText += 'サドンデス○'
+        end
+
+        output = "#{whpp}CT表(#{dice_now}+#{criticalValue}) ＞ #{resultText}"
+
+        return output
+      end
+
+      def wh_atpos(pos_num, pos_type) # WHFRP2命中部位表
+        debug("wh_atpos begin pos_type", pos_type)
+        pos_2l = [
+          '二足',
+          15, '頭部',
+          35, '右腕',
+          55, '左腕',
+          80, '胴体',
+          90, '右脚',
+          100, '左脚',
+        ]
+        pos_2lw = [
+          '有翼二足',
+          15, '頭部',
+          25, '右腕',
+          35, '左腕',
+          45, '右翼',
+          55, '左翼',
+          80, '胴体',
+          90, '右脚',
+          100, '左脚',
+        ]
+        pos_4l = [
+          '四足',
+          15, '頭部',
+          60, '胴体',
+          70, '右前脚',
+          80, '左前脚',
+          90, '右後脚',
+          100, '左後脚',
+        ]
+        pos_4la = [
+          '半人四足',
+          10, '頭部',
+          20, '右腕',
+          30, '左腕',
+          60, '胴体',
+          70, '右前脚',
+          80, '左前脚',
+          90, '右後脚',
+          100, '左後脚',
+        ]
+        pos_4lw = [
+          '有翼四足',
+          10, '頭部',
+          20, '右翼',
+          30, '左翼',
+          60, '胴体',
+          70, '右前脚',
+          80, '左前脚',
+          90, '右後脚',
+          100, '左後脚',
+        ]
+        pos_b = [
+          '鳥',
+          15, '頭部',
+          35, '右翼',
+          55, '左翼',
+          80, '胴体',
+          90, '右脚',
+          100, '左脚',
+        ]
+
+        wh_pos = [pos_2l, pos_2lw, pos_4l, pos_4la, pos_4lw, pos_b]
+
+        pos_t = 0
+        debug("pos_type", pos_type)
+        if pos_type != ""
+          case pos_type
+          when /\@(2W|W2)/i
+            pos_t = 1
+          when /\@(4W|W4)/i
+            pos_t = 4
+          when /\@(4H|H4)/i
+            pos_t = 3
+          when /\@4/i
+            pos_t = 2
+          when /\@W/i
+            pos_t = 5
+          else
+            unless  /\@(2H|H2|2)/i =~ pos_type
+              pos_t = -1
+            end
+          end
+        end
+
+        output = ""
+
+        debug("pos_t", pos_t)
+        if pos_t < 0
+          wh_pos.each do |pos_i|
+            output += get_wh_atpos_message(pos_i, pos_num)
+          end
+        else
+          pos_i = wh_pos[pos_t]
+          output += get_wh_atpos_message(pos_i, pos_num)
+        end
+
+        return output
+      end
+
+      def get_wh_atpos_message(pos_i, pos_num)
+        output = ""
+
+        output += ' ' + pos_i[0] + ":"
+
+        1.step(pos_i.length + 1, 2) do |i|
+          if pos_num <= pos_i[i]
+            output += pos_i[i + 1]
+            break
+          end
+        end
+
+        return output
+      end
+
+      def getAttackResult(string)
+        debug("getAttackResult begin string", string)
+
+        pos_type = ""
+
+        if /(.+)(@.*)/ =~ string
+          string = Regexp.last_match(1)
+          pos_type = Regexp.last_match(2)
+          debug("pos_type", pos_type)
+        end
+
+        unless /WH(\d+)/i =~ string
+          return '1'
+        end
+
+        diff = Regexp.last_match(1).to_i
+
+        total_n = @randomizer.roll_once(100)
+
+        output = "(#{string}) ＞ #{total_n}"
+        output += check_1D100(total_n, total_n, :<=, diff)
+
+        pos_num = (total_n % 10) * 10 + (total_n / 10).to_i
+        pos_num = 100 if total_n >= 100
+
+        output += wh_atpos(pos_num, pos_type) if total_n <= diff
+
+        return output
+      end
+    end
+  end
+end

data/lib/bcdice/game_system/WitchQuest.rb

@@ -0,0 +1,275 @@
+# frozen_string_literal: true
+
+module BCDice
+  module GameSystem
+    class WitchQuest < Base
+      # ゲームシステムの識別子
+      ID = 'WitchQuest'
+
+      # ゲームシステム名
+      NAME = 'ウィッチクエスト'
+
+      # ゲームシステム名の読みがな
+      SORT_KEY = 'ういつちくえすと'
+
+      # ダイスボットの使い方
+      HELP_MESSAGE = <<~MESSAGETEXT
+        ・チャレンジ(成功判定)(WQn)
+        　n回2d6ダイスを振って判定を行います。
+        　例）WQ3
+        ・SET（ストラクチャーカードの遭遇表(SETn)
+        　ストラクチャーカードの番号(n)の遭遇表結果を得ます。
+        　例）SET1　SET48
+      MESSAGETEXT
+
+      register_prefix(['WQ\d+', 'SET\d+'])
+
+      def eval_game_system_specific_command(command)
+        case command
+        when /WQ(\d+)/
+          number = Regexp.last_match(1).to_i
+          return challenge(number)
+        when /SET(\d+)/
+          number = Regexp.last_match(1).to_i
+          return getStructureEncounter(number)
+        end
+
+        return nil
+      end
+
+      def challenge(number)
+        success = 0
+        results = []
+
+        number.times do
+          value1 = @randomizer.roll_once(6)
+          value2 = @randomizer.roll_once(6)
+
+          if value1 == value2
+            success += 1
+          end
+
+          results << "#{value1},#{value2}"
+        end
+
+        successText = "(#{results.join(' / ')}) ＞ " + getSuccessText(success)
+        return successText
+      end
+
+      def getSuccessText(success)
+        table = [[0, "失敗"],
+                 [1, "１レベル成功(成功)"],
+                 [2, "２レベル成功(大成功)"],
+                 [3, "３レベル成功(奇跡的大成功)"],
+                 [4, "４レベル成功(歴史的大成功)"],
+                 [5, "５レベル成功(伝説的大成功)"],
+                 [6, "６レベル成功(神話的大成功)"],]
+
+        if success >= table.last.first
+          return table.last.last
+        end
+
+        return get_table_by_number(success, table)
+      end
+
+      def getStructureEncounter(number)
+        debug("getStructureEncounter number", number)
+
+        tables = [[1, ['船から降りてきた', '魚を売っている', '仕事で忙しそうな', '異国から来た', 'おもしろおかしい', '汗水流している']],
+                  [2, ['おかしな格好をした', '歌を歌っている', 'ステキな笑顔をした', '日なたぼっこをしている', '悩んでいる', '旅をしている']],
+                  [3, ['待ちぼうけをしている', '壁に登っている', 'タバコを吸っている', '踊りを踊っている', '幸せそうな', '向こうから走ってくる']],
+                  [4, ['見張りをしている', 'しゃべれない', '見張りをしている', '一輪車に乗った', '元気いっぱいの', '真面目な']],
+                  [5, ['ウソつきな', '買い物をしている', 'ギターを弾いている', 'あなたのほうをじっと見ている', 'ポップコーンを売っている', '屋台を出している']],
+                  [6, ['子供を探している', '時計を直している', '物乞いをしている', '気象実験をしている', '飛び降りようとしている', '時間をきにしている']],
+                  [7, ['目の見えない', '金持ちそうな', '一人歩きをしたことがない', 'ふられてしまった', '待ち合わせをしている', '道に迷った']],
+                  [8, ['お祈りをしている', 'スケッチをしている', '勉強熱心な', '記念碑を壊そうとしている', '大きな声で文句をいっている', '記念撮影している']],
+                  [9, ['隠れている', 'はしごに登っている', '鐘を鳴らしている', '共通語の通じない', '記憶を失った', 'あなたのほうにバタッと倒れた']],
+                  [10, ['暇そうな', '笑ったことがない', 'ぶくぶくと太った', '後継者を探している', '王様におつかえしている', '愛国心旺盛な']],
+                  [11, ['閉じ込められた', '悲しそうな', '怒っている', '降りれなくなっている', 'もの憂げな', '飛ぼうとしている']],
+                  [12, ['釣りをしている', '泳いでいる', '川に物を落としてしまった', '砂金を掘っている', '川にゴミを捨てている', 'カエルに化かされてしまった']],
+                  [13, ['世間話をしている', '結婚を薦めたがる', 'いやらしい話の好きな', '選択をしている', '水を汲んでいる', '井戸に落ちてしまった']],
+                  [14, ['人におごりたがる', '踊り子をしている', '賭けをしている', '泣き上戸な', '飲み比べをしている', '自慢話をしている']],
+                  [15, ['素朴そうな', '田舎者の', 'あなたをだまそうとしている', 'ケンカをしている', '泊まるお金のない', 'あなたに依頼をしにきた']],
+                  [16, ['悪い占いの結果しか言わない', 'あなたに嫉妬している', '魅惑的な', 'おしつけがましい', 'いいかげんな占いしかしない', '変わった占いをしている']],
+                  [17, ['かくれんぼをしている', 'あまやどりをしている', '(ここにはだれもいません)', '家の掃除をしている', '取り壊しをしようとしている', '昔ここに住んでいた']],
+                  [18, ['畑を耕している', '畑を荒らしている', '畑泥棒の', '収穫している', '日焼けして真っ黒な', '嫁いできた(婿にきた)']],
+                  [19, ['粉をひいている', '馬に乗って風車に突進している', '風が吹かなくて困っている', '寝ている', '筋骨りゅうりゅうな', '遊んでいる']],
+                  [20, ['パーティーをしている', '酔っ払っている', '酒を仕込んでいる', '即売会をしている', '笑っている', '太った']],
+                  [21, ['ひとりたたずむ', '花から生まれた', '花が大好きな', '花粉症の', '花を買いにきた', 'ラグビーをやって花をあらしてる']],
+                  [22, ['几帳面な', '眼鏡をかけた', 'なまいきな', 'なわとびをしている', '困っている', 'ませている']],
+                  [23, ['本を読んでいる', '世間話をしたがる', '派手な格好をした', '勉強熱心な', 'うるさい', '魔女のことについて調べている']],
+                  [24, ['神父さんに相談をしている', '結婚式を挙げている', '物静かな', '片足の無い', '熱い視線を送ってくる', '挑発してくる']],
+                  [25, ['頑固な', '刀の切れ味をためしたがる', 'いいかげんな性格の', 'スグに弟子にしたがる', '見せの前でウロウロしている', '道を尋ねている']],
+                  [26, ['不機嫌な', '客の意見を聞かない', '物を売らない', '不幸な気前のいい', '発明家の']],
+                  [27, ['恋人にプレゼントを探している', '香り中毒になった', '客に手伝わせる', 'おまじないの好きな', '人好きのする', 'いじめっこな']],
+                  [28, ['騒がしい', 'お菓子を食べて涙を流している', '笑いの止まらない', '甘い物に目がない', '別れ話をしている', 'あなたをお茶に誘う']],
+                  [29, ['フランスパンを盗んで走る', 'しらけた顔をした', '店番をする', 'あなたをバイトで使いたがる', '変なパンしか作らない', '朝が苦手な']],
+                  [30, ['偏屈な', '威勢のいい', 'ケンカっぱやい', '野次馬根性の強い', '肉が食べれない', '心優しく気前がいい']],
+                  [31, ['夫婦ケンカをしている', '猫に魚を盗られた', '助けを求めている', '魚の種類がわからない', '『おいしい』としかいわない', 'あやしい']],
+                  [32, ['ヤンキー風の', '自分がかっこいいと思っている', '力自慢の', '元は王様だといいはる', '魔女のファンだという', '子沢山の']],
+                  [33, ['わがままな', 'かっこいい', '独り言を言っている', '変わった料理しかださない', '目茶苦茶辛い料理を食べている', 'デートをしている']],
+                  [34, ['仮病を使っている', '不治の病を持った', '”おめでた”の', 'フケた顔した', '髪の毛を染めた', '(健康でも)病名をいいたがる']],
+                  [35, ['実験をしたがる', '精力をつけたがっている', '惚れ薬を探している', '薬づけになっている', 'この町まで薬を売りに来た', '睡眠薬で自殺をしようとしている']],
+                  [36, ['服まで質に入れた', '値段にケチをつけている', '疲れている', '子供を質に入れようとしている', '涙もろい', '人間不信な']],
+                  [37, ['着飾った', 'おねだりしている', '退屈そうな', '見栄っぱりな', '高いものを薦める', '宝石など買うつもりのない']],
+                  [38, ['だだをこねている', 'ぬいぐるみを抱いている', 'あなたを侵略者と考えている', 'あなたの”おしり”にさわる', '幸せのおもちゃを売っている', 'あなたを自分の子と間違えている']],
+                  [39, ['人の話を聞かない', '気分屋な', 'カリアゲしかできない', 'うわさ話の好きな', '自動販売機を開発したという', 'おせっかいな']],
+                  [40, ['お風呂あがりの', 'こきつかわれている', 'シェイプアップしている', '人から追われている', '人の体をじろじろと見る', 'この町を案内してほしいという']],
+                  [41, ['サングラスをかけた', 'みんな自分のファンと思っている', 'あなたを役者と勘違いしている', 'あなたはスターになれるという', '手品をしている', '『いそがしい』をいい続けている']],
+                  [42, ['ギャンブルをしている', '競技に出場している', '全財産を賭けている', '勇敢な', '参加者を募っている', '情けない競技(闘技)をしてる']],
+                  [43, ['ダンスを踊っている', 'ブレイクダンスをして場違いな', '子供を背中におんぶしている', 'あなたと踊りたがる', '踊ったことのない', '食べることに夢中な']],
+                  [44, ['２階からお金をばらまいている', '窓の奥で涙をながしている', '窓から忍びこもう', 'ピアノを弾いている', 'ここに住んでいる', '家に招待したがる']],
+                  [45, ['馬にブラシをかけている', '気性の激しい', '騎手を探している', '馬と話ができる', '馬の生まれ変わりという', '馬を安楽死させようか迷っている']],
+                  [46, ['いたずら好きな', 'ライバル意識の強い', '魔法の下手な', '魔法を信じない', '自分を神と思っている', '魔法を使って人を化かしたがる']],
+                  [47, ['傷だらけな', '両手に宝物を持った', 'かわいい', '地図を見ながら出てきている', '剣を持った', 'ダンジョンの主といわれる']],
+                  [48, ['墓参りをしている', '耳の遠い', '死んでしまった', '葬式をしている', 'きもだめしをしている', '墓守をしている']],]
+
+        table = get_table_by_number(number, tables, nil)
+        return nil if table.nil?
+
+        text, index = get_table_by_1d6(table)
+
+        person = getPersonTable1()
+
+        return "SET#{number} ＞ #{index}:#{text}#{person}"
+      end
+
+      def getPersonTable1()
+        gotoNextTable = lambda { "表２へ" + getPersonTable2() }
+
+        table = [[11, "おじさん"],
+                 [12, "おばさん"],
+                 [13, "おじいさん"],
+                 [14, "おばあさん"],
+                 [15, "男の子"],
+                 [16, "女の子"],
+
+                 [22, "美少女"],
+                 [23, "美少年"],
+                 [24, "青年"],
+                 [25, "少年"],
+                 [26, "男女(カップル)"],
+
+                 [33, "新婚さん"],
+                 [34, "お兄さん"],
+                 [35, "お姉さん"],
+                 [36, "店主(お店の人)"],
+
+                 [44, "王様"],
+                 [45, "衛兵"],
+                 [46, "魔女"],
+
+                 [55, "お姫様"],
+                 [56, gotoNextTable],
+
+                 [66, gotoNextTable],]
+
+        getPersonTable(table)
+      end
+
+      def getPersonTable2()
+        gotoNextTable = lambda { "表３へ" + getPersonTable3() }
+
+        table = [[11, "魔法使い"],
+                 [12, "観光客"],
+                 [13, "先生"],
+                 [14, "探偵"],
+                 [15, "刷"],
+                 [16, "お嬢様"],
+
+                 [22, "お嬢様"],
+                 [23, "紳士"],
+                 [24, "ご婦人"],
+                 [25, "女王様"],
+                 [26, "職人さん"],
+
+                 [33, "女子高生"],
+                 [34, "学生"],
+                 [35, "剣闘士"],
+                 [36, "鳥"],
+
+                 [44, "猫"],
+                 [45, "犬"],
+                 [46, "カエル"],
+
+                 [55, "蛇"],
+                 [56, gotoNextTable],
+
+                 [66, gotoNextTable],]
+
+        getPersonTable(table)
+      end
+
+      def getPersonTable3()
+        gotoNextTable = lambda { "表４へ" + getPersonTable4() }
+
+        table = [[11, "貴族"],
+                 [12, "いるか"],
+                 [13, "だいこん"],
+                 [14, "じゃがいも"],
+                 [15, "にんじん"],
+                 [16, "ドラゴン"],
+
+                 [22, "ゾンビ"],
+                 [23, "幽霊"],
+                 [24, "うさぎ"],
+                 [25, "天使"],
+                 [26, "悪魔"],
+
+                 [33, "赤ちゃん"],
+                 [34, "馬"],
+                 [35, "石"],
+                 [36, "お母さん"],
+
+                 [44, "妖精"],
+                 [45, "守護霊"],
+                 [46, "猫神様"],
+
+                 [55, "ロボット"],
+                 [56, "恐ろしい人"],
+
+                 [66, gotoNextTable],]
+
+        getPersonTable(table)
+      end
+
+      def getPersonTable4()
+        table = [[11, "魔女エディス"],
+                 [12, "魔女レーデルラン"],
+                 [13, "魔女キリル"],
+                 [14, "大魔女”ロロ”様"],
+                 [15, "エディスのお母さん”エリー”"],
+                 [16, "猫トンガリ"],
+
+                 [22, "猫ヒューベ"],
+                 [23, "猫ゆうのす"],
+                 [24, "猫集会の集団の一団"],
+                 [25, "岩"],
+                 [26, "PCの母"],
+
+                 [33, "PCの父"],
+                 [34, "PCの兄"],
+                 [35, "PCの姉"],
+                 [36, "PCの弟"],
+
+                 [44, "PCの妹"],
+                 [45, "PCの遠い親戚"],
+                 [46, "PCの死んだはずの両親"],
+
+                 [55, "初恋の人"],
+                 [56, "分かれた女(男)、不倫中の相手、または独身PCの場合、二股をかけている二人の両方"],
+
+                 [66, "宇宙人"],]
+
+        getPersonTable(table)
+      end
+
+      def getPersonTable(table)
+        number = @randomizer.roll_d66(D66SortType::ASC)
+        debug("getPersonTable number", number)
+
+        " ＞ #{number}:" + get_table_by_number(number, table)
+      end
+    end
+  end
+end