menu Channel {
  -
  Kick by Nick length:KBL $chan $len($$?="Enter length") $?="Enter reason"
  -
}

; Syntax: /KBL <#Channel> <Length> [Reason]
; Example: /KBL #MyChannel 10 You're not welcome!
alias KBL {
  if ($1 ischan) && ($me isop $1) && ($2 isnum 1-) {
    var %x = 1
    while ($nick($1,%x,r)) {
      var %nick = $v1
      if ($len(%nick) == $2) { $+(.timer.,$1,.,%nick) 1 %x $iif(%nick ison $1,ban -k $1 %nick 2 $iif($3,$3-,Banned),noop) }
      inc %x
    }
  }
}