GuruGuruSMFモジュール

GuruGuruSMFモジュール

コンセプト	ツクール200xみたくmidiマッパーでmidiファイルを再生する
挿入位置	▼ 素材」に近い位置に挿入。
完成すると	midiマッパー設定の音源でツクールVXのBGM・MEを再生する。
更新履歴

timidity++導入解説はこちら

　　★　概要　★

　・http://gurugurusmf.migmig.net/にあるguruguruSMF4.dllを使用した
　　midiマッパーによるPC内蔵midi音源でのmidi再生スクリプトです。
　・guruguruSMF4.dllをゲームプロジェクトフォルダへ入れてください。
　・DirectMusic Synthesizerというツクール純正の音源以外を
　　使いたいという人向けのものです。
　・強制終了した場合は、音源ソフトのほうで「リセット」すると
　　音が間延びした症状を解消出来ます。
　・ポートは1つしかないので、BGMとME同時再生はできません。
　　MEを優先的に処理しています。
　・WindowsVista以降のOSの人はmidiマッパー変更ソフトなどを
　　導入してtimidity++を入れるなどしてmidi音源を変更して下さい。
　　純正であるMSGSでこのスクリプトを実行する意味はありませんので。
　・RTPのファイルもレジストリによるインストールパス取得で演奏します。

　　★　機能　★

　・GAME_MIDI_FIX を true にするとゲーム起動時から外部音源動作になります。
　・GAME_MIDI_FIX を false MIDISOUND_SWITCH の番号のスイッチがONの場合
　　外部音源動作になります。
　　プレイヤー側で音源設定ができるようになります。
　・イベントコマンド「スクリプト」にて「GuruGuruモジュール」の
　　メソッドが使用出来ます。
　　ただし、イベントコマンドでBGMないしMEを演奏することを推奨します。

　　★　イベントスクリプト機能(一部)　★
　・play_bgm(filename,volume,pitch)
　・play_me(filename,volume,pitch)
　・stop_bgm(fade_time) * フェードアウトして停止する時間(ミリ秒：1000で1秒)
　・stop_me(fade_time) * フェードアウトして停止する時間(ミリ秒：1000で1秒)
　・pause_midi　　* コマンド後、他のBGMを再生しないこと
　・restart_midi　* pause後、他のBGMを再生せずに実行すること。
　・playing_me?　 * ME再生中かどうか？

#==============================================================================
#    ☆VXAce RGSS3 「GuruGuruSMFモジュール」☆
#　　　　　　EnDlEss DREamER
#     URL:http://mitsu-evo.6.ql.bz/
#     製作者 mitsu-evo
#     Last:2013/3/10
#　　 GuruGuruSMFを使ったmidi再生モジュール。
#     ▼ 「▼ 素材」に近い位置に挿入。
#==============================================================================
$ed_rgss3 = {} if $ed_rgss3 == nil
$ed_rgss3["ed_guruguru_module"] = true

=begin

★　概要　★

・http://gurugurusmf.migmig.net/にあるguruguruSMF4.dllを使用した
　　midiマッパーによるPC内蔵midi音源でのmidi再生スクリプトです。
　・DirectMusic Synthesizerというツクール純正の音源以外を
　　使いたいという人向けのものです。
　・強制終了した場合は、音源ソフトのほうで「リセット」すると
　　音が間延びした症状を解消出来ます。
　・ポートは1つしかないので、BGMとME同時再生はできません。
　　MEを優先的に処理しています。
　・WindowsVista以降のOSの人はmidiマッパー変更ソフトなどを
　　導入してtimidity++を入れるなどしてmidi音源を変更して下さい。
　　純正であるMSGSでこのスクリプトを実行する意味はありませんので。
　・RTPのファイルもレジストリによるインストールパス取得で演奏します。

★　機能　★

・GAME_MIDI_FIX を true にするとゲーム起動時から外部音源動作になります。
　・GAME_MIDI_FIX を false  MIDISOUND_SWITCH の番号のスイッチがONの場合
　　外部音源動作になります。
　　プレイヤー側で音源設定ができるようになります。
　・イベントコマンド「スクリプト」にて「GuruGuruモジュール」の
　　メソッドが使用出来ます。
　　ただし、イベントコマンドでBGMないしMEを演奏することを推奨します。

★　イベントスクリプト機能(一部)　★

・play_bgm(filename,volume,pitch)
　・play_me(filename,volume,pitch)
　・stop_bgm(fade_time) * フェードアウトして停止する時間(ミリ秒：1000で1秒)
　・stop_me(fade_time)  * フェードアウトして停止する時間(ミリ秒：1000で1秒)
　・pause_midi　　* コマンド後、他のBGMを再生しないこと
　・restart_midi　* pause後、他のBGMを再生せずに実行すること。
　・playing_me?　 * ME再生中かどうか？

=end
  GAME_MIDI_FIX = false   # ゲーム内の音源をマッパー固定にするかどうか。
  MIDISOUND_SWITCH = 8   # 上記がfalseの場合のゲーム内での音源設定スイッチ番号

module Kernel
  #--------------------------------------------------------------------------
  # ● ゲーム画面のウィンドウハンドルを取得する
  #--------------------------------------------------------------------------
  def getGameWindow
    # ウィンドウハンドルを取得するためのAPIをロードする
    readini = Win32API.new('kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l')
    findwindow = Win32API.new('user32', 'FindWindowA', %w(p p), 'l')
    
    # ゲーム名を取得する
    game_name = "\0" * 256
    readini.call("Game","Title","",game_name,255,".\\Game.ini")
    game_name.delete!("\0")
    # ウィンドウハンドルを取得
    rgss_version = (defined?(::Cache) ? "RGSS2 Player" : "RGSS Player")
    rgss_version = (defined? Graphics.play_movie ? "RGSS3 Player" : rgss_version)
    return findwindow.call(rgss_version,game_name)
  end
end

module ED
  
  module GuruGuru
    module_function
    # ウィンドウハンドルを取得するためのAPIをロードする
    $: << File.expand_path(".")
  #--------------------------------------------------------------------------
  # ● 定数など設定
  #--------------------------------------------------------------------------
    # Win32API コール
    OPEN_DEVICE = Win32API.new('GuruGuruSMF4', 'GGS4OpenDevice', 'ii', 'i')
    CLOSE_DEVICE = Win32API.new('GuruGuruSMF4', 'GGS4CloseDevice', 'v', 'v')
    STANDARD_RIGHTS_READ = 0x00020000
    KEY_QUERY_VALUE = 0x0001
    KEY_ENUMERATE_SUB_KEYS = 0x0008
    KEY_NOTIFY = 0x0010
    KEY_READ = STANDARD_RIGHTS_READ | KEY_QUERY_VALUE | KEY_ENUMERATE_SUB_KEYS | KEY_NOTIFY
    
    
    @@addlistfromfile = Win32API.new("GuruGuruSMF4", "GGS4AddListFromFile", %w(P I I), "I")
    @@play_midi = Win32API.new('GuruGuruSMF4', 'GGS4Play', 'iiiii', 'i')
    @@stop_midi = Win32API.new("GuruGuruSMF4", "GGS4Stop", %w(I), 'v')
    @@pause_midi = Win32API.new('GuruGuruSMF4', 'GGS4Pause', 'v', 'v')
    @@restart_midi = Win32API.new('GuruGuruSMF4', 'GGS4Restart', 'v', 'v')
    @@set_tempo = Win32API.new('GuruGuruSMF4', 'GGS4SetMasterTempo', 'l', 'v')
    @@set_volume = Win32API.new('GuruGuruSMF4', 'GGS4SetMasterVolume', 'i', 'v')
    @@set_pitch = Win32API.new('GuruGuruSMF4', 'GGS4SetMasterPitch', 'i', 'v')
    @@midi_status = Win32API.new("GuruGuruSMF4", "GGS4GetPlayerStatus", 'pi','v')
    @@smf_info = Win32API.new("GuruGuruSMF4", "GGS4GetSmfInformation", 'pii', 'i')
    @@clear_list = Win32API.new('GuruGuruSMF4', 'GGS4ClearList', 'v', 'v')
    @@enum_list = Win32API.new("GuruGuruSMF4", "GGS4EnumList", 'v', "p")
    
    # レジストリ取得関連API
    GET_N_SYS_INFO = Win32API.new('kernel32', 'GetNativeSystemInfo', 'p', 'v')
    GET_HNDL_PRCC = Win32API.new('kernel32', 'GetCurrentProcess', 'v', 'i')
    GET_WoW64 = Win32API.new('kernel32', 'IsWow64Process', %w(p p), 'i')
    REG_OPEN = Win32API.new('advapi32', 'RegOpenKeyEx', %w(l p l l p), 'l')
    REG_VALUE_EX = Win32API.new('advapi32', 'RegQueryValueEx', %w(p p l p p p), 'l')
    REG_CLOSE = Win32API.new('advapi32', 'RegCloseKey', %w(p), 'l')
    
    # midiデバイスをオープン
    OPEN_DEVICE.call(-1,getGameWindow)
    
    # メソッド内で使用されるmidi設定クラス変数。
    @@midi_list = {}            # ファイル名キーのmidiリストIDハッシュ
    @@status_value = "\0" * 256 # @@midi_statusの引数領域確保
    @@info_value = "\0" * 256   # @@smf_infoの引数領域確保
    @@bgm_playing = []          # 現在演奏中のBGM保存
    @@next_bgm = []             # ME演奏中に実行されたBGMの保存
    @@me_playing = nil          # 現在演奏中のMEのID保存
    @@me_time = 0               # ME演奏時間の保存比較用
  #--------------------------------------------------------------------------
  # ● OSが32bitか64bitかを取得
  #--------------------------------------------------------------------------
  def get_os_bit
    value = "\0" * 256
    handle = GET_HNDL_PRCC.call()
    GET_WoW64.call(handle,value)
    result = value.unpack("I")
    return (result[0] == 1 ? true : false)
  end
  #--------------------------------------------------------------------------
  # ○ 整数のポインタを作成
  #--------------------------------------------------------------------------
  def packdw(dw)
    [dw].pack('V')
  end
  #--------------------------------------------------------------------------
  # ○ 整数のポインタを復元
  #--------------------------------------------------------------------------
  def unpackdw(dw)
    dw += [0].pack('V')
    dw.unpack('V')[0]
  end
  #--------------------------------------------------------------------------
  # ○ レジストリから値を取得
  #--------------------------------------------------------------------------
  def read_registry(key1, key2, sub_key)
    hKey    = packdw(0)
    type    = packdw(0)
    size    = packdw(0)
    ret = REG_OPEN.call(key1, key2, 0x0000, KEY_READ, hKey)
    return nil if ret != 0
    
    hKey = unpackdw(hKey)
    ret = REG_VALUE_EX.call(hKey, sub_key, 0, type, 0, size)
    if ret != 0
      REG_CLOSE(hKey)
      return nil
    end
    value = "\0" * unpackdw(size)
    value = value.encode('Shift_JIS', 'UTF-8')
    ret = REG_VALUE_EX.call(hKey, sub_key, 0, type, value, size)
    return nil if ret != 0
    value = value.encode('UTF-8', 'Shift_JIS')
    
    REG_CLOSE.call(hKey)
    return value.delete("\0")
  end
  #--------------------------------------------------------------------------
  # ○ RPGツクールVXのRTPのパスを取得
  #--------------------------------------------------------------------------
  def get_vxrtp_path
    key1    = 0x80000002 # HKEY_LOCAL_MACHINE
    if get_os_bit
      key2    = "SOFTWARE\\Wow6432Node\\Enterbrain\\RGSS3\\RTP" # 64bit
    else
      key2    = "SOFTWARE\\Enterbrain\\RGSS3\\RTP" # 32bit
    end
    sub_key = "RPGVXAce"
    return read_registry(key1, key2, sub_key)
  end

#--------------------------------------------------------------------------
  # ● オーディオフォルダpath指定
  #--------------------------------------------------------------------------
  def audio_path(type=0)
    case type
    when 0
      folder = "/Audio/BGM/"
    when 1
      folder = "/Audio/ME/"
    when 2
      folder = "/Audio/BGS/"
    when 3
      folder = "/Audio/SE/"
    end
    path = folder
    #File.expand_path(".") + folder
    return path
  end
  #--------------------------------------------------------------------------
  # ● ファイル名から拡張子付きを取得
  #--------------------------------------------------------------------------
  def filename2ext(name,type)
    path = audio_path(type)
    str = ""
    i = 0
    f_name = File.split(name)
    filename = f_name[1].encode("UTF-8")
    
    loop do
      if i > 0
        Dir.chdir(get_vxrtp_path) do
          p_path = Dir.pwd + path
          file_list = Dir.entries(p_path,:encoding => 'utf-8')
          str = entries_files(file_list, filename)
          return get_vxrtp_path + path + str unless str == ""
        end
      else
        p_path = File.expand_path(".") + path
        file_list = Dir.entries(p_path,:encoding => 'utf-8')
        str = entries_files(file_list, filename)
      end
      break unless str == ""
      break if i > 0
      i += 1 if str == ""
    end
    return str
  end
  #--------------------------------------------------------------------------
  # ● カレントディレクトリ以下の指定フォルダ検索
  #--------------------------------------------------------------------------
  def entries_files(file_list, filename)
    file_list.each{|name|
    next if name == "." or name == ".."
    if name =~ /#{filename}/
      return name
    end}
    return ""
  end
  #--------------------------------------------------------------------------
  # ● リストに追加
  #--------------------------------------------------------------------------
  def add_list_file(filename="",option=0,type=0)
    path = File.expand_path(".") + audio_path(type)
    ext = filename2ext(filename,type)
    
    f_name = File.split(ext)
    ext = f_name[1]
    if f_name[0] != "."
      path = f_name[0] + "/"
      ext = f_name[1]
    end
    filepath = path + ext
    file = filepath.encode("Shift_JIS","UTF-8")#NKF::nkf("-s",path + ext)
    #return unless @@midi_list[ext] == nil
    
    result = @@midi_list.values.sort{|a,b|a <=> b} # IDの配列をソート。
    s = @@midi_list.size - 1
    s = 0 if s < 0
    if @@midi_list[ext] == nil
      maxid = result[s] == nil ? 0 : result[s]
      maxid ||= 0
      @@midi_list[ext] = maxid + 1
    end
    
    @@addlistfromfile.call(file, option, @@midi_list[ext])
  end
  #--------------------------------------------------------------------------
  # ● リストのファイルを再生
  #--------------------------------------------------------------------------
  def midi_play(opt,id,seek=0,fdin=0,keyshift=0)
    rame_sec = 1000.0 / 60.0
    return @@play_midi.call(opt,id,seek,fdin * rame_sec,keyshift)
  end
  #--------------------------------------------------------------------------
  # ● 再生オプション
  #--------------------------------------------------------------------------
  def play_option(loop=true,op_skip=true,ed_skip=false,pitch=false,normlz=false,exsive=false)
    # ビットをorして複数指定
		#int Loop = 1;			// ループ再生する
		#int SkipBeginning = 2;	// 冒頭の空白をスキップ
		#int SkipEnding = 4;		// 末尾の空白をスキップ
		#int MasterPitch = 8;		// マスターピッチを有効にする
		#int Normalize = 16;		// 最大音量を127に引き上げる
		#int Exclusive = 32;		// エクスクルーシブを送信する
    #Integer.to_s(2) で2進数変換。
    a = loop ? 1 : 0
    b = op_skip ? 2 : 0
    c = ed_skip ? 4 : 0
    d = pitch ? 8 : 0
    e = normlz ? 16 : 0
    f = exsive ? 32 : 0
    return (a | b | c | d | e | f)
  end
  #--------------------------------------------------------------------------
  # ● BGM再生オプション(ループとOPスキップtrue)
  #--------------------------------------------------------------------------
  def bgm_option
    return play_option
  end
  #--------------------------------------------------------------------------
  # ● ME再生オプション(ループfalseとOPスキップtrue)
  #--------------------------------------------------------------------------
  def me_option
    return play_option(false,false)
  end
  #--------------------------------------------------------------------------
  # ● 停止
  #--------------------------------------------------------------------------
  def stop_midi(fade_time=0)
    @@stop_midi.call(fade_time)
  end
  #--------------------------------------------------------------------------
  # ● 一時停止
  #--------------------------------------------------------------------------
  def pause_midi
    @@pause_midi.call()
  end
  #--------------------------------------------------------------------------
  # ● 一時停止解除
  #--------------------------------------------------------------------------
  def restart_midi
    @@restart_midi.call()
  end
  #--------------------------------------------------------------------------
  # ● 音量設定
  #--------------------------------------------------------------------------
  def set_volume(value=0)
    i = value == 100 ? 0 : (100 - value) * -1.27
    @@set_volume.call(Integer(i))
  end
  #--------------------------------------------------------------------------
  # ● ピッチ設定
  #--------------------------------------------------------------------------
  def set_pitch(value=0)
    i = value > 150 ? 8191 : (value - 100) * 163
    i = value < 100 ? -8192 : (value - 100 * 165)
    i = 0 if value == 100 
    @@set_pitch.call(i)
  end
  #--------------------------------------------------------------------------
  # ● midi状態取得
  #--------------------------------------------------------------------------
  def midi_status
    status_size = (1.size) * 5	# int型のサイズ
    @@midi_status.call(@@status_value, status_size)
    result = @@status_value.unpack("I5")
    return result
  end
  #--------------------------------------------------------------------------
  # ● smf_info状態取得
  #--------------------------------------------------------------------------
  def midi_info(id)
    return [] if id == nil
    info_size = (1.size) * 9	# int型のサイズ
    @@smf_info.call(@@info_value,info_size, id)
    result = @@info_value.unpack("I9")
    return result
  end
  #--------------------------------------------------------------------------
  # ● midi停止中？
  #--------------------------------------------------------------------------
  def midi_stopping?
    n = midi_status[0]
    return n == 0 ? true : false
  end
  #--------------------------------------------------------------------------
  # ● midi再生中？
  #--------------------------------------------------------------------------
  def midi_playing?
    n = midi_status[0]
    return n == 1 ? true : false
  end
  #--------------------------------------------------------------------------
  # ● midi一時停止中？
  #--------------------------------------------------------------------------
  def midi_pausing?
    n = midi_status[0]
    return n == 2 ? true : false
  end
  #--------------------------------------------------------------------------
  # ● テンポ設定
  #--------------------------------------------------------------------------
  def set_tempo(value=1.0)
    @@set_tempo.call(value)
  end
  #--------------------------------------------------------------------------
  # ● テンポ取得
  #--------------------------------------------------------------------------
  def get_tempo
    return midi_status[1]
  end
  #--------------------------------------------------------------------------
  # ● ティック取得
  #--------------------------------------------------------------------------
  def get_tick
    return midi_status[2]
  end
  #--------------------------------------------------------------------------
  # ● 演奏時間取得(ミリ秒)
  #--------------------------------------------------------------------------
  def get_time
    return midi_status[3]
  end
  #--------------------------------------------------------------------------
  # ● ループ回数取得
  #--------------------------------------------------------------------------
  def get_loop
    return midi_status[4]
  end
  #--------------------------------------------------------------------------
  # ● タイムベース取得
  #--------------------------------------------------------------------------
  def get_timebase(id)
    return midi_info(id)[0]
  end
  #--------------------------------------------------------------------------
  # ● 総ティック取得
  #--------------------------------------------------------------------------
  def get_total_tick(id)
    return midi_info(id)[1]
  end
  #--------------------------------------------------------------------------
  # ● 総演奏時間取得
  #--------------------------------------------------------------------------
  def get_total_time(id)
    return midi_info(id)[2]
  end
  #--------------------------------------------------------------------------
  # ● 最初の発音ティック取得
  #--------------------------------------------------------------------------
  def get_firstnotetick (id)
    return midi_info(id)[3]
  end
  #--------------------------------------------------------------------------
  # ● 最初の発音時間取得
  #--------------------------------------------------------------------------
  def get_firstnotetime (id)
    return midi_info(id)[4]
  end
  #--------------------------------------------------------------------------
  # ● 最後の発音ティック取得
  #--------------------------------------------------------------------------
  def get_lastnotetick (id)
    return midi_info(id)[5]
  end
  #--------------------------------------------------------------------------
  # ● 最後の発音時間取得
  #--------------------------------------------------------------------------
  def get_lastnotetime (id)
    return midi_info(id)[6]
  end
  #--------------------------------------------------------------------------
  # ● CC111のティック位置取得
  #--------------------------------------------------------------------------
  def get_looptick (id)
    return midi_info(id)[7]
  end
  #--------------------------------------------------------------------------
  # ● CC111の時間位置取得
  #--------------------------------------------------------------------------
  def get_looptime (id)
    return midi_info(id)[8]
  end
  #--------------------------------------------------------------------------
  # ● リストの全削除
  #--------------------------------------------------------------------------
  def clear_list
    @@midi_list = {}
    @@clear_list.call()
  end
  #--------------------------------------------------------------------------
  # ● リストの有効なID取得
  #--------------------------------------------------------------------------
  def enum_list
    return @@enum_list.call()
  end
  #--------------------------------------------------------------------------
  # ● BGMの再生
  #--------------------------------------------------------------------------
  def play_bgm(filename,volume,pitch)
    unless @@me_playing == nil 
      @@next_bgm = [filename,volume,pitch] #if @@next_bgm.empty?
      return
    end
    result = @@next_bgm == [] ? [filename, volume, pitch] : @@next_bgm
    if @@bgm_playing[0] == result[0] 
      return if @@next_bgm.empty?
    end
    filename = result[0]
    volume = result[1]
    pitch = result[2]
    @@next_bgm = []
    
    add_list_file(filename,1,0)
    name = filename2ext(filename, 0)
    name = File.split(name)[1]
    id = @@midi_list[name]
    midi_play(bgm_option,id)
    set_volume(volume)
    #set_tempo(pitch / 100.0)
    set_pitch(pitch)
    @@bgm_playing = [filename,volume,pitch,id]
  end
  #--------------------------------------------------------------------------
  # ● BGM再開
  #--------------------------------------------------------------------------
  def resumption_bgm
    return if @@bgm_playing.empty? and @@next_bgm.empty?
    unless @@next_bgm.empty?
      # 次のBGMが予約されている場合。
      stop_me
      @@bgm_playing = []
      play_bgm(@@next_bgm[0],@@next_bgm[1],@@next_bgm[2])
      return
    end
    play_bgm(@@bgm_playing[0],@@bgm_playing[1],@@bgm_playing[2])
  end
  #--------------------------------------------------------------------------
  # ● MEの再生
  #--------------------------------------------------------------------------
  def play_me(filename,volume,pitch)
    #pause_midi
    stop_midi
    add_list_file(filename,1,1)
    name = filename2ext(filename, 1)
    name = File.split(name)[1]
    id = @@midi_list[name]
    midi_play(bgm_option,id)
    set_volume(volume)
    #set_tempo(pitch / 100.0)
    set_pitch(pitch)
    @@me_playing = id
    @@me_time = 0
  end
  #--------------------------------------------------------------------------
  # ● BGMの停止(フェード時間)
  #--------------------------------------------------------------------------
  def stop_bgm(time=0)
    @@bgm_playing = []
    @@next_bgm = []
    stop_midi(time)
  end
  #--------------------------------------------------------------------------
  # ● MEの停止(フェード時間)
  #--------------------------------------------------------------------------
  def stop_me(time=0)
    #return unless playing_me?
    #stop_midi(time)
    @@me_playing = nil
    @@me_time = 0
  end
  #--------------------------------------------------------------------------
  # ● MEの再生中？
  #--------------------------------------------------------------------------
  def playing_me?
    return false if @@me_playing == nil
    n = get_time <=> @@me_time
    if n > 0
      @@me_time = get_time if Graphics.frame_rate % 2 == 0
      return true
    else#if get_time <=> @me_time == 0
      return false
    end
    
    return get_time == get_total_time(@@me_playing) ? false : true
  end
  #--------------------------------------------------------------------------
  # ● 初期化
  #--------------------------------------------------------------------------
  def format_play_midi
    @@midi_list = {}
    @@bgm_playing = []
    @@next_bgm = []
    @@me_playing = nil
    @@me_time = 0
    stop_midi
    clear_list
  end
	#-------------------------------------------------
	# ●END
	#   プログラム終了時に自動的に GGS::free を実行する
	#-------------------------------------------------
	END{
		CLOSE_DEVICE.call()
	}
  end
end
#==============================================================================
# ■ Graphics
#------------------------------------------------------------------------------
# 　RGSS 組み込みモジュールを入れたクラス
#==============================================================================
class << Graphics
  
  #--------------------------------------------------------------------------
  # ● フレーム更新
  #--------------------------------------------------------------------------
  alias ed_guruguru_module_update update unless $@
  def update
    ed_guruguru_module_update
    if $game_system.ed_midi_sound? or GAME_MIDI_FIX
      unless ED::GuruGuru.playing_me?
        ED::GuruGuru.resumption_bgm 
      end
    end
  end
end
#==============================================================================
# ■ Audio
#------------------------------------------------------------------------------
# 　RGSS 組み込みモジュールを入れたクラス
#==============================================================================
class << Audio   # オーディオモジュールをクラス化
  #include ED::DX_Wave_Sound
  alias ed_guruguru_module_bgm_play bgm_play  unless $@
  def Audio.bgm_play(filename, volume=100, pitch=100, pos=0)
    if GAME_MIDI_FIX
      ED::GuruGuru.play_bgm(filename, volume, pitch)
      return
    end
    
    if $game_system.ed_midi_sound?
      ed_guruguru_module_bgm_stop
      ED::GuruGuru.play_bgm(filename, volume, pitch)
    else
      ED::GuruGuru.stop_midi
      ED::GuruGuru.format_play_midi
      ed_guruguru_module_bgm_play(filename, volume, pitch)
    end
  end
  
  alias ed_guruguru_module_bgm_stop bgm_stop unless $@
  def Audio.bgm_stop 
    if GAME_MIDI_FIX
      ed_guruguru_module_bgm_stop
      ED::GuruGuru.stop_bgm
      return
    end
    
    if $game_system.ed_midi_sound?
      ed_guruguru_module_bgm_stop
      ED::GuruGuru.stop_bgm
    else
      ed_guruguru_module_bgm_stop
    end
  end
  
  alias ed_guruguru_module_bgm_fade bgm_fade unless $@
  def Audio.bgm_fade(time) 
    if GAME_MIDI_FIX
      ed_guruguru_module_bgm_fade(time)
      ED::GuruGuru.stop_bgm(time)
      return
    end
    
    if $game_system.ed_midi_sound?
      ed_guruguru_module_bgm_fade(time)
      ED::GuruGuru.stop_bgm(time)
    else
      ed_guruguru_module_bgm_fade(time)
    end
  end
  
  
  alias ed_guruguru_module_me_play me_play unless $@
  def Audio.me_play(filename,volume=80, pitch=100, pos=0) 
    if GAME_MIDI_FIX
      ED::GuruGuru.play_me(filename, volume, pitch)
      return
    end
    
    if $game_system.ed_midi_sound?
      ed_guruguru_module_me_stop
      ED::GuruGuru.play_me(filename, volume, pitch)
    else
      ED::GuruGuru.stop_midi
      ED::GuruGuru.format_play_midi
      ed_guruguru_module_me_play(filename, volume, pitch)
    end
  end
  
  alias ed_guruguru_module_me_stop me_stop unless $@
  def Audio.me_stop 
    if GAME_MIDI_FIX
      ed_guruguru_module_me_stop
      ED::GuruGuru.stop_me
      return
    end
    
    if $game_system.ed_midi_sound?
      ed_guruguru_module_me_stop
      ED::GuruGuru.stop_me
    else
      ed_guruguru_module_me_stop
    end
  end
  
  alias ed_guruguru_module_me_fade me_fade unless $@
  def Audio.me_fade(time) 
    if GAME_MIDI_FIX
      ed_guruguru_module_me_fade(time)
      ED::GuruGuru.stop_me(time)
      return
    end
    
    if $game_system.ed_midi_sound?
      ed_guruguru_module_me_fade(time)
      ED::GuruGuru.stop_me(time)
    else
      ed_guruguru_module_me_fade(time)
    end
  end
end
#==============================================================================
# ■ Reset
#------------------------------------------------------------------------------
# 　F12キーを入力したときの処理を行うクラスです。
#==============================================================================
class Reset < Exception# 例外クラス定義
  include ED::GuruGuru
  if $@
    # F12リセット時にDXライブラリを終了＆開始の再起動処理。
    CLOSE_DEVICE.call()
    OPEN_DEVICE.call(-1,getGameWindow)
  end
end
#==============================================================================
# ■ Game_System
#------------------------------------------------------------------------------
# 　システム周りのデータを扱うクラスです。乗り物や BGM などの管理も行います。
# このクラスのインスタンスは $game_system で参照されます。
#==============================================================================

class Game_System
  
  #--------------------------------------------------------------------------
  # ● midi再生選択メソッド(true = pc  false = direct music)
  #--------------------------------------------------------------------------
  def ed_midi_sound(mode = false)
    ED::GuruGuru.format_play_midi
    $game_switches[MIDISOUND_SWITCH] = mode
  end
  #--------------------------------------------------------------------------
  # ● 戦闘方式判定メソッド
  #--------------------------------------------------------------------------
  def ed_midi_sound?
    return $game_switches[MIDISOUND_SWITCH]
  end
end
#==============================================================================
# ■ Game_Interpreter
#------------------------------------------------------------------------------
# 　イベントコマンドを実行するインタプリタです。このクラスは Game_Map クラス、
# Game_Troop クラス、Game_Event クラスの内部で使用されます。
#==============================================================================
class Game_Interpreter
  # イベントコマンド「スクリプト」にモジュール「GuruGuru」のメソッドを反映。
  include ED::GuruGuru
end
    
#==============================================================================
# ■ Scene_End
#------------------------------------------------------------------------------
# 　ゲーム終了画面の処理を行うクラスです。
#==============================================================================

class Scene_End < Scene_MenuBase
  #include ED::DX_Wave_Sound
  #--------------------------------------------------------------------------
  # ● コマンド [シャットダウン] 選択時の処理
  #--------------------------------------------------------------------------
  alias ed_guruguru_module_command_shutdown command_shutdown
  def command_shutdown
    ED::GuruGuru.format_play_midi
    ED::GuruGuru::CLOSE_DEVICE.call()
    ed_guruguru_module_command_shutdown
  end
end

テンプレートのpondt