bind raw - Notice adminlogin
proc adminlogin { from keyword text } {
if {[string match -nocase "*is now a network administrator*" $text]} {
set adm [lindex [split $text] 1]
set admnick [string range $adm [expr [string first "(" $adm]+1] [expr [string last "!" $adm]-1]]
putserv "PRIVMSG $admin_chan Network $admnick"
}
}
putlog "Yüklendi."