Independents
Vemos que no estas registrado, ingresa ahora y Registrate es 100% Gratis, acércate a esta gran comunidad.
Conectarse

Recuperar mi contraseña

Últimos temas
» holas soy zeroch
por zeroch Lun Feb 09, 2015 1:07 pm

» Trilogía Maze Runner (Descarga Directa)
por ZunnerX Jue Mar 21, 2013 10:23 pm

» Blood: The last Vampire [WZF] [MU]
por shinder Lun Sep 17, 2012 12:21 pm

» Wall-E Modding
por shinder Lun Sep 17, 2012 12:19 pm

» Solicitudes SorteosNet.tk
por ZunnerX Sáb Ago 11, 2012 1:54 am

IRG ChatBox

Game Film II

Ver el tema anterior Ver el tema siguiente Ir abajo

Game Film II

Mensaje por ZunnerX el Vie Ago 20, 2010 2:10 pm

Este Script permite insertar videos en sus proyectos, además da la opción de pausar, continuar y poder cambiar las resoluciones y coordenadas.



~Screenshoots~


=========================================


Redimencionado al marco del VX 544*416




Con Redimencinado de 1024*768




Redimencion 200*150




Redimencion 75*35




=============================================



~Scripts~

Código:
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#                            -  Game_Film II - reloaded ^^
#  por berka
#                                                                 
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#  Rgss 1&2                  v 1.1
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#                          -Utilización-
=begin
Fit to Screen [film]
                      #film = movie.avi
                      # it's a block !
                      x=0
                      y=0
                      w=544
                      h=416
=end
# Los videos de su juego debe estar en la carpeta Movies de tu proyecto.
#
# Para poner un video, llamar a Script con el nombre film = Nombre.avi
#
# #Básico:
#
# [film]                # obligatorias!
# film = Nombre.avi    #  nombre del archivo de vídeo (que puede ser. Mpg)
#
# #Opcional, el orden no importa
#
# x = 12                # posición horizontal del video
# y = 1                  # posición vertical del video
# w = 150                # redimencionar el largo de la pelicula
# h = 150                # redimencionar el ancho de la pelicula
#
# full = true            # modo fullscreen (pantalla completa)
# vol = 750              # El volumen de reproducción de vídeo (0 a 1000)
# bass = 999            # entre 0 y 1000 volumen de bajos:de muy bajo grado
# aig = 250              # entre 0 y 1000 volumen de agudos: de muy bajo grado.
#
# # Comandos:
# Botón B o ESC para cancelar el vídeo, C o Intro para pausar / reanudar la reproducción
#
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 
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 "
    @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='./Movies/'+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 #{@bass}",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)
      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)
    $scene=Scene_Map.new
  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
  def version;FileTest.exist?('./Data/scripts.rvdata') ? 'vx': 'xp';end
end
Dir.open("./Filmes") rescue Dir::mkdir("./Filmes",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

========================================


~Instrucciones~

Llamar a Script con el codigo film = Nombre.avi (puede ser .mpg siempre y cuando los codecs sean admitidos)

=================================================


~Descarga Demo~

Descargar

==============================================


~Creditos~

Berka




ZunnerX

Mensajes : 108
Fecha de inscripción : 11/07/2010
Localización : .:Dead Valley:.

http://independents.tk

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.