Rearranged some script files

Data/Scripts/015_Items/001_PItem_Items.rb

@@ -0,0 +1,966 @@
+#===============================================================================
+# Item data
+#===============================================================================
+ITEM_ID          = 0
+ITEM_NAME        = 1
+ITEM_PLURAL      = 2
+ITEM_POCKET      = 3
+ITEM_PRICE       = 4
+ITEM_DESCRIPTION = 5
+ITEM_FIELD_USE   = 6
+ITEM_BATTLE_USE  = 7
+ITEM_TYPE        = 8
+ITEM_MACHINE     = 9
+
+
+
+class PokemonTemp
+  attr_accessor :itemsData
+end
+
+
+
+def pbLoadItemsData
+  $PokemonTemp = PokemonTemp.new if !$PokemonTemp
+  if !$PokemonTemp.itemsData
+    $PokemonTemp.itemsData = load_data("Data/items.dat") || []
+  end
+  return $PokemonTemp.itemsData
+end
+
+def pbGetItemData(item,itemDataType)
+  item = getID(PBItems,item)
+  itemsData = pbLoadItemsData
+  return itemsData[item][itemDataType] if itemsData[item]
+  return nil
+end
+
+alias __itemsData__pbClearData pbClearData
+def pbClearData
+  $PokemonTemp.itemsData = nil if $PokemonTemp
+  __itemsData__pbClearData
+end
+
+def pbGetPocket(item)
+  ret = pbGetItemData(item,ITEM_POCKET)
+  return ret || 0
+end
+
+def pbGetPrice(item)
+  ret = pbGetItemData(item,ITEM_PRICE)
+  return ret || 0
+end
+
+def pbGetMachine(item)
+  ret = pbGetItemData(item,ITEM_MACHINE)
+  return ret || 0
+end
+
+def pbIsTechnicalMachine?(item)
+  ret = pbGetItemData(item,ITEM_FIELD_USE)
+  return ret && ret==3
+end
+
+def pbIsHiddenMachine?(item)
+  ret = pbGetItemData(item,ITEM_FIELD_USE)
+  return ret && ret==4
+end
+
+def pbIsMachine?(item)
+  ret = pbGetItemData(item,ITEM_FIELD_USE)
+  return ret && (ret==3 || ret==4)
+end
+
+def pbIsMail?(item)
+  ret = pbGetItemData(item,ITEM_TYPE)
+  return ret && (ret==1 || ret==2)
+end
+
+def pbIsMailWithPokemonIcons?(item)
+  ret = pbGetItemData(item,ITEM_TYPE)
+  return ret && ret==2
+end
+
+def pbIsPokeBall?(item)
+  ret = pbGetItemData(item,ITEM_TYPE)
+  return ret && (ret==3 || ret==4)
+end
+
+def pbIsSnagBall?(item)
+  ret = pbGetItemData(item,ITEM_TYPE)
+  return ret && (ret==3 || (ret==4 && $PokemonGlobal.snagMachine))
+end
+
+def pbIsBerry?(item)
+  ret = pbGetItemData(item,ITEM_TYPE)
+  return ret && ret==5
+end
+
+def pbIsKeyItem?(item)
+  ret = pbGetItemData(item,ITEM_TYPE)
+  return ret && ret==6
+end
+
+def pbIsEvolutionStone?(item)
+  ret = pbGetItemData(item,ITEM_TYPE)
+  return ret && ret==7
+end
+
+def pbIsFossil?(item)
+  ret = pbGetItemData(item,ITEM_TYPE)
+  return ret && ret==8
+end
+
+def pbIsApricorn?(item)
+  ret = pbGetItemData(item,ITEM_TYPE)
+  return ret && ret==9
+end
+
+def pbIsGem?(item)
+  ret = pbGetItemData(item,ITEM_TYPE)
+  return ret && ret==10
+end
+
+def pbIsMulch?(item)
+  ret = pbGetItemData(item,ITEM_TYPE)
+  return ret && ret==11
+end
+
+def pbIsMegaStone?(item)   # Does NOT include Red Orb/Blue Orb
+  ret = pbGetItemData(item,ITEM_TYPE)
+  return ret && ret==12
+end
+
+# Important items can't be sold, given to hold, or tossed.
+def pbIsImportantItem?(item)
+  itemData = pbLoadItemsData[getID(PBItems,item)]
+  return false if !itemData
+  return true if itemData[ITEM_TYPE] && itemData[ITEM_TYPE]==6   # Key item
+  return true if itemData[ITEM_FIELD_USE] && itemData[ITEM_FIELD_USE]==4   # HM
+  return true if itemData[ITEM_FIELD_USE] && itemData[ITEM_FIELD_USE]==3 && INFINITE_TMS   # TM
+  return false
+end
+
+def pbCanHoldItem?(item)
+  return !pbIsImportantItem?(item)
+end
+
+def pbCanRegisterItem?(item)
+  return ItemHandlers.hasUseInFieldHandler(item)
+end
+
+def pbCanUseOnPokemon?(item)
+  return ItemHandlers.hasUseOnPokemon(item) || pbIsMachine?(item)
+end
+
+def pbIsHiddenMove?(move)
+  itemsData = pbLoadItemsData
+  return false if !itemsData
+  for i in 0...itemsData.length
+    next if !pbIsHiddenMachine?(i)
+    atk = pbGetMachine(i)
+    return true if move==atk
+  end
+  return false
+end
+
+def pbIsUnlosableItem?(item,species,ability)
+  return false if isConst?(species,PBSpecies,:ARCEUS) &&
+                  !isConst?(ability,PBAbilities,:MULTITYPE)
+  return false if isConst?(species,PBSpecies,:SILVALLY) &&
+                  !isConst?(ability,PBAbilities,:RKSSYSTEM)
+  combos = {
+     :ARCEUS   => [:FISTPLATE,:FIGHTINIUMZ,
+                   :SKYPLATE,:FLYINIUMZ,
+                   :TOXICPLATE,:POISONIUMZ,
+                   :EARTHPLATE,:GROUNDIUMZ,
+                   :STONEPLATE,:ROCKIUMZ,
+                   :INSECTPLATE,:BUGINIUMZ,
+                   :SPOOKYPLATE,:GHOSTIUMZ,
+                   :IRONPLATE,:STEELIUMZ,
+                   :FLAMEPLATE,:FIRIUMZ,
+                   :SPLASHPLATE,:WATERIUMZ,
+                   :MEADOWPLATE,:GRASSIUMZ,
+                   :ZAPPLATE,:ELECTRIUMZ,
+                   :MINDPLATE,:PSYCHIUMZ,
+                   :ICICLEPLATE,:ICIUMZ,
+                   :DRACOPLATE,:DRAGONIUMZ,
+                   :DREADPLATE,:DARKINIUMZ,
+                   :PIXIEPLATE,:FAIRIUMZ],
+     :SILVALLY => [:FIGHTINGMEMORY,
+                   :FLYINGMEMORY,
+                   :POISONMEMORY,
+                   :GROUNDMEMORY,
+                   :ROCKMEMORY,
+                   :BUGMEMORY,
+                   :GHOSTMEMORY,
+                   :STEELMEMORY,
+                   :FIREMEMORY,
+                   :WATERMEMORY,
+                   :GRASSMEMORY,
+                   :ELECTRICMEMORY,
+                   :PSYCHICMEMORY,
+                   :ICEMEMORY,
+                   :DRAGONMEMORY,
+                   :DARKMEMORY,
+                   :FAIRYMEMORY],
+     :GIRATINA => [:GRISEOUSORB],
+     :GENESECT => [:BURNDRIVE,:CHILLDRIVE,:DOUSEDRIVE,:SHOCKDRIVE],
+     :KYOGRE   => [:BLUEORB],
+     :GROUDON  => [:REDORB]
+  }
+  ret = false
+  combos.each do |comboSpecies, items|
+    next if !isConst?(species,PBSpecies,comboSpecies)
+    items.each { |i| return true if isConst?(item,PBItems,i) }
+    break
+  end
+  return false
+end
+
+
+
+#===============================================================================
+# ItemHandlers
+#===============================================================================
+module ItemHandlers
+  UseText            = ItemHandlerHash.new
+  UseFromBag         = ItemHandlerHash.new
+  ConfirmUseInField  = ItemHandlerHash.new
+  UseInField         = ItemHandlerHash.new
+  UseOnPokemon       = ItemHandlerHash.new
+  CanUseInBattle     = ItemHandlerHash.new
+  UseInBattle        = ItemHandlerHash.new
+  BattleUseOnBattler = ItemHandlerHash.new
+  BattleUseOnPokemon = ItemHandlerHash.new
+
+  def self.hasUseText(item)
+    return UseText[item]!=nil
+  end
+
+  def self.hasOutHandler(item)                       # Shows "Use" option in Bag
+    return UseFromBag[item]!=nil || UseInField[item]!=nil || UseOnPokemon[item]!=nil
+  end
+
+  def self.hasUseInFieldHandler(item)           # Shows "Register" option in Bag
+    return UseInField[item]!=nil
+  end
+
+  def self.hasUseOnPokemon(item)
+    return UseOnPokemon[item]!=nil
+  end
+
+  def self.hasUseInBattle(item)
+    return UseInBattle[item]!=nil
+  end
+
+  def self.hasBattleUseOnBattler(item)
+    return BattleUseOnBattler[item]!=nil
+  end
+
+  def self.hasBattleUseOnPokemon(item)
+    return BattleUseOnPokemon[item]!=nil
+  end
+
+  # Returns text to display instead of "Use"
+  def self.getUseText(item)
+    return UseText.trigger(item)
+  end
+
+  # Return value:
+  # 0 - Item not used
+  # 1 - Item used, don't end screen
+  # 2 - Item used, end screen
+  # 3 - Item used, don't end screen, consume item
+  # 4 - Item used, end screen, consume item
+  def self.triggerUseFromBag(item)
+    return UseFromBag.trigger(item) if UseFromBag[item]
+    # No UseFromBag handler exists; check the UseInField handler if present
+    return UseInField.trigger(item) if UseInField[item]
+    return 0
+  end
+
+  # Returns whether item can be used
+  def self.triggerConfirmUseInField(item)
+    return true if !ConfirmUseInField[item]
+    return ConfirmUseInField.trigger(item)
+  end
+
+  # Return value:
+  # -1 - Item effect not found
+  # 0  - Item not used
+  # 1  - Item used
+  # 3  - Item used, consume item
+  def self.triggerUseInField(item)
+    return -1 if !UseInField[item]
+    return UseInField.trigger(item)
+  end
+
+  # Returns whether item was used
+  def self.triggerUseOnPokemon(item,pkmn,scene)
+    return false if !UseOnPokemon[item]
+    return UseOnPokemon.trigger(item,pkmn,scene)
+  end
+
+  def self.triggerCanUseInBattle(item,pkmn,battler,move,firstAction,battle,scene,showMessages=true)
+    return true if !CanUseInBattle[item]   # Can use the item by default
+    return CanUseInBattle.trigger(item,pkmn,battler,move,firstAction,battle,scene,showMessages)
+  end
+
+  def self.triggerUseInBattle(item,battler,battle)
+    UseInBattle.trigger(item,battler,battle)
+  end
+
+  # Returns whether item was used
+  def self.triggerBattleUseOnBattler(item,battler,scene)
+    return false if !BattleUseOnBattler[item]
+    return BattleUseOnBattler.trigger(item,battler,scene)
+  end
+
+  # Returns whether item was used
+  def self.triggerBattleUseOnPokemon(item,pkmn,battler,choices,scene)
+    return false if !BattleUseOnPokemon[item]
+    return BattleUseOnPokemon.trigger(item,pkmn,battler,choices,scene)
+  end
+end
+
+
+
+#===============================================================================
+# Change a Pokémon's level
+#===============================================================================
+def pbChangeLevel(pkmn,newlevel,scene)
+  newlevel = 1 if newlevel<1
+  mLevel = PBExperience.maxLevel
+  newlevel = mLevel if newlevel>mLevel
+  if pkmn.level==newlevel
+    pbMessage(_INTL("{1}'s level remained unchanged.",pkmn.name))
+  elsif pkmn.level>newlevel
+    attackdiff  = pkmn.attack
+    defensediff = pkmn.defense
+    speeddiff   = pkmn.speed
+    spatkdiff   = pkmn.spatk
+    spdefdiff   = pkmn.spdef
+    totalhpdiff = pkmn.totalhp
+    pkmn.level = newlevel
+    pkmn.calcStats
+    scene.pbRefresh
+    pbMessage(_INTL("{1} dropped to Lv. {2}!",pkmn.name,pkmn.level))
+    attackdiff  = pkmn.attack-attackdiff
+    defensediff = pkmn.defense-defensediff
+    speeddiff   = pkmn.speed-speeddiff
+    spatkdiff   = pkmn.spatk-spatkdiff
+    spdefdiff   = pkmn.spdef-spdefdiff
+    totalhpdiff = pkmn.totalhp-totalhpdiff
+    pbTopRightWindow(_INTL("Max. HP<r>{1}\r\nAttack<r>{2}\r\nDefense<r>{3}\r\nSp. Atk<r>{4}\r\nSp. Def<r>{5}\r\nSpeed<r>{6}",
+       totalhpdiff,attackdiff,defensediff,spatkdiff,spdefdiff,speeddiff))
+    pbTopRightWindow(_INTL("Max. HP<r>{1}\r\nAttack<r>{2}\r\nDefense<r>{3}\r\nSp. Atk<r>{4}\r\nSp. Def<r>{5}\r\nSpeed<r>{6}",
+       pkmn.totalhp,pkmn.attack,pkmn.defense,pkmn.spatk,pkmn.spdef,pkmn.speed))
+  else
+    attackdiff  = pkmn.attack
+    defensediff = pkmn.defense
+    speeddiff   = pkmn.speed
+    spatkdiff   = pkmn.spatk
+    spdefdiff   = pkmn.spdef
+    totalhpdiff = pkmn.totalhp
+    oldlevel = pkmn.level
+    pkmn.level = newlevel
+    pkmn.changeHappiness("vitamin")
+    pkmn.calcStats
+    scene.pbRefresh
+    pbMessage(_INTL("{1} grew to Lv. {2}!",pkmn.name,pkmn.level))
+    attackdiff  = pkmn.attack-attackdiff
+    defensediff = pkmn.defense-defensediff
+    speeddiff   = pkmn.speed-speeddiff
+    spatkdiff   = pkmn.spatk-spatkdiff
+    spdefdiff   = pkmn.spdef-spdefdiff
+    totalhpdiff = pkmn.totalhp-totalhpdiff
+    pbTopRightWindow(_INTL("Max. HP<r>+{1}\r\nAttack<r>+{2}\r\nDefense<r>+{3}\r\nSp. Atk<r>+{4}\r\nSp. Def<r>+{5}\r\nSpeed<r>+{6}",
+       totalhpdiff,attackdiff,defensediff,spatkdiff,spdefdiff,speeddiff))
+    pbTopRightWindow(_INTL("Max. HP<r>{1}\r\nAttack<r>{2}\r\nDefense<r>{3}\r\nSp. Atk<r>{4}\r\nSp. Def<r>{5}\r\nSpeed<r>{6}",
+       pkmn.totalhp,pkmn.attack,pkmn.defense,pkmn.spatk,pkmn.spdef,pkmn.speed))
+    # Learn new moves upon level up
+    movelist = pkmn.getMoveList
+    for i in movelist
+      next if i[0]!=pkmn.level
+      pbLearnMove(pkmn,i[1],true)
+    end
+    # Check for evolution
+    newspecies = pbCheckEvolution(pkmn)
+    if newspecies>0
+      pbFadeOutInWithMusic {
+        evo = PokemonEvolutionScene.new
+        evo.pbStartScreen(pkmn,newspecies)
+        evo.pbEvolution
+        evo.pbEndScreen
+      }
+    end
+  end
+end
+
+def pbTopRightWindow(text)
+  window = Window_AdvancedTextPokemon.new(text)
+  window.width = 198
+  window.x     = Graphics.width-window.width
+  window.y     = 0
+  window.z     = 99999
+  pbPlayDecisionSE
+  loop do
+    Graphics.update
+    Input.update
+    window.update
+    break if Input.trigger?(Input::C)
+  end
+  window.dispose
+end
+
+#===============================================================================
+# Restore HP
+#===============================================================================
+def pbItemRestoreHP(pkmn,restoreHP)
+  newHP = pkmn.hp+restoreHP
+  newHP = pkmn.totalhp if newHP>pkmn.totalhp
+  hpGain = newHP-pkmn.hp
+  pkmn.hp = newHP
+  return hpGain
+end
+
+def pbHPItem(pkmn,restoreHP,scene)
+  if !pkmn.able? || pkmn.hp==pkmn.totalhp
+    scene.pbDisplay(_INTL("It won't have any effect."))
+    return false
+  end
+  hpGain = pbItemRestoreHP(pkmn,restoreHP)
+  scene.pbRefresh
+  scene.pbDisplay(_INTL("{1}'s HP was restored by {2} points.",pkmn.name,hpGain))
+  return true
+end
+
+def pbBattleHPItem(pkmn,battler,restoreHP,scene)
+  if battler
+    if battler.pbRecoverHP(restoreHP)>0
+      scene.pbDisplay(_INTL("{1}'s HP was restored.",battler.pbThis))
+    end
+  else
+    if pbItemRestoreHP(pkmn,restoreHP)>0
+      scene.pbDisplay(_INTL("{1}'s HP was restored.",pkmn.name))
+    end
+  end
+  return true
+end
+
+#===============================================================================
+# Restore PP
+#===============================================================================
+def pbRestorePP(pkmn,idxMove,pp)
+  return 0 if !pkmn.moves[idxMove] || pkmn.moves[idxMove].id==0
+  return 0 if pkmn.moves[idxMove].totalpp<=0
+  oldpp = pkmn.moves[idxMove].pp
+  newpp = pkmn.moves[idxMove].pp+pp
+  newpp = pkmn.moves[idxMove].totalpp if newpp>pkmn.moves[idxMove].totalpp
+  pkmn.moves[idxMove].pp = newpp
+  return newpp-oldpp
+end
+
+def pbBattleRestorePP(pkmn,battler,idxMove,pp)
+  if pbRestorePP(pkmn,idxMove,pp)>0
+    if battler && !battler.effects[PBEffects::Transform] &&
+       battler.moves[idxMove] && battler.moves[idxMove].id==pkmn.moves[idxMove].id
+      battler.pbSetPP(battler.moves[idxMove],pkmn.moves[idxMove].pp)
+    end
+  end
+  return ret
+end
+
+#===============================================================================
+# Change EVs
+#===============================================================================
+def pbJustRaiseEffortValues(pkmn,ev,evgain)
+  totalev = 0
+  for i in 0...6
+    totalev += pkmn.ev[i]
+  end
+  if totalev+evgain>PokeBattle_Pokemon::EV_LIMIT
+    evgain = PokeBattle_Pokemon::EV_LIMIT-totalev
+  end
+  if pkmn.ev[ev]+evgain>PokeBattle_Pokemon::EV_STAT_LIMIT
+    evgain = PokeBattle_Pokemon::EV_STAT_LIMIT-pkmn.ev[ev]
+  end
+  if evgain>0
+    pkmn.ev[ev] += evgain
+    pkmn.calcStats
+  end
+  return evgain
+end
+
+def pbRaiseEffortValues(pkmn,ev,evgain=10,evlimit=true)
+  return 0 if evlimit && pkmn.ev[ev]>=100
+  totalev = 0
+  for i in 0...6
+    totalev += pkmn.ev[i]
+  end
+  if totalev+evgain>PokeBattle_Pokemon::EV_LIMIT
+    evgain = PokeBattle_Pokemon::EV_LIMIT-totalev
+  end
+  if pkmn.ev[ev]+evgain>PokeBattle_Pokemon::EV_STAT_LIMIT
+    evgain = PokeBattle_Pokemon::EV_STAT_LIMIT-pkmn.ev[ev]
+  end
+  if evlimit && pkmn.ev[ev]+evgain>100
+    evgain = 100-pkmn.ev[ev]
+  end
+  if evgain>0
+    pkmn.ev[ev] += evgain
+    pkmn.calcStats
+  end
+  return evgain
+end
+
+def pbRaiseHappinessAndLowerEV(pkmn,scene,ev,messages)
+  h = pkmn.happiness<255
+  e = pkmn.ev[ev]>0
+  if !h && !e
+    scene.pbDisplay(_INTL("It won't have any effect."))
+    return false
+  end
+  if h
+    pkmn.changeHappiness("evberry")
+  end
+  if e
+    pkmn.ev[ev] -= 10
+    pkmn.ev[ev] = 0 if pkmn.ev[ev]<0
+    pkmn.calcStats
+  end
+  scene.pbRefresh
+  scene.pbDisplay(messages[2-(h ? 0 : 2)-(e ? 0 : 1)])
+  return true
+end
+
+#===============================================================================
+# Battle items
+#===============================================================================
+def pbBattleItemCanCureStatus?(status,pkmn,scene,showMessages)
+  if !pkmn.able? || pkmn.status!=status
+    scene.pbDisplay(_INTL("It won't have any effect.")) if showMessages
+    return false
+  end
+  return true
+end
+
+def pbBattleItemCanRaiseStat?(stat,battler,scene,showMessages)
+  if !battler || !battler.pbCanRaiseStatStage?(stat,battler)
+    scene.pbDisplay(_INTL("It won't have any effect.")) if showMessages
+    return false
+  end
+  return true
+end
+
+#===============================================================================
+# Decide whether the player is able to ride/dismount their Bicycle
+#===============================================================================
+def pbBikeCheck
+  if $PokemonGlobal.surfing ||
+     (!$PokemonGlobal.bicycle && PBTerrain.onlyWalk?(pbGetTerrainTag))
+    pbMessage(_INTL("Can't use that here."))
+    return false
+  end
+  if $game_player.pbHasDependentEvents?
+    pbMessage(_INTL("It can't be used when you have someone with you."))
+    return false
+  end
+  if $PokemonGlobal.bicycle
+    if pbGetMetadata($game_map.map_id,MetadataBicycleAlways)
+      pbMessage(_INTL("You can't dismount your Bike here."))
+      return false
+    end
+    return true
+  end
+  val = pbGetMetadata($game_map.map_id,MetadataBicycle)
+  val = pbGetMetadata($game_map.map_id,MetadataOutdoor) if val==nil
+  if !val
+    pbMessage(_INTL("Can't use that here."))
+    return false
+  end
+  return true
+end
+
+#===============================================================================
+# Find the closest hidden item (for Iremfinder)
+#===============================================================================
+def pbClosestHiddenItem
+  result = []
+  playerX = $game_player.x
+  playerY = $game_player.y
+  for event in $game_map.events.values
+    next if !event.name[/hiddenitem/i]
+    next if (playerX-event.x).abs>=8
+    next if (playerY-event.y).abs>=6
+    next if $game_self_switches[[$game_map.map_id,event.id,"A"]]
+    result.push(event)
+  end
+  return nil if result.length==0
+  ret = nil
+  retmin = 0
+  for event in result
+    dist = (playerX-event.x).abs+(playerY-event.y).abs
+    next if ret && retmin<=dist
+    ret = event
+    retmin = dist
+  end
+  return ret
+end
+
+#===============================================================================
+# Teach and forget a move
+#===============================================================================
+def pbLearnMove(pkmn,move,ignoreifknown=false,bymachine=false,&block)
+  return false if !pkmn
+  movename = PBMoves.getName(move)
+  if pkmn.egg? && !$DEBUG
+    pbMessage(_INTL("Eggs can't be taught any moves."),&block)
+    return false
+  end
+  if pkmn.shadowPokemon?
+    pbMessage(_INTL("Shadow Pokémon can't be taught any moves."),&block)
+    return false
+  end
+  pkmnname = pkmn.name
+  if pkmn.hasMove?(move)
+    pbMessage(_INTL("{1} already knows {2}.",pkmnname,movename),&block) if !ignoreifknown
+    return false
+  end
+  if pkmn.numMoves<4
+    pkmn.pbLearnMove(move)
+    pbMessage(_INTL("\\se[]{1} learned {2}!\\se[Pkmn move learnt]",pkmnname,movename),&block)
+    return true
+  end
+  loop do
+    pbMessage(_INTL("{1} wants to learn {2}, but it already knows four moves.\1",pkmnname,movename),&block) if !bymachine
+    pbMessage(_INTL("Please choose a move that will be replaced with {1}.",movename),&block)
+    forgetmove = pbForgetMove(pkmn,move)
+    if forgetmove>=0
+      oldmovename = PBMoves.getName(pkmn.moves[forgetmove].id)
+      oldmovepp   = pkmn.moves[forgetmove].pp
+      pkmn.moves[forgetmove] = PBMove.new(move)   # Replaces current/total PP
+      if bymachine && !NEWEST_BATTLE_MECHANICS
+        pkmn.moves[forgetmove].pp = [oldmovepp,pkmn.moves[forgetmove].totalpp].min
+      end
+      pbMessage(_INTL("1,\\wt[16] 2, and\\wt[16]...\\wt[16] ...\\wt[16] ... Ta-da!\\se[Battle ball drop]\1"),&block)
+      pbMessage(_INTL("{1} forgot how to use {2}.\\nAnd...\1",pkmnname,oldmovename),&block)
+      pbMessage(_INTL("\\se[]{1} learned {2}!\\se[Pkmn move learnt]",pkmnname,movename),&block)
+      pkmn.changeHappiness("machine") if bymachine
+      return true
+    elsif pbConfirmMessage(_INTL("Give up on learning {1}?",movename),&block)
+      pbMessage(_INTL("{1} did not learn {2}.",pkmnname,movename),&block)
+      return false
+    end
+  end
+end
+
+def pbForgetMove(pkmn,moveToLearn)
+  ret = -1
+  pbFadeOutIn {
+    scene = PokemonSummary_Scene.new
+    screen = PokemonSummaryScreen.new(scene)
+    ret = screen.pbStartForgetScreen([pkmn],0,moveToLearn)
+  }
+  return ret
+end
+
+def pbSpeciesCompatible?(species,move)
+  return false if species<=0
+  data = pbLoadSpeciesTMData
+  return false if !data[move]
+  return data[move].any? { |item| item==species }
+end
+
+#===============================================================================
+# Use an item from the Bag and/or on a Pokémon
+#===============================================================================
+def pbUseItem(bag,item,bagscene=nil)
+  found = false
+  useType = pbGetItemData(item,ITEM_FIELD_USE)
+  if pbIsMachine?(item)    # TM or HM
+    if $Trainer.pokemonCount==0
+      pbMessage(_INTL("There is no Pokémon."))
+      return 0
+    end
+    machine = pbGetMachine(item)
+    return 0 if machine==nil
+    movename = PBMoves.getName(machine)
+    pbMessage(_INTL("\\se[PC access]You booted up {1}.\1",PBItems.getName(item)))
+    if !pbConfirmMessage(_INTL("Do you want to teach {1} to a Pokémon?",movename))
+      return 0
+    elsif pbMoveTutorChoose(machine,nil,true)
+      bag.pbDeleteItem(item) if pbIsTechnicalMachine?(item) && !INFINITE_TMS
+      return 1
+    end
+    return 0
+  elsif useType && (useType==1 || useType==5) # Item is usable on a Pokémon
+    if $Trainer.pokemonCount==0
+      pbMessage(_INTL("There is no Pokémon."))
+      return 0
+    end
+    ret = false
+    annot = nil
+    if pbIsEvolutionStone?(item)
+      annot = []
+      for pkmn in $Trainer.party
+        elig = pbCheckEvolution(pkmn,item)>0
+        annot.push((elig) ? _INTL("ABLE") : _INTL("NOT ABLE"))
+      end
+    end
+    pbFadeOutIn {
+      scene = PokemonParty_Scene.new
+      screen = PokemonPartyScreen.new(scene,$Trainer.party)
+      screen.pbStartScene(_INTL("Use on which Pokémon?"),false,annot)
+      loop do
+        scene.pbSetHelpText(_INTL("Use on which Pokémon?"))
+        chosen = screen.pbChoosePokemon
+        if chosen<0
+          ret = false
+          break
+        end
+        pkmn = $Trainer.party[chosen]
+        if pbCheckUseOnPokemon(item,pkmn,screen)
+          ret = ItemHandlers.triggerUseOnPokemon(item,pkmn,screen)
+          if ret && useType==1   # Usable on Pokémon, consumed
+            bag.pbDeleteItem(item)
+            if !bag.pbHasItem?(item)
+              pbMessage(_INTL("You used your last {1}.",PBItems.getName(item)))
+              break
+            end
+          end
+        end
+      end
+      screen.pbEndScene
+      bagscene.pbRefresh if bagscene
+    }
+    return (ret) ? 1 : 0
+  elsif useType && useType==2   # Item is usable from bag
+    intret = ItemHandlers.triggerUseFromBag(item)
+    case intret
+    when 0; return 0
+    when 1; return 1   # Item used
+    when 2; return 2   # Item used, end screen
+    when 3; bag.pbDeleteItem(item); return 1   # Item used, consume item
+    when 4; bag.pbDeleteItem(item); return 2   # Item used, end screen and consume item
+    end
+    pbMessage(_INTL("Can't use that here."))
+    return 0
+  end
+  pbMessage(_INTL("Can't use that here."))
+  return 0
+end
+
+# Only called when in the party screen and having chosen an item to be used on
+# the selected Pokémon
+def pbUseItemOnPokemon(item,pkmn,scene)
+  # TM or HM
+  if pbIsMachine?(item)
+    machine = pbGetMachine(item)
+    return false if machine==nil
+    movename = PBMoves.getName(machine)
+    if pkmn.shadowPokemon?
+      pbMessage(_INTL("Shadow Pokémon can't be taught any moves."))
+    elsif !pkmn.compatibleWithMove?(machine)
+      pbMessage(_INTL("{1} can't learn {2}.",pkmn.name,movename))
+    else
+      pbMessage(_INTL("\\se[PC access]You booted up {1}.\1",PBItems.getName(item)))
+      if pbConfirmMessage(_INTL("Do you want to teach {1} to {2}?",movename,pkmn.name))
+        if pbLearnMove(pkmn,machine,false,true)
+          $PokemonBag.pbDeleteItem(item) if pbIsTechnicalMachine?(item) && !INFINITE_TMS
+          return true
+        end
+      end
+    end
+    return false
+  end
+  # Other item
+  ret = ItemHandlers.triggerUseOnPokemon(item,pkmn,scene)
+  scene.pbClearAnnotations
+  scene.pbHardRefresh
+  useType = pbGetItemData(item,ITEM_FIELD_USE)
+  if ret && useType && useType==1   # Usable on Pokémon, consumed
+    $PokemonBag.pbDeleteItem(item)
+    if !$PokemonBag.pbHasItem?(item)
+      pbMessage(_INTL("You used your last {1}.",PBItems.getName(item)))
+    end
+  end
+  return ret
+end
+
+def pbUseKeyItemInField(item)
+  ret = ItemHandlers.triggerUseInField(item)
+  if ret==-1   # Item effect not found
+    pbMessage(_INTL("Can't use that here."))
+  elsif ret==3   # Item was used and consumed
+    $PokemonBag.pbDeleteItem(item)
+  end
+  return ret!=-1 && ret!=0
+end
+
+def pbUseItemMessage(item)
+  itemname = PBItems.getName(item)
+  if itemname.starts_with_vowel?
+    pbMessage(_INTL("You used an {1}.",itemname))
+  else
+    pbMessage(_INTL("You used a {1}.",itemname))
+  end
+end
+
+def pbCheckUseOnPokemon(item,pkmn,screen)
+  return pkmn && !pkmn.egg?
+end
+
+#===============================================================================
+# Give an item to a Pokémon to hold, and take a held item from a Pokémon
+#===============================================================================
+def pbGiveItemToPokemon(item,pkmn,scene,pkmnid=0)
+  newitemname = PBItems.getName(item)
+  if pkmn.egg?
+    scene.pbDisplay(_INTL("Eggs can't hold items."))
+    return false
+  elsif pkmn.mail
+    scene.pbDisplay(_INTL("{1}'s mail must be removed before giving it an item.",pkmn.name))
+    return false if !pbTakeItemFromPokemon(pkmn,scene)
+  end
+  if pkmn.hasItem?
+    olditemname = PBItems.getName(pkmn.item)
+    if isConst?(pkmn.item,PBItems,:LEFTOVERS)
+      scene.pbDisplay(_INTL("{1} is already holding some {2}.\1",pkmn.name,olditemname))
+    elsif newitemname.starts_with_vowel?
+      scene.pbDisplay(_INTL("{1} is already holding an {2}.\1",pkmn.name,olditemname))
+    else
+      scene.pbDisplay(_INTL("{1} is already holding a {2}.\1",pkmn.name,olditemname))
+    end
+    if scene.pbConfirm(_INTL("Would you like to switch the two items?"))
+      $PokemonBag.pbDeleteItem(item)
+      if !$PokemonBag.pbStoreItem(pkmn.item)
+        if !$PokemonBag.pbStoreItem(item)
+          raise _INTL("Could't re-store deleted item in Bag somehow")
+        end
+        scene.pbDisplay(_INTL("The Bag is full. The Pokémon's item could not be removed."))
+      else
+        if pbIsMail?(item)
+          if pbWriteMail(item,pkmn,pkmnid,scene)
+            pkmn.setItem(item)
+            scene.pbDisplay(_INTL("Took the {1} from {2} and gave it the {3}.",olditemname,pkmn.name,newitemname))
+            return true
+          else
+            if !$PokemonBag.pbStoreItem(item)
+              raise _INTL("Couldn't re-store deleted item in Bag somehow")
+            end
+          end
+        else
+          pkmn.setItem(item)
+          scene.pbDisplay(_INTL("Took the {1} from {2} and gave it the {3}.",olditemname,pkmn.name,newitemname))
+          return true
+        end
+      end
+    end
+  else
+    if !pbIsMail?(item) || pbWriteMail(item,pkmn,pkmnid,scene)
+      $PokemonBag.pbDeleteItem(item)
+      pkmn.setItem(item)
+      scene.pbDisplay(_INTL("{1} is now holding the {2}.",pkmn.name,newitemname))
+      return true
+    end
+  end
+  return false
+end
+
+def pbTakeItemFromPokemon(pkmn,scene)
+  ret = false
+  if !pkmn.hasItem?
+    scene.pbDisplay(_INTL("{1} isn't holding anything.",pkmn.name))
+  elsif !$PokemonBag.pbCanStore?(pkmn.item)
+    scene.pbDisplay(_INTL("The Bag is full. The Pokémon's item could not be removed."))
+  elsif pkmn.mail
+    if scene.pbConfirm(_INTL("Save the removed mail in your PC?"))
+      if !pbMoveToMailbox(pkmn)
+        scene.pbDisplay(_INTL("Your PC's Mailbox is full."))
+      else
+        scene.pbDisplay(_INTL("The mail was saved in your PC."))
+        pkmn.setItem(0)
+        ret = true
+      end
+    elsif scene.pbConfirm(_INTL("If the mail is removed, its message will be lost. OK?"))
+      $PokemonBag.pbStoreItem(pkmn.item)
+      itemname = PBItems.getName(pkmn.item)
+      scene.pbDisplay(_INTL("Received the {1} from {2}.",itemname,pkmn.name))
+      pkmn.setItem(0)
+      pkmn.mail = nil
+      ret = true
+    end
+  else
+    $PokemonBag.pbStoreItem(pkmn.item)
+    itemname = PBItems.getName(pkmn.item)
+    scene.pbDisplay(_INTL("Received the {1} from {2}.",itemname,pkmn.name))
+    pkmn.setItem(0)
+    ret = true
+  end
+  return ret
+end
+
+#===============================================================================
+# Choose an item from the Bag
+#===============================================================================
+def pbChooseItem(var=0,*args)
+  ret = 0
+  pbFadeOutIn {
+    scene = PokemonBag_Scene.new
+    screen = PokemonBagScreen.new(scene,$PokemonBag)
+    ret = screen.pbChooseItemScreen
+  }
+  $game_variables[var] = ret if var>0
+  return ret
+end
+
+def pbChooseApricorn(var=0)
+  ret = 0
+  pbFadeOutIn {
+    scene = PokemonBag_Scene.new
+    screen = PokemonBagScreen.new(scene,$PokemonBag)
+    ret = screen.pbChooseItemScreen(Proc.new { |item| pbIsApricorn?(item) })
+  }
+  $game_variables[var] = ret if var>0
+  return ret
+end
+
+def pbChooseFossil(var=0)
+  ret = 0
+  pbFadeOutIn {
+    scene = PokemonBag_Scene.new
+    screen = PokemonBagScreen.new(scene,$PokemonBag)
+    ret = screen.pbChooseItemScreen(Proc.new { |item| pbIsFossil?(item) })
+  }
+  $game_variables[var] = ret if var>0
+  return ret
+end
+
+# Shows a list of items to choose from, with the chosen item's ID being stored
+# in the given Global Variable. Only items which the player has are listed.
+def pbChooseItemFromList(message,variable,*args)
+  commands = []
+  itemid   = []
+  for item in args
+    next if !hasConst?(PBItems,item)
+    id = getConst(PBItems,item)
+    next if !$PokemonBag.pbHasItem?(id)
+    commands.push(PBItems.getName(id))
+    itemid.push(id)
+  end
+  if commands.length==0
+    $game_variables[variable] = 0
+    return 0
+  end
+  commands.push(_INTL("Cancel"))
+  itemid.push(0)
+  ret = pbMessage(message,commands,-1)
+  if ret<0 || ret>=commands.length-1
+    $game_variables[variable] = -1
+    return -1
+  end
+  $game_variables[variable] = itemid[ret]
+  return itemid[ret]
+end