Identificarse
Registrar
Ayuda
...
1° paso.
Creamos el script Scene_Movie y pegamos esto dentro.
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 = "" * 256
@readini.call('Game','Title','',game_name,255,".\Game.ini")
game_name.delete!("")
@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)','')
2° (No se si es necesario, pero como lo uso y funciona, lo recomiendo.)Utilizar el Main mejorado, o sea, reemplazar el main por esto (Si quieren hagan backup del main)
#=============================================================================#
# ** Main Mejorado(Silet's Enhanced Main)
#------------------------------------------------------------------------------#
# Main mejorado para evitar problemas de fuentes causados por algunos scripts.
#------------------------------------------------------------------------------#
# Las variables globales usadas para las fuentes estan puestas de esa manera
# para que se pueda definir una fuente diferente para cada script...
# o para que un scripter que use variables globales tenga diferentes tipos de
# fuentes...
#==============================================================================#
begin#Comienzo del Silent's Main
#=================================================#
#Opcion de Pantalla Completa
#===============================================#
#Si esta en true, el juego iniciara en Pantalla
#Completa solo si se ejecuta desde el Game.exe
PANTALLACOMPLETA = true# true/false
#Si esta en false...no habra Pantalla Completa.
#===============================================#
#Definiciones de Fuente
#===============================================#
# Donde pone "Tahoma", entre comillas va el
# nombre de tu fuente(puedes dejar esta)
Font.default_name = "Tahoma"
Font.default_size = 18
# Recuerda no tener errores al escribir el nombre
#===============================================#
#Variables globales para fuentes
$defaultfonttype = "Tahoma" #Nombre de fuente
$defaultfontface = "Tahoma" #Nombre de fuente
$defaultfontname = "Tahoma" #Nombre de fuente
$defaultfontsize = 18# Tamaño de la fuente, no es recomendable mas de 22.
$fontface = "Tahoma" #Nombre de fuente
$fontname = "Tahoma" #Nombre de fuente
$fonttype = "Tahoma" #Nombre de fuente
$fontsize = 18# Tamaño de la fuente, no es recomendable mas de 22.
#==============================================================================#
# - Pantalla Completa -
#==============================================================================#
if PANTALLACOMPLETA == true
if $DEBUG == false
$showm = Win32API.new 'user32', 'keybd_event', %w(l l l l), ''
$showm.call(18,0,0,0)
$showm.call(13,0,0,0)
$showm.call(13,0,2,0)
$showm.call(18,0,2,0)
end
end
#==============================================================================#
# - Main "Standard" -
#==============================================================================#
Graphics.freeze
Scene_Movie.new("Intro")
$scene = Scene_Title.new
while $scene != nil
$scene.main
end
# Fade out
Graphics.transition(20)
rescue Errno::ENOENT
filename = $!.message.sub('No se encontó el archivo o directorio - ', '')
print("Error RGSS: #{filename}")
#==============================================================================#
# - Main's Final -
#==============================================================================#
end
3° pero no menos importante
Crear la carpeta movies con su video, PERO CUIDADO
Supongamos que hemos creado un juego que se llama "el amanecer de los amateur" y lo tenemos en el disco local C
Debemos crear la carpeta aqui
C:ElamanecerdelosamateurMoviesIntro.avi
Que es lo que no notamos antes?
Que la carpeta movies debe estar donde se encuentra el game.exe, game.ini, etc.
Espero que les sea de utilidad
Creditos al gran creador del mainmejorado y al del scene_video
MultiCita
