[RPG-MAKER.FR] Oniromancie: tout l'univers de RPG Maker en français - Les forums - [RMXP] Script vidéo en fullscreen qui marche ???

class Scene_Movie def initialize(movie) @readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l' @movie_name = Dir.getwd()+"\\Graphics\\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)','')

class Scene_Movie def initialize(movie,length) @movie_name = Dir.getwd()+"\Movies\"+movie+".avi" @counter = length end def main Graphics.transition @wnd = Win32API.new('user32','FindWindowEx','%w(l,l,p,p)','L') @temp = @wnd.call(0,0,nil,"LE_NOM_DE_VOTRE_PROJET").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) @movie.call("play FILE",0,0,0) loop do Graphics.update sleep(1) Input.update if Input.trigger?(Input::B) break end @counter = @counter - 1 if @counter == 0 break end end @movie.call("close FILE",0,0,0) $scene = Scene_Map.new Graphics.freeze end end

module Video
  
  findWindow          = Win32API.new('user32', 'FindWindow', 'pp', 'i')
  GetMessage          = Win32API.new('user32', 'GetMessage', 'piii', 'i')
  TranslateMessage    = Win32API.new('user32', 'TranslateMessage', 'p', 'i')
  DispatchMessage     = Win32API.new('user32', 'DispatchMessage', 'p', 'i')
  SendInput           = Win32API.new('user32', 'SendInput', 'ipi', 'i')
  MultiByteToWideChar = Win32API.new('kernel32', 'MultiByteToWideChar', 'iipipi', 'i')
  WideCharToMultiByte = Win32API.new('kernel32', 'WideCharToMultiByte', 'iipipipp', 'i')
  GetShortPathName    = Win32API.new('kernel32', 'GetShortPathName', 'ppi', 'i')
  MciSendString       = Win32API.new('winmm', 'mciSendString', 'ppii', 'i')
  
  HWnd = findWindow.call('RGSS Player', 0)
  
  def self.play(path, cancelable = true, stretch = true)
    buffer, do_exit = ' '*28, false
    MultiByteToWideChar.call(65001, 0, path, -1, utf16="\0"*520, 260) # utf8 => utf16
    WideCharToMultiByte.call(0, 0, utf16, -1, ansi="\0"*260, 260, 0, 0) # utf16 => CP_ACP
    size = GetShortPathName.call(ansi, shortpath="\0"*260, 260)
    shortpath = shortpath[0, size]
    MciSendString.call("open \"#{shortpath}\" alias VIDEO type AVIVideo style Child parent #{HWnd}", 0, 0, 0)
    MciSendString.call('where VIDEO source', buffer, 28, 0)
    src_rect = buffer.split(' ').map! {|s| s.to_i}
    return if src_rect.size < 4
    if stretch
      ratio = src_rect[2] / src_rect[3].to_f
      src_rect[2], src_rect[3] = 640, (640 / ratio).to_i
      src_rect[3], src_rect[2] = 480, (480 * ratio).to_i if src_rect[3] > 480
    end
    src_rect[0], src_rect[1] = (640-src_rect[2])/2, (480-src_rect[3])/2
    background = Sprite.new
    background.bitmap = Bitmap.new(1, 1)
    background.bitmap.set_pixel(0, 0, Color.new(0,0,0))
    background.zoom_x, background.zoom_y, background.z = 640, 480, 9999
    Graphics.update
    MciSendString.call('put VIDEO window at 0 0 1 1', 0, 0, 0) # manip pour eviter un bug en plein ecran
    MciSendString.call('play VIDEO', 0, 0, 0)
    MciSendString.call("put VIDEO window at #{src_rect.join(' ')}", 0, 0, 0)
    begin
      loop do
        GetMessage.call(buffer, HWnd, 0, 0)
        TranslateMessage.call(buffer)
        DispatchMessage.call(buffer)
        case buffer.unpack('@4L').first
        when 0x0012 #WM_QUIT
          do_exit = true
          break
        when 0x0104 #WM_SYSKEYDOWN
          if buffer.unpack('@8L').first == 0x0D #VK_RETURN
            SendInput.call(1, [1,0x0D,0,0,0,0].pack('LSSLLLx8'), 28)
            Graphics.update
            Input.update
          end
        else
          Input.update
          break if cancelable and Input.trigger?(Input::C)
          MciSendString.call('status VIDEO mode', buffer, 28, 0)
          break if buffer !~ /^playing/
        end
      end
    rescue Hangup
      retry
    end
    MciSendString.call('stop VIDEO', 0, 0, 0)
    MciSendString.call('close VIDEO', 0, 0, 0)
    background.bitmap.dispose
    background.dispose
    exit if do_exit
  end
  
end

Video.play(path, cancelable, stretch)
path = chemin du fichier avi
cancelable = true si tu veux qu'on puisse stopper la vidéo en appuyant sur entrée sinon false
stretch = true si tu veux que la vidéo soit étirée quand elle n'est pas en 640x480, false si tu veux qu'elle soit juste centrée.
ex : Video.play("Video/prout.avi", true, true)

Et mets pas tes vidéo dans le dossier Graphics.