HSPTV!掲示板

タイトルの通り、ボタンの上にマウスをのせるとサウンドを鳴らしたい
のですが、どうかご教授ください。
下のスクリのboxf 50,50,100,100はボタンです。この範囲内に入るとサ
ウンドは鳴るのですが、ボタンの上にマウスをのせると１回だけ鳴らす
ようにしたいのです。また、１回サウンドが鳴った後、範囲外に出てま
たボタンにマウスをのせても、また１回だけサウンドを鳴らすようにお
願いします。

#uselib "user32.dll"
#func GetCursorPos "GetCursorPos" int
#func ScreenToClient "ScreenToClient" int,int

onexit *e

	screen 0,640,480,0
	color 0,0,0 :boxf 50,50,100,100

	dim point,2

*loops
	GetCursorPos varptr(point)
	ScreenToClient hWnd,varptr(point)
	if ((point(0)>=50)&(point(0)<=100)&(point(1)>=50)&(point(1)<=100)){
			mmload "sample.wav",0,0
			mmplay 0
	}
	wait 10
goto *loops
stop

*e
	mci "close myid" : mmstop : end

これでどうでしょう。

#uselib "user32.dll"
#func GetCursorPos "GetCursorPos" int
#func ScreenToClient "ScreenToClient" int,int

onexit *e

	screen 0,640,480,0
	color 0,0,0 :boxf 50,50,100,100

	dim point,2
	mmload "sample.wav",0,0

*loops
	GetCursorPos varptr(point)
	ScreenToClient hWnd,varptr(point)
	if ((point(0)>=50)&(point(0)<=100)&(point(1)>=50)&(point(1)<=100) ^ chkcode){
		chkcode^=1
		if chkcode:mmplay 0
	}
	wait 10
goto *loops
stop

*e
	mmstop : end

YOYOさん
どうもありがとうございます。
簡単な質問ですいませんでした。