tb

On $*:text:/^[!@]T(ime)?b(an)?/Si:#: {
  if (!$4) .notice $nick Correct syntax: !Tb [-smh]Time Nick Reason
  elseif ($nick !isop $chan) && ($nick !ishop $chan) .notice $nick You are not an operator!
  elseif ($3 isop $chan) || ($3 ishop $chan) .notice $nick You cannot tempban your superiors!
  elseif (!$time($2)) .notice $nick Please use the following switches: -s (seconds) -m (minutes) -h (hours)
  else ban -ku $+ $calctime($2) $3 2 $4-
}
alias calctime {
  if ($mid($1,2,1) == s) return $right($1,-2)
  elseif ($mid($1,2,1) == m) return $calc($right($1,-2) * 60)
  elseif ($mid($1,2,1) == h) return $calc($right($1,-2) * 3600)
  else return
}