05/06/14 20:39:07 MbELo5On
>>504
乙です。
動いてますねえ。
「変更点by502-2005/6/14.txt」
> BGMバーのMAX MINボタンを押しっぱなしのときはリアルタイムで音量が変更するようになっていますが
> バー自体をドラッグ中にも同様の処理をするといいかもしれません。
↓こんな感じですかね? 後は344行目あたりの gosub *bar を変えてやればOKかと思いますが。
;BGM音量調整専用ルーチン
*bgm_vol
getmousepos %0,%5 : sub %0,font_x/2 ; -----マウスカーソルとのずれを修正する。
if %0<300 mov %0,300;上限と下限設定
if %0>500 mov %0,500
if %5<%1-20 return ;Y座標がはずれたら停止
if %5>%1+20 return
amsp %2,%0,%1
print 1
;リアルタイムにBGM音量を変化させる
mov %bgm_vol,(%0-300)/2
mp3vol %bgm_vol
wait 10
isdown %3
if 0 = %3 :return ;キーが離されたら終了
goto *bgm_vol