[Dispondo] Tocar Video

#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#                    -  Game_Film II - reloaded ^^
#  por berka
#                     www.rpgmakervx-fr.com
#
#  Traduzido por Ails
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#  Rgss 1&2              v 1.2
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#                    -Utilisation-
# em um evento, use Call Script (Chamar Script) e escreva:
#
# #mínimo necessário:
# [film]               # essencial !
# film = meuvideo.avi     # ou mpg... nome do vídeo a ser tocado
#
# # configurações opcionais, a ordem não importa
# Coloque as 4 coordenadas OU NENHUMA!
# x = 12               # posição horizontal
# y = 1                # posição vertical
# w = 150              # tamanho do video: largura
# h = 150              # tamanho do video: altura
#
# full = true           # tela cheia ou não
# vol = 750             # entre 0 & 1000 volume do audio
# bass = 999            # entre 0 & 1000 volume do baixo
# aig = 250             # entre 0 & 1000 volume do trebble
# ret = Scene_Map        # voltar para a scene_XXX quando acabar o vídeo
# #commandos:           #   por padrão ele retorna para o mapa
# tecla B para sair, C para pausar
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
=begin

 Exemplo:

[film]
film = Video.avi
vol = 750
full = true
x = 0
y = 0
w = 640
h = 480

=end

class Game_Film
  def initialize(hash)
   hash.has_key?(:film) ? film=hash[:film] : return
   hash.has_key?(:x) ? @x=hash[:x]+" " : @x="0"
   hash.has_key?(:y) ? @y=hash[:y]+" " : @y="0"
   hash.has_key?(:w) ? @w=hash[:w]+" " : @w=""
   hash.has_key?(:h) ? @h=hash[:h]+" " : @h=""
   hash.has_key?(:vol) ? @vol=hash[:vol]+" " : @vol="1000"
   hash.has_key?(:bass) ? @bass=hash[:bass]+" " : @bass="1000"
   hash.has_key?(:aig) ? @aig=hash[:aig]+" " : @aig="1000"
   hash.has_key?(:pos) ? @pos="at pos #{hash[:pos].to_i*1000} " : @pos="at pos 0 "
   @ret='$scene='<<hash[:ret]<<'.new' if hash.has_key?(:ret)
   @full=hash[:full] if hash.has_key?(:full)
   @full&&dim_ecran !=[640,480] ? @plee="fullscreen " : @plee=""
   @type=" "
   @type=" type mpegvideo" if File.extname(film)==(".mpg"||".mpeg")
   @type=" type avivideo" if File.extname(film)==".avi"
   @nom='./Films/'+film
   (p "fichier #{@nom} non trouvÃ";return) if !FileTest.exist?(@nom)
   @film=Win32API.new('winmm','mciSendString','ppll','v')
   lecture
  end
  def handle
   jeu="\0"*256
   ini=Win32API.new('kernel32','GetPrivateProfileStringA','pppplp', 'l')
   ini.call('Game','Title','',jeu,255,".\\Game.ini")
   return Win32API.new('user32','FindWindowEx','llpp','l').call(0,0,nil,jeu.delete!("\0"))
  end
  def lecture
   v,t,status,pause=version,Time.now," "*255,false
   @film.call("open #{@nom} alias FILE#{@type} style child parent "+handle.to_s,0,0,0)
   @film.call("put FILE window at #{@x}#{@y}#{@w}#{@h}",status,255,0)
   @film.call("setaudio File volume to #{@vol}",status,255,0)
   @film.call("setaudio File bass to #{@bass}",status,255,0)
   @film.call("setaudio File trebble to #{@aig}",status,255,0)
   @film.call("play FILE #{@plee} notify",status,255,handle)
   loop{sleep(0.1)
     Input.update
     @film.call("status FILE mode notify",status,255,0)
     break if status.unpack("aaaa")=="stop".split(//)||Input.trigger?(Input::B) #para proibir de cancelar o video, coloque um # antes de Input.trigger?(Input::B)
     if Input.trigger?(Input::C)
      if !pause;@film.call("pause FILE notify",status,255,handle);pause=true
      else;@film.call("play FILE #{@plee} notify",status,255,handle);pause=false
      end    
     end
   (t=maj(t))if v=='xp'}
   @film.call("close FILE notify",0,0,handle)
   @ret.nil? ? $scene=Scene_Map.new : eval(@ret)
  end
 
  def dim_ecran
   lw=Win32API.new('user32','GetSystemMetrics','i','i')
   return lw.call(0),lw.call(1)
  end
 
  def maj(t)
   (Graphics.update;return Time.now)if t.sec<=Time.now.sec-9||t.min !=Time.now.min
   return t
  end
end
Dir.open("./Films") rescue Dir::mkdir("./Films",0777)
class Game_Interpreter;def eval(script);cmd_eval(script);end;end#rmvx
class Interpreter;def eval(script);cmd_eval(script);end;end#rmxp
def cmd_eval(script)
  if script.include?("[film]")
   hash={}
   script.gsub!("[film]"){}
   list=script.split("\n")
   list.each{|e|e.gsub!(" "){};f=e.split("=");hash[f[0].to_sym]=f[1] if !f[1].nil?}
   Game_Film.new(hash)
  else;return Kernel.eval(script)
  end
end
def version;FileTest.exist?('./Data/scripts.rvdata') ? 'vx': 'xp';end
def call_film(script)
  version=='vx' ? i=Game_Interpreter : i=Interpreter
  i.new.cmd_eval(script)
end