Ruby Quellcode

#==============================================================================
#    *** Shop Erweiterung (Teil 2)
#
#        Die Preise im Shop können im Vorfeld manipuliert werden
#        von Playm
#
#==============================================================================
# ** Window_ShopBuy
#==============================================================================
class Window_ShopBuy < Window_Selectable
  #--------------------------------------------------------------------------
  # * Draw Item
  #     index : item number
  #--------------------------------------------------------------------------
  alias_method(:org_di_wo_rpve, :draw_item) if !method_defined?(:org_di_wo_rpve)
  def draw_item(index)
    org_di_wo_rpve(index)
    item      = @data[index]
    item_price= $scene.make_item_buyprice( item )
    amount_ok = $game_party.item_number_from_typ( item ) < 99
    price_ok  = item_price <= $game_party.gold
    rect      = Rect.new(244, index * 32, 88, 32)
    self.contents.font.color= (amount_ok and price_ok) ? normal_color : disabled_color
    self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
    self.contents.draw_text(rect, item_price.to_s, 2)
  end
end
#==============================================================================
# ** Scene_Shop
#------------------------------------------------------------------------------
#  This class performs shop screen processing.
#==============================================================================
class Scene_Shop
  #--------------------------------------------------------------------------
  # * Main Processing
  #--------------------------------------------------------------------------
  alias_method(:org_main_wo_rpve,:main) if !method_defined?(:org_main_wo_rpve)
  def main(*a)
    org_main_wo_rpve(*a)
    $game_temp.rpv_buy  = 1.0
    $game_temp.rpv_sell = 0.5
  end
  #--------------------------------------------------------------------------
  # * make item price for buy
  #--------------------------------------------------------------------------
  def make_item_buyprice( item )
    (item.price * $game_temp.rpv_buy).ceil
  end
  #--------------------------------------------------------------------------
  # * make item price for sale
  #--------------------------------------------------------------------------
  def make_item_sellprice( item )
    (item.price * $game_temp.rpv_sell).ceil
  end
  #--------------------------------------------------------------------------
  # * Frame Update (when buy window is active)
  #--------------------------------------------------------------------------
  def update_buy
    # Set status window item
    @status_window.item = @buy_window.item
    # If B button was pressed
    if Input.trigger?(Input::B)
      # Play cancel SE
      $game_system.se_play($data_system.cancel_se)
      # Change windows to initial mode
      @command_window.active = true
      @dummy_window.visible = true
      @buy_window.active = false
      @buy_window.visible = false
      @status_window.visible = false
      @status_window.item = nil
      # Erase help text
      @help_window.set_text("")
      return
    end
    # If C button was pressed
    if Input.trigger?(Input::C)
      # Get item
      @item = @buy_window.item
      # If item is invalid, or price is higher than money possessed
      if @item == nil or make_item_buyprice( @item ) > $game_party.gold
        # Play buzzer SE
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      # Get items in possession count
      case @item
      when RPG::Item
        number = $game_party.item_number(@item.id)
      when RPG::Weapon
        number = $game_party.weapon_number(@item.id)
      when RPG::Armor
        number = $game_party.armor_number(@item.id)
      end
      # If 99 items are already in possession
      if number == 99
        # Play buzzer SE
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      # Play decision SE
      $game_system.se_play($data_system.decision_se)
      # Calculate maximum amount possible to buy
      max = @item.price == 0 ? 99 : $game_party.gold / make_item_buyprice(@item)
      max = [max, 99 - number].min
      # Change windows to quantity input mode
      @buy_window.active = false
      @buy_window.visible = false
      @number_window.set(@item, max, make_item_buyprice(@item))
      @number_window.active = true
      @number_window.visible = true
    end
  end
  #--------------------------------------------------------------------------
  # * Frame Update (when sell window is active)
  #--------------------------------------------------------------------------
  alias_method(:org_up_sell_wo_rpve, :update_sell) if !method_defined?(:org_up_sell_wo_rpve)
  def update_sell(*a)
    org_up_sell_wo_rpve(*a)
    if Input.trigger?(Input::C)
      max = $game_party.item_number_from_typ( @item )
      @number_window.set(@item, max, make_item_sellprice(@item))
    end
  end
  #--------------------------------------------------------------------------
  # * Frame Update (when quantity input window is active)
  #--------------------------------------------------------------------------
  alias_method(:org_up_num_wo_rpve, :update_number) if !method_defined?(:org_up_num_wo_rpve)
  def update_number(*a)
    org_up_num_wo_rpve(*a)
    if Input.trigger?(Input::C)
      case @command_window.index
      when 0  # Kaufpreis korrigieren
        $game_party.gain_gold(@number_window.number * @item.price)
        $game_party.lose_gold(@number_window.number * make_item_buyprice(@item))
      when 1  # Verkaufspreis korrigieren
        $game_party.lose_gold(@number_window.number * (@item.price / 2))
        $game_party.gain_gold(@number_window.number * make_item_sellprice(@item))
      end
      @gold_window.refresh
    end
  end
end