Theo - Limited Inventory (IND)

# =============================================================================
# TheoAllen - Limited Inventory
# Version : 1.2d
# Contact : www.rpgmakerid.com (or) http://theolized.blogspot.com
# (This script documentation is written in informal indonesian language)
# =============================================================================
($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

  ---------------------------------------------------------------------------
  Perkenalan :
  Script ini ngebikin kamu bisa mbatesin inventory dengan jumlah item secara
  keseluruhan daripada item secara individu

  ---------------------------------------------------------------------------
  Cara penggunaan :
  Pasang dibawah material namun diatas main
  Kalo kamu make YEA - Shop Option, taruh ini dibawahnya
  Edit konfigurasinya jika perlu

  ---------------------------------------------------------------------------
  Notetags :
  Tulis notetag ini di kotak note dalam databasemu

  <inv size: n>
  Gunakan notetag ini dimana n adalah angka untuk menentukan berat / ukuran
  item tersebut. Gunakan 0 untuk jumlah yang tak terbatas. Hanya bekerja untuk
  equip seperti weapon dan armor

  <inv plus: n>
  Gunakan notetag ini untuk menentukan tambahan slot kosong. Notetag ini
  tersedia untuk Actor, Class, Equip, dan States. Jika dipake buat actor, slot
  kosong akan nambah kalo actor laen masuk party. Kalo equip, slot kosong akan
  nambah kalo actor make equip tertentu. Begitu juga states

  <inv minus: n>
  Kebalikan dari <inv plus>. Notetag ini akan ngurangin slot kosong. Wa rasa
  dah cukup jelas

  ---------------------------------------------------------------------------
  Script call :
  Kalo kamu pengen nambahin item walo inventory udah penuh, gunakan script call
  kek gini

  force_gain_item($data_items[id],amount)

  id adalah id item yang ada di database

  ---------------------------------------------------------------------------
  Terms of use :
  Credit gw, TheoAllen. Kalo semisal u bisa ngedit2 script gw trus jadi lebih
  keren, terserah. Ane bebasin. Asal ngga ngeklaim aja. Dan btw, kalo dipake
  untuk komersial, bagi ane keuntungannya juga. Ama gratisan gamenya juga

=end
# =============================================================================
# Konfigurasi :
# =============================================================================
module THEO
  module LimInv

  # --------------------------------------------------------------------------
  # Setting Umum (Tulis aja: true / false)
  # --------------------------------------------------------------------------

    DynamicSlot       = true
  # Total slot kosong akan tergantung pada actor, status, party, equip, dll..

    Display_ItemSize  = true
  # Nampilin size item dalam menu

    Include_Equip     = true
  # Total slot yg digunain juga termasuk equip yang dipake actor

    DrawTotal_Size    = true
  # Kalo diset true, menu akan nampilin total size dari sebuah item. Misalnya
  # kamu punya potion 10. Dan setiap potion ukurannya 3. Maka menu akan
  # nampilin 30. Bukan 3

  # --------------------------------------------------------------------------
  # Settingan Angka
  # --------------------------------------------------------------------------

    Default_FreeSlot  = 100
  # Nilai default tambahan slot kosong per karakter. Tentu aja kamu bisa ganti
  # manual pake notetag. Jika DynamicSlot kamu set false, ini akan jadi nilai
  # patokan buat slot kosong

    NearMaxed_Percent = 25
  # Presentase untuk menentukan inventori udah hampir penuh ato belom

    NearMaxed_Color   = 21
  # Jika inventori hampir penuh, inventori akan ditampilin dengan warna yang
  # berbeda. Kode warnanya sama kek \C[n] di message

    UseCommand_Size   = 200
  # Lebar window use item

  # --------------------------------------------------------------------------
  # Settingan Vokab (Udah jelas wa rasa)
  # --------------------------------------------------------------------------

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

  end
end
# ============================================================================
# Jangan setuh apapun setelah ini
# ============================================================================

# Udah wa peringatin lho ya :v

# ============================================================================
# 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