How to Use a GIF for Your Title Screen V1.0

class IntroEventScene < EventScene
  def initialize(pics)
    super(nil)
    @pics=pics
    @pic=addBitmap(0,0,"")
    @pic.moveOpacity(0,0,0) # fade to opacity 0 in 0 frames after waiting 0 frames
    @pic2=addImage(0,322,"") # flashing "Press Enter" picture
    @pic2.moveOpacity(0,0,0)
    @index=0
    data_system = pbLoadRxData("Data/System")
    pbBGMPlay(data_system.title_bgm)
    openPic(self,nil)
  end


  def openPic(scene,args)
    onCTrigger.clear
    @pic.name="Graphics/Titles/"+@pics[@index]
    @pic.moveOpacity(15,0,255) # fade to opacity 255 in 15 frames after waiting 0 frames
    pictureWait
    @timer=0 # reset the timer
    onUpdate.set(method(:timer)) # call timer every frame
    onCTrigger.set(method(:closePic)) # call closePic when C key is pressed
  end

  def timer(scene,args)
    @timer+=1
    if @timer>80
      @timer=0
      closePic(scene,args) # Close the picture
    end
  end

  def closePic(scene,args)
    onCTrigger.clear
    onUpdate.clear
    @pic.moveOpacity(15,0,0)
    pictureWait
    @index+=1 # Move to the next picture
    if @index>=@pics.length
      openSplash(scene,args)
    else
      openPic(scene,args)
    end
  end

    def pbUpdate
    pbUpdateSpriteHash(@sprites)
  end

  def openSplash(scene,args)
    onCTrigger.clear
    onUpdate.clear
    @viewport = Viewport.new(0,0,Graphics.width,Graphics.height)
    @pic2.name="Graphics/Titles/start"
    @pic2.moveOpacity(15,0,255)
    @sprites = {}
    addBackgroundPlane(@sprites,"background","splash",@viewport)
    pbFadeInAndShow(@sprites) { pbUpdate }
    onUpdate.set(method(:splashUpdate))# call splashUpdate every frame
    onCTrigger.set(method(:closeSplash))# call closeSplash when C key is pressed
  end

  def splashUpdate(scene,args)
      pbUpdateSpriteHash(@sprites)
      @timer+=1
      @timer=0 if @timer>=80
      if @timer>=32
          @pic2.moveOpacity(0,0,8*(@timer-32))
      else
        @pic2.moveOpacity(0,0,255-(8*@timer))
      end
      if Input.press?(Input::DOWN) &&
         Input.press?(Input::B) &&
         Input.press?(Input::CTRL)
        closeSplashDelete(scene,args)
      end
    end

  def closeSplash(scene,args)
    onCTrigger.clear
    onUpdate.clear
    # Play random cry
    cry=pbCryFile(1+rand(PBSpecies.maxValue))
    pbSEPlay(cry,80,100) if cry
    # Fade out
    @pic2.moveOpacity(10,0,0)
    pbFadeOutAndHide(@sprites) { pbUpdate }
    pbDisposeSpriteHash(@sprites)
    @viewport.dispose
    pbBGMStop(1.0)
  #  pictureWait
    scene.dispose # Close the scene
    sscene=PokemonLoad_Scene.new
    sscreen=PokemonLoadScreen.new(sscene)
    sscreen.pbStartLoadScreen
  end

  def closeSplashDelete(scene,args)
    onCTrigger.clear
    onUpdate.clear
    # Play random cry
    cry=pbCryFile(1+rand(PBSpecies.maxValue))
    pbSEPlay(cry,80,100) if cry
    # Fade out
    @pic2.moveOpacity(10,0,0)
    pbFadeOutAndHide(@sprites) { update }
    pbDisposeSpriteHash(@sprites)
    @viewport.dispose
    pbBGMStop(1.0)
   # pictureWait
    scene.dispose # Close the scene
    sscene=PokemonLoad_Scene.new
    sscreen=PokemonLoadScreen.new(sscene)
    sscreen.pbStartDeleteScreen
  end
end

class Scene_Intro
  def initialize(pics)
    @pics=pics
  end

  def main
    Graphics.transition(0)
    @eventscene=IntroEventScene.new(@pics)
    @eventscene.main
    Graphics.freeze
  end
end

def pbCallTitle
  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