# * Reload (load screen improvement) by mewsterus
# * To install, just insert this in a descriptive code slot right above Main
#===============================================================================
# ¦ Window_Load
#-------------------------------------------------------------------------------
#   Edited by mewsterus
#===============================================================================

class Window_Load < Window_Base
  attr_reader   :filename
  attr_reader   :selected
  #-----------------------------------------------------------------------------
  # @ Make the window
  #-----------------------------------------------------------------------------
  def initialize(file_index)
    super(0, 64 + file_index % 4 * 104, 640, 104)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    self.contents_opacity = 155
    self.back_opacity = 160
    @file_index = file_index
    @filename = "Save#{@file_index + 1}.rxdata"
    @selected = false
    refresh
    update
  end
  #-----------------------------------------------------------------------------
  # @ Refresh the window
  #-----------------------------------------------------------------------------
  def refresh
    self.contents.clear
    @time_stamp = Time.at(0)
    @file_exist = FileTest.exist?(@filename)
    if @file_exist
      file = File.open(@filename, "r")
      @time_stamp = file.mtime
      @characters          = Marshal.load(file)
      @frame_count         = Marshal.load(file)
      @game_system         = Marshal.load(file)
      @game_switches       = Marshal.load(file)
      @game_variables      = Marshal.load(file)
      @game_self_switches  = Marshal.load(file)
      @game_screen         = Marshal.load(file)
      @game_actors         = Marshal.load(file)
      @game_party          = Marshal.load(file)
      @game_troop          = Marshal.load(file)
      @game_map            = Marshal.load(file)
      @game_player         = Marshal.load(file)
      @total_sec           = @frame_count / Graphics.frame_rate
      file.close
      self.windowskin = RPG::Cache.windowskin(@game_system.windowskin_name)
      for i in 0...@characters.size
        if $face_enabled
          bitmap = RPG::Cache.picture(@characters[i][0])
          cw = 80
          ch = 80
        else
          bitmap = RPG::Cache.character(@characters[i][0], @characters[i][1])
          cw = bitmap.rect.width / 4
          ch = bitmap.rect.height / 4
        end
        src_rect = Rect.new(0, 0, cw, ch)
        x = 608 + (i - @characters.size) * 84
        self.contents.blt(x, 80 - ch, bitmap, src_rect)
      end
      hour = @total_sec / 60 / 60
      min = @total_sec / 60 % 60
      sec = @total_sec % 60
      text = sprintf("%02d:%02d:%02d", hour, min, sec)
      self.contents.font.color = normal_color
      self.contents.draw_text(4, 8, 256, 32, text, 2)
      time_string = @time_stamp.strftime("%Y/%m/%d %H:%M")
      self.contents.draw_text(4, 40, 256, 32, time_string, 2)
      if $location_enabled
        name = @game_map.name.delete("*").to_s
      else
        name = @game_party.actors[0].name
      end
    else
      self.windowskin = RPG::Cache.windowskin($game_system.windowskin_name)
      name = "[Empty]"
    end
    self.contents.font.color = normal_color
    self.contents.draw_text(4, 8, 600, 32, name)
  end
  #-----------------------------------------------------------------------------
  # @ Update the window
  #-----------------------------------------------------------------------------
  def update
    super
    if @selected
      if self.contents_opacity < 255
        self.contents_opacity += 10
      end
    else
      if self.contents_opacity > 155
        self.contents_opacity -= 10
      end
    end
  end
  #-----------------------------------------------------------------------------
  # @ Accept whether window is selected
  #-----------------------------------------------------------------------------
  def selected=(selected)
    @selected = selected
    update
  end
end

#===============================================================================
# ¦ Window_LoadCommand
#-------------------------------------------------------------------------------
#   Written by mewsterus
#===============================================================================

class Window_LoadCommand < Window_Selectable
  #-----------------------------------------------------------------------------
  # @ Make the window
  #-----------------------------------------------------------------------------
  def initialize
    super(-640, 0, 640, 64)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = 24
    self.back_opacity = 160
    self.index = 0
    @commands = ["New Game", "Delete"]
    @item_max = 2
    @column_max = 2
    draw_item(0)
    draw_item(1)
  end
  #-----------------------------------------------------------------------------
  # @ Draw item
  #-----------------------------------------------------------------------------
  def draw_item(index)
    self.contents.font.color = system_color
    rect = Rect.new(164 + index * 160, 0, 118, 32)
    self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
    self.contents.draw_text(rect, @commands[index], 1)
  end
  #-----------------------------------------------------------------------------
  # @ Update the window
  #-----------------------------------------------------------------------------
  def update
    if Input.repeat?(Input::DOWN) or Input.repeat?(Input::UP)
      return
    end
    if Input.repeat?(Input::RIGHT)
      if @index < @item_max - 1
        $game_system.se_play($data_system.cursor_se)
        @index += 1
      end
    end
    if Input.repeat?(Input::LEFT)
      if @index > 0
        $game_system.se_play($data_system.cursor_se)
        @index -= 1
      end
    end
    super
  end
  #-----------------------------------------------------------------------------
  # @ Update the cursor
  #-----------------------------------------------------------------------------
  def update_cursor_rect
    if self.active
      self.cursor_rect.set(160 + @index * 160, 0, 128, 32)
    else
      self.cursor_rect.empty
    end
  end
end

#===============================================================================
# ¦ Scene_Load
#-------------------------------------------------------------------------------
#   Edited by mewsterus
#===============================================================================

class Scene_Load
  #-----------------------------------------------------------------------------
  # @ Main loop
  #-----------------------------------------------------------------------------
  def main
    @sprite = Sprite.new
    @sprite.bitmap = RPG::Cache.title($data_system.title_name)
    @top_window = Window_LoadCommand.new
    @savefile_windows = []
    for i in 0..3
      @savefile_windows.push(Window_Load.new(i))
    end
    @savefile_windows[0].x = 640
    @savefile_windows[1].x = -640
    @savefile_windows[2].x = 640
    @savefile_windows[3].x = -640
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      if @savefile_windows[0].x > 0
        @savefile_windows[0].x -= 64
      end
      if @savefile_windows[1].x < 0
        @savefile_windows[1].x += 64
      end
      if @savefile_windows[2].x > 0
        @savefile_windows[2].x -= 64
      end
      if @savefile_windows[3].x < 0
        @savefile_windows[3].x += 64
      end
      if @top_window.x < 0
        @top_window.x += 64
      else
        update
      end
      if $scene != self
        break
      end
    end
    unless @scene_title
      @sprite.dispose
    end
    for i in 0..10
      @top_window.x += 64
      @savefile_windows[0].x -= 64
      @savefile_windows[1].x += 64
      @savefile_windows[2].x -= 64
      @savefile_windows[3].x += 64
      Graphics.update
    end
    Graphics.freeze
    @top_window.dispose
    for i in @savefile_windows
      i.dispose
    end
  end
  #-----------------------------------------------------------------------------
  # @ Update the screen
  #-----------------------------------------------------------------------------
  def update
    unless @delete
      @top_window.update
    end
    for i in @savefile_windows
      i.update
    end
    if @top_window.active
      update_top
      return
    end
    if @file_active
      update_file
      return
    end
  end
  #-----------------------------------------------------------------------------
  # @ Update the top window
  #-----------------------------------------------------------------------------
  def update_top
    if Input.trigger?(Input::C)
      case @top_window.index
      when 0
        command_new_game
        return
      when 1
        @delete = true
        $game_system.se_play($data_system.decision_se)
        @top_window.active = false
        @file_active = true
        @file_index = 0
        @savefile_windows[@file_index].selected = true
        return
      end
    end
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Title.new
      @scene_title = true
      return
    end
    if Input.repeat?(Input::DOWN)
      $game_system.se_play($data_system.cursor_se)
      @top_window.active = false
      @file_active = true
      @file_index = 0
      @savefile_windows[@file_index].selected = true
      return
    end
    if Input.trigger?(Input::UP)
      $game_system.se_play($data_system.cursor_se)
      @top_window.active = false
      @file_active = true
      @file_index = 3
      @savefile_windows[@file_index].selected = true
      return
    end
  end
  #-----------------------------------------------------------------------------
  # @ Update the file windows
  #-----------------------------------------------------------------------------
  def update_file
    if Input.trigger?(Input::C)
      if @delete
        if FileTest.exist?("Save#{@file_index + 1}.rxdata")
          $game_system.se_play($data_system.decision_se)
          File.delete("Save#{@file_index + 1}.rxdata")
          @savefile_windows[@file_index].refresh
          @delete = false
          @savefile_windows[@file_index].selected = false
          @file_active = false
          @top_window.active = true
        else
          $game_system.se_play($data_system.buzzer_se)
        end
        return
      end
      on_decision("Save#{@file_index + 1}.rxdata")
      return
    end
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      if @delete
        @delete = false
        @savefile_windows[@file_index].selected = false
        @file_active = false
        @top_window.active = true
        return
      end
      $scene = Scene_Title.new
      @scene_title = true
      return
    end
    if Input.repeat?(Input::DOWN)
      unless @file_index < 3 or @delete
        if Input.trigger?(Input::DOWN)
          $game_system.se_play($data_system.cursor_se)
          @savefile_windows[@file_index].selected = false
          @file_active = false
          @top_window.active = true
          return
        end
      end
      if Input.trigger?(Input::DOWN) or @file_index < 3
        $game_system.se_play($data_system.cursor_se)
        @savefile_windows[@file_index].selected = false
        @file_index = (@file_index + 1) % 4
        @savefile_windows[@file_index].selected = true
        return
      end
    end
    if Input.repeat?(Input::UP)
      unless @file_index > 0 or @delete
        $game_system.se_play($data_system.cursor_se)
        @savefile_windows[@file_index].selected = false
        @file_active = false
        @top_window.active = true
        return
      end
      if Input.trigger?(Input::UP) or @file_index > 0
        $game_system.se_play($data_system.cursor_se)
        @savefile_windows[@file_index].selected = false
        @file_index = (@file_index + 3) % 4
        @savefile_windows[@file_index].selected = true
        return
      end
    end
  end
  #-----------------------------------------------------------------------------
  # @ Decision command
  #-----------------------------------------------------------------------------
  def on_decision(filename)
    unless FileTest.exist?(filename)
      command_new_game
      return
    end
    $game_system.se_play($data_system.load_se)
    $game_temp          = Game_Temp.new
    file = File.open(filename, "rb")
    characters = Marshal.load(file)
    Graphics.frame_count = Marshal.load(file)
    $game_system        = Marshal.load(file)
    $game_switches      = Marshal.load(file)
    $game_variables     = Marshal.load(file)
    $game_self_switches = Marshal.load(file)
    $game_screen        = Marshal.load(file)
    $game_actors        = Marshal.load(file)
    $game_party         = Marshal.load(file)
    $game_troop         = Marshal.load(file)
    $game_map           = Marshal.load(file)
    $game_player        = Marshal.load(file)
    if $game_system.magic_number != $data_system.magic_number
      $game_map.setup($game_map.map_id)
      $game_player.center($game_player.x, $game_player.y)
    end
    $game_party.refresh
    file.close
    $game_system.bgm_play($game_system.playing_bgm)
    $game_system.bgs_play($game_system.playing_bgs)
    $game_map.update
    $scene = Scene_Map.new
    @scene_title = false
  end
  #--------------------------------------------------------------------------
  # @ Generate new game
  #--------------------------------------------------------------------------
  def command_new_game
    $game_system.se_play($data_system.decision_se)
    Audio.bgm_stop
    Graphics.frame_count = 0
    $game_temp          = Game_Temp.new
    $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_actors        = Game_Actors.new
    $game_party         = Game_Party.new
    $game_troop         = Game_Troop.new
    $game_map           = Game_Map.new
    $game_player        = Game_Player.new
    $game_party.setup_starting_members
    $game_map.setup($data_system.start_map_id)
    $game_player.moveto($data_system.start_x, $data_system.start_y)
    $game_player.refresh
    $game_map.autoplay
    $game_map.update
    $scene = Scene_Map.new
    @scene_title = false
  end
end