セーブデータ圧縮(Zlib版)

セーブデータ圧縮(Zlib版)

コンセプト	セーブデータのファイルサイズを軽くしたい！
挿入位置	▼ 素材の直下。
完成すると	圧縮ファイルでセーブデータが作成されて、ロードできる。
更新履歴	2/23：圧縮ファイルの読み込み・書き込み周りを再修正。 2/21：スクリーンショット表示 Ver 1.0 by 半導体　様の　　　スクリプト導入時のスクショ表示が正常に表示されていなかったのを修正。　　　ロード時のカーソル位置が最終保存時刻でないのを修正。　　　圧縮ファイルの読み込み・書き込み周りを修正。 2/7：Window_SaveFileクラスの挙動を変更して動作軽量化。　　　無圧縮のSave.rvdataから表示用のデータを利用して動作。 ========== 2013年 ============================================================

　　　★　概要　★

・セーブデータのサイズを圧縮して保存し、読み込む素材です。
・純正のデータと圧縮データをロードします。
・セーブ時は圧縮ファイルで保存します。
・圧縮形式は「gzip形式」拡張子は「.gz」です。
・圧縮されたセーブデータが作成されたら元の
　「.rvdata」ファイルは削除してください。
　重複していると圧縮データが反映されません。
・設定で圧縮率を大まかに設定できるので好きな値を入れてください。
・多分、RGSS1でも使用できます。
・圧縮に使っているライブラリはRGSSに入っている「Zlib」を使用しています。
・単純にサイズの軽量化を図るものなので暗号化などはありません。
・「スクリーンショット表示 Ver 1.0 by 半導体」
　http://h2so5.web.fc2.com/
　のスクリプトにのみ対応しています。
・セーブデータのレイアウトを大幅に変える素材とは恐らく競合します。
　改変等は自由ですので、分かる方は自由に改造してください。

#==============================================================================
#    ?VX RGSS2 「セーブデータ圧縮(Zlib版)」?
#　　　　　　EnDlEss DREamER
#     URL:http://mitsu-evo.6.ql.bz/
#     製作者 mitsu-evo
#     Last:2013/2/23
#　　 実はRGSSにある「Zlib」のモジュール
#     ▼ 素材の直下。
#==============================================================================
$ed_rgss2 = {} if $ed_rgss2 == nil
$ed_rgss2["ed_zlib_save_comp"] = true
=begin

2/21：スクリーンショット表示 Ver 1.0  by  半導体　様の
スクリプト導入時のスクショ表示が正常に表示されていなかったのを修正。
ロード時のカーソル位置が最終保存時刻でないのを修正。
圧縮ファイルの読み込み・書き込み周りを修正。
2/23：圧縮ファイルの読み込み・書き込み周りを再修正。

★　概要　★

・セーブデータのサイズを圧縮して保存し、読み込む素材です。
    ・純正のデータと圧縮データをロードします。
    ・セーブ時は圧縮ファイルで保存します。
    ・圧縮形式は「gzip形式」拡張子は「.gz」です。
    ・圧縮されたセーブデータが作成されたら元の
    　「.rvdata」ファイルは削除してください。
    　重複していると圧縮データが反映されません。
    ・設定で圧縮率を大まかに設定できるので好きな値を入れてください。
    ・圧縮に使っているライブラリはRGSSに入っている「Zlib」を使用しています。
    ・単純にサイズの軽量化を図るものなので暗号化などはありません。
    ・「スクリーンショット表示 Ver 1.0  by  半導体」
    　http://h2so5.web.fc2.com/
    　のスクリプトにのみ対応しています。
    ・セーブデータのレイアウトを大幅に変える素材とは恐らく競合します。
    　改変等は自由ですので、分かる方は自由に改造してください。
    ・表示用のセーブデータ「Save.rvdata」を作成して
    　ウィンドウ表示の内容を圧縮ファイルから展開しなくしました。
    　これにより、セーブ画面での遅延を緩和しています。
    　圧縮ファイルの展開は実際のロード時のみとなります。
    ・途中から導入した場合でも、各セーブデータからロードします。
    
    ★　Save.rvdataの詳細　★
    　Window_SaveFileの純正での読み込み項目を一つにした配列を
    　セーブデータごとに配列で格納し書きだしたファイル。
    　セーブ時に下記をダンプ。
    　[savedata1,ssavedata2,savedata3,savedata4・・・]
    　ロード時にセーブインデックスに対応したデータをロード。
    　リストにない場合は、実セーブファイルからロード。

=end

# 圧縮率の設定(0:無圧縮(早い) ～ 9:圧縮率優先(遅い))
  COMP_LEVEL = 1

#==============================================================================
# ■ Window_SaveFile
#------------------------------------------------------------------------------
# 　セーブ画面およびロード画面で表示する、セーブファイルのウィンドウです。
#==============================================================================

class Window_SaveFile < Window_Base

#--------------------------------------------------------------------------
  # ● リストデータファイル名の作成
  #     file_index : セーブファイルのインデックス (0～3)
  #--------------------------------------------------------------------------
  def make_list_filename
    return "Save.rvdata"
  end
  #--------------------------------------------------------------------------
  # ● ゲームデータの一部をロード
  #    スイッチや変数はデフォルトでは未使用 (地名表示などの拡張用) 。
  #--------------------------------------------------------------------------
  def load_data(file,list=true)
    if list
      data_list = Marshal.load(file)
      data = data_list[@file_index] # データリストファイルから指定のデータをロード
      if data == nil
        # 指定インデックスにリストデータがなければ実ファイルからロード
        # なんかファイルがないのに読まれてるっぽい
        file.close
        load_gz_data
        return
      end
      s = data.size - 1
      @time_stamp     = data[s].is_a?(Time) ? data.pop : Time.at(0)
    else
      data = Marshal.load(file)
    end
    begin
      @characters     = data.shift
      @frame_count    = data.shift
      @last_bgm       = data.shift
      @last_bgs       = data.shift
      @game_system    = data.shift
      @game_message   = data.shift
      @game_switches  = data.shift
      @game_variables = data.shift
      @screen_dump    = data.shift unless $screen_shot == nil
    rescue
      @file_exist = false
    ensure
    
    end
  end
  #--------------------------------------------------------------------------
  # ● 圧縮データのロード
  #--------------------------------------------------------------------------
  def load_gz_data
    return unless FileTest.exist?(@filename)
    Zlib::GzipReader.open(@filename) { |gz| 
    @time_stamp = gz.mtime
    load_data(gz.read,false)
    Graphics.frame_reset
    gz.close
    }
    @total_sec = @frame_count / Graphics.frame_rate
  end
  #--------------------------------------------------------------------------
  # ● ゲームデータの一部をロード
  #    スイッチや変数はデフォルトでは未使用 (地名表示などの拡張用) 。
  #--------------------------------------------------------------------------
  alias ed_zlib_save_comp_load_gamedata load_gamedata
  def load_gamedata
    @time_stamp = Time.at(0)
    @file_exist = FileTest.exist?(@filename)
    if @file_exist
      if @filename =~ /[.gz]$/
        # セーブ画面用に読み込み
        if FileTest.exist?(make_list_filename)
          file = File.open(make_list_filename, "rb")
          load_data(file)
          begin
            file.close
          rescue
          end
          @total_sec = @frame_count / Graphics.frame_rate
        else
          load_gz_data
        end
      else
        # セーブデータが圧縮されてなければ元の処理へ
        ed_zlib_save_comp_load_gamedata
        return
      end
    end
  end
end
#==============================================================================
# ■ Scene_File
#------------------------------------------------------------------------------
# 　ファイル画面の処理を行うクラスです。
#==============================================================================

class Scene_File < Scene_Base
  @@list_data ||= []
  #--------------------------------------------------------------------------
  # ● ファイル名の作成
  #     file_index : セーブファイルのインデックス (0～3)
  #--------------------------------------------------------------------------
  def make_filename(file_index)
    file_name = "Save#{file_index + 1}.rvdata"
    file_exist = FileTest.exist?(file_name)
    if file_exist
      return file_name
    else
      return file_name + ".gz"
    end
  end
  #--------------------------------------------------------------------------
  # ● リストデータファイル名の作成
  #     file_index : セーブファイルのインデックス (0～3)
  #--------------------------------------------------------------------------
  def make_list_filename
    return "Save.rvdata"
  end
  #--------------------------------------------------------------------------
  # ● セーブの実行
  #--------------------------------------------------------------------------
  def do_save
    name = @savefile_windows[@index].filename
    name += ".gz" unless name =~ /[.gz]$/
    Zlib::GzipWriter.open(name, COMP_LEVEL) { |gz|
      gz.mtime = File.mtime(name)
      write_save_data(gz)
    }
    return_scene
  end
  #--------------------------------------------------------------------------
  # ● ロードの実行
  #--------------------------------------------------------------------------
  def do_load
    name = @savefile_windows[@index].filename
    if name =~ /[.gz]$/
      # .gzのgzip形式圧縮ファイルの読み込み
      Zlib::GzipReader.open(name) { |gz|
        read_save_data(gz.read)
        gz.close
      }
    else
      # 元の.rvdata読み込み
      file = File.open(name, "rb")
      ed_zlib_save_comp_read_save_data(file)
      file.close
    end
    $scene = Scene_Map.new
    RPG::BGM.fade(1500)
    Graphics.fadeout(60)
    Graphics.wait(40)
    @last_bgm.play
    @last_bgs.play
  end
  #--------------------------------------------------------------------------
  # ● セーブデータの書き込み
  #     file : 書き込み用ファイルオブジェクト (オープン済み)
  #--------------------------------------------------------------------------
  def write_save_data(file)
    characters = []
    for actor in $game_party.members
      characters.push([actor.character_name, actor.character_index])
    end
    $game_system.save_count += 1
    $game_system.version_id = $data_system.version_id
    @last_bgm = RPG::BGM::last
    @last_bgs = RPG::BGS::last
    @screen_dump = $screen_shot.bitmap_to_dump unless $screen_shot == nil
    # 圧縮してロードするためのエラー回避としてMarshalの書き出しは一回で。
    # 一つの配列として保存することでデータロードを行う。
    data = []
    data << characters
    data << Graphics.frame_count
    data << @last_bgm
    data << @last_bgs
    data << $game_system
    data << $game_message
    data << $game_switches
    data << $game_variables
    data << @screen_dump unless @screen_dump == nil
    data << $game_self_switches
    data << $game_actors
    data << $game_party
    data << $game_troop
    data << $game_map
    data << $game_player
    Marshal.dump(data,file)
    file.close            # 圧縮ファイルを閉じてからセーブデータリスト作成。
    write_file_list_data(data)
  end
  #--------------------------------------------------------------------------
  # ● セーブウィンドウでの呼び出し用の軽量セーブデータリスト
  #--------------------------------------------------------------------------
  def write_file_list_data(data)
    # ファイルリスト用にデータを保存。
    data2 = []
    data2 << data[0]
    data2 << data[1]
    data2 << data[2]
    data2 << data[3]
    data2 << data[4]
    data2 << data[5]
    data2 << data[6]
    data2 << data[7]
    data2 << data[8] unless @screen_dump == nil
    data2 << Time.now 
    @@list_data[@index] = data2
    file = File.open(make_list_filename, "wb")
    Marshal.dump(@@list_data,file)
    file.close
  end
  #--------------------------------------------------------------------------
  # ● セーブデータの読み込み
  #     file : 読み込み用ファイルオブジェクト (オープン済み)
  #--------------------------------------------------------------------------
  alias ed_zlib_save_comp_read_save_data read_save_data
  def read_save_data(file)
    # 圧縮されたファイルからバイナリ文字列を読み込み。
    # バイト文字列を含んで、一つめの内容しかロードできないので
    # 一つめのデータにセーブデータ内蔵の配列を読み込む。
    data = Marshal.load(file)
    characters           = data.shift
    Graphics.frame_count = data.shift
    @last_bgm            = data.shift
    @last_bgs            = data.shift
    $game_system         = data.shift
    $game_message        = data.shift
    $game_switches       = data.shift
    $game_variables      = data.shift
    @screen_shot         = data.shift unless $screen_shot == nil
    $game_self_switches  = data.shift
    $game_actors         = data.shift
    $game_party          = data.shift
    $game_troop          = data.shift
    $game_map            = data.shift
    $game_player         = data.shift
    
    if $game_system.version_id != $data_system.version_id
      $game_map.setup($game_map.map_id)
      $game_player.center($game_player.x, $game_player.y)
    end
  end
end

#==============================================================================
# ■ Scene_Title
#------------------------------------------------------------------------------
# 　タイトル画面の処理を行うクラスです。
#==============================================================================

class Scene_Title < Scene_Base
  #--------------------------------------------------------------------------
  # ● コンティニュー有効判定
  #--------------------------------------------------------------------------
  def check_continue
    @continue_enabled = 
    (Dir.glob('Save*.rvdata').size > 0 or Dir.glob('Save*.rvdata.gz').size > 0)
  end
end

テンプレートのpondt