Movie (flash)

[bo4p5687]

v.20+:
I won't update this script. So, when you have an updated, you can post in new thread.

v.19:
This script creates an event for play movie. This is the original post Here

How to use
Create the folder Movies and insert there the movies
Call:
For play one time, you can skip it if press X on your keyboard: pbVideo(filename)
You can out loop if press X on your keyboard: pbVideoLoop(filename)
filename = the name of the flash to be played (should be file .swf)
Press C on your keyboard for pause or resume
Put the script above Main.

Dowload
Link
Extract it into your root folder(the folder with the game.exe of your project)

Code

Spoiler:

#==============================================================================#
# RPG Maker XP Flash Player 
#
# Credit:
#   Author: ????? Updated by: Dark_Wolf_Warrior/Dahrkael
#   Peaverin: Adapt to Essentials + tutorial(optional credits)
#   bo4p5687 (update v.18.1)
#
# How to Use:
# Create the folder Movies and insert there the movies.
#
# Call: 
#   # For play one time, you can skip it if press X on keyboard
#   pbVideo(filename) 
#
#   # You can out loop if press X on keyboard
#   pbVideoLoop(filename)
#
#   filename = the name of the flash to be played (should be file .swf)
#
# Example: pbVideo("a.swf") # It will play file a in folder Movies
#==============================================================================#

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}/Movies/#{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

class Video
  BlackColor = Color.new(0,0,0,255)
  
  def initialize(filename)
    @viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
    @viewport.z=999999
    @bg = Sprite.new(@viewport)
    @bg.bitmap = Bitmap.new(SCREEN_WIDTH,SCREEN_HEIGHT)
    @bg.bitmap.fill_rect(0,0,SCREEN_WIDTH,SCREEN_HEIGHT,BlackColor)
    @flash = RMFlash.load(filename,SCREEN_WIDTH,SCREEN_HEIGHT,@viewport)
    @flash.z = 999999
    @previousBGM = nil
    @pause = false
    @exit = false
  end
  
  def stopAudioBG
    @previousBGM = $game_system.getPlayingBGM
    pbMEStop; pbBGSStop; pbSEStop; pbBGMStop
  end
  
  def playAudioBG
    # Music
    pbBGMPlay(@previousBGM)
  end
    
  def playOneTime
    stopAudioBG
    @flash.loop = 1
    loop do
      Graphics.update
      Input.update
      break if @exit
      @flash.update
      if Input.trigger?(Input::C)
        @pause = (@pause)? false : true
        @flash.pause if @pause
        @flash.resume if !@pause
      elsif Input.trigger?(Input::B) || ([email protected]? && !@pause)
        @flash.dispose
        @exit = true
      end
    end
    # End
    endVideo
  end
  
  def playNonStop
    stopAudioBG
    @flash.loop = 1
    loop do
      Graphics.update
      Input.update
      break if @exit
      @flash.update
      @flash.rewind if [email protected]? && !@pause
      if Input.trigger?(Input::C)
        @pause = (@pause)? false : true
        @flash.pause if @pause
        @flash.resume if !@pause
      elsif Input.trigger?(Input::B)
        @flash.dispose
        @exit = true
      end
    end
    # End
    endVideo
  end
  
  def endVideo
    playAudioBG
    @bg.dispose
    @viewport.dispose
  end
end

def pbVideo(filename)
  s = Video.new(filename)
  s.playOneTime
end

def pbVideoLoop(filename)
  s = Video.new(filename)
  s.playNonStop
end

Credit
Author: ?????
Dark_Wolf_Warrior/Dahrkael, Peaverin
bo4p5687 (update v.18.1)

 

[Giratina Musics]

I got this error---------------------------
Pokemon Essentials
---------------------------
[Pokémon Essentials version 18.1]

Exception: NameError

Message: uninitialized constant Scene_IntroFlash



Backtrace:

Main:45:in `mainFunctionDebug'

Main:24:in `mainFunction'

Main:24:in `pbCriticalCode'

Main:24:in `mainFunction'

Main:56

Main:55:in `loop'

Main:64



This exception was logged in

C:\Users\USERNAME\Saved Games\Pokemon Essentials\errorlog.txt.

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

 

[bo4p5687]

I got this error---------------------------
Pokemon Essentials
---------------------------
[Pokémon Essentials version 18.1]

Exception: NameError

Message: uninitialized constant Scene_IntroFlash



Backtrace:

Main:45:in `mainFunctionDebug'

Main:24:in `mainFunction'

Main:24:in `pbCriticalCode'

Main:24:in `mainFunction'

Main:56

Main:55:in `loop'

Main:64



This exception was logged in

C:\Users\USERNAME\Saved Games\Pokemon Essentials\errorlog.txt.

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

If you want to use my script, read "How to use". And don't use, the script in original post.

 

[Giratina Musics]

I've done everything but what do I need to fill in the last 4 lines because I keep getting syntax errors

 

[bo4p5687]

I've done everything but what do I need to fill in the last 4 lines because I keep getting syntax errors

I need to know what do you want? In this thread, you can create movie in Event but if you need to create in Intro, you need to do the different way.

 

[Giratina Musics]

I've made a folder named Movies in the pokemon essentials folder and my intro i made is called intro what do I need to change for it to work

 

[Giratina Musics]

where do I need to put the event pbVideo(intro.swf)? (intro is my video name

 

[bo4p5687]

where do I need to put the event pbVideo(intro.swf)? (intro is my video name

I understand like you need to create a movie flash for Intro.

So, you must remember, you need to do what I say here, it is just my script, it means the script I post in this thread, don't use the script in original thread.

First, you need to add in "class Video", below "def playNonStop", you need to add (note: below here, not this line, "below" it means you need to put it below end of the def)

  # Intro
  def playIntro
    @flash.loop = 1
    @fr = Graphics.frame_rate
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      break if @exit
      @flash.update
      @exit = true if Input.trigger?(Input::B) || Input.trigger?(Input::C) || [email protected]?
    end
    @flash.dispose
    @bg.dispose
    @viewport.dispose
    Graphics.frame_rate = @fr
  end

Then, below "def pbVideoLoop(filename)", add

def pbVideoIntro(filename)
  s = Video.new(filename)
  s.playIntro
end

Now, in Main (Main is the name in Script section), or you can find "def mainFunctionDebug", in this def, above

$scene = pbCallTitle

add

$scene = pbVideoIntro("intro.swf")

In my example, it's the name of your file. If you don't want to show image, in "class IntroEventScene < EventScene", in "def initialize(pics,splash,_viewport=nil)", change

openPic(self,nil)

into

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

 

[Vxpor]

Great script! I have been using the old script on v17.2 for the last little while and it's always worked fine until now. The old script when used for the intro video just flashes the flash logo for a second and doesn't play the video. You can see what I mean here.

So this script looks great for what I needed! And everything worked fine until I changed the script to play a video before the title screen. When I did so, I got this error:

[Pokémon Essentials version 17.2]
Exception: NoMethodError
Message: undefined method `pbVideoIntro' for nil:NilClass
Main:48:in `mainFunctionDebug'
Main:28:in `mainFunction'
Main:28:in `pbCriticalCode'
Main:28:in `mainFunction'
Main:61
Main:60:in `loop'
Main:69

But I imagine this is because I'm on v17.2 and not v18, but I could be wrong. I would comment on the original post since that's the script that always worked for me on v17, but the thread is closed so I thought I could get some help here instead.

 

[bo4p5687]

Great script! I have been using the old script on v17.2 for the last little while and it's always worked fine until now. The old script when used for the intro video just flashes the flash logo for a second and doesn't play the video. You can see what I mean here.

So this script looks great for what I needed! And everything worked fine until I changed the script to play a video before the title screen. When I did so, I got this error:

[Pokémon Essentials version 17.2]
Exception: NoMethodError
Message: undefined method `pbVideoIntro' for nil:NilClass
Main:48:in `mainFunctionDebug'
Main:28:in `mainFunction'
Main:28:in `pbCriticalCode'
Main:28:in `mainFunction'
Main:61
Main:60:in `loop'
Main:69

But I imagine this is because I'm on v17.2 and not v18, but I could be wrong. I would comment on the original post since that's the script that always worked for me on v17, but the thread is closed so I thought I could get some help here instead.

Do like this post, it works perfectly in PE v.17.2 and delete the old script (script in original thread)

I understand like you need to create a movie flash for Intro.

So, you must remember, you need to do what I say here, it is just my script, it means the script I post in this thread, don't use the script in original thread.

First, you need to add in "class Video", below "def playNonStop", you need to add (note: below here, not this line, "below" it means you need to put it below end of the def)

  # Intro
  def playIntro
    @flash.loop = 1
    @fr = Graphics.frame_rate
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      break if @exit
      @flash.update
      @exit = true if Input.trigger?(Input::B) || Input.trigger?(Input::C) || [email protected]?
    end
    @flash.dispose
    @bg.dispose
    @viewport.dispose
    Graphics.frame_rate = @fr
  end

Then, below "def pbVideoLoop(filename)", add

def pbVideoIntro(filename)
  s = Video.new(filename)
  s.playIntro
end

Now, in Main (Main is the name in Script section), or you can find "def mainFunctionDebug", in this def, above

$scene = pbCallTitle

add

$scene = pbVideoIntro("intro.swf")

In my example, it's the name of your file. If you don't want to show image, in "class IntroEventScene < EventScene", in "def initialize(pics,splash,_viewport=nil)", change

openPic(self,nil)

into

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

 

[Giratina Musics]

I got a syntax error at the "end" of this script (so where the blue end is). I've put a white line with nothing between the def pbVideoLoop(filename) and this one
ps. the second and third line doesnt have space in this reply but it does have it in the script because I just copied and pasted the script

def pbVideoIntro(filename)
s = Video.new(filename)
s.playIntro
end

 

[Giratina Musics]

okay I put a second "end" command under it and I think it works, but now in main line 44 I got a error about the pbVideoIntro

 

[bo4p5687]

okay I put a second "end" command under it and I think it works, but now in main line 44 I got a error about the pbVideoIntro

You can edit your post, don't need to post a new.

I don't think my script (the new) which is missing end. Maybe, you add wrong place and it gives you an error. Where you put the new? Show me with the pictures all my script.

 

[Giratina Musics]

okay here you go

 

[Vxpor]

Do like this post, it works perfectly in PE v.17.2 and delete the old script (script in original thread)

I removed the original script completely along with the edits you have to do for it to work. I went and installed the script and made the changes for the intro to work and now I am getting a name error.

[Pokémon Essentials version 17.2]
Exception: NameError
Message: uninitialized constant Video : : SCREEN_WIDTH (Had to add spaces between the ":" because it kept picking it up as an emoji)
Flash Player:182:in `initialize'
Flash Player:279:in `new'
Flash Player:279:in `pbVideoIntro'
Main:48:in `mainFunctionDebug'
Main:28:in `mainFunction'
Main:28:in `pbCriticalCode'
Main:28:in `mainFunction'
Main:61
Main:60:in `loop'
Main:69

Screen_Width is spotted in 3 spots throughout the Flash Player script.

 

[bo4p5687]

I removed the original script completely along with the edits you have to do for it to work. I went and installed the script and made the changes for the intro to work and now I am getting a name error.

[Pokémon Essentials version 17.2]
Exception: NameError
Message: uninitialized constant Video : : SCREEN_WIDTH (Had to add spaces between the ":" because it kept picking it up as an emoji)
Flash Player:182:in `initialize'
Flash Player:279:in `new'
Flash Player:279:in `pbVideoIntro'
Main:48:in `mainFunctionDebug'
Main:28:in `mainFunction'
Main:28:in `pbCriticalCode'
Main:28:in `mainFunction'
Main:61
Main:60:in `loop'
Main:69

Screen_Width is spotted in 3 spots throughout the Flash Player script.

Change SCREEN_WIDTH into DEFAULTSCREENWIDTH. Next, change DEFAULTSCREENHEIGHT into SCREEN_HEIGHT

 

[bo4p5687]

okay here you go

I don't know why you add class Video again. Delete this line "class Video" (in image, it is in line 244), the line above

# Intro
  def playIntro

and delete "end" (in image, it is in line 284) below

def pbVideoIntro(filename)
  s = Video.new(filename)
  s.playIntro
end

 

[Giratina Musics]

I don't get any errors now but I get the Flash player logo just like in the outdated scipt

 

[Mr.Paradox]

I don't get any errors now but I get the Flash player logo just like in the outdated scipt

i have the same problem now

 

[Vxpor]

I don't get any errors now but I get the Flash player logo just like in the outdated scipt

Had the same thing. I think it's because flash stopped in 2020. Maybe because of that, the script just doesn't work anymore. I also fixed my script and it does the same thing.