Play AVI Movies in RMXP!

[Popper42x]

This script was original created by SoundSpawn but it encounter a lil problem in the form off really ennoying flickering well guess what its fixed! :P


and heres the script!

###########################################################
class Scene_Movie
###########################################################
#Created by SoundSpawn
###########################################################
#Fixed by Popper
###########################################################
#Instruction
#  1) Movies must in in a new folder called Movies in your directory
#  2)If you call this script from and event (EG:    Call Script: $scene = Scene_Movie.new("INTRO") )
#  3) Have fun playin movies with this script!!!
###########################################################
###########################################################
###########################################################

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(0.1)
Graphics.update
sleep(0.1)
Graphics.update
sleep(0.1)
fullscreen
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)
$scene = Scene_Map.new
break
end
end
$scene = Scene_Map.new
end

end

FAQ
NONE

Compatability
Unknown!

lol anyway its works here!

 

[Italianstal1ion]

Does it work in fullscreen?

 

[daihiey]

Demo? Nice to see someone hopefully fixed this..though er how to use?

 

[SephirothSpawn]

Did you get soundspawn's permission to post this? Is this the most recent version?

 

[DerVVulfman]

Besides the permission, couple of notes:

1. The FULLSCREEN def is not included. If the gamescreen was in FULLSCREEN mode, the system crashes.
2. The [Esc] button (Input :: B) brings up the menu DURING the movie's playback, not exiting the movie. You get a hyper-active flicker screen while the movie continues to play. Once out of the menu, pressing [Enter/Select] stops the flicker.

Other than that... it DOES end the flicker nonsense during regular playback.
That movie.call("status FILE mode",status,255,0 routine has got to have something to do with it.

 

[Wyvern]

Can you just tell us how it works,anyway?? Please?

 

[chrislongden3]

In after necropost (over 1 year as well)

I am only getting sound and no video when i use the call script...i think the script is faulty lol.

 

[Anonymous]

hey this is a pretty terrible bump.