;Alan's Music mouseover script
;This script displays a messages when the mouse is over a spot
;and downloads/plays the music when the mouse is clicked.
;Place the following script in a spot:
ON ENTER
{
	0 ME SETALARM
}

ON SELECT
{
	sf GLOBAL
	sf SOUND
}

ON ALARM
{
	sf GLOBAL
;***Put data here***
	100 xl =	;x value of left side of spot
	150 xr =	;x value of right side of spot
	100	yu =	;y value of upper side of spot
	150 yl =	;y value of lower side of spot
	"soundfilename" sf =	;name of sound file
;***end of data***

	MOUSEPOS DUP yu >= SWAP yl <= AND
	SWAP DUP xl >= SWAP xr <= AND AND mouseover =
		{
			{ xl xr + 2 / x =
			yu yl + 2 / y =
			"@" x ITOA & "," & y ITOA & sf & LOCALMSG
			} mouseover IF
		mouseover ME SETSPOTSTATELOCAL
		} ME GETSPOTSTATE mouseover == NOT IF
	30 ME SETALARM
}