(估计这货快沉了，路过的发表下意见)
因为31号就要走了，所以，先放个东西在这里，具体看脚本，XP下测试结果没有bug
这个是使用窗体半透明函数，仅在win2000及以上版本有效(相信没有谁用win98了吧)
- #==============================================================================# 邪恶窗体半透明 R-零 2011 / 9 / 28## 31号就要走了啊，所以就把这个东西放出来了# 下面的几个函数都是直接中文写的，需要的可以直接拿走# 脚本使用方法：# 改变透明度 不透明度 注 0～255# 附加效果，退出时渐隐,包括bgm# 完毕#==============================================================================$初始不透明度 = 255def 百分比获得(t,maxt) return 100.0 * t / maxt # ** 2enddef 获取当前窗口句柄 return Win32API.new("user32","GetActiveWindow","","l").callenddef 改变窗体属性(h) return Win32API.new("user32","SetWindowLong","lil","l").call(h,-20,0x00080000 )enddef 改变透明度(op,h = 获取当前窗口句柄 ) return Win32API.new("user32","SetLayeredWindowAttributes","llil","l").call(h,0,op,2)endmodule Kernelalias origin_exit exit unless method_defined? :exitdef exit(*args) hw = 获取当前窗口句柄 改变窗体属性( hw) bgm = $game_system.playing_bgm for i in 1..10 op = $初始不透明度 * 百分比获得( 10 - i ,10) / 100 改变透明度(op,hw) Audio.bgm_play("Audio/BGM/" + bgm.name, bgm.volume * 百分比获得( 10 - i ,10) / 100, bgm.pitch) if bgm.name != nil end origin_exit(*args)endend改变窗体属性(获取当前窗口句柄)改变透明度($初始不透明度,获取当前窗口句柄)复制代码
本帖来自P1论坛作者R-零，因Project1站服务器在国外有时候访问缓慢不方便作者交流学习，经联系P1站长fux2同意署名转载一起分享游戏制作经验，共同为国内独立游戏作者共同创造良好交流环境，原文地址：
https://rpg.blue/forum.php?mod=viewthread&tid=207479 若有侵权，发帖作者可联系底部站长QQ在线咨询功能删除，谢谢。
练手.zip (200.57 KB) 
