6.6 update

Data/Scripts/020_Debug/003_Debug menus/001_Debug_Menus.rb

@@ -0,0 +1,185 @@
+#===============================================================================
+#
+#===============================================================================
+class CommandMenuList
+  attr_accessor :currentList
+
+  def initialize
+    @commands    = []
+    @currentList = "main"
+  end
+
+  def add(option, hash)
+    @commands.push([option, hash["parent"], hash["name"], hash["description"]])
+  end
+
+  def list
+    ret = []
+    @commands.each { |cmd| ret.push(cmd[2]) if cmd[1] == @currentList }
+    return ret
+  end
+
+  def getCommand(index)
+    count = 0
+    @commands.each do |cmd|
+      next if cmd[1] != @currentList
+      return cmd[0] if count == index
+      count += 1
+    end
+    return nil
+  end
+
+  def getDesc(index)
+    count = 0
+    @commands.each do |cmd|
+      next if cmd[1] != @currentList
+      return cmd[3] if count == index && cmd[3]
+      break if count == index
+      count += 1
+    end
+    return "<No description available>"
+  end
+
+  def hasSubMenu?(check_cmd)
+    @commands.each { |cmd| return true if cmd[1] == check_cmd }
+    return false
+  end
+
+  def getParent
+    ret = nil
+    @commands.each do |cmd|
+      next if cmd[0] != @currentList
+      ret = cmd[1]
+      break
+    end
+    return nil if !ret
+    count = 0
+    @commands.each do |cmd|
+      next if cmd[1] != ret
+      return [ret, count] if cmd[0] == @currentList
+      count += 1
+    end
+    return [ret, 0]
+  end
+end
+
+#===============================================================================
+#
+#===============================================================================
+def pbDebugMenu(show_all = true)
+  commands = CommandMenuList.new
+  DebugMenuCommands.each do |option, hash|
+    commands.add(option, hash) if show_all || hash["always_show"]
+  end
+  viewport = Viewport.new(0, 0, Graphics.width, Graphics.height)
+  viewport.z = 99999
+  sprites = {}
+  sprites["textbox"] = pbCreateMessageWindow
+  sprites["textbox"].letterbyletter = false
+  sprites["cmdwindow"] = Window_CommandPokemonEx.new(commands.list)
+  cmdwindow = sprites["cmdwindow"]
+  cmdwindow.x        = 0
+  cmdwindow.y        = 0
+  cmdwindow.width    = Graphics.width
+  cmdwindow.height   = Graphics.height - sprites["textbox"].height
+  cmdwindow.viewport = viewport
+  cmdwindow.visible  = true
+  sprites["textbox"].text = commands.getDesc(cmdwindow.index)
+  pbFadeInAndShow(sprites)
+  ret = -1
+  refresh = true
+  loop do
+    loop do
+      oldindex = cmdwindow.index
+      cmdwindow.update
+      if refresh || cmdwindow.index != oldindex
+        sprites["textbox"].text = commands.getDesc(cmdwindow.index)
+        refresh = false
+      end
+      Graphics.update
+      Input.update
+      if Input.trigger?(Input::BACK)
+        parent = commands.getParent
+        if parent
+          pbPlayCancelSE
+          commands.currentList = parent[0]
+          cmdwindow.commands = commands.list
+          cmdwindow.index = parent[1]
+          refresh = true
+        else
+          ret = -1
+          break
+        end
+      elsif Input.trigger?(Input::USE)
+        ret = cmdwindow.index
+        break
+      end
+    end
+    break if ret < 0
+    cmd = commands.getCommand(ret)
+    if commands.hasSubMenu?(cmd)
+      pbPlayDecisionSE
+      commands.currentList = cmd
+      cmdwindow.commands = commands.list
+      cmdwindow.index = 0
+      refresh = true
+    elsif cmd == "warp"
+      return if DebugMenuCommands.call("effect", cmd, sprites, viewport)
+    else
+      DebugMenuCommands.call("effect", cmd)
+    end
+  end
+  pbPlayCloseMenuSE
+  pbFadeOutAndHide(sprites)
+  pbDisposeMessageWindow(sprites["textbox"])
+  pbDisposeSpriteHash(sprites)
+  viewport.dispose
+end
+
+#===============================================================================
+#
+#===============================================================================
+module PokemonDebugMixin
+  def pbPokemonDebug(pkmn, pkmnid, heldpoke = nil, settingUpBattle = false)
+    command = 0
+    commands = CommandMenuList.new
+    PokemonDebugMenuCommands.each do |option, hash|
+      commands.add(option, hash) if !settingUpBattle || hash["always_show"]
+    end
+    loop do
+      command = pbShowCommands(_INTL("Do what with {1}?", pkmn.name), commands.list, command)
+      if command < 0
+        parent = commands.getParent
+        if parent
+          commands.currentList = parent[0]
+          command = parent[1]
+        else
+          break
+        end
+      else
+        cmd = commands.getCommand(command)
+        if commands.hasSubMenu?(cmd)
+          commands.currentList = cmd
+          command = 0
+        elsif PokemonDebugMenuCommands.call("effect", cmd, pkmn, pkmnid, heldpoke, settingUpBattle, self)
+          break
+        end
+      end
+    end
+  end
+end
+
+#===============================================================================
+#
+#===============================================================================
+class PokemonPartyScreen
+  include PokemonDebugMixin
+end
+
+class PokemonStorageScreen
+  include PokemonDebugMixin
+end
+
+class PokemonDebugPartyScreen
+  include PokemonDebugMixin
+end

Data/Scripts/020_Debug/003_Debug menus/003_Debug_MenuExtraCode.rb

@@ -0,0 +1,904 @@
+#===============================================================================
+#
+#===============================================================================
+def pbDefaultMap
+  return $game_map.map_id if $game_map
+  return $data_system.edit_map_id if $data_system
+  return 0
+end
+
+def pbWarpToMapId
+  params = ChooseNumberParams.new
+  params.setRange(1,999) #pbMapTree().length)
+  params.setDefaultValue($game_map.map_id)
+  map_id = pbMessageChooseNumber("map id?",params)
+  return [map_id,0,0]
+end
+
+def pbWarpToMapFly
+  return pbBetterRegionMap(-1, true, true,false,nil,true)
+end
+
+def pbWarpToMap
+  choice = pbMessage("type", [_INTL("List"),_INTL("Map id"), _INTL("Town map")], 0)
+  if choice == 0
+    map = pbWarpToMapList
+  elsif choice == 1
+    map = pbWarpToMapId
+  elsif choice == 2
+    map = pbWarpToMapFly
+  end
+  return map
+end
+
+def pbWarpToMapList
+  mapid = pbListScreen(_INTL("WARP TO MAP"),MapLister.new(pbDefaultMap))
+  if mapid>0
+    map = Game_Map.new
+    map.setup(mapid)
+    success = false
+    x = 0
+    y = 0
+    100.times do
+      x = rand(map.width)
+      y = rand(map.height)
+      next if !map.passableStrict?(x,y,0,$game_player)
+      blocked = false
+      for event in map.events.values
+        if event.at_coordinate?(x, y) && !event.through
+          blocked = true if event.character_name != ""
+        end
+      end
+      next if blocked
+      success = true
+      break
+    end
+    if !success
+      x = rand(map.width)
+      y = rand(map.height)
+    end
+    return [mapid,x,y]
+  end
+  return nil
+end
+
+
+
+#===============================================================================
+# Debug Variables screen
+#===============================================================================
+class SpriteWindow_DebugVariables < Window_DrawableCommand
+  attr_reader :mode
+
+  def initialize(viewport)
+    super(0,0,Graphics.width,Graphics.height,viewport)
+  end
+
+  def itemCount
+    return (@mode==0) ? $data_system.switches.size-1 : $data_system.variables.size-1
+  end
+
+  def mode=(mode)
+    @mode = mode
+    refresh
+  end
+
+  def shadowtext(x,y,w,h,t,align=0,colors=0)
+    width = self.contents.text_size(t).width
+    if align==1 # Right aligned
+      x += (w-width)
+    elsif align==2 # Centre aligned
+      x += (w/2)-(width/2)
+    end
+    base = Color.new(12*8,12*8,12*8)
+    if colors==1 # Red
+      base = Color.new(168,48,56)
+    elsif colors==2 # Green
+      base = Color.new(0,144,0)
+    end
+    pbDrawShadowText(self.contents,x,y,[width,w].max,h,t,base,Color.new(26*8,26*8,25*8))
+  end
+
+  def drawItem(index,_count,rect)
+    pbSetNarrowFont(self.contents)
+    colors = 0; codeswitch = false
+    if @mode==0
+      name = $data_system.switches[index+1]
+      codeswitch = (name[/^s\:/])
+      val = (codeswitch) ? (eval($~.post_match) rescue nil) : $game_switches[index+1]
+      if val.nil?
+        status = "[-]"
+        colors = 0
+        codeswitch = true
+      elsif val   # true
+        status = "[ON]"
+        colors = 2
+      else   # false
+        status = "[OFF]"
+        colors = 1
+      end
+    else
+      name = $data_system.variables[index+1]
+      status = $game_variables[index+1].to_s
+      status = "\"__\"" if nil_or_empty?(status)
+    end
+    name = '' if name==nil
+    id_text = sprintf("%04d:",index+1)
+    rect = drawCursor(index,rect)
+    totalWidth = rect.width
+    idWidth     = totalWidth*15/100
+    nameWidth   = totalWidth*65/100
+    statusWidth = totalWidth*20/100
+    self.shadowtext(rect.x,rect.y,idWidth,rect.height,id_text)
+    self.shadowtext(rect.x+idWidth,rect.y,nameWidth,rect.height,name,0,(codeswitch) ? 1 : 0)
+    self.shadowtext(rect.x+idWidth+nameWidth,rect.y,statusWidth,rect.height,status,1,colors)
+  end
+end
+
+
+
+def pbDebugSetVariable(id,diff)
+  $game_variables[id] = 0 if $game_variables[id]==nil
+  if $game_variables[id].is_a?(Numeric)
+    pbPlayCursorSE
+    $game_variables[id] = [$game_variables[id]+diff,99999999].min
+    $game_variables[id] = [$game_variables[id],-99999999].max
+    $game_map.need_refresh = true
+  end
+end
+
+def pbDebugVariableScreen(id)
+  if $game_variables[id].is_a?(Numeric)
+    value = $game_variables[id]
+    params = ChooseNumberParams.new
+    params.setDefaultValue(value)
+    params.setMaxDigits(8)
+    params.setNegativesAllowed(true)
+    value = pbMessageChooseNumber(_INTL("Set variable {1}.",id),params)
+    $game_variables[id] = [value,99999999].min
+    $game_variables[id] = [$game_variables[id],-99999999].max
+    $game_map.need_refresh = true
+  elsif $game_variables[id].is_a?(String)
+    value = pbMessageFreeText(_INTL("Set variable {1}.",id),
+       $game_variables[id],false,250,Graphics.width)
+    $game_variables[id] = value
+    $game_map.need_refresh = true
+  end
+end
+
+def pbDebugVariables(mode)
+  viewport = Viewport.new(0,0,Graphics.width,Graphics.height)
+  viewport.z = 99999
+  sprites = {}
+  sprites["right_window"] = SpriteWindow_DebugVariables.new(viewport)
+  right_window = sprites["right_window"]
+  right_window.mode     = mode
+  right_window.active   = true
+  loop do
+    Graphics.update
+    Input.update
+    pbUpdateSpriteHash(sprites)
+    if Input.trigger?(Input::BACK)
+      pbPlayCancelSE
+      break
+    end
+    current_id = right_window.index+1
+    if mode==0 # Switches
+      if Input.trigger?(Input::USE)
+        pbPlayDecisionSE
+        $game_switches[current_id] = !$game_switches[current_id]
+        right_window.refresh
+        $game_map.need_refresh = true
+      end
+    elsif mode==1 # Variables
+      if Input.repeat?(Input::LEFT)
+        pbDebugSetVariable(current_id,-1)
+        right_window.refresh
+      elsif Input.repeat?(Input::RIGHT)
+        pbDebugSetVariable(current_id,1)
+        right_window.refresh
+      elsif Input.trigger?(Input::ACTION)
+        if $game_variables[current_id]==0
+          $game_variables[current_id] = ""
+        elsif $game_variables[current_id]==""
+          $game_variables[current_id] = 0
+        elsif $game_variables[current_id].is_a?(Numeric)
+          $game_variables[current_id] = 0
+        elsif $game_variables[current_id].is_a?(String)
+          $game_variables[current_id] = ""
+        end
+        right_window.refresh
+        $game_map.need_refresh = true
+      elsif Input.trigger?(Input::USE)
+        pbPlayDecisionSE
+        pbDebugVariableScreen(current_id)
+        right_window.refresh
+      end
+    end
+  end
+  pbDisposeSpriteHash(sprites)
+  viewport.dispose
+end
+
+#===============================================================================
+# Debug Day Care screen
+#===============================================================================
+def pbDebugDayCare
+  commands = [_INTL("Withdraw Pokémon 1"),
+              _INTL("Withdraw Pokémon 2"),
+              _INTL("Deposit Pokémon"),
+              _INTL("Generate egg"),
+              _INTL("Collect egg")]
+  viewport = Viewport.new(0,0,Graphics.width,Graphics.height)
+  viewport.z = 99999
+  sprites = {}
+  addBackgroundPlane(sprites,"background","hatchbg",viewport)
+  sprites["overlay"] = BitmapSprite.new(Graphics.width,Graphics.height,viewport)
+  pbSetSystemFont(sprites["overlay"].bitmap)
+  sprites["cmdwindow"] = Window_CommandPokemonEx.new(commands)
+  cmdwindow = sprites["cmdwindow"]
+  cmdwindow.x        = 0
+  cmdwindow.y        = Graphics.height-128
+  cmdwindow.width    = Graphics.width
+  cmdwindow.height   = 128
+  cmdwindow.viewport = viewport
+  cmdwindow.columns = 2
+  base   = Color.new(248,248,248)
+  shadow = Color.new(104,104,104)
+  refresh = true
+  loop do
+    if refresh
+      if pbEggGenerated?
+        commands[3] = _INTL("Discard egg")
+      else
+        commands[3] = _INTL("Generate egg")
+      end
+      cmdwindow.commands = commands
+      sprites["overlay"].bitmap.clear
+      textpos = []
+      for i in 0...2
+        textpos.push([_INTL("Pokémon {1}",i+1),Graphics.width/4+i*Graphics.width/2,2,2,base,shadow])
+      end
+      for i in 0...pbDayCareDeposited
+        next if !$PokemonGlobal.daycare[i][0]
+        y = 34
+        pkmn      = $PokemonGlobal.daycare[i][0]
+        initlevel = $PokemonGlobal.daycare[i][1]
+        leveldiff = pkmn.level-initlevel
+        textpos.push(["#{pkmn.name} (#{pkmn.speciesName})",8+i*Graphics.width/2,y,0,base,shadow])
+        y += 32
+        if pkmn.male?
+          textpos.push([_INTL("Male ♂"),8+i*Graphics.width/2,y,0,Color.new(128,192,248),shadow])
+        elsif pkmn.female?
+          textpos.push([_INTL("Female ♀"),8+i*Graphics.width/2,y,0,Color.new(248,96,96),shadow])
+        else
+          textpos.push([_INTL("Genderless"),8+i*Graphics.width/2,y,0,base,shadow])
+        end
+        y += 32
+        if initlevel>=GameData::GrowthRate.max_level
+          textpos.push(["Lv. #{initlevel} (max)",8+i*Graphics.width/2,y,0,base,shadow])
+        elsif leveldiff>0
+          textpos.push(["Lv. #{initlevel} -> #{pkmn.level} (+#{leveldiff})",
+             8+i*Graphics.width/2,y,0,base,shadow])
+        else
+          textpos.push(["Lv. #{initlevel} (no change)",8+i*Graphics.width/2,y,0,base,shadow])
+        end
+        y += 32
+        if pkmn.level<GameData::GrowthRate.max_level
+          endexp = pkmn.growth_rate.minimum_exp_for_level(pkmn.level + 1)
+          textpos.push(["To next Lv.: #{endexp-pkmn.exp}",8+i*Graphics.width/2,y,0,base,shadow])
+          y += 32
+        end
+        cost = pbDayCareGetCost(i)
+        textpos.push(["Cost: $#{cost}",8+i*Graphics.width/2,y,0,base,shadow])
+      end
+      if pbEggGenerated?
+        textpos.push(["Egg waiting for collection",Graphics.width/2,210,2,Color.new(248,248,0),shadow])
+      elsif pbDayCareDeposited==2
+        if pbDayCareGetCompat==0
+          textpos.push(["Pokémon cannot breed",Graphics.width/2,210,2,Color.new(248,96,96),shadow])
+        else
+          textpos.push(["Pokémon can breed",Graphics.width/2,210,2,Color.new(64,248,64),shadow])
+        end
+      end
+      pbDrawTextPositions(sprites["overlay"].bitmap,textpos)
+      refresh = false
+    end
+    pbUpdateSpriteHash(sprites)
+    Graphics.update
+    Input.update
+    if Input.trigger?(Input::BACK)
+      break
+    elsif Input.trigger?(Input::USE)
+      case cmdwindow.index
+      when 0   # Withdraw Pokémon 1
+        if !$PokemonGlobal.daycare[0][0]
+          pbPlayBuzzerSE
+        elsif $Trainer.party_full?
+          pbPlayBuzzerSE
+          pbMessage(_INTL("Party is full, can't withdraw Pokémon."))
+        else
+          pbPlayDecisionSE
+          pbDayCareGetDeposited(0,3,4)
+          pbDayCareWithdraw(0)
+          refresh = true
+        end
+      when 1  # Withdraw Pokémon 2
+        if !$PokemonGlobal.daycare[1][0]
+          pbPlayBuzzerSE
+        elsif $Trainer.party_full?
+          pbPlayBuzzerSE
+          pbMessage(_INTL("Party is full, can't withdraw Pokémon."))
+        else
+          pbPlayDecisionSE
+          pbDayCareGetDeposited(1,3,4)
+          pbDayCareWithdraw(1)
+          refresh = true
+        end
+      when 2   # Deposit Pokémon
+        if pbDayCareDeposited==2
+          pbPlayBuzzerSE
+        elsif $Trainer.party.length==0
+          pbPlayBuzzerSE
+          pbMessage(_INTL("Party is empty, can't deposit Pokémon."))
+        else
+          pbPlayDecisionSE
+          pbChooseNonEggPokemon(1,3)
+          if pbGet(1)>=0
+            pbDayCareDeposit(pbGet(1))
+            refresh = true
+          end
+        end
+      when 3   # Generate/discard egg
+        if pbEggGenerated?
+          pbPlayDecisionSE
+          $PokemonGlobal.daycareEgg      = 0
+          $PokemonGlobal.daycareEggSteps = 0
+          refresh = true
+        else
+          if pbDayCareDeposited!=2 || pbDayCareGetCompat==0
+            pbPlayBuzzerSE
+          else
+            pbPlayDecisionSE
+            $PokemonGlobal.daycareEgg = 1
+            refresh = true
+          end
+        end
+      when 4   # Collect egg
+        if $PokemonGlobal.daycareEgg!=1
+          pbPlayBuzzerSE
+        elsif $Trainer.party_full?
+          pbPlayBuzzerSE
+          pbMessage(_INTL("Party is full, can't collect the egg."))
+        else
+          pbPlayDecisionSE
+          pbDayCareGenerateEgg
+          $PokemonGlobal.daycareEgg      = 0
+          $PokemonGlobal.daycareEggSteps = 0
+          pbMessage(_INTL("Collected the {1} egg.", $Trainer.last_party.speciesName))
+          refresh = true
+        end
+      end
+    end
+  end
+  pbDisposeSpriteHash(sprites)
+  viewport.dispose
+end
+
+
+
+#===============================================================================
+# Debug roaming Pokémon screen
+#===============================================================================
+class SpriteWindow_DebugRoamers < Window_DrawableCommand
+  def initialize(viewport)
+    super(0,0,Graphics.width,Graphics.height,viewport)
+  end
+
+  def roamerCount
+    return Settings::ROAMING_SPECIES.length
+  end
+
+  def itemCount
+    return self.roamerCount+2
+  end
+
+  def shadowtext(t,x,y,w,h,align=0,colors=0)
+    width = self.contents.text_size(t).width
+    if align==1 ;   x += (w-width)         # Right aligned
+    elsif align==2; x += (w/2)-(width/2)   # Centre aligned
+    end
+    base = Color.new(12*8,12*8,12*8)
+    if colors==1;    base = Color.new(168,48,56)   # Red
+    elsif colors==2; base = Color.new(0,144,0)     # Green
+    end
+    pbDrawShadowText(self.contents,x,y,[width,w].max,h,t,base,Color.new(26*8,26*8,25*8))
+  end
+
+  def drawItem(index,_count,rect)
+    pbSetNarrowFont(self.contents)
+    rect = drawCursor(index,rect)
+    nameWidth   = rect.width*50/100
+    statusWidth = rect.width*50/100
+    if index==self.itemCount-2
+      # Advance roaming
+      self.shadowtext(_INTL("[All roam to new locations]"),rect.x,rect.y,nameWidth,rect.height)
+    elsif index==self.itemCount-1
+      # Advance roaming
+      self.shadowtext(_INTL("[Clear all current roamer locations]"),rect.x,rect.y,nameWidth,rect.height)
+    else
+      pkmn = Settings::ROAMING_SPECIES[index]
+      name = GameData::Species.get(pkmn[0]).name + " (Lv. #{pkmn[1]})"
+      status = ""
+      statuscolor = 0
+      if pkmn[2]<=0 || $game_switches[pkmn[2]]
+        status = $PokemonGlobal.roamPokemon[index]
+        if status==true
+          if $PokemonGlobal.roamPokemonCaught[index]
+            status = "[CAUGHT]"
+          else
+            status = "[DEFEATED]"
+          end
+          statuscolor = 1
+        else
+          # roaming
+          curmap = $PokemonGlobal.roamPosition[index]
+          if curmap
+            mapinfos = pbLoadMapInfos
+            status = "[ROAMING][#{curmap}: #{mapinfos[curmap].name}]"
+          else
+            status = "[ROAMING][map not set]"
+          end
+          statuscolor = 2
+        end
+      else
+        status = "[NOT ROAMING][Switch #{pkmn[2]} is off]"
+      end
+      self.shadowtext(name,rect.x,rect.y,nameWidth,rect.height)
+      self.shadowtext(status,rect.x+nameWidth,rect.y,statusWidth,rect.height,1,statuscolor)
+    end
+  end
+end
+
+
+
+def pbDebugRoamers
+  viewport = Viewport.new(0,0,Graphics.width,Graphics.height)
+  viewport.z = 99999
+  sprites = {}
+  sprites["cmdwindow"] = SpriteWindow_DebugRoamers.new(viewport)
+  cmdwindow = sprites["cmdwindow"]
+  cmdwindow.active   = true
+  loop do
+    Graphics.update
+    Input.update
+    pbUpdateSpriteHash(sprites)
+    if Input.trigger?(Input::ACTION) && cmdwindow.index<cmdwindow.roamerCount &&
+       (pkmn[2]<=0 || $game_switches[pkmn[2]]) &&
+       $PokemonGlobal.roamPokemon[cmdwindow.index]!=true
+      # Roam selected Pokémon
+      pbPlayDecisionSE
+      if Input.press?(Input::CTRL)   # Roam to current map
+        if $PokemonGlobal.roamPosition[cmdwindow.index]==pbDefaultMap
+          $PokemonGlobal.roamPosition[cmdwindow.index] = nil
+        else
+          $PokemonGlobal.roamPosition[cmdwindow.index] = pbDefaultMap
+        end
+        cmdwindow.refresh
+      else   # Roam to a random other map
+        oldmap = $PokemonGlobal.roamPosition[cmdwindow.index]
+        pbRoamPokemonOne(cmdwindow.index)
+        if $PokemonGlobal.roamPosition[cmdwindow.index] == oldmap
+          $PokemonGlobal.roamPosition[cmdwindow.index] = nil
+          pbRoamPokemonOne(cmdwindow.index)
+        end
+        $PokemonGlobal.roamedAlready = false
+        cmdwindow.refresh
+      end
+    elsif Input.trigger?(Input::BACK)
+      pbPlayCancelSE
+      break
+    elsif Input.trigger?(Input::USE)
+      if cmdwindow.index<cmdwindow.roamerCount
+        pbPlayDecisionSE
+        # Toggle through roaming, not roaming, defeated
+        pkmn = Settings::ROAMING_SPECIES[cmdwindow.index]
+        if pkmn[2]>0 && !$game_switches[pkmn[2]]
+          # not roaming -> roaming
+          $game_switches[pkmn[2]] = true
+        elsif $PokemonGlobal.roamPokemon[cmdwindow.index]!=true
+          # roaming -> defeated
+          $PokemonGlobal.roamPokemon[cmdwindow.index] = true
+          $PokemonGlobal.roamPokemonCaught[cmdwindow.index] = false
+        elsif $PokemonGlobal.roamPokemon[cmdwindow.index] == true &&
+           !$PokemonGlobal.roamPokemonCaught[cmdwindow.index]
+          # defeated -> caught
+          $PokemonGlobal.roamPokemonCaught[cmdwindow.index] = true
+        elsif pkmn[2]>0
+          # caught -> not roaming (or roaming if Switch ID is 0
+          $game_switches[pkmn[2]] = false if pkmn[2]>0
+          $PokemonGlobal.roamPokemon[cmdwindow.index] = nil
+          $PokemonGlobal.roamPokemonCaught[cmdwindow.index] = false
+        end
+        cmdwindow.refresh
+      elsif cmdwindow.index==cmdwindow.itemCount-2   # All roam
+        if Settings::ROAMING_SPECIES.length==0
+          pbPlayBuzzerSE
+        else
+          pbPlayDecisionSE
+          pbRoamPokemon
+          $PokemonGlobal.roamedAlready = false
+          cmdwindow.refresh
+        end
+      else   # Clear all roaming locations
+        if Settings::ROAMING_SPECIES.length==0
+          pbPlayBuzzerSE
+        else
+          pbPlayDecisionSE
+          for i in 0...Settings::ROAMING_SPECIES.length
+            $PokemonGlobal.roamPosition[i] = nil
+          end
+          $PokemonGlobal.roamedAlready = false
+          cmdwindow.refresh
+        end
+      end
+    end
+  end
+  pbDisposeSpriteHash(sprites)
+  viewport.dispose
+end
+
+
+
+#===============================================================================
+# Text import/export for localisation
+#===============================================================================
+def pbExtractText
+  msgwindow = pbCreateMessageWindow
+  if safeExists?("intl.txt") &&
+     !pbConfirmMessageSerious(_INTL("intl.txt already exists. Overwrite it?"))
+    pbDisposeMessageWindow(msgwindow)
+    return
+  end
+  pbMessageDisplay(msgwindow,_INTL("Please wait.\\wtnp[0]"))
+  MessageTypes.extract("intl.txt")
+  pbMessageDisplay(msgwindow,_INTL("All text in the game was extracted and saved to intl.txt.\1"))
+  pbMessageDisplay(msgwindow,_INTL("To localize the text for a particular language, translate every second line in the file.\1"))
+  pbMessageDisplay(msgwindow,_INTL("After translating, choose \"Compile Text.\""))
+  pbDisposeMessageWindow(msgwindow)
+end
+
+def pbCompileTextUI
+  msgwindow = pbCreateMessageWindow
+  pbMessageDisplay(msgwindow,_INTL("Please wait.\\wtnp[0]"))
+  begin
+    pbCompileText
+    pbMessageDisplay(msgwindow,_INTL("Successfully compiled text and saved it to intl.dat.\1"))
+    pbMessageDisplay(msgwindow,_INTL("To use the file in a game, place the file in the Data folder under a different name, and edit the Settings::LANGUAGES array in the scripts."))
+  rescue RuntimeError
+    pbMessageDisplay(msgwindow,_INTL("Failed to compile text: {1}",$!.message))
+  end
+  pbDisposeMessageWindow(msgwindow)
+end
+
+#===============================================================================
+# Battle animations import/export
+#===============================================================================
+def pbExportAllAnimations
+  begin
+    Dir.mkdir("Animations") rescue nil
+    animations = pbLoadBattleAnimations
+    if animations
+      msgwindow = pbCreateMessageWindow
+      for anim in animations
+        next if !anim || anim.length==0 || anim.name==""
+        pbMessageDisplay(msgwindow,anim.name,false)
+        Graphics.update
+        safename = anim.name.gsub(/\W/,"_")
+        Dir.mkdir("Animations/#{safename}") rescue nil
+        File.open("Animations/#{safename}/#{safename}.anm","wb") { |f|
+          f.write(dumpBase64Anim(anim))
+        }
+        if anim.graphic && anim.graphic!=""
+          graphicname = RTP.getImagePath("Graphics/Animations/"+anim.graphic)
+          pbSafeCopyFile(graphicname,"Animations/#{safename}/"+File.basename(graphicname))
+        end
+        for timing in anim.timing
+          if !timing.timingType || timing.timingType==0
+            if timing.name && timing.name!=""
+              audioName = RTP.getAudioPath("Audio/SE/Anim/"+timing.name)
+              pbSafeCopyFile(audioName,"Animations/#{safename}/"+File.basename(audioName))
+            end
+          elsif timing.timingType==1 || timing.timingType==3
+            if timing.name && timing.name!=""
+              graphicname = RTP.getImagePath("Graphics/Animations/"+timing.name)
+              pbSafeCopyFile(graphicname,"Animations/#{safename}/"+File.basename(graphicname))
+            end
+          end
+        end
+      end
+      pbDisposeMessageWindow(msgwindow)
+      pbMessage(_INTL("All animations were extracted and saved to the Animations folder."))
+    else
+      pbMessage(_INTL("There are no animations to export."))
+    end
+  rescue
+    p $!.message,$!.backtrace
+    pbMessage(_INTL("The export failed."))
+  end
+end
+
+def pbImportAllAnimations
+  animationFolders = []
+  if safeIsDirectory?("Animations")
+    Dir.foreach("Animations") { |fb|
+      f = "Animations/"+fb
+      if safeIsDirectory?(f) && fb!="." && fb!=".."
+        animationFolders.push(f)
+      end
+    }
+  end
+  if animationFolders.length==0
+    pbMessage(_INTL("There are no animations to import. Put each animation in a folder within the Animations folder."))
+  else
+    msgwindow = pbCreateMessageWindow
+    animations = pbLoadBattleAnimations
+    animations = PBAnimations.new if !animations
+    for folder in animationFolders
+      pbMessageDisplay(msgwindow,folder,false)
+      Graphics.update
+      audios = []
+      files = Dir.glob(folder+"/*.*")
+      %w( wav ogg mid wma mp3 ).each { |ext|
+        upext = ext.upcase
+        audios.concat(files.find_all { |f| f[f.length-3,3]==ext })
+        audios.concat(files.find_all { |f| f[f.length-3,3]==upext })
+      }
+      for audio in audios
+        pbSafeCopyFile(audio,RTP.getAudioPath("Audio/SE/Anim/"+File.basename(audio)),"Audio/SE/Anim/"+File.basename(audio))
+      end
+      images = []
+      %w( png gif ).each { |ext|   # jpg jpeg bmp
+        upext = ext.upcase
+        images.concat(files.find_all { |f| f[f.length-3,3]==ext })
+        images.concat(files.find_all { |f| f[f.length-3,3]==upext })
+      }
+      for image in images
+        pbSafeCopyFile(image,RTP.getImagePath("Graphics/Animations/"+File.basename(image)),"Graphics/Animations/"+File.basename(image))
+      end
+      Dir.glob(folder+"/*.anm") { |f|
+        textdata = loadBase64Anim(IO.read(f)) rescue nil
+        if textdata && textdata.is_a?(PBAnimation)
+          index = pbAllocateAnimation(animations,textdata.name)
+          missingFiles = []
+          textdata.name = File.basename(folder) if textdata.name==""
+          textdata.id = -1   # This is not an RPG Maker XP animation
+          pbConvertAnimToNewFormat(textdata)
+          if textdata.graphic && textdata.graphic!=""
+            if !safeExists?(folder+"/"+textdata.graphic) &&
+               !FileTest.image_exist?("Graphics/Animations/"+textdata.graphic)
+              textdata.graphic = ""
+              missingFiles.push(textdata.graphic)
+            end
+          end
+          for timing in textdata.timing
+            if timing.name && timing.name!=""
+              if !safeExists?(folder+"/"+timing.name) &&
+                 !FileTest.audio_exist?("Audio/SE/Anim/"+timing.name)
+                timing.name = ""
+                missingFiles.push(timing.name)
+              end
+            end
+          end
+          animations[index] = textdata
+        end
+      }
+    end
+    save_data(animations,"Data/PkmnAnimations.rxdata")
+    $PokemonTemp.battleAnims = nil
+    pbDisposeMessageWindow(msgwindow)
+    pbMessage(_INTL("All animations were imported."))
+  end
+end
+
+#===============================================================================
+# Properly erases all non-existent tiles in maps (including event graphics)
+#===============================================================================
+def pbDebugFixInvalidTiles
+  num_errors = 0
+  num_error_maps = 0
+  tilesets = $data_tilesets
+  mapData = Compiler::MapData.new
+  t = Time.now.to_i
+  Graphics.update
+  for id in mapData.mapinfos.keys.sort
+    if Time.now.to_i - t >= 5
+      Graphics.update
+      t = Time.now.to_i
+    end
+    changed = false
+    map = mapData.getMap(id)
+    next if !map || !mapData.mapinfos[id]
+    pbSetWindowText(_INTL("Processing map {1} ({2})", id, mapData.mapinfos[id].name))
+    passages = mapData.getTilesetPassages(map, id)
+    # Check all tiles in map for non-existent tiles
+    for x in 0...map.data.xsize
+      for y in 0...map.data.ysize
+        for i in 0...map.data.zsize
+          tile_id = map.data[x, y, i]
+          next if pbCheckTileValidity(tile_id, map, tilesets, passages)
+          map.data[x, y, i] = 0
+          changed = true
+          num_errors += 1
+        end
+      end
+    end
+    # Check all events in map for page graphics using a non-existent tile
+    for key in map.events.keys
+      event = map.events[key]
+      for page in event.pages
+        next if page.graphic.tile_id <= 0
+        next if pbCheckTileValidity(page.graphic.tile_id, map, tilesets, passages)
+        page.graphic.tile_id = 0
+        changed = true
+        num_errors += 1
+      end
+    end
+    next if !changed
+    # Map was changed; save it
+    num_error_maps += 1
+    mapData.saveMap(id)
+  end
+  if num_error_maps == 0
+    pbMessage(_INTL("No invalid tiles were found."))
+  else
+    pbMessage(_INTL("{1} error(s) were found across {2} map(s) and fixed.", num_errors, num_error_maps))
+    pbMessage(_INTL("Close RPG Maker XP to ensure the changes are applied properly."))
+  end
+end
+
+def pbCheckTileValidity(tile_id, map, tilesets, passages)
+  return false if !tile_id
+  if tile_id > 0 && tile_id < 384
+    # Check for defined autotile
+    autotile_id = tile_id / 48 - 1
+    autotile_name = tilesets[map.tileset_id].autotile_names[autotile_id]
+    return true if autotile_name && autotile_name != ""
+  else
+    # Check for tileset data
+    return true if passages[tile_id]
+  end
+  return false
+end
+
+
+
+#===============================================================================
+# Pseudo-party screen for editing Pokémon being set up for a wild battle
+#===============================================================================
+class PokemonDebugPartyScreen
+  def initialize
+    @viewport = Viewport.new(0,0,Graphics.width,Graphics.height)
+    @viewport.z = 99999
+    @messageBox = Window_AdvancedTextPokemon.new("")
+    @messageBox.viewport       = @viewport
+    @messageBox.visible        = false
+    @messageBox.letterbyletter = true
+    pbBottomLeftLines(@messageBox,2)
+    @helpWindow = Window_UnformattedTextPokemon.new("")
+    @helpWindow.viewport = @viewport
+    @helpWindow.visible  = true
+    pbBottomLeftLines(@helpWindow,1)
+  end
+
+  def pbEndScreen
+    @messageBox.dispose
+    @helpWindow.dispose
+    @viewport.dispose
+  end
+
+  def pbDisplay(text)
+    @messageBox.text    = text
+    @messageBox.visible = true
+    @helpWindow.visible = false
+    pbPlayDecisionSE
+    loop do
+      Graphics.update
+      Input.update
+      pbUpdate
+      if @messageBox.busy?
+        if Input.trigger?(Input::USE)
+          pbPlayDecisionSE if @messageBox.pausing?
+          @messageBox.resume
+        end
+      else
+        if Input.trigger?(Input::BACK) || Input.trigger?(Input::USE)
+          break
+        end
+      end
+    end
+    @messageBox.visible = false
+    @helpWindow.visible = true
+  end
+
+  def pbConfirm(text)
+    ret = -1
+    @messageBox.text    = text
+    @messageBox.visible = true
+    @helpWindow.visible = false
+    using(cmdwindow = Window_CommandPokemon.new([_INTL("Yes"),_INTL("No")])) {
+      cmdwindow.visible = false
+      pbBottomRight(cmdwindow)
+      cmdwindow.y -= @messageBox.height
+      cmdwindow.z = @viewport.z+1
+      loop do
+        Graphics.update
+        Input.update
+        cmdwindow.visible = true if !@messageBox.busy?
+        cmdwindow.update
+        pbUpdate
+        if !@messageBox.busy?
+          if Input.trigger?(Input::BACK)
+            ret = false
+            break
+          elsif Input.trigger?(Input::USE) && @messageBox.resume
+            ret = (cmdwindow.index==0)
+            break
+          end
+        end
+      end
+    }
+    @messageBox.visible = false
+    @helpWindow.visible = true
+    return ret
+  end
+
+  def pbShowCommands(text,commands,index=0)
+    ret = -1
+    @helpWindow.visible = true
+    using(cmdwindow = Window_CommandPokemonColor.new(commands)) {
+      cmdwindow.z     = @viewport.z+1
+      cmdwindow.index = index
+      pbBottomRight(cmdwindow)
+      @helpWindow.resizeHeightToFit(text,Graphics.width-cmdwindow.width)
+      @helpWindow.text = text
+      pbBottomLeft(@helpWindow)
+      loop do
+        Graphics.update
+        Input.update
+        cmdwindow.update
+        pbUpdate
+        if Input.trigger?(Input::BACK)
+          pbPlayCancelSE
+          ret = -1
+          break
+        elsif Input.trigger?(Input::USE)
+          pbPlayDecisionSE
+          ret = cmdwindow.index
+          break
+        end
+      end
+    }
+    return ret
+  end
+
+  def pbChooseMove(pkmn,text,index=0)
+    moveNames = []
+    for i in pkmn.moves
+      if i.total_pp<=0
+        moveNames.push(_INTL("{1} (PP: ---)",i.name))
+      else
+        moveNames.push(_INTL("{1} (PP: {2}/{3})",i.name,i.pp,i.total_pp))
+      end
+    end
+    return pbShowCommands(text,moveNames,index)
+  end
+
+  def pbRefreshSingle(index); end
+
+  def update
+    @messageBox.update
+    @helpWindow.update
+  end
+  alias pbUpdate update
+end

Data/Scripts/020_Debug/003_Debug menus/004_Debug_MenuSpriteRenamer.rb

@@ -0,0 +1,311 @@
+class File
+  # Copies the source file to the destination path.
+  def self.copy(source, destination)
+    data = ""
+    t = Time.now
+    File.open(source, 'rb') do |f|
+      while r = f.read(4096)
+        if Time.now - t > 1
+          Graphics.update
+          t = Time.now
+        end
+        data += r
+      end
+    end
+    File.delete(destination) if File.file?(destination)
+    f = File.new(destination, 'wb')
+    f.write data
+    f.close
+  end
+
+  # Copies the source to the destination and deletes the source.
+  def self.move(source, destination)
+    File.copy(source, destination)
+    File.delete(source)
+  end
+end
+
+#===============================================================================
+#
+#===============================================================================
+module SpriteRenamer
+  module_function
+
+  def readDirectoryFiles(directory, formats)
+    files = []
+    Dir.chdir(directory) {
+      for i in 0...formats.length
+        Dir.glob(formats[i]) { |f| files.push(f) }
+      end
+    }
+    return files
+  end
+
+  def convert_pokemon_filename(full_name, default_prefix = "")
+    name = full_name
+    extension = ".png"
+    if full_name[/^(.+)\.([^\.]+)$/]   # Of the format something.abc
+      name = $~[1]
+      extension = "." + $~[2]
+    end
+    prefix = default_prefix
+    form = female = shadow = crack = ""
+    if default_prefix == ""
+      if name[/s/] && !name[/shadow/]
+        prefix = (name[/b/]) ? "Back shiny/" : "Front shiny/"
+      else
+        prefix = (name[/b/]) ? "Back/" : "Front/"
+      end
+    elsif default_prefix == "Icons/"
+      prefix = "Icons shiny/" if name[/s/] && !name[/shadow/]
+    end
+    if name[/000/]
+      species = "000"
+    elsif name[/^(\d+)$/] || name[/^(\d+)\D/]
+      species_number = $~[1].to_i
+      species_data = GameData::Species.try_get(species_number)
+      raise _INTL("Species {1} is not defined (trying to rename Pokémon graphic {2}).", species_number, full_name) if !species_data
+      species = species_data.id.to_s
+      form = "_" + $~[1].to_s if name[/_(\d+)$/] || name[/_(\d+)\D/]
+      female = "_female" if name[/f/]
+      shadow = "_shadow" if name[/_shadow/]
+      if name[/egg/]
+        prefix = "Eggs/"
+        crack = "_icon" if default_prefix == "Icons/"
+        crack = "_cracks" if name[/eggCracks/]
+      end
+    end
+    return prefix + species + form + female + shadow + crack + extension
+  end
+
+  def convert_pokemon_sprites(src_dir, dest_dir)
+    return if !FileTest.directory?(src_dir)
+    # generates a list of all graphic files
+    files = readDirectoryFiles(src_dir, ["*.png"])
+    # starts automatic renaming
+    files.each_with_index do |file, i|
+      Graphics.update if i % 100 == 0
+      pbSetWindowText(_INTL("Converting Pokémon sprites {1}/{2}...", i, files.length)) if i % 50 == 0
+      case file
+      when "battlers.png"
+        File.delete(src_dir + file)
+      when "egg.png"
+        File.move(src_dir + file, dest_dir + "Eggs/000.png")
+      when "eggCracks.png"
+        File.move(src_dir + file, dest_dir + "Eggs/000_cracks.png")
+      else
+        next if !file[/^\d+[^\.]*\.[^\.]*$/]
+        new_filename = convert_pokemon_filename(file)
+        # moves the files into their appropriate folders
+        File.move(src_dir + file, dest_dir + new_filename)
+      end
+    end
+    Dir.delete(src_dir) rescue nil
+  end
+
+  def convert_pokemon_icons(src_dir, dest_dir)
+    return if !FileTest.directory?(src_dir)
+    # generates a list of all graphic files
+    files = readDirectoryFiles(src_dir, ["*.png"])
+    # starts automatic renaming
+    files.each_with_index do |file, i|
+      Graphics.update if i % 100 == 0
+      pbSetWindowText(_INTL("Converting Pokémon icons {1}/{2}...", i, files.length)) if i % 50 == 0
+      case file
+      when "iconEgg.png"
+        File.move(src_dir + file, dest_dir + "Eggs/000_egg.png")
+      else
+        next if !file[/^icon\d+[^\.]*\.[^\.]*$/]
+        new_filename = convert_pokemon_filename(file.sub(/^icon/, ''), "Icons/")
+        # moves the files into their appropriate folders
+        File.move(src_dir + file, dest_dir + new_filename)
+      end
+    end
+  end
+
+  def convert_pokemon_footprints(src_dir, dest_dir)
+    return if !FileTest.directory?(src_dir)
+    # generates a list of all graphic files
+    files = readDirectoryFiles(src_dir, ["*.png"])
+    # starts automatic renaming
+    files.each_with_index do |file, i|
+      Graphics.update if i % 100 == 0
+      pbSetWindowText(_INTL("Converting footprints {1}/{2}...", i, files.length)) if i % 50 == 0
+      next if !file[/^footprint\d+[^\.]*\.[^\.]*$/]
+      new_filename = convert_pokemon_filename(file.sub(/^footprint/, ''), "Footprints/")
+      # moves the files into their appropriate folders
+      File.move(src_dir + file, dest_dir + new_filename)
+    end
+    Dir.delete(src_dir) rescue nil
+  end
+
+  def convert_item_icons(src_dir, dest_dir)
+    return if !FileTest.directory?(src_dir)
+    # generates a list of all graphic files
+    files = readDirectoryFiles(src_dir, ["*.png"])
+    # starts automatic renaming
+    files.each_with_index do |file, i|
+      Graphics.update if i % 100 == 0
+      pbSetWindowText(_INTL("Converting item icons {1}/{2}...", i, files.length)) if i % 50 == 0
+      case file
+      when "item000.png"
+        File.move(src_dir + file, dest_dir + "000.png")
+      when "itemBack.png"
+        File.move(src_dir + file, dest_dir + "back.png")
+      else
+        if file[/^itemMachine(.+)\.([^\.]*)$/]
+          type = $~[1]
+          extension = $~[2]
+          File.move(src_dir + file, dest_dir + "machine_" + type + "." + extension)
+        elsif file[/^item(\d+)\.([^\.]*)$/]
+          item_number = $~[1].to_i
+          extension = $~[2]
+          item_data = GameData::Item.try_get(item_number)
+          raise _INTL("Item {1} is not defined (trying to rename item icon {2}).", item_number, file) if !item_data
+          item = item_data.id.to_s
+          # moves the files into their appropriate folders
+          File.move(src_dir + file, dest_dir + item + "." + extension)
+        end
+      end
+    end
+  end
+
+  def convert_pokemon_cries(src_dir)
+    return if !FileTest.directory?(src_dir)
+    # generates a list of all audio files
+    files = readDirectoryFiles(src_dir, ["*.wav", "*.mp3", "*.ogg"])
+    # starts automatic renaming
+    files.each_with_index do |file, i|
+      Graphics.update if i % 100 == 0
+      pbSetWindowText(_INTL("Converting Pokémon cries {1}/{2}...", i, files.length)) if i % 50 == 0
+      if file[/^(\d+)Cry[^\.]*\.([^\.]*)$/]
+        species_number = $~[1].to_i
+        extension = $~[2]
+        form = (file[/Cry_(\d+)\./]) ? sprintf("_%s", $~[1]) : ""
+        species_data = GameData::Species.try_get(species_number)
+        raise _INTL("Species {1} is not defined (trying to rename species cry {2}).", species_number, file) if !species_data
+        species = species_data.id.to_s
+        File.move(src_dir + file, src_dir + species + form + "." + extension)
+      end
+    end
+  end
+
+  def convert_trainer_sprites(src_dir)
+    return if !FileTest.directory?(src_dir)
+    # generates a list of all graphic files
+    if src_dir == "Graphics/Characters/"
+      files = readDirectoryFiles(src_dir, ["trchar*.png"])
+    else
+      files = readDirectoryFiles(src_dir, ["*.png"])
+    end
+    # starts automatic renaming
+    files.each_with_index do |file, i|
+      Graphics.update if i % 100 == 0
+      pbSetWindowText(_INTL("Converting trainer sprites {1}/{2}...", i, files.length)) if i % 50 == 0
+      if src_dir == "Graphics/Characters/"
+        if file[/^trchar(\d+)\.([^\.]*)$/]
+          tr_type_number = $~[1].to_i
+          extension = $~[2]
+          tr_type_data = GameData::TrainerType.try_get(tr_type_number)
+          raise _INTL("Trainer type {1} is not defined (trying to rename trainer charset {2}).", tr_type_number, file) if !tr_type_data
+          tr_type = tr_type_data.id.to_s
+          File.move(src_dir + file, src_dir + "trainer_" + tr_type + "." + extension)
+        end
+      else
+        if file[/^trainer(\d+)\.([^\.]*)$/]
+          tr_type_number = $~[1].to_i
+          extension = $~[2]
+          tr_type_data = GameData::TrainerType.try_get(tr_type_number)
+          raise _INTL("Trainer type {1} is not defined (trying to rename trainer sprite {2}).", tr_type_number, file) if !tr_type_data
+          tr_type = tr_type_data.id.to_s
+          File.move(src_dir + file, src_dir + tr_type + "." + extension)
+        elsif file[/^trback(\d+)\.([^\.]*)$/]
+          tr_type_number = $~[1].to_i
+          extension = $~[2]
+          tr_type_data = GameData::TrainerType.try_get(tr_type_number)
+          raise _INTL("Trainer type {1} is not defined (trying to rename trainer sprite {2}).", tr_type_number, file) if !tr_type_data
+          tr_type = tr_type_data.id.to_s
+          File.move(src_dir + file, src_dir + tr_type + "_back." + extension)
+        end
+      end
+    end
+  end
+
+  def convert_player_metadata_charsets
+    changed = false
+    for i in 0...8
+      metadata = GameData::Metadata.get_player(i)
+      next if !metadata
+      if metadata[1][/^trchar(\d+)$/]
+        tr_type_number = $~[1].to_i
+        tr_type_data = GameData::TrainerType.try_get(tr_type_number)
+        raise _INTL("Trainer type {1} is not defined (trying to rename player metadata filename {2}).", tr_type_number, metadata[1]) if !tr_type_data
+        metadata[1] = "trainer_" + tr_type_data.id.to_s
+        changed = true
+      end
+    end
+    return if !changed
+    # Save changes to metadata and rewrite PBS file
+    GameData::Metadata.save
+    Compiler.write_metadata
+  end
+
+  def convert_files
+    return if !pbConfirmMessage("Check for Pokémon/item/trainer files in their old folders that need renaming and moving?")
+    any_changed = false
+    # Rename and move Pokémon sprites/icons
+    dest_dir = "Graphics/Pokemon/"
+    Dir.mkdir(dest_dir) if !FileTest.directory?(dest_dir)
+    for ext in ["Front/", "Back/", "Icons/", "Front shiny/", "Back shiny/", "Icons shiny/",
+                "Eggs/", "Footprints/", "Shadow/"]
+      Dir.mkdir(dest_dir + ext) if !FileTest.directory?(dest_dir + ext)
+    end
+    convert_pokemon_sprites("Graphics/Battlers/", dest_dir)
+    convert_pokemon_icons("Graphics/Icons/", dest_dir)
+    convert_pokemon_footprints("Graphics/Icons/Footprints/", dest_dir)
+    # Rename and move item icons
+    dest_dir = "Graphics/Items/"
+    Dir.mkdir(dest_dir) if !FileTest.directory?(dest_dir)
+    convert_item_icons("Graphics/Icons/", dest_dir)
+    # Rename Pokémon cries
+    convert_pokemon_cries("Audio/SE/Cries/")
+    # Rename trainer sprites
+    convert_trainer_sprites("Graphics/Trainers/")
+    pbSetWindowText(nil)
+    if pbConfirmMessage("Rename all trainer charsets? This will also edit map data to change events' charsets accordingly.")
+      convert_trainer_sprites("Graphics/Characters/")
+      convert_player_metadata_charsets
+      pbSetWindowText(nil)
+      # Edit all maps to replace used charsets
+      mapData = Compiler::MapData.new
+      t = Time.now.to_i
+      Graphics.update
+      for id in mapData.mapinfos.keys.sort
+        map = mapData.getMap(id)
+        next if !map || !mapData.mapinfos[id]
+        changed = false
+        for key in map.events.keys
+          if Time.now.to_i - t >= 5
+            Graphics.update
+            t = Time.now.to_i
+          end
+          map.events[key].pages.each do |page|
+            next if nil_or_empty?(page.graphic.character_name)
+            next if !page.graphic.character_name[/^trchar(.+)$/]
+            tr_type = $~[1]
+            tr_type = tr_type.to_i if tr_type[/^\d+$/]
+            tr_type_data = GameData::TrainerType.try_get(tr_type)
+            raise _INTL("Trainer type {1} is not defined (trying to rename event's charset {2}).", tr_type, file) if !tr_type_data
+            page.graphic.character_name = "trainer_" + tr_type_data.id.to_s
+            changed = true
+          end
+        end
+        mapData.saveMap(id) if changed
+        any_changed = true if changed
+      end
+    end
+    pbMessage(_INTL("All found sprites and icons were renamed and moved."))
+    pbMessage(_INTL("Some map data was edited. Close and reopen RPG Maker XP to see the changes.")) if any_changed
+    pbUpdateVehicle if $game_player
+  end
+end