ISS-FullAudioPlay

#==============================================================================#
# ISS - Full Audio Play
#==============================================================================#
# Date Created  : 04/23/2011
# Date Modified : 04/23/2011
# Created By    : IceDragon
# For Game      : S.A.R.A
#==============================================================================#
# How this works?
# This will play a given audio file using one of the 4 avaiable audio options
# BGM, play through and loop
# BGS, play through and loop
# ME will mute BGMs while playing, and are one shots
# SE can be called multiple times, and are one shots
#
# // In an event use the following line
# ISS.play_bgm(type, name, vol, pit)
# ISS.play_bgs(type, name, vol, pit)
# ISS.play_me(type, name, vol, pit)
# ISS.play_se(type, name, vol, pit)
#
# type :
# :bgm - Will play then a BGM file
# :bgs - Will play then a BGS file
# :se  - Will play then a SE file
# :me  - Will play then a ME file
#
# name - Filename
# vol  - Volume of the audio file (0-100)
# pitch- Pitch of the Audio File (50-150)
#
# EG
# ISS.play_bgm(:bgs, "Battle1", 90, 100)
# This will play the BGM battle1 using the BGS audio _play
#
# ISS.play_se(:me, "Absorb01", 90, 100)
# This will play the SE Absorb01 using the ME audio _play
#
#==============================================================================#
#==============================================================================#
# ISS
#==============================================================================#
module ISS

  module_function

  #--------------------------------------------------------------------------#
  # * method :play_bgm
  #--------------------------------------------------------------------------#
  def play_bgm(type, name, vol, pit)
    case type
    when :bgm
      a = RPG::BGM.new(name, vol, pit)
    when :bgs
      a = RPG::BGS.new(name, vol, pit)
      a.play_mode = :bgm
    when :me
      a = RPG::ME.new(name, vol, pit)
      a.play_mode = :bgm
    when :se
      a = RPG::SE.new(name, vol, pit)
      a.play_mode = :bgm
    end
    a.play
  end

  #--------------------------------------------------------------------------#
  # * method :play_bgs
  #--------------------------------------------------------------------------#
  def play_bgs(type, name, vol, pit)
    case type
    when :bgm
      a = RPG::BGM.new(name, vol, pit)
      a.play_mode = :bgs
    when :bgs
      a = RPG::BGS.new(name, vol, pit)
    when :me
      a = RPG::ME.new(name, vol, pit)
      a.play_mode = :bgs
    when :se
      a = RPG::SE.new(name, vol, pit)
      a.play_mode = :bgs
    end
    a.play
  end

  #--------------------------------------------------------------------------#
  # * method :play_me
  #--------------------------------------------------------------------------#
  def play_me(type, name, vol, pit)
    case type
    when :bgm
      a = RPG::BGM.new(name, vol, pit)
      a.play_mode = :me
    when :bgs
      a = RPG::BGS.new(name, vol, pit)
      a.play_mode = :me
    when :me
      a = RPG::ME.new(name, vol, pit)
    when :se
      a = RPG::SE.new(name, vol, pit)
      a.play_mode = :me
    end
    a.play
  end

  #--------------------------------------------------------------------------#
  # * method :play_se
  #--------------------------------------------------------------------------#
  def play_se(type, name, vol, pit)
    case type
    when :bgm
      a = RPG::BGM.new(name, vol, pit)
      a.play_mode = :se
    when :bgs
      a = RPG::BGS.new(name, vol, pit)
      a.play_mode = :se
    when :me
      a = RPG::ME.new(name, vol, pit)
      a.play_mode = :se
    when :se
      a = RPG::SE.new(name, vol, pit)
    end
    a.play
  end

end

#==============================================================================#
# RPG
#==============================================================================#
module RPG
#==============================================================================#
# AudioFile
#==============================================================================#
  class AudioFile ; attr_accessor :play_mode end
#==============================================================================#
# BGM
#==============================================================================#
  class BGM
  #--------------------------------------------------------------------------#
  # * alias method :initialize
  #--------------------------------------------------------------------------#
    alias iss_initialize initialize unless $@
    def initialize(*args)
      iss_initialize(*args)
      @play_mode = :bgm
    end
  #--------------------------------------------------------------------------#
  # * overwrite method :play
  #--------------------------------------------------------------------------#
    def play
      if @name.empty?
        Audio.bgm_stop
        @@last = BGM.new
      else
        @play_mode = :bgm if @play_mode.nil?
        case @play_mode
        when :bgm
          Audio.bgm_play("Audio/BGM/" + @name, @volume, @pitch)
        when :bgs
          Audio.bgm_play("Audio/BGS/" + @name, @volume, @pitch)
        when :se
          Audio.bgm_play("Audio/SE/" + @name, @volume, @pitch)
        when :me
          Audio.bgm_play("Audio/ME/" + @name, @volume, @pitch)
        end
        @@last = self
      end
    end

  end
#==============================================================================#
# BGS
#==============================================================================#
  class BGS
  #--------------------------------------------------------------------------#
  # * alias method :initialize
  #--------------------------------------------------------------------------#
    alias iss_initialize initialize unless $@
    def initialize(*args)
      iss_initialize(*args)
      @play_mode = :bgs
    end
  #--------------------------------------------------------------------------#
  # * overwrite method :play
  #--------------------------------------------------------------------------#
    def play
      if @name.empty?
        Audio.bgs_stop
        @@last = BGS.new
      else
        @play_mode = :bgs if @play_mode.nil?
        case @play_mode
        when :bgm
          Audio.bgs_play("Audio/BGM/" + @name, @volume, @pitch)
        when :bgs
          Audio.bgs_play("Audio/BGS/" + @name, @volume, @pitch)
        when :se
          Audio.bgs_play("Audio/SE/" + @name, @volume, @pitch)
        when :me
          Audio.bgs_play("Audio/ME/" + @name, @volume, @pitch)
        end
        @@last = self
      end
    end

  end
#==============================================================================#
# ME
#==============================================================================#
  class ME
  #--------------------------------------------------------------------------#
  # * alias method :initialize
  #--------------------------------------------------------------------------#
    alias iss_initialize initialize unless $@
    def initialize(*args)
      iss_initialize(*args)
      @play_mode = :me
    end
  #--------------------------------------------------------------------------#
  # * overwrite method :play
  #--------------------------------------------------------------------------#
    def play
      if @name.empty?
        Audio.me_stop
      else
        @play_mode = :me if @play_mode.nil?
        case @play_mode
        when :bgm
          Audio.me_play("Audio/BGM/" + @name, @volume, @pitch)
        when :bgs
          Audio.me_play("Audio/BGS/" + @name, @volume, @pitch)
        when :se
          Audio.me_play("Audio/SE/" + @name, @volume, @pitch)
        when :me
          Audio.me_play("Audio/ME/" + @name, @volume, @pitch)
        end
      end
    end

  end
#==============================================================================#
# SE
#==============================================================================#
  class SE
  #--------------------------------------------------------------------------#
  # * alias method :initialize
  #--------------------------------------------------------------------------#
    alias iss_initialize initialize unless $@
    def initialize(*args)
      iss_initialize(*args)
      @play_mode = :se
    end
  #--------------------------------------------------------------------------#
  # * overwrite method :play
  #--------------------------------------------------------------------------#
    def play
      unless @name.empty?
        @play_mode = :se if @play_mode.nil?
        case @play_mode
        when :bgm
          Audio.se_play("Audio/BGM/" + @name, @volume, @pitch)
        when :bgs
          Audio.se_play("Audio/BGS/" + @name, @volume, @pitch)
        when :se
          Audio.se_play("Audio/SE/" + @name, @volume, @pitch)
        when :me
          Audio.se_play("Audio/ME/" + @name, @volume, @pitch)
        end
      end
    end

  end

end
#=*==========================================================================*=#
# ** END OF FILE
#=*==========================================================================*=#