RMFlash 脚本第62行发生错误……

菜鸟1111 · 发表于 2013-7-29 22:09:58

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

事件如图

脚本如下

RUBY 代码复制下载

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)
                [url=home.php?mod=space&uid=114926]@sprite[/url] = 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)
    @sprite.bitmap.dispose
    @sprite.dispose
        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

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)


                [url=home.php?mod=space&uid=114926]@sprite[/url] = 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)


    @sprite.bitmap.dispose


    @sprite.dispose


        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

弗雷德 · 发表于 2013-7-30 00:06:17

好歹把报错的截图扔上来吧，估计楼主是不是没有将范例里的dll文件复制进去。

123455555 · 发表于 2013-7-30 11:00:57

本帖最后由 123455555 于 2013-7-30 11:02 编辑

我也遇到了这个错误
错误信息是：
脚本'RMFlash' 的62行发生了 RunTimeError。
LoadLibrary: RMFlash
-------------------------------------
现在好了……自行看了一遍，确实是没复制dll。

美丽晨露 · 发表于 2013-7-30 11:51:35

范例内带的DLL复制到游戏文件夹内了吗？

菜鸟1111 · 发表于 2013-7-30 22:20:04

美丽晨露发表于 2013-7-30 11:51
范例内带的DLL复制到游戏文件夹内了吗？

复制后解决了谢谢~

菜鸟1111 · 发表于 2013-7-30 22:20:27

弗雷德发表于 2013-7-30 00:06
好歹把报错的截图扔上来吧，估计楼主是不是没有将范例里的dll文件复制进去。 ...

复制后解决了感谢~

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

[已经解决] RMFlash 脚本第62行发生错误……

加入我们，或者，欢迎回来。

评分

评分

贵宾

短篇十战斗者组别冠军

开拓者

短篇九勇士组亚军