on *:input:*: {
  if ($left($1,1) != /) {
    if ($1 == tb) {
      msg $chan $capwords($1) $2-
      var %3 = $iif(*h* iswm $3,$calc($remove($3,h)*3600),$iif(*m* iswm $3,$calc($remove($3,m)*60),$iif(*s* iswm $3,$remove($3,s),$3)))
      ban $+(-u,%3) $chan $address($2,2)
      kick $chan $2 Banned for $replace($3-,h,$+($chr(32),hour),s,$+($chr(32),seconds),m,$+($chr(32),minutes))
      halt
    }
    if ($1 != o && $1 != g) {
      var %spell = $capwords($replace($+($chr(32),$1-,$chr(32)),$+($chr(32),i,$chr(32)),$+($chr(32),I,$chr(32))))
      msg $active %spell | halt
    }
  }
}
alias capwords {
  var %t
  var %x = 0
  while $1 != $numtok($1-,32) {
    inc %x 1
  var %t = %t $upper($left($gettok($1-,1,32),1)) $+ $right($gettok($1-,1,32),-1)  $gettok($1-,2-,32) } return %t
}