Main类加强版

じ☆ve冰风

1.                #=================================#               #   ■Main模块加强版   作者：蚂蚁■               #=================================#=begin                        本脚本介绍    这个脚本是一个加强的Main模块，有了更多的性能和配置，脚本版本为第一代，如果在使用中发现了脚本的漏洞可以跟我联系，作者QQ；1660618519脚本配置介绍：   版本：v1.0   兼容性：强   替代性：一般   错误性：暂未发现   冲突性：小   占存量：小   加载影响：小/大   安全性：一般      脚本插入地址：把Main删除，放到它的位置（等于替换系统的Main模块）=end#=============================字体类扩展========================================字体表 = ["黑体", "扩展位", "扩展位", "扩展位"]字体大小 = 22是否粗体 = false是否斜体 = false字体颜色 = [255, 255, 255]#=============================窗口类扩展========================================配置文件名 = "Game.ini"窗口宽度 = 646                 #建议有一些脚本经验的人来进行改动，因为涉及的窗口高度 = 512                 #比较多，如果自行改动，效果可能不佳。是否全屏 = false#=============================防外部修改类======================================是否启用防修改模式 = trueScripts的路径 = "Data/Scripts.rxdata"#=============================LOGO加载类========================================是否加载LOGO = false显现过程速度 = 3消失过程速度 = 5LOGO图片 = RPG::Cache.picture("logo")加载LOGO时的音效 = "wolf_howl.wav"#===============================================================================beginif 是否加载LOGO == trueGraphics.freezeGraphics.transition(20)r0xAF02 = Sprite.newr0xAF02.bitmap = LOGO图片r0xAF02.x = 0x0r0xAF02.y = 0x0r0xAF02.opacity = 0Audio.se_play(加载LOGO时的音效)Graphics.transition(20)while r0xAF02.opacity < 255 doGraphics.updater0xAF02.opacity = r0xAF02.opacity + 显现过程速度endwhile r0xAF02.opacity > 0 doGraphics.updater0xAF02.opacity = r0xAF02.opacity - 消失过程速度endGraphics.freezer0xAF02.bitmap.disposer0xAF02.disposeAudio.se_stopendx = 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 是否启用防修改模式 == truexy = FileTest.exist?("Data/Selfless.rxdata")if xy == trueb = load_data("Data/Selfless.rxdata")elseb = "!=240xb001,[100.45,20xa,0xab,0xff]"endif $DEBUG == trueif b != ap "程序已被修改，现在处于测试中，程序将不会强行关闭" endelseif b != aprint "程序无法正常运行，错误信息：你修改了程序的内容"exitendendendsave_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  = fcilortitle = ""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 == 0print "窗口设置失败"end#此处为引用脚本，不是本人编写，来源于66RPGif 是否全屏 == 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, 0end##Graphics.freeze$scene = Scene_Title.newwhile $scene != nil$scene.mainendGraphics.transition(20)rescue Errno::ENOENT filename = $!.message.sub("No such file or directory - ", "")print "缺少文件" + filename + "::系统为你自动补上，但是文件内容会丢失\n  请关闭后重新启动"save_data("", filename)rescue Errno::ENOMEMprint "内存不足"end复制代码

复制代码

             本帖来自P1论坛作者dengwei，因Project1站服务器在国外有时候访问缓慢不方便作者交流学习，经联系P1站长fux2同意署名转载一起分享游戏制作经验，共同为国内独立游戏作者共同创造良好交流环境，原文地址：https://rpg.blue/forum.php?mod=viewthread&tid=350427  若有侵权，发帖作者可联系底部站长QQ在线咨询功能删除，谢谢。