Movie Script, Sound Spawn script Options

[anime4mage]

Update 4/18/08
----------------------

Main Movie Script #Author: Sound Spawn# #Enhanced Animemage#

-not recommended for Fullscreen-
-It is not recommended to use this script in a Finished Game, however use at your own risk.-
-this script will not affect game development, this is a add-on.-
--This Script was posted so Other's can help with it's development--

Here is Sound Spawns AVI script(now MPG), not mine so don't ask me how to use it.
-Works with RMXP and RMVX-

you will need at least a 640x480 video resolution in .mpg format -for RMXP-
you will need at least a 544x416 video resolution in .mpg format -for RMVX- or use Graphics.resize_screen(width, height)
(I'd suggest finding a video recoder, Converter) I like Free Video Converter(needs .net framework 2.0)
I recommend using MPEG-1, WMV7 video Codecs with 25FPS, 512kbps or 256kbps and
MP2, WMA Audio Codecs with 44100 Frequency, Stereo, and 128kbps.

#note: Full Screen Call buggy#
#Resolution that are smaller than 640x480 will lock to topleft screen; bigger than 640x480 will lose bottom and right portions of movie#

Make file called Movies in <Mydocuments>/<RMXP or RMVX>/<your project>/Movies
ie subdirectory (yourgame\data, yourgame\graphics, yourgame\movies <-put mpg files here)

Insert new script file in Script Editor under Scene_****'s
name new file - Scene_Movie
Copy and Paste code in empty script window

follow the inset instructions

[Show/Hide]

CODE

##Copy this into a new section of your game.
##To play a file, move the mpg file into a "movies" subdirectory
##(yourgame\data, yourgame\graphics, yourgame\movies).
##Then call '$scene = Scene_Movie.new("filename")' where filename is your movies actual filename
## (minus the .mpg).         #exapmple Scene_Movie.new("???")
## If you want to play multiple movies in a row
##(for example before the game starts, maybe a "developed by", "produced by", "intro movie"
## set or something... Go to the "main" section of code and find the line "$scene = Scene_Title.new".
##Just after that line add:
##CODE
##Audio.bgm_play("Movies/" + 'dev_by', 100, 100) #loads movie
##Audio.bgm_play("Movies/" + 'pro_b', 100, 100) #loads movie
##Audio.bgm_play("Movies/" + 'intro', 100, 100) #loads movie
##Audio.bgm_stop
##$scene = Scene_Movie.close_scene     #closes active movie window
##$scene = Scene_Movie.new("dev_by")
##$scene = Scene_Movie.new("pro_by")
##$scene = Scene_Movie.new("intro")
##$scene = Scene_Title.new
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+".mpg"
   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)     #Remove '#' if using RMXP
#    Graphics.update                      #Remove '#' if using RMXP
    @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)           #can change or add Input::C
      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)','')

def close_scene
  $keybd = Win32API.new ('user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v')
  $keybd.call 0xA4, 0, 0, 0
  $keybd.call 0x73, 0, 0, 0
  $keybd.call 0x73, 0, 2, 0
  $keybd.call 0xA4, 0, 2, 0
end
#End Movie Script#

[Show/Hide] Example

To make intro movie call script in Main(Script Editor)
Put scene_movie above scene_title - Leave Quotes in "" rename movie to your mpg file(exlude .mpg)

[Show/Hide]

CODE

Audio.bgm_play("Movies/" + 'movie', 100, 100)
Audio.bgm_stop
$scene = Scene_Movie.close_scene      #closes active movie window
$scene = Scene_Movie.new("movie")
$scene = Scene_Title.new

[Show/Hide] Example

To make multiple scenes

[Show/Hide]

CODE

Audio.bgm_play("Movies/" + 'splash', 100, 100)
Audio.bgm_play("Movies/" + 'developedby', 100, 100)
Audio.bgm_play("Movies/" + 'movie', 100, 100)
Audio.bgm_stop
$scene = Scene_Movie.close_scene      #closes active movie window
$scene = Scene_Movie.new("splash")
$scene = Scene_Movie.new("developedby")
$scene = Scene_Movie.new("movie.mpg") #will not work(because of '.mpg'), will skip
$scene = Scene_Title.new

To call in game; call script using 'call script event'

[Show/Hide]

CODE

Audio.bgm_play("Movies/" + 'movie', 100, 100)
Audio.bgm_stop
$scene = Scene_Movie.close_scene
$scene = Scene_Movie.new("movie")
$scene = Scene_Map.new
return
------------------------------------------
#you can add this to the script; but you can just use event commands after script call
$scene = Scene_Movie.new("movie")
$game_map.events[1].erase        #Event number to erase/ if event001=[1]
$game_map.setup(1)            #Move player to map/ if map001=(1)
$game_player.moveto(0,0)        #Move Player to tile/ (0,0)=topleftcorner
$game_player.refresh            #player refresh
$scene = Scene_Map.new            #reset map
$game_map.autoplay            #load game

[Show/Hide] Example1

[Show/Hide] Example2

#don't forget to Stop BGM & BGS before script; then enable BGM & BGS after script#

This is the most complete guide to movie script I hope you like it.

All thanks and praise for script is associated to 'Sound Spawn'

--This Script was posted so Other's can help with it's development--

This post has been edited by anime4mage: May 27 2008, 07:44 AM

Attached File(s)

 Movie_Script.html ( 25.71K ) Number of downloads: 919