じ☆ve冰风 发表于 2024-4-20 00:10:38

存档位真无限扩展 v2.1

对本人2006年同名脚本的修订,去掉了所有设置项改成自适应,这次是真·无限了,100个,1000个随便你,只受磁盘空间的限制
实现原理:
本系统会自己检测所有从1开始连续编号的存档文件,并提供一个另存为空位,实现线性无限扩展。因此,第一次存档时,存档位只有1个而不是系统默认的4个,这是正常现象,它会随着你存档数目的增加而增加。
更新v2.1
1. 改善刷新方式,感谢@RyanBern
2. 新增翻页方式,最多一次可翻256,没有这么多存档时直接首尾而不是冻结
3. 优化显示效果,存档不足4个或不能被4整除时有空窗口占位,不会有黑边
4. 增加了对于Scene_Load检索的支持

其他见脚本说明:
RUBY 代码
#==============================================================================
# ■ 存档位真·无限扩展 v2.1 by SailCat
#------------------------------------------------------------------------------
#   方法:插入到Main之前使用。
#   版本:v2.1 (Build 171011)
#   效果:存档位真·无限扩展,不需要配置,系统自动检测根据存档逐一扩展
#   冲突:和其他存档扩展脚本冲突
#   操作:上下翻1,左右翻4,Ctrl+上下翻16,Ctrl+左右翻64,LR翻256,Ctrl+LR头尾
#==============================================================================

class Scene_File
#--------------------------------------------------------------------------
# ● 追加定义
#--------------------------------------------------------------------------
attr_reader:top_index# 首项 索引值
unless method_defined? :sailcat_initialize
    alias sailcat_initialize initialize
end
#--------------------------------------------------------------------------
# ● 初始化对像
#   help_text : 帮助窗口显示的字符串
#--------------------------------------------------------------------------
def initialize(help_text)
    sailcat_initialize(help_text)
    @file_count ||= save_count
end
#--------------------------------------------------------------------------
# ● 设置首项,重绘首项之后的4个窗口
#   index : 新的首项
#--------------------------------------------------------------------------
def top_index=(index)
    index = .min].max
    if@top_index != index
      @top_index = index
      redraw_windows
    end
end
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
def main
    # 生成帮助窗口
    @help_window = Window_Help.new
    @help_window.set_text(@help_text)
    # 选择最后操作的文件
    @file_index = [@file_count - 1, $game_temp.last_file_index].min
    # 只刷新需要显示的窗口
    self.top_index = @file_index
    @savefile_windows[@file_index % 4].selected = true
    # 执行过渡
    Graphics.transition
    # 主循环
    loopdo
      # 刷新游戏画面
      Graphics.update
      # 刷新输入信息
      Input.update
      # 刷新画面
      update
      # 如果画面被切换的话就中断循环
      if$scene != self
      break
      end
    end
    # 准备过渡
    Graphics.freeze
    # 释放窗口
    @help_window.dispose
    for i in@savefile_windows
      i.dispose
    end
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
    # 刷新窗口
    @help_window.update
    for i in@savefile_windows
      i.update
    end
    # 按下 C 键的情况下
    if Input.trigger?(Input::C)
      # 调用过程 on_decision (定义继承目标)
      on_decision(make_filename(@file_index))
      $game_temp.last_file_index = @file_index
      return
    end
    # 按下 B 键的情况下
    if Input.trigger?(Input::B)
      # 调用过程 on_cancel (定义继承目标)
      on_cancel
      return
    end
    # 按下下方向键的情况下
    if Input.repeat?(Input::DOWN)
      move_index(Input.press?(Input::CTRL) ? 16 : 1)
      return
    end
    # 按下上方向键的情况下
    if Input.repeat?(Input::UP)
      move_index(Input.press?(Input::CTRL) ? -16 : -1)
      return
    end
    # 按下左方向键的情况下
    if Input.repeat?(Input::LEFT)
      move_index(Input.press?(Input::CTRL) ? -64 : -4)
      return
    end
    # 按下右方向键的情况下
    if Input.repeat?(Input::RIGHT)
      move_index(Input.press?(Input::CTRL) ? 64 : 4)
      return
    end
    # 按下 R 键的情况下
    if Input.trigger?(Input::R)
      Input.press?(Input::CTRL) ? set_index(-1) : move_index(256)
      return
    end
    # 按下 L 键的情况下
    if Input.trigger?(Input::L)
      Input.press?(Input::CTRL) ? set_index(0) : move_index(-256)
      return
    end
end
#--------------------------------------------------------------------------
# ● 生成文件名
#   file_index : 文件名的索引 (0~3)
#--------------------------------------------------------------------------
def make_filename(file_index)
    return"Save#{file_index + 1}.rxdata"
end
#--------------------------------------------------------------------------
# ● 移动光标
#   distance : 移动的距离
#--------------------------------------------------------------------------
def move_index(distance)
    if@file_index == 0and distance < 0
      set_index(-1)
    elsif@file_index == @file_count - 1and distance > 0
      set_index(0)
    else
      set_index(.min].max)
    end
end
#--------------------------------------------------------------------------
# ● 设置光标位置
#   new_index : 新光标位置
#--------------------------------------------------------------------------
def set_index(new_index)
    new_index += @file_countif new_index < 0
    # 演奏光标 SE
    $game_system.se_play($data_system.cursor_se)
    # 光标移动到新位置
    @savefile_windows[@file_index % 4].selected = false
    @file_index = new_index
    self.top_index = new_index
    @savefile_windows[@file_index % 4].selected = true
end
#--------------------------------------------------------------------------
# ● 检测存档数目
#--------------------------------------------------------------------------
def save_count
    i = 0
    whileFileTest.exists?(make_filename(i))
      i += 1
    end
    returnself.is_a?(Scene_Save) ? i + 1 : i
end
#--------------------------------------------------------------------------
# ● 重绘存档文件窗口
#--------------------------------------------------------------------------
def redraw_windows
    # 生成存档文件窗口
    @savefile_windows.each{ |i| i.dispose}unless@savefile_windows == nil
    @savefile_windows = []
    for i in@top_index...[@top_index + 4, @file_count].min
      filename = make_filename(i)
      window = Window_SaveFile.new(i, filename)
      window.y = i % 4 * 104 + 64
      @savefile_windows.push(window)
    end
    (4 - @savefile_windows.size).timesdo |i|
      window = Window_Base.new(0, 376 - i * 104, 640, 104)
      window.opacity = window.back_opacity = 128
      @savefile_windows.push(window)
    end
end
end

class Scene_Load < Scene_File
#--------------------------------------------------------------------------
# ● 初始化对像
#--------------------------------------------------------------------------
def initialize
    # 再生成临时对像
    $game_temp = Game_Temp.new
    # 选择存档时间最新的文件
    $game_temp.last_file_index = 0
    latest_time = Time.at(0)
    @file_count = save_count
    for i in0...@file_count
      File.open(make_filename(i), "r")do |f|
      if f.mtime > latest_time
          latest_time = f.mtime
          $game_temp.last_file_index = i
      end
      end
    end
    super("要载入哪个文件?")
end
end



范例工程点此下载:








             本帖来自P1论坛作者来自网络,因Project1站服务器在国外有时候访问缓慢不方便作者交流学习,经联系P1站长fux2同意署名转载一起分享游戏制作经验,共同为国内独立游戏作者共同创造良好交流环境,原文地址:https://rpg.blue/forum.php?mod=viewthread&tid=403346若有侵权,发帖作者可联系底部站长QQ在线咨询功能删除,谢谢。
页: [1]
查看完整版本: 存档位真无限扩展 v2.1