Foros de Emudesc

#==============================================================================
# ■ Window_SoundTest
#------------------------------------------------------------------------------
# thanks to ccoa from rmxp.net for the help
# credits to squall@loeher.zzn.com
#==============================================================================
class Window_SoundTest < Window_Selectable
#--------------------------------------------------------------------------
# ● initialize
#--------------------------------------------------------------------------
def initialize()
  super(0, 0, 640, 480)
  refresh
  self.index = 0
  self.active = true
end
#--------------------------------------------------------------------------
# ● sound
#--------------------------------------------------------------------------
def sound
  return @data[self.index]
end
#--------------------------------------------------------------------------
# ● refresh
#--------------------------------------------------------------------------
def refresh
  files = Dir.new("Audio/BGM/").entries
  files[0, 2] = nil
  for i in 0...files.size
 if files[i].include?(".psflib")
   files[i] = nil
   break
 end
  end
  files.compact!
  @item_max = files.size
  if @item_max == 0
 @item_max = 1
  end
  self.contents = Bitmap.new(width - 32, row_max * 32)
  self.contents.font.name = $fontface
  self.contents.font.size = $fontsize
  @data = []
  for i in 0...@item_max
 unless files[i] == nil
   @data.push(files[i])
   files[i].slice!(".mp3")
   files[i].slice!(".mid")
   files[i].slice!(".ogg")
   files[i].slice!(".wma")
   files[i].slice!(".wav")
   files[i].slice!(".psf2")
   files[i].slice!(".minipsf2")
   files[i].slice!(".psf")
   files[i].slice!(".minipsf")
   self.contents.draw_text(0, i * 32, 640, 32, files[i])
 end
  end
end
end

#==============================================================================
# ■ Scene_SoundTest
#==============================================================================

class Scene_SoundTest
#--------------------------------------------------------------------------
# ● main
#--------------------------------------------------------------------------
def main
  $game_system.bgm_memorize
  $game_system.bgm_stop
  @window = Window_SoundTest.new
  Graphics.transition
  loop do
 Graphics.update
 Input.update
 update
 if $scene != self
   break
 end
  end
  Graphics.freeze
  @window.dispose
end
#--------------------------------------------------------------------------
# ● update
#--------------------------------------------------------------------------
def update
  @window.update
  if Input.trigger?(Input::C)
 unless @window.sound == nil
   Audio.bgm_play("Audio/BGM/" + @window.sound, 255, 100)
   if Audio.methods.include?("psf_play")
  Audio.psf_play("Audio/BGM/" + @window.sound, 255)
   end
   return
 end
  end
  if Input.trigger?(Input::B)
 $game_system.se_play($data_system.cancel_se)
 $scene = Scene_Map.new
 $game_system.bgm_stop
 $game_system.bgm_restore
 return
  end
end
end

$scene = Scene_SoundTest.new