AVI est un format vidéo assez lourd ^^ Est-ce possible d'adapter ce script à un autre format ? (je pense évidement au WMV ^^)
| 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)','') |
| Code: |
Scene_Movie("nom_de_la_video_avi_sans_son_extension") |
AVI est un format vidéo assez lourd | Sphinx a écrit: |
| AVI est un format vidéo assez lourd |
)
| Citation: |
Maintenant, dans n'importe quel event faites la fonction Appeler un Script : Code: Scene_Movie("nom_de_la_video_avi_sans_son_extension") |
Autre solution, tu fais tout en évent =) (avec la reprise partielle de l'intro PSP 4G, je l'avoue ^_^" Mais j'ai quand même passé une 10aine d'heures rien que sur l'intro, la réalisation des différents graphiques qui me manquaient comprise... )
?| tithib a écrit: |
Bonjour j'ai un problème avec ce script. J'ai en même temps que celui-là le script pour commencer le jeu en plein écran et quand la vidéo commence, le plein écran s'enlève, je dois regarder la vidéo dans la petite fenêtre et quand la vidéo se termine, le fond d'écran ne se remet plus ! Comment regarder la vidéo sans quitter le plein écran svp ??? |
| Code: |
| # ----------------------------------------------------------------- # La scène d'intro commence ici (non MAPINTRO) # ----------------------------------------------------------------- # Elle est bien sûr modifiable à votre goût. # ----------------------------------------------------------------- Scene_Movie.new("Intro") view = Viewport.new(0,0,640,480) view.z = -5 #view = Viewport.new(0,25,640,430) #view.z = 0 background = Plane.new(view) background.bitmap = RPG::Cache.title("Opening2.jpg") #background.oy += 25 background.z = 0 background.tone = Tone.new(0,0,0,255) #view = Viewport.new(0,0,640,480) #view.z = -5 #background_bis = Plane.new(view) #background_bis.bitmap = RPG::Cache.title("Opening2.jpg") #background_bis.z = -5 |