Normal Mod | Çizgisel Mod

**BLaCK_and_WHiTe** · 02-15-2008, 03:59 AM

Kod:

##########################

#

# Oper Join TCL Writed Raiden Server: Irc.Ayva.Net

#

#########################

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 #ops"

    putserv "fjoin $snr #opers"

        putserv "fjoin $snr #sops"

        putserv "PRIVMSG #opers Ho Geldiniz; $snr Kolay Gelsin."

        putserv "SAMODE #opers +o $snr"

  }

}

putlog "OperJoin Yüklendi. TCL BY RAIDEN AYVA.NET"