Guest User

Video 2

a guest
Jan 20th, 2018
126
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #===============================================================================
  2. #
  3. # * Scene_IntroFlash by Dahrkael using 灼眼的夏娜 Flash Player
  4. # Adapted to Pokemon Essentials by Peaverin v1.0
  5. # Requires the .dll and .ocx
  6. #===============================================================================
  7. class Scene_IntroFlash
  8.  
  9. def initialize
  10. # Set the file which will be played
  11. @file = "intro.swf"
  12. # Choose if the player can skip the intro (0 => false, 1 => true)
  13. @button = 1
  14. end
  15.  
  16. def main
  17. # Black background
  18. @fondo = Sprite.new
  19. @fondo.bitmap = Bitmap.new(512, 384)
  20. @fondo.bitmap.fill_rect(0, 0, 512, 384, Color.new(0,0,0,255))
  21. @fondo.z = -1
  22. # Set flash video
  23. fls = RMFlash.load(@file, 512, 384)
  24. fls.loop = 1
  25. fls.z = 999999
  26. # Save frame rate
  27. @fr = Graphics.frame_rate
  28. # Set new frame rate
  29. Graphics.frame_rate = 40
  30. # Main loop
  31. Graphics.transition
  32. while true
  33. Graphics.update
  34. #Input.update
  35. fls.update
  36. # Skip the video using Enter
  37. break if @button == 1 and Keyb.trigger($keys["Enter"])
  38. # Skip when finished
  39. break if !fls.playing?
  40. end
  41. $scene = pbCallTitle
  42. Graphics.freeze
  43. # Little solution for frozen images
  44. fls.z = -2
  45. fls.dispose
  46. # Set old frame rate
  47. Graphics.frame_rate = @fr
  48. end
  49. end
RAW Paste Data