
@lock Jaws CD==me
@Adesc Jaws CD=@pemit/noreturn %#=The soundtrack of the film 'Jaws', more or
less.<img xch_sound=play
href="http://www.chaco.com/pueblo/midi/samples/jaws22.midi">%r
To add a bit more realism to the situation, let's make a CD player to go with
the CD, and generalize the CDs so we can expand our collection easily:
@lock CD Player==me
@Desc CD Player=A standard cd player. There is a play, stop, and loop button.
&PLAY CD Player=$play *:@emit/noreturn %n inserts '%0' into the player and
press the 'play' button.<img xch_sound=play href="[get(%0/sound_url)]">%r
@lock 'Jazz for Airy Nights' album==me
@desc 'Jazz for Airy Nights' album=This is an album of light jazz for those
mellow, romantic moments that everyone experiences in elevators.%r
&SOUND_URL 'Jazz for Airy Nights'
album=http://www.chaco.com/pueblo/midi/samples/lite_jazz.midi
Next, we can add a 'stop' command to the CD player:
Building TinyMUSH sound generators