Filme no VX

Introdução
De hoje em dia uma das coisas mais usadas nos jogos são os vídeos que nos divertem, emocionam e dão um tchan a mais ao jogo. Já que também fazemos jogos, porque não dar um tchan a mais nos nossos jogos também?

Características
Este script possibilita o uso de vídeos no jogo.

Como usar
Cole o script acima do main, depois siga as instruções no começo do código. Não use o modo Fullscreen, pode haver bugs.

Screenshot
Não é necessário (eu acho).

Script

Código:

# ...By soundspawn...
# ...Traduzido por Painkiller...
#  Copie isto para uma nova seção do seu game. Para tocar, mova o vídeo para
#  dentro da pasta movie que deve ficar no seu diretório principal,
#  onde fica o game.exe e o arquivo do projeto. Depois crie um evento para chamar o
#  script
#  "Scene_Movie.new(nome do arquivo sem .avi)"



#..................................Configurações.................................
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" # No .avi você pode mudar para outros
  main                                                      #formatos de vídeo desde que
end                                                    #todos os vídeos que você fizer sejam do mesmo formato


#.................Fim das configurações, início do script (Não altere nada abaixo)
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)','')

FAQ
Funciona no XP?
R: Na verdade este script foi feito originalmente para o XP, mas funciona no VX também.

Quais os formatos de vídeos suportados?
R: Até hoje eu só testei com dois formatos: .avi e .mpeg ou .mpg, mas na verdade o único formato que funcionou 100% foi o .avi.

Créditos
Soundspawn pelo script
Painkiller pela tradução

Espero que gostem e caso não consigam usar o script, poste aqui suas dúvidas.