Mundo Maker
¡Bienvenid@ a Mundo Maker!

¿Quieres aprender todo sobre el RPG Maker?



Regístrate y forma parte de Mundo Maker.

Ayuda con script RMXP

Ver el tema anterior Ver el tema siguiente Ir abajo

RPG Maker XP Ayuda con script RMXP

Mensaje por MaxElCrak el 2014-05-15, 01:40

Hola amigos ase días halle un script para reproducir vídeos el script es este.
Código:
class Scene_Movie

def initialize(movie,length,exit_to_game=true)
  @readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l'
  @movie_name = Dir.getwd()+"\\Movies\\"+movie+".avi"
  @counter = length
  @exit_to_game = exit_to_game
end

def main
  game_name = "\0" * 256
  @readini.call('Game','Title','',game_name,255,".\\Game.ini")
  game_name.delete!("\0")
  Graphics.transition
  @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
 
  @movie.call("play FILE",0,0,0)
  loop do
    sleep(1)
    @message.call(@temp.to_i,11,0,0)
    Graphics.update
    @message.call(@temp.to_i,11,1,0)
    Input.update
    if Input.trigger?(Input::B)
      break
    end
    @counter = @counter - 1
    if @counter <= 0
      break
    end
  end
  @movie.call("close FILE",0,0,0)
  if @exit_to_game
    $scene = Scene_Map.new
  else
    $scene = Scene_Title.new
  end
  Graphics.freeze
  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)','')


Para llamarlo hay que poner esto.
Código:
$scene = Scene_Movie.new(nombre del video,duracion,false)

El video hay que crear una nueva carpeta en tu proyecto y llamarla Movies y hay poner el video pero al llamar el script y empezar mi juego cuando llego a la parte del video me sale el error:????????SyntaxisError???????? Como lo soluciono.
avatar
MaxElCrak
Novato
Novato

0/3

Créditos 88

Gracias : 2

Volver arriba Ir abajo

RPG Maker XP Re: Ayuda con script RMXP

Mensaje por Eron el 2014-05-15, 11:28

Si te sale así sin línea de error ni nada es que el fallo está en la llamada. Y seguro que el problema con la llamada es que la línea queda cortada por ser demasiado larga, por ejemplo, te queda algo así:

Código:
$scene = Scene_Movie.new("Nombredelvi
deomuylargo", 10, false)


¿Ves que el nombre queda cortado? Eso da error.

La mejor manera es sustituirlo a una variable para que no quede cortado.

Código:
name = "Nombredelvideomuylargo"
$scene = Scene_Movie.new(name, 10,
false)


Eso ya no dará error.
Espero haber ayudado =D
avatar
Eron
Principiante
Principiante

0/3

Créditos 3599

Gracias : 60

Volver arriba Ir abajo

RPG Maker XP Re: Ayuda con script RMXP

Mensaje por MaxElCrak el 2014-05-15, 21:54

Me sale:

danielkevin es el nombre del video
avatar
MaxElCrak
Novato
Novato

0/3

Créditos 88

Gracias : 2

Volver arriba Ir abajo

RPG Maker XP Re: Ayuda con script RMXP

Mensaje por silvanash el 2014-05-15, 22:15

El script sólo funciona con vídeos en formado AVI. Revisa en qué formato tienes el vídeo.
avatar
silvanash
Aventurero
Aventurero

0/3

Créditos 1632

Gracias : 231

Volver arriba Ir abajo

RPG Maker XP Re: Ayuda con script RMXP

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.