#===============================================================================
#
#===============================================================================
class PokemonPokedexInfo_Scene
  def pbStartScene(dexlist, index, region, pokemon = nil, fromSummary = false)
    @fromSummary = fromSummary
    @pokemon = pokemon
    @endscene = false
    @viewport = Viewport.new(0, 0, Graphics.width, Graphics.height)
    @viewport.z = 99999
    @dexlist = dexlist
    @index = index
    @region = region
    @page = 1
    @entry_page = 0
    @typebitmap = AnimatedBitmap.new("Graphics/Pictures/Pokedex/icon_types")
    @sprites = {}
    @sprites["background"] = IconSprite.new(0, 0, @viewport)
    @sprites["infosprite"] = PokemonSprite.new(@viewport)
    @sprites["infosprite"].setOffset(PictureOrigin::Center)
    @sprites["infosprite"].x = 104
    @sprites["infosprite"].y = 136
    @sprites["infosprite"].zoom_x = Settings::FRONTSPRITE_SCALE
    @sprites["infosprite"].zoom_y = Settings::FRONTSPRITE_SCALE
    @spritesLoader = BattleSpriteLoader.new
    @randomEntryText = nil
    # @mapdata = pbLoadTownMapData
    # map_metadata = GameData::MapMetadata.try_get($game_map.map_id)
    # mappos = (map_metadata) ? map_metadata.town_map_position : nil
    # if @region < 0                                 # Use player's current region
    #   @region = (mappos) ? mappos[0] : 0                      # Region 0 default
    # end
    # @sprites["areamap"] = IconSprite.new(0,0,@viewport)
    # @sprites["areamap"].setBitmap("Graphics/Pictures/#{@mapdata[@region][1]}")
    # @sprites["areamap"].x += (Graphics.width-@sprites["areamap"].bitmap.width)/2
    # @sprites["areamap"].y += (Graphics.height+32-@sprites["areamap"].bitmap.height)/2
    # for hidden in Settings::REGION_MAP_EXTRAS
    #   if hidden[0]==@region && hidden[1]>0 && $game_switches[hidden[1]]
    #     pbDrawImagePositions(@sprites["areamap"].bitmap,[
    #        ["Graphics/Pictures/#{hidden[4]}",
    #           hidden[2]*PokemonRegionMap_Scene::SQUAREWIDTH,
    #           hidden[3]*PokemonRegionMap_Scene::SQUAREHEIGHT]
    #     ])
    #   end
    # end
    # @sprites["areahighlight"] = BitmapSprite.new(Graphics.width,Graphics.height,@viewport)
    # @sprites["areaoverlay"] = IconSprite.new(0,0,@viewport)
    # @sprites["areaoverlay"].setBitmap("Graphics/Pictures/Pokedex/overlay_area")
    @sprites["formfront"] = PokemonSprite.new(@viewport)
    @sprites["formfront"].setOffset(PictureOrigin::Center)
    @sprites["formfront"].x = 130
    @sprites["formfront"].y = 158
    @sprites["formfront"].zoom_y = Settings::FRONTSPRITE_SCALE
    @sprites["formfront"].zoom_x = Settings::FRONTSPRITE_SCALE

    @sprites["formback"] = PokemonSprite.new(@viewport)
    @sprites["formback"].setOffset(PictureOrigin::Bottom)
    @sprites["formback"].x = 382 # y is set below as it depends on metrics
    @sprites["formicon"] = PokemonSpeciesIconSprite.new(nil, @viewport)
    @sprites["formicon"].setOffset(PictureOrigin::Center)
    @sprites["formicon"].x = 82
    @sprites["formicon"].y = 328
    @sprites["formicon"].visible = false
    initializeSpritesPageGraphics

    @sprites["overlay"] = BitmapSprite.new(Graphics.width, Graphics.height, @viewport)

    pbSetSystemFont(@sprites["overlay"].bitmap)
    pbUpdateDummyPokemon
    @available = pbGetAvailableForms
    initializeSpritesPage(@available)
    drawPage(@page)
    pbFadeInAndShow(@sprites) { pbUpdate }
  end


  def initializeSpritesPageGraphics()
    @sprites["leftarrow"] = AnimatedSprite.new("Graphics/Pictures/leftarrow", 8, 40, 28, 2, @viewport)
    @sprites["leftarrow"].x = 20
    @sprites["leftarrow"].y = 250 # 268
    @sprites["leftarrow"].play
    @sprites["leftarrow"].visible = false
    @sprites["rightarrow"] = AnimatedSprite.new("Graphics/Pictures/rightarrow", 8, 40, 28, 2, @viewport)
    @sprites["rightarrow"].x = 440
    @sprites["rightarrow"].y = 250
    @sprites["rightarrow"].play
    @sprites["rightarrow"].visible = false

    @sprites["uparrow"] = AnimatedSprite.new("Graphics/Pictures/uparrow", 8, 28, 40, 2, @viewport)
    @sprites["uparrow"].x = 250
    @sprites["uparrow"].y = 50 # 268
    @sprites["uparrow"].play
    @sprites["uparrow"].visible = false
    @sprites["downarrow"] = AnimatedSprite.new("Graphics/Pictures/downarrow", 8, 28, 40, 2, @viewport)
    @sprites["downarrow"].x = 25
    @sprites["downarrow"].y = 350
    @sprites["downarrow"].play
    @sprites["downarrow"].visible = false

    @sprites["blacklistIcon"] = IconSprite.new(0, 0, @viewport)
    @sprites["blacklistIcon"].setBitmap("Graphics/Pictures/Pokedex/enabled_disabled_icon")
    @sprites["blacklistIcon"].x = 10
    @sprites["blacklistIcon"].y = 320
    @sprites["blacklistIcon"].z = 9999999
    @sprites["blacklistIcon"].visible = false

  end

  def pbStartSpritesSelectSceneBrief(species, alts_list, pokemon = nil)
    @available = alts_list
    @species = species
    @viewport = Viewport.new(0, 0, Graphics.width, Graphics.height)
    @viewport.z = 99999
    @index = 0
    @page = 3
    @brief = true
    @sprites = {}
    @sprites["background"] = IconSprite.new(0, 0, @viewport)
    @sprites["overlay"] = BitmapSprite.new(Graphics.width, Graphics.height, @viewport)
    @sprites["infosprite"] = PokemonSprite.new(@viewport)
    @spritesLoader = BattleSpriteLoader.new
    @page = 3
    @pokemon = pokemon
    initializeSpritesPageGraphics
    initializeSpritesPage(@available)
    drawPage(@page)

    pbFadeInAndShow(@sprites) { pbUpdate }
  end

  def pbStartSceneBrief(pokemon)
    species = pokemon.species
    @pokemon = pokemon
    # For standalone access, shows first page only
    @viewport = Viewport.new(0, 0, Graphics.width, Graphics.height)
    @viewport.z = 99999
    dexnum = 0
    dexnumshift = false
    if $Trainer.pokedex.unlocked?(-1) # National Dex is unlocked
      species_data = GameData::Species.try_get(species)
      dexnum = species_data.id_number if species_data
      dexnumshift = true if Settings::DEXES_WITH_OFFSETS.include?(-1)
    else
      dexnum = 0
      for i in 0...$Trainer.pokedex.dexes_count - 1 # Regional Dexes
        next if !$Trainer.pokedex.unlocked?(i)
        num = pbGetRegionalNumber(i, species)
        next if num <= 0
        dexnum = num
        dexnumshift = true if Settings::DEXES_WITH_OFFSETS.include?(i)
        break
      end
    end
    @dexlist = [[species, "", 0, 0, dexnum, dexnumshift]]
    @index = 0
    @page = 1
    @brief = true
    @typebitmap = AnimatedBitmap.new("Graphics/Pictures/Pokedex/icon_types")
    @sprites = {}
    @sprites["background"] = IconSprite.new(0, 0, @viewport)
    @sprites["infosprite"] = PokemonSprite.new(@viewport)
    @sprites["infosprite"].setOffset(PictureOrigin::Center)
    @sprites["infosprite"].x = 104
    @sprites["infosprite"].y = 136
    @sprites["overlay"] = BitmapSprite.new(Graphics.width, Graphics.height, @viewport)

    pbSetSystemFont(@sprites["overlay"].bitmap)
    pbUpdateDummyPokemon
    @page = 1
    drawPage(@page)
    sprite_bitmap = @sprites["infosprite"].getBitmap

    pbFadeInAndShow(@sprites) { pbUpdate }
  end

  def pbStartSpritesPageBrief(species) end

  def pbEndScene
    pbFadeOutAndHide(@sprites) { pbUpdate }
    pbDisposeSpriteHash(@sprites)
    @typebitmap.dispose if @typebitmap
    @viewport.dispose
  end

  def pbUpdate
    if @page == 2
      intensity = (Graphics.frame_count % 40) * 12
      intensity = 480 - intensity if intensity > 240
      @sprites["areahighlight"].opacity = intensity
    end
    pbUpdateSpriteHash(@sprites)
  end

  def pbUpdateDummyPokemon
    @species = @dexlist[@index][0]
    @gender, @form = $Trainer.pokedex.last_form_seen(@species)

    if @sprites["selectedSprite"]
      @sprites["selectedSprite"].visible = false
    end
    if @sprites["nextSprite"]
      @sprites["nextSprite"].visible = false
    end
    if @sprites["previousSprite"]
      @sprites["previousSprite"].visible = false
    end

    if @pokemon && @pokemon.pif_sprite
      @spritesLoader = BattleSpriteLoader.new unless @spritesLoader
      animated = @spritesLoader.load_pif_sprite_directly(@pokemon.pif_sprite)
      @displayed_pif_sprite = @pokemon.pif_sprite
      @sprites["infosprite"].setAnimatedBitmap(animated)
    elsif @displayed_pif_sprite
      @sprites["infosprite"].setPokemonBitmapPIFSprite(@displayed_pif_sprite)
    else
      spritesLoader = BattleSpriteLoader.new
      @displayed_pif_sprite = spritesLoader.obtain_pif_sprite(GameData::Species.get(@species).species)
      @sprites["infosprite"].setPokemonBitmapPIFSprite(@displayed_pif_sprite)
    end
  end

  def drawPage(page)
    overlay = @sprites["overlay"].bitmap
    overlay.clear
    @creditsOverlay.clear if @creditsOverlay && !@creditsOverlay.disposed?
    # Make certain sprites visible
    @sprites["infosprite"].visible = (@page == 1)
    @sprites["areamap"].visible = (@page == 2) if @sprites["areamap"]
    @sprites["areahighlight"].visible = (@page == 2) if @sprites["areahighlight"]
    @sprites["areaoverlay"].visible = (@page == 2) if @sprites["areaoverlay"]
    # @sprites["formfront"].visible     = (@page==3) if @sprites["formfront"]
    #@sprites["formback"].visible      = (@page==3) if @sprites["formback"]
    #@sprites["formicon"].visible      = (@page==3) if @sprites["formicon"]

    @sprites["previousSprite"].visible = (@page == 3) if @sprites["previousSprite"]
    @sprites["selectedSprite"].visible = (@page == 3) if @sprites["selectedSprite"]
    @sprites["nextSprite"].visible = (@page == 3) if @sprites["nextSprite"]

    hide_all_selected_windows
    # Draw page-specific information
    case page
    when 1 then
      drawPageInfo
    when 2 then
      drawPageArea
    when 3 then
      drawPageForms
    end
  end

  def drawPageInfo(reloading = false)
    @entry_author = nil
    pbUpdateDummyPokemon
    @sprites["background"].setBitmap("Graphics/Pictures/Pokedex/bg_info")
    overlay = @sprites["overlay"].bitmap
    base = Color.new(88, 88, 80)
    shadow = Color.new(168, 184, 184)

    if isDarkMode
      base, shadow = shadow, base
    end

    imagepos = []
    if @brief
      imagepos.push(["Graphics/Pictures/Pokedex/overlay_info", 0, 0])
    end
    species_data = GameData::Species.get_species_form(@species, @form)
    # Write various bits of text
    indexText = "???"
    indexNumber = @dexlist[@index][4]
    indexNumber -= 1 if @dexlist[@index][5]
    indexNumber = GameData::Species.get(@species).id_number
    indexText = sprintf("%03d", indexNumber)
    # end
    textpos = [
      ["#{indexText}  #{species_data.name}", 246, 36, 0, Color.new(248, 248, 248), Color.new(0, 0, 0)],
    ]
    if $Trainer.owned?(@species)
      # Category
      textpos.push([_INTL("{1} Pokémon", species_data.category), 246, 68, 0, base, shadow])
      #Weighty / Height
      weight_value = species_data.weight / 10.0
      weight_unit = _INTL("kg")
      height_value = species_data.height / 10.0
      height_unit = _INTL("m")
      if System.user_language[3..4] == "US"
        weight_value = ((weight_value / 0.45359) * 10).round / 10.0  # e.g. 13.2
        weight_unit = _INTL("lbs")

        total_inches = (height_value / 0.0254).round
        feet = total_inches / 12
        inches = total_inches % 12
        height_text = _INTL("{1}'{2}\"", feet, inches)
        height_unit = ""
      else
        height_text = _INTL("{1} {2}", height_value, height_unit)
      end
      weight_text = _INTL("{1} {2}", weight_value, weight_unit)
      textpos.push(["#{height_text}", 224, 102, 0, base, shadow])
      textpos.push(["#{weight_text}", 224, 124, 0, base, shadow])

      drawEntryText(overlay, species_data, reloading)

      # Show the owned icon
      imagepos.push(["Graphics/Pictures/Pokedex/icon_own", 212, 44])
      # Draw the type icon(s)
      type1 = species_data.type1
      type2 = species_data.type2
      type1_number = GameData::Type.get(type1).id_number
      type2_number = GameData::Type.get(type2).id_number
      type1rect = Rect.new(0, type1_number * 32, 96, 32)
      type2rect = Rect.new(0, type2_number * 32, 96, 32)
      overlay.blt(300, 120, @typebitmap.bitmap, type1rect)
      overlay.blt(400, 120, @typebitmap.bitmap, type2rect) if type1 != type2
    else
      # Write the category
      textpos.push([_INTL("????? Pokémon"), 246, 68, 0, base, shadow])
    end

    sprite_author = "Japeal (Generated)"
    unless @displayed_pif_sprite.type == :AUTOGEN
      echoln @displayed_pif_sprite&.to_filename
      sprite_author = getSpriteCredits(@displayed_pif_sprite&.to_filename(false))
    end
    dex_author = @entry_author if @entry_author
    unless dex_author
      dex_author = _INTL("Auto-generated")
      dex_author = _INTL("None") unless $PokemonSystem.use_generated_dex_entries
      dex_author = _INTL("Game Freak") unless getDexNumberForSpecies(@species) > NB_POKEMON
    end
    textpos.push([_INTL("Sprite: {1}", sprite_author), 224, 156, 0, base, shadow])
    textpos.push([_INTL("Entry:  {1}", dex_author), 224, 188, 0, base, shadow]) if $Trainer.owned?(@species)

    # Draw all text
    pbDrawTextPositions(overlay, textpos)
    # Draw all images
    pbDrawImagePositions(overlay, imagepos)
  end

  def drawEntryText(overlay, species_data, reloading = false)
    baseColor = Color.new(88, 88, 80)
    shadow = Color.new(168, 184, 184)
    baseCustom = Color.new(88, 88, 80)
    shadowCustom = Color.new(160, 200, 150)
    shadowAI = Color.new(168, 184, 220)

    if isDarkMode
      baseColor, shadow = shadow, baseColor
      baseCustom, shadowCustom = shadowCustom, baseCustom
    end

    if species_data.is_fusion
      customEntry, entryAuthor = getCustomEntryText(species_data)
      if customEntry
        entryText = customEntry
        @entry_text = entryText
        @entry_author = entryAuthor
        baseColor = baseCustom
        shadowColor = shadowCustom
      else
        if $PokemonSystem.use_generated_dex_entries && species_data.is_a?(GameData::FusedSpecies)
          @randomEntryText = species_data.get_random_dex_entry if !reloading || @randomEntryText.nil?
          entryText = @randomEntryText
          shadowColor = shadow
        else
          entryText = _INTL("No custom Pokédex entry available for this Pokémon. Please consider submitting an entry for this Pokémon on the game's Discord. Auto-generated Pokédex entries can be enabled in the options menu.")
          shadowColor = shadow
        end
      end
    else
      entryText = species_data.pokedex_entry
      shadowColor = shadow
    end

    max_chars_per_page = 150
    pages = splitTextIntoPages(entryText, max_chars_per_page)
    @entry_page = 0 if !@entry_page || pages.length == 1
    displayedText = pages[@entry_page]
    if pages.length > 1
      page_indicator_text = "#{@entry_page + 1}/#{pages.length}"
      drawTextEx(overlay, 425, 340, Graphics.width - (40 * 2), 4, # overlay, x, y, width, num lines
                 page_indicator_text, baseColor, shadow)
    end

    drawTextEx(overlay, 40, 244, Graphics.width - (40 * 2), 4, # overlay, x, y, width, num lines
               displayedText, baseColor, shadowColor)
  end

  def splitTextIntoPages(text, max_chars_per_page)
    words = text.split
    pages = []
    current_page = ""

    words.each do |word|
      if current_page.length + word.length + 1 > max_chars_per_page
        pages << current_page.strip
        current_page = word
      else
        current_page += " " unless current_page.empty?
        current_page += word
      end
    end

    pages << current_page.strip unless current_page.empty?
    pages
  end

  def reloadDexEntry()
    overlay = @sprites["overlay"].bitmap
    overlay.clear
    drawPageInfo(true)
  end

  def changeEntryPage()
    pbSEPlay("GUI sel cursor")
    @entry_page = @entry_page == 1 ? 0 : 1
    reloadDexEntry
  end

  def isAutogenSprite(sprite_path)
    return !sprite_path.include?(Settings::CUSTOM_BATTLERS_FOLDER)
  end

  # Returns array
  # [text, author]
  def getCustomEntryText(species_data)
    spriteLoader = BattleSpriteLoader.new
    if @displayed_pif_sprite
      pif_sprite = @displayed_pif_sprite
    else
      # fallback - should never go through here in theory
      pif_sprite = spriteLoader.get_pif_sprite_from_species(species_data)
    end
    return nil if pif_sprite.type != :CUSTOM
    possibleCustomEntries = getCustomDexEntry(pif_sprite)
    if possibleCustomEntries && possibleCustomEntries.length > 0
      customEntry = possibleCustomEntries.sample
      customEntry[0] = customEntry[0].gsub(Settings::CUSTOM_ENTRIES_NAME_PLACEHOLDER, species_data.name)
    end
    return customEntry
  end

  def getCustomDexEntry(pif_sprite)
    sprite = pif_sprite.to_filename()
    json_data = File.read(Settings::CUSTOM_DEX_ENTRIES_PATH)
    parsed_data = HTTPLite::JSON.parse(json_data)

    entries = parsed_data.select { |entry| entry["sprite"] == sprite }
    if entries.any?
      return entries.map { |entry| [entry["entry"], entry["author"]] }
    else
      echoln "No custom entry found for sprite " + sprite.to_s
      return nil
    end
  end

  # unused
  def getAIDexEntry(pokemonID, name)
    begin
      head_number = get_head_number_from_symbol(pokemonID).to_s
      body_number = get_body_number_from_symbol(pokemonID).to_s

      # Ensure the file exists, if not, create it
      unless File.exist?(Settings::AI_DEX_ENTRIES_PATH)
        File.write(Settings::AI_DEX_ENTRIES_PATH, '{}')
      end

      json_data = File.read(Settings::AI_DEX_ENTRIES_PATH)
      data = HTTPLite::JSON.parse(json_data)

      # Check if the entry exists
      unless data[head_number] && data[head_number][body_number]
        # If not, fetch it from the API
        url = Settings::AI_ENTRIES_URL + "?head=#{head_number}&body=#{body_number}"
        if !requestRateExceeded?(Settings::AI_ENTRIES_RATE_LOG_FILE, Settings::AI_ENTRIES_RATE_TIME_WINDOW, Settings::AI_ENTRIES_RATE_MAX_NB_REQUESTS)
          fetched_entry = clean_json_string(pbDownloadToString(url))
        else
          echoln "API rate exceeded for AI entries"
        end
        return nil if !fetched_entry || fetched_entry.empty?
        # If the fetched entry is valid, update the JSON and save it
        unless fetched_entry.empty?
          data[head_number] ||= {}
          data[head_number][body_number] = fetched_entry
          serialized_data = serialize_json(data)
          File.write(Settings::AI_DEX_ENTRIES_PATH, serialized_data)
        else
          echoln "No AI entry found for Pokemon " + pokemonID.to_s
          return nil
        end
      end

      entry = data[head_number][body_number]
      entry = entry.gsub(Settings::CUSTOM_ENTRIES_NAME_PLACEHOLDER, name)
      entry = entry.gsub("\n", "")

      # Unescape any escaped quotes before returning the entry
      entry = entry.gsub('\\"', '"')
      return clean_json_string(entry)
    rescue MKXPError
      return nil
    end
  end

  def pbFindEncounter(enc_types, species)
    return false if !enc_types
    enc_types.each_value do |slots|
      next if !slots
      slots.each { |slot| return true if GameData::Species.get(slot[1]).species == species }
    end
    return false
  end

  def drawPageArea
    @sprites["background"].setBitmap("Graphics/Pictures/Pokedex/bg_area")
    overlay = @sprites["overlay"].bitmap
    base = Color.new(88, 88, 80)
    shadow = Color.new(168, 184, 184)

    if isDarkMode
      base, shadow = shadow, base
    end

    @sprites["areahighlight"].bitmap.clear
    # Fill the array "points" with all squares of the region map in which the
    # species can be found
    points = []
    mapwidth = 1 + PokemonRegionMap_Scene::RIGHT - PokemonRegionMap_Scene::LEFT
    GameData::Encounter.each_of_version($PokemonGlobal.encounter_version) do |enc_data|
      next if !pbFindEncounter(enc_data.types, @species)
      map_metadata = GameData::MapMetadata.try_get(enc_data.map)
      mappos = (map_metadata) ? map_metadata.town_map_position : nil
      next if !mappos || mappos[0] != @region
      showpoint = true
      for loc in @mapdata[@region][2]
        showpoint = false if loc[0] == mappos[1] && loc[1] == mappos[2] &&
          loc[7] && !$game_switches[loc[7]]
      end
      next if !showpoint
      mapsize = map_metadata.town_map_size
      if mapsize && mapsize[0] && mapsize[0] > 0
        sqwidth = mapsize[0]
        sqheight = (mapsize[1].length * 1.0 / mapsize[0]).ceil
        for i in 0...sqwidth
          for j in 0...sqheight
            if mapsize[1][i + j * sqwidth, 1].to_i > 0
              points[mappos[1] + i + (mappos[2] + j) * mapwidth] = true
            end
          end
        end
      else
        points[mappos[1] + mappos[2] * mapwidth] = true
      end
    end
    # Draw coloured squares on each square of the region map with a nest
    pointcolor = Color.new(0, 248, 248)
    pointcolorhl = Color.new(192, 248, 248)
    sqwidth = PokemonRegionMap_Scene::SQUAREWIDTH
    sqheight = PokemonRegionMap_Scene::SQUAREHEIGHT
    for j in 0...points.length
      if points[j]
        x = (j % mapwidth) * sqwidth
        x += (Graphics.width - @sprites["areamap"].bitmap.width) / 2
        y = (j / mapwidth) * sqheight
        y += (Graphics.height + 32 - @sprites["areamap"].bitmap.height) / 2
        @sprites["areahighlight"].bitmap.fill_rect(x, y, sqwidth, sqheight, pointcolor)
        if j - mapwidth < 0 || !points[j - mapwidth]
          @sprites["areahighlight"].bitmap.fill_rect(x, y - 2, sqwidth, 2, pointcolorhl)
        end
        if j + mapwidth >= points.length || !points[j + mapwidth]
          @sprites["areahighlight"].bitmap.fill_rect(x, y + sqheight, sqwidth, 2, pointcolorhl)
        end
        if j % mapwidth == 0 || !points[j - 1]
          @sprites["areahighlight"].bitmap.fill_rect(x - 2, y, 2, sqheight, pointcolorhl)
        end
        if (j + 1) % mapwidth == 0 || !points[j + 1]
          @sprites["areahighlight"].bitmap.fill_rect(x + sqwidth, y, 2, sqheight, pointcolorhl)
        end
      end
    end
    # Set the text
    textpos = []
    if points.length == 0
      pbDrawImagePositions(overlay, [
        [sprintf("Graphics/Pictures/Pokedex/overlay_areanone"), 108, 188]
      ])
      textpos.push([_INTL("Area unknown"), Graphics.width / 2, Graphics.height / 2 - 6, 2, base, shadow])
    end
    textpos.push([pbGetMessage(MessageTypes::RegionNames, @region), 414, 38, 2, base, shadow])
    textpos.push([_INTL("{1}'s area", GameData::Species.get(@species).name),
                  Graphics.width / 2, 346, 2, base, shadow])
    pbDrawTextPositions(overlay, textpos)
  end

  def drawPageForms
    @sprites["background"].setBitmap("Graphics/Pictures/Pokedex/bg_forms")
    overlay = @sprites["overlay"].bitmap
    base = Color.new(88, 88, 80)
    shadow = Color.new(168, 184, 184)

    if isDarkMode
      base, shadow = shadow, base
    end

    # Write species and form name
    formname = ""
    for i in @available
      if i[1] == @gender && i[2] == @form
        formname = i[0]; break
      end
    end
    textpos = [
      [GameData::Species.get(@species).name, Graphics.width / 2, Graphics.height - 94, 2, base, shadow],
      [formname, Graphics.width / 2, Graphics.height - 62, 2, base, shadow],
    ]
    # Draw all text
    pbDrawTextPositions(overlay, textpos)
  end

  def pbGoToPrevious
    @displayed_pif_sprite = nil
    @entry_page = 0
    @randomEntryText = nil
    newindex = @index
    while newindex > 0
      newindex -= 1
      if $Trainer.seen?(@dexlist[newindex][0])
        @index = newindex
        break
      end
    end
  end

  def pbGoToNext
    @displayed_pif_sprite = nil
    @entry_page = 0
    @randomEntryText = nil
    newindex = @index
    while newindex < @dexlist.length - 1
      newindex += 1
      if $Trainer.seen?(@dexlist[newindex][0])
        @index = newindex
        break
      end
    end
  end

  def updateBlacklistIconVisibility
    visible = (@page == 3 && @selecting_sprites && @selecting_blacklist)
    visible = false unless $PokemonSystem.random_sprites
    %w[
    selectedSprite
    previousSprite
    nextSprite
  ].each do |base|
      next unless @sprites["#{base}_blacklistEnabled"]

      @sprites["#{base}_blacklistEnabled"].visible &&= visible
      @sprites["#{base}_blacklistDisabled"].visible &&= visible
      @sprites["#{base}_blacklistAutogen"].visible &&= visible
    end
  end

  def updateBlackListInstructionIcons
    visible = (@page == 3 && @fromSummary && !@selecting_sprites)
    visible = false unless $PokemonSystem.random_sprites
    @sprites["downarrow"].visible = visible
    @sprites["blacklistIcon"].visible = visible
  end

  def pbScene
    Pokemon.play_cry(@species, @form)
    @selecting_sprites = false
    until @endscene
      Graphics.update
      Input.update
      pbUpdate
      updateBlackListInstructionIcons

      dorefresh = false

      if Input.trigger?(Input::BACK)
        pbPlayCloseMenuSE
        break

      elsif Input.trigger?(Input::USE)
        if @page == 1
          changeEntryPage
        elsif @page == 3
          pbPlayDecisionSE
          pbChooseAlt
          dorefresh = true
        end

      elsif Input.trigger?(Input::UP)
        dorefresh = handleVerticalInput(-1)

      elsif Input.trigger?(Input::DOWN)
        dorefresh = handleVerticalInput(1)

      elsif Input.trigger?(Input::RIGHT) && @page == 3 && @fromSummary
        pbPlayDecisionSE
        pbChooseAlt
        dorefresh = true
      elsif Input.trigger?(Input::LEFT) || Input.trigger?(Input::RIGHT)
        oldpage = @page
        @page += (Input.trigger?(Input::RIGHT) ? 2 : -2)
        @page = 1 if @page < 1
        @page = 3 if @page > 3
        pbPlayCursorSE if @page != oldpage
        dorefresh = true if @page != oldpage
      elsif Input.trigger?(Input::AUX2) && @page == 1
        update_displayed_sprite(1)
      elsif Input.trigger?(Input::AUX1) && @page == 1
        update_displayed_sprite(-1)
      end

      drawPage(@page) if dorefresh
    end

    return @index
  end

  def update_displayed_sprite(delta)
    playCry(@species)
    if @available && @available.size > 1
      @selected_index = ((@selected_index || 0) + delta) % @available.size
      @displayed_pif_sprite = @available[@selected_index]
      @sprites["infosprite"].setPokemonBitmapPIFSprite(@displayed_pif_sprite)
    else
      @displayed_pif_sprite = nil
    end
    reloadDexEntry()
  end

  def handleVerticalInput(direction)
    dorefresh = false
    if @page == 3 && @fromSummary
      pbSEPlay("GUI storage show party panel")
      @selecting_blacklist = (direction > 0)
      pbChooseAlt
    else
      oldindex = @index
      direction > 0 ? pbGoToNext : pbGoToPrevious

      if @index != oldindex
        @selected_index = 0
        pbUpdateDummyPokemon
        @available = pbGetAvailableForms
        pbSEStop
        (@page == 1) ? Pokemon.play_cry(@species, @form) : pbPlayCursorSE
        dorefresh = true
      end
    end
    return dorefresh
  end

  def pbSceneBrief
    Pokemon.play_cry(@species, @form)
    loop do
      Graphics.update
      Input.update
      pbUpdate
      if Input.trigger?(Input::ACTION)
        changeEntryPage()
        Pokemon.play_cry(@species, @form)
      elsif Input.trigger?(Input::BACK)
        pbPlayCloseMenuSE
        break
      elsif Input.trigger?(Input::USE)
        pbPlayDecisionSE
        break
      elsif Input.trigger?(Input::RIGHT) || Input.trigger?(Input::LEFT)
        changeEntryPage()
      end
    end
  end

  def pbSelectSpritesSceneBrief
    pbChooseAlt(true)
  end

end

#===============================================================================
#
#===============================================================================
class PokemonPokedexInfoScreen
  def initialize(scene)
    @scene = scene
  end

  def pbStartScreen(dexlist, index, region)
    @scene.pbStartScene(dexlist, index, region)
    ret = @scene.pbScene
    @scene.pbEndScene
    return ret # Index of last species viewed in dexlist
  end

  def pbStartSceneSingle(pokemon)
    species = pokemon.species
    # For use from a Pokémon's summary screen
    region = -1
    if Settings::USE_CURRENT_REGION_DEX
      region = pbGetCurrentRegion
      region = -1 if region >= $Trainer.pokedex.dexes_count - 1
    else
      region = $PokemonGlobal.pokedexDex # National Dex -1, regional Dexes 0, 1, etc.
    end
    dexnum = GameData::Species.get(species).id_number # pbGetRegionalNumber(region,species)
    dexnumshift = Settings::DEXES_WITH_OFFSETS.include?(region)
    dexlist = [[species, GameData::Species.get(species).name, 0, 0, dexnum, dexnumshift]]
    @scene.pbStartScene(dexlist, 0, region, pokemon, true)
    @scene.pbScene
    @scene.pbEndScene
  end

  def pbDexEntry(pokemon)
    species = pokemon.species

    # For use when capturing a new species
    nb_sprites_for_alts_page = isSpeciesFusion(species) ? 2 : 1
    alts_list = @scene.pbGetAvailableForms(species)
    if alts_list.length > nb_sprites_for_alts_page
      @scene.pbStartSpritesSelectSceneBrief(species, alts_list, pokemon)
      @scene.pbSelectSpritesSceneBrief
      @scene.pbEndScene
    end
    @scene.pbStartSceneBrief(pokemon)
    @scene.pbSceneBrief
    @scene.pbEndScene
  end
end