how could I make this code so that the verbs pop up in the music category when a player gets within one tile of it...... here is the code..

obj
BoomBox
icon = 'Boom Box.dmi'
verb
My_Music(S as sound)
set category = "Music"
usr << sound(S,1)
Battle_Z()
set category = "Music"
src << sound('battlez[1].mid',1)
Chalaheadchala()
set category = "Music"
src << sound('chalaheadchala[1].mid',1)
No_Will_Power()
set category = "Music"
src << sound('midi-nowillpower[1].mid',1)
We_Got_Power()
set category = "Music"
src << sound('midi-wegotpower[1].mid',1)