Mundo Maker
¡Bienvenid@ a Mundo Maker!

¿Quieres aprender todo sobre el RPG Maker?



Regístrate y forma parte de Mundo Maker.

[RMXP] Script Videos .AVI V5

Ver el tema anterior Ver el tema siguiente Ir abajo

[RMXP] Script Videos .AVI V5

Mensaje por Maximiko el 2011-05-18, 12:16

Descripción
Hace poco os presente la script de poner vídeos en flash, hoy os traigo para usar .avi.

Pros y contras
Pros: te ahorras mucho tiempo, es más facil de utilizarlo (para mí).
Contras: Los vídeos pesan más.

Demo
Descargar Demo (Descarga Directa)

Script
Código:
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)','')

¿Como usarlo?
Spoiler:
1.-El script se coloca con el nombre de "Scene_Movie" ENCIMA de Main.
2.-Poner los videos en una carpeta llamada "Movies" (creala si no está) en la carpeta raiz de tu juego.
3.-Para ejecutarlo sólo debéis poner esto: Scene_Movie.new("nombrevideo") sin la extensión.
4.-Además podéis poner un video antes de la pantalla de título. Sólo id a MAIN y colocar el código de antes ANTES (o sea, encima) de "$scene = Scene_Title.new" y ya está!

Créditos
Script creada por ANÓNIMO

PD: El script no permite colocar el video en el centro de la pantalla ni ejecutarlo a pantalla completa (si está a pantalla completa os envia a modo ventana para ejecutarlo directamente y luego os devuelve a pantalla completa... podría ser peor. Aunque esto se puede evitar quitando un trozo de script). Se recomienda usar videos de 640*480 que es la resolución del rpg maker xp.
Suerte y Saludos.
Algún problema decirlo que lo cambio.
avatar
Maximiko
Novato
Novato

0/3

Créditos 87

Gracias : 2

Volver arriba Ir abajo

Re: [RMXP] Script Videos .AVI V5

Mensaje por orochii el 2011-05-18, 19:47

Lo único que tengo en contra de este script es que los videos digamos que se ejecutan como un proceso nuevo dentro del main, separadamente del resto del juego, casi crea una "ejecución nueva" y todo xD (no son nada manejables por script, se llama al video, y no lo toques porque se descuarajinga ).
En cualquier caso, el aporte está bien, ya lo conocía, y tengo una leve sospecha de que ya estaba por acá, pero bueeeeh xD.

Y claro: Anónimo es un dios xD, igual de invisible, y de artes infinitas,
Orochii Zouveleki
avatar
orochii
Reportero

0/3

Créditos 7794

Gracias : 462

Volver arriba Ir abajo

Re: [RMXP] Script Videos .AVI V5

Mensaje por hinmo el 2011-05-21, 23:22

ese script me suena haberlo visto antes y creo que ponia su creador si lo encuentro lo pongo para que le podais dar los creditos

hinmo
Soñador
Soñador

0/3

Créditos 188

Gracias : 1

Volver arriba Ir abajo

Re: [RMXP] Script Videos .AVI V5

Mensaje por Dianciel29 el 2014-08-19, 04:09

¿Porqué se acelera el video?, primero va bien y después se acelera :c.
avatar
Dianciel29
Iniciado
Iniciado

0/3

Créditos 10

Gracias : 2

Volver arriba Ir abajo

Re: [RMXP] Script Videos .AVI V5

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


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