;Alan's Jukebox 1a script
ON ENTER   
{
	"Say 'songlist' to list the songs in this room in your log." LOCALMSG
	"Type the name of a song to play it."  LOCALMSG
	"If you have not previously downloaded the song you will have to wait for it to download and then type the name again to play it." LOCALMSG
	"PC's - enter 'ms' to stop a midi if it is playing." LOCALMSG
}
 
ON OUTCHAT  
{
	[
;***Start of song names***
;  List song titles here in format "name1" "name2"
"best shot.wav"
"ahorse.wav"
"burnbaby.wav"
"gotfriend.wav"
"didntstartfire.mp3"
"hotfire.wav"
"jump.wav"
"rockyou.wav"
"Ibiza.mp3"
"hotstuff.wav"
"fantasyisland.wav"
"everybody.wav"
"girlsfun.mp3"
"cometomywindow.wav"
"addictedtolove.wav"
"angelofmine.wav"
"byebyebye.wav"
"coldasice.wav"
"howsweet.wav"
"makinglove.wav"
"redredwine.wav"
"inmyheart.wav"
"bemylover.wav"
"facetoface.mp3"
"inalittlewhile.mp3"
"noway2treatalady.mp3"
"samba.mp3"
;***end of song names***
	] musicarray =

	{ "Type one of the following names to play it:  "
		{ name =
			{ "$1" GREPSUB name = } name "(.*)[.](.*)" GREPSTR IF
		name & ", " &
		} musicarray FOREACH LOGMSG
	"" CHATSTR =
	} CHATSTR "songlist" == IF
;
	{ title =
	title name =
		{ "$1" GREPSUB name = } name "(.*)[.](.*)" GREPSTR IF
		{ MIDISTOP		;if Midi on a PC
		title SOUND
;if an old client use MIDIPLAY in case it is a midi on a PC.
			{ title MIDIPLAY } IPTVERSION NOT IF
		"" CHATSTR =
		} CHATSTR name == IF
	} musicarray FOREACH
;
	{ MIDISTOP			;if Midi on a PC
 	"" CHATSTR =
 	} CHATSTR "ms" == IF
}