Anonymous

proc join:badjoin {n u h c} {
        global reason badnicks badtags
        foreach {$badnicks $badtags} {$ban $tag} {
                if {$n == $ban} || {[regexp -inline -- {[A-Za-z]+} $n] == $tag} {
                        putquick "MODE $c +b *![getchanhost $n $c]"
                        putquick "KICK $c $n :$reason"
                        newchanban $c "*![getchanhost $n $c]" $h "$reason"

                }
        }
}