##############################################################################################
# Basari Hosting Internet Hizmetleri - Dürüstlük simgemizdir. Önce güven!                    #
# 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">bind raw - Notice operjoin
proc operjoin { from keyword text } {
  if {[string match -nocase "*is now an operator*" $text]} {
 set _nick [lindex [split $text] 4]
 set snr [string range $_nick [expr [string first "(" $_nick]+1] [expr [string last "!" $_nick]-1]]
 putserv "fjoin $snr #mgtops"
 putserv "fjoin $snr #admin"
        putserv "PRIVMSG #admin Hoş geldiniz; $snr Kolay gelsin."
        putserv "os mode #admin -o $snr"
  }
}
putlog "OperJoin Yüklendi. TCL BY illegal_NicCK"