Con estos atajos, no tendrás que ir a la mochila para curar a tu Pokémon en combate o lanzar una Ball. El atajo mostrará las balls en esta prioridad según las tengas: Ultraball > Súperball > Pokébal, y con las pociones así: Max Poción > Hiperpoción > Superpoción > Poción.

Lo primero los dos gráficos van dentro de Pictures, y el script encima de Main, luego habrá que hacer unas modificaciones a algunos scripts de batalla.

Lo primero será ir a PokeBattle_Scene y allí buscar el def pbCommandMenu(index), todo ese def hasta el end, amos inclusives hay que sustituirlos por esto

def pbCommandMenu(index)
    shadowTrainer=(hasConst?(PBTypes,:SHADOW) && @battle.opponent)
    ret=pbCommandMenuEx(index,[
       _INTL("¿Qué hará {1}?",@battle.battlers[index].name),
       _INTL("Luchar"),
       _INTL("Mochila"),
       _INTL("Pokémon"),
       _INTL("Huir"),
       _INTL("Ball"),
       _INTL("Poti"),
       
    ])
    return ret
  end

Luego un poco más abajo, dentro del def pbCommandMenuEx, en la línea que dice if Input.trigger?(Input::LEFT) && (cw.index&1)==1, justo encima de ella pegamos esto

ANOTACIÓN: Si usais un script que tenga un def pbCommandMenuEx, haced esto dentro de ese script, esto se puede aplicar en siguientes pasos si tenéis un script con el propio def, ya que al ser uno insertado sobreescribe el original de Essentials y por eso no funcionaría.

if Input.trigger?(Input::Y)
        if !@battle.opponent
          if $PokemonBag.pbHasItem?(:ULTRABALL) || $PokemonBag.pbHasItem?(:GREATBALL) || $PokemonBag.pbHasItem?(:POKEBALL)
            cw.index=4
            pbPlayDecisionSE()
            ret=cw.index
            @lastcmd[index]=ret
            return ret
          else
            Kernel.pbMessage("No tienes Poké Balls.")
          end
        else
          Kernel.pbMessage("Robar está mal.")
        end
      end 
      
      if Input.trigger?(Input::Z)
        if $PokemonBag.pbHasItem?(:MAXPOTION) || $PokemonBag.pbHasItem?(:HYPERPOTION) || $PokemonBag.pbHasItem?(:SUPERPOTION) || $PokemonBag.pbHasItem?(:POTION)
          cw.index=5
          pbPlayDecisionSE()
          ret=cw.index
          @lastcmd[index]=ret
          return ret
        else
          Kernel.pbMessage("No tienes pociones.")
        end
      end

Luego tenemos que ir a PokeBattle_Battle, tenemos que buscar este trozo de código, sobre la línea 3000 y poco

# Call at Pokémon
    for i in priority
      if @choices[i.index][0]==4 && !i.effects[PBEffects::SkipTurn]
        pbCall(i.index)
      end
    end

Y sustituirlo por esto

for i in priority
      if @choices[i.index][0]==4 && !i.effects[PBEffects::SkipTurn]
        if $PokemonBag.pbHasItem?(:ULTRABALL)
          pokeBall=getConst(PBItems,:ULTRABALL)
          $PokemonBag.pbDeleteItem(:ULTRABALL,1)
        elsif $PokemonBag.pbHasItem?(:GREATBALL)
          pokeBall=getConst(PBItems,:GREATBALL)
          $PokemonBag.pbDeleteItem(:GREATBALL,1)
        elsif $PokemonBag.pbHasItem?(:POKEBALL)
          pokeBall=getConst(PBItems,:POKEBALL)
          $PokemonBag.pbDeleteItem(:POKEBALL,1)
        end  
          if pokeBall
            pbThrowPokeBall(1,pokeBall)
          end   
      end
    end
    
    
    for i in priority
      if @choices[i.index][0]==5 && !i.effects[PBEffects::SkipTurn]
        if $PokemonBag.pbHasItem?(:MAXPOTION)
          poti=getConst(PBItems,:MAXPOTION)
        elsif $PokemonBag.pbHasItem?(:HYPERPOTION)
          poti=getConst(PBItems,:HYPERPOTION)
        elsif $PokemonBag.pbHasItem?(:SUPERPOTION)
          poti=getConst(PBItems,:SUPERPOTION)
        elsif $PokemonBag.pbHasItem?(:POTION)
          poti=getConst(PBItems,:POTION)  
        end  
          if poti
            
             if isConst?(poti,PBItems,:POTION)
                if i.hp==i.totalhp 
                  @scene.pbDisplay(_INTL("No tendrá ningún efecto."))
                else
                  i.pbRecoverHP(20,true)
                  pbDisplay(_INTL("Los PS de {1} fueron restaurados.",i.pbThis))
                  $PokemonBag.pbDeleteItem(:POTION,1)
                end 
              end  
            if isConst?(poti,PBItems,:SUPERPOTION)
              if i.hp==i.totalhp 
                @scene.pbDisplay(_INTL("No tendrá ningún efecto."))
              else
                i.pbRecoverHP(50,true)
                pbDisplay(_INTL("Los PS de {1} fueron restaurados.",i.pbThis))
                $PokemonBag.pbDeleteItem(:SUPERPOTION,1)
              end  
            end
            if isConst?(poti,PBItems,:HYPERPOTION)
              if i.hp==i.totalhp 
                @scene.pbDisplay(_INTL("No tendrá ningún efecto."))
              else
                i.pbRecoverHP(200,true)
                pbDisplay(_INTL("Los PS de {1} fueron restaurados.",i.pbThis))
                $PokemonBag.pbDeleteItem(:HYPERPOTION,1)
              end  
            end
            if isConst?(poti,PBItems,:MAXPOTION)
              if i.hp==i.totalhp 
                @scene.pbDisplay(_INTL("No tendrá ningún efecto."))
              else
                i.pbRecoverHP(i.totalhp-i.hp,true)
                pbDisplay(_INTL("Los PS de {1} fueron restaurados.",i.pbThis))
                $PokemonBag.pbDeleteItem(:MAXPOTION,1)
              end  
            end
            
          end   
      end
    end

Y por último hay que buscar este trozo de código algo más arriba

elsif cmd==4   # Call
              thispkmn=@battlers[i]
              @choices[i][0]=4   # "Call Pokémon"
              @choices[i][1]=0
              @choices[i][2]=nil
              side=(pbIsOpposing?(i)) ? 1 : 0
              owner=pbGetOwnerIndex(i)
              if @megaEvolution[side][owner]==i
                @megaEvolution[side][owner]=-1
              end
              if @ultraBurst[side][owner]==i
                @ultraBurst[side][owner]=-1
              end
              commandDone=true
            elsif cmd==-1   # Go back to first battler's choice

Y justo encima de la línea que dice elsif cmd==-1 # Go back to first battler's choice hay que pegar esto

elsif cmd==5   
              thispkmn=@battlers[i]
              @choices[i][0]=5  
              @choices[i][1]=0
              @choices[i][2]=nil
              side=(pbIsOpposing?(i)) ? 1 : 0
              owner=pbGetOwnerIndex(i)
              if @megaEvolution[side][owner]==i
                @megaEvolution[side][owner]=-1
              end
              if @ultraBurst[side][owner]==i
                @ultraBurst[side][owner]=-1
              end
              commandDone=true