#******************************************************************************
#
#    ＊ ＜拡張＞ 選択肢の表示
#
#  --------------------------------------------------------------------------
#    バージョン ： 0.1.0
#    対      応 ： RPGツクールVX Ace : RGSS3
#    制  作  者 ： ＣＡＣＡＯ
#    配  布  元 ： https://cacaosoft.mars.jp/
#  --------------------------------------------------------------------------
#   == 概    要 ==
#
#   ： メッセージウィンドウが表示されていなければ選択肢を中央に表示
#   ： 項目名、決定時処理、選択中処理をスクリプトで設定
#
#  --------------------------------------------------------------------------
#   == 使用方法 ==
#
#    ★ 選択肢の項目を指定
#     選択肢１に CHOICES_PROC の識別子を入力します。
#    例）＃アクター
#
#    ★ 選択肢の決定と更新を設定
#     選択肢１に項目指定の後に ;[CHOICES_PROCの識別子] を追記します。
#     項目の決定時処理とカーソル位置更新時処理は , で区切ります。
#     片方しか設定しない場合は [決定] もしくは [,更新] のようにします。
#    例）＃アクター; [＆項目名,＆更新]
#
#    ★ オプションの設定
#     選択肢１の末尾に追記します。通常の選択肢表示でも使用できます。
#
#     ○ ウィンドウの表示位置
#      選択肢１に ;center もしくは ;中央 を追記すると 中央表示
#      選択肢１に ;left もしくは ;左 を追記すると 左寄せ表示
#
#     ○ 項目の２列表示
#      選択肢１に ;2col もしくは ;２列 を追記する。
#
#     ○ 項目選択時に結果を代入するＥＶ変数の番号
#      選択肢１に ;1 のように数値のみを追加します。
#
#
#******************************************************************************


#==============================================================================
# ◆ 設定項目
#==============================================================================
module CAO
module CLEX
  #--------------------------------------------------------------------------
  # ◇ 選択したインデックスを入れるＥＶ変数の番号 (決定時のデフォルト動作)
  #--------------------------------------------------------------------------
  VARID = 8
  #--------------------------------------------------------------------------
  # ◇ 選択肢の処理
  #--------------------------------------------------------------------------
  CHOICES_PROC = {} # nil と "" 禁止

  # 項目名
  CHOICES_PROC["＃パーティ"] = -> { $game_party.all_members.map!(&:name) }
  CHOICES_PROC["＃戦闘員"] = -> { $game_party.battle_members.map!(&:name) }
  CHOICES_PROC["＃アクター"] = -> { commands($data_actors, :name) }
  CHOICES_PROC["＃道具"] = -> { commands($data_items, :name) }
  CHOICES_PROC["＃武器"] = -> { commands($data_weapons, :name) }
  CHOICES_PROC["＃防具"] = -> { commands($data_armors, :name) }
  CHOICES_PROC["＃装飾"] =
    -> { commands($data_armors, :name) {|a| a.etype_id == 4 } }
  CHOICES_PROC["＃装備"] =
    -> { commands([*$data_weapons, *$data_armors], :name) }
  CHOICES_PROC["＃アイテム"] =
    -> { commands([*$data_items, *$data_weapons,*$data_armors], :name) }
  CHOICES_PROC["＃スキル"] = -> { commands($data_skills, :name) }
  CHOICES_PROC["＃クラス"] = -> { commands($data_classes, :name) }
  CHOICES_PROC["＃エネミー"] = -> { commands($data_enemies, :name) }
  CHOICES_PROC["＃グループ"] = -> { commands($data_troops, :name) }
  CHOICES_PROC["＃ステート"] = -> { commands($data_states, :name) }
  CHOICES_PROC["＃注釈"] = -> { terp { @comments } }

  CHOICES_PROC["three"] = -> { %w[キャラＡ キャラＢ キャラＣ] }

  # 決定
  CHOICES_PROC["＆項目名"] = -> i { $game_variables[variable_id] = commands[i] }
  CHOICES_PROC["＆データ"] = -> i { $game_variables[variable_id] = data[i] }
  CHOICES_PROC["＆番号"] = -> i { $game_variables[variable_id] = data[i].id }

  # 選択更新
  CHOICES_PROC["＆更新"] = -> i { change_picture_opacity(i, 4, 6) }

  # まとめて設定
  CHOICES_PROC["actor"] = {
    data: -> { $game_actors.instance_eval{@data}.compact },
    name: -> x,i { "%02d %s (HP%4d)" % [i+1, just(x.name,6,"　"), x.hp] },
    cond: -> x,i { x.hp != x.mhp },
    update: -> i { print "\r#{just(i,3,'0')} #{just(data[i].name,-20)} " },
    decide: -> i { puts "", data[i].name }
  }

end # module CLEX
end # module CAO


#/////////////////////////////////////////////////////////////////////////////#
#                                                                             #
#                下記のスクリプトを変更する必要はありません。                 #
#                                                                             #
#/////////////////////////////////////////////////////////////////////////////#


class << CAO::CLEX
  def data
    $game_message.choice_parameters[:data]
  end
  def variable_id
    $game_message.choice_parameters[:variable]
  end
  def commands(data = nil, property_name = nil, &block)
    return $game_message.choices unless data
    unless property_name || block
      raise ArgumentError,
        "wrong number of arguments (given 1, expected 0 or 2)", caller
    end
    list = data.compact
    list.select!(&block) if block
    result = (property_name) ? list.map(&property_name) : list
    return [result, list]
  end
  def just(str, width, padding = " ")
    char_size = padding.bytesize == 1 ? 1 : 2
    str_width = str.to_s.chars.inject(0) {|r,s| r + (s.bytesize == 1 ? 1 : 2) }
    padding *= (width.abs * char_size - str_width) / char_size
    width < 0 ? "#{str}#{padding}" : "#{padding}#{str}"
  end
  def change_picture_opacity(i, s_num, e_num)
    terp.screen.pictures.each do |pic|
      next unless (pic.number == s_num)..(pic.number == e_num)
      pic.instance_variable_set(:@opacity, pic.number == i + s_num ? 255 : 0)
    end
  end
  def exec(interpreter, f, *args)
    @interpreter = interpreter
    f && f.call(*args)
  end
  def terp(&block)
    block_given? ? @interpreter.instance_eval(&block) : @interpreter
  end
end
class Game_Message
  #--------------------------------------------------------------------------
  # ● 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_accessor :choice_parameters  # 選択肢 拡張パラメータ
  #--------------------------------------------------------------------------
  # ● クリア
  #--------------------------------------------------------------------------
  alias _cao_choice_clear clear
  def clear
    _cao_choice_clear
    @choice_parameters = {}
  end
end
class Game_Interpreter
  def setup_choices_ex(key, cancel_type, options)
    gmcp = $game_message.choice_parameters
    gmcp[:options] = {}
    variable_id, choice_decide, choice_update = CAO::CLEX::VARID, nil, nil
    options.each do |opt|
      case opt
      when ''
      when /^(\d+)$/      # 結果代入先
        variable_id = $1.to_i
      when /^\[(.+?)\]$/  # [決定,更新]
        choice_decide, choice_update =
          $1.split(",").map {|k| CAO::CLEX::CHOICES_PROC[k.strip] }
      else
        gmcp[:options][opt] = true
      end
    end
    params = CAO::CLEX::CHOICES_PROC[key]
    case params
    when nil
      return false
    when Hash
      data, commands, i = [], [], 0
      (CAO::CLEX.exec(self, params[:data]) || []).each do |dt|
        next if CAO::CLEX.exec(self, params[:cond], dt, i)
        data.push(dt)
        commands.push(CAO::CLEX.exec(self, params[:name], dt, i) || dt)
        i += 1
      end
      choice_decide ||= params[:decide]
      choice_update ||= params[:update]
    else
      commands = CAO::CLEX.exec(self, CAO::CLEX::CHOICES_PROC[key])
      data = commands
      if commands.size == 2 && commands.all? {|e| e.is_a?(Array) }
        commands, data = commands
      end
    end
    choice_decide ||= -> i { $game_variables[variable_id] = i }
    gmcp[:variable] = variable_id
    gmcp[:data] = data
    gmcp[:commands] = commands
    gmcp[:update] = choice_update
    $game_message.choices.replace(commands)
    $game_message.choice_cancel_type =
      cancel_type == 5 ? commands.size + 1 : 0
    $game_message.choice_proc = Proc.new do |n|
      if n == $game_message.choice_cancel_type - 1
        @branch[@indent] = 4  # キャンセル
      else
        @branch[@indent] = 0  # 決定
        CAO::CLEX.exec(self, choice_decide, n)
      end
    end
    return true
  end
  #--------------------------------------------------------------------------
  # ● 選択肢のセットアップ
  #--------------------------------------------------------------------------
  def setup_choices(params)
    commands, cancel_type = params[0].dup, params[1]
    key, *opts = commands[0].split(";").map!(&:strip)
    unless setup_choices_ex(key, cancel_type, opts)
      commands[0] = commands[0].split(";")[0]  # オプション部分を削除
      commands.each {|s| $game_message.choices.push(s) }
      $game_message.choice_cancel_type = cancel_type
      $game_message.choice_proc = Proc.new {|n| @branch[@indent] = n }
    end
  end
end
class Window_ChoiceList < Window_Command
  #--------------------------------------------------------------------------
  # ● 入力処理の開始
  #--------------------------------------------------------------------------
  def start
    clear_command_list
    make_command_list
    update_placement
    create_contents
    refresh
    select(0)
    open
    activate
  end
  #--------------------------------------------------------------------------
  # ● ウィンドウ位置の更新
  #--------------------------------------------------------------------------
  def update_placement
    self.width = window_width
    self.height = window_height
    if @message_window.open?
      if @message_window.y >= Graphics.height / 2
        self.y = @message_window.y - height
      else
        self.y = @message_window.y + @message_window.height
      end
      case window_position
      when 0  # 左
        self.x = 0
      when 1  # 中央
        self.x = (Graphics.width - width) / 2
        if self.y < @message_window.y
          self.y = (self.y + 1) / 2
        else
          self.y += (Graphics.height - self.y - height) / 2
        end
      else    # 右
        self.x = Graphics.width - width
      end
    else
      self.x = (Graphics.width - width) / 2
      self.y = (Graphics.height - height) / 2
    end
    self.y = 0 if y < 0
  end
  #--------------------------------------------------------------------------
  # ● リフレッシュ
  #--------------------------------------------------------------------------
  def refresh
    contents.clear
    draw_all_items
  end
  #--------------------------------------------------------------------------
  # ● ウィンドウ位置
  #--------------------------------------------------------------------------
  def window_position
    opts = $game_message.choice_parameters[:options]
    return 2 unless opts
    return 0 if opts["left"]   || opts["左"]
    return 1 if opts["center"] || opts["中央"]
    return 2
  end
  #--------------------------------------------------------------------------
  # ● ウィンドウ幅の取得
  #--------------------------------------------------------------------------
  def window_width
    padding = spacing * (col_max - 1) + standard_padding * 2
    return [(max_choice_width) * col_max + padding, Graphics.width].min
  end
  #--------------------------------------------------------------------------
  # ● ウィンドウ高さの取得
  #--------------------------------------------------------------------------
  def window_height
    [
      fitting_height(row_max),
      if @message_window.open?
        [
          @message_window.y,
          Graphics.height - @message_window.y - @message_window.height
        ].max
      else
        Graphics.height
      end
    ].min
  end
  #--------------------------------------------------------------------------
  # ● ウィンドウ内容の高さを計算
  #--------------------------------------------------------------------------
  def contents_height
    row_max * item_height
  end
  #--------------------------------------------------------------------------
  # ● 桁数の取得
  #--------------------------------------------------------------------------
  def col_max
    opts = $game_message.choice_parameters[:options]
    return 2 if opts && (opts["2col"] || opts["２列"])
    return 1
  end
  #--------------------------------------------------------------------------
  # ● 横に項目が並ぶときの空白の幅を取得
  #--------------------------------------------------------------------------
  def spacing
    return standard_padding
  end
  #--------------------------------------------------------------------------
  # ● 選択肢の最大幅を取得
  #--------------------------------------------------------------------------
  def max_choice_width
    str = $game_message.choices.max_by {|s|
      s.each_char.inject(0) {|r,c| r + (c.bytesize == 1 ? 1 : 2) }
    }
    return [str && (text_size(str).width + 12) || 0, 96].max
  end
  #--------------------------------------------------------------------------
  # ● カーソルの更新
  #--------------------------------------------------------------------------
  def update_cursor
    super
    $game_message.choice_parameters[:update] === index
  end
end