[VXA Script] KTitleUpdate ACE - Printable Version

Code:
# * KTitleUpdate ACE * #

#   Scripter : Kyonides Arkanthes

#   2023-06-16



# This scriptlet lets you change the Background and Foreground Titles of your

# game project based on the value of a predefined Game Variable.



# You must configure 7 CONSTANTS to tell it which Title will be displayed on

# screen at that specific point.



# * Warning! * #

# If you don't use the Scene_End menu scene, delete that part from this script.



module KTitleUpdate

  # For the Game's Root Save Directory the String might be "Save*"

  # For a Custom Save Directory the String might be "CustomDir/Save*"

  DIR_N_SAVE_FILENAME = "Save*"

  TITLE_VAR_ID = 1

  # Load Data Types: :var_max or :recent

  LOAD_DATA_TYPE = :var_max

  USE_BACKGROUNDS = true

  USE_FOREGROUNDS = true

  # Manually List All of Your Background and Foreground Titles

  BACKGROUNDS = ["Book", "Fountain", "Island", "Sword"]

  FOREGROUNDS = ["Metal", "Heroes", "Mist", "Mountains"]



  extend self

  def sort_save_files

    Dir[DIR_N_SAVE_FILENAME].sort

  end



  def find_bg_fg(index)

    [BACKGROUNDS[index], FOREGROUNDS[index]]

  end

end



module DataManager

  extend self

  attr_accessor :titles, :total_save_files

  def load_vars_only(fn)

    File.open(fn, "rb") do |file|

      Marshal.load(file)

      data = Marshal.load(file)

      variables = data[:variables]

      @titles << variables[KTitleUpdate::TITLE_VAR_ID]

      @make_times << File.mtime(fn) rescue Time.at(0)

    end

  end



  def check_save_files

    @titles = []

    @make_times = []

    filenames = KTitleUpdate.sort_save_files

    filenames.each {|fn| load_vars_only(fn) }

    @total_save_files = filenames.size

  end



  def highest_titles

    KTitleUpdate.find_bg_fg(@titles.max - 1)

  end



  def latest_titles

    time_max = @make_times.max

    title_index = @make_times.index(time_max)

    title_index = @titles[title_index] - 1

    KTitleUpdate.find_bg_fg(title_index)

  end



  def default_title?

    @titles.empty? or @titles.max == 0

  end

  check_save_files

end



class Scene_Title

  alias :kyon_title_change_scn_ttl_create_backgr :create_background

  def create_background

    if DataManager.default_title?

      kyon_title_change_scn_ttl_create_backgr

    else

      custom_background

    end

  end



  def custom_background

    case KTitleUpdate::LOAD_DATA_TYPE

    when :var_max

      background, foreground = DataManager.highest_titles

    when :recent

      background, foreground = DataManager.latest_titles

    end

    @sprite1 = Sprite.new

    @sprite1.bitmap = Cache.title1(background)

    @sprite2 = Sprite.new

    @sprite2.z = 25

    @sprite2.bitmap = Cache.title2(foreground)

    center_sprite(@sprite1)

    center_sprite(@sprite2)

  end

end



class Scene_End

  alias :kyon_title_change_scn_end_comm_ttl :command_to_title

  def command_to_title

    kyon_title_change_scn_end_comm_ttl

    DataManager.check_save_files

  end

end