[SCRIPT] - Movie in RMXP

Olá, eu peguei em um blog chamado "Project pinguin" um script que permite rodar filmes no RPG Maker XP.
Abaixo o script :

Código:


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

1. Basta copiar o script e criar novo script em seu projeto de RMXP, nomeá-los o que quiser (Scene_Movie meu).

2. Criar um diretório em seu projeto RMXP e nomeá-la "Filmes".

3. Coloque seus arquivos de filme lá.

4. Use Command evento. Procure o script de comando na página terceiros. Adicione 'Scene_Movie.new ("your_movie_files_name_without_extension")' o script.

Créditos :

A mim por procurar o script e postar aqui.
Criador desconhecido (no site que eu peguei o script não informava quem era o criador).
Project Pinguin por postarem o script junto com um tutorial de como utilizar.