¡Bienvenido a Universo Maker!
¿Es esta la primera vez que visitas el foro? Si es así te recomendamos que te registres para tener completo acceso a todas las áreas y secciones del foro, así también podrás participar activamente en la comunidad. Si ya tienes una cuenta, conectate cuanto antes.
Iniciar Sesión Registrarme

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo Mensaje [Página 1 de 1.]

#1 Video antes del titulo [XP] el Jue Mar 14, 2013 1:47 am

sombi02

avatar
Bueno este script sinceramente no recuerdo donde lo encontré ni de quien sea, ya que no indica el nombre del autor, bueno.

Este script básicamente lo que hace es poner un video antes de la pantalla de titulo, pero tiene que ser .AVI y no reproduce sonido, pueden cortar el video e ir directamente al titulo oprimiendo la tecla C.

no lo eh probado muy bien pero hasta ahora no me ah generado problemas, el video deberá estar en la carpeta del proyecto ( donde esta la carpeta audio, data, graphics ) el nombre del video es a su gusto anexo el script, saludos


Código:
# Make some references to Windows libraries
GPPS = Win32API.new('kernel32', 'GetPrivateProfileString','PPPPLP', 'L')
MCISendString = Win32API.new('winmm', 'mciSendString', 'PPLL', 'L')
FindWindow = Win32API.new('user32', 'FindWindow', 'PP', 'I')
# Get the RGSS Player window
title = "\0" * 256
GPPS.call('Game', 'Title', '', title, 256, '.\\Game.ini')
title.delete!("\0")
window = FindWindow.call('RGSS Player', title)
# Play the video
MCISendString.call('open "intro.avi" type mpegvideo alias TEST', nil, 0, 0)
MCISendString.call("window TEST handle #{window}", nil, 0, 0)
MCISendString.call('play TEST notify', nil, 0, 0)
# Updating the Graphics causes flickering, but not updating regularly will cause
# a "Script is hanging" error (a built-in safety measure), so we use actual time
# to have Graphics update once every 9 seconds.
Graphics.freeze
start_time = Time.now
loop {
  Input.update
  if Time.now - start_time >= 9
    Graphics.update
    start_time = Time.now
  end
  break if Input.trigger?(Input::C)
}
# Close the video stream
MCISendString.call('close TEST', nil, 0, 0)

#2 Re: Video antes del titulo [XP] el Vie Abr 12, 2013 9:13 pm

DarkFall

avatar
gacias por el scrip estaba buscando algo asi para hacer un intro para mi projecto, lo voy a probar aver si me corre

#3 Re: Video antes del titulo [XP] el Mar Abr 30, 2013 4:22 pm

~SkyDarks

avatar
Gracias man, andaba buscando específicamente un script para hacer esto, pero ninguno de ellos me funciono.
Ya lo he probado y todo, y me anda excelente.
Saludos, buen aporte.

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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