Videos en rpg maker xp

 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)','')