Evaluated proc play args { if {[regexp "Oingo Boingo - Little Girls" [groove np]] == 1} {return no}; set ::last_player [nick]; if {[groove play $args] < 0} {dplay $args; groove swait; set ::current_playlist all; +playlist [nick] [groove np]; np} {skip} }