alias -l wc_do_ban {
  ; $1 = nick

  if (!$1) { return }

  var %h = $ial($1).host
  var %t = $numtok($wc_chans,44)
  var %i = 1

  while (%i <= %t) {
    var %c = $gettok($wc_chans,%i,44)

    if ($me ison %c) && ($me isop %c) && ($1 ison %c) {
      if (*.IP iswm %h) { ban $+(-u,$wc_bantime) %c *!*@*. $+ $gettok(%h,3-,46) | kick %c $1 $wc_kickreason }
      else { ban $+(-ku,$wc_bantime) %c $1 $wc_bantype $wc_kickreason }
    }

    inc %i
  }
}