release 6.2

Data/Scripts/050_Outfits/UI/clothesShop/0_OutfitsMartAdapter.rb

@@ -0,0 +1,98 @@
+class OutfitsMartAdapter < PokemonMartAdapter
+  WORN_ITEM_BASE_COLOR = MessageConfig::BLUE_TEXT_MAIN_COLOR
+  WORN_ITEM_SHADOW_COLOR = MessageConfig::BLUE_TEXT_SHADOW_COLOR
+
+  def initialize(stock = [], isShop = true)
+    @items = stock
+    @worn_clothes = get_current_clothes()
+    @isShop = isShop
+    @version = nil
+  end
+
+  def toggleText()
+    return ""
+  end
+
+  def switchVersion(item,delta=1)
+    return
+  end
+
+  def toggleEvent(item)
+    return
+  end
+
+  def isWornItem?(item)
+    return false
+  end
+
+  def isShop?()
+    return @isShop
+  end
+
+  def getPrice(item, selling = nil)
+    return 0 if !@isShop
+    return nil if itemOwned(item)
+    return item.price.to_i
+  end
+
+  def getDisplayPrice(item, selling = nil)
+    return "" if !@isShop
+    return "-" if itemOwned(item)
+    super
+  end
+
+  def updateStock()
+    updated_items = []
+    for item in @items
+      updated_items << item if !get_unlocked_items_list().include?(item.id)
+    end
+    @items = updated_items
+  end
+
+  def removeItem(item)
+    super
+  end
+
+  def itemOwned(item)
+    owned_list = get_unlocked_items_list()
+    return owned_list.include?(item.id)
+  end
+
+  def canSell?(item)
+    super
+  end
+
+  def getBaseColorOverride(item)
+    return WORN_ITEM_BASE_COLOR if isWornItem?(item)
+    return nil
+  end
+
+  def getShadowColorOverride(item)
+    return WORN_ITEM_SHADOW_COLOR if isWornItem?(item)
+    return nil
+  end
+
+  def getMoney
+    super
+  end
+
+  def getMoneyString
+    super
+  end
+
+  def setMoney(value)
+    super
+  end
+
+  def getItemIconRect(_item)
+    super
+  end
+
+  def getQuantity(item)
+    super
+  end
+
+  def showQuantity?(item)
+    super
+  end
+end

Data/Scripts/050_Outfits/UI/clothesShop/ClothesMartAdapter.rb

@@ -0,0 +1,64 @@
+class ClothesMartAdapter < OutfitsMartAdapter
+  DEFAULT_NAME = "[unknown]"
+  DEFAULT_DESCRIPTION = "A piece of clothing that trainers can wear."
+
+  def initialize(stock = nil, isShop = nil)
+    super
+  end
+
+  def getName(item)
+    return item.id
+  end
+
+  def getDisplayName(item)
+    return getName(item) if !item.name
+    return item.name
+  end
+
+  def getDescription(item)
+    return DEFAULT_DESCRIPTION if !item.description
+    return item.description
+  end
+
+  def getItemIcon(item)
+    return Settings::BACK_ITEM_ICON_PATH if !item
+    return getOverworldOutfitFilename(item.id)
+  end
+
+  def updateTrainerPreview(item, previewWindow)
+    return if !item
+    previewWindow.clothes = item.id
+    $Trainer.clothes = item.id
+    pbRefreshSceneMap
+    previewWindow.updatePreview()
+  end
+
+
+  def addItem(item)
+    changed_clothes = obtainNewClothes(item.id)
+    if changed_clothes
+      @worn_clothes = item.id
+    end
+  end
+
+  def get_current_clothes()
+    return $Trainer.clothes
+  end
+
+  def putOnOutfit(item)
+    putOnClothes(item.id)
+    @worn_clothes = item.id
+  end
+
+  def reset_player_clothes()
+    $Trainer.clothes = @worn_clothes
+  end
+
+  def get_unlocked_items_list()
+    return $Trainer.unlocked_clothes
+  end
+
+  def isWornItem?(item)
+    super
+  end
+end

Data/Scripts/050_Outfits/UI/clothesShop/ClothesShop.rb

@@ -0,0 +1,115 @@
+def genericOutfitsShopMenu(stock = [], itemType = nil, versions = false)
+  commands = []
+  commands[cmdBuy = commands.length] = _INTL("Buy")
+  commands[cmdQuit = commands.length] = _INTL("Quit")
+  cmd = pbMessage(_INTL("Welcome! How may I serve you?"), commands, cmdQuit + 1)
+  loop do
+    if cmdBuy >= 0 && cmd == cmdBuy
+      adapter = getAdapter(itemType, stock, true)
+      view = ClothesShopView.new()
+      presenter = getPresenter(itemType, view, stock, adapter, versions)
+      presenter.pbBuyScreen
+      break
+    else
+      pbMessage(_INTL("Please come again!"))
+      break
+    end
+    cmd = pbMessage(_INTL("Is there anything else I can help you with?"),
+                    commands, cmdQuit + 1)
+  end
+end
+
+def getPresenter(itemType, view, stock, adapter, versions)
+  case itemType
+  when :HAIR
+    return HairShopPresenter.new(view, stock, adapter, versions)
+  else
+    return ClothesShopPresenter.new(view, stock, adapter, versions)
+  end
+end
+
+def getAdapter(itemType, stock, isShop)
+  case itemType
+  when :CLOTHES
+    return ClothesMartAdapter.new(stock, isShop)
+  when :HAT
+    return HatsMartAdapter.new(stock, isShop)
+  when :HAIR
+    return HairMartAdapter.new(stock, isShop)
+  end
+end
+
+def list_all_possible_outfits() end
+
+def clothesShop(outfits_list = [])
+  stock = []
+  outfits_list.each { |outfit_id|
+    outfit = get_clothes_by_id(outfit_id)
+    stock << outfit if outfit
+  }
+  genericOutfitsShopMenu(stock, :CLOTHES)
+end
+
+def hatShop(outfits_list = [])
+  stock = []
+  outfits_list.each { |outfit_id|
+    outfit = get_hat_by_id(outfit_id)
+    stock << outfit if outfit
+  }
+  genericOutfitsShopMenu(stock, :HAT)
+end
+
+def hairShop(outfits_list = [])
+  stock = []
+  outfits_list.each { |outfit_id|
+    echoln outfit_id
+    outfit = get_hair_by_id(outfit_id)
+    stock << outfit if outfit
+  }
+  genericOutfitsShopMenu(stock, :HAIR, true)
+end
+
+def openSelectOutfitMenu(stock = [], itemType)
+  adapter = getAdapter(itemType, stock, false)
+  view = ClothesShopView.new()
+  presenter = ClothesShopPresenter.new(view, stock, adapter)
+  presenter.pbBuyScreen
+end
+
+def changeClothesMenu()
+  stock = []
+  $Trainer.unlocked_clothes.each { |outfit_id|
+    outfit = get_clothes_by_id(outfit_id)
+    stock << outfit if outfit
+  }
+  openSelectOutfitMenu(stock, :CLOTHES)
+end
+
+def changeHatMenu()
+  stock = []
+  $Trainer.unlocked_hats.each { |outfit_id|
+    outfit = get_hat_by_id(outfit_id)
+    stock << outfit if outfit
+  }
+  openSelectOutfitMenu(stock, :HAT)
+end
+
+def changeOutfit()
+  commands = []
+  commands[cmdClothes = commands.length] = _INTL("Change clothes")
+  commands[cmdHat = commands.length] = _INTL("Change hat")
+  commands[cmdQuit = commands.length] = _INTL("Quit")
+
+  cmd = pbMessage(_INTL("What would you like to do?"), commands, cmdQuit + 1)
+  loop do
+    if cmd == cmdClothes
+      changeClothesMenu()
+      break
+    elsif cmd == cmdHat
+      changeHatMenu()
+      break
+    else
+      break
+    end
+  end
+end

Data/Scripts/050_Outfits/UI/clothesShop/ClothesShopPresenter.rb

@@ -0,0 +1,64 @@
+class ClothesShopPresenter < PokemonMartScreen
+  def pbChooseBuyItem
+
+  end
+
+  def initialize(scene, stock, adapter = nil, versions=false)
+    super(scene,stock,adapter)
+    @use_versions = versions
+  end
+
+
+  def pbBuyScreen
+    @scene.pbStartBuyScene(@stock, @adapter)
+    item = nil
+    loop do
+      item = @scene.pbChooseBuyItem
+      break if !item
+
+      if !@adapter.isShop?
+        if pbConfirm(_INTL("Would you like to put on the {1}?", item.name))
+          @adapter.putOnOutfit(item)
+          @scene.pbEndBuyScene
+          return
+        end
+        next
+
+      end
+
+      itemname = @adapter.getDisplayName(item)
+      price = @adapter.getPrice(item)
+      if !price.is_a?(Integer)
+        pbDisplayPaused(_INTL("You already own this item!"))
+        if pbConfirm(_INTL("Would you like to put on the {1}?", item.name))
+          @adapter.putOnOutfit(item)
+        end
+        next
+      end
+      if @adapter.getMoney < price
+        pbDisplayPaused(_INTL("You don't have enough money."))
+        next
+      end
+
+      if !pbConfirm(_INTL("Certainly. You want {1}. That will be ${2}. OK?",
+                          itemname, price.to_s_formatted))
+        next
+      end
+      quantity = 1
+
+      if @adapter.getMoney < price
+        pbDisplayPaused(_INTL("You don't have enough money."))
+        next
+      end
+      added = 0
+
+      @adapter.setMoney(@adapter.getMoney - price)
+      @stock.compact!
+      pbDisplayPaused(_INTL("Here you are! Thank you!")) { pbSEPlay("Mart buy item") }
+      @adapter.addItem(item)
+      #break
+    end
+    @scene.pbEndBuyScene
+  end
+
+end

Data/Scripts/050_Outfits/UI/clothesShop/ClothesShopView.rb

@@ -0,0 +1,144 @@
+class ClothesShopView < PokemonMart_Scene
+
+
+  def initialize(currency_name="Money")
+    @currency_name = currency_name
+  end
+
+  def pbStartBuyOrSellScene(buying, stock, adapter)
+    super(buying, stock, adapter)
+    @initial_direction = $game_player.direction
+    @sprites["icon"].visible=false
+    if @adapter.isShop?
+      @sprites["background"].setBitmap("Graphics/Pictures/martScreenOutfit")
+    else
+      @sprites["background"].setBitmap("Graphics/Pictures/changeOutfitScreen")
+    end
+
+    preview_y = @adapter.isShop? ? 80 : 0
+    @sprites["trainerPreview"] = TrainerClothesPreview.new(0, preview_y, true,"WALLET")
+
+    @sprites["trainerPreview"].show()
+    @sprites["moneywindow"].visible = false if !@adapter.isShop?
+
+    Kernel.pbDisplayText(@adapter.toggleText, 80, 200, 99999) if @adapter.toggleText
+
+  end
+
+  def scroll_map
+    pbScrollMap(DIRECTION_UP, 5, 5)
+    pbScrollMap(DIRECTION_RIGHT, 7, 5)
+    $game_player.turn_down
+    pbRefreshSceneMap
+  end
+
+  def scroll_back_map
+    @adapter.reset_player_clothes()
+    pbScrollMap(DIRECTION_LEFT, 7, 5)
+    pbScrollMap(DIRECTION_DOWN, 5, 5)
+    $game_player.turn_generic(@initial_direction)
+    pbRefreshSceneMap
+  end
+
+  def refreshStock(adapter)
+    @adapter = adapter
+    @sprites["itemwindow"].dispose
+    @sprites["itemwindow"] = Window_PokemonMart.new(@stock, BuyAdapter.new(adapter),
+                                                    Graphics.width - 316 - 16, 12, 330 + 16, Graphics.height - 126)
+  end
+
+  def pbRefresh
+    if @subscene
+      @subscene.pbRefresh
+    else
+      itemwindow = @sprites["itemwindow"]
+      #@sprites["icon"].item = itemwindow.item
+      #@sprites["icon"].item = itemwindow.item
+      @sprites["itemtextwindow"].text =
+        (itemwindow.item) ? @adapter.getDescription(itemwindow.item) : _INTL("Quit.")
+      itemwindow.refresh
+    end
+    @sprites["moneywindow"].text = _INTL("{2}:\r\n<r>{1}", @adapter.getMoneyString,@currency_name)
+  end
+
+  def updateTrainerPreview()
+    displayNewItem(@sprites["itemwindow"])
+  end
+
+  def displayNewItem(itemwindow)
+    @adapter.updateTrainerPreview(itemwindow.item,@sprites["trainerPreview"])
+    @sprites["itemtextwindow"].text =
+      (itemwindow.item) ? @adapter.getDescription(itemwindow.item) : _INTL("Quit.")
+  end
+
+
+
+  def pbChooseBuyItem
+    itemwindow = @sprites["itemwindow"]
+    displayNewItem(itemwindow)
+    @sprites["helpwindow"].visible = false
+    pbActivateWindow(@sprites, "itemwindow") {
+      pbRefresh
+      loop do
+        Graphics.update
+        Input.update
+        olditem = itemwindow.item
+        self.update
+        if itemwindow.item != olditem
+          displayNewItem(itemwindow)
+        end
+        if Input.trigger?(Input::AUX1)#L button
+          @adapter.switchVersion(itemwindow.item,-1)
+          updateTrainerPreview()
+        end
+        if Input.trigger?(Input::AUX2)#R button
+          @adapter.switchVersion(itemwindow.item,1)
+          updateTrainerPreview()
+        end
+        if Input.trigger?(Input::SPECIAL)#R button
+          @adapter.toggleEvent(itemwindow.item)
+          updateTrainerPreview()
+        end
+
+
+        if Input.trigger?(Input::BACK)
+          pbPlayCloseMenuSE
+          return nil
+        elsif Input.trigger?(Input::USE)
+          if itemwindow.index < @stock.length
+            pbRefresh
+            return @stock[itemwindow.index]
+          else
+            return nil
+          end
+        end
+      end
+    }
+  end
+
+  def update
+    if Input.trigger?(Input::LEFT)
+      pbSEPlay("GUI party switch", 80, 100)
+      $game_player.turn_right_90
+      pbRefreshSceneMap
+    end
+    if Input.trigger?(Input::RIGHT)
+      pbSEPlay("GUI party switch", 80, 100)
+      $game_player.turn_left_90
+      pbRefreshSceneMap
+    end
+    super
+  end
+
+
+  def pbEndBuyScene
+    @sprites["trainerPreview"].erase()
+    @sprites["trainerPreview"]=nil
+    pbDisposeSpriteHash(@sprites)
+    @viewport.dispose
+    Kernel.pbClearText()
+    # Scroll left after showing screen
+    scroll_back_map()
+  end
+
+end

Data/Scripts/050_Outfits/UI/clothesShop/HairMartAdapter.rb

@@ -0,0 +1,126 @@
+class HairMartAdapter < OutfitsMartAdapter
+  DEFAULT_NAME = "[unknown]"
+  DEFAULT_DESCRIPTION = "A hairstyle for trainers."
+
+  POSSIBLE_VERSIONS = (1..9).to_a
+
+  def initialize(stock = nil, isShop = nil)
+    super
+    @version = getCurrentHairVersion().to_i
+    @worn_hat = $Trainer.hat
+    @hat_visible=false
+    @removable = true
+  end
+
+  def switchVersion(item, delta=1)
+    pbSEPlay("GUI party switch", 80, 100)
+    newVersion = @version+ delta
+    lastVersion = findLastHairVersion(item.id)
+    newVersion = lastVersion if newVersion <= 0
+    newVersion = 1 if newVersion > lastVersion
+    @version = newVersion
+  end
+
+  def toggleEvent(item)
+    pbSEPlay("GUI storage put down", 80, 100)
+    toggleHatVisibility()
+  end
+
+  def toggleText()
+    text = ""
+    text << "Color: L / R\n"
+    text << "Hat: D\n"
+
+  end
+
+  def toggleHatVisibility()
+    @hat_visible = !@hat_visible
+  end
+
+  def getPrice(item, selling = nil)
+    return 0 if !@isShop
+    trainerStyleID = getSplitHairFilenameAndVersionFromID($Trainer.hair)[0]
+    return 0 if item == trainerStyleID
+    return nil if itemOwned(item)
+    return item.price.to_i
+  end
+
+  def getDisplayPrice(item, selling = nil)
+    trainerStyleID = getSplitHairFilenameAndVersionFromID($Trainer.hair)[0]
+    return "-" if item == trainerStyleID
+    super
+  end
+
+  def getCurrentHairVersion()
+    begin
+      return getSplitHairFilenameAndVersionFromID($Trainer.hair)[0]
+    rescue
+      return 1
+    end
+  end
+
+  def getCurrentHairId(itemId)
+    return getFullHairId(itemId, @version)
+  end
+
+  def getName(item)
+    return item.id
+  end
+
+  def getDisplayName(item)
+    return getName(item) if !item.name
+    return item.name
+  end
+
+  def getDescription(item)
+    return DEFAULT_DESCRIPTION if !item.description
+    return item.description
+  end
+
+  def getItemIcon(item)
+    return Settings::BACK_ITEM_ICON_PATH if !item
+    itemId = getCurrentHairId(item.id)
+    return getOverworldHatFilename(item.id)
+  end
+
+  def updateTrainerPreview(item, previewWindow)
+    return if !item
+    displayed_hat = @hat_visible ? @worn_hat : nil
+    previewWindow.hat=displayed_hat
+    $Trainer.hat = displayed_hat
+    itemId = getCurrentHairId(item.id)
+    echoln itemId
+    previewWindow.hair = itemId
+    $Trainer.hair = itemId
+    pbRefreshSceneMap
+    previewWindow.updatePreview()
+  end
+
+  def addItem(item)
+    itemId = getCurrentHairId(item.id)
+
+    changed_clothes = obtainNewHairstyle(itemId)
+    if changed_clothes
+      @worn_clothes = itemId
+    end
+  end
+
+  def get_current_clothes()
+    return $Trainer.hair
+  end
+
+  def putOnOutfit(item)
+    itemFullId = getCurrentHairId(item.id)
+    putOnHair(item.id, @version)
+    @worn_clothes = itemFullId
+  end
+
+  def reset_player_clothes()
+    $Trainer.hair = @worn_clothes
+    $Trainer.hat = @worn_hat
+  end
+
+  def get_unlocked_items_list()
+    return $Trainer.unlocked_hairstyles
+  end
+end

Data/Scripts/050_Outfits/UI/clothesShop/HairShopPresenter.rb

@@ -0,0 +1,66 @@
+class HairShopPresenter < PokemonMartScreen
+  def pbChooseBuyItem
+
+  end
+
+  def initialize(scene, stock, adapter = nil, versions=false)
+    super(scene,stock,adapter)
+    @use_versions = versions
+  end
+
+
+  def pbBuyScreen
+    @scene.pbStartBuyScene(@stock, @adapter)
+    item = nil
+    loop do
+      item = @scene.pbChooseBuyItem
+      break if !item
+
+      if !@adapter.isShop?
+        if pbConfirm(_INTL("Would you like to purchase {1}?", item.name))
+          @adapter.putOnOutfit(item)
+          @scene.pbEndBuyScene
+          return
+        end
+        next
+
+      end
+
+      itemname = @adapter.getDisplayName(item)
+      price = @adapter.getPrice(item)
+      if !price.is_a?(Integer)
+        pbDisplayPaused(_INTL("This is your current hairstyle!"))
+        @adapter.putOnOutfit(item)
+        next
+      end
+      if @adapter.getMoney < price
+        pbDisplayPaused(_INTL("You don't have enough money."))
+        next
+      end
+
+      if !pbConfirm(_INTL("Certainly. You want {1}. That will be ${2}. OK?",
+                          itemname, price.to_s_formatted))
+        next
+      end
+      quantity = 1
+
+      if @adapter.getMoney < price
+        pbDisplayPaused(_INTL("You don't have enough money."))
+        next
+      end
+      added = 0
+
+      @adapter.setMoney(@adapter.getMoney - price)
+      @stock.compact!
+      pbDisplayPaused(_INTL("Here you are! Thank you!")) { pbSEPlay("Mart buy item") }
+      @adapter.addItem(item)
+      #break
+    end
+    @scene.pbEndBuyScene
+  end
+
+  def isWornItem?(item)
+    super
+  end
+
+end

Data/Scripts/050_Outfits/UI/clothesShop/HatsMartAdapter.rb

@@ -0,0 +1,75 @@
+class HatsMartAdapter < OutfitsMartAdapter
+  DEFAULT_NAME = "[unknown]"
+  DEFAULT_DESCRIPTION = "A headgear that trainers can wear."
+
+  def initialize(stock = nil, isShop = nil)
+    super
+  end
+
+  def toggleEvent(item)
+    if !@isShop
+      if pbConfirmMessage(_INTL("Do you want to take off your hat?"))
+        $Trainer.hat = nil
+        @worn_clothes = nil
+
+      end
+    end
+  end
+
+  def toggleText()
+    return if @isShop
+    toggleKey = "D"#getMappedKeyFor(Input::SPECIAL)
+    return "Remove hat: #{toggleKey}"
+  end
+
+  def getName(item)
+    return item.id
+  end
+
+  def getDisplayName(item)
+    return getName(item) if !item.name
+    return item.name
+  end
+
+  def getDescription(item)
+    return DEFAULT_DESCRIPTION if !item.description
+    return item.description
+  end
+
+  def getItemIcon(item)
+    return Settings::BACK_ITEM_ICON_PATH if !item
+    return getOverworldHatFilename(item.id)
+  end
+
+  def updateTrainerPreview(item, previewWindow)
+    return if !item
+    previewWindow.hat = item.id
+    $Trainer.hat = item.id unless $Trainer.hat==nil
+    pbRefreshSceneMap
+    previewWindow.updatePreview()
+  end
+
+  def addItem(item)
+    changed_clothes = obtainNewHat(item.id)
+    if changed_clothes
+      @worn_clothes = item.id
+    end
+  end
+
+  def get_current_clothes()
+    return $Trainer.hat
+  end
+
+  def putOnOutfit(item)
+    putOnHat(item.id)
+    @worn_clothes = item.id
+  end
+
+  def reset_player_clothes()
+    $Trainer.hat = @worn_clothes
+  end
+
+  def get_unlocked_items_list()
+    return $Trainer.unlocked_hats
+  end
+end