bind pub - !uyar msg_warn
proc msg_warn {nick uhost handle chan text} {
  global botnick
  if {[string match -nocase "#Opers" $chan]} {
    set kanal [lindex $text 0]
    if {$kanal == ""} {putquick "PRIVMSG #Opers :Herhangi bir kanalı yönetim tarafından uyarmak için lütfen komutu doğru uygulayın. Kullanımı: <!uyar #kanal>";return}
    putquick "ChanServ CLEAR $kanal OPS"
    putquick "OperServ MODE $kanal +m"
    putquick "ChanServ SET $kanal TOPICLOCK off"
    putquick "TOPIC $kanal 4,1 \[0 UYARI 4\] 0Bu kanal sunucu görevlileri tarafından uyarı almıştır. Tekrarı halinde kanal kullanıma kapatılacaktır. Bilginize sunar, teşekkür ederiz. "
    putquick "MemoServ SEND $kanal 4,1 \[0 UYARI 4\] 0Sahibi olduğunuz $kanal isimli kanal sunucu yönetimi tarafından uyarı almıştır. Tekrarı halinde kullanıma kapatılacaktır. Detaylı bilgi için #OperHelp kanalını kullanabilirsiniz. "
    putquick "ChanServ SET $kanal TOPICLOCK on"
    putquick "PRIVMSG #Opers :Belirtilen $kanal kanalına uyarı gönderilmiştir."
  }
}
bind pub - !kapat msg_forbid
proc msg_forbid {nick uhost handle chan text} {
  global botnick
  if {[string match -nocase "#Opers" $chan]} {
    set kanal [lindex $text 0]
    if {$kanal == ""} {putquick "PRIVMSG #Opers :Herhangi bir kanalı kapatmak için lütfen komutu doğru uygulayın. Kullanımı: <!kapat #kanal>";return}
    putquick "ChanServ CLEAR $kanal USERS"
    putquick "ChanServ SET $kanal mlock +nti"
    putquick "ChanServ SET $kanal Founder $nick"
    putquick "TOPIC $kanal 4,1 \[0 UYARI 4\] 0Bu kanal yapılan uyarılara rağmen kötü kullanıma devam ettiği için süresiz olarak kapatılmıştır. Bilginize sunar, teşekkür ederiz."
    putquick "ChanServ Suspend $kanal Kanal Transferi"
    putquick "PRIVMSG #Opers :Belirtilen kanal kullanıma kapatılarak kanal sahibi $nick olarak değiştirilmiştir."
  }
}
putlog "Kanal Kontrol/Forbid TCL v1.0 Written By CLubber"