求此脚本如何设置按键跳过？

DyingCat · 发表于 2012-5-14 12:31:19

class String
CP_ACP = 0
CP_UTF8 = 65001
def u2s
m2w = Win32API.new("kernel32", "MultiByteToWideChar", "ilpipi", "i")
w2m = Win32API.new("kernel32", "WideCharToMultiByte", "ilpipipp", "i")
len = m2w.call(CP_UTF8, 0, self, -1, nil, 0)
buf = "\0" * (len*2)
m2w.call(CP_UTF8, 0, self, -1, buf, buf.size/2)
len = w2m.call(CP_ACP, 0, buf, -1, nil, 0, nil, nil)
ret = "\0" * len
w2m.call(CP_ACP, 0, buf, -1, ret, ret.size, nil, nil)
return ret
end
def s2u
m2w = Win32API.new("kernel32", "MultiByteToWideChar", "ilpipi", "i")
w2m = Win32API.new("kernel32", "WideCharToMultiByte", "ilpipipp", "i")
len = m2w.call(CP_ACP, 0, self, -1, nil, 0);
buf = "\0" * (len*2)
m2w.call(CP_ACP, 0, self, -1, buf, buf.size/2);
len = w2m.call(CP_UTF8, 0, buf, -1, nil, 0, nil, nil);
ret = "\0" * len
w2m.call(CP_UTF8, 0, buf, -1, ret, ret.size, nil, nil);
return ret
end
def s2u!
self[0, length] = s2u
end
def u2s!
self[0, length] = u2s
end
end
class Bitmap
RtlMoveMemory_pi = Win32API.new('kernel32', 'RtlMoveMemory', 'pii', 'i')
RtlMoveMemory_ip = Win32API.new('kernel32', 'RtlMoveMemory', 'ipi', 'i')
def address
buffer, ad = "xxxx", object_id * 2 + 16
RtlMoveMemory_pi.call(buffer, ad, 4); ad = buffer.unpack("L")[0] + 8
RtlMoveMemory_pi.call(buffer, ad, 4); ad = buffer.unpack("L")[0] + 16
RtlMoveMemory_pi.call(buffer, ad, 4); return buffer.unpack("L")[0]
end
end
class RMFlash
API_NEW = Win32API.new("RMFlash", "_new", "piil", "l")
API_UPDATE = Win32API.new("RMFlash", "_update", "l", "v")
API_FREE = Win32API.new("RMFlash", "_free", "l", "v")
API_PLAYING = Win32API.new("RMFlash", "_is_playing", "l", "i")
API_PAUSE = Win32API.new("RMFlash", "_pause", "l", "v")
API_RESUME = Win32API.new("RMFlash", "_resume", "l", "v")
API_BACK = Win32API.new("RMFlash", "_back", "l", "v")
API_REWIND = Win32API.new("RMFlash", "_rewind", "l", "v")
API_FORWARD = Win32API.new("RMFlash", "_forward", "l", "v")
API_CURFRAME = Win32API.new("RMFlash", "_cur_frame", "l", "i")
API_TOTALFRAME = Win32API.new("RMFlash", "_total_frames", "l", "i")
API_GOTOFRAME = Win32API.new("RMFlash", "_goto_frame", "li", "v")
API_GETLOOP = Win32API.new("RMFlash", "_get_loop", "l", "i")
API_SETLOOP = Win32API.new("RMFlash", "_set_loop", "li", "v")
API_CLEARALL = Win32API.new("RMFlash", "_clear_all", "v", "v")
API_VALID = Win32API.new("RMFlash", "_valid", "l", "i")
API_SENDMSG = Win32API.new("RMFlash", "_send_message", "liii", "l")
CUR_PATH = Dir.pwd
def self.get_version
end
def self.clear_all
API_CLEARALL.call
end
def self.load(name, width, height, v = nil)
new("#{CUR_PATH}/#{name}".u2s, width, height, v)
end
attr_reader :valid
def initialize(flash_name, flash_width, flash_height, viewport = nil)
@sprite = Sprite.new(viewport)
@sprite.bitmap = Bitmap.new(flash_width, flash_height)
@value = API_NEW.call(flash_name, flash_width, flash_height, @sprite.bitmap.address)
@loop = API_GETLOOP.call(@value) > 0
@valid = API_VALID.call(@value) > 0
end
def viewport
@sprite.viewport
end
def update
API_UPDATE.call(@value)
end
def dispose
API_FREE.call(@sprite.bitmap.address)
end
def playing?
API_PLAYING.call(@value) > 0
end
def pause
API_PAUSE.call(@value)
end
def resume
API_RESUME.call(@value)
end
def back
API_BACK.call(@value)
end
def rewind
API_REWIND.call(@value)
end
def forward
API_FORWARD.call(@value)
end
def current_frame
API_CURFRAME.call(@value)
end
def total_frames
API_TOTALFRAME.call(@value)
end
def goto_frame(goal_frame)
API_GOTOFRAME.call(@value, goal_frame)
end
def x
@sprite.x
end
def x=(v)
@sprite.x = v
end
def y
@sprite.y
end
def y=(v)
@sprite.y = v
end
def z
@sprite.z
end
def z=(v)
@sprite.z = v
end
def width
@sprite.bitmap.width
end
def height
@sprite.bitmap.height
end
def loop?
@loop
end
def loop=(v)
if @loop != v
@loop = v
API_SETLOOP.call(@value, v)
end
end
def msg_to_flash(msg, wParam, lParam)
return API_SENDMSG.call(@value, msg, wParam, lParam)
end
# 例
WM_MOUSEMOVE = 0x0200
def make_long(a, b)
return (a & 0xffff ) | (b & 0xffff) << 16
end
def on_mouse_move(x, y)
return msg_to_flash(WM_MOUSEMOVE, 0, make_long(x, y))
end
end
module Kernel
alias origin_exit exit unless method_defined? :exit
def exit(*args)
RMFlash.clear_all
origin_exit(*args)
end
end
#fls = RMFlash.load("2.swf", 640, 480)
#while true
# Graphics.update
# Input.update
# fls.update
# break if Input.trigger?(input::A)
#end
#fls.dispose
#exit
=begin
class RMFlash
API_NEW = Win32API.new("RMFlash", "_new", "piil", "l")
API_UPDATE = Win32API.new("RMFlash", "_update", "l", "v")
API_FREE = Win32API.new("RMFlash", "_free", "l", "v")
#def self.new(*args)
# obj = super(*args)
# obj.send :initialize, *args
# obj
#end
def initialize(flashname, fw, fh)
end
end
RMFlash.new
exit
=end

复制代码

夏娜大人的FLASH播放脚本，第二次提问了，如何设置按键跳过呢……

xszhu123 · 发表于 2012-5-15 23:26:07

路过！！！
帮顶……

DyingCat · 发表于 2012-5-15 11:27:58

tommay 发表于 2012-5-15 10:57
额。。。
首先，确定一下你的按键设置有没有问题；
然后在你上传的那个工程基础上进行修改，只改那个事件， ...

崩溃，依旧无效……
现在用一个笨办法解决了……

tommay · 发表于 2012-5-15 10:57:47

本帖最后由 tommay 于 2012-5-15 11:00 编辑

额。。。
首先，确定一下你的按键设置有没有问题；
然后在你上传的那个工程基础上进行修改，只改那个事件，别的都别动；
最后，按键之后会有几秒的延时，但是可以通过音乐判断，稍等片刻。

DyingCat · 发表于 2012-5-15 10:51:57

tommay 发表于 2012-5-15 09:41
如图。你按“C ”的时候事件也触发呢，让主角向下移动避免触发事件。按键之后等个1-2秒才会退出，可以确定 ...

跳过无力……
一百四十四个键子按了个遍，除了按F12回到主菜单没发现其他反应……
模仿了你那个，加了个设置移动路线，还是没法跳过……
到底差在哪呢……
话说，前辈你改过工程里的脚本么？
直接上事件就能跳过了？
难道是我平时积德太少……
当伸手党压力大啊，面对舆论的谴责问题却又迟迟解决不了……

tommay · 发表于 2012-5-15 09:41:45

本帖最后由 tommay 于 2012-5-15 09:43 编辑

如图。你按“C ”的时候事件也触发呢，让主角向下移动避免触发事件。按键之后等个1-2秒才会退出，可以确定是dispose的效率问题。。。

‘‘──tommay于2012-5-15 10:12补充以下内容

默认情况下，C是空格键、回车键和C键，具体游戏中按F1自行查看。
另，如果回复我并希望得到我的回答，请用“回复”而不是“点评”，谢谢！
’’

DyingCat · 发表于 2012-5-15 08:10:58

本帖最后由 DyingCat 于 2012-5-15 08:19 编辑

灵魂の补给发表于 2012-5-14 18:53
Input 不是input

消掉了注释，i改成了I 进入游戏直接黑屏，按键后跳出……

工程在此
1.25M 大胆不要脸当一回伸手党，只求此脚本能成功实现按键跳过……

灵魂の补给 · 发表于 2012-5-14 18:53:07

Input 不是input

DyingCat · 发表于 2012-5-14 12:57:41

灵魂の补给发表于 2012-5-14 12:34
我好像上次回答过你没理我,.....

去掉注释会有这样的情况发生……

灵魂の补给 · 发表于 2012-5-14 12:34:48

我好像上次回答过你没理我,.....

‘‘──灵魂の补给于2012-5-14 12:36补充以下内容

229行有啊
要按空格跳过改a为C
还有你注视掉干什么

’’

帐号		自动登录	找回密码
密码			注册会员

[已经过期] 求此脚本如何设置按键跳过？

评分

点评

点评

开拓者