Theo - Limited Inventory

# =============================================================================
# TheoAllen - Limited Inventory
# Version : 1.2d
# Contact : www.rpgmakerid.com (or) http://theolized.blogspot.com
# (English Documentation)
# =============================================================================
($imported ||= {})[:Theo_LimInventory] = true
# =============================================================================
# CHANGE LOGS:
# -----------------------------------------------------------------------------
# 2014.02.11 - Bugfix. Unequip item causes lose the item if inventory is full
# 2013.10.07 - Bugfix. Item doesn't removed when discarded
#            - Bugfix. Inventory amount not refreshed when item is discarded
# 2013.10.04 - Compatibility fix with chest system
# 2013.08.30 - Now unable to discard key item
# 2013.08.22 - Bugfix. Item size notetag isn't working
# 2013.08.19 - Bugfix when gained item
#            - Bugfix when disable display item size in shop menu
# 2013.08.18 - Finished script
# =============================================================================
=begin

  ---------------------------------------------------------------------------
  Introduction :
  This script allow you to limit your inventory by overall possesed items
  instead of individual items

  ---------------------------------------------------------------------------
  How to Use :
  Put this script below material but above main
  If you're using YEA - Shop Option, put it below that script
  Edit configurations and the notetags as described below

  ---------------------------------------------------------------------------
  Notetags :
  write down these notetags to the notebox in your database

  <inv size: n>
  Use this notetag where the n is a numeric value which is determine the size
  of item. Use 0 for unlimited item. Only works for item and equipment such as
  weapon or armor.

  <inv plus: n>
  Use this notetag to determine the additional avalaible free inventory slot.
  This notetag avalaible for Actor, Class, Equip, and States. If it's for
  actor, avalaible inventory slot will increase when a new actor entered party.
  If it's for equip, the avalaible slot will be increase if the certain equip
  is equipped. And so do states

  <inv minus: n>
  Inverse of <inv plus>. It will decrease the avalaible inventory slot. Pretty
  clear I think.

  ---------------------------------------------------------------------------
  Script call :
  If you want to force gain an item even the inventory is full, you can do it
  by script call. Just write this following line

  force_gain_item($data_items[id],amount)

  id is an item id in your database

  ---------------------------------------------------------------------------
  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
# =============================================================================
# Configurations :
# =============================================================================
module THEO
  module LimInv

  # --------------------------------------------------------------------------
  # General Settings (just put true / false)
  # --------------------------------------------------------------------------

    DynamicSlot       = true
  # Total avalaible inventory slot depends on actor, states, total party
  # members, etc ...

    Display_ItemSize  = true
  # Diplay item size in item menu

    Include_Equip     = false
  # Total used inventory slot will also include actor equipment.

    DrawTotal_Size    = true
  # If true, item size window will show total weight of specified item. For
  # example, you have 10 potions. And each potion has 3 size/weight. The window
  # will show 30 instead of 3

  # --------------------------------------------------------------------------
  # Numeric Settings
  # --------------------------------------------------------------------------

    Default_FreeSlot  = 100
  # Default free slot which is provided each actor. Of course, you may change
  # it by notetag. If DynamicSlot is set to false, it will be the the total
  # avalaible slot

    NearMaxed_Percent = 25
  # Percentage to determine if the inventory is almost maxed out or not

    NearMaxed_Color   = 21
  # If inventory is almost maxed out, the inventory window will be drawn in
  # different color. The color code is same as \C[n] in message

    UseCommand_Size   = 200
  # The width of use item command window

  # --------------------------------------------------------------------------
  # Vocab Settings (Self-explanatory I think)
  # --------------------------------------------------------------------------

    InvSlotVocab    = "Inventory: "   # Inventory Vocab
    InvSizeVocab    = "Item Size: "   # Item size / weight
    SlotVocabShort  = "Inv:"          # Abbreviation for Inventory
    UseVocab        = "Use item"      # Use item
    DiscardVocab    = "Discard item"  # Discard Item
    CancelVocab     = "Cancel"        # Cancel

  end
end
# ============================================================================
# Do not touch anything pass this line.
# ============================================================================

# I told you ...

# ============================================================================
# Altered built in modules and classes
# ============================================================================
class << DataManager

  alias theo_limited_item_load_db load_database
  def load_database
    theo_limited_item_load_db
    load_limited_slot
  end

  def load_limited_slot
    database = $data_actors + $data_classes + $data_weapons + $data_armors +
      $data_states + $data_items
    database.compact.each do |db|
      db.load_limited_inv
    end
  end
end

class RPG::BaseItem
  attr_accessor :inv_size # Item inventory size
  attr_accessor :inv_mod  # Inventory slot modifier

  def load_limited_inv
    @inv_size = 1
    @inv_mod = self.is_a?(RPG::Actor) ? THEO::LimInv::Default_FreeSlot : 0
    self.note.split(/[\r\n]+/).each do |line|
      case line
      when /<(?:INV_SIZE|inv size): [ ]*(\d+)>/i
        @inv_size = $1.to_i
      when /<(?:INV_PLUS|inv plus): [ ]*(\d+)>/i
        @inv_mod = $1.to_i
      when /<(?:INV_MINUS|inv minus): [ ]*(\d+)>/i
        @inv_mod = -$1.to_i
      end
    end
  end

end
# ============================================================================
# Data structures and workflows goes here
# ============================================================================
class Game_Actor < Game_Battler

  def equip_size
    return 0 unless THEO::LimInv::Include_Equip
    equips.compact.inject(0) {|total,equip| total + equip.inv_size}
  end

  def inv_max
    result = $data_actors[id].inv_mod
    result += $data_classes[class_id].inv_mod
    result += states.inject(0) {|total,db| total + db.inv_mod}
    result += equips.compact.inject(0) {|total,db| total + db.inv_mod}
    result
  end
  # --------------------------------------------------------------------------
  # Overwrite : Trade item with party
  # --------------------------------------------------------------------------
  def trade_item_with_party(new_item, old_item)
    return false if new_item && !$game_party.has_item?(new_item)
    $game_party.force_gain_item(old_item, 1)
    $game_party.force_gain_item(new_item, -1)
    return true
  end

end

class Game_Party < Game_Unit

  def inv_max
    return THEO::LimInv::Default_FreeSlot unless THEO::LimInv::DynamicSlot
    return members.inject(0) {|total,member| total + member.inv_max}
  end

  def inv_maxed?
    inv_max <= total_inv_size
  end

  def total_inv_size(print = false)
    result = all_items.inject(0) {|total,item| total +
      (item_number(item) * item.inv_size)}
    puts result if print
    result += members.inject(0) {|total,member| total + member.equip_size}
    puts result if print
    result
  end

  alias theo_liminv_max_item max_item_number
  def max_item_number(item)
    $BTEST ? theo_liminv_max_item(item) : inv_max_item(item) + item_number(item)
  end

  def inv_max_item(item)
    return 9999999 if item.nil? || item.inv_size == 0
    free_slot / item.inv_size
  end

  def free_slot
    inv_max - total_inv_size
  end

  alias theo_liminv_item_max? item_max?
  def item_max?(item)
    $BTEST ? theo_liminv_item_max?(item) : inv_maxed?
  end

  def near_maxed?
    free_slot.to_f / inv_max <= THEO::LimInv::NearMaxed_Percent/100.0
  end

  def item_size(item)
    return 0 unless item
    item.inv_size * item_number(item)
  end

  def force_gain_item(item, amount)
    container = item_container(item.class)
    return unless container
    last_number = item_number(item)
    new_number = last_number + amount
    container[item.id] = [new_number, 0].max
    container.delete(item.id) if container[item.id] == 0
    $game_map.need_refresh = true
  end

end

class Game_Interpreter
  def force_gain_item(item, amount)
    $game_party.force_gain_item(item, amount)
  end
end
# ============================================================================
# Window related class goes here
# ============================================================================
class Window_Base < Window
  def draw_inv_slot(x,y,width = contents.width,align = 2)
    txt = sprintf("%d/%d",$game_party.total_inv_size, $game_party.inv_max)
    color = THEO::LimInv::NearMaxed_Color
    if $game_party.near_maxed?
      change_color(text_color(color))
    else
      change_color(normal_color)
    end
    draw_text(x,y,width,line_height,txt,align)
    change_color(normal_color)
  end

  def draw_inv_info(x,y,width = contents.width)
    change_color(system_color)
    draw_text(x,y,width,line_height,THEO::LimInv::InvSlotVocab)
    change_color(normal_color)
    draw_inv_slot(x,y,width)
  end

  def draw_item_size(item,x,y,total = true,width = contents.width)
    rect = Rect.new(x,y,width,line_height)
    change_color(system_color)
    draw_text(rect,THEO::LimInv::InvSizeVocab)
    change_color(normal_color)
    number = (THEO::LimInv::DrawTotal_Size && total) ?
      $game_party.item_size(item) : item.nil? ? 0 : item.inv_size
    draw_text(rect,number,2)
  end
end

class Window_MenuLimInv < Window_Base

  def initialize(width)
    super(0,0,width,fitting_height(1))
    refresh
  end

  def refresh
    contents.clear
    change_color(system_color)
    txt = THEO::LimInv::SlotVocabShort
    draw_text(0,0,contents.width,line_height,txt)
    draw_inv_slot(0,0)
  end

end

class Window_ItemSize < Window_Base

  def initialize(x,y,width)
    super(x,y,width,fitting_height(1))
  end

  def set_item(item)
    @item = item
    refresh
  end

  def refresh
    contents.clear
    draw_item_size(@item,0,0)
  end

end

class Window_FreeSlot < Window_Base
  def initialize(x,y,width)
    super(x,y,width,fitting_height(1))
    refresh
  end

  def refresh
    contents.clear
    draw_inv_info(0,0)
  end
end

class Window_ItemUseCommand < Window_Command
  include THEO::LimInv

  def initialize
    super(0,0)
    self.openness = 0
  end

  def set_item(item)
    @item = item
    refresh
  end

  def window_width
    UseCommand_Size
  end

  def make_command_list
    add_command(UseVocab, :use, $game_party.usable?(@item))
    add_command(DiscardVocab, :discard, discardable?(@item))
    add_command(CancelVocab, :cancel)
  end

  def to_center
    self.x = Graphics.width/2 - width/2
    self.y = Graphics.height/2 - height/2
  end

  def discardable?(item)
    return false if item.nil?
    !(item.is_a?(RPG::Item) && item.itype_id == 2)
  end

end

class Window_DiscardAmount < Window_Base
  attr_accessor :cmn_window
  attr_accessor :itemlist
  attr_accessor :freeslot

  def initialize(x,y,width)
    super(x,y,width,fitting_height(1))
    self.openness = 0
    @amount = 0
  end

  def set_item(item)
    @item = item
    @amount = 0
    refresh
  end

  def refresh
    contents.clear
    return unless @item
    draw_item_name(@item,0,0,true,contents.width)
    txt = sprintf("%d/%d",@amount, $game_party.item_number(@item))
    draw_text(0,0,contents.width,line_height,txt,2)
  end

  def draw_item_name(item, x, y, enabled = true, width = 172)
    return unless item
    draw_icon(item.icon_index, x, y, enabled)
    change_color(normal_color, enabled)
    draw_text(x + 24, y, width, line_height, item.name + ":")
  end

  def update
    super
    return unless open?
    change_amount(1) if Input.repeat?(:RIGHT)
    change_amount(-1) if Input.repeat?(:LEFT)
    change_amount(10) if Input.repeat?(:UP)
    change_amount(-10) if Input.repeat?(:DOWN)
    lose_item if Input.trigger?(:C)
    close_window if Input.trigger?(:B)
  end

  def change_amount(num)
    @amount = [[@amount+num,0].max,$game_party.item_number(@item)].min
    Sound.play_cursor
    refresh
  end

  def lose_item
    $game_party.lose_item(@item,@amount)
    @itemlist.redraw_current_item
    @freeslot.refresh
    if $game_party.item_number(@item) == 0
      @itemlist.refresh
    end
    close_window
  end

  def close_window
    close
    @cmn_window.activate
    Sound.play_ok
  end

end

class Window_ItemList < Window_Selectable
  attr_reader :item_size_window

  def item_size_window=(window)
    @item_size_window = window
    update_help
  end

  alias theo_liminv_update_help update_help
  def update_help
    theo_liminv_update_help
    @item_size_window.set_item(item) if @item_size_window
  end

  alias theo_liminv_height= height=
  def height=(height)
    self.theo_liminv_height = height
    refresh
  end

  def enable?(item)
    return !item.nil?
  end

end

class Window_ShopNumber < Window_Selectable
  attr_accessor :mode

  alias theo_liminv_init initialize
  def initialize(x, y, height)
    theo_liminv_init(x, y, height)
    @mode = :buy
  end

  alias theo_liminv_refresh refresh
  def refresh
    theo_liminv_refresh
    draw_itemsize
  end

  def draw_itemsize
    item_size = @number * @item.inv_size
    total_size = $game_party.total_inv_size +
      (@mode == :buy ? item_size : -item_size)
    txt = sprintf("%d/%d",total_size,$game_party.inv_max)
    ypos = item_y + line_height * ($imported["YEA-ShopOptions"] ? 5 : 4)
    rect = Rect.new(4,ypos,contents.width-8,line_height)
    change_color(system_color)
    draw_text(rect,THEO::LimInv::InvSlotVocab)
    change_color(normal_color)
    draw_text(rect,txt,2)
  end

end

class Window_ShopStatus < Window_Base

  if THEO::LimInv::Display_ItemSize
  alias theo_liminv_draw_posses draw_possession
  def draw_possession(x, y)
    theo_liminv_draw_posses(x,y)
    y += line_height
    draw_item_size(@item,x,y,false, contents.width-(x*2))
  end

  if $imported["YEA-ShopOptions"]
  def draw_actor_equip_info(dx, dy, actor)
    dy += line_height
    enabled = actor.equippable?(@item)
    change_color(normal_color, enabled)
    draw_text(dx, dy, contents.width, line_height, actor.name)
    item1 = current_equipped_item(actor, @item.etype_id)
    draw_actor_param_change(dx, dy, actor, item1) if enabled
  end
  end # $imported["YEA-ShopOption"]
  end # Display item size

end
# ============================================================================
# Scene classes goes here
# ============================================================================
class Scene_Menu < Scene_MenuBase

  alias theo_liminv_start start
  def start
    theo_liminv_start
    create_liminv_window
  end

  def create_liminv_window
    @lim_inv = Window_MenuLimInv.new(@gold_window.width)
    @lim_inv.x = @command_window.x
    @lim_inv.y = @command_window.height
  end

end

class Scene_Item < Scene_ItemBase

  alias theo_liminv_start start
  def start
    theo_liminv_start
    resize_item_window
    create_freeslot_window
    create_itemsize_window
    create_usecommand_window
    create_discard_amount
  end

  def resize_item_window
    @item_window.height -= @item_window.line_height * 2
  end

  def create_freeslot_window
    wy = @item_window.y + @item_window.height
    wh = THEO::LimInv::Display_ItemSize ? Graphics.width/2 : Graphics.width
    @freeslot = Window_FreeSlot.new(0,wy,wh)
    @freeslot.viewport = @viewport
  end

  def create_itemsize_window
    return unless THEO::LimInv::Display_ItemSize
    wx = @freeslot.width
    wy = @freeslot.y
    ww = wx
    @itemsize = Window_ItemSize.new(wx,wy,ww)
    @itemsize.viewport = @viewport
    @item_window.item_size_window = @itemsize
  end

  def create_usecommand_window
    @use_command = Window_ItemUseCommand.new
    @use_command.to_center
    @use_command.set_handler(:use, method(:use_command_ok))
    @use_command.set_handler(:discard, method(:on_discard_ok))
    @use_command.set_handler(:cancel, method(:on_usecmd_cancel))
    @use_command.viewport = @viewport
  end

  def create_discard_amount
    wx = @use_command.x
    wy = @use_command.y + @use_command.height
    ww = @use_command.width
    @discard_window = Window_DiscardAmount.new(wx,wy,ww)
    @discard_window.cmn_window = @use_command
    @discard_window.itemlist = @item_window
    @discard_window.freeslot = @freeslot
    @discard_window.viewport = @viewport
  end

  alias theo_liminv_item_ok on_item_ok
  def on_item_ok
    @use_command.set_item(item)
    @use_command.open
    @use_command.activate
    @use_command.select(0)
  end

  alias theo_liminv_use_item use_item
  def use_item
    @use_command.close
    theo_liminv_use_item
    @freeslot.refresh
  end

  def use_command_ok
    theo_liminv_item_ok
    @use_command.close
  end

  def on_discard_ok
    @discard_window.set_item(item)
    @discard_window.open
  end

  def on_usecmd_cancel
    @item_window.activate
    @use_command.close
    @use_command.deactivate
  end

end

class Scene_Shop < Scene_MenuBase
  alias theo_liminv_buy_ok on_buy_ok
  def on_buy_ok
    @number_window.mode = :buy
    theo_liminv_buy_ok
  end

  alias theo_liminv_sell_ok on_sell_ok
  def on_sell_ok
    @number_window.mode = :sell
    theo_liminv_sell_ok
  end
end