[Scripting Question] Adrenaline Orb and gold/silver bottle caps

    return false if fainted?
    if effects[PBEffects::Substitute]>0
      @battle.pbDisplay(_INTL("{1}'s substitute protected it from {2}'s {3}!",
         pbThis,opponent.pbThis(true),PBAbilities.getName(opponent.ability)))
      return false
    end
    if !opponent.hasWorkingAbility(:CONTRARY)
      if pbOwnSide.effects[PBEffects::Mist]>0
        @battle.pbDisplay(_INTL("{1} is protected from {2}'s {3} by Mist!",
           pbThis,opponent.pbThis(true),PBAbilities.getName(opponent.ability)))
        [COLOR="Red"]if hasWorkingItem(:ADRENALINEORB)
          if !self.pbTooHigh?(PBStats::SPEED)
            if pbIncreaseStatWithCause(PBStats::SPEED,1,self,PBItems.getName(self.item))
              self.pbConsumeItem
            end
          end[/COLOR]
        end
        return false
      end
      if hasWorkingAbility(:CLEARBODY) || hasWorkingAbility(:WHITESMOKE) ||
         hasWorkingAbility(:FULLMETALBODY) || hasWorkingAbility(:HYPERCUTTER) ||
         (hasWorkingAbility(:FLOWERVEIL) && pbHasType?(:GRASS))
        abilityname=PBAbilities.getName(self.ability)
        oppabilityname=PBAbilities.getName(opponent.ability)
        @battle.pbDisplay(_INTL("{1}'s {2} prevented {3}'s {4} from working!",
           pbThis,abilityname,opponent.pbThis(true),oppabilityname))
        [COLOR="Red"]if hasWorkingItem(:ADRENALINEORB)
          if !self.pbTooHigh?(PBStats::SPEED)
            if pbIncreaseStatWithCause(PBStats::SPEED,1,self,PBItems.getName(self.item))
              self.pbConsumeItem
            end
          end
        end[/COLOR]
        return false
      end
    end
    return pbReduceStatWithCause(PBStats::ATTACK,1,opponent,PBAbilities.getName(opponent.ability))
  end

[COLOR="Red"]# Same as pbChoosePokemon, but choose only Pokémons lvl 100 and prevents choosing other pokemons.
def pbChooseBottle(variableNumber,nameVarNumber)
  pbChoosePokemon(variableNumber,nameVarNumber,proc {|poke|
     !poke.egg? && poke.level>99
  })
end[/COLOR]


# Same as pbChoosePokemon, but prevents choosing an egg or a Shadow Pokémon.
def pbChooseTradablePokemon(variableNumber,nameVarNumber,ableProc=nil,allowIneligible=false)
  chosen = 0
  pbFadeOutIn(99999){
    scene = PokemonParty_Scene.new
    screen = PokemonPartyScreen.new(scene,$Trainer.party)
    if ableProc
      chosen=screen.pbChooseTradablePokemon(ableProc,allowIneligible)      
    else
      screen.pbStartScene(_INTL("Choose a Pokémon."),false)
      chosen = screen.pbChoosePokemon
      screen.pbEndScene
    end
  }
  pbSet(variableNumber,chosen)
  if chosen>=0
    pbSet(nameVarNumber,$Trainer.party[chosen].name)
  else
    pbSet(nameVarNumber,"")
  end
end