#==============================================================================
# ■ RGSS2 - 物品上限修改 by Calendar99
#------------------------------------------------------------------------------
#  使用方法： 物品/武器/护甲备注中写<持有上限 n>，则持有上限为n
#  例 <持有上限 10> <持有上限 = 10>
#
#  兼容性说明：脚本中覆盖定义较多，请尽量置于其他脚本上方
#==============================================================================

module CLD99
  module Item
    
    ALLOW_GAIN_BY_EVENT = true
    # 是否允许通过事件强制获得超过上限的道具
    # true 允许 false 禁止
    
    DEFAULT_MAX_LIMIT = 999
    # 默认持有上限
    
    REG_MAX_LIMIT = /<持有上限[ :=]*(\d+)>/
    # 自定义持有上限的正则表达式（没有脚本基础的不要动这个）
    
    #--------------------------------------------------------------------------
    # ● 获取持有上限
    #--------------------------------------------------------------------------
    def self.max_limit(note)
      if note =~ CLD99::Item::REG_MAX_LIMIT then $1.to_i 
      else CLD99::Item::DEFAULT_MAX_LIMIT end
    end
    
  end  
end

class RPG::Item
  def max_limit;CLD99::Item.max_limit(self.note);end  
end

class RPG::Weapon
  def max_limit;CLD99::Item.max_limit(self.note);end  
end

class RPG::Armor
  def max_limit;CLD99::Item.max_limit(self.note);end  
end
  
class Scene_Shop
  #--------------------------------------------------------------------------
  # ● [覆盖]更新买入选择
  #--------------------------------------------------------------------------
  def update_buy_selection
    @status_window.item = @buy_window.item
    if Input.trigger?(Input::B)
      Sound.play_cancel
      @command_window.active = true
      @dummy_window.visible = true
      @buy_window.active = false
      @buy_window.visible = false
      @status_window.visible = false
      @status_window.item = nil
      @help_window.set_text("")
      return
    end
    if Input.trigger?(Input::C)
      @item = @buy_window.item
      number = $game_party.item_number(@item)
      if @item == nil or @item.price > $game_party.gold or number >= @item.max_limit ##购买条件修正
        Sound.play_buzzer
      else
        Sound.play_decision
        max = @item.price == 0 ? @item.max_limit : $game_party.gold / @item.price ## 可购入数量修正
        max = [max, @item.max_limit - number].min ## 可购入数量修正
        @buy_window.active = false
        @buy_window.visible = false
        @number_window.set(@item, max, @item.price)
        @number_window.active = true
        @number_window.visible = true
      end
    end
  end
end
  
class Scene_Battle
  #--------------------------------------------------------------------------
  # ● [覆盖]显示所获得的掉落物品
  #--------------------------------------------------------------------------
  def display_drop_items
    drop_items = $game_troop.make_drop_items
    for item in drop_items
      next if $game_party.item_number(item) >= item.max_limit ## 战斗掉落修正
      $game_party.gain_item(item, 1)
      text = sprintf(Vocab::ObtainItem, item.name)
      $game_message.texts.push(text)
    end
    wait_for_message
  end
end

class Window_ShopBuy
  #--------------------------------------------------------------------------
  # ● [覆盖]绘制商品
  #     index : 商品索引
  #--------------------------------------------------------------------------
  def draw_item(index)
    item = @data[index]
    number = $game_party.item_number(item)
    enabled = (item.price <= $game_party.gold and number < item.max_limit) ## 绘制修正
    rect = item_rect(index)
    self.contents.clear_rect(rect)
    draw_item_name(item, rect.x, rect.y, enabled)
    rect.width -= 4
    self.contents.draw_text(rect, item.price, 2)
  end
end

class Game_Party
  #--------------------------------------------------------------------------
  # ● [覆盖]获得/损失物品
  #--------------------------------------------------------------------------
  def gain_item(item, n, include_equip = false)
    number = item_number(item)
    case item
    when RPG::Item
      @items[item.id] = [[number + n, 0].max, item.max_limit].min ## 持有上限修正
    when RPG::Weapon
      @weapons[item.id] = [[number + n, 0].max, item.max_limit].min ## 持有上限修正
    when RPG::Armor
      @armors[item.id] = [[number + n, 0].max, item.max_limit].min ## 持有上限修正
    end
    n += number
    if include_equip and n < 0
      for actor in members
        while n < 0 and actor.equips.include?(item)
          actor.discard_equip(item)
          n += 1
        end
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● [别名修改]战斗测试队伍设置
  #--------------------------------------------------------------------------
  alias setup_battle_test_members_for_max_limit setup_battle_test_members
  def setup_battle_test_members
    setup_battle_test_members_for_max_limit
    for i in 1...$data_items.size
      if $data_items[i].battle_ok?
        @items[i] = $data_items[i].max_limit unless $data_items[i].name.empty? ## 持有数修正
      end
    end
  end
  
  unless CLD99::Item::ALLOW_GAIN_BY_EVENT # 不是必定运行
    #--------------------------------------------------------------------------
    # ● [别名修改]获得/损失物品
    #--------------------------------------------------------------------------
    alias :gain_item_for_limit :gain_item
    def gain_item(item, n, include_equip = false)
      return if n > 0 && item_number(item) >= item.max_limit ## 获取修正
      gain_item_for_limit(item, n, include_equip)
    end
  end
end