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
以下引用梦影天翼于2009-2-9 15:28:10的发言:
制作一个连任务管理都不能关闭的游戏才叫牛X
以下引用梦影天翼于2009-2-9 15:28:10的发言:
制作一个连任务管理都不能关闭的游戏才叫牛X
以下引用rpgxs于2009-2-9 15:30:31的发言:
以下引用梦影天翼于2009-2-9 15:28:10的发言:
制作一个连任务管理都不能关闭的游戏才叫牛X
那。。要是制作一个连拔电源都不能关闭的游戏。。。那不是。。牛XXXXX?
话说,要是制作一个非正常关闭游戏,则下次开机时自动弹出来的游戏。。那个。。
以下引用5817150于2009-2-13 15:10:02的发言:
日小气包!!!就知道加密!! 是我伸手帮的
欢迎光临 Project1 (https://rpg.blue/) | Powered by Discuz! X3.1 |