谁有rpgxp插入视屏的脚本

wwwxuanye

谁有rpgxp插入视屏的脚本

♞丝瓜☣daye

插入视屏。貌似是这个

1. #==============================================================================
   
2. # ☆★☆ AVI播放器 ☆★☆
   
3. #------------------------------------------------------------------------------
   
4. # - FantasyDR
   
5. # - 2006.3.8
   
6. #------------------------------------------------------------------------------
   
7. # MSN: [email protected]
   
8. #------------------------------------------------------------------------------
   
9. # Note:
   
10. #
    
11. #   1.游戏必须使用游戏样板工程附带的RGSS102J.dll
    
12. #  
    
13. #   2.在下方 PROJECT_NAME = 后面填写你的游戏工程名.
    
14. #
    
15. #   3.在游戏中,调用脚本事件播放你的视频文件,如果一行写不下可以在逗号后换行.
    
16. #
    
17. #   $MP.play(movie_name, movie_length,
    
18. #            skip, fullscr,
    
19. #            x, y, width, height)
    
20. #
    
21. # 参数说明:
    
22. #
    
23. #     movie_name   : 视频文件名(*.avi),必须
    
24. #     movie_length : 电影时间,单位是秒,必须
    
25. #             skip : 是否可以按A键跳过,true/false,默认是true
    
26. #          fullscr : 是否强制为全屏幕播放,true/false,默认是false
    
27. #              x,y : 视频播放的左上角坐标,默认是0,0
    
28. #     width,height : 视频的宽度,可以任意.默认是640,480
    
29. #
    
30. # 例如:
    
31. #        $MP.play("logo.avi",13,false,true)
    
32. #==============================================================================
    
33. 
    
34. # ------------------------------------------------------------------------
    
35. # 高精度计时器 by FantasyDR
    
36. # ------------------------------------------------------------------------
    
37. # E-mail: [email protected]
    
38. # ------------------------------------------------------------------------
    
39. # 2005.10.18
    
40. # ------------------------------------------------------------------------
    
41. # 该类已经被定义为全局变量 $sys_timer
    
42. # 如果只需要精确到毫秒，请设置初始化参数为true
    
43. # decimal属性设置返回时间值的小数位数。
    
44. # ------------------------------------------------------------------------
    
45. # 下面是一些有用的方法列表，调用时写：$sys_timer.方法名
    
46. # 例如 $sys_timer.clear()
    
47. # ------------------------------------------------------------------------
    
48. # clear() ：计时器清零
    
49. #   now() ：获取当前经过的时间，单位毫秒
    
50. # now_s() ：获取当前经过的时间，单位秒
    
51. # ------------------------------------------------------------------------
    
52. 
    
53. class SystemTimer
    
54. 
    
55. attr_accessor:decimal  #小数位数设定，默认为3
    
56. 
    
57. def initialize(use_GetTime=false)
    
58.    # 初始化，根据系统选择不同精度计时器
    
59.    @qpFrequency = Win32API.new("kernel32","QueryPerformanceFrequency",'p','L')
    
60.    @qpCounter = Win32API.new("kernel32","QueryPerformanceCounter",'p','L')
    
61.    @tGetTime = Win32API.new("winmm","timeGetTime",'','L')
    
62.    
    
63.    @decimal=3
    
64.    @perf_cnt=" " * 8
    
65.    @time_start=" " * 8
    
66.    @time_now=" " * 8
    
67.    
    
68.    result = @qpFrequency.call(@perf_cnt)
    
69.    
    
70.    if use_GetTime
    
71.      result = 0
    
72.    end
    
73.    
    
74.    if result!=0
    
75.      @perf_flag=true
    
76.    else
    
77.      @perf_flag=false
    
78.      @perf_cnt=[1000,0].pack('LL')
    
79.    end
    
80.    
    
81.    #设置时间比例因数
    
82.    @time_scale=@perf_cnt.unpack('LL')
    
83.    @time_scale[0] /= 1000.0
    
84.    @time_scale[1] /= 1000.0
    
85.    
    
86.    #起始时间清零
    
87.    self.clear()
    
88. end
    
89. 
    
90. #-=====================-#
    
91. # 计时器清零
    
92. #-=====================-#
    
93. def clear()
    
94.    if @perf_flag
    
95.      @qpCounter.call(@time_start)
    
96.    else
    
97.      @time_start=[@tGetTime.call(),0].pack('LL')
    
98.    end
    
99. end
    
100. 
     
101. #-==============================-#
     
102. # 获取当前经过的时间，单位毫秒
     
103. #-==============================-#
     
104. def now()
     
105.    now_time = 0.0e1
     
106.    now_time += self.timer() - self.start()
     
107.    now_time /= self.scale()
     
108.    return self.debug(now_time)
     
109. end
     
110. 
     
111. #-==============================-#
     
112. # 获取当前经过的时间，单位秒
     
113. #-==============================-#
     
114. def now_s()
     
115.    now_time = 0.0e1
     
116.    now_time += self.timer() - self.start()
     
117.    now_time /= (self.scale()*1000)   
     
118.    return self.debug(now_time)
     
119. end
     
120. 
     
121. #-==============================-#
     
122. # 帧错...
     
123. #-==============================-#
     
124. def debug(now_time)
     
125.    if @decimal>0
     
126.     now_time = (now_time * (10**@decimal)).floor/(10.0**@decimal)
     
127.    else
     
128.     now_time = now_time.floor
     
129.    end
     
130.    return now_time
     
131.    
     
132.    #以下用于debug模式
     
133.    if now_time < 0
     
134.      p "Timer Wrong!! Clear...",now_time,       @perf_flag,@qpCounter,@tGetTime,
     
135.        @time_now.unpack('LL')[0],@time_now.unpack('LL')[1],
     
136.        @time_start.unpack('LL')[0],@time_start.unpack('LL')[1]
     
137.      self.clear()
     
138.      return 0.0
     
139.    else
     
140.      return now_time
     
141.    end
     
142. end
     
143. 
     
144. #-=====================-#
     
145. # 获取时间比例因数
     
146. #-=====================-#
     
147. def scale()
     
148.    return @time_scale[0]+          @time_scale[1]*0xffffffff
     
149. end
     
150. 
     
151. #-=====================-#
     
152. # 获取起始滴答数
     
153. #-=====================-#
     
154. def start()
     
155.    return @time_start.unpack('LL')[0]+          @time_start.unpack('LL')[1]*0xffffffff
     
156. end
     
157. 
     
158. #-=====================-#
     
159. # 获取当前的嘀哒数
     
160. #-=====================-#
     
161. def timer()
     
162.    if @perf_flag
     
163.      @qpCounter.call(@time_now)
     
164.    else
     
165.      @time_now=[@tGetTime.call(),0].pack('LL')
     
166.    end
     
167.    return @time_now.unpack('LL')[0]+          @time_now.unpack('LL')[1]*0xffffffff
     
168. end
     
169. end
     
170. 
     
171. #-------------------------------------#
     
172. # 初始化自身成一个全局变量
     
173. #-------------------------------------#
     
174. $sys_timer=SystemTimer.new()
     
175. #-------------------------------------#
     
176. 
     
177. #==============================================================================
     
178. # ☆★☆ AVI播放器 ☆★☆
     
179. #------------------------------------------------------------------------------
     
180. # - FantasyDR
     
181. # - 2006.3.8
     
182. #------------------------------------------------------------------------------
     
183. # MSN: [email protected]
     
184. #------------------------------------------------------------------------------
     
185. # Note:
     
186. #
     
187. #   1.游戏必须使用游戏样板工程附带的RGSS102J.dll
     
188. #  
     
189. #   2.在下方 PROJECT_NAME = 后面填写你的游戏工程名.
     
190. #
     
191. #   3.在游戏中,调用脚本事件播放你的视频文件,如果一行写不下可以在逗号后换行.
     
192. #
     
193. #   $MP.play(movie_name, movie_length,
     
194. #            skip, fullscr,
     
195. #            x, y, width, height, loop)
     
196. #
     
197. # 参数说明:
     
198. #
     
199. #     movie_name   : 视频文件名(*.avi),必须
     
200. #     movie_length : 电影时间,单位是秒,必须
     
201. #             skip : 是否可以按A键跳过,true/false,默认是true
     
202. #          fullscr : 是否强制为全屏幕播放,true/false,默认是false
     
203. #              x,y : 视频播放的左上角坐标,默认是0,0
     
204. #     width,height : 视频的宽度,可以任意.默认是640,480
     
205. #             loop : 循环播放,true/false,默认是true
     
206. #
     
207. # 例如播放logo.avi,时间13秒,禁止跳过,强制全屏,范围(是0,0)-(640,480),循环播放
     
208. #        $MP.play("logo.avi",13,false,true)
     
209. #==============================================================================
     
210. 
     
211. # ★★★请先这里填写游戏的工程名★★★
     
212. 
     
213. PROJECT_NAME = "神雕后传"
     
214. 
     
215. #==============================================================================
     
216. # ■ Win32API
     
217. #------------------------------------------------------------------------------
     
218. # 　需要用到的API
     
219. #==============================================================================
     
220. 
     
221. # 切换到全屏延时
     
222. SWITCH_DELAY = 0.1
     
223. 
     
224. # API使用的一些常数
     
225. WS_EX_TOPMOST = 0x8
     
226. WS_EX_TOOLWINDOW= 0x80
     
227. WS_VISIBLE = 0x10000000
     
228. WS_POPUP = 0x80000000
     
229. GWL_HINSTANCE = (-6)
     
230. WM_CLOSE = 0x10
     
231. WS_CHILD = 0x40000000
     
232. WS_NONE = 0x16000000
     
233. CP_ACP = 0
     
234. CP_UTF8 = 65001
     
235. 
     
236. # 字符编码转换API
     
237. $MP_m2w = Win32API.new('kernel32', 'MultiByteToWideChar', '%w(i,l,p,i,p,i)', 'i')
     
238. $MP_w2m = Win32API.new('kernel32', 'WideCharToMultiByte', '%w(i,l,p,i,p,i,p,p)', 'i')
     
239.   
     
240. # 按键API
     
241. $MP_keybd = Win32API.new('user32', 'keybd_event', '%w(i,i,l,l)', 'v')
     
242. 
     
243. # 视频播放API
     
244. $MP_mciSendString = Win32API.new('winmm','mciSendString','%w(p,p,l,l)','V')
     
245. 
     
246. # 锁定窗口
     
247. # hWnd,ifEnable
     
248. $MP_EnableWindow = Win32API.new('user32','EnableWindow','%w(l,l)','L')
     
249. 
     
250. # 激活窗口
     
251. # hWnd
     
252. $MP_SetActiveWindow = Win32API.new('user32','SetActiveWindow','%w(l)','L')
     
253. 
     
254. # 当前活动窗口
     
255. $MP_GetActiveWindow = Win32API.new('user32','GetActiveWindow','%w()','L')
     
256. 
     
257. # hWnd,wMsg,wParam,lParam
     
258. $MP_PostMessage = Win32API.new('user32','PostMessage','%w(l,l,l,p)','L')
     
259. 
     
260. # 获取当前窗口句柄
     
261. $MP_FindWindowEX = Win32API.new('user32','FindWindowEx','%w(l,l,p,p)','L')
     
262. 
     
263. # 获取屏幕坐标
     
264. $MP_ClientToScreen = Win32API.new("user32", "ClientToScreen", 'ip', 'i')
     
265. 
     
266. # 获取hInt
     
267. $MP_GetWindowLong= Win32API.new('user32','GetWindowLong','%w(l,l)','L')
     
268. 
     
269. # 获取类名
     
270. # hWnd,lpClassName,maxCount
     
271. $MP_GetClassName= Win32API.new('user32','GetClassName','%w(l,p,l)','L')
     
272. 
     
273. # 建立窗体
     
274. # ExStyle,ClassName,WindowName,
     
275. # style,x,y,width,height
     
276. # 0,0,hInstance,0
     
277. $MP_CreateWindowEX = Win32API.new('user32','CreateWindowEx','%w(l,p,p,l,l,l,l,l,l,l,l,p)','L')
     
278. 
     
279. #==============================================================================
     
280. # ■ MoviePlayer
     
281. #------------------------------------------------------------------------------
     
282. # 　处理视频播放画面的类。
     
283. #==============================================================================
     
284. 
     
285. class MoviePlayer
     
286. #--------------------------------------------------------------------------
     
287. # ● 初始化
     
288. #     project_name : 工程名称
     
289. #--------------------------------------------------------------------------
     
290. def initialize(project_name = PROJECT_NAME)
     
291.    @sys_timer=SystemTimer.new()
     
292.    buffer = "\0\0" * project_name.size
     
293.    @project_name = "\0" * project_name.size
     
294.    
     
295.    $MP_m2w.call(CP_UTF8, 0, project_name, -1, buffer, project_name.size)
     
296.    $MP_w2m.call(CP_ACP,0,buffer,-1,@project_name,project_name.size,0,0)
     
297.    
     
298.    @hWnd = $MP_FindWindowEX.call(0,0,nil,@project_name)
     
299.    @hInt = $MP_GetWindowLong.call(@hWnd,GWL_HINSTANCE)
     
300.    @class_name = " " * 256
     
301.    $MP_GetClassName.call(@hWnd,@class_name,256)
     
302. end
     
303. #--------------------------------------------------------------------------
     
304. # ● 是否已经全屏幕
     
305. #--------------------------------------------------------------------------
     
306. def is_full?
     
307.    # 播放起始坐标
     
308.    point = [0, 0].pack('ll')
     
309.    if $MP_ClientToScreen.call(@hWnd, point) == 0
     
310.      return false
     
311.    end
     
312.    x, y = point.unpack('ll')
     
313.    if x == 0 and y == 0
     
314.      return true
     
315.    else
     
316.      return false
     
317.    end
     
318. end
     
319. #--------------------------------------------------------------------------
     
320. # ● 切换全屏
     
321. #--------------------------------------------------------------------------
     
322. def switch_full
     
323.    $MP_keybd.call (0xA4, 0, 0, 0)
     
324.    $MP_keybd.call (13, 0, 0, 0)
     
325.    $MP_keybd.call (13, 0, 2, 0)
     
326.    $MP_keybd.call (0xA4, 0, 2, 0)
     
327.    Graphics.update
     
328.    sleep(SWITCH_DELAY)
     
329.    Graphics.update
     
330. end
     
331. #--------------------------------------------------------------------------
     
332. # ● 播放电影
     
333. #     movie_name : 视频文件名(*.avi)
     
334. #     movie_length : 电影时间,单位是秒
     
335. #     skip : 是否可以按键跳过
     
336. #     fullscr : 是否强制为全屏幕播放
     
337. #     x,y,width,height: 播放的位置以及宽度
     
338. #     loop : 循环播放
     
339. #--------------------------------------------------------------------------
     
340. def play(movie_name,movie_length,
     
341.           skip = true,fullscr = false,
     
342.           x = 0,y = 0,width = 640,height = 480,loop = true)
     
343.    # 数据不合法则退出
     
344.    return true if movie_name == nil or movie_length <= 0
     
345.    # 文件不存在
     
346.    #.........................................................................
     
347.    #movie_name = Dir.getwd()+"\\"+movie_name
     
348.    #.........................................................................
     
349.    return true unless FileTest.exist?(movie_name)
     
350. 
     
351.    # 窗口宽度
     
352.    width -= (x + width)- 640 if (x + width) > 640
     
353.    height -= (y + height)- 480 if (y + height) > 480
     
354.    
     
355.    if fullscr and !is_full?
     
356.      self.switch_full
     
357.    end
     
358.    
     
359.    fullscr = self.is_full?
     
360.    
     
361.    # 播放起始坐标
     
362.    point = [x, y].pack('ll')
     
363.    if $MP_ClientToScreen.call(@hWnd, point) == 0
     
364.      return true
     
365.    end
     
366.    x, y = point.unpack('ll')
     
367.    return true  if (x + width) < 0 or (y+height) < 0
     
368.    
     
369.    if fullscr
     
370.      wnd = $MP_CreateWindowEX.call(WS_EX_TOPMOST,@class_name,@project_name,
     
371.                                    WS_VISIBLE | WS_POPUP,x,y,width,height,
     
372.                                    0,0,@hInt,0)
     
373.    else
     
374.      wnd = $MP_CreateWindowEX.call(WS_EX_TOOLWINDOW,@class_name,@project_name,
     
375.                                    WS_VISIBLE | WS_POPUP,x,y,width,height,
     
376.                                    0,0,@hInt,0)
     
377.    end                              
     
378.    # 窗体建立失败
     
379.    return true if wnd == 0
     
380.    
     
381.    # 屏蔽原窗体
     
382.    $MP_EnableWindow.call(@hWnd,0)
     
383.    
     
384.    $MP_mciSendString.call("open \"" + movie_name + "\"" +
     
385.                           " alias FILE style 1073741824 parent " +                           wnd.to_s,0,0,0)
     
386.    if loop
     
387.      $MP_mciSendString.call("play FILE repeat window",0,0,0)
     
388.    else
     
389.      $MP_mciSendString.call("play FILE window",0,0,0)
     
390.    end
     
391.    
     
392.    @sys_timer.clear()
     
393.    step = 0.1
     
394.    begin
     
395.      loop do
     
396.        # 如果在窗口模式
     
397.        unless fullscr
     
398.          # 变成全屏
     
399.          if self.is_full?
     
400.            break
     
401.          else
     
402.            Graphics.update
     
403.          end
     
404.        end
     
405.        #sleep(step)
     
406.        if skip
     
407.          Input.update
     
408.          break if Input.trigger?(Input::A)
     
409.        end
     
410.        if @sys_timer.now_s >= movie_length
     
411.          break
     
412.        end
     
413.        if $MP_GetActiveWindow.call() != wnd
     
414.          $MP_SetActiveWindow.call(wnd)
     
415.        end
     
416.      end
     
417.    rescue Hangup
     
418.      retry
     
419.    end
     
420.    # 关闭当前窗体
     
421.    $MP_PostMessage.call(wnd,WM_CLOSE,0,0)
     
422.    $MP_mciSendString.call("close FILE",0,0,0)
     
423.    $MP_EnableWindow.call(@hWnd,1)
     
424.    $MP_SetActiveWindow.call(@hWnd)
     
425.    return true
     
426. end
     
427. end
     
428. 
     
429. $MP = MoviePlayer.new
     

复制代码