[VX] Title ScreenZ 1.1

#==============================================================================
# ** Title ScreenZ 1.1
#------------------------------------------------------------------------------
#  Script ini digunakan untuk mengedit Title Screen game kalian, misalnya
#  mengacak banyak gambar lalu memilih satu gambar untuk dijadikan gambar
#  Title Screen dan mengacak banyak BGM lalu memilih satu BGM untuk dijadikan
#  BGM Title Screen.
#
#  Developer : Arpib.Z.Zaszi
#
#------------------------------------------------------------------------------
# Change Logs :
# -----------------------------------------------------------------------------
#  Version 1.0 (09 Juli 2015):
#   - Pembuatan Script TitleScreenZ
#
#  Version 1.1 (10 Juli 2015):
#   - Penambahan Script Random BGM Title Screen
#==============================================================================

module TitleScreenZ
  # Daftar nama file gambar yang ada di folder ../Graphics/System/
  Images = ["Images1", "Images2", "Images3", "Images4", "Images5"]
  
  # Daftar nama file bgm yang ada di folder ../Audio/BGM/
  BGM = ["BGM1", "BGM2", "BGM3", "BGM4", "BGM5"]
end

class Scene_Title
  #--------------------------------------------------------------------------
  # * Proses Random Gambar Title Screen
  #--------------------------------------------------------------------------
 def center_sprite(sprite)
    sprite.ox = sprite.bitmap.width / 2
    sprite.oy = sprite.bitmap.height / 2
    sprite.x = Graphics.width / 2
    sprite.y = Graphics.height / 2
  end
 
  def create_title_graphic
    @sprite = Sprite.new
    $RandomImagesTitleScreen = TitleScreenZ::Images[rand(TitleScreenZ::Images.size)]
    @sprite.bitmap = Cache.system($RandomImagesTitleScreen)
    center_sprite(@sprite)
  end
  
  #--------------------------------------------------------------------------
  # * Proses Random BGM Title Screen
  #--------------------------------------------------------------------------
  def play_title_music
    $RandomBGMTitleScreen = TitleScreenZ::BGM[rand(TitleScreenZ::BGM.size)]
    Audio.bgm_play("Audio/BGM/" + $RandomBGMTitleScreen)
    RPG::BGS.stop
    RPG::ME.stop
  end
end