alias -l hc_bantime { return 3600 } ; 3600 = 1 hour , 0 = never expire
alias -l hc_bantype { return 4 } ; 4 = bantype, use /help $mask to change it
alias -l hc_chans { return #test1 } ; channels , use comma to add more

ON !*:JOIN:$($hc_chans): {

  var %host = $address($nick,2)
  var %domain = $address($nick,4)
  var %fullhost = $address($nick,5)

  var %ident = $remove($gettok($gettok(%fullhost,2,33),1,64),~)

  if (!$ulist(%domain,host,0))

  alias -l hc_do_ban {
    ; $1 = nick

    if (!$1) { return }

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

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

      if ($me ison %c) && ($me isop %c) && ($1 ison %c) {
        if (*.IP iswm %h) { ban $+(-u,$hc_bantime) %c *!*@*. $+ $gettok(%h,3-,46) }
        else { ban $+(-u,$hc_bantime) %c $1 $hc_bantype }
      }

      inc %i
    }
  }

  alias -l hc_check_is_not_regular {
    ; $1 = nick

    var %t = $numtok($hc_chans,44)
    var %i = 1

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

      if ($me ison %c) && ($1 ison %c) && ($1 isreg %c) { return 1 }

      inc %i
    }

    return 0
  }
}