bind raw * notice oper_giris

proc oper_giris {from keyword text} {
 global botnick
    if {[string match -nocase "*is now a network admin*" $text]} {
        set nick [string range [lindex [split [lindex $text 1] ":"] 1] 0 end]
        set oper [string range [lindex [split [lindex $text 3] "]"] 0] 1 end]
            if {[string match -nocase $botnick $oper]} { return 0 }
                putquick "PRIVMSG $nick :\003$r\Kolay gelsin \002$nick\002. Oper girişiniz başarı ile gerçekleşmiştir.\003"
                putquick "PRIVMSG $nick :\003$r\İyi görevler dilerim.\003"
                putquick "PRIVMSG OperServ GLOBAL \00304\002$oper\002\00312 şu anda online konumda\00304 \002\[ NetAdmin(N) ]\002\003"
                return 0
    }
    if {[string match -nocase "*is now a server admin*" $text]} {
        set nick [string range [lindex [split [lindex $text 1] ":"] 1] 0 end]
        set oper [string range [lindex [split [lindex $text 3] "]"] 0] 1 end]
            if {[string match -nocase $botnick $oper]} { return 0 }
                putquick "PRIVMSG $nick :\003$r\Kolay gelsin \002$nick\002. Oper girişiniz başarı ile gerçekleşmiştir.\003"
                putquick "PRIVMSG $nick :\003$r\İyi görevler dilerim.\003"
                putquick "PRIVMSG OperServ GLOBAL \00304\002$oper\002\00312 şu anda online konumda\00304 \002\[ ServerAdmin(A) ]\002\003"
                return 0
    }
    if {[string match -nocase "*is now a services admin*" $text]} {
        set nick [string range [lindex [split [lindex $text 1] ":"] 1] 0 end]
        set oper [string range [lindex [split [lindex $text 3] "]"] 0] 1 end]
            if {[string match -nocase $botnick $oper]} { return 0 }
                putquick "PRIVMSG $nick :\003$r\Kolay gelsin \002$nick\002. Oper girişiniz başarı ile gerçekleşmiştir.\003"
                putquick "PRIVMSG $nick :\003$r\İyi görevler dilerim.\003"
                putquick "PRIVMSG OperServ GLOBAL \00304\002$oper\002\00312 şu anda online konumda\00304 \002\[ ServicesAdmin(a) ]\002\003"
                return 0
    }
    if {[string match -nocase "*is now a co admin*" $text]} {
        set nick [string range [lindex [split [lindex $text 1] ":"] 1] 0 end]
        set oper [string range [lindex [split [lindex $text 3] "]"] 0] 1 end]
            if {[string match -nocase $botnick $oper]} { return 0 }
                putquick "PRIVMSG $nick :\003$r\Kolay gelsin \002$nick\002. Oper girişiniz başarı ile gerçekleşmiştir.\003"
                putquick "PRIVMSG $nick :\003$r\İyi görevler dilerim.\003"
                putquick "PRIVMSG OperServ GLOBAL \00304\002$oper\002\00312 şu anda online konumda\00304 \002\[ CoAdmin(C) ]\002\003"
                return 0
    }
    if {[string match -nocase "*is now an oper*" $text]} {
        set nick [string range [lindex [split [lindex $text 1] ":"] 1] 0 end]
        set oper [string range [lindex [split [lindex $text 3] "]"] 0] 1 end]
            if {[string match -nocase $botnick $oper]} { return 0 }
                putquick "PRIVMSG $nick :\003$r\Kolay gelsin \002$nick\002. Oper girişiniz başarı ile gerçekleşmiştir.\003"
                putquick "PRIVMSG $nick :\003$r\İyi görevler dilerim.\003"
                putquick "PRIVMSG OperServ GLOBAL \00304\002$oper\002\00312 şu anda online konumda\00304 \002\[ IRCop(O) ]\002\003"
                return 0
    }
}