#-----------------------------------------------------------------------------#
# 脚本设定 #
#-----------------------------------------------------------------------------#
# 说明： #
# ①主要采用了Snap To Bitmap这脚本省去了DLL。 #
# ②采用了禁术，各位不用到处改脚本了，不过冲突率也大增== #
# ③脚本当中采用的脚本归原作者所有。 #
# ④设置区域的变量请自行更改。 #
#-----------------------------------------------------------------------------#
SaveSettings = Struct.new(:max_save_file,:save_file_dir,:slot_name_format,
:save_help,:load_help,:override_question,:snap_no_found,:no_save_file).new
#-----------------------------------------------------------------------------#
# 设置区域
#-----------------------------------------------------------------------------#
# 最大的存档量
SaveSettings.max_save_file = 20
# 存档所在文件夹
SaveSettings.save_file_dir = "Save/"
# 存档槽的名称的格式，具体请参考sprintf
SaveSettings.slot_name_format = "Save%03d"
# 存档界面所显示的字符串
SaveSettings.save_help = ""
# 读档界面所显示的字符串
SaveSettings.load_help = ""
# 需要覆盖存档时所发问的问题
SaveSettings.override_question = "该档位已有存档，是否覆盖？"
# 找不到截图时的信息
SaveSettings.snap_no_found = "截图似乎有点问题……你都做了啥啊？"
# 存档槽没有存档时显示的信息
SaveSettings.no_save_file = "这里还没有存档哦"
#-----------------------------------------------------------------------------#
# 创建存档文件夹 #
#-----------------------------------------------------------------------------#
Dir.mkdir(SaveSettings.save_file_dir) unless FileTest.directory?(SaveSettings.save_file_dir)
#-----------------------------------------------------------------------------#
# 游戏核心处理类 #
#-----------------------------------------------------------------------------#
class Game_System
#---------------------------------------------------------------------------#
# 实例变量 #
#---------------------------------------------------------------------------#
attr_accessor:snap_bitmap
end
#-----------------------------------------------------------------------------#
# 拦截读档与存档界面的打开与地图进入菜单前截图 #
#-----------------------------------------------------------------------------#
trace_var :$scene do
if $scene.is_a?(Scene_Save)
$scene = Scene_Save_Load.new
elsif $scene.is_a?(Scene_Load)
$scene = Scene_Save_Load.new(1)
end
if $scene.is_a?(Scene_Menu) and $_prev_scene == "Scene_Map"
$game_system.snap_bitmap = Graphics.snap_to_bitmap
end
$_prev_scene = $scene.class.name
end
#-----------------------------------------------------------------------------#
# 强改Scene_Title(禁术) #
#-----------------------------------------------------------------------------#
Scene_Title.class_eval do
instance_methods(false).each do |meth|
remove_method(meth)
end
def __found_save_file
for i in 1..SaveSettings.max_save_file
return true if File.exist?(SaveSettings.save_file_dir + "Save#{i}.rxdata")
end
return false
end
end
for i in 0...$RGSS_SCRIPTS.size
next if ("Section%03d" % i) == __FILE__
ary = $RGSS_SCRIPTS[i]
if ary[3][/class\s+Scene_Title/]
script = ary[3].clone.gsub(/(if|unless)\s+@continue_enabled/){"#{$1} __found_save_file"}
eval script, TOPLEVEL_BINDING, ("Section%03d" % i)
end
end
#-----------------------------------------------------------------------------#
# 存档界面用窗口 #
#-----------------------------------------------------------------------------#
class Window_Save < Window_Base
#---------------------------------------------------------------------------#
# 初始化 #
#---------------------------------------------------------------------------#
def initialize
super(160,64,480,416)
self.contents = Bitmap.new(width-32,height-32)
self.opacity=0
@_index = -1
refresh(0)
end
#---------------------------------------------------------------------------#
# 刷新 #
#---------------------------------------------------------------------------#
def refresh(index)
if index != @_index
# 清除原有资料
self.contents.clear
@sprite.dispose if @sprite != nil
@sprite = nil
# 开始读取资料
@file_index = index
@filename = SaveSettings.save_file_dir + "Save#{@file_index + 1}.rxdata"
@time_stamp = Time.at(0)
@file_exist = FileTest.exist?(@filename)
if @file_exist
file = File.open(@filename, "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)
@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)
@bitmap = @game_system.snap_bitmap
@total_sec = @frame_count / Graphics.frame_rate
file.close
# 描绘截图的框与影子
self.contents.fill_rect(38,11,400,300,Color.new(0,0,0))
self.contents.fill_rect(27,0,402,302,system_color)
self.contents.fill_rect(28,1,400,300,Color.new(0,0,0,0))
# 如截图不为空的话
if @bitmap != nil
# 描绘截图
@sprite = Sprite.new
@sprite.bitmap = @bitmap
@sprite.x = 160+16+28
@sprite.y = 64+16+1
@sprite.zoom_x = @sprite.zoom_y = 0.625
@sprite.z = 99999
else
self.contents.draw_text(0,96,448,32,SaveSettings.snap_no_found,1)
end
# 描绘角色
for i in [email]0...@characters.size[/email]
x = i*35 +30
bitmap = RPG::Cache.character(@characters[i][0], @characters[i][1])
self.contents.blt(x,310,bitmap,Rect.new(0,0,bitmap.width/4,bitmap.height/4))
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 = normal2_color
self.contents.draw_text(0-25,316,448,32,time_string,2)
# 描绘时间标记
self.contents.font.color = normal2_color
time_string = @time_stamp.strftime("%Y/%m/%d %H:%M")
self.contents.draw_text(0-25,341,448,32,time_string, 2)
else
self.contents.draw_text(0,320,448,32,SaveSettings.no_save_file,1)
end
@_index = index
end
end
#---------------------------------------------------------------------------#
# 释放 #
#---------------------------------------------------------------------------#
def dispose
super
@sprite.dispose if @sprite != nil
@sprite = nil
end
end
#-----------------------------------------------------------------------------#
# 自定义 Window_Command_R : 不显示光标，但是可以滚动 #
#-----------------------------------------------------------------------------#
class Window_Command_R < Window_Command
#---------------------------------------------------------------------------#
# 初始化 : 去掉光标 #
#---------------------------------------------------------------------------#
def initialize(width, commands)
super(width, commands)
self.cursor_rect.empty
end
#--------------------------------------------------------------------------
# ● 更新光标矩形 : 去掉设置光标的部分
#--------------------------------------------------------------------------
def update_cursor_rect
# 获取当前的行
row = @index / @column_max
# 当前行被显示开头行前面的情况下
if row < self.top_row
# 从当前行向开头行滚动
self.top_row = row
end
# 当前行被显示末尾行之后的情况下
if row > self.top_row + (self.page_row_max - 1)
# 从当前行向末尾滚动
self.top_row = row - (self.page_row_max - 1)
end
end
#---------------------------------------------------------------------------#
# 获取光标当前位置行 #
#---------------------------------------------------------------------------#
def cursor_row
self.index / @column_max - top_row
end
end
#-----------------------------------------------------------------------------#
# 存档界面 #
#-----------------------------------------------------------------------------#
class Scene_Save_Load
#---------------------------------------------------------------------------#
# 初始化 #
#---------------------------------------------------------------------------#
def initialize(type=0)
@type = type == 0 ? "save" : "load"
case @type
when "save"
@word = SaveSettings.save_help
when "load"
@word = SaveSettings.load_help
$game_temp = Game_Temp.new
end
end
#---------------------------------------------------------------------------#
# 主执行 #
#---------------------------------------------------------------------------#
def main
# 生成帮助窗口
@help_window = Window_Help.new
@help_window.set_text(@word)
@help_window.opacity =0
# 选项窗口
choose = []
for i in 1..SaveSettings.max_save_file
choose.push(SaveSettings.slot_name_format % i)
end
@command_window = Window_Command_R.new(120,choose)
@command_window.height = 352
@command_window.x = 53
@command_window.y = 85
@command_window.opacity=0
@command_window.active = true
@command_window.cursor_rect.empty
# 存档资料窗口
@save_window = Window_Save.new
# 确认窗口
@confirm_window = Window_Base.new(80,176,480,128)
@confirm_window.contents = Bitmap.new(448,96)
@confirm_window.contents.draw_text(0,0,448,32,SaveSettings.override_question,1)
@confirm_window.contents.draw_text(0,64,216,32,"确定",1)
@confirm_window.contents.draw_text(232,64,216,32,"取消",1)
@confirm_window.cursor_rect.set(232,64,216,32)
@confirm_window.z = 999999
@confirm_window.visible = false
@confirm_ok = false
# 背景选框
@pic_index = @command_window.cursor_row
@sprite_back_choice = Sprite.new
@sprite_back_choice.bitmap = RPG::Cache.picture("#{@pic_index}.png")
# 执行过渡
Graphics.transition
# 主循环
loop do
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
update
# 如果画面切换的话的就中断循环
if $scene != self
break
end
end
# 准备过渡
Graphics.freeze
# 释放窗口
@help_window.dispose
@save_window.dispose
@command_window.dispose
@confirm_window.dispose
@sprite_back_choice.dispose
end
#---------------------------------------------------------------------------#
# 刷新 #
#---------------------------------------------------------------------------#
def update
# 选择存档窗口激活
unless @confirm_window.visible
update_command
else
update_confirm
end
end
#---------------------------------------------------------------------------#
# 选择存档窗口刷新 #
#---------------------------------------------------------------------------#
def update_command
@command_window.update
@save_window.refresh(@command_window.index)
# 刷新背景选框
if @pic_index != @command_window.cursor_row
@pic_index = @command_window.cursor_row
@sprite_back_choice.bitmap = RPG::Cache.picture("#{@pic_index}.png")
end
# 按下取消键
if Input.trigger?(Input::B)
case @type
when "save"
# 演奏取消 SE
$game_system.se_play($data_system.cancel_se)
# 如果被事件调用
if $game_temp.save_calling
# 清除存档调用标志
$game_temp.save_calling = false
# 切换到地图画面
$scene = Scene_Map.new
return
end
# 切换到菜单画面
$scene = Scene_Menu.new(4)
when "load"
# 演奏取消 SE
$game_system.se_play($data_system.cancel_se)
# 切换到标题画面
$scene = Scene_Title.new
end
end
# 按下确定键
if Input.trigger?(Input::C)
# 计算存档编号
filename = SaveSettings.save_file_dir + "Save#{@command_window.index+1}.rxdata"
case @type
when "save"
if File.exist?(filename)
@confirm_window.visible = true
@confirm_window.cursor_rect.set(232,64,216,32)
@confirm_ok = false
else
process_save
end
when "load"
# 文件不存在的情况下
unless FileTest.exist?(filename)
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
return
end
# 演奏读档 SE
$game_system.se_play($data_system.load_se)
# 写入存档数据
file = File.open(filename, "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
end
#---------------------------------------------------------------------------#
# 确认窗口刷新 #
#---------------------------------------------------------------------------#
def update_confirm
@confirm_window.update
if Input.trigger?(Input::LEFT) or Input.trigger?(Input::UP)
$game_system.se_play($data_system.cursor_se)
@confirm_ok = true
elsif Input.trigger?(Input::RIGHT) or Input.trigger?(Input::DOWN)
$game_system.se_play($data_system.cursor_se)
@confirm_ok = false
elsif Input.trigger?(Input::C)
$game_system.se_play($data_system.decision_se)
process_save if @confirm_ok
@confirm_window.visible = false
elsif Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
@confirm_window.visible = false
end
@confirm_window.cursor_rect.set(232,64,216,32)
@confirm_window.cursor_rect.set(0,64,216,32) if @confirm_ok
end
#---------------------------------------------------------------------------#
# 执行存档 #
#---------------------------------------------------------------------------#
def process_save
# 计算存档编号
filename = SaveSettings.save_file_dir + "Save#{@command_window.index+1}.rxdata"
# 演奏存档 SE
$game_system.se_play($data_system.save_se)
# 写入存档数据
file = File.open(filename, "wb")
write_save_data(file)
file.close
# 如果被事件调用
if $game_temp.save_calling
# 清除存档调用标志
$game_temp.save_calling = false
# 切换到地图画面
$scene = Scene_Map.new
return
end
# 切换到菜单画面
$scene = Scene_Menu.new(4)
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)
# 增加 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
#---------------------------------------------------------------------------#
# 读档 #
#---------------------------------------------------------------------------#
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
#-----------------------------------------------------------------------------#
# Graphics.snap_to_bitmap（优化版） #
# 作者：神思 #
# 优化：釣到一隻猴子@_@ ( AAM@_@ ) #
# 出处：[url=www.66rpg.com]www.66rpg.com[/url]
#-----------------------------------------------------------------------------#
#-----------------------------------------------------------------------------#
# Graphics #
#-----------------------------------------------------------------------------#
class << Graphics
CreateDC = Win32API.new("gdi32", "CreateDC", "pppl", "l")
CreateCompatibleBitmap = Win32API.new("gdi32", "CreateCompatibleBitmap", "lll", "l")
CreateCompatibleDC = Win32API.new("gdi32", "CreateCompatibleDC", "l", "l")
SelectObject = Win32API.new("gdi32", "SelectObject", "ll", "l")
BitBlt = Win32API.new("gdi32", "BitBlt", "lllllllll", "l")
GetBitmapBits = Win32API.new("gdi32", "GetBitmapBits", "llp", "l")
ScreenToClient = Win32API.new("user32", "ScreenToClient", "ip", "i")
SRCCOPY = 0xCC0020
RtlMoveMemory = Win32API.new('kernel32', 'RtlMoveMemory', 'ipi', 'i')
HWnd = Win32API.new("user32", "GetActiveWindow", nil, 'l').call
DwCount = (640 * 480 * 4) * 2
@@lpBits = "\000" * DwCount
#---------------------------------------------------------------------------#
# snap_to_bitmap #
#---------------------------------------------------------------------------#
def snap_to_bitmap
width, height = 640,480
hb = Bitmap.new(width, height)
rgbs = self.bitmap_data
len = width * 4
for y in 0...height
break if 2*y >= height - 1
nth1 = y * len
nth2 = (height - 1 - y) * len
tStr = rgbs[nth1,len]
rgbs[nth1, len] = rgbs[nth2, len]
rgbs[nth2, len] = tStr
end
RtlMoveMemory.call(hb.address, rgbs, 640 * 480 * 4)
return hb
end
#---------------------------------------------------------------------------#
# bitmap_data #
#---------------------------------------------------------------------------#
def bitmap_data
hScrDC = CreateDC.call("DISPLAY", "", "", 0)
hMemDC = CreateCompatibleDC.call(hScrDC)
hBitmap = CreateCompatibleBitmap.call(hScrDC, 640, 480)
hOldBitmap = SelectObject.call(hMemDC, hBitmap)
BitBlt.call(hMemDC, xsrc, ysrc, 640*2, 480*2, hScrDC, 0, 0, SRCCOPY)
hBitmap = SelectObject.call(hMemDC, hOldBitmap)
GetBitmapBits.call(hBitmap, DwCount, @@lpBits)
return @@lpBits
end
#---------------------------------------------------------------------------#
# 用户窗口的位置 #
#---------------------------------------------------------------------------#
def xsrc
return self.point[0]
end
#---------------------------------------------------------------------------#
# 用户窗口的位置 #
#---------------------------------------------------------------------------#
def ysrc
return self.point[1]
end
#---------------------------------------------------------------------------#
# 那个点 #
#---------------------------------------------------------------------------#
def point
point = [0,0].pack("LL")
ScreenToClient.call(HWnd, point)
return point.unpack("LL")
end
end
#-----------------------------------------------------------------------------#
# Font #
#-----------------------------------------------------------------------------#
class Font
#---------------------------------------------------------------------------#
# marshal_dump #
#---------------------------------------------------------------------------#
def marshal_dump
end
#---------------------------------------------------------------------------#
# marshal_load #
#---------------------------------------------------------------------------#
def marshal_load(obj)
end
end
#-----------------------------------------------------------------------------#
# Bitmap #
#-----------------------------------------------------------------------------#
class Bitmap
RtlMoveMemory = Win32API.new('kernel32', 'RtlMoveMemory', 'pii', 'i')
# 传送到内存的API函数
RtlMoveMemory_pi = Win32API.new('kernel32', 'RtlMoveMemory', 'pii', 'i')
RtlMoveMemory_ip = Win32API.new('kernel32', 'RtlMoveMemory', 'ipi', 'i')
#---------------------------------------------------------------------------#
# _dump #
#---------------------------------------------------------------------------#
def _dump(limit)
data = "rgba" * width * height
RtlMoveMemory_pi.call(data, address, data.length)
[width, height, Zlib::Deflate.deflate(data)].pack("LLa*") # 压缩
end
#---------------------------------------------------------------------------#
# _load #
#---------------------------------------------------------------------------#
def self._load(str)
w, h, zdata = str.unpack("LLa*")
b = self.new(w, h)
RtlMoveMemory_ip.call(b.address, Zlib::Inflate.inflate(zdata), w * h * 4)
return b
end
#---------------------------------------------------------------------------#
# address #
#---------------------------------------------------------------------------#
def address
# [[[bitmap.object_id * 2 + 16] + 8] + 16] == 数据的开头
buffer, ad = "xxxx", object_id * 2 + 16
RtlMoveMemory.call(buffer, ad, 4)
ad = buffer.unpack("L")[0] + 8
RtlMoveMemory.call(buffer, ad, 4)
ad = buffer.unpack("L")[0] + 16
RtlMoveMemory.call(buffer, ad, 4)
return buffer.unpack("L")[0]
end
end
写轮眼
发表于 2015-9-6 14:12:03
收藏
分享
提升卡
沉默号角
喧嚣号角
变色卡
升龙剑
楼主
