# Contains conversions defined in Essentials by default.

SaveData.register_conversion(:v19_define_versions) do
  essentials_version 19
  display_title 'Adding game version and Essentials version to save data'
  to_all do |save_data|
    unless save_data.has_key?(:essentials_version)
      save_data[:essentials_version] = Essentials::VERSION
    end
    unless save_data.has_key?(:game_version)
      save_data[:game_version] = Settings::GAME_VERSION
    end
  end
end

SaveData.register_conversion(:v19_convert_PokemonSystem) do
  essentials_version 19
  display_title 'Updating PokemonSystem class'
  to_all do |save_data|
    new_system = PokemonSystem.new
    new_system.textspeed   = save_data[:pokemon_system].textspeed || new_system.textspeed
    new_system.battlescene = save_data[:pokemon_system].battlescene || new_system.battlescene
    new_system.battlestyle = save_data[:pokemon_system].battlestyle || new_system.battlestyle
    new_system.frame       = save_data[:pokemon_system].frame || new_system.frame
    new_system.textskin    = save_data[:pokemon_system].textskin || new_system.textskin
    new_system.screensize  = save_data[:pokemon_system].screensize || new_system.screensize
    new_system.language    = save_data[:pokemon_system].language || new_system.language
    new_system.runstyle    = save_data[:pokemon_system].runstyle || new_system.runstyle
    new_system.bgmvolume   = save_data[:pokemon_system].bgmvolume || new_system.bgmvolume
    new_system.sevolume    = save_data[:pokemon_system].sevolume || new_system.sevolume
    new_system.textinput   = save_data[:pokemon_system].textinput || new_system.textinput
    save_data[:pokemon_system] = new_system
  end
end

SaveData.register_conversion(:v19_convert_player) do
  essentials_version 19
  display_title 'Converting player trainer class'
  to_all do |save_data|
    next if save_data[:player].is_a?(Player)
    # Conversion of the party is handled in PokeBattle_Trainer.convert
    save_data[:player] = PokeBattle_Trainer.convert(save_data[:player])
  end
end

SaveData.register_conversion(:v19_move_global_data_to_player) do
  essentials_version 19
  display_title 'Moving some global metadata data to player'
  to_all do |save_data|
    global = save_data[:global_metadata]
    player = save_data[:player]
    player.character_ID = global.playerID
    global.playerID = nil
    global.pokedexUnlocked.each_with_index do |value, i|
      if value
        player.pokedex.unlock(i)
      else
        player.pokedex.lock(i)
      end
    end
    player.coins = global.coins
    global.coins = nil
    player.soot = global.sootsack
    global.sootsack = nil
    player.has_running_shoes = global.runningShoes
    global.runningShoes = nil
    player.seen_storage_creator = global.seenStorageCreator
    global.seenStorageCreator = nil
    player.has_snag_machine = global.snagMachine
    global.snagMachine = nil
    player.seen_purify_chamber = global.seenPurifyChamber
    global.seenPurifyChamber = nil
  end
end

SaveData.register_conversion(:v19_convert_global_metadata) do
  essentials_version 19
  display_title 'Adding encounter version variable to global metadata'
  to_value :global_metadata do |global|
    global.bridge ||= 0
    global.encounter_version ||= 0
    if global.pcItemStorage
      global.pcItemStorage.items.each_with_index do |slot, i|
        item_data = GameData::Item.try_get(slot[0])
        if item_data
          slot[0] = item_data.id
        else
          global.pcItemStorage.items[i] = nil
        end
      end
      global.pcItemStorage.items.compact!
    end
    if global.mailbox
      global.mailbox.each_with_index do |mail, i|
        global.mailbox[i] = PokemonMail.convert(mail) if mail
      end
    end
    global.phoneNumbers.each do |contact|
      contact[1] = GameData::TrainerType.get(contact[1]).id if contact && contact.length == 8
    end
    if global.partner
      global.partner[0] = GameData::TrainerType.get(global.partner[0]).id
      global.partner[3].each_with_index do |pkmn, i|
        global.partner[3][i] = PokeBattle_Pokemon.convert(pkmn) if pkmn
      end
    end
    if global.daycare
      global.daycare.each do |slot|
        slot[0] = PokeBattle_Pokemon.convert(slot[0]) if slot && slot[0]
      end
    end
    if global.roamPokemon
      global.roamPokemon.each_with_index do |pkmn, i|
        global.roamPokemon[i] = PokeBattle_Pokemon.convert(pkmn) if pkmn && pkmn != true
      end
    end
    global.purifyChamber.sets.each do |set|
      set.shadow = PokeBattle_Pokemon.convert(set.shadow) if set.shadow
      set.list.each_with_index do |pkmn, i|
        set.list[i] = PokeBattle_Pokemon.convert(pkmn) if pkmn
      end
    end
    if global.hallOfFame
      global.hallOfFame.each do |team|
        next if !team
        team.each_with_index do |pkmn, i|
          team[i] = PokeBattle_Pokemon.convert(pkmn) if pkmn
        end
      end
    end
    if global.triads
      global.triads.items.each do |card|
        card[0] = GameData::Species.get(card[0]).id if card && card[0] && card[0] != 0
      end
    end
  end
end

SaveData.register_conversion(:v19_1_fix_phone_contacts) do
  essentials_version 19.1
  display_title 'Fixing phone contacts data'
  to_value :global_metadata do |global|
    global.phoneNumbers.each do |contact|
      contact[1] = GameData::TrainerType.get(contact[1]).id if contact && contact.length == 8
    end
  end
end

SaveData.register_conversion(:v19_1_1_fix_berry_plants) do
  essentials_version "19.1.1"
  display_title 'Fixing berry plant data'
  to_value :global_metadata do |global|
    berry_conversion = {
      389 => :CHERIBERRY,
      390 => :CHESTOBERRY,
      391 => :PECHABERRY,
      392 => :RAWSTBERRY,
      393 => :ASPEARBERRY,
      394 => :LEPPABERRY,
      395 => :ORANBERRY,
      396 => :PERSIMBERRY,
      397 => :LUMBERRY,
      398 => :SITRUSBERRY,
      399 => :FIGYBERRY,
      400 => :WIKIBERRY,
      401 => :MAGOBERRY,
      402 => :AGUAVBERRY,
      403 => :IAPAPABERRY,
      404 => :RAZZBERRY,
      405 => :BLUKBERRY,
      406 => :NANABBERRY,
      407 => :WEPEARBERRY,
      408 => :PINAPBERRY,
      409 => :POMEGBERRY,
      410 => :KELPSYBERRY,
      411 => :QUALOTBERRY,
      412 => :HONDEWBERRY,
      413 => :GREPABERRY,
      414 => :TAMATOBERRY,
      415 => :CORNNBERRY,
      416 => :MAGOSTBERRY,
      417 => :RABUTABERRY,
      418 => :NOMELBERRY,
      419 => :SPELONBERRY,
      420 => :PAMTREBERRY,
      421 => :WATMELBERRY,
      422 => :DURINBERRY,
      423 => :BELUEBERRY,
      424 => :OCCABERRY,
      425 => :PASSHOBERRY,
      426 => :WACANBERRY,
      427 => :RINDOBERRY,
      428 => :YACHEBERRY,
      429 => :CHOPLEBERRY,
      430 => :KEBIABERRY,
      431 => :SHUCABERRY,
      432 => :COBABERRY,
      433 => :PAYAPABERRY,
      434 => :TANGABERRY,
      435 => :CHARTIBERRY,
      436 => :KASIBBERRY,
      437 => :HABANBERRY,
      438 => :COLBURBERRY,
      439 => :BABIRIBERRY,
      440 => :CHILANBERRY,
      441 => :LIECHIBERRY,
      442 => :GANLONBERRY,
      443 => :SALACBERRY,
      444 => :PETAYABERRY,
      445 => :APICOTBERRY,
      446 => :LANSATBERRY,
      447 => :STARFBERRY,
      448 => :ENIGMABERRY,
      449 => :MICLEBERRY,
      450 => :CUSTAPBERRY,
      451 => :JABOCABERRY,
      452 => :ROWAPBERRY
    }
    mulch_conversion = {
      59 => :GROWTHMULCH,
      60 => :DAMPMULCH,
      61 => :STABLEMULCH,
      62 => :GOOEYMULCH
    }
    global.eventvars.each do |var|
      next if !var || !var.ia_a?(Array)
      next if var.length < 6 || var.length > 8   # Neither old nor new berry plant
      if !var[1].is_a?(Symbol)   # Planted berry item
        var[1] = berry_conversion[var[1]] || :ORANBERRY
      end
      if var[7] && !var[7].is_a?(Symbol)   # Mulch
        var[7] = mulch_conversion[var[7]]
      end
    end
  end
end

SaveData.register_conversion(:v19_convert_bag) do
  essentials_version 19
  display_title 'Converting item IDs in Bag'
  to_value :bag do |bag|
    bag.instance_eval do
      for pocket in self.pockets
        pocket.each_with_index do |item, i|
          next if !item || !item[0] || item[0] == 0
          item_data = GameData::Item.try_get(item[0])
          if item_data
            item[0] = item_data.id
          else
            pocket[i] = nil
          end
        end
        pocket.compact!
      end
      self.registeredIndex   # Just to ensure this data exists
      self.registeredItems.each_with_index do |item, i|
        next if !item
        if item == 0
          self.registeredItems[i] = nil
        else
          item_data = GameData::Item.try_get(item)
          if item_data
            self.registeredItems[i] = item_data.id
          else
            self.registeredItems[i] = nil
          end
        end
      end
      self.registeredItems.compact!
    end   # bag.instance_eval
  end   # to_value
end

SaveData.register_conversion(:v19_convert_game_variables) do
  essentials_version 19
  display_title 'Converting classes of things in Game Variables'
  to_all do |save_data|
    variables = save_data[:variables]
    for i in 0..5000
      value = variables[i]
      next if value.nil?
      if value.is_a?(Array)
        value.each_with_index do |value2, j|
          if value2.is_a?(PokeBattle_Pokemon)
            value[j] = PokeBattle_Pokemon.convert(value2)
          end
        end
      elsif value.is_a?(PokeBattle_Pokemon)
        variables[i] = PokeBattle_Pokemon.convert(value)
      elsif value.is_a?(PokemonBag)
        SaveData.run_single_conversions(value, :bag, save_data)
      end
    end
  end
end

SaveData.register_conversion(:v19_convert_storage) do
  essentials_version 19
  display_title 'Converting classes of Pokémon in storage'
  to_value :storage_system do |storage|
    storage.instance_eval do
      for box in 0...self.maxBoxes
        for i in 0...self.maxPokemon(box)
          self[box, i] = PokeBattle_Pokemon.convert(self[box, i]) if self[box, i]
        end
      end
      self.unlockedWallpapers   # Just to ensure this data exists
    end   # storage.instance_eval
  end   # to_value
end

SaveData.register_conversion(:v19_convert_game_player) do
  essentials_version 19
  display_title 'Converting game player character'
  to_value :game_player do |game_player|
    game_player.width = 1
    game_player.height = 1
    game_player.sprite_size = [Game_Map::TILE_WIDTH, Game_Map::TILE_HEIGHT]
    game_player.pattern_surf ||= 0
    game_player.lock_pattern ||= false
    game_player.move_speed = game_player.move_speed
  end
end

SaveData.register_conversion(:v19_convert_game_screen) do
  essentials_version 19
  display_title 'Converting game screen'
  to_value :game_screen do |game_screen|
    game_screen.weather(game_screen.weather_type, game_screen.weather_max, 0)
  end
end