Quellcode

  Graphics.update if @counter%50 == 0

Quellcode

class Scene_Movie
 
 def initialize(movie,length,exit_to_game=true)
   @readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l'
   @movie_name = Dir.getwd()+"\\Movies\\"+movie+".avi"
   @counter = length*10
   @exit_to_game = exit_to_game
   main
 end
 
 def main
   game_name = "\0" * 256
   @readini.call('Game','Title','',game_name,255,".\\Game.ini")
   game_name.delete!("\0")
   Graphics.transition
   @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')
 
   @movie.call("play FILE",0,0,0)
   @counter=10*@counter
  loop do
   sleep(0.1)
   @message.call(@temp.to_i,11,0,0)
   Graphics.update if @counter%50==0
   @message.call(@temp.to_i,11,1,0)
   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)
   if @exit_to_game
     $scene = Scene_Map.new
   else
     $scene = nil
   end
   Graphics.freeze
 end
end