on OpenCard
    global BGMDATA
  UxMovie "?windows" -- ウィンドウが二重に開くのを防ぎます。
  put the result into BGMWindows
  if BGMWindows is empty then
    set cursor to Watch -- これを入れるか入れないかは好みだと思います。
    put "［屋外マップ用］"&return&"［屋内マップ用］"&return&"［屋外戦闘用］"&return&"［屋内戦闘用］" into BGMDATA
    -- ＢＧＭファイルの名前は、
    -- "屋外マップ用"&return&"屋内マップ用"&return&
    -- "屋外戦闘用"&return&"屋内戦闘用"の順番に入れてください。
    get the selectedtext of cd btn "［音量ボタンの番号］" of cd "［環境設定カードの名前］"
    put it into line 5 of BGMDATA
    repeat with e=1 to 4
      UxMovie (line e of BGMDATA),,,false,,,,
      set the loop of window (line e of BGMDATA) to true
      set the audioLevel of window (line e of BGMDATA) to (line 5 of BGMDATA)
    end repeat
  end if
  repeat with e=1 to 2
    send "GoTop" to window (line e of BGMDATA)
  end repeat
end OpenCard