on *:TEXT:!song *:#:{
var %song $nopath($strip($2-))
var %type $gettok(%song,-1,46)
if (!$istok(mp3 wav mid,%type,32)) return
var %file $getdir(%song) $+ %song
if ($isfile(%file)) { ctcp # SOUND $qt(%song) | echo -ag played requested sound: %song }
else { echo -s actions to take if %song does not exist }
}
ctcp *:SOUND:*:{
;place_holder
var %song $nopath($strip($2-))
var %type $gettok(%song,-1,46)
if (!$istok(mp3 wav mid,%type,32)) return
var %file $getdir(%song) $+ %song
if ($isfile(%file)) { echo $iif($target == $me,-s,#) listening to song played to $iif($target == $me,me,#) : %song | splay -q %song }
else { echo $iif($target == $me,-s,#) Note: do not have song played to $iif($target == $me,me,#) : %song }
}