set haters [list "123.45.*" "67.89.*" "0.0.0.7"] ;# Hedef Host / IP Listesi

bind join - *!*@* nochat4haters

proc nochat4haters {nick uhost hand chan} {
     if {[isbotnick $nick] || ![channel get $chan shutup]} { return }
     set host [lindex [split [getchanhost $nick] @] 1]
     foreach hateful $::haters {
      if {([expr {[lsearch $host $hateful]}] != "-1") && ([botisop $chan])} {
          pushmode $chan +b ~q:*!*@$host
          flushmode $chan
          break
      }
     }
    return 0
}
# .chanset #kanal +shutup
setudef flag shutup