Flash Intro before Title Screen

Peaverin · Nov 2, 2013

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:

Code:

#==============================================================================#
# 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:

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

Code:

$scene = pbCallTitle

Erase that line and write instead:

Code:

$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:

Code:

openPic(self,nil)

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

Code:

    @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 · Nov 19, 2013

This is awesome thanks :D

WinterKirby · Nov 24, 2013

This is fantastic!

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

akane159 · Nov 28, 2013

i have a erro in Main and line 35 :S

Dylanrockin · Nov 28, 2013

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 · Nov 28, 2013

Dylanrockin said:
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 · Dec 1, 2013

Dylanrockin said:
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:

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

dydd90 · Jan 2, 2014

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

Diegotoon · Jul 30, 2015

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 · Jul 31, 2015

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

Richard PT · Aug 11, 2015

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 · Aug 12, 2015

Richard PT said:
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 · Aug 12, 2015

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 · Aug 31, 2015

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

Code:

    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 · Aug 31, 2015

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 · Feb 28, 2017

---------------------------
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?

Flash Intro before Title Screen

More options

Peaverin

Lanyons

Love Type

WinterKirby

akane159

Dylanrockin

That guy

akane159

Peaverin

dydd90

Diegotoon

Richard PT

Richard PT

lolandbeer

Richard PT

ReVaN777

Creator of Pokemon Titanium

ReVaN777

Creator of Pokemon Titanium

SrPitzho