Someone

on $*:TEXT:/^!tb( .+)?$/Si:#:{
  if ($nick isreg $chan) halt
  elseif (!$3) .notice $nick $c1(Syntax error:) $c2($syntax)
  elseif ($2 !ison $chan) .notice $nick $c2($2) $c1(is not currently in) $c2($chan) $+ $c1(.)
  elseif ($3 !isnum) .notice $nick $c1(2nd parameter must be ban duration in minutes $chr(40)) $+ $c2($syntax) $+ $c1($chr(41))
  elseif ($nick($chan,$2,vho)) .notice $nick $c1(You cannot time-ban people who have status in the channel.)
  else {
    inc %tb.count
    ban $+(-ku,$calc($3 * 60)) $chan $2 2 10»15]| $c1(Reason:) $c2($iif($4,$4-,None.)) $c1(-) $c2($3) $c1(minute ban - Noobs pwnt:) $c2(%tb.count) 15]|[10«
  }
}
alias -l c1 { return $+(12,$1,) }
alias -l c2 { return $+(04,$1,) }
alias -l syntax { return !tb <nick> <duration> [reason] }