RGSS3 Nút Vặn Âm Thanh F6

#==============================================================================
# ■ RGSS3 Nút Vặn Âm Thanh F6
#------------------------------------------------------------------------------
# ゲーム内でBGM・BGS・ME・SEの音量を
# プレイヤーの手で変更する事が出来るようになります。
#
# プレイ中、F6キーを押す事で音量調節用画面を呼び出せます。
# 呼び出しに使用するキーは変更する事が出来ます。
#
# Ver1.01  BGS・SEの音量処理が不適切だった不具合を修正しました。
#
# Ver1.02  bitmapの解放し忘れを修正しました。
#
# Ver1.02X 新たに音量データを格納したVolumeファイルを生成するようになります。
#          タイトル画面を含むゲーム中のあらゆる場面で呼び出せるようになると共に
#          全てのセーブデータの音量調節を一元管理するようになりました。
#
# Ver1.03  データ一元管理版と統合し、いくつかの処理を見直しました。
#==============================================================================
module Sound_Control

  #音量調節タイプを設定して下さい。
  #0の場合、全セーブデータ共通。
  #1の場合、セーブデータ個別。

  TYPE    = 0

  #全セーブデータ共通とする場合の音量保存用ファイル名を指定します。

  NAME    = "Volume.rvdata2"

  #空の配列を作成。

  SNAME   = []

  #BGMの表示名称を指定します。

  SNAME[0]   = "BGM"

  #BGSの表示名称を指定します。

  SNAME[1]   = "BGS"

  #MEの表示名称を指定します。

  SNAME[2]   = "ME"

  #SEの表示名称を指定します。

  SNAME[3]   = "SE"

  #空の配列を作成。

  DEF_VOL = []

  #各初期音量を指定します。
  #音量調節タイプがセーブデータ個別の場合
  #タイトル画面とテスト戦闘の音量は毎回初期化されます。

  #BGMの初期音量を指定。

  DEF_VOL[0] = 40

  #BGSの初期音量を指定。

  DEF_VOL[1] = 40

  #MEの初期音量を指定。

  DEF_VOL[2] = 40

  #SEの初期音量を指定。

  DEF_VOL[3] = 40

  #音量調節画面呼び出し用キーを指定して下さい。
  #なお、本来は変更する必要はありません。

  KEY = :F6

  #カーソルの飾り文字を指定します。
  #デフォルトでは全角二文字もしくは半角四文字までが推奨文字数です。
  #なお、変更する必要はありません。
  #不要な場合はそれぞれ""に変えて下さい

  #前

  CURSOR_1 = "★☆"

  #後

  CURSOR_2 = "☆★"

  #説明文の内容を設定します。
  #デフォルトでは音量調節画面の使用方法が記載されています。

  #見出しとして表示するテキスト。（大きく表示されます）

  TITLE = "- Điều Chỉnh Âm Thanh -"

  #左下・右下に表示するテキストを数値に応じて更に下の方に移動させます。
  #解像度を640×480に拡張している場合は、この値を32に設定すると
  #ちょうどいいかもしれません。

  Y_PLUS = 0

  #左下に表示するテキスト用配列を用意します。

  LTEXT = []

  #左下に表示するテキストを指定順に記述します。

  LTEXT[0] = "♪Nhấn Phím ▲ : Duy Chuyển Lên"
  LTEXT[1] = "♪Nhấn Phím ▼ : Duy Chuyển Xuống"
  LTEXT[2] = "♪Nhấn Phím ► : Âm Lượng +1"
  LTEXT[3] = "♪Nhấn Phím ◄ : Âm Lượng -1"
  LTEXT[4] = "♪Shift + ► : Âm Lượng +5"
  LTEXT[5] = "♪Shift + ◄ : Âm Lượng -5"
  LTEXT[6] = "♪Ctrl: Trở Về Mặc Định"

  #右下に表示するテキスト用配列を用意します。

  RTEXT = []

  #左下に表示するテキストを指定順に記述します。

  RTEXT[0] = "♪Xác nhận Nút (Z): Thoát"
  RTEXT[1] = "♪Bỏ Chọn Nút (X): Thoát"
  RTEXT[2] = ""
  RTEXT[3] = "♪F6: Tắt Tiếng"
  RTEXT[4] = "♪F7: Bật Tối Đa"
  RTEXT[5] = "♪F8: Tắt Tiếng Hết"
  RTEXT[6] = "♪F9: Bật Tối Đa Hết"

end
class Scene_Base
  #--------------------------------------------------------------------------
  # 更新
  #--------------------------------------------------------------------------
  alias update_sound_control update
  def update
    update_sound_control
    sound_control_execute if Input.trigger?(Sound_Control::KEY)
  end
  #--------------------------------------------------------------------------
  # 音量調節画面の背景を作成
  #--------------------------------------------------------------------------
  def create_sound_control_back_sprite(color)
    @back_sprite = Sprite.new
    @back_sprite.bitmap = Bitmap.new(Graphics.width, Graphics.height)
    @back_sprite.x = (Graphics.width - @back_sprite.width) / 2
    @back_sprite.y = (Graphics.height - @back_sprite.height) / 2
    @back_sprite.z = 10000
    @back_sprite.bitmap.fill_rect(@back_sprite.bitmap.rect, color)
  end
  #--------------------------------------------------------------------------
  # 音量調節カーソルを作成
  #--------------------------------------------------------------------------
  def create_sound_control_cursor(h)
    @big_cursor = Sprite.new
    @big_cursor.bitmap = Bitmap.new(350, 24)
    color = Color.new(255, 255, 255, 50)
    @big_cursor.bitmap.fill_rect(@big_cursor.bitmap.rect, color)
    @big_cursor.bitmap.draw_text(@big_cursor.bitmap.rect,
    Sound_Control::CURSOR_1, 0)
    @big_cursor.bitmap.draw_text(@big_cursor.bitmap.rect,
    Sound_Control::CURSOR_2, 2)
    @big_cursor.x = (@back_sprite.width - @big_cursor.width) / 2
    @big_cursor.y = @back_sprite.y + h * 3
    @big_cursor.z = @back_sprite.z + 1
  end
  #--------------------------------------------------------------------------
  # 音量調節用テキストを作成
  #--------------------------------------------------------------------------
  def create_sound_control_text(h)
    @back_sprite.bitmap.font.size = 32
    @back_sprite.bitmap.draw_text(0, 24,
    @back_sprite.width, @back_sprite.bitmap.font.size, Sound_Control::TITLE, 1)
    @back_sprite.bitmap.font.size = 20
    Sound_Control::LTEXT.each_with_index {|text, i|
    @back_sprite.bitmap.draw_text(12,   h * (i + 10) + Sound_Control::Y_PLUS,
    @back_sprite.width, 24, text, 0)
    }
    Sound_Control::RTEXT.each_with_index {|text, i|
    @back_sprite.bitmap.draw_text(@back_sprite.bitmap.width / 2 + 12,
    h * (i + 10) + Sound_Control::Y_PLUS, @back_sprite.width, 24, text, 0)
    }
    @back_sprite.bitmap.font.size = 24
    4.times {|i| @back_sprite.bitmap.draw_text(
    @big_cursor.x + 48, h * (i * 2 + 3), 40, 24, Sound_Control::SNAME[i], 2)}
  end
  #--------------------------------------------------------------------------
  # 音量調節ゲージを作成
  #--------------------------------------------------------------------------
  def create_sound_control_gauge(h)
    @gauge_sprite = []
    color = []
    color.push(Color.new(128, 0, 0))
    color.push(Color.new(255, 128, 128))
    color.push(Color.new(0, 0, 128))
    color.push(Color.new(128, 128, 255))
    color.push(Color.new(128, 128, 0))
    color.push(Color.new(255, 255, 128))
    color.push(Color.new(0, 128, 0))
    color.push(Color.new(128, 255, 128))
    color.push(Color.new(32, 0, 0))
    color.push(Color.new(0, 0, 32))
    color.push(Color.new(32, 32, 0))
    color.push(Color.new(0, 32, 0))
    color.push(Color.new(64, 0, 0))
    color.push(Color.new(0, 0, 64))
    color.push(Color.new(64, 64, 0))
    color.push(Color.new(0, 64, 0))
    color.push(Color.new(128, 64, 64))
    color.push(Color.new(64, 64, 128))
    color.push(Color.new(128, 128, 64))
    color.push(Color.new(64, 128, 64))
    4.times {|i|
    @gauge_sprite.push(Sprite.new)
    @gauge_sprite[i].bitmap = Bitmap.new(120, 12)
    @gauge_sprite[i].bitmap.gradient_fill_rect(
    @gauge_sprite[i].bitmap.rect, color[i * 2], color[i * 2 + 1])
    @gauge_sprite[i].x = (@back_sprite.x + @back_sprite.width - @gauge_sprite[i].bitmap.width) / 2
    @gauge_sprite[i].y = @back_sprite.y + h * (i * 2 + 3) + 6
    @gauge_sprite[i].z = @back_sprite.z + 2
    }
    4.times {|i|
    @gauge_sprite.push(Sprite.new)
    @gauge_sprite[i + 4].bitmap = Bitmap.new(120, 12)
    @gauge_sprite[i + 4].bitmap.fill_rect(@gauge_sprite[i + 4].bitmap.rect, color[i + 8])
    @gauge_sprite[i + 4].x = @gauge_sprite[i].x + @gauge_sprite[i].width - (@gauge_sprite[i].width * (100 - $game_system.m_v[i]) / 100.0).truncate
    @gauge_sprite[i + 4].y = @back_sprite.y + h * (i * 2 + 3) + 6
    @gauge_sprite[i + 4].z = @back_sprite.z + 3
    @gauge_sprite[i + 4].zoom_x = (100 - $game_system.m_v[i]) / 100.0
    }
    4.times {|i|
    @gauge_sprite.push(Sprite.new)
    @gauge_sprite[i + 8].bitmap = Bitmap.new(124, 16)
    @gauge_sprite[i + 8].bitmap.gradient_fill_rect(
    @gauge_sprite[i + 8].bitmap.rect, color[i + 12], color[i + 16])
    @gauge_sprite[i + 8].x = @gauge_sprite[i].x - 2
    @gauge_sprite[i + 8].y = @back_sprite.y + h * (i * 2 + 3) + 4
    @gauge_sprite[i + 8].z = @back_sprite.z + 1
    }
  end
  #--------------------------------------------------------------------------
  # 音量調節ゲージの更新
  #--------------------------------------------------------------------------
  def sound_control_gauge_text_update(number, h, color)
    @back_sprite.bitmap.clear_rect(
    @big_cursor.x + @big_cursor.width - 116, h * (number * 2 + 3), 64, 24)
    @back_sprite.bitmap.fill_rect(
    @big_cursor.x + @big_cursor.width - 116, h * (number * 2 + 3), 64, 24, color)
    @back_sprite.bitmap.draw_text(
    @big_cursor.x + @big_cursor.width - 116, h * (number * 2 + 3), 64, 24, $game_system.m_v[number], 2)
    @gauge_sprite[number + 4].x = @gauge_sprite[number].x + @gauge_sprite[number].width - (@gauge_sprite[number].width * (100 - $game_system.m_v[number]) / 100.0).truncate
    @gauge_sprite[number + 4].zoom_x = (100 - $game_system.m_v[number]) / 100.0
    case number
    when 0;RPG::BGM::last.play
    when 1;RPG::BGS::last.play
    end
  end
  #--------------------------------------------------------------------------
  # 音量調節の実行
  #--------------------------------------------------------------------------
  def sound_control_execute
    Sound.play_ok
    color = Color.new(0, 0, 10, 200)
    create_sound_control_back_sprite(color)
    h = 24
    create_sound_control_cursor(h)
    create_sound_control_text(h)
    create_sound_control_gauge(h)
    4.times {|i| @back_sprite.bitmap.draw_text(@big_cursor.x + @big_cursor.width - 116, h * (i * 2 + 3), 64, 24, $game_system.m_v[i], 2)}
    data_index = 0
    loop do
      Graphics.update
      Input.update
      Graphics.frame_count -= 1
      if Input.trigger?(Input::UP)
        Sound.play_cursor
        data_index -= 1
        data_index = 3 if data_index < 0
        @big_cursor.y = @back_sprite.y + h * (data_index * 2 + 3)
      elsif Input.trigger?(Input::DOWN)
        Sound.play_cursor
        data_index += 1
        data_index = 0 if data_index > 3
        @big_cursor.y = @back_sprite.y + h * (data_index * 2 + 3)
      elsif Input.trigger?(Input::LEFT) or Input.repeat?(Input::LEFT)
        predata = $game_system.m_v[data_index]
        data = 1 * (Input.press?(Input::A) ? 5 : 1)
        $game_system.m_v[data_index] = [[$game_system.m_v[data_index] - data, 100].min, 0].max
        sound_control_gauge_text_update(data_index, h, color)
        Sound.play_cursor if predata != $game_system.m_v[data_index]
      elsif Input.trigger?(Input::RIGHT) or Input.repeat?(Input::RIGHT)
        predata = $game_system.m_v[data_index]
        data = 1 * (Input.press?(Input::A) ? 5 : 1)
        $game_system.m_v[data_index] = [[$game_system.m_v[data_index] + data, 100].min, 0].max
        sound_control_gauge_text_update(data_index, h, color)
        Sound.play_cursor if predata != $game_system.m_v[data_index]
      elsif Input.trigger?(:CTRL)
        predata = $game_system.m_v
        $game_system.m_v = Sound_Control::DEF_VOL.clone
        4.times {|i| sound_control_gauge_text_update(i, h, color)}
        Sound.play_cursor if predata != $game_system.m_v
      elsif Input.trigger?(Input::F6)
        predata = $game_system.m_v[data_index]
        $game_system.m_v[data_index] = 0
        sound_control_gauge_text_update(data_index, h, color)
        Sound.play_cursor if predata != $game_system.m_v[data_index]
      elsif Input.trigger?(Input::F7)
        predata = $game_system.m_v[data_index]
        $game_system.m_v[data_index] = 100
        sound_control_gauge_text_update(data_index, h, color)
        Sound.play_cursor if predata != $game_system.m_v[data_index]
      elsif Input.trigger?(Input::F8)
        predata = $game_system.m_v
        4.times {|i|
        $game_system.m_v[i] = 0
        sound_control_gauge_text_update(i, h, color)
        }
        Sound.play_cursor if predata != $game_system.m_v
      elsif Input.trigger?(Input::F9)
        predata = $game_system.m_v
        4.times {|i|
        $game_system.m_v[i] = 100
        sound_control_gauge_text_update(i, h, color)
        }
        Sound.play_cursor if predata != $game_system.m_v
      elsif Input.trigger?(Input::B) or Input.trigger?(Input::C)
        $game_system.vd_save
        break
      end
      @big_cursor.update
      @back_sprite.update
      12.times {|i| @gauge_sprite[i].update}
    end
    Sound.play_cancel
    @back_sprite.bitmap.dispose;@back_sprite.dispose
    @big_cursor.bitmap.dispose;@big_cursor.dispose
    12.times {|i| @gauge_sprite[i].bitmap.dispose;@gauge_sprite[i].dispose}
  end
end
class << DataManager
  #--------------------------------------------------------------------------
  # セーブデータの展開
  #--------------------------------------------------------------------------
  alias extract_save_contents_first_volume extract_save_contents
  def extract_save_contents(contents)
    extract_save_contents_first_volume(contents)
    $game_system.m_v = $game_system.m_v_make if Sound_Control::TYPE == 0
  end
end
class Game_System
  attr_accessor :m_v
  #--------------------------------------------------------------------------
  # 音量データの作成
  #--------------------------------------------------------------------------
  def m_v_make
    case Sound_Control::TYPE
    when 0;Dir.glob(Sound_Control::NAME).empty? ? vd_save : vd_load
    when 1;@m_v = Sound_Control::DEF_VOL.clone
    end
  end
  #--------------------------------------------------------------------------
  # 音量データのセーブ
  #--------------------------------------------------------------------------
  def vd_save
    @m_v = Sound_Control::DEF_VOL.clone if @m_v == nil
    save_data(@m_v,Sound_Control::NAME) if Sound_Control::TYPE == 0
  end
  #--------------------------------------------------------------------------
  # 音量データのロード
  #--------------------------------------------------------------------------
  def vd_load
    @m_v = load_data(Sound_Control::NAME)
  end
end
class RPG::AudioFile
  #--------------------------------------------------------------------------
  # BGMの初期化
  #--------------------------------------------------------------------------
  alias initialize_sound_control initialize unless $!
  def initialize(name = '', volume = 100, pitch = 100)
    initialize_sound_control(name, volume, pitch)
    @true_volume = @volume
    sound_control
  end
  def true_volume
    @true_volume = @volume unless @true_volume
    return @true_volume
  end
  def sound_control
    @volume = true_volume * master_volume * 1.00 / 100
  end
  def master_volume
    $game_system.m_v_make unless $game_system.m_v
    return $game_system.m_v[0] if self.is_a?(RPG::BGM)
    return $game_system.m_v[1] if self.is_a?(RPG::BGS)
    return $game_system.m_v[2] if self.is_a?(RPG::ME)
    return $game_system.m_v[3] if self.is_a?(RPG::SE)
  end
end
class RPG::BGM < RPG::AudioFile
  alias play_sc play unless $!
  def play(pos = 0)
    sound_control
    play_sc(pos)
  end
end
class RPG::BGS < RPG::AudioFile
  alias play_sc play unless $!
  def play(pos = 0)
    sound_control
    play_sc(pos)
  end
end
class RPG::ME < RPG::AudioFile
  alias play_sc play unless $!
  def play
    sound_control
    play_sc
  end
end
class RPG::SE < RPG::AudioFile
  alias play_sc play unless $!
  def play
    sound_control
    play_sc
  end
end