# frozen_string_literal: true

module BCDice
  module GameSystem
    class EarthDawn < Base
      # ゲームシステムの識別子
      ID = 'EarthDawn'

      # ゲームシステム名
      NAME = 'アースドーン'

      # ゲームシステム名の読みがな
      SORT_KEY = 'ああすとおん'

      # ダイスボットの使い方
      HELP_MESSAGE = <<~INFO_MESSAGE_TEXT
        ステップダイス　(xEn+k)
        ステップx、目標値n(省略可能）、カルマダイスk(D2-D20)でステップダイスをロールします。
        振り足しも自動。
        例）9E　10E8　10E+D12
      INFO_MESSAGE_TEXT

      register_prefix('\d+e')

      def initialize(command)
        super(command)

        @sort_add_dice = true
      end

      def eval_game_system_specific_command(command)
        return ed_step(command)
      end

      # アースドーンステップ表
      def ed_step(str)
        output = getStepResult(str)

        return output
      end

      def getStepResult(str)
        return nil unless /(\d+)E(\d+)?(\+)?(\d+)?(d\d+)?/i =~ str

        stepTotal = 0
        @isFailed = true

        step = Regexp.last_match(1).to_i # ステップ
        targetNumber = 0 # 目標値
        hasKarmaDice = false # カルマダイスの有無
        karmaDiceCount = 0 # カルマダイスの個数又は修正
        karmaDiceType = 0 # カルマダイスの種類

        # 空値があった時の為のばんぺいくんRX
        if step > 40
          step = 40
        end

        if Regexp.last_match(2)
          targetNumber = Regexp.last_match(2).to_i
          targetNumber = 42 if targetNumber > 43
        end

        hasKarmaDice = Regexp.last_match(3).to_i if Regexp.last_match(3)
        karmaDiceCount = Regexp.last_match(4).to_i if Regexp.last_match(4)
        karmaDiceType = Regexp.last_match(5) if Regexp.last_match(5)

        return nil if targetNumber < 0

        stable = getStepTable()

        nmod = stable[0][step - 1]
        d20step = stable[1][step - 1]
        d12step = stable[2][step - 1]
        d10step = stable[3][step - 1]
        d8step = stable[4][step - 1]
        d6step = stable[5][step - 1]
        d4step = stable[6][step - 1]

        if hasKarmaDice
          case karmaDiceType
          when /d20/i
            d20step += karmaDiceCount
          when /d12/i
            d12step += karmaDiceCount
          when /d10/i
            d10step += karmaDiceCount
          when /d8/i
            d8step  += karmaDiceCount
          when /d6/i
            d6step  += karmaDiceCount
          when /d4/i
            d4step  += karmaDiceCount
          else
            nmod += karmaDiceCount
          end
        end

        @string = ""

        debug('d20step, d12step, d10step, d8step, d6step, d4step', d20step, d12step, d10step, d8step, d6step, d4step)

        stepTotal += rollStep(20, d20step)
        stepTotal += rollStep(12, d12step)
        stepTotal += rollStep(10, d10step)
        stepTotal += rollStep(8,  d8step)
        stepTotal += rollStep(6,  d6step)
        stepTotal += rollStep(4,  d4step)

        if nmod > 0 # 修正分の適用
          @string += "+"
        end

        if nmod != 0
          @string += nmod.to_s
          stepTotal += nmod
        end

        # ステップ判定終了
        @string += " ＞ #{stepTotal}"

        output = "ステップ#{step} ＞ #{@string}"
        return output if targetNumber == 0

        # 結果判定
        @string += ' ＞ '

        excelentSuccessNumber = stable[7][targetNumber - 1]
        superSuccessNumber = stable[8][targetNumber - 1]
        goodSuccessNumber = stable[9][targetNumber - 1]
        failedNumber = stable[11][targetNumber - 1]

        if @isFailed
          @string += '自動失敗'
        elsif stepTotal >= excelentSuccessNumber
          @string += '最良成功'
        elsif stepTotal >= superSuccessNumber
          @string += '優成功'
        elsif stepTotal >= goodSuccessNumber
          @string += '良成功'
        elsif stepTotal >= targetNumber
          @string += '成功'
        elsif stepTotal < failedNumber
          @string += '大失敗'
        else
          @string += '失敗'
        end

        output = "ステップ#{step}>=#{targetNumber} ＞ #{@string}"

        return output
      end

      def getStepTable
        # 表      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 34x 3x 4x 5x 6x 7x 8x 9x10x11x12x13x

        mod = [-2, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,]
        d20 = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,]
        d12 = [0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1,]
        d10 = [0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 2, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 3, 2, 1, 1, 1, 2, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 2, 1,]
        d8  = [0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0,]
        d6  = [0, 0, 0, 1, 0, 0, 0, 2, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 2, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 2, 1, 0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 0, 0, 1, 0, 0, 0, 2, 1, 1, 0, 0, 0,]
        d4  = [1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,]
        exsuc = [6, 8, 10, 12, 14, 17, 19, 20, 22, 24, 25, 27, 29, 32, 33, 35, 37, 38, 39, 41, 42, 44, 45, 47, 48, 49, 51, 52, 54, 55, 56, 58, 59, 60, 62, 64, 65, 67, 68, 70, 71, 72,]
        ssuc = [4, 6, 8, 10, 11, 13, 15, 16, 18, 19, 21, 22, 24, 26, 27, 29, 30, 32, 33, 34, 35, 37, 38, 40, 41, 42, 43, 45, 46, 47, 48, 49, 51, 52, 53, 55, 56, 58, 59, 60, 61, 62,]
        gsuc = [2, 4, 6, 7, 9, 10, 12, 13, 14, 15, 17, 18, 20, 21, 22, 24, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 36, 38, 39, 40, 41, 42, 43, 45, 46, 47, 48, 50, 51, 52, 53, 54,]
        nsuc = [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,]
        fsuc = [0, 1, 1, 1, 1, 2, 2, 3, 4, 5, 5, 6, 6, 7, 8, 8, 9, 10, 11, 12, 13, 13, 14, 15, 16, 17, 18, 18, 18, 20, 21, 22, 23, 23, 24, 25, 26, 26, 27, 28, 29, 30,]

        stable = [mod, d20, d12, d10, d8, d6, d4, exsuc, ssuc, gsuc, nsuc, fsuc]

        return stable
      end

      # 41以上のステップの為の配列です。
      # 以下のようなルールでダイスを増やしています。より正しいステップ計算法をご存知の方は、
      # どうぞそちらに合せて調整して下さい。
      # 　基本：　2d20+d10+d8
      # 　これを仮にステップ34xとしています。
      # 　一般式としては、ステップxxのダイスは、

      # 　 ステップ34xのダイス
      # + [(xx-45)/11]d20
      # + ステップ[(xx-34)を11で割った余り+3]のダイス

      def rollStep(diceType, diceCount)
        debug('rollStep diceType, diceCount, @string', diceType, diceCount, @string)

        stepTotal = 0
        return stepTotal unless diceCount > 0

        # diceぶんのステップ判定

        @string += "+" unless @string.empty?
        @string += "#{diceCount}d#{diceType}["
        debug('rollStep @string', @string)

        diceCount.times do |i|
          dice_now = @randomizer.roll_once(diceType)

          if dice_now != 1
            @isFailed = false
          end

          dice_in = dice_now

          while dice_now == diceType
            dice_now = @randomizer.roll_once(diceType)

            dice_in += dice_now
          end

          stepTotal += dice_in

          @string += ',' if i != 0
          @string += dice_in.to_s
        end

        @string += "]"

        return stepTotal
      end
    end
  end
end
