汗汗~ 无聊抢别人的功劳来发下~ 自动存档啦~ - Project1

module Kernel
alias origin_exit exit unless method_defined? :exit
def exit(*args)
case $scene
when Scene_Map
AutoSave.common_save unless $game_system.map_interpreter.running?
when Scene_Battle
AutoSave.common_save unless $game_system.battle_interpreter.running?
else
if $scene.type != NilClass and $scene.type != Scene_Title
AutoSave.common_save
end
end
origin_exit(*args)
end
end
module AutoSave
if @scene_proc.nil?
@last_scene = nil.class
@scene_proc = proc do |value|
if value.nil? or value.is_a?(Scene_Title)
if @last_scene != NilClass and @last_scene != Scene_Title
AutoSave.common_save
end
end
@last_scene = value.type
end
trace_var(:$scene,@scene_proc)
end
module_function
def common_save
filename = "Save#{$game_temp.last_file_index + 1}.rxdata"
file = File.open(filename, "wb")
write_save_data(file)
file.close
end
def write_save_data(file)
characters = []
for i in 0...$game_party.actors.size
actor = $game_party.actors[i]
characters.push([actor.character_name, actor.character_hue])
end
Marshal.dump(characters, file)
Marshal.dump(Graphics.frame_count, file)
$game_system.save_count += 1
$game_system.magic_number = $data_system.magic_number
Marshal.dump($game_system, file)
Marshal.dump($game_switches, file)
Marshal.dump($game_variables, file)
Marshal.dump($game_self_switches, file)
Marshal.dump($game_screen, file)
Marshal.dump($game_actors, file)
Marshal.dump($game_party, file)
Marshal.dump($game_troop, file)
Marshal.dump($game_map, file)
Marshal.dump($game_player, file)
end
end

复制代码

module Kernel
alias origin_exit exit unless method_defined? :exit
def exit(*args)
case $scene
when Scene_Map
AutoSave.common_save unless $game_system.map_interpreter.running?
when Scene_Battle
AutoSave.common_save unless $game_system.battle_interpreter.running?
else
if $scene.type != NilClass and $scene.type != Scene_Title
AutoSave.common_save
end
end
origin_exit(*args)
end
end
module AutoSave
if @scene_proc.nil?
@last_scene = nil.class
@scene_proc = proc do |value|
if value.nil? or value.is_a?(Scene_Title)
if @last_scene != NilClass and @last_scene != Scene_Title
AutoSave.common_save
end
end
@last_scene = value.type
end
trace_var(:$scene,@scene_proc)
end
module_function
def common_save
filename = "Save#{$game_temp.last_file_index + 1}.rxdata"
file = File.open(filename, "wb")
write_save_data(file)
file.close
end
def write_save_data(file)
characters = []
for i in 0...$game_party.actors.size
actor = $game_party.actors[i]
characters.push([actor.character_name, actor.character_hue])
end
Marshal.dump(characters, file)
Marshal.dump(Graphics.frame_count, file)
$game_system.save_count += 1
$game_system.magic_number = $data_system.magic_number
Marshal.dump($game_system, file)
Marshal.dump($game_switches, file)
Marshal.dump($game_variables, file)
Marshal.dump($game_self_switches, file)
Marshal.dump($game_screen, file)
Marshal.dump($game_actors, file)
Marshal.dump($game_party, file)
Marshal.dump($game_troop, file)
Marshal.dump($game_map, file)
Marshal.dump($game_player, file)
end
end

复制代码

以下引用美兽于2007-2-5 9:05:00的发言：

我倒明白那个意思,但不明白的是结构

exit本身不是已经有了吗?为什么要判断是否存在???
这句话不是当模块没定义了exit的实例方法
unless method_defined? :exit
则重命名
alias origin_exit exit
那么没定义exit,又是根据什么重命名呢??

以下引用杨飞云于2007-2-5 9:46:38的发言：

这段代码写得过于拖沓，而且还有些问题。判断从Scene_Title转到Scene_Load的地方没对。

简化后：

本帖相关代码如下：
module Kernel
  alias origin_exit exit;
  def exit(*args)
unless ($game_player.nil?)
   AutoSave.common_save ();
end
origin_exit (*args);
  end
end
module AutoSave
  module_function ();
  def common_save ()
filename = "Save#{$game_temp.last_file_index + 1}.rxdata";
file = File.open (filename, "wb");
write_save_data (file);
file.close ();
  end

  def write_save_data (file)
characters = [];
for i in 0 ... $game_party.actors.size
   actor = $game_party.actors ;
   characters.push ([actor.character_name, actor.character_hue]);
end
Marshal.dump (characters, file);
Marshal.dump (Graphics.frame_count, file);
$game_system.save_count += 1;
$game_system.magic_number = $data_system.magic_number;
Marshal.dump ($game_system, file);
Marshal.dump ($game_switches, file);
Marshal.dump ($game_variables, file);
Marshal.dump ($game_self_switches, file);
Marshal.dump ($game_screen, file);
Marshal.dump ($game_actors, file);
Marshal.dump ($game_party, file);
Marshal.dump ($game_troop, file);
Marshal.dump ($game_map, file);
Marshal.dump ($game_player, file);
  end
end

[本贴由作者于 2007-2-5 9:53:23 最后编辑]