# ---------------------------------------------------------------------------- #
# Pictures as Title Options - HungrySnake                                      #
# Inspired by Para Dog                                                         #
#                                                                              #
# This script is in fact a newer version of Para Dog's script. I made my own   #
# because Para Dog's was incompatible (had low compatible options) with other  #
# scripts. I don't say that this one has more than Para Dog's, but it was com- #
# patible with the Achievements script. I made the Configuration more          #
# efficient and user-friendly.                                                 #
#                                                                              #
# Credit: HungrySnake                                                          #
# ---------------------------------------------------------------------------- #

module TP
  module CONFIG
    
# Commands used to set the menu ------------------------------------------------
  # Pictures, Coordinates and Text ---------------------------------------------
    # New Game -----------------------------------------------------------------
      IMG_NEWGAME = ["Start","Start2"]
      IMG_NEWGAME_X = 160   # Horizontal position
      IMG_NEWGAME_Y = 70   # Vertical position
    # Achievements -------------------------------------------------------------
      IMG_ACHIEVEMENT = ["Achievements","Achievements2"]
      IMG_ACHIEVEMENT_X = 160  # Horizontal position
      IMG_ACHIEVEMENT_Y = 150  # Vertical position
      ACHIEVEMENT_TEXT = "Achievements"
    # Contintue ----------------------------------------------------------------
      IMG_CONTINUE = ["Continue","Continue2"]
      IMG_CONTINUE_X = 160   # Horizontal position
      IMG_CONTINUE_Y = 230   # Vertical position
    # Shut Down ----------------------------------------------------------------
      IMG_SHUTDOWN = ["Quit","Quit2"]
      IMG_SHUTDOWN_X = 160   # Horizontal position
      IMG_SHUTDOWN_Y = 310   # Vertical position
  # ----------------------------------------------------------------------------

  
  # Continue Disabled （ 0:Semi-transparent / 1:Specify image ） -----------------
    LOAD_DISABLED_TYPE = 0
  # Only Configure if LOAD_DISABLED_TYPE = 1
    IMG_CONTINUE_DISABLED = ["Continue","Continue2"]
  # ----------------------------------------------------------------------------
  
  # Default Window Options -----------------------------------------------------
    USE_DEFAULT_WINDOW = false
    DEFAULT_WINDOW_X = false # Set to false when you want to use the original coordinates
    DEFAULT_WINDOW_Y = false # Set to false when you want to use the original coordinates
    DEFAULT_WINDOW_WIDTH = false # Set to false when you want to use the original coordinates
    DEFAULT_WINDOW_HEIGHT = false # Set to false when you want to use the original coordinates
  # ----------------------------------------------------------------------------
  
  end
end

class Scene_Title < Scene_Base
  include TP::CONFIG
  
  def initialize(index=0)
    @index = index
  end

  alias hsnake_tpst_p_s post_start unless $@
  def post_start
    hsnake_tpst_p_s if USE_DEFAULT_WINDOW
  end
  
  alias hsnake_tpst_p_t pre_terminate unless $@
  def pre_terminate
    hsnake_tpst_p_t if USE_DEFAULT_WINDOW
  end
  
  def reset_sprites(type)
    case type
    when 0
      @achievement_sprite.bitmap = Cache.system(IMG_ACHIEVEMENT[0])
      draw_continue_graphic
      @quit_sprite.bitmap = Cache.system(IMG_SHUTDOWN[0])
    when 1
      @new_game_sprite.bitmap = Cache.system(IMG_NEWGAME[0])
      draw_continue_graphic
      @quit_sprite.bitmap = Cache.system(IMG_SHUTDOWN[0])
    when 2
      @new_game_sprite.bitmap = Cache.system(IMG_NEWGAME[0])
      @achievement_sprite.bitmap = Cache.system(IMG_ACHIEVEMENT[0])
      @quit_sprite.bitmap = Cache.system(IMG_SHUTDOWN[0])
    when 3
      @new_game_sprite.bitmap = Cache.system(IMG_NEWGAME[0])
      @achievement_sprite.bitmap = Cache.system(IMG_ACHIEVEMENT[0]) 
      draw_continue_graphic
    end
  end
  
  def draw_continue_graphic
    if !@continue_enabled
      if LOAD_DISABLED_TYPE == 0
        @continue_sprite.opacity = 180 
        @continue_sprite.bitmap = Cache.system(IMG_CONTINUE_DISABLED[0])
      elsif LOAD_DISABLED_TYPE == 1
        @continue_sprite.bitmap = Cache.system(IMG_CONTINUE_DISABLED[0])
      end
    else
      @continue_sprite.bitmap = Cache.system(IMG_CONTINUE[0])
    end
  end

  def create_command_window
    s1 = Vocab::new_game
    s2 = Vocab::continue
    s3 = ACHIEVEMENT_TEXT
    s4 = Vocab::shutdown
    @command_window = Window_Command.new(172, [s1, s3, s2,s4])
    if !DEFAULT_WINDOW_X
      @command_window.x = (544 - @command_window.width) / 2
    else
      @command_window.x = DEFAULT_WINDOW_X
    end
    if !DEFAULT_WINDOW_Y
      @command_window.y = 288
    else
      @command_window.y = DEFAULT_WINDOW_Y
    end
    if !DEFAULT_WINDOW_WIDTH
      @command_window.width = 172
    else
      @command_window.width = DEFAULT_WINDOW_WIDTH
    end
    if !DEFAULT_WINDOW_HEIGHT
      @command_window.height = 24*4+32
    else
      @command_window.height = DEFAULT_WINDOW_HEIGHT
    end
    if @continue_enabled
      @command_window.index = 2 
    else     
      @command_window.draw_item(2, false) 
    end
    if @index != 0
      @command_window.index = @index
    end
    @command_window.openness = 0
    create_option_graphics
  end
  
  def create_option_graphics
    @new_game_sprite = Sprite.new
    @achievement_sprite = Sprite.new
    @continue_sprite = Sprite.new
    @quit_sprite = Sprite.new
    @new_game_sprite.bitmap = Cache.system(IMG_NEWGAME[0])
    @achievement_sprite.bitmap = Cache.system(IMG_ACHIEVEMENT[0])
    @continue_sprite.bitmap = Cache.system(IMG_CONTINUE[0])
    if !@continue_enabled
      if LOAD_DISABLED_TYPE == 0
        @continue_sprite.opacity = 120 
      elsif LOAD_DISABLED_TYPE == 1
        @continue_sprite.bitmap = Cache.system(IMG_CONTINUE_DISABLED[0])
      end
    end
    @quit_sprite.bitmap = Cache.system(IMG_SHUTDOWN[0])
    @new_game_sprite.x = IMG_NEWGAME_X
    @new_game_sprite.y = IMG_NEWGAME_Y
    @achievement_sprite.x = IMG_ACHIEVEMENT_X
    @achievement_sprite.y = IMG_ACHIEVEMENT_Y
    @continue_sprite.x = IMG_CONTINUE_X
    @continue_sprite.y = IMG_CONTINUE_Y
    @quit_sprite.x = IMG_SHUTDOWN_X
    @quit_sprite.y = IMG_SHUTDOWN_Y
  end
  
  def dispose_new_game_sprite
    @new_game_sprite.dispose
    @new_game_sprite.bitmap.dispose
  end
  
  def dispose_achievement_sprite
    @achievement_sprite.dispose
    @achievement_sprite.bitmap.dispose
  end
  
  def dispose_continue_sprite
    @continue_sprite.dispose
    @continue_sprite.bitmap.dispose
  end
  
  def dispose_shutdown_sprite
    @quit_sprite.dispose
    @quit_sprite.bitmap.dispose
  end

  def dispose_command_window
    @command_window.dispose
  end
  
  def terminate
    super
    dispose_command_window
    dispose_new_game_sprite
    dispose_achievement_sprite
    dispose_continue_sprite
    dispose_shutdown_sprite
    snapshot_for_background
    dispose_title_graphic
  end

  def update
    super
    @command_window.update
      case @command_window.index
      when 0   
        @new_game_sprite.bitmap = Cache.system(IMG_NEWGAME[1])
        reset_sprites(0)
        if Input.trigger?(Input::C)
          command_new_game
        end
      when 1
        @achievement_sprite.bitmap = Cache.system(IMG_ACHIEVEMENT[1])
        reset_sprites(1)
        if Input.trigger?(Input::C)
          $scene = Scene_Erfolge.new(Scene_Title)
        end
      when 2
        if !@continue_enabled
          if LOAD_DISABLED_TYPE == 0
            @continue_sprite.opacity = 180 
            @continue_sprite.bitmap = Cache.system(IMG_CONTINUE_DISABLED[1])
          elsif LOAD_DISABLED_TYPE == 1
            @continue_sprite.bitmap = Cache.system(IMG_CONTINUE_DISABLED[1])
          end
        else
          @continue_sprite.bitmap = Cache.system(IMG_CONTINUE[1])
        end
        reset_sprites(2)
        if Input.trigger?(Input::C)
          command_continue
        end
      when 3  
        @quit_sprite.bitmap = Cache.system(IMG_SHUTDOWN[1])
        reset_sprites(3)
        if Input.trigger?(Input::C)
          command_shutdown
        end
      end
    end
end