Code:

setudef flag enforcebansset enforce(max)       8;set enforce(reasons)   [list \                       "Some kick message" \                       "Another one!" \                       "And yet another one!" \                       ]bind mode - "* +b" enforcebanproc enforceban {nick uhost hand chan mc ban} {  global enforce  if {[channel get $channel enforcebans] && [botisop $chan]} {    set banmask [string map {"\\" "\\\\" "\[" "\\["} $ban]    set reason [lindex $enforce(reasons) [rand [llength $enforce(reasons)]]]    set list [list]    foreach user [chanlist $chan] {      if {[isbotnick $user] || [matchattr [nick2hand $user] f|f $chan]} {        continue      } elseif {[string match -nocase $banmask $user![getchanhost $user $chan]]} {        lappend list $user      }    }    if {[llength $list] > $enforce(max)} {      putserv "MODE $chan -ob $nick $ban"    } else {      foreach user $list {        putserv "KICK $chan $user :$reason"      }    }  }}