HSPTV!掲示板

お世話になっております。
今回、作成中のゲームに使うBGM音量が大きいので、
なんとかMCIから音量を調整できないものかと思い、
こちらに質問させていただきました。

一応、過去ログを調べてみたところ、
それらしき文献は見つかったのですが、
どうにも理解が及ばず、音量が変化しませんでした。
URL:　http://hsp.tv/play/pforum.php?mode=pastwch&num=15066

問題の箇所であるプログラムは下記のように作っています。
どなたかアドバイスいただけませんでしょうか？

*ステージ1
	cls 1
	screen 0,640,480

		;画像の読み込み
		buffer 7			; 背景画像の読み込み
		picload "img/back_sky.png"
		gsel 0				; 画面「0」に描画先指定
		pos 0,0				; 背景画像の貼り付け位置指定
		gcopy 7,0,0,640,480		; 背景画像の貼り付け
	
		;音楽ファイル読み込み
		mci "open \"bgm/Lokomoti.wav\" alias f2"
		mci "play f2"
		vol = 1000 // 0〜1000 の範囲を指定
		mci "setaudio f volume to "+vol
　　
		color 100,100,100
	　　    boxf 0,0,100,480
		color 100,100,100
	   　　 boxf 540,0,640,480
	

どう見ても単なるコピペミスなのに変な人がいますな。

それはともかくMCIでの音量調節はaviやmp3には効きますが、wavやmidに対しては効果ないようです。
mciではなく通常のボリューム変更すればいいと思います。
http://hsp.tv/play/pforum.php?mode=pastwch&num=34666

と思ったらwavの場合はmciのオープン時に "type mpegvideo"をつければボリューム変更が効きました。

#define WS_VISIBLE	$10000000
#define WS_CHILD	$40000000
#define WM_HSCROLL	$00000114
#define TBM_SETPOS	$00000405
#define TBM_GETPOS	$00000400
#define TBM_SETRANGE	$00000406

dialog "wav",16
if stat=0 :end
mci "open \""+refstr+"\" alias music type mpegvideo"
if stat = -1 : dialog "mci open 失敗":end
mci "play music "	

winobj "msctls_trackbar32", "", , WS_VISIBLE|WS_CHILD, 300, 25
hTbar = objinfo(stat, 2)
oncmd gosub *OnHScroll, WM_HSCROLL
sendmsg hTbar,TBM_SETRANGE,1,1000<<16|0
sendmsg hTbar,TBM_SETPOS,1,500
sendmsg hwnd,WM_HSCROLL,0,hTbar
onexit *exit
stop
*OnHScroll
	if lparam = hTbar {
		sendmsg hTbar, TBM_GETPOS
		title ""+stat
		mci "setaudio music volume to "+stat
	}
	return
*exit
	mci "close music"
	end

返答ありがとうございます。
どうすればいいのか全くわからなかったので、
こうしてヒントをくださるだけでもとてもありがたいです。

ですが、私が実践したかったのはつまみを弄って音量を変更するのではなく、
プログラムで直に音量を調整する方法なんです。
勘違いをさせてしまったようで、申し訳ありません。

ただ、あれからしばらく自分でも調べ続けてみたところ、
こちらの過去ログの方法を発見し、なんとか音量を調整することが出来ました。

URL:　http://hsp.tv/play/pforum.php?mode=pastwch&num=52902

色々とご迷惑をおかけして本当にすみません。
ありがとうございました！