Kod

bind mode - * mode:msg 
proc mode:msg {nick uhost hand chan mode desc} { 
  global botnick 
  if {$mode == "+o"} { 
    if {$desc == $botnick} { return 0 } 
    putquick "PRIVMSG $chan $desc Şu Anda Kanal Yetkilisi Konumuna Geçti."
  }
  if {$mode == "+h"} { 
    if {$desc == $botnick} { return 0 } 
    putquick "PRIVMSG $chan $desc Şu Anda Kanal Yardımcı Operatoru Konumuna Geçti."
  }
  if {$mode == "+v"} { 
    if {$desc == $botnick} { return 0 } 
    putquick "PRIVMSG $chan $desc Şu Anda (+) Voice Konumuna Geçti."
  }
  if {$mode == "+m"} { 
    if {$desc == $botnick} { return 0 } 
    putquick "PRIVMSG $chan $desc Kanal Şuanda Konuşmaya Kapatıldı."
  }
  if {$mode == "+s"} { 
    if {$desc == $botnick} { return 0 } 
    putquick "PRIVMSG $chan $desc Kanal Şuanda Gizli Konuma Alındı."
  }
  if {$mode == "-s"} { 
    if {$desc == $botnick} { return 0 } 
    putquick "PRIVMSG $chan $desc Kanal Şuanda Gizli Konumdan Çıkarıldı."
  }
  if {$mode == "-m"} { 
    if {$desc == $botnick} { return 0 } 
    putquick "PRIVMSG $chan $desc Kanal Şuanda Konuşmaya Açıldı."
  }
  if {$mode == "+p"} { 
    if {$desc == $botnick} { return 0 } 
    putquick "PRIVMSG $chan $desc Kanal Şuanda Özel Konuma Alındı."
  }
  if {$mode == "-p"} { 
    if {$desc == $botnick} { return 0 } 
    putquick "PRIVMSG $chan $desc Kanal Şuanda Özel Konumdan Çıkarıldı."
  }
}

#### No_FeaR Yetkili Bilgilendirme TCL #####