Main类加强版 - Project1 - Powered by Discuz!

#=================================#
# ■Main模块加强版作者：蚂蚁■
#=================================#
=begin 本脚本介绍
这个脚本是一个加强的Main模块，有了更多的性能和配置，脚本版本为第一代，如果在使
用中发现了脚本的漏洞可以跟我联系，作者QQ；1660618519
脚本配置介绍：
版本：v1.0
兼容性：强
替代性：一般
错误性：暂未发现
冲突性：小
占存量：小
加载影响：小/大
安全性：一般
脚本插入地址：把Main删除，放到它的位置（等于替换系统的Main模块）
=end
#=============================字体类扩展========================================
字体表 = ["黑体", "扩展位", "扩展位", "扩展位"]
字体大小 = 22
是否粗体 = false
是否斜体 = false
字体颜色 = [255, 255, 255]
#=============================窗口类扩展========================================
配置文件名 = "Game.ini"
窗口宽度 = 646 #建议有一些脚本经验的人来进行改动，因为涉及的
窗口高度 = 512 #比较多，如果自行改动，效果可能不佳。
是否全屏 = false
#=============================防外部修改类======================================
是否启用防修改模式 = true
Scripts的路径 = "Data/Scripts.rxdata"
#=============================LOGO加载类========================================
是否加载LOGO = false
显现过程速度 = 3
消失过程速度 = 5
LOGO图片 = RPG::Cache.picture("logo")
加载LOGO时的音效 = "wolf_howl.wav"
#===============================================================================
begin
if 是否加载LOGO == true
Graphics.freeze
Graphics.transition(20)
r0xAF02 = Sprite.new
r0xAF02.bitmap = LOGO图片
r0xAF02.x = 0x0
r0xAF02.y = 0x0
r0xAF02.opacity = 0
Audio.se_play(加载LOGO时的音效)
Graphics.transition(20)
while r0xAF02.opacity < 255 do
Graphics.update
r0xAF02.opacity = r0xAF02.opacity + 显现过程速度
end
while r0xAF02.opacity > 0 do
Graphics.update
r0xAF02.opacity = r0xAF02.opacity - 消失过程速度
end
Graphics.freeze
r0xAF02.bitmap.dispose
r0xAF02.dispose
Audio.se_stop
end
x = File.read("Game.exe")
xx = File.mtime("Game.exe")
xxx = File.mtime(配置文件名)
xxxx = File.read(配置文件名)
xxxxx = File.read(Scripts的路径)
a = [x, xx, xxx, xxxx, xxxxx]
if 是否启用防修改模式 == true
xy = FileTest.exist?("Data/Selfless.rxdata")
if xy == true
b = load_data("Data/Selfless.rxdata")
else
b = "!=240xb001,[100.45,20xa,0xab,0xff]"
end
if $DEBUG == true
if b != a
p "程序已被修改，现在处于测试中，程序将不会强行关闭"
end
else
if b != a
print "程序无法正常运行，错误信息：你修改了程序的内容"
exit
end
end
end
save_data(a, "Data/Selfless.rxdata")
Font.default_name = 字体表
Font.default_size = 字体大小
Font.default_bold = 是否粗体
Font.default_italic = 是否斜体
fcilor = Color.new(字体颜色[0], 字体颜色[1], 字体颜色[2])
Font.default_color = fcilor
title = ""
read = Win32API.new('kernel32', 'GetPrivateProfileString',%w(p p p p l p), 'l')
read.call("Game", "Title", "", title, 256, ".\\" + 配置文件名)
hWnd = Win32API.new('user32', 'FindWindow', 'pp', 'i').call("RGSS Player", title)
windowset = Win32API.new('user32', 'SetWindowPos', %(l, l, i, i, i, i, i), 'i')
reval = windowset.call(hWnd, 0, 0, 0, 窗口宽度, 窗口高度, 2)
if reval == 0
print "窗口设置失败"
end
#此处为引用脚本，不是本人编写，来源于66RPG
if 是否全屏 == true
$keybd = Win32API.new 'user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v'
$keybd.call 0xA4, 0, 0, 0
$keybd.call 13, 0, 0, 0
$keybd.call 13, 0, 2, 0
$keybd.call 0xA4, 0, 2, 0
end
##
Graphics.freeze
$scene = Scene_Title.new
while $scene != nil
$scene.main
end
Graphics.transition(20)
rescue Errno::ENOENT
filename = $!.message.sub("No such file or directory - ", "")
print "缺少文件" + filename + "::系统为你自动补上，但是文件内容会丢失\n 请关闭后重新启动"
save_data("", filename)
rescue Errno::ENOMEM
print "内存不足"
end

复制代码