如何做出这种效果。

美丽晨露

在标题界面中停留多少秒后，
会自动重置游戏，就像按了F12一样
怎么做？

cinderelmini

啊咧…………
哀家能想到一个办法……
但是做的有点奇怪~~
于是依然是那个范例~~
加上等待重启的title.zip (720.32 KB, 下载次数: 54)

2013-2-14 18:19 上传

点击文件名下载附件

美丽晨露

cinderelmini 发表于 2013-2-14 18:19
啊咧…………
哀家能想到一个办法……
但是做的有点奇怪~~

谢谢啊
又麻烦你了。
不好意思，
可是我想要的并不是这样的效果。
而是像按下F12时的那种重置效果。
而不是标题重置。

satgo1546

参考自动全屏的那个，模拟按F12……？

1. unless $keybd
   
2.     $keybd = Win32API.new('user32', 'keybd_event', ['i', 'i', 'l', 'l'], 'v')
   
3. end
   
4. $keybd.call(f12id, 0, 0, 0)

复制代码

大概是这样？

美丽晨露

satgo1546 发表于 2013-2-14 18:39
参考自动全屏的那个，模拟按F12……？大概是这样？

请问一下
这句应该怎么使用？

cinderelmini

呃……F12就是$scene = Scene_Title.new的说…………
大概是要黑屏一会儿？

美丽晨露

cinderelmini 发表于 2013-2-14 18:54
呃……F12就是$scene = Scene_Title.new的说…………
大概是要黑屏一会儿？

默认的脚本的确是的。
不过这样做无法执行main脚本内
在$scene = Scene_Title.new上面添加的一些内容

1. #==============================================================================
   
2. # ■ Main
   
3. #------------------------------------------------------------------------------
   
4. # 　各定义结束后、从这里开始实际处理。
   
5. #==============================================================================
   
6. 
   
7. begin
   
8.   # 准备过渡
   
9.   # 设置系统默认字体
   
10.   Font.default_name = (["迷你简卡通","方正粗活意简体","黑体"])
    
11. #追加
    
12. fls = RMFlash.load("123.swf",640,480)
    
13. fls.x = 0
    
14. fls.y = 0
    
15. fls.loop = 1
    
16. while true
    
17.         Graphics.update
    
18.         Input.update
    
19.         fls.update
    
20.         break if !fls.playing?
    
21.         break if Input.trigger?(13)
    
22. end
    
23. fls.dispose
    
24. #
    
25.   Graphics.freeze
    
26.   # 生成场景对像 (标题画面)
    
27.   $scene = Scene_Title.new
    
28.   # $scene 为有效的情况下调用 main 过程
    
29.   while $scene != nil
    
30.     $scene.main
    
31.   end
    
32.   # 淡入淡出
    
33.   Graphics.transition(20)
    
34. rescue Errno::ENOENT
    
35.   # 补充 Errno::ENOENT 以外错误
    
36.   # 无法打开文件的情况下、显示信息后结束
    
37.   filename = $!.message.sub("No such file or directory - ", "")
    
38.   print("找不到文件 #{filename}。 ")
    
39. end

复制代码

cinderelmini

瞬间无力感充满全身…………
为什么模拟按下F12之后，就是不能松开它…………
-------------------------------
PS：
模拟按下F12和松开的句子：
按下
$keybd.call(0x7B, 0, 0x00, 0)
松开
$keybd.call(0x7B, 0, 0x02, 0)

羞射了

我想LZ对main里面到底必须执行什么内容根本不知道吧？
其实main的核心内容很少，去掉报错的话：

begin
  $scene = Scene_随便啥.new
  while $scene != nil
    $scene.main
  end
end

其他内容都可以移动到scene_随便啥 里面去执行，所以理论上不存在什么必须恢复到f12重启才能做到的效果。

cinderelmini

于是似乎能明白露酱的意思了~
就是开头的时候有播放一段开通动画~
然后Title里等一会儿就会再播放一次这个动画~

于是哀家用了另外一个办法来实现这个功能……
由于没有播放swf相关系统和swf文件~
于是还没测试~
乃先把工程目录下的data文件夹备份一下~
然后将哀家这个data包解压出来然后覆盖原来的data文件夹~

Data.zip (172.31 KB, 下载次数: 51)

2013-2-14 21:37 上传

点击文件名下载附件