on *:TEXT:!yasak *:#:{
  if ($nick isop $chan) { /mode $chan +b $2 | /kick $chan $2 0,1Kurallara Uymadığınız İcin Kanaldan Uzaklaştırıldınız..İp Adresiniz Banlanmıştır.Kurallar İçin /Rules Yazınız 
  }
}


on *:TEXT:!nick *:#:{
  if ($nick isop $chan) { /mode $chan +b $2 | /kick $chan $2 12 Lütfen Nickinizi Degiştiriniz..! 4 (/nick YeniNick)
  }
}


on *:TEXT:!sus*:#:{
  if ($nick isop $chan) { /ban $chan $2 2 }
}

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"