#==============================================================================
#  Scene_Title
#------------------------------------------------------------------------------
# @^Cgʂ̏sNXłB
#==============================================================================

class Scene_Title < Scene_Base
  #--------------------------------------------------------------------------
  #  C
  #--------------------------------------------------------------------------
  def main
    if $BTEST                         # 퓬eXg̏ꍇ
      battle_test                     # 퓬eXg̊Jn
    else                              # ʏ̃vC̏ꍇ
      super                           # {̃C
    end
  end
  #--------------------------------------------------------------------------
  #  Jn
  #--------------------------------------------------------------------------
  def start
    super
    load_database                     # f[^x[X[h
    create_game_objects               # Q[IuWFNg쐬
    check_continue                    # ReBj[L
    create_title_graphic              # ^CgOtBbN쐬
    create_command_window             # R}hEBhE쐬
    play_title_music                  # ^Cgʂ̉yt
  end
  #--------------------------------------------------------------------------
  #  gWVs
  #--------------------------------------------------------------------------
  def perform_transition
    Graphics.transition(20)
  end
  #--------------------------------------------------------------------------
  #  Jn㏈
  #--------------------------------------------------------------------------
  def post_start
    super
    open_command_window
  end
  #--------------------------------------------------------------------------
  #  IO
  #--------------------------------------------------------------------------
  def pre_terminate
    super
    close_command_window
  end
  #--------------------------------------------------------------------------
  #  I
  #--------------------------------------------------------------------------
  def terminate
    super
    dispose_command_window
    snapshot_for_background
    dispose_title_graphic
  end
  #--------------------------------------------------------------------------
  #  t[XV
  #--------------------------------------------------------------------------
  def update
    super
    @command_window.update
    if Input.trigger?(Input::C)
      case @command_window.index
      when 0    # j[Q[
        command_new_game
      when 1    # ReBj[
        command_continue
      when 2    # Vbg_E
        command_shutdown
      end
    end
  end
  #--------------------------------------------------------------------------
  #  f[^x[X̃[h
  #--------------------------------------------------------------------------
  def load_database
    $data_actors        = load_data("Data/Actors.rvdata")
    $data_classes       = load_data("Data/Classes.rvdata")
    $data_skills        = load_data("Data/Skills.rvdata")
    $data_items         = load_data("Data/Items.rvdata")
    $data_weapons       = load_data("Data/Weapons.rvdata")
    $data_armors        = load_data("Data/Armors.rvdata")
    $data_enemies       = load_data("Data/Enemies.rvdata")
    $data_troops        = load_data("Data/Troops.rvdata")
    $data_states        = load_data("Data/States.rvdata")
    $data_animations    = load_data("Data/Animations.rvdata")
    $data_common_events = load_data("Data/CommonEvents.rvdata")
    $data_system        = load_data("Data/System.rvdata")
    $data_areas         = load_data("Data/Areas.rvdata")
    #T14-030 ADD--->
    $data_mapinfos      = load_data("Data/MapInfos.rvdata")
    #<--------------
    #T14-030 ADD--->
    load_exops
    #<--------------
  end
  #--------------------------------------------------------------------------
  #  퓬eXgpf[^x[X̃[h
  #--------------------------------------------------------------------------
  def load_bt_database
    $data_actors        = load_data("Data/BT_Actors.rvdata")
    $data_classes       = load_data("Data/BT_Classes.rvdata")
    $data_skills        = load_data("Data/BT_Skills.rvdata")
    $data_items         = load_data("Data/BT_Items.rvdata")
    $data_weapons       = load_data("Data/BT_Weapons.rvdata")
    $data_armors        = load_data("Data/BT_Armors.rvdata")
    $data_enemies       = load_data("Data/BT_Enemies.rvdata")
    $data_troops        = load_data("Data/BT_Troops.rvdata")
    $data_states        = load_data("Data/BT_States.rvdata")
    $data_animations    = load_data("Data/BT_Animations.rvdata")
    $data_common_events = load_data("Data/BT_CommonEvents.rvdata")
    $data_system        = load_data("Data/BT_System.rvdata")
    #T14-030 ADD--->
    $data_areas         = load_data("Data/Areas.rvdata")
    $data_mapinfos      = load_data("Data/MapInfos.rvdata")
    #<--------------
    #T14-030 ADD--->
    load_exops
    #<--------------
  end
  #T14-030 ADD--->
  #--------------------------------------------------------------------------
  #  gIvṼ[h
  #--------------------------------------------------------------------------
  def load_exops
    #OgIvVǂݍރf[^
    $data_troops.each {|o| o.exop = Ex.parse_exop(o.name) if o != nil}
    $data_animations.each {|o| o.exop = Ex.parse_exop(o.name) if o != nil}
    $data_common_events.each {|o| o.exop = Ex.parse_exop(o.name) if o != nil}
    $data_areas.values.each {|o| o.exop = Ex.parse_exop(o.name) if o != nil}
    $data_mapinfos.values.each {|o| o.exop = Ex.parse_exop(o.name) if o != nil}
    
    #gIvVǂݍރf[^
    $data_skills.each {|o| o.exop = Ex.parse_exop(o.note) if o != nil}
    $data_items.each {|o| o.exop = Ex.parse_exop(o.note) if o != nil}
    $data_weapons.each {|o| o.exop = Ex.parse_exop(o.note) if o != nil}
    $data_armors.each {|o| o.exop = Ex.parse_exop(o.note) if o != nil}
    $data_enemies.each {|o| o.exop = Ex.parse_exop(o.note) if o != nil}
    $data_states.each {|o| o.exop = Ex.parse_exop(o.note) if o != nil}
  end
  #<--------------
  #--------------------------------------------------------------------------
  #  eQ[IuWFNg̍쐬
  #--------------------------------------------------------------------------
  def create_game_objects
    $game_temp          = Game_Temp.new
    $game_message       = Game_Message.new
    $game_system        = Game_System.new
    $game_switches      = Game_Switches.new
    $game_variables     = Game_Variables.new
    $game_self_switches = Game_SelfSwitches.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
  end
  #--------------------------------------------------------------------------
  #  ReBj[L
  #--------------------------------------------------------------------------
  def check_continue
    @continue_enabled = (Dir.glob('Save*.rvdata').size > 0)
  end
  #--------------------------------------------------------------------------
  #  ^CgOtBbN̍쐬
  #--------------------------------------------------------------------------
  def create_title_graphic
    @sprite = Sprite.new
    @sprite.bitmap = Cache.system("Title")
  end
  #--------------------------------------------------------------------------
  #  ^CgOtBbN̉
  #--------------------------------------------------------------------------
  def dispose_title_graphic
    @sprite.bitmap.dispose
    @sprite.dispose
  end
  #--------------------------------------------------------------------------
  #  R}hEBhE̍쐬
  #--------------------------------------------------------------------------
  def create_command_window
    s1 = Vocab::new_game
    s2 = Vocab::continue
    s3 = Vocab::shutdown
    @command_window = Window_Command.new(172, [s1, s2, s3])
    @command_window.x = (544 - @command_window.width) / 2
    @command_window.y = 288
    if @continue_enabled                    # ReBj[Lȏꍇ
      @command_window.index = 1             # J[\킹
    else                                    # ȏꍇ
      @command_window.draw_item(1, false)   # R}h𔼓\ɂ
    end
    @command_window.openness = 0
    @command_window.open
  end
  #--------------------------------------------------------------------------
  #  R}hEBhẺ
  #--------------------------------------------------------------------------
  def dispose_command_window
    @command_window.dispose
  end
  #--------------------------------------------------------------------------
  #  R}hEBhEJ
  #--------------------------------------------------------------------------
  def open_command_window
    @command_window.open
    begin
      @command_window.update
      Graphics.update
    end until @command_window.openness == 255
  end
  #--------------------------------------------------------------------------
  #  R}hEBhE
  #--------------------------------------------------------------------------
  def close_command_window
    @command_window.close
    begin
      @command_window.update
      Graphics.update
    end until @command_window.openness == 0
  end
  #--------------------------------------------------------------------------
  #  ^Cgʂ̉yt
  #--------------------------------------------------------------------------
  def play_title_music
    $data_system.title_bgm.play
    RPG::BGS.stop
    RPG::ME.stop
  end
  #--------------------------------------------------------------------------
  #  vC[̏ʒu݃`FbN
  #--------------------------------------------------------------------------
  def confirm_player_location
    if $data_system.start_map_id == 0
      print "vC[̏ʒuݒ肳Ă܂B"
      exit
    end
  end
  #--------------------------------------------------------------------------
  #  R}h : j[Q[
  #--------------------------------------------------------------------------
  def command_new_game
    confirm_player_location
    Sound.play_decision
    $game_party.setup_starting_members            # p[eB
    $game_map.setup($data_system.start_map_id)    # ʒũ}bv
    $game_player.moveto($data_system.start_x, $data_system.start_y)
    $game_player.refresh
    $scene = Scene_Map.new
    RPG::BGM.fade(1500)
    close_command_window
    Graphics.fadeout(60)
    Graphics.wait(40)
    Graphics.frame_count = 0
    RPG::BGM.stop
    $game_map.autoplay
  end
  #--------------------------------------------------------------------------
  #  R}h : ReBj[
  #--------------------------------------------------------------------------
  def command_continue
    if @continue_enabled
      Sound.play_decision
      $scene = Scene_File.new(false, true, false)
    else
      Sound.play_buzzer
    end
  end
  #--------------------------------------------------------------------------
  #  R}h : Vbg_E
  #--------------------------------------------------------------------------
  def command_shutdown
    Sound.play_decision
    RPG::BGM.fade(800)
    RPG::BGS.fade(800)
    RPG::ME.fade(800)
    $scene = nil
  end
  #--------------------------------------------------------------------------
  #  퓬eXg
  #--------------------------------------------------------------------------
  def battle_test
    load_bt_database                  # 퓬eXgpf[^x[X[h
    create_game_objects               # Q[IuWFNg쐬
    Graphics.frame_count = 0          # vCԂ
    $game_party.setup_battle_test_members
    $game_troop.setup($data_system.test_troop_id)
    $game_troop.can_escape = true
    $game_system.battle_bgm.play
    snapshot_for_background
    $scene = Scene_Battle.new
  end
end
