1. #--------------------------------------------------------------------------------------------
   
2. class Scene_Movie
   
3. #--------------------------------------------------------------------------------------------
   
4. # 制作者/ SoundSpawn
   
5. #--------------------------------------------------------------------------------------------
   
6. # 修改 / Popper
   
7. #--------------------------------------------------------------------------------------------
   
8. # 加译 / XTLCME
   
9. #--------------------------------------------------------------------------------------------
   
10. # 说明
    
11. # 1) 需要播放的影片必须放在您的工程目录下的"Movie"文件夹里
    
12. # 2) 如果你需要在事件编辑器中使用这个脚本 请使用 $scene = Scene_Movie.new("INTRO")
    
13. # 3) 希望您使用愉快!!!
    
14. #--------------------------------------------------------------------------------------------
    
15. # 初始化
    
16. def initialize(movie)
    
17. @readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l'
    
18. @movie_name = Dir.getwd()+"\\Movies\\"+movie+".avi"
    
19. main
    
20. end
    
21. #--------------------------------------------------------------------------------------------
    
22. # 主处理
    
23. def main
    
24. game_name = "\0" * 256
    
25. @readini.call('Game','Title','',game_name,255,".\\Game.ini")
    
26. game_name.delete!("\0")
    
27. @wnd = Win32API.new('user32','FindWindowEx','%w(l,l,p,p)','L')
    
28. @temp = @wnd.call(0,0,nil,game_name).to_s
    
29. movie = Win32API.new('winmm','mciSendString','%w(p,p,l,l)','V')
    
30. movie.call("open \""+@movie_name+"\" alias FILE style 1073741824 parent " + @temp.to_s,0,0,0)
    
31. @message = Win32API.new('user32','SendMessage','%w(l,l,l,l)','V')
    
32. @detector = Win32API.new('user32','GetSystemMetrics','%w(l)','L')
    
33. @width = @detector.call(0)
    
34. #--------------------------------------------------------------------------------------------
    
35. # 全屏化处理
    
36. if @width == 640
    
37. fullscreen
    
38. Graphics.update
    
39. sleep(0.1)
    
40. Graphics.update
    
41. sleep(0.1)
    
42. Graphics.update
    
43. sleep(0.1)
    
44. fullscreen
    
45. end
    
46. #--------------------------------------------------------------------------------------------
    
47. status = " " * 255
    
48. movie.call("play FILE",0,0,0)
    
49. #--------------------------------------------------------------------------------------------
    
50. # 循环
    
51. loop do
    
52. sleep(0.1)
    
53. @message.call(@temp.to_i,11,0,0)
    
54. Graphics.update
    
55. @message.call(@temp.to_i,11,1,0)
    
56. Input.update
    
57. movie.call("status FILE mode",status,255,0)
    
58. true_status = status.unpack("aaaa")
    
59. #--------------------------------------------------------------------------------------------
    
60. # 如果播放标记不对 或按下B键 就结束播放
    
61. if true_status.to_s != "play"
    
62. break
    
63. end
    
64. if Input.trigger?(Input::B)
    
65. $scene = Scene_Map.new
    
66. break
    
67. end
    
68. #--------------------------------------------------------------------------------------------
    
69. # 跳转回地图
    
70. end
    
71. $scene = Scene_Map.new
    
72. end
    
73. #--------------------------------------------------------------------------------------------
    
74. end

复制代码

大致的使用方法是在你的工程里新建一个文件夹(与Audio\Graphics同一级)
命名为"Movies" 然后把想要放的片子(*.avi格式)放进去
要放的时候在事件的第三页选脚本 插入
$scene = Scene_Movie.new("INTRO")
其中INTRO要替换成你想播放的文件名

(在DIYRPG轉回來的，試試用吧，不過聽說用不了)

传送门

下载范例把= ={:nm_7:}
下完你就会懂了……

并注：签名不纯洁，请尽快更换= =