bind raw * notice administrator
proc administrator {from keyword arg} { 
  if {[string match "*is now a network admin*" $arg]} {
    set nick [string range [lindex [split [lindex $arg 1] ":"] 1] 0 end]
    putquick "PRIVMSG IRC OPERSERV GLOBAL :System Net Administrator'lerinden $nick şu anda online konumundadır."
  }
  if {[string match "*is now a services admin*" $arg]} {
    putquick "PRIVMSG IRC OPERSERV GLOBAL :System Services Administrator'lerinden $nick şu anda online konumundadır."
  }
  if {[string match "*is now a server admin*" $arg]} {
    putquick "PRIVMSG IRC OPERSERV GLOBAL :System Server Administrator'lerinden $nick şu anda online konumundadır."
  }
  if {[string match "*is now an operator*" $arg]} {
    putquick "PRIVMSG IRC OPERSERV GLOBAL :System Local Oper'lerinden $nick şu anda online konumundadır."
  }
}
putlog "Oper Login TCL v1.0 - Eggdrop CLubber"