http://ultimatez.forogeneral.es/
 
ÍndicePortalFAQBuscarRegistrarseMiembrosGrupos de UsuariosConectarse

Comparte | 
 

 Scripts XP - Ver videos .AVI

Ir abajo 
AutorMensaje
Estealbo
Administrador
Administrador
Estealbo

Cantidad de envíos : 20
Fecha de inscripción : 04/02/2008

MensajeTema: Scripts XP - Ver videos .AVI   Vie Feb 08, 2008 2:02 am

Hola a todos, les traigo este nuevo scripts
Coloca un llamar scripts:
Scene_Movie.new("Movie1.avi")

El color Movie1 ese lo tienes que eliminar menos el .avi
el video tiene que estar en una carpeta que se llama Movies
que deve ir en la carpeta principal del juego

Aqui les dejo el scripts

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)','')

_________________


Sumate a los mejores
Volver arriba Ir abajo
Ver perfil de usuario http://ultimatez.activo.mx
 
Scripts XP - Ver videos .AVI
Volver arriba 
Página 1 de 1.
 Temas similares
-
» Videos BTT Extrem ¡que fuertes !
» VIDEOS VARIADOS
» colgar videos ahora está tirao!!
» ya me canse de los videos de Punto Pelota :D
» TRIUNFOS Y FIGURACIONES CLASICAS DE LOS HIJOS DE CANDY RIDE VIDEOS

Permisos de este foro:No puedes responder a temas en este foro.
Nos mudamos a! http://ultimatez.forogeneral.es/ :: Creando tus juegos :: Rpg maker xp - Scripts-
Cambiar a: