Descripcion: este script hace que cuando inicies el RM VX antes del titulo salga un video.
A pedido de IAN-RPGMASTER....
Agradesco a Hunter por adaptar el script a RM VX ACE...

El script se coloca con el nombre de "Scene_Movie" encima del main.

Código:

#-------------------------------------------------------------------------------
# Adaptado por:HUNTER / para:www.hunter-maker.net /
#-------------------------------------------------------------------------------
        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')
          video_made = "VX ACE" * dispose
       
          @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:
Para ejecutarlo ve al main y pega esto (EN EL MAIN DIJE NADA DE INSERTAR e.e)
busquen uno que dice en el main:

$scene = Scene_Title.new

y lo sustituyen por este:

Para que al comenzar el juego aparesca un video.

Código:

$scene = Scene_Movie.new("nombredevideo")

sacarle la extension AVI y pegarle solo el nombre.

Para que aparesca el video antes del titulo.

Código:

$scene = Scene_Title.new("nombredevideo")

Lo dice claramente seguramente el video no es .AVI


Mira haver si el video es .AVI yo
ayer lo probe y funciona de perlas.

no entendi las instrucciones muy bien, podria alguien explicarmelas mejor?? XDDD

RPGNARUTO escribió:no entendi las instrucciones muy bien, podria alguien explicarmelas mejor?? XDDD

Hola RPGNARUTO. Estos son las instrucciones:

1: copiar el VIDEO.AVI a la carpeta Movie (en la carpeta raiz del juego o sino creala, lo que hice yo )
2: Para ejecutarlo pone esto:

*Rojo, no editable, verde si editable.

"Scene_Movie.new("nombredelvideo")" en NOMBREDELVIDEO no lo pongas con la extencion .avi, osea, NOMBREDELVIDEO sin el .AVI ok...

y luego copia este script ensima del main

Código:

#-------------------------------------------------------------------------------
# Adaptado por:HUNTER / para:www.hunter-maker.net /
#-------------------------------------------------------------------------------
        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')
          video_made = "VX ACE" * dispose
       
          @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)','')

ponganelo con el nombre "Scene_Movie"...

Saludos espero que entiendas y que te alla servido la mini-guia...

Ok, solo alguito que no entendi, como que para ejecutarlo? es que no se NADA COMPLETAMENTE NADA de scripts xDDD, donde pongo ese código

RPGNARUTO escribió:Ok, solo alguito que no entendi, como que para ejecutarlo? es que no se NADA COMPLETAMENTE NADA de scripts xDDD, donde pongo ese código

Instrucciones:
Tienes que ir a "editar scripts" o algo asi que esta en herramientas y luego buscar el archivo MAIN le damos click y nos saldra esto (SEGUN EL RPG MAKER VX PORQUE EL VX ACE NO LO TENGO PERO ES ALGO ASI)

# ■ Main
#------------------------------------------------------------------------------
# 　各クラスの定義が終わった後、ここから実際の処理が始まります。
#==============================================================================

unless Font.exist?("UmePlus Gothic")
print "UmePlus Gothic フォントが見つかりません。"
exit
end

begin
Graphics.freeze
$scene = Scene_Title.new
$scene.main while $scene != nil
Graphics.transition(30)
rescue Errno::ENOENT
filename = $!.message.sub("No such file or directory - ", "")
print("ファイル #{filename} が見つかりません。")
end


Eso que marque en rojo es lo que tenemos que sustituir por

Código:

$scene = Scene_Movie.new("nombredelvideo")

o si quieres que sea antes de la pantalla del titulo

Código:

$scene = Scene_Title.new("nombredelvideo")

Saludos si tienes algun error solo dime

[code]

En donde dice Main me sale las dos primeras líneas:

#==============================================================================
# ** Main
#------------------------------------------------------------------------------
# This processing is executed after module and class definition is finished.
#==============================================================================

Y lo demas no me sale, lo copie, puse el script abajo, reemplaze por el nombre del video, pero me sale el mismo error que ian rpgmaster