on $*:text:/^[.!]tblock/Si:#:{
  if ($nick isop $chan) && $2 {
    mode $chan +b ~T:block: $+ $iif($chr(42) isin $2,$2,$+($chr(42),$2,$chr(42))) 
  }
}

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