Project1

标题: 如何做出这种效果。 [打印本页]
作者: 美丽晨露    时间: 2013-2-14 15:45
标题: 如何做出这种效果。
本帖最后由 美丽晨露 于 2013-2-14 22:06 编辑

在标题界面中停留多少秒后，
会自动重置游戏，就像按了F12一样
怎么做？
作者: cinderelmini    时间: 2013-2-14 18:19
啊咧…………
哀家能想到一个办法……
但是做的有点奇怪~~
于是依然是那个范例~~
加上等待重启的title.zip (720.32 KB, 下载次数: 54)
作者: 美丽晨露    时间: 2013-2-14 18:28
cinderelmini 发表于 2013-2-14 18:19
啊咧…………
哀家能想到一个办法……
但是做的有点奇怪~~

谢谢啊
又麻烦你了。
不好意思，
可是我想要的并不是这样的效果。
而是像按下F12时的那种重置效果。
而不是标题重置。
作者: satgo1546    时间: 2013-2-14 18:39
本帖最后由 satgo1546 于 2013-2-14 18:41 编辑

参考自动全屏的那个，模拟按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)
复制代码
大概是这样？
作者: 美丽晨露    时间: 2013-2-14 18:51
satgo1546 发表于 2013-2-14 18:39
参考自动全屏的那个，模拟按F12……？大概是这样？

请问一下
这句应该怎么使用？
作者: cinderelmini    时间: 2013-2-14 18:54
呃……F12就是$scene = Scene_Title.new的说…………
大概是要黑屏一会儿？
作者: 美丽晨露    时间: 2013-2-14 18:59
cinderelmini 发表于 2013-2-14 18:54
呃……F12就是$scene = Scene_Title.new的说…………
大概是要黑屏一会儿？

默认的脚本的确是的。
不过这样做无法执行main脚本内
在$scene = Scene_Title.new上面添加的一些内容
  1. #==============================================================================
  2. # ■ Main
  3. #------------------------------------------------------------------------------
  4. # 　各定义结束后、从这里开始实际处理。
  5. #==============================================================================

  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    时间: 2013-2-14 20:50
本帖最后由 cinderelmini 于 2013-2-14 21:13 编辑

瞬间无力感充满全身…………
为什么模拟按下F12之后，就是不能松开它…………
-------------------------------
PS：
模拟按下F12和松开的句子：
按下
$keybd.call(0x7B, 0, 0x00, 0)
松开
$keybd.call(0x7B, 0, 0x02, 0)
作者: 羞射了    时间: 2013-2-14 21:26
我想LZ对main里面到底必须执行什么内容根本不知道吧？
其实main的核心内容很少，去掉报错的话：

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

其他内容都可以移动到scene_随便啥 里面去执行，所以理论上不存在什么必须恢复到f12重启才能做到的效果。
作者: cinderelmini    时间: 2013-2-14 21:40
于是似乎能明白露酱的意思了~
就是开头的时候有播放一段开通动画~
然后Title里等一会儿就会再播放一次这个动画~

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

Data.zip (172.31 KB, 下载次数: 51)
作者: 美丽晨露    时间: 2013-2-14 22:05
cinderelmini 发表于 2013-2-14 21:40
于是似乎能明白露酱的意思了~
就是开头的时候有播放一段开通动画~
然后Title里等一会儿就会再播放一次这个 ...

谢谢
执行之后，播放SWF文件是黑屏的。
算了，貌似很难的样子。
不用这个效果了
作者: cinderelmini    时间: 2013-2-14 22:09
美丽晨露 发表于 2013-2-14 22:05
谢谢
执行之后，播放SWF文件是黑屏的。
算了，貌似很难的样子。

黑屏是指？
背景黑色还是整个全黑了？
背景的话可以稍微处理一下~
整屏全黑的话~哀家就无力了~~

PS：既然在处理了~就别半途而废嘛~
作者: 美丽晨露    时间: 2013-2-14 22:53
cinderelmini 发表于 2013-2-14 22:09
黑屏是指？
背景黑色还是整个全黑了？
背景的话可以稍微处理一下~

http://pan.baidu.com/share/link?shareid=287989&uk=3375049596
工程，脚本跟素材都在里面了
作者: cinderelmini    时间: 2013-2-14 23:52
美丽晨露 发表于 2013-2-14 22:53
http://pan.baidu.com/share/link?shareid=287989&uk=3375049596
工程，脚本跟素材都在里面了 ...

和预测的一样……（大雾……一开始不是预测Z值么！）
于是果然播放之前先等一下子就可以的~
于是哀家已经没发现其他问题了~
以下工程……
http://dl.vmall.com/c0wtaxuaqe
作者: 美丽晨露    时间: 2013-2-15 09:35
cinderelmini 发表于 2013-2-14 23:52
和预测的一样……（大雾……一开始不是预测Z值么！）
于是果然播放之前先等一下子就可以的~
于是哀家已经 ...

十分感谢呀
就是有点问题
没有办法跳过吗？



欢迎光临 Project1 (https://rpg.blue/) Powered by Discuz! X3.1