BoxExchange 1.0.1

[derFischae]

If you have a party of 6 and get a new Pokemon you can interact with your box

Made by Jonas930, reliccastle (dot) com/resources/176/
However the original version of the script has a small bug. Thus a new version

Installation:
As easy as possible. Simply insert a new Script above main, name it BoxExchange and paste the following code in it.

#===============================================================================
#If you have a party of 6 and get a new Pokemon you can interact with your box
#Made by Jonas930, https://reliccastle.com/resources/176/
#
# incredibly small but nessessary bugfix by derFischae
#===============================================================================

module PokeBattle_BattleCommon
  def pbStorePokemon(pokemon)
    if !(pokemon.isShadow? rescue false)
      if pbDisplayConfirm(_INTL("Would you like to give a nickname to {1}?",pokemon.name))
        species=PBSpecies.getName(pokemon.species)
        [email protected](_INTL("{1}'s nickname?",species),pokemon)
        pokemon.name=nickname if nickname!=""
      end
    end
    if self.pbPlayer.party.length<6
      self.pbPlayer.party[self.pbPlayer.party.length]=pokemon
      return
    else
      pokemon2 = -1
      if pbDisplayConfirm(_INTL("Would you like to keep {1} in your party?",pokemon.name))
        pbDisplayPaused(_INTL("Please select a Pokémon to swap from your party."))
        pbChoosePokemon(1,2)
        poke = pbGet(1)
        if poke != -1
          pokemon2 = pokemon
          pokemon = self.pbPlayer.party[poke]
          pbRemovePokemonAt(poke)
          self.pbPlayer.party[self.pbPlayer.party.length]=pokemon2
        end
      end
      [email protected]()
      [email protected](self.pbPlayer,pokemon) 
      [email protected]()
      return if storedbox<0
      [email protected](oldcurbox)
      [email protected](storedbox)
      if storedbox!=oldcurbox
        if creator
          pbDisplayPaused(_INTL("Box \"{1}\" on {2}'s PC was full.",curboxname,creator))
        else
          pbDisplayPaused(_INTL("Box \"{1}\" on someone's PC was full.",curboxname))
        end
        pbDisplayPaused(_INTL("{1} was transferred to box \"{2}\".",pokemon.name,boxname))
      else
        if creator
          pbDisplayPaused(_INTL("{1} was transferred to {2}'s PC.",pokemon.name,creator))
        else
          pbDisplayPaused(_INTL("{1} was transferred to someone's PC.",pokemon.name))
        end
        pbDisplayPaused(_INTL("It was stored in box \"{1}\".",boxname))
      end
      if pokemon2 != -1
        pbDisplayPaused(_INTL("{2} has added to {1}'s party!",$Trainer.name,pokemon2.name))
      end
    end
  end
end

def pbStorePokemon(pokemon)
  if pbBoxesFull?
    Kernel.pbMessage(_INTL("There's no more room for Pokémon!\1"))
    Kernel.pbMessage(_INTL("The Pokémon Boxes are full and can't accept any more!"))
    return
  end
  pokemon.pbRecordFirstMoves
  if $Trainer.party.length<6
    $Trainer.party[$Trainer.party.length] = pokemon
  else
    pokemon2 = -1
    if Kernel.pbConfirmMessageSerious(_INTL("Would you like to keep {1} in your party?",pokemon.name))
      Kernel.pbMessage(_INTL("Please select a Pokémon to swap from your party."))
      pbChoosePokemon(1,2)
      poke = pbGet(1)
      if poke != -1
        pokemon2 = pokemon
        pokemon = $Trainer.pokemonParty[poke]
        pbRemovePokemonAt(poke)
        $Trainer.party[$Trainer.party.length] = pokemon2
      end
    end
    oldcurbox = $PokemonStorage.currentBox
    storedbox = $PokemonStorage.pbStoreCaught(pokemon)
    curboxname = $PokemonStorage[oldcurbox].name
    boxname = $PokemonStorage[storedbox].name
    creator = nil
    creator = Kernel.pbGetStorageCreator if $PokemonGlobal.seenStorageCreator
    if storedbox!=oldcurbox
      if creator
        Kernel.pbMessage(_INTL("Box \"{1}\" on {2}'s PC was full.\1",curboxname,creator))
      else
        Kernel.pbMessage(_INTL("Box \"{1}\" on someone's PC was full.\1",curboxname))
      end
      Kernel.pbMessage(_INTL("{1} was transferred to box \"{2}.\"",pokemon.name,boxname))
    else
      if creator
        Kernel.pbMessage(_INTL("{1} was transferred to {2}'s PC.\1",pokemon.name,creator))
      else
        Kernel.pbMessage(_INTL("{1} was transferred to someone's PC.\1",pokemon.name))
      end
      Kernel.pbMessage(_INTL("It was stored in box \"{1}.\"",boxname))
    end
    if pokemon2 != -1
      Kernel.pbMessage(_INTL("\\me[Pkmn get]{2} has added to {1}'s party!",$Trainer.name,pokemon2.name))
    end
  end
end