发一个在RM游戏中插入视频的VX脚本

xingbanruge

这是在偶汉化一个外国游戏时发现的，原先奇怪为什么游戏体积那么大，后来发现光是film视频就占了一半的体积。貌似在国内的游戏中没发现有人用过视频的，这里把脚本贡献出来啦，呵呵。

1. #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
   
2. #                            -  Game_Film II - reloaded ^^
   
3. #  par berka
   
4. #                          www.rpgmakervx-fr.com                                          
   
5. #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
   
6. #  Rgss 12                  v 1.0
   
7. #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
   
8. #                          -Utilisation-
   
9. # écrivez dans un event, commande insérer un script:
   
10. #
    
11. # #minimum requis:
    
12. # [film]                # obligatoire !
    
13. # film = monfilm.avi    # ou mpg... nom du fichier à lire
    
14. #
    
15. # #configuration optionnelle, l'ordre n'est pas important
    
16. # mettre les 4 coordonnées sinon aucune !
    
17. # x = 12                # position horizontale
    
18. # y = 1                  # position verticale
    
19. # w = 150                # redimensionnement du film: largeur
    
20. # h = 150                # redimensionnement du film: hauteur
    
21. #
    
22. # full = true            # active (ou pas) le plein écran dans le mode fenetré
    
23. # vol = 750              # entre 0 et 1000 volume sonore du film
    
24. # bass = 999            # entre 0 et 1000 volume des basses: tres faible nuance
    
25. # aig = 250              # entre 0 et 1000 volume des aigus: tres faible nuance
    
26. # #commandes:
    
27. # bouton B pour quitter, C pour interrompre/reprendre la lecture
    
28. #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    
29. # pourquoi un nouveau script de video ?
    
30. # simplement pour ne plus avoir à répondre à toutes ces questions sur la video !
    
31. # ce script est le plus simple possible: j'ai testé toutes les erreurs possibles
    
32. # l'appel est personalisable
    
33. # le format de la video est auto-détecté
    
34. # ajout du plein écran
    
35. # de la gestion du volume
    
36. # Un dossier Films est automatiquement créé dans votre projet.
    
37. # vous y déposez les vidéos à lire !
    
38. # Il vaut mieux prendre de petites videos: parce que les démos de 200 Mo...
    
39. #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    
40. 
    
41. class Game_Film
    
42.   def initialize(hash)
    
43.     hash.has_key?(:film) ? film=hash[:film] : return
    
44.     hash.has_key?(:x) ? @x=hash[:x]+" " : @x="0"
    
45.     hash.has_key?(:y) ? @y=hash[:y]+" " : @y="0"
    
46.     hash.has_key?(:w) ? @w=hash[:w]+" " : @w=""
    
47.     hash.has_key?(:h) ? @h=hash[:h]+" " : @h=""
    
48.     hash.has_key?(:vol) ? @vol=hash[:vol]+" " : @vol="1000"
    
49.     hash.has_key?(:bass) ? @bass=hash[:bass]+" " : @bass="1000"
    
50.     hash.has_key?(:aig) ? @aig=hash[:aig]+" " : @aig="1000"
    
51.     hash.has_key?(:pos) ? @pos="at pos #{hash[:pos].to_i*1000} " : @pos="at pos 0 "
    
52.     @full=hash[:full] if hash.has_key?(:full)
    
53.     @full&dim_ecran !=[640,480] ? @plee="fullscreen " : @plee=""
    
54.     @type=" "
    
55.     @type=" type mpegvideo" if File.extname(film)==(".mpg"||".mpeg")
    
56.     @type=" type avivideo" if File.extname(film)==".avi"
    
57.     @nom='./Films/'+film
    
58.     (p "fichier #{@nom} non trouvé";return) if !FileTest.exist?(@nom)
    
59.     @film=Win32API.new('winmm','mciSendString','ppll','v')
    
60.     lecture
    
61.   end
    
62.   def handle
    
63.     jeu="\0"*256
    
64.     ini=Win32API.new('kernel32','GetPrivateProfileStringA','pppplp', 'l')
    
65.     ini.call('Game','Title','',jeu,255,".\\Game.ini")
    
66.     return Win32API.new('user32','FindWindowEx','llpp','l').call(0,0,nil,jeu.delete!("\0"))
    
67.   end
    
68.   def lecture
    
69.     v,t,status,pause=version,Time.now," "*255,false
    
70.     @film.call("open #{@nom} alias FILE#{@type} style child parent "+handle.to_s,0,0,0)
    
71.     @film.call("put FILE window at #{@x}#{@y}#{@w}#{@h}",status,255,0)
    
72.     @film.call("setaudio File volume to #{@vol}",status,255,0)
    
73.     @film.call("setaudio File bass to #{@bass}",status,255,0)
    
74.     @film.call("setaudio File trebble to #{@bass}",status,255,0)
    
75.     @film.call("play FILE #{@plee} notify",status,255,handle)
    
76.     loop{sleep(0.1)
    
77.       Input.update
    
78.       @film.call("status FILE mode notify",status,255,0)
    
79.       break if status.unpack("aaaa")=="stop".split(//)||Input.trigger?(Input::B)
    
80.       if Input.trigger?(Input::C)
    
81.         if !pause;@film.call("pause FILE notify",status,255,handle);pause=true
    
82.         else;@film.call("play FILE #{@plee} notify",status,255,handle);pause=false
    
83.         end      
    
84.       end
    
85.       (t=maj(t))if v=='xp'}
    
86.     @film.call("close FILE notify",0,0,handle)
    
87.     $scene=Scene_Map.new
    
88.   end
    
89.   def dim_ecran
    
90.     lw=Win32API.new('user32','GetSystemMetrics','i','i')
    
91.     return lw.call(0),lw.call(1)
    
92.   end
    
93.   def maj(t)
    
94.     (Graphics.update;return Time.now)if t.sec<=Time.now.sec-9||t.min !=Time.now.min
    
95.     return t
    
96.   end
    
97.   def version;FileTest.exist?('./Data/scripts.rvdata') ? 'vx': 'xp';end
    
98. end
    
99. Dir.open("./Films") rescue Dir::mkdir("./Films",0777)
    
100. class Game_Interpreter;def eval(script);cmd_eval(script);end;end#rmvx
     
101. class Interpreter;def eval(script);cmd_eval(script);end;end#rmxp
     
102. def cmd_eval(script)
     
103.   if script.include?("[film]")
     
104.     hash={}
     
105.     script.gsub!("[film]"){}
     
106.     list=script.split("\n")
     
107.     list.each{|e|e.gsub!(" "){};f=e.split("=");hash[f[0].to_sym]=f[1] if !f[1].nil?}
     
108.     Game_Film.new(hash)
     
109.   else;return Kernel.eval(script)
     
110.   end
     
111. end

复制代码

sqj1982

有范例吗？

淘金鸭

占领