=begin

 여러항목 선택지 표시 by 허걱

 


4개 이상의 선택지 항목을 표시하고 싶은 경우 사용합니다.


lb_call(list) 또는,
lb_call(list, width, line, column) 의 형식으로 사용할 수 있습니다.

   예>  lb_call([1,2,3,4,5,6,7,8,9])
또는,   lb_call([1,2,3,4,5,6,7,8,9], 160) 
또는,   lb_call([1,2,3,4,5,6,7,8,9], 320, 3, 2) 

list : [1,2,3] 등과 같은 배열의 형태로 입력해야 합니다.
list의 내용이 하나 이상일 경우만 작동하며
내용이 하나일 경우도 [1] 처럼 배열로 만들어야 합니다.

width : 선택지의 넓이를 설정합니다.
line : 세로로 보여질 항목의 수 입니다.
column : 가로로 보여질 항목의 수 입니다.




lb_call() 을 사용한 후 결과값은 lb_last로 확인할 수 있습니다.

취소를 누른경우 0
확인을 누른경우는 배열의 순번을 얻을 수 있습니다.
(1부터 몇번째 항목인지 번호 숫자를 돌려받습니다.)

변수조작의 스크립트등에서 lb_last를 적어서 사용할 수 있습니다.

=end

module ListBox
  WIDTH = 240             # 윈도우 넓이 기본값
  VISIBLE_MAX_LINE = 7    # 세로로 보여질 기본 항목 수
  VISIBLE_MAX_COLUMN = 1  # 가로로 보여질 기본 항목 수
  
  ####################################################
  #                  이하 수정 금지                  #
  ####################################################
  
  class ListBox_TempData
    attr_accessor :list
    attr_accessor :width
    attr_accessor :line
    attr_accessor :column
    def initialize
      @list = []
      @width = ListBox::WIDTH
      @line = ListBox::VISIBLE_MAX_LINE
      @column = ListBox::VISIBLE_MAX_COLUMN
    end
    def size
      @list.size
    end
    def set(data)
      @list = data[0]
      @width = data[1] if data[1]
      @line = data[2] if data[2]
      @column = data[3] if data[3]
    end
  end
  
  def self.data
    $game_temp.listbox_data
  end
  
  def self.size
    self.data.size
  end
end


class Game_Interpreter
  def lb_call(list, width = nil, line = nil, column = nil)
    if list.size > 0
      $game_temp.listbox_result = 0
      lb_data = [list, width, line,column]
      $game_temp.listbox_data.set(lb_data)
      SceneManager.call(Scene_ListBox)
      wait(1)
    end
  end
  def lb_last
    $game_temp.listbox_result
  end
end



class Game_Temp
  attr_accessor :listbox_result
  attr_accessor :listbox_data
  #--------------------------------------------------------------------------
  # ● 초기화
  #--------------------------------------------------------------------------
  alias listbox_initialize initialize
  def initialize
    listbox_initialize
    init_listbox
  end
  #--------------------------------------------------------------------------
  # ● listbox 초기화
  #--------------------------------------------------------------------------
  def init_listbox
    @listbox_result = 0
    @listbox_data = ListBox::ListBox_TempData.new
  end
end



class Window_ListBox < Window_Command
  #--------------------------------------------------------------------------
  # ● 초기화
  #--------------------------------------------------------------------------
  def initialize
    super(0,0)
    update_placement
  end
  #--------------------------------------------------------------------------
  # ● 윈도우 넓이
  #--------------------------------------------------------------------------
  def window_width
    return ListBox.data.width
  end
  #--------------------------------------------------------------------------
  # ● 가시 항목 수
  #--------------------------------------------------------------------------
  def visible_line_number
    ln1 = (item_max + (col_max - 1)) / col_max
    ln2 = ListBox.data.line
    return [ln1, ln2].min
  end
  #--------------------------------------------------------------------------
  # ● 가시 항목 수
  #--------------------------------------------------------------------------
  def col_max
    return ListBox.data.column
  end
  #--------------------------------------------------------------------------
  # ● 항목 수
  #--------------------------------------------------------------------------
  def item_max
    ListBox.size
  end
  #--------------------------------------------------------------------------
  # ● 위치보정
  #--------------------------------------------------------------------------
  def update_placement
    self.x = (Graphics.width - window_width) / 2
    self.y = (Graphics.height - window_height) / 2
  end
  #--------------------------------------------------------------------------
  # ● 실행
  #--------------------------------------------------------------------------
  def call_handler(symbol)
    if handle?(symbol)
      unless symbol == :cancel
        $game_temp.listbox_result = symbol.to_s.to_i + 1
      end
      @handler[symbol].call
    end
  end
  #--------------------------------------------------------------------------
  # ● 항목 작성
  #--------------------------------------------------------------------------
  def make_command_list
    for i in 0...ListBox.size
      add_command(ListBox.data.list[i], i.to_s.to_sym)
    end
  end
  #--------------------------------------------------------------------------
  # ● 항목 표시
  #--------------------------------------------------------------------------
  def draw_item(index)
    change_color(normal_color, command_enabled?(index))
    r = item_rect_for_text(index)
    draw_text_ex(r.x, r.y, command_name(index))
  end
end



class Scene_ListBox < Scene_MenuBase
  #--------------------------------------------------------------------------
  # ● 처리시작
  #--------------------------------------------------------------------------
  def start
    super
    create_command_window
  end
  #--------------------------------------------------------------------------
  # ● 종료 전처리
  #--------------------------------------------------------------------------
  def pre_terminate
    super
    close_command_window
  end
  #--------------------------------------------------------------------------
  # ● 커맨드 윈도우 작성
  #--------------------------------------------------------------------------
  def create_command_window
    @command_window = Window_ListBox.new
    for i in 0...ListBox.size
      @command_window.set_handler(i.to_s.to_sym, method(:return_scene))
    end
    @command_window.set_handler(:cancel,   method(:return_scene))
  end
  #--------------------------------------------------------------------------
  # ● 커맨드 윈도우 닫기
  #--------------------------------------------------------------------------
  def close_command_window
    @command_window.close
    update until @command_window.close?
  end
end





# presented by 허걱