＜拡張＞セーブ画面

■ 概　　要

・セーブ画面にセーブ時のマップ画像やアクターの名前を追加します。
・セーブファイルを削除する機能を追加します。
・セーブファイルをフォルダにまとめる機能を追加します。

■ スクリーンショット

※ 画像は開発中のものです。

■ 更新履歴

12/11/05 ... 1.0.6
　KAMESOFT『カーソルアニメーション』に対応
　メッセージの行幅の設定項目を追加
　セーブ削除音の設定項目を追加

11/03/07 ... 1.0.5
　削除機能を使用しない設定にするとエラーの出る不具合を修正

11/03/06 ... 1.0.4
　表示されるメンバーの人数を設定する設定項目を追加
　通常プレイの場合、隠し属性の設定を常に反映するように変更

11/02/03 ... 1.0.3
　古いセーブファイルを読み込んでもエラーにならないように変更

10/06/28 ... 1.0.2
　スクリーンショットの画像をなめらかにする処理を追加
　セーブファイルの削除機能を追加
　ループするマップでスクショがうまく撮れない不具合を修正
　テストプレイ中はセーブフォルダを隠し属性にしないように変更

09/12/13 ... 1.0.1
　セーブ時のパーティ名が更新されない不具合を修正

09/12/07 ... 1.0.0
　公開

■ スクリプト

#******************************************************************************
#
#    ＊ ＜拡張＞ セーブ画面
#
#  --------------------------------------------------------------------------
#    バージョン ：  1.0.6
#    対      応 ：  RPGツクールVX : RGSS2
#    制  作  者 ：  ＣＡＣＡＯ
#    配  布  元 ：  https://cacaosoft.mars.jp/
#  --------------------------------------------------------------------------
#   == 概    要 ==
#
#    ： セーブ画面にセーブ時のマップ画像やアクターの名前を追加します。
#
#  --------------------------------------------------------------------------
#   == 注意事項 ==
#
#    ※ Cacao Base Script を導入する必要があります。
#    ※ Bitmap Class EX を導入する必要があります。
#
#  --------------------------------------------------------------------------
#   ==  その他  ==
#
#    ★ セーブファイルの場所
#     実行ファイルと同じフォルダに Save フォルダを作成して保存しています。
#
#
#******************************************************************************


#==============================================================================
# ◆ 設定項目
#==============================================================================
module CAO::ExSave
  #--------------------------------------------------------------------------
  # ◇ セーブフォルダを隠し属性で作成する
  #--------------------------------------------------------------------------
  #     テストプレイ中は隠し属性にはなりません。
  #--------------------------------------------------------------------------
  HIDDEN_DIRECTORY = true
  #--------------------------------------------------------------------------
  # ◇ 歩行グラフィックの背景色
  #--------------------------------------------------------------------------
  COLOR_CHARA_BACK = Color.new(255, 255, 255)
  #--------------------------------------------------------------------------
  # ◇ マップ画像の背景色
  #--------------------------------------------------------------------------
  COLOR_IMAGE_BACK = Color.new(0, 0, 0)
  #--------------------------------------------------------------------------
  # ◇ システム文字
  #--------------------------------------------------------------------------
  TEXT_MAP = "マップ名"
  #--------------------------------------------------------------------------
  # ◇ 削除ボタン
  #--------------------------------------------------------------------------
  #     削除機能を使用しない場合は nil としてください。
  #--------------------------------------------------------------------------
  DEF_KEY = Input::Y
  #--------------------------------------------------------------------------
  # ◇ 表示されるパーティの人数
  #--------------------------------------------------------------------------
  MAX_MEMBERS = 4
  #--------------------------------------------------------------------------
  # ◇ 削除の確認メッセージ
  #--------------------------------------------------------------------------
  #     ["確認文", "選択項目 はい", "選択項目 いいえ"]
  #--------------------------------------------------------------------------
  DEL_TEXT = ["セーブファイルを削除してもよろしいですか？", "はい", "いいえ"]
  #--------------------------------------------------------------------------
  # ◇ 削除時の効果音
  #--------------------------------------------------------------------------
  FILE_DELETE = "Collapse1"
  #--------------------------------------------------------------------------
  # ◇ 操作説明
  #--------------------------------------------------------------------------
  #     INFO_POS  : 説明文の表示位置 [x, y] の配列で指定
  #     INFO_TEXT : 説明文の文字列 (表示しない場合は、"" としてください。)
  #               : ファイルパスを指定すると 320x20 の画像を使用できます。
  #               : "./Pictures/filename" もしくは、"./System/filename"
  #--------------------------------------------------------------------------
  # 表示位置
  INFO_POS = [220, 396]
  # 説明文
  INFO_TEXT = "Ｙボタン：セーブファイル削除"
  #--------------------------------------------------------------------------
  # ◇ 確認メッセージの行幅 (24 以上)
  #--------------------------------------------------------------------------
  WLH = 32
end


#/////////////////////////////////////////////////////////////////////////////#
#                                                                             #
#                下記のスクリプトを変更する必要はありません。                 #
#                                                                             #
#/////////////////////////////////////////////////////////////////////////////#


# セーブファイル削除音
CAO::ExSave::SE_DELETE = RPG::SE.new(CAO::ExSave::FILE_DELETE, 80)

class Window_SaveFile < Window_Base
  #--------------------------------------------------------------------------
  # ● 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_reader   :pngname                  # 画像ファイル名
  #--------------------------------------------------------------------------
  # ○ オブジェクト初期化
  #     file_index : セーブファイルのインデックス (0～3)
  #     filename   : ファイル名
  #     pngname    : 画像ファイル名
  #--------------------------------------------------------------------------
  def initialize(file_index, filename, pngname)
    super(file_index % 2 * 272, 56 + file_index / 2 * 180, 272, 180)
    self.contents.font.size = 16
    @file_index = file_index
    @filename = filename
    @pngname = pngname
    load_gamedata
    refresh
    @selected = false
  end
  #--------------------------------------------------------------------------
  # ○ リフレッシュ
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    self.contents.font.color = normal_color
    name = Vocab::File + " #{@file_index + 1}"
    self.contents.draw_text(4, 0, 112, WLH, name)
    @name_width = contents.text_size(name).width
    if @file_exist
      draw_image(0, WLH + 2)
      draw_playtime(124, 2, 112, 2)
      draw_party_characters(128, WLH + 2)
      draw_mapname(0, WLH * 5 + 4)
    end
  end
  #--------------------------------------------------------------------------
  # ○ パーティキャラの描画
  #     x : 描画先 X 座標
  #     y : 描画先 Y 座標
  #--------------------------------------------------------------------------
  def draw_party_characters(x, y)
    for i in 0...@characters.size
      break unless i < CAO::ExSave::MAX_MEMBERS
      dy = y + i * WLH
      name = @characters[i][0]
      index = @characters[i][1]
      self.contents.fill_rect(x+1, dy+1, 22, 22, CAO::ExSave::COLOR_CHARA_BACK)
      draw_character(name, index, x + 2, dy + 2)
      self.contents.draw_text(x + 26, dy, 86, WLH, character_name(i))
    end
  end
  #--------------------------------------------------------------------------
  # ◎ 歩行グラフィックの描画
  #     character_name  : 歩行グラフィック ファイル名
  #     character_index : 歩行グラフィック インデックス
  #     x               : 描画先 X 座標
  #     y               : 描画先 Y 座標
  #--------------------------------------------------------------------------
  def draw_character(character_name, character_index, x, y)
    return if character_name == nil
    bitmap = Cache.character(character_name)
    sign = character_name[/^[\!\$]./]
    if sign != nil and sign.include?('$')
      cw = bitmap.width / 3
      ch = bitmap.height / 4
    else
      cw = bitmap.width / 12
      ch = bitmap.height / 8
    end
    n = character_index
    src_rect = Rect.new((n%4*3+1)*cw, (n/4*4)*ch + 4, 20, 20)
    src_rect.x += (cw - 20) / 2
    self.contents.blt(x, y, bitmap, src_rect)
  end
  #--------------------------------------------------------------------------
  # ● マップの描画
  #--------------------------------------------------------------------------
  def draw_image(x, y)
    if FileTest.exist?(@pngname)
      bitmap = Bitmap.new(@pngname)
      self.contents.blt(x, y, bitmap, bitmap.rect)
    else
      self.contents.fill_rect(x, y, 120, 96, CAO::ExSave::COLOR_IMAGE_BACK)
    end
  end
  #--------------------------------------------------------------------------
  # ● マップ名の描画
  #--------------------------------------------------------------------------
  def draw_mapname(x, y)
    self.contents.font.color = system_color
    self.contents.draw_text(x, y, 64, 20, CAO::ExSave::TEXT_MAP)
    self.contents.font.color = normal_color
    self.contents.draw_text(x+70, y, 170, 20, self.map_name)
  end
  #--------------------------------------------------------------------------
  # ● キャラクター名の取得
  #--------------------------------------------------------------------------
  def character_name(index)
    return "" unless @game_system.save_data[:party]
    return @game_system.save_data[:party][index] || ""
  end
  #--------------------------------------------------------------------------
  # ● マップ名の取得
  #--------------------------------------------------------------------------
  def map_name
    return @game_system.save_data[:map] || ""
  end
end

class Window_ExSaveCommand < Window_Selectable
  include CAO::ExSave
  #--------------------------------------------------------------------------
  # ● 定数
  #--------------------------------------------------------------------------
  WLH = CAO::ExSave::WLH    # 行の高さ基準値 (Window Line Height)
  #--------------------------------------------------------------------------
  # ● オブジェクト初期化
  #     x       : ウィンドウの X 座標
  #     y       : ウィンドウの Y 座標
  #     width   : ウィンドウの幅
  #     height  : ウィンドウの高さ
  #     spacing : 横に項目が並ぶときの空白の幅
  #--------------------------------------------------------------------------
  def initialize
    super(72, 158, 420, WLH * 2 + 36)
    self.active = false
    self.openness = 0
    @opening = false            # ウィンドウのオープン中フラグ
    @closing = false            # ウィンドウのクローズ中フラグ
    @item_max = 2
    @column_max = 2
    @index = -1
    @spacing = 16
    refresh
  end
  #--------------------------------------------------------------------------
  # ● フレーム更新
  #--------------------------------------------------------------------------
  def update
    super
    self.active = self.openness != 0
  end
  #--------------------------------------------------------------------------
  # ● リフレッシュ
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    self.contents.font.color = normal_color
    self.contents.draw_text(0, 0, contents.width, WLH, DEL_TEXT[0], 1)
    for i in 0...@item_max
      draw_item(i)
    end
  end
  #--------------------------------------------------------------------------
  # ● 項目の描画
  #     index   : 項目番号
  #     enabled : 有効フラグ。false のとき半透明で描画
  #--------------------------------------------------------------------------
  def draw_item(index, enabled = true)
    rect = item_rect(index)
    rect.x += 4
    rect.width -= 8
    self.contents.clear_rect(rect)
    self.contents.font.color = normal_color
    self.contents.font.color.alpha = enabled ? 255 : 128
    self.contents.draw_text(rect, DEL_TEXT[index + 1], 1)
  end
  #--------------------------------------------------------------------------
  # ● 項目を描画する矩形の取得
  #     index : 項目番号
  #--------------------------------------------------------------------------
  def item_rect(index)
    rect = Rect.new(0, 0, 0, 0)
    rect.width = (contents.width + @spacing) / @column_max - @spacing
    rect.height = WLH
    rect.x = index % @column_max * (rect.width + @spacing)
    rect.y = index / @column_max * WLH + WLH + 4
    return rect
  end
end

class Scene_File < Scene_Base
  #--------------------------------------------------------------------------
  # ● 定数
  #--------------------------------------------------------------------------
  SAVE_DIRECTORY = 'Save'
  #--------------------------------------------------------------------------
  # ○ 開始処理
  #--------------------------------------------------------------------------
  alias _cao_start_exsave start
  def start
    _cao_start_exsave
    @command_window = Window_ExSaveCommand.new
    create_info_sprite
  end
  #--------------------------------------------------------------------------
  # ● 終了処理
  #--------------------------------------------------------------------------
  alias _cao_terminate_exsave terminate
  def terminate
    _cao_terminate_exsave
    @command_window.dispose
    dispose_info_sprite
  end
  #--------------------------------------------------------------------------
  # ● フレーム更新
  #--------------------------------------------------------------------------
  alias _cao_update_exsave update
  def update
    if @command_window.active
      update_menu_background
      @command_window.update
      update_command_input
    else
      _cao_update_exsave
    end
  end
  #--------------------------------------------------------------------------
  # ● 
  #--------------------------------------------------------------------------
  def update_command_input
    if Input.trigger?(Input::C)
      Sound.play_decision
      if @command_window.index == 0
        CAO::ExSave::SE_DELETE.play unless CAO::ExSave::FILE_DELETE.empty?
        delete_file(@index)
        @savefile_windows[@index].load_gamedata
        @savefile_windows[@index].refresh
        return_scene if !@saving && !savefile_exist?
      end
      @command_window.close
    elsif Input.trigger?(Input::B)
      Sound.play_cancel
      @command_window.close
    end
  end
  #--------------------------------------------------------------------------
  # ● 説明文の生成
  #--------------------------------------------------------------------------
  def create_info_sprite
    @info_sprite = Sprite.new
    @info_sprite.x = CAO::ExSave::INFO_POS[0]
    @info_sprite.y = CAO::ExSave::INFO_POS[1]
    @info_sprite.z = 100
    @info_sprite.bitmap = Bitmap.new(320, 20)
    if /^\.\/(Pictures|System)\/(.+)/i =~ CAO::ExSave::INFO_TEXT
      directory, filename = $1, $2
      case directory.downcase
      when "pictures"
        bmp = Cache.picture(filename)
      when "system"
        bmp = Cache.system(filename)
      end
      @info_sprite.bitmap.blt(0, 0, bmp, bmp.rect)
    else
      @info_sprite.bitmap.font.size = 14
      @info_sprite.bitmap.draw_text(0, 0, 320, 20, CAO::ExSave::INFO_TEXT, 2)
    end
  end
  #--------------------------------------------------------------------------
  # ● 説明文の解放
  #--------------------------------------------------------------------------
  def dispose_info_sprite
    @info_sprite.bitmap.dispose
    @info_sprite.dispose
  end
  #--------------------------------------------------------------------------
  # ○ セーブファイルウィンドウの作成
  #--------------------------------------------------------------------------
  def create_savefile_windows
    @savefile_windows = []
    for i in 0..3
      obj = Window_SaveFile.new(i, make_filename(i), make_pngname(i))
      @savefile_windows.push(obj)
    end
    @item_max = 4
  end
  #--------------------------------------------------------------------------
  # ○ セーブファイル選択の更新
  #--------------------------------------------------------------------------
  def update_savefile_selection
    if Input.trigger?(Input::C)
      determine_savefile
    elsif Input.trigger?(Input::B)
      Sound.play_cancel
      return_scene
    elsif CAO::ExSave::DEF_KEY && Input.trigger?(CAO::ExSave::DEF_KEY)
      if @savefile_windows[@index].file_exist
        Sound.play_decision
        @command_window.open
        @command_window.active = true
        @command_window.index = 0
      else
        Sound.play_buzzer
      end
    else
      last_index = @index
      if Input.trigger?(Input::UP) || Input.trigger?(Input::DOWN)
        @index = (@index + 2) % @item_max
      end
      if Input.trigger?(Input::LEFT) || Input.trigger?(Input::RIGHT)
        @index += (@index % 2 == 0 ? 1 : -1)
      end
      if @index != last_index
        Sound.play_cursor
        @savefile_windows[last_index].selected = false
        @savefile_windows[@index].selected = true
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● セーブファイルの有無判定
  #--------------------------------------------------------------------------
  def savefile_exist?
    return Dir.glob(SAVE_DIRECTORY + '/*.rvdata').size > 0
  end
  #--------------------------------------------------------------------------
  # ○ セーブファイル名の作成
  #     file_index : セーブファイルのインデックス (0～3)
  #--------------------------------------------------------------------------
  def make_filename(file_index)
    return SAVE_DIRECTORY + "/#{file_index + 1}.rvdata"
  end
  #--------------------------------------------------------------------------
  # ● 画像ファイル名の作成
  #     file_index : セーブファイルのインデックス (0～3)
  #--------------------------------------------------------------------------
  def make_pngname(file_index)
    return SAVE_DIRECTORY + "/#{file_index + 1}.cdat"
  end
  #--------------------------------------------------------------------------
  # ● セーブファイルの削除
  #     file_index : セーブファイルのインデックス (0～3)
  #--------------------------------------------------------------------------
  def delete_file(file_index)
    for filename in [make_filename(file_index), make_pngname(file_index)]
      if FileTest.exist?(filename)
        File.delete(filename) rescue print $!
      end
    end
  end
  #--------------------------------------------------------------------------
  # ○ セーブの実行
  #--------------------------------------------------------------------------
  SetFileAttributes = Win32API.new('Kernel32', 'SetFileAttributes', 'pi', 'i')
  def do_save
    Dir::mkdir(SAVE_DIRECTORY) unless FileTest.directory?(SAVE_DIRECTORY)
    if $TEST
      SetFileAttributes.call(SAVE_DIRECTORY, 0x80)  # 隠し属性解除
    elsif CAO::ExSave::HIDDEN_DIRECTORY
      SetFileAttributes.call(SAVE_DIRECTORY, 0x02)  # 隠し属性設定
    end
    $game_temp.save_bitmap.save_png(@savefile_windows[@index].pngname)
    $game_system.save_data[:map] = $game_map.name
    $game_system.save_data[:party] =
      $game_party.members.map {|a| a.name }[0, CAO::ExSave::MAX_MEMBERS]
    file = File.open(@savefile_windows[@index].filename, "wb")
    write_save_data(file)
    file.close
    return_scene
  end
end

class Game_Temp
  #--------------------------------------------------------------------------
  # ● 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_accessor :save_bitmap              # 背景ビットマップ
  attr_accessor :playing_data_index       # プレイ中のセーブファイル
end

class Game_System
  #--------------------------------------------------------------------------
  # ● 拡張したセーブ内容の取得
  #--------------------------------------------------------------------------
  def save_data
    @save_data ||= {}
    return @save_data
  end
end

class Scene_Title < Scene_Base
  #--------------------------------------------------------------------------
  # ○ コンティニュー有効判定
  #--------------------------------------------------------------------------
  def check_continue
    filename = Scene_File::SAVE_DIRECTORY + '/*.rvdata'
    @continue_enabled = (Dir.glob(filename).size > 0)
  end
end

class Scene_Map < Scene_Base
  #--------------------------------------------------------------------------
  # ○ メニュー画面への切り替え
  #--------------------------------------------------------------------------
  alias _cao_exsave_call_menu call_menu
  def call_menu
    snap_to_save
    _cao_exsave_call_menu
  end
  #--------------------------------------------------------------------------
  # ○ セーブ画面への切り替え
  #--------------------------------------------------------------------------
  alias _cao_exsave_call_save call_save
  def call_save
    snap_to_save
    _cao_exsave_call_save
  end
  #--------------------------------------------------------------------------
  # ● マップ画像を保存
  #--------------------------------------------------------------------------
  def snap_to_save
    if $game_map.loop_horizontal?
      cut_x = 152
    else
      cut_x = ($game_player.real_x - $game_map.display_x) / 8 - 104
      cut_x = 0 if cut_x < 0
    end
    if $game_map.loop_vertical?
      cut_y = 112
    else
      cut_y = ($game_player.real_y - $game_map.display_y) / 8 - 80
      cut_y = 0 if cut_y < 0
    end
    $game_temp.save_bitmap = Graphics.snap_to_bitmap
    bmp_blur = $game_temp.save_bitmap.dup
    bmp_blur.blur
    bitmap = Bitmap.new(120, 96)
    src_rect = Rect.new(cut_x, cut_y, 240, 192)
    bitmap.stretch_blt(bitmap.rect, bmp_blur, src_rect)
    bitmap.stretch_blt(bitmap.rect, $game_temp.save_bitmap, src_rect, 48)
    $game_temp.save_bitmap = bitmap
    bmp_blur.dispose
  end
end

# KAMESOFT『カーソルアニメーション』対策
if $imported && $imported["CursorAnimation"]
class Scene_File < Scene_Base
  #--------------------------------------------------------------------------
  # ○ フレーム更新
  #--------------------------------------------------------------------------
  alias _cao_exsave_update update
  def update
    _cao_exsave_update
    @savefile_windows[@index].active = !@command_window.active
  end
end
# KGC_CursorAnimation   ◇ Last update : 2009/02/15 ◇
class Cursor_Animation
  #--------------------------------------------------------------------------
  # ○ ウィンドウの可視・アクティブ状態判定
  #--------------------------------------------------------------------------
  def window_active?(window)
    return false if window == nil
    return false if window.disposed?
    return false unless window.visible

    if window.is_a?(Window_Selectable)
      return true if window.active
    elsif window.is_a?(Window_SaveFile)
      return true if window.active && window.selected
    end
    return false
  end
  #--------------------------------------------------------------------------
  # ○ アクティブウィンドウを探す
  #--------------------------------------------------------------------------
  def search_active_window
    return @windows.find { |w|
      if !w.visible
        false
      elsif w.is_a?(Window_Selectable)
        w.active && w.index >= 0
      elsif w.is_a?(Window_SaveFile)
        w.active && w.selected
      else
        false
      end
    }
  end
end
end # if $imported && $imported["CursorAnimation"]

■ 必須事項

■ ベーススクリプト

このスクリプトの実行には下記のスクリプトが必要になります。
　・ Cacao Base Script
　・ Bitmap Class EX

■ 注意事項

このスクリプトを導入すると、セーブファイルは１つのフォルダにまとめられます。
また、デフォルトの設定では隠し属性のフォルダに保存されますのでご注意ください。

テストプレイで実行すると設定は解除されますが、
設定が解除できない場合は下記の方法をお試しください。

■ セーブフォルダの確認方法

隠し属性に設定されたフォルダは通常表示されませんが、
フォルダにはアクセス可能です。
フォルダのアドレスバーに %ゲームフォルダ%\Save と入力して移動してください。
※ %ゲームフォルダ% は、適当なパスに変更してください。

フォルダのプロパティを開いて [隠しファイル] のチェックを外すと設定を解除できます。

■ セーブフォルダの削除方法

[フォルダオプション] にて [表示] タブを選択し、
[すべてのファイルとフォルダを表示する] の項目をチェックしてください。
これでフォルダが表示されますので、通常通り削除していただけます。

バッチファイルを使用すると、上記作業は不要です。
メモ帳などのテキストエディタに@rmdir /s /q "Save"と記入して、
ゲームフォルダに DeleteSave.bat というファイル名で保存してください。
このファイルを実行するとセーブフォルダとその内容が削除されます。
※ ごみ箱には移動されませんのでご注意ください。

■ 設定項目

■ セーブフォルダを隠し属性で作成する

HIDDEN_DIRECTORY = true

テストプレイで実行すると設定は解除されます。
動作の確認がしたい場合は、Game.exe から実行してください。
※ 属性が変更されるタイミングは、セーブを行ったときです。

■ マップ画像の背景色

COLOR_IMAGE_BACK = Color.new(0, 0, 0)

マップ画像が存在しない場合など、この色で塗り潰されます。

■ 表示されるパーティの人数

MAX_MEMBERS = 4

４人より多くするとレイアウトが崩れると思います。
パーティの全員を表示されたくない場合に設定を変更してください。

■ 削除時の効果音

FILE_DELETE = "Collapse1"

効果音(SE)のファイル名を文字列で設定してください。
効果音を鳴らさない場合は、空文字列("")を設定してください。

＜拡張＞ セーブ画面

＜拡張＞セーブ画面