Update 6.8

2026-07-22 15:47:00 +00:00 · 2026-07-10 15:42:06 -04:00
parent 5b85e72cb2
commit 6a6f126a18
7871 changed files with 493194 additions and 224826 deletions
@@ -0,0 +1,422 @@
+def obtainBadgeMessage(badgeName)
+  Kernel.pbMessage(_INTL("\\me[Badge get]{1} obtained the {2}!", $Trainer.name, badgeName))
+end
+
+def pbSpendMoney(amount,showMessage=false,msgwindow=nil, goldwindow=nil)
+  pbReceiveMoney(0- amount,showMessage,msgwindow,goldwindow,)
+end
+def pbReceiveMoney(amount, showMessage=true, msgwindow=nil, goldwindow=nil)
+  msgwindow  = pbCreateMessageWindow(nil)      unless msgwindow
+  goldwindow = pbDisplayGoldWindow(msgwindow)  unless goldwindow
+
+  if showMessage
+    if amount >= 0
+      pbMessage(_INTL("{1} received ${2}!", $Trainer.name, amount.to_s_formatted))
+    else
+      pbMessage(_INTL("{1} spent ${2}!", $Trainer.name, amount.abs.to_s_formatted))
+    end
+  end
+
+  # Show current money initial pause
+  15.times do
+    Graphics.update
+    Input.update
+    pbUpdateSceneMap
+    msgwindow.update
+    goldwindow.update
+  end
+
+  oldMoney    = $Trainer.money
+  targetMoney = oldMoney + amount
+  step        = [(amount.abs / 15), 1].max
+  current     = oldMoney
+
+  # Count up/down animation
+  while (amount >= 0 ? current < targetMoney : current > targetMoney)
+    current += (amount >= 0 ? step : -step)
+    current = targetMoney if (amount >= 0 ? current > targetMoney : current < targetMoney)
+
+    color = amount >= 0 ? "00FF00" : "FF0000"
+    sign  = amount >= 0 ? "+" : "-"
+    goldwindow.text = "Money:\n<ar>$#{current.to_s_formatted}</ar>\n<ar><c3=#{color}>#{sign}$#{amount.abs.to_s_formatted}</c3></ar>"
+    goldwindow.text = "Money:\n<ar>$#{current.to_s_formatted}</ar>\n<ar><c3=#{color}>#{sign}$#{amount.abs.to_s_formatted}</c3></ar>"
+    goldwindow.resizeToFit(goldwindow.text, Graphics.width)
+    goldwindow.width = 160 if goldwindow.width <= 160
+
+
+    pbSEPlay("Mart buy item") if (amount >= 0 ? current < targetMoney : current > targetMoney)
+    Graphics.update
+    Input.update
+    pbUpdateSceneMap
+    msgwindow.update
+    goldwindow.update
+  end
+
+  $Trainer.money = targetMoney
+
+  # Final display text
+  goldwindow.text = "Money:\n<ar>$#{targetMoney.to_s_formatted}</ar>"
+
+  goldwindow.resizeToFit(goldwindow.text, Graphics.width)
+  goldwindow.width = 160 if goldwindow.width <= 160
+
+  # Show final balance pause
+  20.times do
+    Graphics.update
+    Input.update
+    pbUpdateSceneMap
+    msgwindow.update
+    goldwindow.update
+  end
+
+  goldwindow.dispose
+  pbDisposeMessageWindow(msgwindow)
+end
+
+def pbSpendCosmeticMoney(amount,showMessage=false,msgwindow=nil, goldwindow=nil)
+  pbReceiveCosmeticsMoney(0- amount,showMessage,msgwindow,goldwindow,)
+end
+def pbReceiveCosmeticsMoney(amount, showMessage=true, msgwindow=nil, goldwindow=nil)
+  msgwindow  = pbCreateMessageWindow(nil)          unless msgwindow
+  goldwindow = pbDisplayCosmeticsMoneyWindow(msgwindow) unless goldwindow
+
+  if showMessage
+    if amount >= 0
+      pbMessage(_INTL("{1} received {2} {3}!", $Trainer.name, amount.to_s_formatted, COSMETIC_CURRENCY_NAME))
+    else
+      pbMessage(_INTL("{1} spent {2} {3}!", $Trainer.name, amount.abs.to_s_formatted, COSMETIC_CURRENCY_NAME))
+    end
+  end
+
+  # Show current cosmetic money initial pause
+  15.times do
+    Graphics.update
+    Input.update
+    pbUpdateSceneMap
+    msgwindow.update
+    goldwindow.update
+  end
+
+  oldMoney    = $Trainer.cosmetics_money || 0
+  targetMoney = oldMoney + amount
+  step        = [(amount.abs / 15), 1].max
+  current     = oldMoney
+
+  # Count up/down animation
+  while (amount >= 0 ? current < targetMoney : current > targetMoney)
+    current += (amount >= 0 ? step : -step)
+    current = targetMoney if (amount >= 0 ? current > targetMoney : current < targetMoney)
+
+    color   = amount >= 0 ? "00FF00" : "FF0000"
+    sign    = amount >= 0 ? "+" : "-"
+    goldwindow.text = _INTL(
+      "{1}:\n<ar>{2}</ar>\n<ar><c3={3}>{4} {5}</c3></ar>",
+      COSMETIC_CURRENCY_NAME,
+      current.to_s_formatted,
+      color,
+      sign,
+      amount.abs.to_s_formatted
+    )
+
+    pbSEPlay("Mart buy item") if amount >= 0 ? current < targetMoney : current > targetMoney
+    Graphics.update
+    Input.update
+    pbUpdateSceneMap
+    msgwindow.update
+    goldwindow.update
+  end
+
+  $Trainer.cosmetics_money = targetMoney
+
+  # Final display text
+  goldwindow.text = _INTL(
+    "{1}:\n<ar>{2}</ar>",
+    COSMETIC_CURRENCY_NAME,
+    targetMoney.to_s_formatted
+  )
+
+  goldwindow.resizeToFit(goldwindow.text, Graphics.width)
+  goldwindow.width = 160 if goldwindow.width <= 160
+
+  # Show final balance pause
+  20.times do
+    Graphics.update
+    Input.update
+    pbUpdateSceneMap
+    msgwindow.update
+    goldwindow.update
+  end
+
+  goldwindow.dispose
+  pbDisposeMessageWindow(msgwindow)
+end
+
+
+def promptCaughtPokemonAction(pokemon)
+  pickedOption = false
+  return pbStorePokemon(pokemon) if !$Trainer.party_full?
+  return promptKeepOrRelease(pokemon) if isOnPinkanIsland() && !$game_switches[SWITCH_PINKAN_FINISHED]
+  while !pickedOption
+    cmd_swap = _INTL("Add to your party")
+    cmd_fuse = _INTL("Fuse in party")
+    cmd_pc = _INTL("Store to PC")
+
+    options = []
+    options << cmd_swap
+    if !pokemon.isFusion? && playerHasFusionItems && hasUnfusedPokemonInParty(false)
+      options << cmd_fuse
+    end
+    options << cmd_pc
+
+    command = pbMessage(_INTL("\\ts[]Your team is full!"), options, options.length)
+    case options[command]
+    when cmd_swap
+      if swapCaughtPokemon(pokemon)
+        pickedOption = true
+      end
+    when cmd_fuse
+      if fuseCaughtPokemon(pokemon)
+        pickedOption = true
+      end
+    else
+      # STORE
+      pbStorePokemon(pokemon)
+      pickedOption = true
+    end
+  end
+end
+
+def promptKeepOrRelease(pokemon)
+  pickedOption = false
+  while !pickedOption
+    command = pbMessage(_INTL("\\ts[]Your team is full!"),
+                        [_INTL("Release a party member"), _INTL("Release this {1}",pokemon.name),], 2)
+    case command
+    when 0 # SWAP
+      if swapReleaseCaughtPokemon(pokemon)
+        pickedOption = true
+      end
+    else
+      pickedOption = true
+    end
+  end
+end
+
+def fuseCaughtPokemon(caughtPokemon)
+  pbChoosePokemon(1, 2,
+                             proc { |poke|
+                               !poke.egg? &&
+                                 !(poke.isFusion? rescue false) &&
+                                 poke.hp > 0
+
+                             })
+  partyPosition = pbGet(1)
+  return false if partyPosition == -1
+  splicerItem = selectSplicer()
+  return unless splicerItem
+
+  selected = $Trainer.party[partyPosition].clone
+  selectedHead, fusion_pif_sprite = selectFusion(caughtPokemon,selected)
+  return false unless selectedHead && fusion_pif_sprite
+  if (pbConfirmMessage(_INTL("Fuse the newly obtained {1} with {2}?", caughtPokemon.name, selected.name)))
+    if selectedHead == caughtPokemon
+      pbRemovePokemonAt(partyPosition)
+      pbAddPokemonSilent(caughtPokemon)
+      pbFuse(caughtPokemon, selected, splicerItem, fusion_pif_sprite)
+    else
+      actualPartyPokemon = $Trainer.party[partyPosition]  # real reference, not clone
+      pbFuse(actualPartyPokemon, caughtPokemon, splicerItem, fusion_pif_sprite)
+    end
+    $PokemonBag.pbDeleteItem(splicerItem) if splicerItem == :DNASPLICERS || splicerItem == :SUPERSPLICERS
+    return true
+  end
+  return false
+end
+
+# def pbChoosePokemon(variableNumber, nameVarNumber, ableProc = nil, allowIneligible = false)
+def swapCaughtPokemon(caughtPokemon)
+  pbChoosePokemon(1, 2,
+                  proc { |poke|
+                    !poke.egg? &&
+                      !(poke.isShadow? rescue false)
+                  })
+  index = pbGet(1)
+  return false if index == -1
+  $PokemonStorage.pbStoreCaught($Trainer.party[index])
+  pbRemovePokemonAt(index)
+  pbStorePokemon(caughtPokemon)
+
+  tmp = $Trainer.party[index]
+  $Trainer.party[index] = $Trainer.party[-1]
+  $Trainer.party[-1] = tmp
+  return true
+end
+
+def swapReleaseCaughtPokemon(caughtPokemon)
+  pbChoosePokemon(1, 2,
+                  proc { |poke|
+                    !poke.egg? &&
+                      !(poke.isShadow? rescue false)
+                  })
+  index = pbGet(1)
+  return false if index == -1
+  releasedPokemon = $Trainer.party[index]
+  pbMessage(_INTL("{1} was released.",releasedPokemon.name))
+  pbRemovePokemonAt(index)
+  pbStorePokemon(caughtPokemon)
+
+  tmp = $Trainer.party[index]
+  $Trainer.party[index] = $Trainer.party[-1]
+  $Trainer.party[-1] = tmp
+  return true
+end
+
+def select_any_pokemon()
+  commands = []
+  for dex_num in 1..NB_POKEMON
+    species = getPokemon(dex_num)
+    commands.push([dex_num - 1, species.real_name, species.id])
+  end
+  return pbChooseList(commands, 0, nil, 1)
+end
+
+
+
+# chosen pokemon is returned with this format:
+#[[boxID, boxPosition],pokemon]
+
+def pbChoosePokemonPC(positionVariableNumber, pokemonVarNumber, ableProc = nil)
+  chosen = nil
+  pokemon = nil
+
+    pbFadeOutIn {
+      scene = PokemonStorageScene.new
+      screen = PokemonStorageScreen.new(scene, $PokemonStorage)
+      screen.setFilter(ableProc) if ableProc
+      chosen = screen.choosePokemon
+      pokemon = $PokemonStorage[chosen[0]][chosen[1]] if chosen
+      scene.pbCloseBox
+    }
+  pbSet(positionVariableNumber, chosen)
+  pbSet(pokemonVarNumber, pokemon)
+end
+
+def set_player_birthday
+  date = selectDate(_INTL("Your birthday is on"))
+  $Trainer.birth_day = date.day
+  $Trainer.birth_month = date.month
+end
+
+def selectDate(confirm_text = _INTL("You chose "))
+  months_nb_days = {
+    :JANUARY => 31,
+    :FEBRUARY => 29,
+    :MARCH => 31,
+    :APRIL => 30,
+    :MAY => 31,
+    :JUNE => 30,
+    :JULY => 31,
+    :AUGUST => 31,
+    :SEPTEMBER => 30,
+    :OCTOBER => 31,
+    :NOVEMBER => 30,
+    :DECEMBER => 31,
+  }
+  month_names = {
+    :JANUARY => _INTL("January"),
+    :FEBRUARY => _INTL("February"),
+    :MARCH => _INTL("March"),
+    :APRIL => _INTL("April"),
+    :MAY => _INTL("May"),
+    :JUNE => _INTL("June"),
+    :JULY => _INTL("July"),
+    :AUGUST => _INTL("August"),
+    :SEPTEMBER => _INTL("September"),
+    :OCTOBER => _INTL("October"),
+    :NOVEMBER => _INTL("November"),
+    :DECEMBER => _INTL("December"),
+  }
+
+  pbMessage(_INTL("Which month?"))
+  selected = false
+  while !selected
+    chosen_month_index = optionsMenu(month_names.values)
+    month = month_names.keys[chosen_month_index]
+    nb_days = months_nb_days[month]
+
+    numberParams = ChooseNumberParams.new
+    numberParams.setRange(1,nb_days)
+    numberParams.setDefaultValue(1)
+    chosen_day = pbMessageChooseNumber(_INTL("Which day?"),numberParams)
+
+    chosen_month_name = month_names[month]
+    if pbConfirmMessage(_INTL("{1} \\C[1]{2} {3}\\C[0]. Is that correct?",confirm_text, chosen_month_name,chosen_day))
+      birthday = Time.new(2000,chosen_month_index+1,chosen_day)
+      return birthday
+    end
+  end
+
+end
+
+# Helper method to wrap text into multiple lines
+def wrap_text(text, bitmap, max_width)
+  words = text.split(" ")
+  lines = []
+  line = ""
+  words.each do |word|
+    test_line = line.empty? ? word : "#{line} #{word}"
+    if bitmap.text_size(test_line).width > max_width
+      lines << line
+      line = word
+    else
+      line = test_line
+    end
+  end
+  lines << line unless line.empty?
+  return lines
+end
+
+def pbColor(color)
+  # Mix your own colors: http://www.rapidtables.com/web/color/RGB_Color.htm
+  return Color.new(0, 0, 0) if color == :BLACK
+  return Color.new(255, 255, 255) if color == :WHITE
+  return Color.new(255, 115, 115) if color == :LIGHTRED
+  return Color.new(245, 11, 11) if color == :RED
+  return Color.new(164, 3, 3) if color == :DARKRED
+  return Color.new(47, 46, 46) if color == :DARKGREY
+  return Color.new(47, 46, 46) if color == :DARKGREY
+  return Color.new(100, 92, 92) if color == :LIGHTGREY
+  return Color.new(226, 104, 250) if color == :PINK
+  return Color.new(243, 154, 154) if color == :PINKTWO
+  return Color.new(255, 160, 50) if color == :GOLD
+  return Color.new(255, 186, 107) if color == :LIGHTORANGE
+  return Color.new(95, 54, 6) if color == :BROWN
+  return Color.new(122, 76, 24) if color == :LIGHTBROWN
+  return Color.new(255, 246, 152) if color == :LIGHTYELLOW
+  return Color.new(242, 222, 42) if color == :YELLOW
+  return Color.new(80, 111, 6) if color == :DARKGREEN
+  return Color.new(154, 216, 8) if color == :GREEN
+  return Color.new(197, 252, 70) if color == :LIGHTGREEN
+  return Color.new(74, 146, 91) if color == :FADEDGREEN
+  return Color.new(6, 128, 92) if color == :DARKLIGHTBLUE
+  return Color.new(18, 235, 170) if color == :LIGHTBLUE
+  return Color.new(139, 247, 215) if color == :SUPERLIGHTBLUE
+  return Color.new(35, 203, 255) if color == :BLUE
+  return Color.new(3, 44, 114) if color == :DARKBLUE
+  return Color.new(7, 3, 114) if color == :SUPERDARKBLUE
+  return Color.new(63, 6, 121) if color == :DARKPURPLE
+  return Color.new(113, 16, 209) if color == :PURPLE
+  return Color.new(130, 50, 200) if color == :LIGHTPURPLE
+  return Color.new(219, 183, 37) if color == :ORANGE
+  return Color.new(255, 255, 255, 0) if color == :INVISIBLE
+  return MessageConfig::LIGHT_TEXT_MAIN_COLOR if color == :LIGHT_TEXT_MAIN_COLOR
+  return MessageConfig::LIGHT_TEXT_SHADOW_COLOR if color == :LIGHT_TEXT_SHADOW_COLOR
+  return MessageConfig::DARK_TEXT_MAIN_COLOR if color == :DARK_TEXT_MAIN_COLOR
+  return MessageConfig::DARK_TEXT_SHADOW_COLOR if color == :DARK_TEXT_SHADOW_COLOR
+  return Color.new(255, 255, 255)
+end
+
+
+def isDarkMode
+  return $Trainer&.pokenav&.darkMode
+end