Evaluated proc play args { set ::radio_who [regsub -all {(\W|\d)} [nick] ""]; set song [groove play $args]; if {$song < 0} {dplay $args; groove swait; set ::current_playlist all; set ::ru [radio_update [nick] [groove np]]; np } {radio_update [nick] [first $song]; skip} }