仙剑之十里坡

标题: 这套脚本的调用……DLL我有 [打印本页]

作者: BlackFeather    时间: 2010-4-4 18:54
标题: 这套脚本的调用……DLL我有
  1. class String
  2.   
  3.   CP_ACP = 0
  4.   CP_UTF8 = 65001
  5.   
  6.   def u2s
  7.     m2w = Win32API.new("kernel32", "MultiByteToWideChar", "ilpipi", "i")
  8.     w2m = Win32API.new("kernel32", "WideCharToMultiByte", "ilpipipp", "i")
  9.    
  10.     len = m2w.call(CP_UTF8, 0, self, -1, nil, 0)
  11.     buf = "\0" * (len*2)
  12.     m2w.call(CP_UTF8, 0, self, -1, buf, buf.size/2)
  13.    
  14.     len = w2m.call(CP_ACP, 0, buf, -1, nil, 0, nil, nil)
  15.     ret = "\0" * len
  16.     w2m.call(CP_ACP, 0, buf, -1, ret, ret.size, nil, nil)
  17.    
  18.     return ret
  19.   end
  20.   
  21.   def s2u
  22.     m2w = Win32API.new("kernel32", "MultiByteToWideChar", "ilpipi", "i")
  23.     w2m = Win32API.new("kernel32", "WideCharToMultiByte", "ilpipipp", "i")
  24.   
  25.     len = m2w.call(CP_ACP, 0, self, -1, nil, 0);
  26.     buf = "\0" * (len*2)
  27.     m2w.call(CP_ACP, 0, self, -1, buf, buf.size/2);
  28.   
  29.     len = w2m.call(CP_UTF8, 0, buf, -1, nil, 0, nil, nil);
  30.     ret = "\0" * len
  31.     w2m.call(CP_UTF8, 0, buf, -1, ret, ret.size, nil, nil);
  32.      
  33.     return ret
  34.   end

  35.   def s2u!
  36.     self[0, length] = s2u
  37.   end  
  38.   
  39.   def u2s!
  40.     self[0, length] = u2s
  41.   end
  42.   
  43. end

  44. class Bitmap
  45.   
  46.   RtlMoveMemory_pi = Win32API.new('kernel32', 'RtlMoveMemory', 'pii', 'i')
  47.   RtlMoveMemory_ip = Win32API.new('kernel32', 'RtlMoveMemory', 'ipi', 'i')

  48.   def address
  49.     buffer, ad = "xxxx", object_id * 2 + 16
  50.     RtlMoveMemory_pi.call(buffer, ad, 4); ad = buffer.unpack("L")[0] + 8
  51.     RtlMoveMemory_pi.call(buffer, ad, 4); ad = buffer.unpack("L")[0] + 16
  52.     RtlMoveMemory_pi.call(buffer, ad, 4); return buffer.unpack("L")[0]
  53.   end
  54.   
  55. end

  56. class RMFlash

  57.         API_NEW                      = Win32API.new("RMFlash", "_new", "piil", "l")
  58.         API_UPDATE            = Win32API.new("RMFlash", "_update", "l", "v")
  59.         API_FREE              = Win32API.new("RMFlash", "_free", "l", "v")
  60.         API_PLAYING     = Win32API.new("RMFlash", "_is_playing", "l", "i")
  61.         API_PAUSE              = Win32API.new("RMFlash", "_pause", "l", "v")
  62.         API_RESUME            = Win32API.new("RMFlash", "_resume", "l", "v")
  63.         API_BACK              = Win32API.new("RMFlash", "_back", "l", "v")
  64.         API_REWIND            = Win32API.new("RMFlash", "_rewind", "l", "v")
  65.         API_FORWARD            = Win32API.new("RMFlash", "_forward", "l", "v")
  66.         API_CURFRAME          = Win32API.new("RMFlash", "_cur_frame", "l", "i")
  67.         API_TOTALFRAME        = Win32API.new("RMFlash", "_total_frames", "l", "i")
  68.         API_GOTOFRAME          = Win32API.new("RMFlash", "_goto_frame", "li", "v")
  69.         API_GETLOOP                  = Win32API.new("RMFlash", "_get_loop", "l", "i")
  70.         API_SETLOOP                  = Win32API.new("RMFlash", "_set_loop", "li", "v")
  71.         API_CLEARALL          = Win32API.new("RMFlash", "_clear_all", "v", "v")
  72.   API_VALID       = Win32API.new("RMFlash", "_valid", "l", "i")
  73.   API_SENDMSG     = Win32API.new("RMFlash", "_send_message", "liii", "l")
  74.        
  75.   CUR_PATH        = Dir.pwd
  76.   
  77.         def self.get_version

  78.         end

  79.         def self.clear_all
  80.                 API_CLEARALL.call
  81.         end
  82.   
  83.   def self.load(name, width, height, v = nil)
  84.     new("#{CUR_PATH}/#{name}".u2s, width, height, v)
  85.   end
  86.   
  87.   attr_reader   :valid

  88.         def initialize(flash_name, flash_width, flash_height, viewport = nil)
  89.                 @sprite = Sprite.new(viewport)
  90.                 @sprite.bitmap = Bitmap.new(flash_width, flash_height)
  91.                 @value = API_NEW.call(flash_name, flash_width, flash_height, @sprite.bitmap.address)
  92.                 @loop = API_GETLOOP.call(@value) > 0
  93.     @valid = API_VALID.call(@value) > 0
  94.         end

  95.         def viewport
  96.                 @sprite.viewport
  97.         end

  98.         def update
  99.                 API_UPDATE.call(@value)
  100.         end

  101.         def dispose
  102.                 API_FREE.call(@sprite.bitmap.address)
  103.         end

  104.         def playing?
  105.                 API_PLAYING.call(@value) > 0
  106.         end

  107.         def pause
  108.                 API_PAUSE.call(@value)
  109.         end

  110.         def resume
  111.                 API_RESUME.call(@value)
  112.         end

  113.         def back
  114.                 API_BACK.call(@value)
  115.         end

  116.         def rewind
  117.                 API_REWIND.call(@value)
  118.         end

  119.         def forward
  120.                 API_FORWARD.call(@value)
  121.         end

  122.         def current_frame
  123.                 API_CURFRAME.call(@value)
  124.         end

  125.         def total_frames
  126.                 API_TOTALFRAME.call(@value)
  127.         end

  128.         def goto_frame(goal_frame)
  129.                 API_GOTOFRAME.call(@value, goal_frame)
  130.         end

  131.         def x
  132.                 @sprite.x
  133.         end

  134.         def x=(v)
  135.                 @sprite.x = v
  136.         end

  137.         def y
  138.                 @sprite.y
  139.         end

  140.         def y=(v)
  141.                 @sprite.y = v
  142.         end

  143.         def z
  144.                 @sprite.z
  145.         end

  146.         def z=(v)
  147.                 @sprite.z = v
  148.         end

  149.         def width
  150.                 @sprite.bitmap.width
  151.         end

  152.         def height
  153.                 @sprite.bitmap.height
  154.         end

  155.         def loop?
  156.                 @loop
  157.         end

  158.         def loop=(v)
  159.                 if @loop != v
  160.                         @loop = v
  161.                         API_SETLOOP.call(@value, v)
  162.                 end
  163.         end
  164.   
  165.   def msg_to_flash(msg, wParam, lParam)
  166.     return API_SENDMSG.call(@value, msg, wParam, lParam)
  167.   end
  168.   
  169.   #  例
  170.   WM_MOUSEMOVE  = 0x0200
  171.   
  172.   def make_long(a, b)
  173.     return (a & 0xffff ) | (b & 0xffff) << 16
  174.   end
  175.   
  176.   def on_mouse_move(x, y)
  177.     return msg_to_flash(WM_MOUSEMOVE, 0, make_long(x, y))
  178.   end

  179. end

  180. module Kernel

  181.   alias origin_exit exit unless method_defined? :exit
  182.   
  183.   def exit(*args)
  184.     RMFlash.clear_all
  185.     origin_exit(*args)
  186.   end
  187.   
  188. end

  189. #fls = RMFlash.load("2.swf", 640, 480)

  190. #while true
  191. #        Graphics.update
  192. #        Input.update
  193. #        fls.update
  194. #        break if Input.trigger?(13)
  195. #end
  196. #fls.dispose

  197. #exit

  198. =begin
  199. class RMFlash
  200.   API_NEW = Win32API.new("RMFlash", "_new", "piil", "l")
  201.   API_UPDATE = Win32API.new("RMFlash", "_update", "l", "v")
  202.   API_FREE = Win32API.new("RMFlash", "_free", "l", "v")
  203.   #def self.new(*args)
  204.   #  obj = super(*args)
  205.   #  obj.send :initialize, *args
  206.   #  obj
  207.   #end
  208.   
  209.   def initialize(flashname, fw, fh)
  210.    
  211.   end
  212.   
  213. end

  214. RMFlash.new
  215. exit
  216. =end
复制代码

作者: 最爱南宫煌    时间: 2010-4-5 19:42
本帖最后由 最爱南宫煌 于 2010-4-5 21:03 编辑

这个是干嘛的?问的什么?你都没说清楚啊!
作者: BlackFeather    时间: 2010-4-9 18:59
RMFLASH
在RM里播放FALSH
作者: 最爱南宫煌    时间: 2010-4-9 19:03
那这个脚本哪里错了吗?你到底要问什么?
作者: BlackFeather    时间: 2010-4-9 19:08
如何调用此脚本
作者: 最爱南宫煌    时间: 2010-4-9 20:25
晕,那你写清楚。




欢迎光临 仙剑之十里坡 (http://palslp.com/bbs/) Powered by Discuz! X2.5