Evaluated proc play args { if {[regexp "Oingo Boingo - Little Girls" [groove np]] == 1} {return no}; set ::radio_who [regsub -all {(\W|\d)} [nick] ""]; if {[groove play $args] < 0} {dplay $args; groove swait; set ::current_playlist all; . [np] cum: [lappend ::radio_playlists($::radio_who) [groove np]] } {skip} }