Project1

标题: 关于截图扩展存档脚本的两个冲突问题 求高手解答 [打印本页]

---

作者: gkl0510    时间: 2016-1-31 20:26
标题: 关于截图扩展存档脚本的两个冲突问题 求高手解答


在游戏中使用了“截图扩展存档”的脚本替换了原来的脚本，
以增加存档的上限和存档的美观。



但是发生了以下两个问题


1.游戏中调用“呼出存档”指令时，调出的是默认的存档菜单，
无法调出新加入的脚本






2.当读取存档的时候如果按Esc 返回键的话就会和好几个脚本报错






已经苦思冥想了许久不知道如何解决，期待大神解救T-T



截图扩展存档脚本

RUBY 代码复制

###使用说明
#使用前请复制sceneshot.dll到游戏文件下,并新建文件夹Save
#将此文本插入main前面
#游戏前显示头像的文件名为:人物角色名_f,请自行建立几张做测试,不然找不到图片会报错
#自动存档按钮F5 存入档位0(也就是自动存档那栏)
#使用前,请在菜单脚本:scene_menu里面,
#     when 4 # 存档
#     # 禁止存档的情况下
#     if $game_system.save_disabled
#       # 演奏冻结 SE
#       $game_system.se_play($data_system.buzzer_se)
#       return
#     end
#     # 演奏确定 SE
#     $game_system.se_play($data_system.decision_se)
#     # 切换到存档画面
#     $scene = Scene_Save.new <--这行
#替换为:   $scene = Scene_Loadsave.new
#另,在原scene_title里,48行左右
#    for i in 0..3
#          for i in 0..3
#     if FileTest.exist?("Save#{i+1}.rxdata")
###################改成if FileTest.exist?("Save/Save#{i+1}.rxdata")
#        @continue_enabled = true
#      end
#    end
#否则继续游戏时会检测不到存档
 
class Window_File < Window_Base
 attr_accessor :index
 def initialize(index = 0)
   @backsp = Sprite.new
  # @backsp.bitmap = Bitmap.new("Graphics/Pictures/菜单底图.jpg")
   @backsp.z = 100
   super(160,64,480,416)
   #这行可以不用
   self.contents = Bitmap.new(width - 32, height - 32)
   #去框##
   self.opacity=0
   ##
   @index = index
   #这里我要说明一句，之所以用sprite是为了放缩图片
   @sprite = Sprite.new
   @sprite.visible = false
   @sprite.z = 100
   @sp_ch = []
   @sp_ch[0] = Sprite.new
   refresh
 end
 def refresh
   self.contents.clear
   for i in @sp_ch
     i.visible = false
   end
   @sprite.visible = false
   if FileTest.exist?(DIR+"Save#{@index}.rxdata")
     @sprite.visible = true
     if FileTest.exist?(DIR+"Save#{@index}.jpg")
       @sprite.bitmap = Bitmap.new(DIR+"Save#{@index}.jpg")
     else
       self.contents.draw_text(32,64,400,32,"截图似乎有点问题……您搞什么了您？")
     end
     @sprite.x = 206
     @sprite.y = 94
     @sprite.zoom_x = 0.6
     @sprite.zoom_y = 0.6
     file = File.open(DIR+"Save#{@index}.rxdata", "r")
     @time_stamp = file.mtime
     @characters = Marshal.load(file)
     @frame_count = Marshal.load(file)
     @game_system = Marshal.load(file)
     @game_switches = Marshal.load(file)
     @game_variables = Marshal.load(file)
     @total_sec = @frame_count / Graphics.frame_rate
     file.close
     for i in [email]0...@characters.size[/email]
       bitmap = RPG::Cache.character(@characters[i][0], @characters[i][1])
       cw = bitmap.rect.width / 4
       ch = bitmap.rect.height / 4
       src_rect = Rect.new(0, 0, cw, ch)
       x = i*100
       y = 320
       self.contents.blt(x, y, bitmap, src_rect)
     end
     # 描绘游戏时间
     hour = @total_sec / 60 / 60
     min = @total_sec / 60 % 60
     sec = @total_sec % 60
     time_string = sprintf("%02d:%02d:%02d", hour, min, sec)
     self.contents.font.color = normal_color
     self.contents.draw_text(4, 326, 420, 32, time_string, 2)
     # 描绘时间标记
     self.contents.font.color = normal_color
     time_string = @time_stamp.strftime("%Y/%m/%d %H:%M")
     self.contents.draw_text(4, 346, 420, 32, time_string, 2)###356
   else
     self.contents.draw_text(32,32,420,32,"这个存档是空的")
   end
 
 end
 def dispose
   super
   @sprite.dispose
   @backsp.dispose
   for i in @sp_ch
     i.dispose
   end
 end
end
 
 
class Window_File2 < Window_Base
 attr_accessor :index
 def initialize(index = 0)
   @backsp = Sprite.new
  # @backsp.bitmap = Bitmap.new("Graphics/Pictures/菜单底图.jpg")
   @backsp.z = 100
   super(160,0,480,480)
   #这行可以不用
   self.contents = Bitmap.new(width - 32, height - 32)
   #去框##
   self.opacity=0
   ##
   @index = index
   #这里我要说明一句，之所以用sprite是为了放缩图片
   @sprite = Sprite.new
   @sprite.visible = false
   @sprite.z = 100
   @sp_ch = []
   @sp_ch[0] = Sprite.new
   refresh
 end
 def refresh
   self.contents.clear
   for i in @sp_ch
     i.visible = false
   end
   @sprite.visible = false
   if FileTest.exist?(DIR+"Save#{@index}.rxdata")
     @sprite.visible = true
     if FileTest.exist?(DIR+"Save#{@index}.jpg")
       @sprite.bitmap = Bitmap.new(DIR+"Save#{@index}.jpg")
     else
       self.contents.draw_text(32,64,400,32,"截图似乎有点问题……您搞什么了您？")
     end
     @sprite.x = 176
     @sprite.y = 30
     @sprite.zoom_x = 0.7
     @sprite.zoom_y = 0.7
     file = File.open(DIR+"Save#{@index}.rxdata", "r")
     @time_stamp = file.mtime
     @characters = Marshal.load(file)
     @frame_count = Marshal.load(file)
     @game_system = Marshal.load(file)
     @game_switches = Marshal.load(file)
     @game_variables = Marshal.load(file)
     @total_sec = @frame_count / Graphics.frame_rate
     file.close
     for i in [email]0...@characters.size[/email]
       bitmap = RPG::Cache.character(@characters[i][0], @characters[i][1])
       cw = bitmap.rect.width / 4
       ch = bitmap.rect.height / 4
       src_rect = Rect.new(0, 0, cw, ch)
       x = i*100
       self.contents.blt(x, 440 - ch, bitmap, src_rect)
     end
     # 描绘游戏时间
     hour = @total_sec / 60 / 60
     min = @total_sec / 60 % 60
     sec = @total_sec % 60
     time_string = sprintf("%02d:%02d:%02d", hour, min, sec)
     self.contents.font.color = normal_color
     self.contents.draw_text(4, 390, 420, 32, time_string, 2)
     # 描绘时间标记
     self.contents.font.color = normal_color
     time_string = @time_stamp.strftime("%Y/%m/%d %H:%M")
     self.contents.draw_text(4, 420, 420, 32, time_string, 2)
   else
     self.contents.draw_text(32,32,420,32,"这个存档是空的")
   end
 
 end
 def dispose
   super
   @sprite.dispose
   @backsp.dispose
   for i in @sp_ch
     i.dispose
   end
 end
end
 
 
 
$打开自动存档用的开关编号 = 595
$自动存档位置 = 1
$按下F5之后的自动存档的音效 = "Audio/SE/存档"
$按下F5之后禁止存档时候的音效 = "Audio/Se/错误"
DIR = "Save/"
$打开自动存档开关之后调用的公共事件 = 0 #——默认未定义
$按下F5之后可以存档调用的公共事件 = 0 #——默认未定义
$按下F5之后禁止存档调用的公共事件 = 0 #——默认未定义
class Scene_Map
alias auto_update update 
def update
auto_update 
#——按下F5的时候自动存档，可以修改为F5,F6,F7,F8，也可以修改成默认按键但是不推荐。
#——注意在不可存档的时候是无效的
if Input.trigger?(Input::F5)
  unless $game_system.map_interpreter.running? 
  if $game_system.save_disabled
    Audio.se_play($按下F5之后禁止存档时候的音效)
    $game_temp.common_event_id = $按下F5之后禁止存档调用的公共事件
  else
    Audio.se_play($按下F5之后的自动存档的音效)
    $game_temp.common_event_id = $按下F5之后可以存档调用的公共事件
    auto_save
  end
  end
end
#——当BOSS战之前打开一下定义的开关，即可自动存档
if $game_switches[$打开自动存档用的开关编号] == true
  $game_switches[$打开自动存档用的开关编号] = false
  $game_temp.common_event_id = $打开自动存档开关之后调用的公共事件
  auto_save
end
end
def auto_save
#——这里定义了储存的文件，如果不希望用Save4可以自己修改编号
# 写入存档数据
Screen::shot
    file = File.open( DIR+"Save#{$自动存档位置}.rxdata", "wb")
    auto_save_data(file)
    if FileTest.exist?( DIR+"shot.jpg")
      File.rename( DIR+"shot.jpg", DIR+"Save#{$自动存档位置}.jpg") 
    end
    file.close
end
def auto_save_data(file)
#——以下定义内容和Scene_Save的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, actor])
end
# 写入描绘存档文件用的角色数据
Marshal.dump(characters, file)
# 写入测量游戏时间用画面计数
Marshal.dump(Graphics.frame_count, file)
# 增加 1 次存档次数
$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
 
 
 
 
 
 
 
DIR = "Save/"  # 储存文件夹名，请制作游戏时自行建立此文件夹
 
 
module Screen  
 @screen = Win32API.new 'screenshot', 'Screenshot', %w(l l l l p l l), ''
 @readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l 
 
p), 'l'
 @findwindow = Win32API.new 'user32', 'FindWindowA', %w(p p), 'l' 
 module_function
 def shot(file = "shot", typ = 1)
   # to add the right extension...
   if typ == 0
     typname = ".bmp"
   elsif typ == 1
     typname = ".jpg"
   elsif typ == 2
     typname = ".png"
   end    
   file_index = 0    
   dir = "Save/"    
   # make the filename....
   file_name = dir + file.to_s + typname.to_s    
   # make the screenshot.... Attention dont change anything from here on....
   @screen.call(0,0,640,480,file_name,handel,typ)
 end
 # find the game window...
 def handel
   game_name = "\0" * 256
   @readini.call('Game','Title','',game_name,255,".\\Game.ini")
   game_name.delete!("\0")
   return @findwindow.call('RGSS Player',game_name)
 end
end
 
 
class Scene_Menu
 alias shotsave_main main
 def main
   if @menu_index == 0
     Screen::shot
   end   
   shotsave_main
 end
end
 
class Interpreter
 #--------------------------------------------------------------------------
 # ● 调用存档画面
 #--------------------------------------------------------------------------
 def command_352
   # 设置战斗中断标志
   $game_temp.battle_abort = true
   # 设置调用存档标志
   $game_temp.save_calling = true
   # 推进索引
   @index += 1
   # 结束
   Screen::shot
   return false
 end
end
 
#==============================================================================
# ■ Scene_Load
#------------------------------------------------------------------------------
# 　处理读档画面的类。
#==============================================================================
 
class Scene_Load
 #--------------------------------------------------------------------------
 # ● 初始化对像
 #--------------------------------------------------------------------------
 def initialize
   # 再生成临时对像
   $game_temp = Game_Temp.new
   # 选择存档时间最新的文件
   $game_temp.last_file_index = 0
   latest_time = Time.at(0)
   for i in 0..51
     filename = DIR+"Save#{i}.rxdata"
     if FileTest.exist?(filename)
       file = File.open(filename, "r")
       if file.mtime > latest_time
         latest_time = file.mtime
         $game_temp.last_file_index = i
       end
       file.close
     end
   end
 end  
 def main
   #生成背景#
   ##生成菜单背景##
    @dff_save= Sprite.new
    @dff_save.bitmap = Bitmap.new("Graphics/Pictures/System/load")
   ##
   @command_window = Window_Command.new(160,["  自动存档","  快速存档","  进度二",
   "  进度三","  进度四","  进度五","  进度六","  进度七","  进度八","  进度九","  进度十",
   "  进度十一","  进度十二","  进度十三","  进度十四","  进度十五","  进度十六",
   "  进度十七","  进度十八","  进度十九","  进度二十","  进度二一","  进度二二",
   "  进度二三","  进度二四","  进度二五","  进度二六","  进度二七","  进度二八",
   "  进度二九","  进度三十"])
   @command_window.y = 1
   @command_window.height = 480
   @command_window.index = $game_temp.last_file_index
   @content_window = Window_File2.new($game_temp.last_file_index)
   #去框##
   @command_window.opacity = 0
   ##   
   # 执行过渡
   Graphics.transition
   # 主循环
   loop do
     # 刷新游戏画面
     Graphics.update
     # 刷新输入信息
     Input.update
     # 刷新画面
     update
     # 如果画面被切换的话就中断循环
     if $scene != self
       break
     end
   end
   # 准备过渡
   Graphics.freeze
   @command_window.dispose
   @content_window.dispose
   @dff_save.dispose
   @dff_save.bitmap.dispose
 end
 def update
   @command_window.update 
   if @command_window.index != @content_window.index
     @content_window.index = @command_window.index
     @content_window.refresh
   end    
   #——————下面这一部分是原装脚本——————#
   if Input.trigger?(Input::B)  
   # 演奏取消 SE
   $game_system.se_play($data_system.cancel_se)
   # 切换到标题画面
   #####$scene = Scene_Title.new
   $scene = Scene_Map.new
   end    
   #———————————————————————#    
   if Input.trigger?(Input::C)
     # 文件不存在的情况下
     unless FileTest.exist?(DIR+"Save#{@command_window.index}.rxdata")
       # 演奏冻结 SE
       $game_system.se_play($data_system.buzzer_se)
       return
     end
     # 演奏读档 SE
     $game_system.se_play($data_system.load_se)
     # 写入存档数据
     file = File.open(DIR+"Save#{@command_window.index}.rxdata", "rb")
     read_save_data(file)
     file.close
     # 还原 BGM、BGS
     $game_system.bgm_play($game_system.playing_bgm)
     $game_system.bgs_play($game_system.playing_bgs)
     # 刷新地图 (执行并行事件)
     $game_map.update
     # 切换到地图画面
     $scene = Scene_Map.new
   end
   #———————————————————————#
 end
 #--------------------------------------------------------------------------
 # ● 写入存档数据
 #     file : 写入用文件对像 (已经打开)
 #--------------------------------------------------------------------------
 def read_save_data(file)
   # 读取描绘存档文件用的角色数据
   characters = Marshal.load(file)
   # 读取测量游戏时间用画面计数
   Graphics.frame_count = Marshal.load(file)
   # 读取各种游戏对像
   $game_system        = Marshal.load(file)
   $game_switches      = Marshal.load(file)
   $game_variables     = Marshal.load(file)
   $game_self_switches = Marshal.load(file)
   $game_screen        = Marshal.load(file)
   $game_actors        = Marshal.load(file)
   $game_party         = Marshal.load(file)
   $game_troop         = Marshal.load(file)
   $game_map           = Marshal.load(file)
   $game_player        = Marshal.load(file)
   # 魔法编号与保存时有差异的情况下
   # (加入编辑器的编辑过的数据)
   if $game_system.magic_number != $data_system.magic_number
     # 重新装载地图
     $game_map.setup($game_map.map_id)
     $game_player.center($game_player.x, $game_player.y)
   end
   # 刷新同伴成员
   $game_party.refresh
 end
end
 
#==============================================================================
#  Window_LoadCommand
#------------------------------------------------------------------------------
#  存取档画面选择按钮窗口
#==============================================================================
 
class Window_LoadCommand < Window_Selectable
#--------------------------------------------------------------------------
#  初始化对象
#--------------------------------------------------------------------------
def initialize
 super(320, 0, 320, 64)
 self.contents = Bitmap.new(width - 32, height - 32)
 self.contents.font.color = normal_color
 #去框#
 self.opacity=0
 ##
 @item_max = 2
 @column_max = 2
 @commands = ["存储", "读取"]
 refresh
 self.index = 0
end
#--------------------------------------------------------------------------
#  刷新
#--------------------------------------------------------------------------
def refresh
 self.contents.clear
 for i in 0...@item_max
   draw_item(i)
 end
end
#--------------------------------------------------------------------------
#  描画按钮文字
#--------------------------------------------------------------------------
def draw_item(index)
 x = 4 + index * 160
 self.contents.draw_text(x, 0, 144, 32, @commands[index])
end
#--------------------------------------------------------------------------
# ● 项目无效化
#     index : 项目编号
#--------------------------------------------------------------------------
 def disable_item(index)
   draw_item(index, disabled_color)
 end
 
end
 
#==============================================================================
#  Scene_Loadsave
#------------------------------------------------------------------------------
# 处理存取档画面的类。
#==============================================================================
 
class Scene_Loadsave
#--------------------------------------------------------------------------
# ● 初始化对像
#     $last_savefile_index : 记录光标位置
#--------------------------------------------------------------------------
 def initialize
   $last_savefile_index = 0 if $last_savefile_index == nil
   # 再生成临时对像
   $game_temp = Game_Temp.new
   # 选择存档时间最新的文件
   $game_temp.last_file_index = 0
   latest_time = Time.at(0)
   for i in 0..51
     filename =  DIR+"Save#{i}.rxdata"
     if FileTest.exist?(filename)
       file = File.open(filename, "r")
       if file.mtime > latest_time
         latest_time = file.mtime
         $game_temp.last_file_index = i
       end
       file.close
     end
   end
 end
#--------------------------------------------------------------------------
#  主处理
#--------------------------------------------------------------------------
 def main         
   ##生成菜单背景##
    @dff_save= Sprite.new
    @dff_save.bitmap = Bitmap.new("Graphics/Pictures/System/saveload")
   ##
   @savestate = 0
   # 生成窗口
   @help_window = Window_LoadHelp.new
   @help_window.set_text("请选择.")
   @option_window = Window_LoadCommand.new
   @option_window.index = $last_savefile_index
   ########################################################
   @command_window = Window_Command.new(160,["  自动存档","  快速存档","   进度二",
   "   进度三","   进度四","   进度五","   进度六","   进度七","   进度八","   进度九","   进度十",
   "  进度十一","  进度十二","  进度十三","  进度十四","  进度十五","  进度十六",
   "  进度十七","  进度十八","  进度十九","  进度二十","  进度二一","  进度二二",
   "  进度二三","  进度二四","  进度二五","  进度二六","  进度二七","  进度二八",
   "  进度二九","  进度三十"])
     @command_window.y = 64
     @command_window.height = 378
     @command_window.index = $game_temp.last_file_index
     @content_window = Window_File.new($game_temp.last_file_index)
     @command_window.active = false
     #去框##
     @command_window.opacity = 0
     ##
     ###############覆盖存档
       @confirm_window = Window_Base.new(120, 188, 400, 64)
       @confirm_window.contents = Bitmap.new(368, 32)
 
       @confirm_window.contents.font.color = Color.new(255,255,255,255)
 
       string = "确定要覆盖这个进度吗？"
       @confirm_window.contents.font.name = "黑体"
       @confirm_window.contents.font.size = 24
       @confirm_window.contents.draw_text(4, 0, 368, 32, string)
       @yes_no_window = Window_Command.new(100, ["覆盖", "取消"])
       @confirm_window.z = 1500
       @yes_no_window.index = 1
       @yes_no_window.x = 270
       @yes_no_window.y = 252
       @yes_no_window.z = 1500
       @confirm_window.visible = false
       @yes_no_window.visible = false
       @yes_no_window.active = false
 
   # 执行过渡
   Graphics.transition
   # 主循环
   loop do
     # 刷新游戏画面
     Graphics.update
     # 刷新输入信息
     Input.update
     # 刷新画面
     update
     # 如果画面被切换的话就中断循环
     if $scene != self
       break
     end
   end
   # 准备过渡
   Graphics.freeze
   # 释放窗口 
   @command_window.dispose
   @content_window.dispose
   @confirm_window.dispose
   @yes_no_window.dispose
   @help_window.dispose
   @option_window.dispose
   @dff_save.dispose
   @dff_save.bitmap.dispose
 end
 
#--------------------------------------------------------------------------
#  ● 刷新画面
#--------------------------------------------------------------------------
 def update
   # 刷新窗口
   @help_window.update
   @option_window.update
#   @content_window.update
   @command_window.update
   if @yes_no_window.active
       confirm_update
       return
   end
   @content_window.index = @command_window.index
   @content_window.refresh
   case @savestate 
   when 0
       if Input.trigger?(Input::B)
       $game_system.se_play($data_system.cancel_se)
       # 返回地图
       if $menu_call == false
       # 切换到地图画面
       $scene = Scene_Map.new
         return
       end
       # 切换到菜单画面
       $menu_call = false
       $scene = Scene_Menu.new(5)
    end
     if Input.trigger?(Input::C)
       case @option_window.index
       when 1
         @command_window.active = true
         @option_window.active = false
         $game_system.se_play($data_system.decision_se)
         @help_window.set_text("请选择一个文件进行读取.")
         @savestate  = 1
         return
       when 0
 
         @command_window.active = true
         @option_window.active = false
         $game_system.se_play($data_system.decision_se)
         @help_window.set_text("请选择一个文件进行存储.")
         @savestate = 2
 
         return
       return
       end
     end
   when 1,2
     if Input.trigger?(Input::C)
       if @savestate == 1
         $menu_call = false
         load_file
         return
       else
         # 禁止存档的情况下
         if $game_system.save_disabled
           @help_window.set_text("抱歉,这里禁止存储.")
           # 演奏冻结 SE
           $game_system.se_play($data_system.buzzer_se)
           return
         end
        $game_system.se_play($data_system.decision_se)
        $last_savefile_index = @option_window.index
 
        save_file
         return
       end
     end
     # 取消
     if Input.trigger?(Input::B)
       $game_system.se_play($data_system.cancel_se)
       @command_window.active = false
       @help_window.set_text("请选择.")
       @savestate = 0
       @option_window.active = true
       return
     end
 
     if Input.trigger?(Input::B)
       $game_system.se_play($data_system.cancel_se)
       @savestate = 2
       @command_window.active = true
 
       return
     end 
   end 
 end
#--------------------------------------------------------------------------
# 建立记录文件索引
#--------------------------------------------------------------------------
 
#--------------------------------------------------------------------------
#  读取记录文件
#     filename  : 被读取文件
#--------------------------------------------------------------------------
def load_file
     # 文件不存在的情况下
     unless FileTest.exist?( DIR+"Save#{@command_window.index}.rxdata")
       # 演奏冻结 SE
       $game_system.se_play($data_system.buzzer_se)
       return
     end
     # 演奏读档 SE
     $game_system.se_play($data_system.load_se)
     # 写入存档数据
     file = File.open( DIR+"Save#{@command_window.index}.rxdata", "rb")
     read_save_data(file)
     file.close
     # 还原 BGM、BGS
     $game_system.bgm_play($game_system.playing_bgm)
     $game_system.bgs_play($game_system.playing_bgs)
     # 刷新地图 (执行并行事件)
     $game_map.update
     # 切换到地图画面
     $scene = Scene_Map.new
end
#--------------------------------------------------------------------------
# ● 读取存档数据
#     file : 读取用文件对像 (已经打开)
#--------------------------------------------------------------------------
 def read_save_data(file)
   # 读取描绘存档文件用的角色数据
   characters = Marshal.load(file)
   # 读取测量游戏时间用画面计数
   Graphics.frame_count = Marshal.load(file)
   # 读取各种游戏对像
   $game_system        = Marshal.load(file)
   $game_switches      = Marshal.load(file)
   $game_variables     = Marshal.load(file)
   $game_self_switches = Marshal.load(file)
   $game_screen        = Marshal.load(file)
   $game_actors        = Marshal.load(file)
   $game_party         = Marshal.load(file)
   $game_troop         = Marshal.load(file)
   $game_map           = Marshal.load(file)
   $game_player        = Marshal.load(file)
   # 魔法编号与保存时有差异的情况下
   # (加入编辑器的编辑过的数据)
   if $game_system.magic_number != $data_system.magic_number
     # 重新装载地图
     $game_map.setup($game_map.map_id)
     $game_player.center($game_player.x, $game_player.y)
   end
   # 刷新同伴成员
   $game_party.refresh
 end
 #--------------------------------------------------------------------------
 # ● 写入存档文件
 #--------------------------------------------------------------------------
 def save_file 
   if Input.trigger?(Input::C)
     unless FileTest.exist?( DIR+"Save#{@command_window.index}.rxdata")
       # 演奏冻结 SE
       # 演奏存档 SE
         $game_system.se_play($data_system.save_se)
         # 写入存档数据
         file = File.open( DIR+"Save#{@command_window.index}.rxdata", "wb")
         write_save_data(file)
         if FileTest.exist?( DIR+"shot.jpg")
           File.rename( DIR+"shot.jpg",  DIR+"Save#{@command_window.index}.jpg") 
         end
         file.close
         $game_temp.last_file_index = @command_window.index
         # 如果被事件调用
         if $game_temp.save_calling
           # 清除存档调用标志
           $game_temp.save_calling = false
           @confirm_window.dispose
           # 切换到地图画面
           $scene = Scene_Map.new    
           return
         end
       # 切换到菜单画面
         $scene = Scene_Menu.new(5) 
     end
     @yes_no_window.active = true
     @command_window.active = false             
   end
   #———————————————————————#     
 end
 #-------------------------------------------------------------------
 def confirm_update
   @command_index = @command_window.index
   @confirm_window.visible = true
   @confirm_window.z = 1500
   @yes_no_window.visible = true
   @yes_no_window.active = true
   @yes_no_window.z = 1500
   @yes_no_window.update
   if Input.trigger?(Input::C)
     if @yes_no_window.index == 0
         #######################################################
         # 演奏存档 SE
         $game_system.se_play($data_system.save_se)
         # 写入存档数据
         file = File.open( DIR+"Save#{@command_window.index}.rxdata", "wb")
         write_save_data(file)
         if FileTest.exist?( DIR+"shot.jpg")
           File.rename( DIR+"shot.jpg",  DIR+"Save#{@command_window.index}.jpg") 
         end
         file.close
         $game_temp.last_file_index = @command_window.index
         # 如果被事件调用
         if $game_temp.save_calling
           # 清除存档调用标志
           $game_temp.save_calling = false
           @confirm_window.dispose
           @content_window.dispose
           # 切换到地图画面
           $scene = Scene_Map.new
           return
         end
       # 切换到菜单画面
         $scene = Scene_Menu.new(5)       
       else
       @yes_no_window.visible = false
       @confirm_window.visible = false
       $game_system.se_play($data_system.cancel_se)
       @yes_no_window.active = false
       @command_window.active = true
       end
   end
   if Input.trigger?(Input::B)
     @yes_no_window.visible = false
     @confirm_window.visible = false
     $game_system.se_play($data_system.cancel_se)
     @yes_no_window.active = false
     @command_window.active = true
   end
 end
 #--------------------------------------------------------------------------
 # ● 写入存档数据
 #     file : 写入用文件对像 (已经打开)
 #--------------------------------------------------------------------------
 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, actor])
   end
   # 写入描绘存档文件用的角色数据
   Marshal.dump(characters, file)
   # 写入测量游戏时间用画面计数
   Marshal.dump(Graphics.frame_count, file)
   # 增加 1 次存档次数
   $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
 
#==============================================================================
# ■ Window_LoadHelp
#------------------------------------------------------------------------------
# 　存取档画面帮助信息的显示窗口。
#==============================================================================
 
class Window_LoadHelp < Window_Base
#--------------------------------------------------------------------------
#  初始化对象
#--------------------------------------------------------------------------
def initialize
 super(0, 0, 320, 64)
 self.contents = Bitmap.new(width - 32, height - 32)
 #去框#
 self.opacity=0
 ##
end
#--------------------------------------------------------------------------
#  刷新文本
#--------------------------------------------------------------------------
def set_text(text, align = 1)
 if text != @text or align != @align
   self.contents.clear
   self.contents.font.color = normal_color
   self.contents.draw_text(4, 0, self.width - 40, 32, text, align)
   @text = text
   @align = align
   @actor = nil
 end
 self.visible = true
end
end

###使用说明


#使用前请复制sceneshot.dll到游戏文件下,并新建文件夹Save


#将此文本插入main前面


#游戏前显示头像的文件名为:人物角色名_f,请自行建立几张做测试,不然找不到图片会报错


#自动存档按钮F5 存入档位0(也就是自动存档那栏)


#使用前,请在菜单脚本:scene_menu里面,


#     when 4 # 存档


#     # 禁止存档的情况下


#     if $game_system.save_disabled


#       # 演奏冻结 SE


#       $game_system.se_play($data_system.buzzer_se)


#       return


#     end


#     # 演奏确定 SE


#     $game_system.se_play($data_system.decision_se)


#     # 切换到存档画面


#     $scene = Scene_Save.new <--这行


#替换为:   $scene = Scene_Loadsave.new


#另,在原scene_title里,48行左右


#    for i in 0..3


#          for i in 0..3


#     if FileTest.exist?("Save#{i+1}.rxdata")


###################改成if FileTest.exist?("Save/Save#{i+1}.rxdata")


#        @continue_enabled = true


#      end


#    end


#否则继续游戏时会检测不到存档


 


class Window_File < Window_Base


 attr_accessor :index


 def initialize(index = 0)


   @backsp = Sprite.new


  # @backsp.bitmap = Bitmap.new("Graphics/Pictures/菜单底图.jpg")


   @backsp.z = 100


   super(160,64,480,416)


   #这行可以不用


   self.contents = Bitmap.new(width - 32, height - 32)


   #去框##


   self.opacity=0


   ##


   @index = index


   #这里我要说明一句，之所以用sprite是为了放缩图片


   @sprite = Sprite.new


   @sprite.visible = false


   @sprite.z = 100


   @sp_ch = []


   @sp_ch[0] = Sprite.new


   refresh


 end


 def refresh


   self.contents.clear


   for i in @sp_ch


     i.visible = false


   end


   @sprite.visible = false


   if FileTest.exist?(DIR+"Save#{@index}.rxdata")


     @sprite.visible = true


     if FileTest.exist?(DIR+"Save#{@index}.jpg")


       @sprite.bitmap = Bitmap.new(DIR+"Save#{@index}.jpg")


     else


       self.contents.draw_text(32,64,400,32,"截图似乎有点问题……您搞什么了您？")


     end


     @sprite.x = 206


     @sprite.y = 94


     @sprite.zoom_x = 0.6


     @sprite.zoom_y = 0.6


     file = File.open(DIR+"Save#{@index}.rxdata", "r")


     @time_stamp = file.mtime


     @characters = Marshal.load(file)


     @frame_count = Marshal.load(file)


     @game_system = Marshal.load(file)


     @game_switches = Marshal.load(file)


     @game_variables = Marshal.load(file)


     @total_sec = @frame_count / Graphics.frame_rate


     file.close


     for i in [email]0...@characters.size[/email]


       bitmap = RPG::Cache.character(@characters[i][0], @characters[i][1])


       cw = bitmap.rect.width / 4


       ch = bitmap.rect.height / 4


       src_rect = Rect.new(0, 0, cw, ch)


       x = i*100


       y = 320


       self.contents.blt(x, y, bitmap, src_rect)


     end


     # 描绘游戏时间


     hour = @total_sec / 60 / 60


     min = @total_sec / 60 % 60


     sec = @total_sec % 60


     time_string = sprintf("%02d:%02d:%02d", hour, min, sec)


     self.contents.font.color = normal_color


     self.contents.draw_text(4, 326, 420, 32, time_string, 2)


     # 描绘时间标记


     self.contents.font.color = normal_color


     time_string = @time_stamp.strftime("%Y/%m/%d %H:%M")


     self.contents.draw_text(4, 346, 420, 32, time_string, 2)###356


   else


     self.contents.draw_text(32,32,420,32,"这个存档是空的")


   end


 


 end


 def dispose


   super


   @sprite.dispose


   @backsp.dispose


   for i in @sp_ch


     i.dispose


   end


 end


end


 


 


class Window_File2 < Window_Base


 attr_accessor :index


 def initialize(index = 0)


   @backsp = Sprite.new


  # @backsp.bitmap = Bitmap.new("Graphics/Pictures/菜单底图.jpg")


   @backsp.z = 100


   super(160,0,480,480)


   #这行可以不用


   self.contents = Bitmap.new(width - 32, height - 32)


   #去框##


   self.opacity=0


   ##


   @index = index


   #这里我要说明一句，之所以用sprite是为了放缩图片


   @sprite = Sprite.new


   @sprite.visible = false


   @sprite.z = 100


   @sp_ch = []


   @sp_ch[0] = Sprite.new


   refresh


 end


 def refresh


   self.contents.clear


   for i in @sp_ch


     i.visible = false


   end


   @sprite.visible = false


   if FileTest.exist?(DIR+"Save#{@index}.rxdata")


     @sprite.visible = true


     if FileTest.exist?(DIR+"Save#{@index}.jpg")


       @sprite.bitmap = Bitmap.new(DIR+"Save#{@index}.jpg")


     else


       self.contents.draw_text(32,64,400,32,"截图似乎有点问题……您搞什么了您？")


     end


     @sprite.x = 176


     @sprite.y = 30


     @sprite.zoom_x = 0.7


     @sprite.zoom_y = 0.7


     file = File.open(DIR+"Save#{@index}.rxdata", "r")


     @time_stamp = file.mtime


     @characters = Marshal.load(file)


     @frame_count = Marshal.load(file)


     @game_system = Marshal.load(file)


     @game_switches = Marshal.load(file)


     @game_variables = Marshal.load(file)


     @total_sec = @frame_count / Graphics.frame_rate


     file.close


     for i in [email]0...@characters.size[/email]


       bitmap = RPG::Cache.character(@characters[i][0], @characters[i][1])


       cw = bitmap.rect.width / 4


       ch = bitmap.rect.height / 4


       src_rect = Rect.new(0, 0, cw, ch)


       x = i*100


       self.contents.blt(x, 440 - ch, bitmap, src_rect)


     end


     # 描绘游戏时间


     hour = @total_sec / 60 / 60


     min = @total_sec / 60 % 60


     sec = @total_sec % 60


     time_string = sprintf("%02d:%02d:%02d", hour, min, sec)


     self.contents.font.color = normal_color


     self.contents.draw_text(4, 390, 420, 32, time_string, 2)


     # 描绘时间标记


     self.contents.font.color = normal_color


     time_string = @time_stamp.strftime("%Y/%m/%d %H:%M")


     self.contents.draw_text(4, 420, 420, 32, time_string, 2)


   else


     self.contents.draw_text(32,32,420,32,"这个存档是空的")


   end


 


 end


 def dispose


   super


   @sprite.dispose


   @backsp.dispose


   for i in @sp_ch


     i.dispose


   end


 end


end


 


 


 


$打开自动存档用的开关编号 = 595


$自动存档位置 = 1


$按下F5之后的自动存档的音效 = "Audio/SE/存档"


$按下F5之后禁止存档时候的音效 = "Audio/Se/错误"


DIR = "Save/"


$打开自动存档开关之后调用的公共事件 = 0 #——默认未定义


$按下F5之后可以存档调用的公共事件 = 0 #——默认未定义


$按下F5之后禁止存档调用的公共事件 = 0 #——默认未定义


class Scene_Map


alias auto_update update 


def update


auto_update 


#——按下F5的时候自动存档，可以修改为F5,F6,F7,F8，也可以修改成默认按键但是不推荐。


#——注意在不可存档的时候是无效的


if Input.trigger?(Input::F5)


  unless $game_system.map_interpreter.running? 


  if $game_system.save_disabled


    Audio.se_play($按下F5之后禁止存档时候的音效)


    $game_temp.common_event_id = $按下F5之后禁止存档调用的公共事件


  else


    Audio.se_play($按下F5之后的自动存档的音效)


    $game_temp.common_event_id = $按下F5之后可以存档调用的公共事件


    auto_save


  end


  end


end


#——当BOSS战之前打开一下定义的开关，即可自动存档


if $game_switches[$打开自动存档用的开关编号] == true


  $game_switches[$打开自动存档用的开关编号] = false


  $game_temp.common_event_id = $打开自动存档开关之后调用的公共事件


  auto_save


end


end


def auto_save


#——这里定义了储存的文件，如果不希望用Save4可以自己修改编号


# 写入存档数据


Screen::shot


    file = File.open( DIR+"Save#{$自动存档位置}.rxdata", "wb")


    auto_save_data(file)


    if FileTest.exist?( DIR+"shot.jpg")


      File.rename( DIR+"shot.jpg", DIR+"Save#{$自动存档位置}.jpg") 


    end


    file.close


end


def auto_save_data(file)


#——以下定义内容和Scene_Save的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, actor])


end


# 写入描绘存档文件用的角色数据


Marshal.dump(characters, file)


# 写入测量游戏时间用画面计数


Marshal.dump(Graphics.frame_count, file)


# 增加 1 次存档次数


$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


 


 


 


 


 


 


 


DIR = "Save/"  # 储存文件夹名，请制作游戏时自行建立此文件夹


 


 


module Screen  


 @screen = Win32API.new 'screenshot', 'Screenshot', %w(l l l l p l l), ''


 @readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l 


 


p), 'l'


 @findwindow = Win32API.new 'user32', 'FindWindowA', %w(p p), 'l' 


 module_function


 def shot(file = "shot", typ = 1)


   # to add the right extension...


   if typ == 0


     typname = ".bmp"


   elsif typ == 1


     typname = ".jpg"


   elsif typ == 2


     typname = ".png"


   end    


   file_index = 0    


   dir = "Save/"    


   # make the filename....


   file_name = dir + file.to_s + typname.to_s    


   # make the screenshot.... Attention dont change anything from here on....


   @screen.call(0,0,640,480,file_name,handel,typ)


 end


 # find the game window...


 def handel


   game_name = "\0" * 256


   @readini.call('Game','Title','',game_name,255,".\\Game.ini")


   game_name.delete!("\0")


   return @findwindow.call('RGSS Player',game_name)


 end


end


 


 


class Scene_Menu


 alias shotsave_main main


 def main


   if @menu_index == 0


     Screen::shot


   end   


   shotsave_main


 end


end


 


class Interpreter


 #--------------------------------------------------------------------------


 # ● 调用存档画面


 #--------------------------------------------------------------------------


 def command_352


   # 设置战斗中断标志


   $game_temp.battle_abort = true


   # 设置调用存档标志


   $game_temp.save_calling = true


   # 推进索引


   @index += 1


   # 结束


   Screen::shot


   return false


 end


end


 


#==============================================================================


# ■ Scene_Load


#------------------------------------------------------------------------------


# 　处理读档画面的类。


#==============================================================================


 


class Scene_Load


 #--------------------------------------------------------------------------


 # ● 初始化对像


 #--------------------------------------------------------------------------


 def initialize


   # 再生成临时对像


   $game_temp = Game_Temp.new


   # 选择存档时间最新的文件


   $game_temp.last_file_index = 0


   latest_time = Time.at(0)


   for i in 0..51


     filename = DIR+"Save#{i}.rxdata"


     if FileTest.exist?(filename)


       file = File.open(filename, "r")


       if file.mtime > latest_time


         latest_time = file.mtime


         $game_temp.last_file_index = i


       end


       file.close


     end


   end


 end  


 def main


   #生成背景#


   ##生成菜单背景##


    @dff_save= Sprite.new


    @dff_save.bitmap = Bitmap.new("Graphics/Pictures/System/load")


   ##


   @command_window = Window_Command.new(160,["  自动存档","  快速存档","  进度二",


   "  进度三","  进度四","  进度五","  进度六","  进度七","  进度八","  进度九","  进度十",


   "  进度十一","  进度十二","  进度十三","  进度十四","  进度十五","  进度十六",


   "  进度十七","  进度十八","  进度十九","  进度二十","  进度二一","  进度二二",


   "  进度二三","  进度二四","  进度二五","  进度二六","  进度二七","  进度二八",


   "  进度二九","  进度三十"])


   @command_window.y = 1


   @command_window.height = 480


   @command_window.index = $game_temp.last_file_index


   @content_window = Window_File2.new($game_temp.last_file_index)


   #去框##


   @command_window.opacity = 0


   ##   


   # 执行过渡


   Graphics.transition


   # 主循环


   loop do


     # 刷新游戏画面


     Graphics.update


     # 刷新输入信息


     Input.update


     # 刷新画面


     update


     # 如果画面被切换的话就中断循环


     if $scene != self


       break


     end


   end


   # 准备过渡


   Graphics.freeze


   @command_window.dispose


   @content_window.dispose


   @dff_save.dispose


   @dff_save.bitmap.dispose


 end


 def update


   @command_window.update 


   if @command_window.index != @content_window.index


     @content_window.index = @command_window.index


     @content_window.refresh


   end    


   #——————下面这一部分是原装脚本——————#


   if Input.trigger?(Input::B)  


   # 演奏取消 SE


   $game_system.se_play($data_system.cancel_se)


   # 切换到标题画面


   #####$scene = Scene_Title.new


   $scene = Scene_Map.new


   end    


   #———————————————————————#    


   if Input.trigger?(Input::C)


     # 文件不存在的情况下


     unless FileTest.exist?(DIR+"Save#{@command_window.index}.rxdata")


       # 演奏冻结 SE


       $game_system.se_play($data_system.buzzer_se)


       return


     end


     # 演奏读档 SE


     $game_system.se_play($data_system.load_se)


     # 写入存档数据


     file = File.open(DIR+"Save#{@command_window.index}.rxdata", "rb")


     read_save_data(file)


     file.close


     # 还原 BGM、BGS


     $game_system.bgm_play($game_system.playing_bgm)


     $game_system.bgs_play($game_system.playing_bgs)


     # 刷新地图 (执行并行事件)


     $game_map.update


     # 切换到地图画面


     $scene = Scene_Map.new


   end


   #———————————————————————#


 end


 #--------------------------------------------------------------------------


 # ● 写入存档数据


 #     file : 写入用文件对像 (已经打开)


 #--------------------------------------------------------------------------


 def read_save_data(file)


   # 读取描绘存档文件用的角色数据


   characters = Marshal.load(file)


   # 读取测量游戏时间用画面计数


   Graphics.frame_count = Marshal.load(file)


   # 读取各种游戏对像


   $game_system        = Marshal.load(file)


   $game_switches      = Marshal.load(file)


   $game_variables     = Marshal.load(file)


   $game_self_switches = Marshal.load(file)


   $game_screen        = Marshal.load(file)


   $game_actors        = Marshal.load(file)


   $game_party         = Marshal.load(file)


   $game_troop         = Marshal.load(file)


   $game_map           = Marshal.load(file)


   $game_player        = Marshal.load(file)


   # 魔法编号与保存时有差异的情况下


   # (加入编辑器的编辑过的数据)


   if $game_system.magic_number != $data_system.magic_number


     # 重新装载地图


     $game_map.setup($game_map.map_id)


     $game_player.center($game_player.x, $game_player.y)


   end


   # 刷新同伴成员


   $game_party.refresh


 end


end


 


#==============================================================================


#  Window_LoadCommand


#------------------------------------------------------------------------------


#  存取档画面选择按钮窗口


#==============================================================================


 


class Window_LoadCommand < Window_Selectable


#--------------------------------------------------------------------------


#  初始化对象


#--------------------------------------------------------------------------


def initialize


 super(320, 0, 320, 64)


 self.contents = Bitmap.new(width - 32, height - 32)


 self.contents.font.color = normal_color


 #去框#


 self.opacity=0


 ##


 @item_max = 2


 @column_max = 2


 @commands = ["存储", "读取"]


 refresh


 self.index = 0


end


#--------------------------------------------------------------------------


#  刷新


#--------------------------------------------------------------------------


def refresh


 self.contents.clear


 for i in 0...@item_max


   draw_item(i)


 end


end


#--------------------------------------------------------------------------


#  描画按钮文字


#--------------------------------------------------------------------------


def draw_item(index)


 x = 4 + index * 160


 self.contents.draw_text(x, 0, 144, 32, @commands[index])


end


#--------------------------------------------------------------------------


# ● 项目无效化


#     index : 项目编号


#--------------------------------------------------------------------------


 def disable_item(index)


   draw_item(index, disabled_color)


 end


 


end


 


#==============================================================================


#  Scene_Loadsave


#------------------------------------------------------------------------------


# 处理存取档画面的类。


#==============================================================================


 


class Scene_Loadsave


#--------------------------------------------------------------------------


# ● 初始化对像


#     $last_savefile_index : 记录光标位置


#--------------------------------------------------------------------------


 def initialize


   $last_savefile_index = 0 if $last_savefile_index == nil


   # 再生成临时对像


   $game_temp = Game_Temp.new


   # 选择存档时间最新的文件


   $game_temp.last_file_index = 0


   latest_time = Time.at(0)


   for i in 0..51


     filename =  DIR+"Save#{i}.rxdata"


     if FileTest.exist?(filename)


       file = File.open(filename, "r")


       if file.mtime > latest_time


         latest_time = file.mtime


         $game_temp.last_file_index = i


       end


       file.close


     end


   end


 end


#--------------------------------------------------------------------------


#  主处理


#--------------------------------------------------------------------------


 def main         


   ##生成菜单背景##


    @dff_save= Sprite.new


    @dff_save.bitmap = Bitmap.new("Graphics/Pictures/System/saveload")


   ##


   @savestate = 0


   # 生成窗口


   @help_window = Window_LoadHelp.new


   @help_window.set_text("请选择.")


   @option_window = Window_LoadCommand.new


   @option_window.index = $last_savefile_index


   ########################################################


   @command_window = Window_Command.new(160,["  自动存档","  快速存档","   进度二",


   "   进度三","   进度四","   进度五","   进度六","   进度七","   进度八","   进度九","   进度十",


   "  进度十一","  进度十二","  进度十三","  进度十四","  进度十五","  进度十六",


   "  进度十七","  进度十八","  进度十九","  进度二十","  进度二一","  进度二二",


   "  进度二三","  进度二四","  进度二五","  进度二六","  进度二七","  进度二八",


   "  进度二九","  进度三十"])


     @command_window.y = 64


     @command_window.height = 378


     @command_window.index = $game_temp.last_file_index


     @content_window = Window_File.new($game_temp.last_file_index)


     @command_window.active = false


     #去框##


     @command_window.opacity = 0


     ##


     ###############覆盖存档


       @confirm_window = Window_Base.new(120, 188, 400, 64)


       @confirm_window.contents = Bitmap.new(368, 32)


 


       @confirm_window.contents.font.color = Color.new(255,255,255,255)


 


       string = "确定要覆盖这个进度吗？"


       @confirm_window.contents.font.name = "黑体"


       @confirm_window.contents.font.size = 24


       @confirm_window.contents.draw_text(4, 0, 368, 32, string)


       @yes_no_window = Window_Command.new(100, ["覆盖", "取消"])


       @confirm_window.z = 1500


       @yes_no_window.index = 1


       @yes_no_window.x = 270


       @yes_no_window.y = 252


       @yes_no_window.z = 1500


       @confirm_window.visible = false


       @yes_no_window.visible = false


       @yes_no_window.active = false


 


   # 执行过渡


   Graphics.transition


   # 主循环


   loop do


     # 刷新游戏画面


     Graphics.update


     # 刷新输入信息


     Input.update


     # 刷新画面


     update


     # 如果画面被切换的话就中断循环


     if $scene != self


       break


     end


   end


   # 准备过渡


   Graphics.freeze


   # 释放窗口 


   @command_window.dispose


   @content_window.dispose


   @confirm_window.dispose


   @yes_no_window.dispose


   @help_window.dispose


   @option_window.dispose


   @dff_save.dispose


   @dff_save.bitmap.dispose


 end


 


#--------------------------------------------------------------------------


#  ● 刷新画面


#--------------------------------------------------------------------------


 def update


   # 刷新窗口


   @help_window.update


   @option_window.update


#   @content_window.update


   @command_window.update


   if @yes_no_window.active


       confirm_update


       return


   end


   @content_window.index = @command_window.index


   @content_window.refresh


   case @savestate 


   when 0


       if Input.trigger?(Input::B)


       $game_system.se_play($data_system.cancel_se)


       # 返回地图


       if $menu_call == false


       # 切换到地图画面


       $scene = Scene_Map.new


         return


       end


       # 切换到菜单画面


       $menu_call = false


       $scene = Scene_Menu.new(5)


    end


     if Input.trigger?(Input::C)


       case @option_window.index


       when 1


         @command_window.active = true


         @option_window.active = false


         $game_system.se_play($data_system.decision_se)


         @help_window.set_text("请选择一个文件进行读取.")


         @savestate  = 1


         return


       when 0


 


         @command_window.active = true


         @option_window.active = false


         $game_system.se_play($data_system.decision_se)


         @help_window.set_text("请选择一个文件进行存储.")


         @savestate = 2


 


         return


       return


       end


     end


   when 1,2


     if Input.trigger?(Input::C)


       if @savestate == 1


         $menu_call = false


         load_file


         return


       else


         # 禁止存档的情况下


         if $game_system.save_disabled


           @help_window.set_text("抱歉,这里禁止存储.")


           # 演奏冻结 SE


           $game_system.se_play($data_system.buzzer_se)


           return


         end


        $game_system.se_play($data_system.decision_se)


        $last_savefile_index = @option_window.index


 


        save_file


         return


       end


     end


     # 取消


     if Input.trigger?(Input::B)


       $game_system.se_play($data_system.cancel_se)


       @command_window.active = false


       @help_window.set_text("请选择.")


       @savestate = 0


       @option_window.active = true


       return


     end


 


     if Input.trigger?(Input::B)


       $game_system.se_play($data_system.cancel_se)


       @savestate = 2


       @command_window.active = true


 


       return


     end 


   end 


 end


#--------------------------------------------------------------------------


# 建立记录文件索引


#--------------------------------------------------------------------------


 


#--------------------------------------------------------------------------


#  读取记录文件


#     filename  : 被读取文件


#--------------------------------------------------------------------------


def load_file


     # 文件不存在的情况下


     unless FileTest.exist?( DIR+"Save#{@command_window.index}.rxdata")


       # 演奏冻结 SE


       $game_system.se_play($data_system.buzzer_se)


       return


     end


     # 演奏读档 SE


     $game_system.se_play($data_system.load_se)


     # 写入存档数据


     file = File.open( DIR+"Save#{@command_window.index}.rxdata", "rb")


     read_save_data(file)


     file.close


     # 还原 BGM、BGS


     $game_system.bgm_play($game_system.playing_bgm)


     $game_system.bgs_play($game_system.playing_bgs)


     # 刷新地图 (执行并行事件)


     $game_map.update


     # 切换到地图画面


     $scene = Scene_Map.new


end


#--------------------------------------------------------------------------


# ● 读取存档数据


#     file : 读取用文件对像 (已经打开)


#--------------------------------------------------------------------------


 def read_save_data(file)


   # 读取描绘存档文件用的角色数据


   characters = Marshal.load(file)


   # 读取测量游戏时间用画面计数


   Graphics.frame_count = Marshal.load(file)


   # 读取各种游戏对像


   $game_system        = Marshal.load(file)


   $game_switches      = Marshal.load(file)


   $game_variables     = Marshal.load(file)


   $game_self_switches = Marshal.load(file)


   $game_screen        = Marshal.load(file)


   $game_actors        = Marshal.load(file)


   $game_party         = Marshal.load(file)


   $game_troop         = Marshal.load(file)


   $game_map           = Marshal.load(file)


   $game_player        = Marshal.load(file)


   # 魔法编号与保存时有差异的情况下


   # (加入编辑器的编辑过的数据)


   if $game_system.magic_number != $data_system.magic_number


     # 重新装载地图


     $game_map.setup($game_map.map_id)


     $game_player.center($game_player.x, $game_player.y)


   end


   # 刷新同伴成员


   $game_party.refresh


 end


 #--------------------------------------------------------------------------


 # ● 写入存档文件


 #--------------------------------------------------------------------------


 def save_file 


   if Input.trigger?(Input::C)


     unless FileTest.exist?( DIR+"Save#{@command_window.index}.rxdata")


       # 演奏冻结 SE


       # 演奏存档 SE


         $game_system.se_play($data_system.save_se)


         # 写入存档数据


         file = File.open( DIR+"Save#{@command_window.index}.rxdata", "wb")


         write_save_data(file)


         if FileTest.exist?( DIR+"shot.jpg")


           File.rename( DIR+"shot.jpg",  DIR+"Save#{@command_window.index}.jpg") 


         end


         file.close


         $game_temp.last_file_index = @command_window.index


         # 如果被事件调用


         if $game_temp.save_calling


           # 清除存档调用标志


           $game_temp.save_calling = false


           @confirm_window.dispose


           # 切换到地图画面


           $scene = Scene_Map.new    


           return


         end


       # 切换到菜单画面


         $scene = Scene_Menu.new(5) 


     end


     @yes_no_window.active = true


     @command_window.active = false             


   end


   #———————————————————————#     


 end


 #-------------------------------------------------------------------


 def confirm_update


   @command_index = @command_window.index


   @confirm_window.visible = true


   @confirm_window.z = 1500


   @yes_no_window.visible = true


   @yes_no_window.active = true


   @yes_no_window.z = 1500


   @yes_no_window.update


   if Input.trigger?(Input::C)


     if @yes_no_window.index == 0


         #######################################################


         # 演奏存档 SE


         $game_system.se_play($data_system.save_se)


         # 写入存档数据


         file = File.open( DIR+"Save#{@command_window.index}.rxdata", "wb")


         write_save_data(file)


         if FileTest.exist?( DIR+"shot.jpg")


           File.rename( DIR+"shot.jpg",  DIR+"Save#{@command_window.index}.jpg") 


         end


         file.close


         $game_temp.last_file_index = @command_window.index


         # 如果被事件调用


         if $game_temp.save_calling


           # 清除存档调用标志


           $game_temp.save_calling = false


           @confirm_window.dispose


           @content_window.dispose


           # 切换到地图画面


           $scene = Scene_Map.new


           return


         end


       # 切换到菜单画面


         $scene = Scene_Menu.new(5)       


       else


       @yes_no_window.visible = false


       @confirm_window.visible = false


       $game_system.se_play($data_system.cancel_se)


       @yes_no_window.active = false


       @command_window.active = true


       end


   end


   if Input.trigger?(Input::B)


     @yes_no_window.visible = false


     @confirm_window.visible = false


     $game_system.se_play($data_system.cancel_se)


     @yes_no_window.active = false


     @command_window.active = true


   end


 end


 #--------------------------------------------------------------------------


 # ● 写入存档数据


 #     file : 写入用文件对像 (已经打开)


 #--------------------------------------------------------------------------


 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, actor])


   end


   # 写入描绘存档文件用的角色数据


   Marshal.dump(characters, file)


   # 写入测量游戏时间用画面计数


   Marshal.dump(Graphics.frame_count, file)


   # 增加 1 次存档次数


   $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


 


#==============================================================================


# ■ Window_LoadHelp


#------------------------------------------------------------------------------


# 　存取档画面帮助信息的显示窗口。


#==============================================================================


 


class Window_LoadHelp < Window_Base


#--------------------------------------------------------------------------


#  初始化对象


#--------------------------------------------------------------------------


def initialize


 super(0, 0, 320, 64)


 self.contents = Bitmap.new(width - 32, height - 32)


 #去框#


 self.opacity=0


 ##


end


#--------------------------------------------------------------------------


#  刷新文本


#--------------------------------------------------------------------------


def set_text(text, align = 1)


 if text != @text or align != @align


   self.contents.clear


   self.contents.font.color = normal_color


   self.contents.draw_text(4, 0, self.width - 40, 32, text, align)


   @text = text


   @align = align


   @actor = nil


 end


 self.visible = true


end


end

显示地图名称脚本

RUBY 代码复制

module Sword
#=======================================
#★ 魔劍工舖 - 地圖上顯示地圖名 1.01
# [url]http://blog.yam.com/a870053jjkj/[/url]
#=======================================
  ON, OFF = true, false
#=======================================
#● 使用者自定設置
Sword67_XorY = [-10, 0] # 顯示地圖名稱的窗口位置，分別為 [X座標, Y座標] # 640, 416
Sword67_Align = 0 # 文字的靠邊位置，0為左、1為中、2為右
Sword67_Opacity = 255 # 設定窗口背景的不透明度和淡出上限
Sword67_Adjunct = 80 # 地圖名稱顯示的時間，0為永久顯示(每40約1秒)
Sword67_Switche = 600 # 指定1個開關編號，該開關為ON表示關閉此腳本功能
Sword67_Show = ON  # 是否在起始地圖顯示地圖名
Sword67_Fade = [5, 5] # 設定每幀 [加, 減] 不透明度的淡出淡入效果，0為不使用
#=======================================
  $Sword ? $Sword[67] = true : $Sword = {67=>true} # 腳本使用標誌
  ($Sword_VX = false ; RPG::Weather rescue $Sword_VX = true) if $Sword_VX == nil
  Sword67s1_Fade = [Sword67_Fade[0] > 0 ? Sword67_Opacity / Sword67_Fade[0] : 0,
  Sword67_Fade[1] > 0 ? Sword67_Opacity / Sword67_Fade[1] : 0]
  #-------------------------------------------------------------
  #● 紀錄是否在起始地圖顯示地圖名的標誌
  def self.sword67=(s) ; @sword67 = s ; end
  def self.sword67 ; @sword67 ; end
  self.sword67 = Sword67_Show
end
#=======================================
#■ 處理主角的類
if $Sword_VX
class Game_Player < Game_Character
  attr_reader    :new_map_id # 新地圖的地圖編號
end
end
#=======================================
#■ 地圖名稱的窗口
class WSword_MapName < Window_Base
  include Sword # 連接自定設置
  #-------------------------------------------------------------
  #● 初始化物件
  def initialize(a = 0)
    b = $Sword_VX ? 'v' : 'x'
    @map_name = a == 0 ? load_data("Data/MapInfos.r#{b}data")[$game_map.map_id].name :
    load_data("Data/MapInfos.r#{b}data")[a].name # 獲取地圖名稱
    super(Sword67_XorY[0], Sword67_XorY[1], 33, 33)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.windowskin = RPG::Cache.windowskin("mapname")
#    self.width = contents.text_size(@map_name).width + 40
#    self.height = contents.text_size(@map_name).height + 43
    self.width = 870
    self.height = contents.text_size(@map_name).height + 60
    self.contents = Bitmap.new(width - 32, height - 32)
    refresh
  end
  #-------------------------------------------------------------
  #● 描繪內容
  def refresh
    self.contents.clear ; self.contents.font.color = normal_color ; self.contents.font.size = 24 
    case Sword67_Align # 窗口靠邊設定
    when 1 ; self.x -= self.width / 2
    when 2 ; self.x -= self.width
    end
    self.contents.draw_text(4, 0, self.width, 48, @map_name) # 窗口內容
  end
end
#=======================================
#■ 處理地圖畫面的類
class Scene_Map
  include Sword # 連接自定設置
  #-------------------------------------------------------------
  #● 主處理
  alias sword67_main main unless $Sword_VX
  def main
    sword67_map_name ; $Sword_VX ? super : sword67_main
    unless @sword_map_name == nil
      @sword_map_name.dispose
      @sword_map_name = nil
    end
  end
  #-------------------------------------------------------------
  #● 更新
  alias sword67_update update
  def update
    if Sword67_Fade[0] > 0 and @sword_map_name and (not @sword_map_wait == true)
      @sword_map_name.opacity = [@sword_map_name.opacity + 
      Sword67_Fade[0], Sword67_Opacity].min
      @sword_map_name.contents_opacity = [@sword_map_name.opacity + 
      Sword67_Fade[0], Sword67_Opacity].min
    end
    # 窗口顯示時間計算
    @sword_map_wait = [Graphics.frame_count, Graphics.frame_count + 
    Sword67_Adjunct + Sword67s1_Fade[0]] unless @sword_map_wait
    if @sword_map_wait.is_a?(Array) and Sword67_Adjunct != 0
      @sword_map_wait[0] <= @sword_map_wait[1] ? @sword_map_wait[0] += 1 :
      @sword_map_wait = true
    end
    if @sword_map_wait == true ; if @sword_map_name
    if @sword_map_name.opacity == 0 or Sword67_Fade[1] == 0
      @sword_map_name.dispose ; @sword_map_name = nil
      @sword_map_wait = nil
    else
      @sword_map_name.opacity = [@sword_map_name.opacity - 
      Sword67_Fade[1], 0].max
      @sword_map_name.contents_opacity = [@sword_map_name.opacity - 
      Sword67_Fade[1], 0].max
    end ; end ; end
    sword67_update
  end
  #-------------------------------------------------------------
  #● 主角的場所移動
  if $Sword_VX ; alias sword67_transfer_player update_transfer_player
  else ; alias sword67_transfer_player transfer_player ; end
  def transfer_player
    return unless $game_player.transfer? if $Sword_VX
    $game_switches[Sword67_Switche] ? 0 : @sword_map_wait = false 
    # 重新顯示窗口
    unless @sword_map_name == nil
      @sword_map_name.dispose
      @sword_map_name = nil
    end
    Sword.sword67 = true
    sword67_transfer_player
    sword67_map_name
  end
  def update_transfer_player ; transfer_player ; end
  #-------------------------------------------------------------
  #● 顯示地圖名稱窗口的處理
  def sword67_map_name
    if $game_switches[Sword67_Switche] == false and Sword.sword67
      @sword_map_name = WSword_MapName.new($Sword_VX ?
      $game_player.new_map_id : $game_temp.player_new_map_id)
#      @sword_map_name.opacity = Sword67_Fade[0] > 0 ? 0 : Sword67_Opacity
      @sword_map_name.opacity = 0
      #@sword_map_name.contents_opacity = 0 if Sword67_Fade[0] > 0
      @sword_map_name.contents_opacity = 0
      Sword.sword67 = false
    end
  end
end

module Sword


#=======================================


#★ 魔劍工舖 - 地圖上顯示地圖名 1.01


# [url]http://blog.yam.com/a870053jjkj/[/url]


#=======================================


  ON, OFF = true, false


#=======================================


#● 使用者自定設置


Sword67_XorY = [-10, 0] # 顯示地圖名稱的窗口位置，分別為 [X座標, Y座標] # 640, 416


Sword67_Align = 0 # 文字的靠邊位置，0為左、1為中、2為右


Sword67_Opacity = 255 # 設定窗口背景的不透明度和淡出上限


Sword67_Adjunct = 80 # 地圖名稱顯示的時間，0為永久顯示(每40約1秒)


Sword67_Switche = 600 # 指定1個開關編號，該開關為ON表示關閉此腳本功能


Sword67_Show = ON  # 是否在起始地圖顯示地圖名


Sword67_Fade = [5, 5] # 設定每幀 [加, 減] 不透明度的淡出淡入效果，0為不使用


#=======================================


  $Sword ? $Sword[67] = true : $Sword = {67=>true} # 腳本使用標誌


  ($Sword_VX = false ; RPG::Weather rescue $Sword_VX = true) if $Sword_VX == nil


  Sword67s1_Fade = [Sword67_Fade[0] > 0 ? Sword67_Opacity / Sword67_Fade[0] : 0,


  Sword67_Fade[1] > 0 ? Sword67_Opacity / Sword67_Fade[1] : 0]


  #-------------------------------------------------------------


  #● 紀錄是否在起始地圖顯示地圖名的標誌


  def self.sword67=(s) ; @sword67 = s ; end


  def self.sword67 ; @sword67 ; end


  self.sword67 = Sword67_Show


end


#=======================================


#■ 處理主角的類


if $Sword_VX


class Game_Player < Game_Character


  attr_reader    :new_map_id # 新地圖的地圖編號


end


end


#=======================================


#■ 地圖名稱的窗口


class WSword_MapName < Window_Base


  include Sword # 連接自定設置


  #-------------------------------------------------------------


  #● 初始化物件


  def initialize(a = 0)


    b = $Sword_VX ? 'v' : 'x'


    @map_name = a == 0 ? load_data("Data/MapInfos.r#{b}data")[$game_map.map_id].name :


    load_data("Data/MapInfos.r#{b}data")[a].name # 獲取地圖名稱


    super(Sword67_XorY[0], Sword67_XorY[1], 33, 33)


    self.contents = Bitmap.new(width - 32, height - 32)


    self.windowskin = RPG::Cache.windowskin("mapname")


#    self.width = contents.text_size(@map_name).width + 40


#    self.height = contents.text_size(@map_name).height + 43


    self.width = 870


    self.height = contents.text_size(@map_name).height + 60


    self.contents = Bitmap.new(width - 32, height - 32)


    refresh


  end


  #-------------------------------------------------------------


  #● 描繪內容


  def refresh


    self.contents.clear ; self.contents.font.color = normal_color ; self.contents.font.size = 24 


    case Sword67_Align # 窗口靠邊設定


    when 1 ; self.x -= self.width / 2


    when 2 ; self.x -= self.width


    end


    self.contents.draw_text(4, 0, self.width, 48, @map_name) # 窗口內容


  end


end


#=======================================


#■ 處理地圖畫面的類


class Scene_Map


  include Sword # 連接自定設置


  #-------------------------------------------------------------


  #● 主處理


  alias sword67_main main unless $Sword_VX


  def main


    sword67_map_name ; $Sword_VX ? super : sword67_main


    unless @sword_map_name == nil


      @sword_map_name.dispose


      @sword_map_name = nil


    end


  end


  #-------------------------------------------------------------


  #● 更新


  alias sword67_update update


  def update


    if Sword67_Fade[0] > 0 and @sword_map_name and (not @sword_map_wait == true)


      @sword_map_name.opacity = [@sword_map_name.opacity + 


      Sword67_Fade[0], Sword67_Opacity].min


      @sword_map_name.contents_opacity = [@sword_map_name.opacity + 


      Sword67_Fade[0], Sword67_Opacity].min


    end


    # 窗口顯示時間計算


    @sword_map_wait = [Graphics.frame_count, Graphics.frame_count + 


    Sword67_Adjunct + Sword67s1_Fade[0]] unless @sword_map_wait


    if @sword_map_wait.is_a?(Array) and Sword67_Adjunct != 0


      @sword_map_wait[0] <= @sword_map_wait[1] ? @sword_map_wait[0] += 1 :


      @sword_map_wait = true


    end


    if @sword_map_wait == true ; if @sword_map_name


    if @sword_map_name.opacity == 0 or Sword67_Fade[1] == 0


      @sword_map_name.dispose ; @sword_map_name = nil


      @sword_map_wait = nil


    else


      @sword_map_name.opacity = [@sword_map_name.opacity - 


      Sword67_Fade[1], 0].max


      @sword_map_name.contents_opacity = [@sword_map_name.opacity - 


      Sword67_Fade[1], 0].max


    end ; end ; end


    sword67_update


  end


  #-------------------------------------------------------------


  #● 主角的場所移動


  if $Sword_VX ; alias sword67_transfer_player update_transfer_player


  else ; alias sword67_transfer_player transfer_player ; end


  def transfer_player


    return unless $game_player.transfer? if $Sword_VX


    $game_switches[Sword67_Switche] ? 0 : @sword_map_wait = false 


    # 重新顯示窗口


    unless @sword_map_name == nil


      @sword_map_name.dispose


      @sword_map_name = nil


    end


    Sword.sword67 = true


    sword67_transfer_player


    sword67_map_name


  end


  def update_transfer_player ; transfer_player ; end


  #-------------------------------------------------------------


  #● 顯示地圖名稱窗口的處理


  def sword67_map_name


    if $game_switches[Sword67_Switche] == false and Sword.sword67


      @sword_map_name = WSword_MapName.new($Sword_VX ?


      $game_player.new_map_id : $game_temp.player_new_map_id)


#      @sword_map_name.opacity = Sword67_Fade[0] > 0 ? 0 : Sword67_Opacity


      @sword_map_name.opacity = 0


      #@sword_map_name.contents_opacity = 0 if Sword67_Fade[0] > 0


      @sword_map_name.contents_opacity = 0


      Sword.sword67 = false


    end


  end


end

电梯地图的脚本

RUBY 代码复制

#==============================================================================
# ■ Spriteset_Map
#------------------------------------------------------------------------------
# 　處理地圖畫面活動區塊和元件的類別。
# 　本類別在 Scene_Map 類別的內部使用。
#==============================================================================
 
class Spriteset_Map
  #--------------------------------------------------------------------------
  # ● 初始化物件
  #--------------------------------------------------------------------------
  def initialize
    # 產生顯示連接埠
    @viewport1 = Viewport.new(0, 0, 640, 480)
    @viewport2 = Viewport.new(0, 0, 640, 480)
    @viewport3 = Viewport.new(0, 0, 640, 480)
    @viewport2.z = 200
    @viewport3.z = 5000
    # 產生元件地圖
    @tilemap = Tilemap.new(@viewport1)
    @tilemap.tileset = RPG::Cache.tileset($game_map.tileset_name)
    for i in 0..6
      autotile_name = $game_map.autotile_names[i]
      @tilemap.autotiles[i] = RPG::Cache.autotile(autotile_name)
    end
    @tilemap.map_data = $game_map.data
    @tilemap.priorities = $game_map.priorities
    # 產生全景平面
    @panorama = Plane.new(@viewport1)
    @panorama.z = -1000
    # 產生霧平面
    @fog = Plane.new(@viewport1)
    @fog.z = 3000
    # 產生角色活動區塊
    @character_sprites = []
    for i in $game_map.events.keys.sort
      sprite = Sprite_Character.new(@viewport1, $game_map.events[i])
      @character_sprites.push(sprite)
    end
    @character_sprites.push(Sprite_Character.new(@viewport1, $game_player))
    # 產生天氣
    @weather = RPG::Weather.new(@viewport1)
    # 產生圖片
    @picture_sprites = []
    for i in 1..50
      @picture_sprites.push(Sprite_Picture.new(@viewport2,
        $game_screen.pictures[i]))
    end
    # 產生計時器區塊
    @timer_sprite = Sprite_Timer.new
    # 更新畫面
    update
  end
  #--------------------------------------------------------------------------
  # ● 釋放
  #--------------------------------------------------------------------------
  def dispose
    # 釋放元件地圖
    @tilemap.tileset.dispose
    for i in 0..6
      @tilemap.autotiles[i].dispose
    end
    @tilemap.dispose
    # 釋放全景平面
    @panorama.dispose
    # 釋放霧平面
    @fog.dispose
    # 釋放角色活動區塊
    for sprite in @character_sprites
      sprite.dispose
    end
    # 釋放天氣
    @weather.dispose
    # 釋放圖片
    for sprite in @picture_sprites
      sprite.dispose
    end
    # 釋放計時器區塊
    @timer_sprite.dispose
    # 釋放顯示連接埠
    @viewport1.dispose
    @viewport2.dispose
    @viewport3.dispose
  end
  #--------------------------------------------------------------------------
  # ● 更新畫面
  #--------------------------------------------------------------------------
  def update
    # 全景與現在的情況有差異發情況下
    if @panorama_name != $game_map.panorama_name or
       @panorama_hue != $game_map.panorama_hue
      @panorama_name = $game_map.panorama_name
      @panorama_hue = $game_map.panorama_hue
      if @panorama.bitmap != nil
        @panorama.bitmap.dispose
        @panorama.bitmap = nil
      end
      if @panorama_name != ""
        @panorama.bitmap = RPG::Cache.panorama(@panorama_name, @panorama_hue)
      end
      Graphics.frame_reset
    end
    # 霧與現在的情況有差異的情況下
    if @fog_name != $game_map.fog_name or @fog_hue != $game_map.fog_hue
      @fog_name = $game_map.fog_name
      @fog_hue = $game_map.fog_hue
      if @fog.bitmap != nil
        @fog.bitmap.dispose
        @fog.bitmap = nil
      end
      if @fog_name != ""
        @fog.bitmap = RPG::Cache.fog(@fog_name, @fog_hue)
      end
      Graphics.frame_reset
    end
    # 更新元件地圖
    @tilemap.ox = $game_map.display_x / 4
    @tilemap.oy = $game_map.display_y / 4
    @tilemap.update
    # 更新全景平面
    @panorama.ox = $game_map.display_x / 8
    @panorama.oy = $game_map.display_y / 8
    # 更新霧平面
    @fog.zoom_x = $game_map.fog_zoom / 100.0
    @fog.zoom_y = $game_map.fog_zoom / 100.0
    @fog.opacity = $game_map.fog_opacity
    @fog.blend_type = $game_map.fog_blend_type
    @fog.ox = $game_map.display_x / 4 + $game_map.fog_ox
    @fog.oy = $game_map.display_y / 4 + $game_map.fog_oy
    @fog.tone = $game_map.fog_tone
    # 更新角色活動區塊
    for sprite in @character_sprites
      sprite.update
    end
    # 更新天候圖形
    @weather.type = $game_screen.weather_type
    @weather.max = $game_screen.weather_max
    @weather.ox = $game_map.display_x / 4
    @weather.oy = $game_map.display_y / 4
    @weather.update
    # 更新圖片
    for sprite in @picture_sprites
      sprite.update
    end
    # 更新計時器區塊
    @timer_sprite.update
    # 設定畫面的色調與震動位置
    @viewport1.tone = $game_screen.tone
#####################################################
    if $game_switches[596] == true
       @viewport1.oy = $game_screen.shake
    else
       @viewport1.ox = $game_screen.shake
    end
#####################################################
    # 設定畫面的閃爍色彩
    @viewport3.color = $game_screen.flash_color
    # 更新顯示連接埠
    @viewport1.update
    @viewport3.update
  end
end

#==============================================================================


# ■ Spriteset_Map


#------------------------------------------------------------------------------


# 　處理地圖畫面活動區塊和元件的類別。


# 　本類別在 Scene_Map 類別的內部使用。


#==============================================================================


 


class Spriteset_Map


  #--------------------------------------------------------------------------


  # ● 初始化物件


  #--------------------------------------------------------------------------


  def initialize


    # 產生顯示連接埠


    @viewport1 = Viewport.new(0, 0, 640, 480)


    @viewport2 = Viewport.new(0, 0, 640, 480)


    @viewport3 = Viewport.new(0, 0, 640, 480)


    @viewport2.z = 200


    @viewport3.z = 5000


    # 產生元件地圖


    @tilemap = Tilemap.new(@viewport1)


    @tilemap.tileset = RPG::Cache.tileset($game_map.tileset_name)


    for i in 0..6


      autotile_name = $game_map.autotile_names[i]


      @tilemap.autotiles[i] = RPG::Cache.autotile(autotile_name)


    end


    @tilemap.map_data = $game_map.data


    @tilemap.priorities = $game_map.priorities


    # 產生全景平面


    @panorama = Plane.new(@viewport1)


    @panorama.z = -1000


    # 產生霧平面


    @fog = Plane.new(@viewport1)


    @fog.z = 3000


    # 產生角色活動區塊


    @character_sprites = []


    for i in $game_map.events.keys.sort


      sprite = Sprite_Character.new(@viewport1, $game_map.events[i])


      @character_sprites.push(sprite)


    end


    @character_sprites.push(Sprite_Character.new(@viewport1, $game_player))


    # 產生天氣


    @weather = RPG::Weather.new(@viewport1)


    # 產生圖片


    @picture_sprites = []


    for i in 1..50


      @picture_sprites.push(Sprite_Picture.new(@viewport2,


        $game_screen.pictures[i]))


    end


    # 產生計時器區塊


    @timer_sprite = Sprite_Timer.new


    # 更新畫面


    update


  end


  #--------------------------------------------------------------------------


  # ● 釋放


  #--------------------------------------------------------------------------


  def dispose


    # 釋放元件地圖


    @tilemap.tileset.dispose


    for i in 0..6


      @tilemap.autotiles[i].dispose


    end


    @tilemap.dispose


    # 釋放全景平面


    @panorama.dispose


    # 釋放霧平面


    @fog.dispose


    # 釋放角色活動區塊


    for sprite in @character_sprites


      sprite.dispose


    end


    # 釋放天氣


    @weather.dispose


    # 釋放圖片


    for sprite in @picture_sprites


      sprite.dispose


    end


    # 釋放計時器區塊


    @timer_sprite.dispose


    # 釋放顯示連接埠


    @viewport1.dispose


    @viewport2.dispose


    @viewport3.dispose


  end


  #--------------------------------------------------------------------------


  # ● 更新畫面


  #--------------------------------------------------------------------------


  def update


    # 全景與現在的情況有差異發情況下


    if @panorama_name != $game_map.panorama_name or


       @panorama_hue != $game_map.panorama_hue


      @panorama_name = $game_map.panorama_name


      @panorama_hue = $game_map.panorama_hue


      if @panorama.bitmap != nil


        @panorama.bitmap.dispose


        @panorama.bitmap = nil


      end


      if @panorama_name != ""


        @panorama.bitmap = RPG::Cache.panorama(@panorama_name, @panorama_hue)


      end


      Graphics.frame_reset


    end


    # 霧與現在的情況有差異的情況下


    if @fog_name != $game_map.fog_name or @fog_hue != $game_map.fog_hue


      @fog_name = $game_map.fog_name


      @fog_hue = $game_map.fog_hue


      if @fog.bitmap != nil


        @fog.bitmap.dispose


        @fog.bitmap = nil


      end


      if @fog_name != ""


        @fog.bitmap = RPG::Cache.fog(@fog_name, @fog_hue)


      end


      Graphics.frame_reset


    end


    # 更新元件地圖


    @tilemap.ox = $game_map.display_x / 4


    @tilemap.oy = $game_map.display_y / 4


    @tilemap.update


    # 更新全景平面


    @panorama.ox = $game_map.display_x / 8


    @panorama.oy = $game_map.display_y / 8


    # 更新霧平面


    @fog.zoom_x = $game_map.fog_zoom / 100.0


    @fog.zoom_y = $game_map.fog_zoom / 100.0


    @fog.opacity = $game_map.fog_opacity


    @fog.blend_type = $game_map.fog_blend_type


    @fog.ox = $game_map.display_x / 4 + $game_map.fog_ox


    @fog.oy = $game_map.display_y / 4 + $game_map.fog_oy


    @fog.tone = $game_map.fog_tone


    # 更新角色活動區塊


    for sprite in @character_sprites


      sprite.update


    end


    # 更新天候圖形


    @weather.type = $game_screen.weather_type


    @weather.max = $game_screen.weather_max


    @weather.ox = $game_map.display_x / 4


    @weather.oy = $game_map.display_y / 4


    @weather.update


    # 更新圖片


    for sprite in @picture_sprites


      sprite.update


    end


    # 更新計時器區塊


    @timer_sprite.update


    # 設定畫面的色調與震動位置


    @viewport1.tone = $game_screen.tone


#####################################################


    if $game_switches[596] == true


       @viewport1.oy = $game_screen.shake


    else


       @viewport1.ox = $game_screen.shake


    end


#####################################################


    # 設定畫面的閃爍色彩


    @viewport3.color = $game_screen.flash_color


    # 更新顯示連接埠


    @viewport1.update


    @viewport3.update


  end


end

---

欢迎光临 Project1 (https://rpg.blue/)

Powered by Discuz! X3.1