two column vx style choice

# =============================================================================
# TheoAllen - Two Columns VX Style Choices
# Version : 1.1b
# Contact : www.rpgmakerid.com (or) http://theolized.blogspot.com
# (English Documentation)
# =============================================================================
($imported ||= {})[:Theo_VXStyleChoices] = true
# =============================================================================
# Change Logs :
# -----------------------------------------------------------------------------
# 2013.11.14 - Compatibility patch with my choice help
#            - Bugfix. Face graphic erased when clearing message box
# 2013.10.14 - Bugfix. Choice isn't displayed if it isn't followed by texts
# 2013.10.12 - Finished script
# =============================================================================
=begin

  Introduction :
  This script allow you to display choices as VX has

  How to use :
  Put this script below material but above main
  Use these script calls to activate VX style choice

  vx_choice(true)   << to activate
  vx_choice(false)  << to deacitave

  Terms of use :
  Credit me, TheoAllen. You are free to edit this script by your own. As long
  as you don't claim it yours. For commercial purpose, don't forget to give me
  a free copy of the game.

=end
# =============================================================================
# No configuration. Just dont edit below this line
# =============================================================================
class Game_Interpreter

  def vx_choice(bool)
    $game_message.vx_choice = bool
  end

end

class Game_Message
  attr_accessor :vx_choice
  attr_accessor :two_column

  alias theo_vxchoice_init initialize
  def initialize
    theo_vxchoice_init
    @vx_choice = false
    @two_column = false
  end

end

class Window_Message < Window_Base

  alias theo_vxchoice_init initialize
  def initialize
    theo_vxchoice_init
    init_vxchoice_member
  end

  def init_vxchoice_member
    @need_clear = false
    @choice_index = 0
    @choice_y = 0
  end

  alias theo_vxchoice_input input_choice
  def input_choice
    return start_vx_choice if $game_message.vx_choice
    return theo_vxchoice_input
  end

  alias theo_vxchoice_new_page new_page
  def new_page(text, pos)
    theo_vxchoice_new_page(text, pos)
    @need_clear = $game_message.texts.size > 3
  end

  alias theo_vxchoice_new_line process_new_line
  def process_new_line(text, pos)
    theo_vxchoice_new_line(text, pos)
    @choice_y = pos[:y]
  end

  def start_vx_choice
    open_and_wait unless open?
    if @need_clear
      input_need_clear
    end
    @choice_index  = 0
    update_choice_cursor
    ypos = 0
    $game_message.choices.each_with_index do |choice, i|
      xpos = (contents.width - new_line_x)/2
      ix = i % 2
      new_x_pos = xpos * ix + new_line_x
      draw_text_ex(new_x_pos, @choice_y + ypos, choice)
      ypos += line_height * (i % 2)
    end
    update_vx_choice(new_line_x, @choice_y)
  end

  def padding_x
    return 16
  end

  def input_need_clear
    input_pause
    contents.clear
    draw_face($game_message.face_name, $game_message.face_index, 0, 0)
    @choice_y = 0
    @choice_x = 0
    @need_clear = false
  end

  def update_vx_choice(xpos, ypos)
    rect_width = (contents.width - new_line_x)/2
    cursor_rect.set(xpos, ypos, rect_width, line_height)
    if choice_help?
      @choice_help.open
      update_choice_help
    end
    wait(10)
    until Input.trigger?(:C) || (Input.trigger?(:B) && cancel_enabled?)
      update_choice_cursor
      Fiber.yield
    end
    cursor_rect.empty
    execute_choice
    Input.update
  end

  def cancel_enabled?
    $game_message.choice_cancel_type > 0
  end

  def update_choice_cursor
    cursor_rect.y = (@choice_index/2) * line_height + @choice_y
    cursor_rect.x = (@choice_index%2) * ((contents.width - new_line_x)/2) +
      new_line_x
    change_choice_index(2) if Input.repeat?(:DOWN)
    change_choice_index(-2) if Input.repeat?(:UP)
    change_choice_index(1) if Input.repeat?(:RIGHT)
    change_choice_index(-1) if Input.repeat?(:LEFT)
  end

  def change_choice_index(amount)
    Sound.play_cursor
    @choice_index += amount
    wrap_index
    update_choice_help if choice_help?
  end

  def wrap_index
    @choice_index = 0 if @choice_index > $game_message.choices.size - 1
    @choice_index = $game_message.choices.size - 1 if @choice_index < 0
  end

  def execute_choice
    call_ok_handler if Input.trigger?(:C)
    call_cancel_handler if Input.trigger?(:B)
    if choice_help?
      @choice_help.close
    end
  end

  def choice_help?
    $imported[:Theo_ChoiceHelp]
  end

  def update_choice_help
    @choice_help.set_text($game_message.choice_helps[@choice_index])
  end

  def call_ok_handler
    Sound.play_ok
    $game_message.choice_proc.call(@choice_index)
  end

  def call_cancel_handler
    Sound.play_cancel
    $game_message.choice_proc.call($game_message.choice_cancel_type - 1)
  end

end