# 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 result_1d100(total, _dice_total, cmp_op, target)
        return Result.nothing if target == '?'
        return nil unless cmp_op == :<=

        if total <= target
          Result.success("成功(成功度#{(target - total) / 10})")
        else
          Result.failure("失敗(失敗度#{(total - target) / 10})")
        end
      end

      def result_1d100_text(total, dice_total, cmp_op, target)
        result = result_1d100(total, dice_total, cmp_op, target)&.text
        if result.nil?
          ""
        else
          " ＞ #{result}"
        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 += result_1d100_text(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
