=begin

===============================================================================

  危急时切换BGM By喵呜喵5

===============================================================================

【说明】

  战斗中队伍总HP小于一定比率时自动切换战斗BGM

=end

$m5script = {} if $m5script.nil?

$m5script["M5ChanBgm"] = true

module M5ChanBgm

#==============================================================================

#  设定部分

#==============================================================================

  

  DANGER = 50

  

  #这里设置HP的比率，当队伍的HP总百分比小于这个比率时切换BGM

  

  

  BGM = "battle7"

  

  #这里设置切换的BGM

  

  

#==============================================================================

#  设定结束

#==============================================================================

end

class Game_Troop

  def m5_20140320_change_bgm

    hp = mhp = 0

    @pos = 0 if !@pos

    @danger = false if @danger == nil

    $game_party.battle_members.each do |actor|

      hp += actor.hp

      mhp += actor.mhp

    end

    if hp.to_f / mhp < (M5ChanBgm::DANGER * 0.01)

      if !@danger

        @pos = Audio.bgm_pos

        Audio.bgm_play("Audio/BGM/"+M5ChanBgm::BGM)

        @danger = true

      end

    else

      if @danger

        $game_system.battle_bgm.play(@pos)

        @danger = false

      end

    end

  end

  alias m5_20140320_setup_battle_event setup_battle_event

  def setup_battle_event

    m5_20140320_change_bgm

    m5_20140320_setup_battle_event

  end

  def m5_20140320_end

    @danger = false

  end

end

class Scene_Battle

  alias m5_20140320_pre_terminate pre_terminate

  def pre_terminate

    $game_troop.m5_20140320_end

    m5_20140320_pre_terminate    

  end

end