[RPG-MAKER.FR] Oniromancie: tout l'univers de RPG Maker en français - Scripts

Auteur : Soundspawn
Logiciel : RPG Maker XP
Nombre de scripts : 1
Source : http://rmrk.net/index.php?topic=6223.0

Ce script présente un certain nombre de bugs qui n'ont pas été corrigés et n'est là que pour ceux qui souhaiteraient s'entraîner. Si vous souhaitez un script fonctionnel pour votre jeu, vous pouvez utiliser le script Video Player de Zeus81.

Installation
A placer au-dessus de Main.
Les vidéos doivent être placées dans un nouveau dossier à la racine du projet, appelé Movies.

class Scene_Movie 
 
 def initialize(movie) 
   @readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l' 
   @movie_name = Dir.getwd()+"\\Movies\\"+movie+".avi" 
   main 
 end 
  
 def main 
 
   game_name = "\0" * 256 
   @readini.call('Game','Title','',game_name,255,".\\Game.ini") 
   game_name.delete!("\0") 
   @wnd = Win32API.new('user32','FindWindowEx','%w(l,l,p,p)','L') 
   @temp = @wnd.call(0,0,nil,game_name).to_s 
   movie = Win32API.new('winmm','mciSendString','%w(p,p,l,l)','V') 
   movie.call("open \""+@movie_name+"\" alias FILE style 1073741824 parent " + @temp.to_s,0,0,0) 
   @message = Win32API.new('user32','SendMessage','%w(l,l,l,l)','V') 
    
   @detector = Win32API.new('user32','GetSystemMetrics','%w(l)','L') 
   @width = @detector.call(0) 
   if @width == 640 
     fullscreen 
     Graphics.update 
     sleep(1) 
     Graphics.update 
     sleep(1) 
     Graphics.update 
     sleep(1) 
   end 
    
   status = " " * 255 
   movie.call("play FILE",0,0,0) 
   loop do 
    sleep(0.1) 
    @message.call(@temp.to_i,11,0,0) 
    Graphics.update 
    @message.call(@temp.to_i,11,1,0) 
    Input.update 
    movie.call("status FILE mode",status,255,0) 
    true_status = status.unpack("aaaa") 
    if true_status.to_s != "play" 
      break 
    end 
    if Input.trigger?(Input::B) 
      Input.update 
      break 
    end 
   end 
   movie.call("close FILE",0,0,0) 
   bail 
 end 
  
 def bail 
   if @width == 640 
     fullscreen 
   end 
  end 
end 
 
def fullscreen() 
  
 $full.call(18,0,0,0) 
 $full.call(13,0,0,0) 
 $full.call(18,0,2,0) 
 $full.call(13,0,2,0) 
end 
$full = Win32API.new('user32','keybd_event','%w(l,l,l,l)','')

Utilisation
Vous devez mettre les vidéos au format ".avi" dans le dossier Pictures.

Pour appeler la vidéo, créez un événement en mettant "Appeler Script" et en écrivant le code :

1	Scene_Movie.new("x")

Vous mettrez le nom de votre vidéo (sans le .avi) à la place du x.

La démo (Mirroir)