bind pub - !yasak msg_forbid
proc msg_forbid {nick uhost handle chan arg} {
  global botnick
  set person [lindex $arg 0]
  set mask "[string range [lindex [split [getchanhost $person $chan] "@"] 1] 0 end]"
  if {$person == $botnick} {return}
  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {
    putquick "PRIVMSG IRC mode $chan +b [getchanhost $person $chan]"
    putquick "kick $chan $person Kanal kurallarına uymadığınız tespit edildi. IP'niz banlandı."
  }
}
bind pub - !nick msg_nickban
proc msg_nickban {nick uhost handle chan arg} {
  global botnick
  set person [lindex $arg 0]
  if {$person == $botnick} {return}
  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {
    putquick "PRIVMSG IRC mode $chan +b $person"
    putquick "kick $chan $person Kanal kurallarına uymadığınız tespit edildi. IP'niz banlandı."
  }
}
bind pub - !sus msg_silence
proc msg_silence {nick uhost handle chan arg} {
  global botnick
  set person [lindex $arg 0]
  set mask "[string range [lindex [split [getchanhost $person $chan] "@"] 1] 0 end]"
  if {$person == $botnick} {return}
  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {
    putquick "PRIVMSG IRC mode $chan +b [getchanhost $person $chan]"
    putquick "NOTICE $person Kanal kurallarına uymadığınız tespit edildi. IP'niz banlandı."
  }
}
 
putlog "Ban TCL v1.0 - Written By CLubber"