Quellcode

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,"ExPokemon").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
       $game_switches[90] = true
       break
     end
   end
   @movie.call("close FILE",0,0,0)
   $scene = Scene_Map.new
   Graphics.freeze
 end
end