Rewrote BP Shop code, tidied PC menu code, fixed message display bug involving instant speed and \wtnp, fixed mail vanishing bug, tweaks to other rewritten UI

Data/Scripts/016b_UI redesign/021_UI_BattlePointShop.rb

@@ -0,0 +1,205 @@
+#===============================================================================
+#
+#===============================================================================
+class UI::BPShopStockWrapper < UI::MartStockWrapper
+  def buy_price(item)
+    return 0 if item.nil?
+    if $game_temp.mart_prices && $game_temp.mart_prices[item]
+      return $game_temp.mart_prices[item][0] if $game_temp.mart_prices[item][0] > 0
+    end
+    return GameData::Item.get(item).bp_price
+  end
+
+  def buy_price_string(item)
+    price = buy_price(item)
+    return _INTL("{1} BP", price.to_s_formatted)
+  end
+end
+
+#===============================================================================
+# Pokémon Mart.
+#===============================================================================
+class UI::BPShopVisualsList < UI::MartVisualsList
+  def expensive?(this_item)
+    return @stock.buy_price(this_item) > $player.battle_points
+  end
+end
+
+#===============================================================================
+#
+#===============================================================================
+class UI::BPShopVisuals < UI::MartVisuals
+  def initialize_item_list
+    @sprites[:item_list] = UI::BPShopVisualsList.new(@stock, 152, 10, 374, 38 + (ITEMS_VISIBLE * 32), @viewport)
+    @sprites[:item_list].expensive_base_color   = TEXT_COLOR_THEMES[:expensive][0]
+    @sprites[:item_list].expensive_shadow_color = TEXT_COLOR_THEMES[:expensive][1]
+    @sprites[:item_list].active                 = false
+  end
+
+  #-----------------------------------------------------------------------------
+
+  # Like the one in class BaseVisuals, but shows the money as BP instead of $.
+  def choose_number_as_money_multiplier(help_text, money_per_unit, maximum, init_value = 1)
+    @sprites[:speech_box].visible = true
+    @sprites[:speech_box].text = help_text
+    pbBottomLeftLines(@sprites[:speech_box], 2)
+    # Show the help text
+    loop do
+      Graphics.update
+      Input.update
+      update_visuals
+      if @sprites[:speech_box].busy?
+        if Input.trigger?(Input::USE)
+          pbPlayDecisionSE if @sprites[:speech_box].pausing?
+          @sprites[:speech_box].resume
+        end
+      else
+        break
+      end
+    end
+    # Choose a quantity
+    item_price = money_per_unit
+    quantity = init_value
+    using(num_window = Window_AdvancedTextPokemon.newWithSize(
+          _INTL("×{1}<r>{2} BP", quantity, (quantity * item_price).to_s_formatted),
+          0, 0, 224, 64, @viewport)) do
+      num_window.z              = 2000
+      num_window.visible        = true
+      num_window.letterbyletter = false
+      pbBottomRight(num_window)
+      num_window.y -= @sprites[:speech_box].height
+      loop do
+        Graphics.update
+        Input.update
+        update
+        num_window.update
+        # Change quantity
+        old_quantity = quantity
+        if Input.repeat?(Input::LEFT)
+          quantity = [quantity - 10, 1].max
+        elsif Input.repeat?(Input::RIGHT)
+          quantity = [quantity + 10, maximum].min
+        elsif Input.repeat?(Input::UP)
+          quantity += 1
+          quantity = 1 if quantity > maximum
+        elsif Input.repeat?(Input::DOWN)
+          quantity -= 1
+          quantity = maximum if quantity < 1
+        end
+        if quantity != old_quantity
+          num_window.text = _INTL("×{1}<r>{2} BP", quantity, (quantity * item_price).to_s_formatted)
+          pbPlayCursorSE
+        end
+        # Finish choosing a quantity
+        if Input.trigger?(Input::USE)
+          pbPlayDecisionSE
+          break
+        elsif Input.trigger?(Input::BACK)
+          pbPlayCancelSE
+          quantity = 0
+          break
+        end
+      end
+    end
+    @sprites[:speech_box].visible = false
+    return quantity
+  end
+
+  #-----------------------------------------------------------------------------
+
+  def refresh_money_window
+    @sprites[:money_window].text = _INTL("BP:\n<r>{1}", $player.battle_points.to_s_formatted)
+  end
+end
+
+#===============================================================================
+#
+#===============================================================================
+class UI::BPShop < UI::Mart
+  SCREEN_ID = :bp_shop
+
+  def initialize_stock(stock)
+    @stock = UI::BPShopStockWrapper.new(stock)
+  end
+
+  def initialize_visuals
+    @visuals = UI::BPShopVisuals.new(@stock, @bag)
+  end
+end
+
+#===============================================================================
+#
+#===============================================================================
+UIActionHandlers.add(UI::BPShop::SCREEN_ID, :interact, {
+  :effect => proc { |screen|
+    item = screen.item
+    item_price = screen.stock.buy_price(item)
+    # Check affordability
+    if $player.battle_points < item_price
+      screen.show_message(_INTL("I'm sorry, you don't have enough BP."))
+      next
+    end
+    # Choose how many of the item to buy
+    quantity = 0
+    if item.is_important?
+      quantity = 1
+      next if !screen.show_confirm_message(
+        _INTL("You would like the {1}?\nThat will be {2} BP.",
+              item.portion_name, item_price.to_s_formatted)
+      )
+    else
+      max_quantity = (item_price <= 0) ? PokemonBag::MAX_PER_SLOT : $player.battle_points / item_price
+      max_quantity = [max_quantity, PokemonBag::MAX_PER_SLOT].min
+      quantity = screen.choose_number_as_money_multiplier(
+        _INTL("How many {1} would you like?", item.portion_name_plural), item_price, max_quantity
+      )
+      next if quantity == 0
+      item_price *= quantity
+      if quantity > 1
+        next if !screen.show_confirm_message(
+          _INTL("You would like {1} {2}?\nThey'll be {3} BP.",
+                quantity, item.portion_name_plural, item_price.to_s_formatted)
+        )
+      elsif quantity > 0
+        next if !screen.show_confirm_message(
+          _INTL("You would like {1} {2}?\nThat will be {3} BP.",
+                quantity, item.portion_name, item_price.to_s_formatted)
+        )
+      end
+    end
+    # Check affordability (should always be possible, but just make sure)
+    if $player.battle_points < item_price
+      screen.show_message(_INTL("I'm sorry, you don't have enough BP."))
+      next
+    end
+    # Check the item can be put in the Bag
+    if !screen.bag.can_add?(item.id, quantity)
+      screen.show_message(_INTL("You have no room in your Bag."))
+      next
+    end
+    # Add the bought item(s)
+    screen.bag.add(item.id, quantity)
+    $stats.battle_points_spent += item_price
+    $stats.mart_items_bought += quantity
+    $player.battle_points -= item_price
+    screen.stock.refresh
+    screen.refresh
+    screen.show_message(_INTL("Here you are! Thank you!")) { pbSEPlay("Mart buy item") }
+  }
+})
+
+#===============================================================================
+#
+#===============================================================================
+def pbBattlePointShop(stock, speech = nil)
+  if speech.nil?
+    pbMessage(_INTL("Welcome to the Exchange Service Corner!"))
+    pbMessage(_INTL("We can exchange your BP for fabulous items."))
+  else
+    pbMessage(speech)
+  end
+  UI::BPShop.new(stock, $bag).main
+  pbMessage(_INTL("Thank you for visiting."))
+  pbMessage(_INTL("Please visit us again when you have saved up more BP."))
+  $game_temp.clear_mart_prices
+end