alias kb {
  if (!$1) { echo 4 -a KB Usage: /kb [Time] [Chan] NICK [Reason] | halt }
  elseif ($left($1,1) == $chr(35)) { var %chans = $1 | tokenize 32 $2- }
  elseif ($left($2,1) == $chr(35)) { var %chans = $2 | tokenize 32 $1 $3- }
  else var %chans = $chan
  var %time = $calc($replace($1,s,*1+,m,*60+,h,*3600+,d,*86400+,w,*604800+))
  if (%time) tokenize 32 $2-
  var %banmask = $iif($network == swiftirc,3,2)
  var %x = 1
  while (%x <= $numtok(%chans,44)) {
    var %chan = $gettok(%chans,%x,44)
    if (($me isop %chan) || ($me ishop %chan)) && ($1 ison %chan) {
      if ($1 isop %chan) || ($1 ishop %chan) mode %chan -oh $1 $1
      ban -k $+ $iif(%time,u $+ %time) %chan $1 %banmask $iif($2,$2-,No reason given) $iif(%time,- banned for $duration(%time)) $iif($network == SwiftIRC,- $swiftkcount)
    }   
    inc %x
  }
}


on *:input:#: {
  if ($1 == .tb) kb $1 $chan $2-
}