Raven BellamyLun Ene 21, 2013 1:30 am
Usuario Nv9
Bueno aca un script de video antes de comenzar el juego
(%100 funcional) lo probe en el rpg mkaer xp
El script se coloca con el nombre de "Scene_Movie" encima del main.
Agradesco a anonimo!
Screenshot:
Pues como ven es un video y no hace falta!
Instrucciones:
Pone los videos en la capeta "movies" en la carpeta raiz del juego o sino creala(lo que hice yo )
Para ejecutarlo pone esto:
"Scene_Movie.new("nombrevideo") " sacala la extension(.avi)
Podes poner un video antes de la pantalla de título. Sólo ve "main" y colocar el código de antes de "$scene = Scene_Title.new" y ya está! (usando el comando "llamar script")
Yo lo probe en el xp y no me dio problemas pruebenlon y avisen(solo acepta .avi)
PD: pruebenlon en el vx
(%100 funcional) lo probe en el rpg mkaer xp
El script se coloca con el nombre de "Scene_Movie" encima del main.
Agradesco a anonimo!
- Código:
CODE
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 = "\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)','')
Screenshot:
Pues como ven es un video y no hace falta!
Instrucciones:
Pone los videos en la capeta "movies" en la carpeta raiz del juego o sino creala(lo que hice yo )
Para ejecutarlo pone esto:
"Scene_Movie.new("nombrevideo") " sacala la extension(.avi)
Podes poner un video antes de la pantalla de título. Sólo ve "main" y colocar el código de antes de "$scene = Scene_Title.new" y ya está! (usando el comando "llamar script")
Yo lo probe en el xp y no me dio problemas pruebenlon y avisen(solo acepta .avi)
PD: pruebenlon en el vx