游戏退出时信息提示

風雲Ж贝贝

前几天，我玩了一个叫《超级马力奥》的RM游戏
那游戏里面有个脚本，运行了那脚本按窗口的X是不能退出的
那脚本让我懂了按X时游戏会运行exit命令
所以我写了这个脚本，可以在退出游戏时提示是否退出
不同意就不能退出~
同意退出后会自动渐变退出,渐变退出和MAIN有关系
效果:

以下是脚本:

if true#true为使用，false为不使用
def exit(i=0)
name=""#提示标题,可不填
$scene = nil if options("是否要退出游戏？",name)
end
end
def options(text,name="")
@ask1 = [text,name]
@ctext = Array.new
@m2w = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
@w2m = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
@msgbox = Win32API.new('user32', 'MessageBox', %w(p p p i), 'i')
@wsm = Proc.new{|i|
        len = @m2w.call(65001, 0, i, -1, nil, 0)
        buf = "\0\0" * len
        @m2w.call(65001, 0, i, -1, buf, buf.size/2)
        len = @w2m.call(0, 0, buf, -1, nil, 0, nil, nil)
        @ctext.push "\0" * len
        @w2m.call(0, 0, buf, -1, @ctext.last, @ctext.last.size, nil, nil)
        }
[@ask1].flatten.each{|i| @wsm.call(i)}
  def self.warning
    1.times{|j| j == 0 ?((yield @ctext[0], @ctext[1]) == 1 ? (return true) : (return false)):(return false)}
  end
  return self.warning{|a,b| @msgbox.call(0, a, b, 1) }
end

梦影天翼

强人......我至今还没有研究过写脚本

swabwind

好，防止以后经常不小心ATL+F4。。。。。。{/hx}
拿回去试试

rpgxs

{/fd}   那个点X不能关的游戏真是牛X，最后还是开任务管理器给XX掉了。。要是在游戏里加那个就。。。YY中。。。

梦影天翼

制作一个连任务管理都不能关闭的游戏才叫牛X

rpgxs

以下引用梦影天翼于2009-2-9 15:28:10的发言：

制作一个连任务管理都不能关闭的游戏才叫牛X

那。。要是制作一个连拔电源都不能关闭的游戏。。。那不是。。牛XXXXX？

话说，要是制作一个非正常关闭游戏，则下次开机时自动弹出来的游戏。。那个。。

風雲Ж贝贝

以下引用梦影天翼于2009-2-9 15:28:10的发言：

制作一个连任务管理都不能关闭的游戏才叫牛X

这个是能做，不过话说这样太恶搞了，挺缺德的

越前リョーマ

以下引用rpgxs于2009-2-9 15:30:31的发言：


以下引用梦影天翼于2009-2-9 15:28:10的发言：

制作一个连任务管理都不能关闭的游戏才叫牛X




那。。要是制作一个连拔电源都不能关闭的游戏。。。那不是。。牛XXXXX？

话说，要是制作一个非正常关闭游戏，则下次开机时自动弹出来的游戏。。那个。。

拔电源也不关的不是很简单么，用还有电的笔记本电脑就好了。