【临别的邪恶发布】窗体半透明+渐隐退出

じ☆ve冰风

(估计这货快沉了，路过的发表下意见)
因为31号就要走了，所以，先放个东西在这里，具体看脚本，XP下测试结果没有bug
这个是使用窗体半透明函数，仅在win2000及以上版本有效(相信没有谁用win98了吧)

1. #==============================================================================# 邪恶窗体半透明 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在线咨询功能删除，谢谢。