扩展游戏设计思路：超级变量 - Project1

#==================================================================
# ■SUPER_VARISBLES
#------------------------------------------------------------------
# 超级变量
#===================================================================
=begin
版本1.0
脚本作用：独立一些变量为特殊变量，这些变量在改变的同时就会保存。
使用方法：设置变量首尾ID，此外需设定特殊变量保存位置(可以让玩家找不到的位置)
注意事项：特殊变量最好不要做其他用途。
使用特殊变量后存档由两部分组成
请确保变量总数超过尾ID
超级变量首变量和尾变量被系统保利，请勿使用
可能冲突：暂无，若冲突请查看○标志的地方。
=end
class Super_Varisbles
VAR_HEAD = 81 #设定超级变量首ID
VAR_LAST = 100 #设定超级变量尾ID
SEAT = ""#这里设定保存的位置，默认为游戏目录,例"save/"即为保存在save文件夹中。
#原设定表示81-100号变量为超级变量。
#--------------------------------------------------------------------------
# ● 初始化
#--------------------------------------------------------------------------
def index
$game_variables[VAR_HEAD]+1
end
#--------------------------------------------------------------------------
# ● 执行存档
# id :存档编号，若存档编号为空则自动寻找存档编号
#--------------------------------------------------------------------------
def save(id = 0)
id = id == 0? index : id
var = []
for i in VAR_HEAD...VAR_LAST
var.push($game_variables[i])
end
file = File.open(file_name(id), "wb")
Marshal.dump(var,file) #写入数据
file.close
end#save(id = 0)
#--------------------------------------------------------------------------
# ● 执行读档
# id :存档编号
#--------------------------------------------------------------------------
def load(id=0)
id = id == 0? index : id
return if !FileTest.exist?(file_name(id))
file = File.open(file_name(id), "rb")
var = Marshal.load(file) #读取数据
file.close
for i in VAR_HEAD...VAR_LAST
$game_variables[i] = var[i-VAR_HEAD]
end
end #load(id=0)
#--------------------------------------------------------------------------
# ● 获取文件名
# id :存档编号
#--------------------------------------------------------------------------
def file_name(id=0)
SEAT+"super_var"+ (id).to_s + ".rvdata"
end
end#SUPER_VARISBLES
#==============================================================================
# ■ Scene_File
#------------------------------------------------------------------------------
# 　存档画面及读档画面的类。
#==============================================================================
class Scene_File < Scene_Base
#--------------------------------------------------------------------------
# ● 执行存档
#--------------------------------------------------------------------------
alias super_varisbles_do_save do_save
def do_save
super_varisbles_do_save
$game_variables[Super_Varisbles::VAR_HEAD] = @index
Super_Varisbles.new.save
$game_variables[Super_Varisbles::VAR_LAST] = 1
end
#--------------------------------------------------------------------------
# ● 执行读档
#--------------------------------------------------------------------------
alias super_varisbles_do_load do_load
def do_load
$game_variables[Super_Varisbles::VAR_LAST] = 0
super_varisbles_do_load
$game_variables[Super_Varisbles::VAR_HEAD] = @index
Super_Varisbles.new.load
$game_variables[Super_Varisbles::VAR_LAST] = 1
end
end
#==============================================================================
# ■ Game_Variables
#------------------------------------------------------------------------------
# 　处理变量的类。编入的是类 Array 的外壳。本类的实例请参考 $game_variables。
#==============================================================================
class Game_Variables
#--------------------------------------------------------------------------
# ● 设置变量
# variable_id : 变量 ID
# value : 变量的值
#--------------------------------------------------------------------------
def []=(variable_id, value)
if variable_id <= 5000
@data[variable_id] = value
end
if variable_id >= Super_Varisbles::VAR_HEAD and variable_id < Super_Varisbles::VAR_LAST
if $game_variables[Super_Varisbles::VAR_LAST] != 0
Super_Varisbles.new.save #保存变量
end
end
end
end
#======================================================================
# 作者：九夜神尊
#======================================================================

复制代码