#========================================================================#
#  #*****************#            MP3 Musical 1.0 Falcao script Permite  #
#  #*** By Falcao ***#            tener un reproductor musical para      #
#  #*****************#            escuchar diferentes musicas segun      #
#        RMXP                    los gustos                            #
# makerpalace.onlinegoo.com      Date 12/22/2009                        #
#========================================================================#

#------------------------------------------------------------------------
# * Instrucciones
#
# Solo copiar y pegar el script encima de main, no se requiere de
# alguna imagen en especial
#
# Para llamar el script basta con pulsar tecla 'ALT' pero puede ser llamado
# manualmente con el siguiente comando  $scene = Scene_Song.new
#
# Para agregar una musica a la lista de reproduccion usar el siguiente
# comando
#
# Songs.add(X)      En vez de X poner el ID de musica a agregar
#                  Ejemplo:  Songs.add(1) agrega id  1
#
# Comandos opcionales usados desde el comando script del evento
#
# $game_system.fplaying = true  Al cambiar a otro mapa el reproductor
#                                continua sonando, cambiar true o false
#                                no abusar de su uso en true
#
# Licensia: Puede ser usado en juego no comerciales, para usarlo en juegos
#          comerciales favor de contactarme
#-------------------------------------------------------------------------

module Songs
 
  # Listas de reproduccion, para agregar mas seguir la secuencia de IDs
  Pistas = {
 
  #ID    Musica        Nombre            Autor            Genero
  1=> ["Airship",    "Dragon song",    "Enterbrain",    "Pop"],
  2=> ["Scene6",      "Soul Balad",      "Enterbrain",    "Romantica"],
  3=> ["Town1",      "Villa Pinguino",  "Enterbrain",    "Baladada"],
  4=> ["Battle1",    "Monte Falcao",    "Enterbrain",    "Jazz"],
  5=> ["Field3",      "Valery Field",    "Enterbrain",    "Pop Rock"],
 
  }
 
  # Incluir los siguientes ID de musicas por defecto
  Default_list = [1, 2]
 
  # Color del reproductor visual, escoger entre uno de los siguientes
  # 1 = Normal,  2 = Naranja,  3 = Amarillo oro
  # 4 = Verde,    5 = Violeta  4 = Rojo
  PlayerColor = 1
 
  # Tecla para llamar el script
  Call_script = Input::ALT
 
  # Evitar llamar el script con la tecla especificada
  Disable_Call = false
 
  # Vacabulario general
  Total    =  "Total"
  None    =  "None"
  Command  =  "A = Parar"
  Apply    =  "Aplicar"
  Title    =  "Titulo"
  Author  =  "Autor"
  Genre    =  "Genero"
 
  Pistas.each do |id, value|
    value.push(id)
  end
 
  def self.add(song_id)
    unless $game_system.fsong.include?(song_id)
      $game_system.fsong.push(song_id)
    end
  end
end

#--------------------------------------------------------------------------
# * Game_System, initialize aliased
#--------------------------------------------------------------------------
class Game_System
  attr_accessor :fsong
  attr_accessor :fplaying
  alias falcaosond_ini initialize
  def initialize
    falcaosond_ini
    @fsong = Songs::Default_list
    @fplaying = false
  end
end

#--------------------------------------------------------------------------
# * Lista de musicas
#--------------------------------------------------------------------------
class Song_indice < Window_Selectable
  def initialize
    super(42, 155, 164, 170)
    @column_max = 1
    refresh
    self.index = 0
  end
 
  def song
    return @data[self.index]
  end
 
  def refresh
    return if $game_system.fsong.empty?
    if self.contents != nil
      self.contents.dispose
      self.contents = nil
    end
    @data = []
    for i in Songs::Pistas.values
      if $game_system.fsong.include?(i[4])
        @data.push(i)
      end
    end
    @item_max = @data.size
    if @item_max > 0
      self.contents = Bitmap.new(width - 32, row_max * 26)
      for i in 0...@item_max
        draw_item(i)
      end
    end
  end
 
  def draw_item(index)
    song_data = @data[index]
    self.contents.font.color = normal_color
    x, y = 4, index * 24
    rect = Rect.new(x, y, self.width / @column_max - 32, 32)
    self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
    contents.draw_text(x, y, 212, 24, song_data[1])
  end
end

#--------------------------------------------------------------------------
# * Informacion de cada cansion
#--------------------------------------------------------------------------
class Song_Info < Window_Base
  def initialize
    super(204, 155, 302, 170)
  end
 
  def refresh(song)
    self.contents.clear
    if $game_system.fsong.include?(song[4])
      draw_song_info(song)
    end
  end
 
  def draw_song_info(song)
    Songs::Pistas.each do |id, value|
      if id == song[4]
        self.contents.draw_text(0, 0, self.width, 32,
        "#{Songs::Title}  #{value[1]}")
        self.contents.draw_text(0, 30, self.width, 32,
        "#{Songs::Author}    #{value[2]}")
        self.contents.draw_text(0, 60, self.width, 32,
        "#{Songs::Genre}  #{value[3]}")
      end
    end
  end
end

#--------------------------------------------------------------------------
# * Reproductor visual
#--------------------------------------------------------------------------
class Sprite_Waves < Sprite_Base
  include Songs
  def initialize(viewport, cx, cy)
    super(viewport)
    self.bitmap = Bitmap.new(302,200)
    self.x = cx + 235
    self.y = cy + 270
    self.angle = 180
    @color = [nil, Color.new(180,225,245), Color.new(255, 120, 0, 255),
    Color.new(220, 220, 70, 255), Color.new(128, 255, 128, 255),
    Color.new(130, 0, 130, 255), Color.new(255, 0, 0, 255)]
    @time_count = 0
    draw_waves(20, 120, true)
    update
  end
 
  def update
    super
    @time_count += 1
    case @time_count
    when 4
      self.bitmap.clear
      for song in Songs::Pistas.values
        if song[0] == RPG::BGM.last.name
          $falplaying = true
        end
      end
      $falplaying ? draw_waves(20, 120) : draw_waves(20, 120, true)
    when 8
      @time_count = 0
    end
  end
 
  def draw_waves(x, y, ini=false)
    fx = 0
    for i in 1...100
      fx += 2
      !ini ? self.bitmap.fill_rect(x+fx, y, 1, rand(40), @color[PlayerColor]) :
      self.bitmap.fill_rect(x+fx, y, 1, 4, @color[PlayerColor])
    end
  end
end

#--------------------------------------------------------------------------
# * Multi ventanas, total, info, preg
#--------------------------------------------------------------------------
class Up_windows < Window_Base
  include Songs
  def initialize(x=0,y=0, ancho=164, alto=56)
    super(x, y, ancho, alto)
  end

  def total
    self.contents.clear
    text = "#{Total}:  #{$game_system.fsong.size}"
    self.contents.draw_text(0, -2, self.width, 32, text)
  end
 
  def info
    self.contents.clear
    self.contents.font.size = 20
    nada = false
    for song in Songs::Pistas.values
      if song[0] == RPG::BGM.last.name
        self.contents.draw_text(0, -2, self.width, 32, "♪ #{song[1]}")
        nada = false
        break
      else
        nada = true
      end
    end
    self.contents.draw_text(0, -2, self.width, 32, "♪ #{None}") if nada
    self.contents.font.size = 16
    self.contents.draw_text(-40, -2, self.width, 32, Command,2)
  end
 
  def preg
    self.contents.clear
    self.contents.draw_text(0, -2, self.width, 32, "#{Apply}  ♪")
  end
end

#--------------------------------------------------------------------------
# * Scene_Song
#--------------------------------------------------------------------------
class Scene_Song < Scene_Base
  def start
    super
    create_menu_background
    $game_temp.map_bgm = RPG::BGM.last
    $game_temp.map_bgs = RPG::BGS.last
    @viewport1 = Viewport.new(0, 0, 544, 416)
    @viewport1.z = 101
    @indice_song = Song_indice.new
    @info_song = Song_Info.new
    @total_window = Up_windows.new(42,100)
    @total_window.total
    @info_window = Up_windows.new(204,100, 302, 56)
    @info_window.info
    @waves = Sprite_Waves.new(@viewport1, @info_song.x, @info_song.y)
    @marco = Up_windows.new(204,156,171, 171)
    @marco.z = 102
    @marco.visible = false
    @pregunta = Up_windows.new(204,156,171)
    @pregunta.z = 102
    @pregunta.preg
    @pregunta.visible = false
    $falplaying = false
    if !$game_system.fsong.empty?
      @info_song.refresh(@indice_song.song)
    end
    $game_system.fsong.empty? ? @waves.visible = false : @waves.visible = true
    s1 = "Si"
    s2 = "No"
    s3 = "Cancelar"
    @command_window = Window_Command.new(172, [s1, s2, s3])
    @command_window.x = 204
    @command_window.y = 211
    @command_window.z = 103
    @command_window.height = 115
    @command_window.visible = false
    @command_window.active = false
  end
 
  def terminate
    super
    @indice_song.dispose
    @info_song.dispose
    @waves.dispose
    @viewport1.dispose
    @total_window.dispose
    @info_window.dispose
    @command_window.dispose
    @pregunta.dispose
    @marco.dispose
  end
 
  def update
    super
    @indice_song.update
    @waves.update
    @command_window.update
    if !$game_system.fsong.empty?
      @info_song.refresh(@indice_song.song)
    end
    update_Selection
    update_commands
    if Input.trigger?(Input::B)
      Sound.play_cancel
      if $falplaying and !@command_window.visible
        @command_window.index = 0
        @command_window.visible = true
        @command_window.active = true
        @indice_song.active = false
        @pregunta.visible = true
        @marco.visible = true
      elsif @command_window.visible
        cancelar
      else
        salir
      end
    end
  end
 
  def update_Selection
    return if $game_system.fsong.empty? or @command_window.visible
    if Input.trigger?(Input::C)
      Sound.play_decision
      $falplaying = true
      RPG::BGM.new(@indice_song.song[0]).play
      @info_window.info
    end
    if Input.trigger?(Input::X)
      RPG::BGM.stop
      $falplaying = false
    end
  end
 
  def salir
    if !$falplaying
      $game_temp.map_bgm.play
      $game_temp.map_bgs.play
    end
    $scene = Scene_Map.new
    return
  end
 
  def update_commands
    return if !@command_window.visible
    if Input.trigger?(Input::C)
      Sound.play_decision
      case @command_window.index
      when 0; salir
      when 1; $falplaying = false; salir
      when 2; cancelar
      end
    end
  end
 
  def cancelar
    @command_window.visible = false
    @command_window.active = false
    @indice_song.active = true
    @pregunta.visible = false
    @marco.visible = false
  end
end

#--------------------------------------------------------------------------
# * Fuente
#--------------------------------------------------------------------------
class Font
  alias falcaoBest5_font initialize
  def initialize
    falcaoBest5_font
    if $scene.is_a?(Scene_Song)
      self.name = "Georgia"
      self.size = 20
    end
  end
end 

#--------------------------------------------------------------------------
# * Game_Map, autoplay aliased
#--------------------------------------------------------------------------
class Game_Map
  alias falcao13_autoplay autoplay
  def autoplay
    return if $game_system.fplaying
    falcao13_autoplay
  end
end

#--------------------------------------------------------------------------
# * Scene_Map, update aliased
#--------------------------------------------------------------------------
class Scene_Map
  alias falcao99_update update
  def update
    if Input.trigger?(Songs::Call_script) and !Songs::Disable_Call
      $scene = Scene_Song.new
      return
    end
    falcao99_update
  end
end