Flash Intro before Title Screen

[Peaverin]

Hi, today I bring you this nice script that makes you able to insert a .swf flash intro before the title screen. This system works also with non-Essentials projects, but the tutorial is for Essentials.
There's also a video to show movies in AVI format, but they're hard to work with and their size is 10x bigger and bad quality, so using flash is the best option.
This is an example of my intro flash:

​

Okay, let's start:
1. Insert this two scripts above main and DOWNLOAD THIS(click here) and extract it into your root folder(the folder with the game.exe of your project).
Note that the scripts have been adapted to work with Pokemon Essentials. If you want them to work in rpg maker xp but without pokemon essentials engine you'll have to modify some things. PM me if it's your case.
This first one is for the movies to work (additional instructions are inside the script if you want to play a video using an event).

Spoiler:

#==============================================================================#
# Version 0.3 #
# RPG Maker XP Flash Player #
# #
# Author: ????? Updated by: Dark_Wolf_Warrior/Dahrkael #
# # Peaverin: Adapt to Essentials + tutorial(optional credits)
# How to Use: #
# 1. Create the folder Graphics/Flash and insert there the movies.
# #
# 2. If you want to play a flash at any moment insert: #
# $flash.play("file.swf", button)
# file= the name of the flash to be played
# button= 0(the player can't skip the flash by pressing enter)
# button= 1(the player can skip the flash by prssing enter)
# FOR EXAMPLE: I add a flash called Heya to the flash folder.
# # Then, in a event I call the script:
# # $flash.play("Heya.swf", 0)
# # By this way the flash Heya will be played and you won't be
# # able to skip it by pressing enter.
# Interactive flashes requires RGSS knownledge to make they work #
# #
# Original Keyb module by HoundNinja #
# #
#==============================================================================#



class String

CP_ACP = 0
CP_UTF8 = 65001

def u2s
m2w = Win32API.new("kernel32", "MultiByteToWideChar", "ilpipi", "i")
w2m = Win32API.new("kernel32", "WideCharToMultiByte", "ilpipipp", "i")

len = m2w.call(CP_UTF8, 0, self, -1, nil, 0)
buf = "\0" * (len*2)
m2w.call(CP_UTF8, 0, self, -1, buf, buf.size/2)

len = w2m.call(CP_ACP, 0, buf, -1, nil, 0, nil, nil)
ret = "\0" * len
w2m.call(CP_ACP, 0, buf, -1, ret, ret.size, nil, nil)

return ret
end

def s2u
m2w = Win32API.new("kernel32", "MultiByteToWideChar", "ilpipi", "i")
w2m = Win32API.new("kernel32", "WideCharToMultiByte", "ilpipipp", "i")

len = m2w.call(CP_ACP, 0, self, -1, nil, 0);
buf = "\0" * (len*2)
m2w.call(CP_ACP, 0, self, -1, buf, buf.size/2);

len = w2m.call(CP_UTF8, 0, buf, -1, nil, 0, nil, nil);
ret = "\0" * len
w2m.call(CP_UTF8, 0, buf, -1, ret, ret.size, nil, nil);

return ret
end

def s2u!
self[0, length] = s2u
end 

def u2s!
self[0, length] = u2s
end

end

class Bitmap

RtlMoveMemory_pi = Win32API.new('kernel32', 'RtlMoveMemory', 'pii', 'i')
RtlMoveMemory_ip = Win32API.new('kernel32', 'RtlMoveMemory', 'ipi', 'i')

def address
buffer, ad = "xxxx", object_id * 2 + 16
RtlMoveMemory_pi.call(buffer, ad, 4); ad = buffer.unpack("L")[0] + 8
RtlMoveMemory_pi.call(buffer, ad, 4); ad = buffer.unpack("L")[0] + 16
RtlMoveMemory_pi.call(buffer, ad, 4); return buffer.unpack("L")[0]
end

end 

class RMFlash

API_NEW	 = Win32API.new("RMFlash", "_new", "piil", "l")
API_UPDATE	 = Win32API.new("RMFlash", "_update", "l", "v")
API_FREE	 = Win32API.new("RMFlash", "_free", "l", "v")
API_PLAYING = Win32API.new("RMFlash", "_is_playing", "l", "i")
API_PAUSE	 = Win32API.new("RMFlash", "_pause", "l", "v")
API_RESUME	 = Win32API.new("RMFlash", "_resume", "l", "v")
API_BACK	 = Win32API.new("RMFlash", "_back", "l", "v")
API_REWIND	 = Win32API.new("RMFlash", "_rewind", "l", "v")
API_FORWARD	 = Win32API.new("RMFlash", "_forward", "l", "v")
API_CURFRAME	 = Win32API.new("RMFlash", "_cur_frame", "l", "i")
API_TOTALFRAME	= Win32API.new("RMFlash", "_total_frames", "l", "i")
API_GOTOFRAME	 = Win32API.new("RMFlash", "_goto_frame", "li", "v")
API_GETLOOP	 = Win32API.new("RMFlash", "_get_loop", "l", "i")
API_SETLOOP	 = Win32API.new("RMFlash", "_set_loop", "li", "v")
API_CLEARALL	 = Win32API.new("RMFlash", "_clear_all", "v", "v")
API_VALID = Win32API.new("RMFlash", "_valid", "l", "i")
API_SENDMSG = Win32API.new("RMFlash", "_send_message", "liii", "l")

CUR_PATH = Dir.pwd

def self.get_version

end

def self.clear_all
API_CLEARALL.call
end

def self.load(name, width, height, v = nil)
new("#{CUR_PATH}/Graphics/Flash/#{name}".u2s, width, height, v)
end

attr_reader :valid

def initialize(flash_name, flash_width, flash_height, viewport = nil)
@sprite = Sprite.new(viewport)
@sprite.bitmap = Bitmap.new(flash_width, flash_height)
@value = API_NEW.call(flash_name, flash_width, flash_height, @sprite.bitmap.address)
@loop = API_GETLOOP.call(@value) > 0
@valid = API_VALID.call(@value) > 0
end

def viewport
@sprite.viewport
end

def update
API_UPDATE.call(@value)
end

def dispose
API_FREE.call(@sprite.bitmap.address)
end

def playing?
API_PLAYING.call(@value) > 0
end

def pause
API_PAUSE.call(@value)
end

def resume
API_RESUME.call(@value)
end

def back
API_BACK.call(@value)
end

def rewind
API_REWIND.call(@value)
end

def forward
API_FORWARD.call(@value)
end

def current_frame
API_CURFRAME.call(@value)
end

def total_frames
API_TOTALFRAME.call(@value)
end

def goto_frame(goal_frame)
API_GOTOFRAME.call(@value, goal_frame)
end

def x
@sprite.x
end

def x=(v)
@sprite.x = v
end

def y
@sprite.y
end

def y=(v)
@sprite.y = v
end

def z
@sprite.z
end

def z=(v)
@sprite.z = v
end

def width
@sprite.bitmap.width
end

def height
@sprite.bitmap.height
end

def loop?
@loop
end

def loop=(v)
if @loop != v
@loop = v
API_SETLOOP.call(@value, v)
end
end

def msg_to_flash(msg, wParam, lParam)
return API_SENDMSG.call(@value, msg, wParam, lParam)
end

# ?
WM_MOUSEMOVE = 0x0200

def make_long(a, b)
return (a & 0xffff ) | (b & 0xffff) << 16
end

def on_mouse_move(x, y)
return msg_to_flash(WM_MOUSEMOVE, 0, make_long(x, y))
end

end

module Kernel

alias origin_exit exit unless method_defined? :exit

def exit(*args)
RMFlash.clear_all
origin_exit(*args)
end

end

module Keyb
$keys = {}
$keys["Enter"] = 0x0D
GetKeyState = Win32API.new("user32","GetAsyncKeyState",['i'],'i')
module_function 
def trigger(rkey) 
GetKeyState.call(rkey) & 0x01 == 1
end
end

class Play

def play(filename, button)
fondo = Sprite.new
fondo.bitmap = Bitmap.new(512, 384)
fondo.bitmap.fill_rect(0, 0, 512, 384, Color.new(0,0,0,255))
fls = RMFlash.load(filename, 512, 384)
fls.loop = 1
fls.z = 999999
@button = button
@fr = Graphics.frame_rate
Graphics.frame_rate = 40

while true
Graphics.update
#Input.update
fls.update
break if @button == 1 and Keyb.trigger($keys["Enter"]) 
break if !fls.playing?
end
fls.dispose
Graphics.frame_rate = @fr
fondo.dispose
end
end

This second script is the script we will call in main to show the video before the title screen:

Spoiler:

#===============================================================================
#
# * Scene_IntroFlash by Dahrkael using 灼眼çš"夏娜 Flash Player
#   Adapted to Pokemon Essentials by Peaverin                                                                                                            v1.0
#    Requires the .dll and .ocx
#===============================================================================
class Scene_IntroFlash
 
  def initialize
     # Set the file which will be played
     @file = "intro.swf"
     # Choose if the player can skip the intro (0 => false, 1 => true)
     @button = 1
  end
 
  def main
     # Black background
     @fondo = Sprite.new
     @fondo.bitmap = Bitmap.new(512, 384)
     @fondo.bitmap.fill_rect(0, 0, 512, 384, Color.new(0,0,0,255))
     @fondo.z = -1
     # Set flash video
     fls = RMFlash.load(@file, 512, 384)
     fls.loop = 1
     fls.z = 999999
     # Save frame rate
     @fr = Graphics.frame_rate
     # Set new frame rate
     Graphics.frame_rate = 40
     # Main loop
     Graphics.transition
     while true
        Graphics.update
        #Input.update
        fls.update
        # Skip the video using Enter
        break if @button == 1 and Keyb.trigger($keys["Enter"])
        # Skip when finished
        break if !fls.playing?
     end
     $scene = pbCallTitle
     Graphics.freeze
     # Little solution for frozen images
     fls.z = -2
     fls.dispose
     # Set old frame rate
     Graphics.frame_rate = @fr
  end
end

2.Go to the script Main and by line 35 you'll found something like:

$scene = pbCallTitle

Erase that line and write instead:

$scene = Scene_IntroFlash.new

3.Optional:
If you don't wan't any pic to show after the flash and you want the Title Screen with the press start message appear JUST AFTER THE VIDEO(like ruby or emerald), go to the script Scene_Intro and where it appears:

openPic(self,nil)

Erase or comment out the line(comment out means writing this # before the line) and write instead:

    @timer=0 # reset the timer
    openSplash(self,nil)

ADDITIONAL NOTES: You can create your intro in .mp4 format with a program like Camtasia Studio 7 or 8 and then use a file converter(search it at google) to convert your mp4 to swf. Remember that the screen size is 512x384, but you can use a smaller video if you want and it will show anyways.

That's all at the moment. I think i don't miss anything. Post any problems here.

 

[Lanyons]

This is awesome thanks :D

 

[WinterKirby]

This is fantastic!

Now if only I could do stuff in Flash...

 

[akane159]

i have a erro in Main and line 35 :S

 

[Dylanrockin]

Teacher, I have a question! Do I have to create a subfolder called "Flash" in the main section of my folders, or would I put them in the graphics folder? Also, I got this error on startup, I'm not quite sure what it means though. I'm a tad noob-status at this kind of stuff ^.^;

---------------------------
Pokemon: Symphonic Horizon
---------------------------
Exception: NameError

Message: uninitialized constant Scene_IntroFlash

Main:35:in `mainFunctionDebug'

Main:15:in `mainFunction'

Main:15:in `pbCriticalCode'

Main:15:in `mainFunction'

Main:47

Main:46:in `loop'

Main:55



This exception was logged in

C:\Users\Dylan\Saved Games/Pokemon_ Symphonic Horizon/errorlog.txt.

Press Ctrl+C to copy this message to the clipboard.
---------------------------
OK
---------------------------

 

[akane159]

Teacher, I have a question! Do I have to create a subfolder called "Flash" in the main section of my folders, or would I put them in the graphics folder? Also, I got this error on startup, I'm not quite sure what it means though. I'm a tad noob-status at this kind of stuff ^.^;

---------------------------
Pokemon: Symphonic Horizon
---------------------------
Exception: NameError

Message: uninitialized constant Scene_IntroFlash

Main:35:in `mainFunctionDebug'

Main:15:in `mainFunction'

Main:15:in `pbCriticalCode'

Main:15:in `mainFunction'

Main:47

Main:46:in `loop'

Main:55



This exception was logged in

C:\Users\Dylan\Saved Games/Pokemon_ Symphonic Horizon/errorlog.txt.

Press Ctrl+C to copy this message to the clipboard.
---------------------------
OK
---------------------------

you have to create a subfolder called Flash , but i did that and i have the same error :S

 

[Peaverin]

Teacher, I have a question! Do I have to create a subfolder called "Flash" in the main section of my folders, or would I put them in the graphics folder? Also, I got this error on startup, I'm not quite sure what it means though. I'm a tad noob-status at this kind of stuff ^.^;

---------------------------
Pokemon: Symphonic Horizon
---------------------------
Exception: NameError

Message: uninitialized constant Scene_IntroFlash

Main:35:in `mainFunctionDebug'

Main:15:in `mainFunction'

Main:15:in `pbCriticalCode'

Main:15:in `mainFunction'

Main:47

Main:46:in `loop'

Main:55



This exception was logged in

C:\Users\Dylan\Saved Games/Pokemon_ Symphonic Horizon/errorlog.txt.

Press Ctrl+C to copy this message to the clipboard.
---------------------------
OK
---------------------------

Oh, I made a mistake and I copied the same script two times.
The correct Scene_IntroFlash is this one:

Spoiler:

#===============================================================================
#
# * Scene_IntroFlash by Dahrkael using 灼眼çš"夏娜 Flash Player
#   Adapted to Pokemon Essentials by Peaverin                                                                                                            v1.0
#    Requires the .dll and .ocx
#===============================================================================
class Scene_IntroFlash
 
  def initialize
     # Set the file which will be played
     @file = "intro.swf"
     # Choose if the player can skip the intro (0 => false, 1 => true)
     @button = 1
  end
 
  def main
     # Black background
     @fondo = Sprite.new
     @fondo.bitmap = Bitmap.new(512, 384)
     @fondo.bitmap.fill_rect(0, 0, 512, 384, Color.new(0,0,0,255))
     @fondo.z = -1
     # Set flash video
     fls = RMFlash.load(@file, 512, 384)
     fls.loop = 1
     fls.z = 999999
     # Save frame rate
     @fr = Graphics.frame_rate
     # Set new frame rate
     Graphics.frame_rate = 40
     # Main loop
     Graphics.transition
     while true
        Graphics.update
        #Input.update
        fls.update
        # Skip the video using Enter
        break if @button == 1 and Keyb.trigger($keys["Enter"])
        # Skip when finished
        break if !fls.playing?
     end
     $scene = pbCallTitle
     Graphics.freeze
     # Little solution for frozen images
     fls.z = -2
     fls.dispose
     # Set old frame rate
     Graphics.frame_rate = @fr
  end
end

So you have to change the second script by this one. Now it should work without problems.

 

[dydd90]

Awesome :D
I will use it and i will give you credits ;)

 

[Diegotoon]

Help , I need to see the video in a type ds game, the screen is 512x784 , and you change all the parameters , the video is focused, but not visible in full screen

 

[Richard PT]

This script plays avi or mp3 files? I want my movies in avi or mp3 files.

 

[Richard PT]

Hello, I'm having this error when i used it in an event:

I put the required files in my game project folder,
I created in Graphics folder a folder called Flash,
And i put only your first script "(This first one is for the movies to work (additional instructions are inside the script if you want to play a video using an event))". Above MAIN.
And i called this way in an event --> $flash.play("Intro.swf",1)

How can i fix the error?
______________________________________________________________________________________________________________________
I fixed that error but, when i call the script nothing happens. And i'm using videos in swf format.
Did i missed something?

 

[lolandbeer]

Hello, I'm having this error when i used it in an event:

I put the required files in my game project folder,
I created in Graphics folder a folder called Flash,
And i put only your first script "(This first one is for the movies to work (additional instructions are inside the script if you want to play a video using an event))". Above MAIN.
And i called this way in an event --> $flash.play("Intro.swf",1)

How can i fix the error?
______________________________________________________________________________________________________________________
I fixed that error but, when i call the script nothing happens. And i'm using videos in swf format.
Did i missed something?

Wild guess... This is only usable for the intro without modifying it yourself.

 

[Richard PT]

Lolandbeer, it is not only for intro movies.
Peaverin mentioned this phrase: "This first one is for the movies to work (additional instructions are inside the script if you want to play a video using an event)."
So i think that i can use this script for game events too.

 

[ReVaN777]

hello, i followed each step, and im getting an invisible error

---------------------------
Pokemon Titaium
---------------------------
Script 'Main' line 37: SyntaxError occurred.
---------------------------
OK
-------------------


and heres my code lines 23 - 51

    Graphics.freeze
  end
end




$scene = Scene_IntroFlash.new #:nodoc:
  if $DEBUG
    return Scene_DebugIntro.new
  else
    # First parameter is an array of images in the Titles
    # directory without a file extension, to show before the
    # actual title screen.  Second parameter is the actual
    # title screen filename, also in Titles with no extension.
    return Scene_Intro.new(['intro1'], 'splash') 
  end
end

def mainFunction #:nodoc:

 

[ReVaN777]

fix problem i had with the main script but now i have this error

---------------------------
Pokemon Titaium
---------------------------
Script 'SpriteWindow' line 1086: Errno::ENOENT occurred.

No such file or directory - Audio/SE/Audio/SE/153Cry.wav
---------------------------
OK
---------------------------

a little help would be awesome. the path is correct and everything is in there.

 

[SrPitzho]

---------------------------
Pokémon Parts of Volcan
---------------------------
Exception: NameError

Message: uninitialized constant Scene_IntroFlash::RMFlash

Scene B:23:in `main'

Main:49:in `mainFunctionDebug'

Main:27:in `mainFunction'

Main:27:in `pbCriticalCode'

Main:27:in `mainFunction'

Main:59

Main:58:in `loop'

Main:67



This exception was logged in

C:\Users\Derlan\Saved Games/Pokémon Parts of Volcan/errorlog.txt.

Press Ctrl+C to copy this message to the clipboard.
---------------------------
OK
---------------------------

Help?