#===================================================
#  *  Carpeta Partidas Guardadas v 1.0 - Mini Script
#     por shadowball
#     11.04.2008
#===================================================
module Proyecto
  Carpeta_Actual = Dir.getwd
  Mis_Partidas   = 'Saved Games'
  Dir_Partidas   = Carpeta_Actual+ '/' + Mis_Partidas
end

class Scene_Title
  def main
    if $BTEST
      battle_test
      return
    end
    $data_actors        = load_data("Data/Actors.rxdata")
    $data_classes       = load_data("Data/Classes.rxdata")
    $data_skills        = load_data("Data/Skills.rxdata")
    $data_items         = load_data("Data/Items.rxdata")
    $data_weapons       = load_data("Data/Weapons.rxdata")
    $data_armors        = load_data("Data/Armors.rxdata")
    $data_enemies       = load_data("Data/Enemies.rxdata")
    $data_troops        = load_data("Data/Troops.rxdata")
    $data_states        = load_data("Data/States.rxdata")
    $data_animations    = load_data("Data/Animations.rxdata")
    $data_tilesets      = load_data("Data/Tilesets.rxdata")
    $data_common_events = load_data("Data/CommonEvents.rxdata")
    $data_system        = load_data("Data/System.rxdata")
    $game_system = Game_System.new
    @sprite = Sprite.new
    @sprite.bitmap = RPG::Cache.title($data_system.title_name)
    s1 = "New Game"
    s2 = "Continue"
    s3 = "Shutdown"
    @command_window = Window_Command.new(192, [s1, s2, s3])
    @command_window.back_opacity = 160
    @command_window.x = 320 - @command_window.width / 2
    @command_window.y = 288
    @continue_enabled = false
    for i in 0..3
      if FileTest.exist?(Proyecto::Mis_Partidas+"/Save#{i+1}.rxdata")
        @continue_enabled = true
      end
    end
    if @continue_enabled
      @command_window.index = 1
    else
      @command_window.disable_item(1)
    end
    $game_system.bgm_play($data_system.title_bgm)
    Audio.me_stop
    Audio.bgs_stop
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @command_window.dispose
    @sprite.bitmap.dispose
    @sprite.dispose
  end
end

class Scene_File
  include Proyecto
  def initialize(help_text)
    @help_text = help_text
    Dir.mkdir(Mis_Partidas) unless FileTest.exist?(Dir_Partidas)
  end
  
  alias shb_sfm main
  def main
    shb_sfm
    Dir.chdir(Carpeta_Actual)
  end
  
  def make_filename(file_index)    
    Dir.chdir(Mis_Partidas) if FileTest.exist?(Mis_Partidas)
    return "Save#{file_index + 1}.rxdata"
  end
end