XP에서 AVI파일을 지원가능하게 하는 스크립트

사용법 : 이 스크립트를 사용자의 게임에 복사합니다. 그후 "movies"라는 폴더를 (yourgamedata, yourgamegraphics, yourgamemovies) 세곳중 마음에 드는 곳에 만듭니다. 그후 재생하고자 하는 동영상 파일을 movies에 넣어둡니다. 그후 게임에서 동영상 파일을 재생하고 할 경우 이벤트 스크립트로"$scene = Scene_Movie.new(filename,length)"를 써서 동영상을 재생할 수 있습니다. 여기서 filename은 동영상의 파일 네임을 말하고, length는 재생시간을 의미 합니다.

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 = "�" * 256 @readini.call('Game','Title','',game_name,255,".\Game.ini") game_name.delete!("�") 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') @detector = Win32API.new('user32','GetSystemMetrics','%w(l)','L') @width = @detector.call(0) if @width == 640 fullscreen Screen::update sleep(1) Screen::update sleep(1) Screen::update sleep(1) end @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 if Input.trigger?(Input::B) Input.update 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 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)','')