###############################################################################
##  On-Screen Item Drops
##  Version BETA 0.1
##  December 07, 2009
##  By Reedo
###############################################################################
##  SOURCE
##
##  currently: http://www.rpgmakervx.net/index.php?showtopic=23660
###############################################################################
##  REFERENCES
##
##  None.  This is an original script by Reedo.
##  Based on a request by Gaurdiankight on the forum thread:
##  http://www.rpgmakervx.net/index.php?showtopic=23660
###############################################################################
##  DESCRIPTION
##
##  This script extends the Item_Scene to include a View/Drop question window.
##  Select View to proceed to the default Item_Scene.  Select Drop to view all
##  items in the party inventory and press confirm on the selected item to
##  drop that item onto the map.  The icon used for the item on the map can
##  be set in the configuration options below. The player can step on the map
##  event to pickup the item again.  The message displayed can be set in the
##  configuration options below.
##
##  IMPORTANT BETA NOTE!!!
##
##  The script does NOT yet persist the dropped items.  Those events are lost
##  if you change maps - bottom line, your dropped items disappear if you leave
##  the map.
###############################################################################
##  COMPATIBILITY
##
##  Should be compatible with most other scripts.
###############################################################################
##  REQUIREMENTS
##
##  None
###############################################################################
##  INSTALLATION
##
##  Plug-and-play.
##  Insert below Materials, or other Reedo scripts.
###############################################################################
##  RIGHTS & RESTRICTIONS
##
##  As with most Reedo scripts, this script is free to re-use, as-is,
##  in personal, educational, and commercial RPGVX development projects,
##  providing that:  this script, as well as the rpgmakervx.net forum link 
##  from which it was obtained, are credited in writing displayed readily
##  to the user of the final compiled code assembly.
##
##  Reedo and rgpmakervx.net retain all rights of intellect and ownership.
##  You forego all rights of warranty by utilizing this script.
###############################################################################
##  USAGE
##
##  Specify user options according to the comments below.
###############################################################################

###############################################################################
##  USER OPTIONS
###############################################################################
module REEDO_ON_SCREEN_ITEM_DROPS
  # The command displayed to view the normal items window
  ITEM_WINDOW_COMMAND = "View"
 
  # The command displayed to view the drop item window
  DROP_WINDOW_COMMAND = "Drop"
 
  # The image file name for the dropped item event (same as event page image)
  IMAGE_CHARACTER_NAME = "!Other3"
 
  # The index of the image in the file
  IMAGE_CHARACTER_INDEX = 3
 
  # The direction (row) of the image in the file
  IMAGE_CHARACTER_DIRECTION = 4
 
  # The pattern (column or step) of the image in the file
  IMAGE_CHARACTER_PATTERN = 2
 
  # The message displayed when a dropped item is picked up.
  # Use {n} where ever you want to inject the item name.
  FOUND_MESSAGE = "Found {n}!"
end
###############################################################################
##  MAIN SCRIPT
###############################################################################
##  EDITS BEYOND THIS POINT ARE AT YOUR OWN RISK!!!
###############################################################################
class Game_Map
  def reedo_get_eventID
    baseID = 1
    if @events.length > 0
      baseID = @events.keys.max + 1
    end
    return baseID
  end
 
  def reedo_add_drop(event)
    gev = Game_Event.new(@map_id, event)
    @events[event.id] = gev
  end
 
end

class Scene_Item
  alias reedo_osid_si_start start
  def start
    reedo_osid_si_start
    v = REEDO_ON_SCREEN_ITEM_DROPS::ITEM_WINDOW_COMMAND
    d = REEDO_ON_SCREEN_ITEM_DROPS::DROP_WINDOW_COMMAND
    @mode_window = Window_Command.new(200, [v, d], 1, 2, 0)
    @mode_window.y = 56
    @drop_window = Window_ReedoDropItem.new(0, 56, 544, 360)
    @drop_window.help_window = @help_window
    @drop_window.viewport = @viewport
    @base_item_window = @item_window
    @base_item_window.visible = false
    @item_window = @mode_window
  end
 
  alias reedo_osid_si_update update_item_selection
  def update_item_selection
    if @item_window.is_a?(Window_Command)
      reedo_process_mode_update
    elsif @item_window.is_a?(Window_ReedoDropItem)
      reedo_process_drop_update
    else
      reedo_osid_si_update
    end
  end

  def reedo_process_mode_update
    if Input.trigger?(Input::B)
      Sound.play_cancel
      return_scene
    elsif Input.trigger?(Input::C)
      command = @item_window.commands[@item_window.index]
      case command
        when REEDO_ON_SCREEN_ITEM_DROPS::ITEM_WINDOW_COMMAND
          @item_window = @base_item_window
          @item_window.visible = true
          @drop_window.visible = false
        when REEDO_ON_SCREEN_ITEM_DROPS::DROP_WINDOW_COMMAND
          @item_window = @drop_window
          @item_window.visible = true
          @base_item_window.visible = false
      end
      @mode_window.visible = false 
    end
  end
 
  def reedo_process_drop_update
    if Input.trigger?(Input::B)
      Sound.play_cancel
      return_scene
    elsif Input.trigger?(Input::C)
      item = @item_window.item
      Sound.play_buzzer if item == nil
      reedo_do_drop_item(item) if item != nil
    end
  end
 
  def reedo_do_drop_item(item)
    return if item == nil
    ev = reedo_create_drop_event(item)
    # todo - persist/track dropped items...
    $game_map.reedo_add_drop(ev)
    $game_party.gain_item(item, -1, false)
    @drop_window.refresh
  end
 
  def reedo_create_drop_event(item)
    id = $game_map.reedo_get_eventID
    ev = RPG::Event.new($game_player.x, $game_player.y)
    ev.id = id
   
    p = RPG::Event::Page.new
    p.move_type = 0
    p.direction_fix = true
    p.through = true
    p.priority_type = 0
    p.trigger = 1
    p.graphic.character_name = REEDO_ON_SCREEN_ITEM_DROPS::IMAGE_CHARACTER_NAME
    p.graphic.character_index = REEDO_ON_SCREEN_ITEM_DROPS::IMAGE_CHARACTER_INDEX
    p.graphic.direction = REEDO_ON_SCREEN_ITEM_DROPS::IMAGE_CHARACTER_DIRECTION
    p.graphic.pattern = REEDO_ON_SCREEN_ITEM_DROPS::IMAGE_CHARACTER_PATTERN
   
    case item
    when RPG::Item
      command = 126
    when RPG::Weapon
      command = 127
    when RPG::Armor
      command = 128
    end
   
    ec = RPG::EventCommand.new(command, 0, [item.id, 0, 0, 1])
    p.list.push(ec)
    ec = RPG::EventCommand.new(101, 0, ["", 0, 0, 2])
    p.list.push(ec)
    message = REEDO_ON_SCREEN_ITEM_DROPS::FOUND_MESSAGE.gsub(/{n}/, item.name)
    ec = RPG::EventCommand.new(401, 0, [message])
    p.list.push(ec) 
    ec = RPG::EventCommand.new(214, 0, [])
    p.list.push(ec)
    ec = RPG::EventCommand.new(0, 0, [])
    p.list.push(ec)   
    ev.pages.push(p)
 
    return ev
  end
   
end

class Window_ReedoDropItem< Window_Selectable
  def initialize(x, y, width, height)
    super(x, y, width, height)
    @column_max = 2
    self.index = 0
    refresh
  end

  def item
    return @data[self.index]
  end

  def items
    return @data
  end
 
  def include?(item)
    return false if item == nil
    if $game_temp.in_battle
      return false unless item.is_a?(RPG::Item)
    end
    return true
  end

  def refresh
    @data = []
    for item in $game_party.items
      next unless include?(item)
      @data.push(item)
      if item.is_a?(RPG::Item) and item.id == $game_party.last_item_id
        self.index = @data.size - 1
      end
    end
    @data.push(nil) if include?(nil)
    @item_max = @data.size
    create_contents
    for i in 0...@item_max
      draw_item(i)
    end
  end

  def draw_item(index)
    rect = item_rect(index)
    self.contents.clear_rect(rect)
    item = @data[index]
    if item != nil
      number = $game_party.item_number(item)
      rect.width -= 4
      # todo - add own check for enabled based on droppable status...
      todo_enabled = true
      draw_item_name(item, rect.x, rect.y, todo_enabled)
      self.contents.draw_text(rect, sprintf(":%2d", number), 2)
    end
  end

  def update_help
    @help_window.set_text(item == nil ? "" : item.description)
  end
end