on *:input:#:{ 
  if $regex($1,/^[!\.]tblock$/Si) && $2 { 
    haltdef
    .timer -h 1 500 mode $chan +b ~T:block: $+ $iif($chr(42) isin $2,$2,$+($chr(42),$2,$chr(42)))
  } 
}

alias tblock {
  var %nt = 1
  while %nt <= $comchan($me,0) {
    mode $comchan($me,%nt) +b ~T:block: $+ $iif($chr(42) isin $1,$1,$+($chr(42),$1,$chr(42)))
    inc %nt
  }
}