/help on input
/help $inpaste
/help $cb
/help /play

on *:input:#: {
if ( $inpaste ) {
var %cb0 = $cb(0)
if ( %cb0 <= 4 ) {
remove paste.tmp
var %i = 1
while ( %i <= %cb0 ) {
write paste.tmp $cb(%i)
inc %i
}
play paste.tmp $target 1500
}
}
}


something along those lines, nothing tested...