Save Selection

# - sorry it took so god damn long :(

# The background image of the save selection
BackgroundImage = "Graphics/Titles/credits4"

class Game_Temp
  attr_accessor :save_slot
end

class SelectableSprite < Sprite
  def initialize(bitmap, viewport = nil)
    super(viewport)
    @selected = false
    self.bmp(bitmap)
    self.src_rect.width = self.bmp.width / 2
  end

  def selected?
    return @selected
  end

  def select(*interval)
    @selected = true
    if interval.size > 0
      @time = interval.max + 1
      @interval = interval
      @i = 0
    else
      self.src_rect.x = self.src_rect.width
    end
  end

  def deselect
    @selected = false
    self.src_rect.x = 0
  end

  def update
    if @time
      if @interval.include?(@i)
        self.select
      else
        self.deselect
      end
      @i += 1
      if @i > @time
        @time = nil
        @interval = nil
        @i = nil
      end
    end
  end
end

class SaveSelection
  def main # Actually the initializer, but it tricks $scene into starting this
    $PokemonTemp   = PokemonTemp.new
    $game_temp     = Game_Temp.new
    $game_system   = Game_System.new
    $PokemonSystem = PokemonSystem.new if !$PokemonSystem
    @viewport = Viewport.new(0,0,Graphics.width,Graphics.height)
    @viewport.z = 99999
    @path = "Graphics/Pictures/Save Selection/"
    @sprites = SpriteHash.new
    @sprites["bg"] = Sprite.new(@viewport)
    @sprites["bg"].bmp(BackgroundImage)
    @sprites["left"] = SelectableSprite.new(@path + "left_arrow", @viewport)
    @sprites["left"].y = 66
    @sprites["right"] = SelectableSprite.new(@path + "right_arrow", @viewport)
    @sprites["right"].xyz = 478, 66
    @sprites["delete"] = SpriteHash.new
    @sprites["delete"]["panel"] = SelectableSprite.new(@path + "delete_button", @viewport)
    @sprites["delete"]["panel"].xyz = 160, 288
    @sprites["delete"]["text"] = TextSprite.new(@viewport, nil, 192, 32)
    @sprites["delete"]["text"].xyz = @sprites["delete"]["panel"].xyz
    pbSetSmallFont(@sprites["delete"]["text"].bmp)
    @sprites["delete"]["text"].draw([
        ["Delete Game", 96, 2, 2, Color.new(255, 255, 255), Color.new(32, 32, 32)]
    ])
    @sprites["down"] = SelectableSprite.new(@path + "down_arrow", @viewport)
    @sprites["down"].xyz = 194, 350
    @sprites["up"] = SelectableSprite.new(@path + "up_arrow", @viewport)
    @sprites["up"].xyz = 194, 384
    @sprites["buttons"] = SpriteHash.new
    @sel = 0
    @save_index = 1
    load_save(@save_index, true)
    Graphics.transition
    mainloop
  end

  def load_save(index, initial = false)
    filename = RTP.getSaveFileName("Game_#{index}.rxdata")
    oldnewgame = @new_game
    if safeExists?(filename)
      $Trainer, Graphics.frame_count,
          $game_system, $PokemonSystem, @mapid,
          $PokemonGlobal = try_load(filename)
      @new_game = false
    else
      @new_game = true
    end
    if !initial
      pbSEPlay("load_eject")
      for i in 0...4
        Graphics.update
        Input.update
        update
        @sprites["cartridge"].y += 3
      end
      4.times { Graphics.update; Input.update; update }
      for i in 0...4
        Graphics.update
        Input.update
        update
        @sprites["cartridge"].y -= 3
      end
      for i in 0...21
        Graphics.update
        Input.update
        update
        sy = -2 * i * 1.1 ** i
        @sprites["cartridge"].y = sy
        @sprites["delete"].opacity -= 16 if @new_game && !oldnewgame
      end
      @sprites["cartridge"].y = 0
    end
    @sprites["cartridge"].dispose if @sprites["cartridge"]
    @sprites["cartridge"] = nil
    for i in 0...4
      if @sprites["buttons"][i]
        @sprites["buttons"][i].dispose
      end
    end
    @sprites["buttons"]["text"].dispose if @sprites["buttons"]["text"]
    if @new_game
      # Credits
      @sprites["buttons"][0] = SelectableSprite.new(@path + "panel_top", @viewport)
      @sprites["buttons"][0].xyz = 48, 112 + 384
      # Quit Game
      @sprites["buttons"][1] = SelectableSprite.new(@path + "panel_bottom", @viewport)
      @sprites["buttons"][1].xyz = 48, 192 + 384
      @sprites["buttons"]["text"] = TextSprite.new(@viewport, [
          ["CREDITS", 256, 112+32, 2, Color.new(255, 255, 255), Color.new(32, 32, 32)],
          ["QUIT GAME", 256, 192+32, 2, Color.new(255, 255, 255), Color.new(32, 32, 32)],
      ])
      @sprites["buttons"]["text"].xyz = 0, 384, 1

      @sprites["cartridge"] = SpriteHash.new
      @sprites["cartridge"]["panel"] = SelectableSprite.new(@path + "new_button", @viewport)
      @sprites["cartridge"]["panel"].xyz = 64, 40
      @sprites["cartridge"]["panel"].select
      @sprites["cartridge"]["text"] = TextSprite.new(@viewport, [
          "Slot #{index}: New Game", 192, 82, 2, Color.new(255, 255, 255), Color.new(32, 32, 32)
      ], 384, 192)
      @sprites["cartridge"]["text"].xyz = @sprites["cartridge"]["panel"].xyz
    else
      # Options
      @sprites["buttons"][0] = SelectableSprite.new(@path + "panel_top", @viewport)
      @sprites["buttons"][0].xyz = 48, 48 + 384
      # Mystery Gift
      @sprites["buttons"][1] = SelectableSprite.new(@path + "panel", @viewport)
      @sprites["buttons"][1].xyz = 48, 128 + 384
      # Credits
      @sprites["buttons"][2] = SelectableSprite.new(@path + "panel", @viewport)
      @sprites["buttons"][2].xyz = 48, 208 + 384
      # Quit Game
      @sprites["buttons"][3] = SelectableSprite.new(@path + "panel_bottom", @viewport)
      @sprites["buttons"][3].xyz = 48, 288 + 384
      @sprites["buttons"]["text"] = TextSprite.new(@viewport, [
          ["OPTIONS", 256, 80, 2, Color.new(255, 255, 255), Color.new(32, 32, 32)],
          ["MYSTERY GIFT", 256, 160, 2, Color.new(255, 255, 255), Color.new(32, 32, 32)],
          ["CREDITS", 256, 240, 2, Color.new(255, 255, 255), Color.new(32, 32, 32)],
          ["EXIT GAME", 256, 320, 2, Color.new(255, 255, 255), Color.new(32, 32, 32)],
      ])
      @sprites["buttons"]["text"].xyz = 0, 384, 1

      @sprites["cartridge"] = SpriteHash.new
      @sprites["cartridge"]["panel"] = SelectableSprite.new(@path + "cartridge", @viewport)
      @sprites["cartridge"]["panel"].xyz = 48, 16
      @sprites["cartridge"]["panel"].select
      @sprites["cartridge"]["text"] = TextSprite.new(@viewport,
          ["Slot #{index}", 44, 42, 0, Color.new(255, 255, 255), Color.new(32, 32, 32)],
      414, 240)
      @sprites["cartridge"]["text"].xyz = @sprites["cartridge"]["panel"].xyz
      @sprites["cartridge"]["small"] = TextSprite.new(@viewport, nil, 414, 240)
      @sprites["cartridge"]["small"].xyz = @sprites["cartridge"]["panel"].xyz
      pbSetSmallFont(@sprites["cartridge"]["small"].bmp)
      totalsec = Graphics.frame_count / Graphics.frame_rate
      hour = totalsec / 60 / 60
      min = totalsec / 60 % 60
      sec = totalsec % 60
      if hour > 999
        hour = 999
        min = 59
        sec = 59
      end
      hour = hour.to_digits(2)
      min = min.to_digits(2)
      sec = sec.to_digits(2)
      @sprites["cartridge"]["small"].draw([
          ["Badges", 54, 146, 0, Color.new(255, 255, 255), Color.new(32, 32, 32)],
          [$Trainer.numbadges.to_s, 192, 146, 1, Color.new(212, 204, 87), Color.new(32, 32, 32)],
          ["Money", 54, 178, 0, Color.new(255, 255, 255), Color.new(32, 32, 32)],
          [get_money_text($Trainer.money), 192, 178, 1, Color.new(212, 204, 87), Color.new(32, 32, 32)],
          ["Pokédex", 218, 146, 0, Color.new(255, 255, 255), Color.new(32, 32, 32)],
          [$Trainer.pokedexOwned.to_s + "/" + $Trainer.pokedexSeen.to_s, 366, 146, 1, Color.new(212, 204, 87), Color.new(32, 32, 32)],
          ["Time", 218, 178, 0, Color.new(255, 255, 255), Color.new(32, 32, 32)],
          ["#{hour}:#{min}:#{sec}", 366, 178, 1, Color.new(212, 204, 87), Color.new(32, 32, 32)],
      ])
      @sprites["cartridge"]["party"] = SpriteHash.new
      for i in 0...$Trainer.party.size
        p = $Trainer.party[i]
        s = PokemonSpeciesIconSprite.new(p.species, @viewport)
        s.xyz = 64 + 64 * i, 90
        @sprites["cartridge"]["party"][i] = s
      end
      meta = pbGetMetadata(0, MetadataPlayerA + $Trainer.metaID)
      if meta
        filename = pbGetPlayerCharset(meta, 1, $Trainer)
        @sprites["cartridge"]["char"] = TrainerWalkingCharSprite.new(filename, @viewport)
        cw = @sprites["cartridge"]["char"].bitmap.width
        ch = @sprites["cartridge"]["char"].bitmap.height
        @sprites["cartridge"]["char"].xyz = 238, 10
        @sprites["cartridge"]["char"].src_rect = Rect.new(0, 0, cw / 4, ch / 4)
      end
    end
    if !initial
      @sprites["cartridge"].y = sy
      12.times { Graphics.update; Input.update; update }
      for i in 0...21
        Graphics.update
        Input.update
        update
        @sprites["cartridge"].y = sy + 2 * i * 1.1 ** i
        @sprites["delete"].opacity += 16 if !@new_game
      end
      pbSEPlay("load_click")
      @sprites["cartridge"].y = 0
      for i in 0...4
        Graphics.update
        Input.update
        update
        @sprites["cartridge"].y += 3
      end
      4.times { Graphics.update; Input.update; update }
      for i in 0...4
        Graphics.update
        Input.update
        update
        @sprites["cartridge"].y -= 3
      end
    end
  end

  def change_sel(sel)
    mult1 = mult2 = sel == 2 ? 1 : -1
    if sel == 2
      @sprites["down"].select(1, 2, 3, 9, 10, 11)
      @sprites["buttons"][0].select
    else
      @sprites["up"].select(1, 2, 3, 9, 10, 11)
      if !@new_game
        @sprites["delete"]["panel"].select
      end
    end
    pbSEPlay("load_cursor")
    16.times { Graphics.update; Input.update; update }
    frames = 24
    for i in 0...frames
      Graphics.update
      Input.update
      update
      @sprites["cartridge"].y -= mult1 * 384.0 / frames
      @sprites["left"].y -= mult1 * 384.0 / frames
      @sprites["right"].y -= mult1 * 384.0 / frames
      @sprites["delete"].y -= mult1 * 384.0 / frames
      @sprites["down"].y -= mult1 * 384.0 / frames
      @sprites["up"].y -= mult2 * 384.0 / frames
      @sprites["buttons"].y -= mult2 * 384.0 / frames
    end
    if sel == 2
      @sprites["delete"]["panel"].deselect
    else
      @sprites["buttons"][0].deselect
    end
    if @new_game && sel == 1
      @sel = 0
    else
      @sel = sel
    end
  end

  def get_money_text(n)
    return "$0" if n <= 0
    return "$" + n.to_s if n >= 0 && n < 1000
    level = 0
    int = n
    while int > 999
      int = (int / 1000.0).floor
      level += 1
    end
    display = (10 * n / (1000.0 ** level)).floor / 10.0
    suffix = ["k", "M", "B", "T", "P", "E", "Z", "Y"]
    return "$999.9#{suffix[suffix.size - 1]}" if level > suffix.size
    return "$" + display.to_s + suffix[level - 1]
  end

  def try_load(filename)
    trainer = nil
    framecount = nil
    game_system = nil
    pokemon_system = nil
    mapid = nil
    pokemonglobal = nil
    File.open(filename) do |f|
      trainer = Marshal.load(f)
      framecount = Marshal.load(f)
      game_system = Marshal.load(f)
      pokemon_system = Marshal.load(f)
      mapid = Marshal.load(f)
      Marshal.load(f)
      Marshal.load(f)
      Marshal.load(f)
      Marshal.load(f)
      Marshal.load(f)
      Marshal.load(f)
      pokemonglobal = Marshal.load(f)
    end
    raise "Corrupted file" if !trainer.is_a?(PokeBattle_Trainer)
    raise "Corrupted file" if !framecount.is_a?(Numeric)
    raise "Corrupted file" if !game_system.is_a?(Game_System)
    raise "Corrupted file" if !pokemon_system.is_a?(PokemonSystem)
    raise "Corrupted file" if !mapid.is_a?(Numeric)
    raise "Corrupted file" if !pokemonglobal.is_a?(PokemonGlobalMetadata)
    return [trainer, framecount, game_system, pokemon_system, mapid, pokemonglobal]
  end

  def mainloop
    loop do
      Graphics.update
      Input.update
      update
      if @sel == 0 # Save File
        if Input.trigger?(Input::RIGHT)
          @save_index += 1
          @save_index = 1 if @save_index > 3
          @sprites["right"].select(1, 2, 3, 9, 10, 11)
          load_save(@save_index)
        end
        if Input.trigger?(Input::LEFT)
          @save_index -= 1
          @save_index = 3 if @save_index < 1
          @sprites["left"].select(1, 2, 3, 9, 10, 11)
          load_save(@save_index)
        end
      end
      if Input.trigger?(Input::DOWN)
        if @sel == 0 && !@new_game
          pbSEPlay("load_cursor")
          @sel = 1
          @sprites["cartridge"]["panel"].deselect
          @sprites["delete"]["panel"].select
        elsif @sel == 1 || @sel == 0 && @new_game # Delete Button / front card if empty
          change_sel(2)
        elsif !@new_game && @sel < 5 || @new_game && @sel < 3
          pbSEPlay("load_cursor")
          @sprites["buttons"][@sel - 2].deselect
          @sel += 1
          @sprites["buttons"][@sel - 2].select
        end
      end
      if Input.trigger?(Input::UP)
        if @sel == 1
          pbSEPlay("load_cursor")
          @sel = 0
          @sprites["cartridge"]["panel"].select
          @sprites["delete"]["panel"].deselect
        elsif @sel == 2
          change_sel(1)
        elsif @sel > 2
          pbSEPlay("load_cursor")
          @sprites["buttons"][@sel - 2].deselect
          @sel -= 1
          @sprites["buttons"][@sel - 2].select
        end
      end
      if Input.trigger?(Input::C)
        if @sel == 0
          pbSEPlay("load_go")
        else
          pbSEPlay("load_cursor")
        end
        confirm_choice
      end
      break if @disposed
    end
  end

  def confirm_choice
    case @sel
    when 0 # Save File
      filename = RTP.getSaveFileName("Game_#{@save_index}.rxdata")
      if safeExists?(filename)
        continue_game
      else
        new_game
      end
    when 1 # Delete Save
      confirm_delete
    when 2 # Options
      @new_game ? credits : options
    when 3 # Mystery Gift
      @new_game ? quit_game : mystery_gift
    when 4 # Credits
      credits
    when 5 # Quit Game
      quit_game
    end
  end

  def continue_game
    metadata = nil
    $game_temp.save_slot = @save_index
    filename = RTP.getSaveFileName("Game_#{@save_index}.rxdata")
    File.open(filename) do |f|
      Marshal.load(f) # Trainer already loaded
      Graphics.frame_count = Marshal.load(f)
      $game_system         = Marshal.load(f)
      Marshal.load(f) # PokemonSystem already loaded
      Marshal.load(f) # Current map id no longer needed
      $game_switches       = Marshal.load(f)
      $game_variables      = Marshal.load(f)
      $game_self_switches  = Marshal.load(f)
      $game_screen         = Marshal.load(f)
      $MapFactory          = Marshal.load(f)
      $game_map            = $MapFactory.map
      $game_player         = Marshal.load(f)
      Marshal.load(f) # PokemonGlobal already loaded
      metadata             = Marshal.load(f)
      $PokemonBag          = Marshal.load(f)
      $PokemonStorage      = Marshal.load(f)
      magicNumberMatches = false
      if $data_system.respond_to?("magic_number")
        magicNumberMatches = ($game_system.magic_number == $data_system.magic_number)
      else
        magicNumberMatches = ($game_system.magic_number == $data_system.version_id)
      end
      if !magicNumberMatches || $PokemonGlobal.safesave
        if pbMapInterpreterRunning?
          pbMapInterpreter.setup(nil,0)
        end
        begin
          $MapFactory.setup($game_map.map_id) # calls setMapChanged
        rescue Errno::ENOENT
          if $DEBUG
            Kernel.pbMessage(_INTL("Map {1} was not found.", $game_map.map_id))
            map = pbWarpToMap()
            if map
              $MapFactory.setup(map[0])
              $game_player.moveto(map[1],map[2])
            else
              $game_map = nil
              $scene = nil
              return
            end
          else
            $game_map = nil
            $scene = nil
            Kernel.pbMessage(_INTL("The map was not found. The game cannot continue."))
          end
        end
        $game_player.center($game_player.x, $game_player.y)
      else
        $MapFactory.setMapChanged($game_map.map_id)
      end
    end
    if !$game_map.events # Map wasn't set up
      $game_map = nil
      $scene = nil
      Kernel.pbMessage(_INTL("The map is corrupt. The game cannot continue."))
      return
    end
    $PokemonMap = metadata
    $PokemonEncounters = PokemonEncounters.new
    $PokemonEncounters.setup($game_map.map_id)
    pbAutoplayOnSave
    $game_map.update
    $PokemonMap.updateMap
    $scene = Scene_Map.new
    dispose
  end

  def new_game
    $game_temp.save_slot = @save_index
    if $game_map && $game_map.events
      for event in $game_map.events.values
        event.clear_starting
      end
    end
    $game_temp.common_event_id = 0 if $game_temp
    $scene               = Scene_Map.new
    Graphics.frame_count = 0
    $game_system         = Game_System.new
    $game_switches       = Game_Switches.new
    $game_variables      = Game_Variables.new
    $game_self_switches  = Game_SelfSwitches.new
    $game_screen         = Game_Screen.new
    $game_player         = Game_Player.new
    $PokemonMap          = PokemonMapMetadata.new
    $PokemonGlobal       = PokemonGlobalMetadata.new
    $PokemonStorage      = PokemonStorage.new
    $PokemonEncounters   = PokemonEncounters.new
    $PokemonTemp.begunNewGame = true
    $data_system         = pbLoadRxData("Data/System")
    $MapFactory          = PokemonMapFactory.new($data_system.start_map_id) # calls setMapChanged
    $game_player.moveto($data_system.start_x, $data_system.start_y)
    $game_player.refresh
    $game_map.autoplay
    $game_map.update
    dispose
  end

  def confirm_delete
    blk = Sprite.new(@viewport)
    blk.bmp(-1, -1)
    blk.bmp.fill_rect(0,0,Graphics.width,Graphics.height,Color.new(0,0,0))
    blk.opacity = 0
    blk.z = 999998
    confirm = Sprite.new(@viewport)
    confirm.bmp(@path + "confirm")
    confirm.src_rect.height = confirm.bmp.height / 3
    confirm.x = Graphics.width / 2
    confirm.y = Graphics.height / 2
    confirm.ox = confirm.bmp.width / 2
    confirm.oy = confirm.bmp.height / 6
    confirm.opacity = 0
    confirm.z = 999999
    for i in 0...16
      Graphics.update
      Input.update
      blk.opacity += 12
      confirm.opacity += 16
    end
    cfrm = 0
    loop do
      Graphics.update
      Input.update
      old = cfrm
      if cfrm == 0 && Input.trigger?(Input::DOWN)
        cfrm = 1
      elsif cfrm == 1
        cfrm = 0 if Input.trigger?(Input::UP)
        cfrm = 2 if Input.trigger?(Input::RIGHT)
      elsif cfrm == 2
        cfrm = 0 if Input.trigger?(Input::UP)
        cfrm = 1 if Input.trigger?(Input::LEFT)
      end
      if old != cfrm
        pbSEPlay("load_cursor")
        confirm.src_rect.y = cfrm * confirm.src_rect.height
      end
      if Input.trigger?(Input::C) && cfrm != 0
        break
      elsif Input.trigger?(Input::B)
        cfrm = 1
        break
      end
    end
    pbSEPlay("load_cursor")
    if cfrm == 1 # No

    elsif cfrm == 2 # Yes
      # Delete save
      filename = RTP.getSaveFileName("Game_#{@save_index}.rxdata")
      if safeExists?(filename)
        File.delete(filename)
      end
      @sel = 0
      @sprites["delete"]["panel"].deselect
    end
    for i in 0...16
      Graphics.update
      Input.update
      blk.opacity -= 16
      confirm.opacity -= 16
    end
    blk.dispose
    confirm.dispose
    if cfrm == 2
      load_save(@save_index)
    end
  end

  def options
    scene = PokemonOptionScene.new
    screen = PokemonOption.new(scene)
    pbFadeOutIn(99999) do
      screen.pbStartScreen(true)
    end
  end

  def mystery_gift
    pbFadeOutIn(99999) do
      trainer = pbDownloadMysteryGift(trainer)
    end
  end

  def credits
    oldscene = $scene
    $scene = Scene_Credits.new
    Graphics.freeze
    @sprites.visible = false
    $scene.main
    $scene = oldscene
    @sprites.visible = true
    Graphics.transition
  end

  def quit_game
    Kernel.abort
  end

  def update
    @i ||= 0
    @i += 1
    if @sprites["cartridge"]["party"] && @i % 3 == 0
      @sprites["cartridge"]["party"].update
    end
    if @sprites["cartridge"]["char"]
      @sprites["cartridge"]["char"].update
    end
    @sprites.keys.each do |key|
      next if key == :cartridge
      @sprites[key].update
    end
  end

  def dispose
    @disposed = true
    showBlk { update }
    @sprites.dispose
    @viewport.dispose
    hideBlk
  end
end