[XP Script] Shop : Change Prices

Script
Code:
#===============================================================================

# ** Shop : Change Prices

#===============================================================================

if Object.const_defined?(:SDK)

  SDK.log('Shop.ChangePrices', 'Kain Nobel ©', 3.5, '2009.09.09')

  SDK.log_overwrite("RPG::Item".to_sym,   :price=)

  SDK.log_overwrite("RPG::Armor".to_sym,  :price=)

  SDK.log_overwrite("RPG::Weapon".to_sym, :price=)

end

#===============================================================================

# ** RPG::Item

#===============================================================================

class RPG::Item

  #-----------------------------------------------------------------------------

  # * Alias Listings

  #-----------------------------------------------------------------------------

  alias_method :changeprices_rpgitm_priceget, :price

  #-----------------------------------------------------------------------------

  # * Price

  #-----------------------------------------------------------------------------

  def price

    # If game system defined and item assigned a price key

    if $game_system.is_a?(Game_System) && $game_system.item_price.has_key?(id)

      # Return custom item price

      return $game_system.item_price[id]

    end

    # The usual

    changeprices_rpgitm_priceget

  end

  #-----------------------------------------------------------------------------

  # * Price = (value)

  #-----------------------------------------------------------------------------

  def price=(value)

    # Set custom price

    $game_system.item_price[id] = [value, 0].max

  end

end

#===============================================================================

# ** RPG::Armor

#===============================================================================

class RPG::Armor

  #-----------------------------------------------------------------------------

  # * Alias Listings

  #-----------------------------------------------------------------------------

  alias_method :changeprices_rpgarm_priceget, :price

  #-----------------------------------------------------------------------------

  # * Price

  #-----------------------------------------------------------------------------

  def price

    # If game system defined and armor assigned a price key

    if $game_system.is_a?(Game_System) && $game_system.armor_price.has_key?(id)

      # Return custom armor price

      return $game_system.armor_price[id]

    end

    # The usual

    changeprices_rpgarm_priceget

  end

  #-----------------------------------------------------------------------------

  # * Price = (value)

  #-----------------------------------------------------------------------------

  def price=(value)

    # Set custom price

    $game_system.armor_price[id] = [value, 0].max

  end

end

#===============================================================================

# ** RPG::Weapon

#===============================================================================

class RPG::Weapon

  #-----------------------------------------------------------------------------

  # * Alias Listings

  #-----------------------------------------------------------------------------

  alias_method :changeprices_rpgwpn_price, :price

  #-----------------------------------------------------------------------------

  # * Price

  #-----------------------------------------------------------------------------

  def price

    # If game system defined and weapon assigned a price key

    if $game_system.is_a?(Game_System) && $game_system.weapon_price.has_key?(id)

      # Return custom weapon price

      return $game_system.weapon_price[id]

    end

    # The usual

    changeprices_rpgwpn_price

  end

  #-----------------------------------------------------------------------------

  # * Price = (value)

  #-----------------------------------------------------------------------------

  def price=(value)

    # Set custom price

    $game_system.weapon_price[id] = [value, 0].max

  end

end

#===============================================================================

# ** Game_System

#===============================================================================

class Game_System

  #-----------------------------------------------------------------------------

  # * Public Instance Variables

  #-----------------------------------------------------------------------------

  attr_reader :item_price

  attr_reader :armor_price

  attr_reader :weapon_price

  #-----------------------------------------------------------------------------

  # * Alias Listings

  #-----------------------------------------------------------------------------

  alias_method :changeprices_gmsystem_initialize, :initialize

  #-----------------------------------------------------------------------------

  # * Object Initialization

  #-----------------------------------------------------------------------------

  def initialize

    # The usual

    changeprices_gmsystem_initialize

    # Reset prices

    reset_prices

  end

  #-----------------------------------------------------------------------------

  # * Reset Prices

  #-----------------------------------------------------------------------------

  def reset_prices

    # Initialize price listings (if nil)

    @item_price   ||= Hash.new

    @armor_price  ||= Hash.new

    @weapon_price ||= Hash.new

    # Delete each price

    @item_price.each_key    {|price| @item_price.delete(price)}

    @armor_price.each_key   {|price| @armor_price.delete(price)}

    @weapon_price.each_key  {|price| @weapon_price.delete(price)}

  end

end

#===============================================================================

# ** Scene_Shop

#===============================================================================

class Scene_Shop

  #-----------------------------------------------------------------------------

  # * Alias Listings

  #-----------------------------------------------------------------------------

  alias_method :changeprices_scnshop_main, :main

  #-----------------------------------------------------------------------------

  # * Main

  #-----------------------------------------------------------------------------

  def main

    # The usual

    changeprices_scnshop_main

    # Reset prices

    $game_system.reset_prices

  end

end