Oper pass'ini giren oldugu zaman bu TCL, seviye ve nick olarak global mesaj ile bildirir.
Ayrica "/oper NICK" oper pass'ini giren kisinin nickini OPER nickine otomatik cevirir.
Botun duzgun calismasi icin, flaglarinin tam ve raw yetkisinin olmasi gerekir. Kod: Kodu kopyalamak için üzerine çift tıklayın!
# Oper Kanalini Belirtiniz.
set operchan "#Opers"
####################################
# Burdan gerisine dokunma CISS! :d #
####################################
bind raw * notice snotice:opers
proc snotice:opers {from keyword text} {
global botnick adminchan okukomut kisadomain ortadomain uzundomain
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 "Eggdrop" $oper]} { return 0 }
putquick "PRIVMSG $operchan :\00302(((\00304OPER GIRIS\00302))) NICK: \00304(\00303 $nick \00304)\00302 OPER: \00304(\00303 $oper \00304) (Network Admin)\00304"
putquick "OS GLOBAL \00304Network Admin (N) \00302ONLINE\00304 (\00303$oper\00304)\00304"
putquick "PRIVMSG $nick :\00302Sunucu yetkilisi olarak giris yaptiniz. Sunucumuza yakisir bicimde tutum sergileyiniz.\00302"
if {$nick == $oper} { return 0 }
putquick "PRIVMSG OperServ :raw svsnick $nick $oper 1:0"
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 "Eggdrop" $oper]} { return 0 }
putquick "PRIVMSG $operchan :\00302(((\00304OPER GIRIS\00302))) NICK: \00304(\00303 $nick \00304)\00302 OPER: \00304(\00303 $oper \00304) (Server Admin)\00304"
putquick "OS GLOBAL \00304Server Admin (A) \00302ONLINE\00304 (\00303$oper\00304)\00304"
putquick "PRIVMSG $nick :\00302Sunucu yetkilisi olarak giris yaptiniz. Sunucumuza yakisir bicimde tutum sergileyiniz.\00302"
if {$nick == $oper} { return 0 }
putquick "PRIVMSG OperServ :raw svsnick $nick $oper 1:0"
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 "Eggdrop" $oper]} { return 0 }
putquick "PRIVMSG $operchan :\00302(((\00304OPER GIRIS\00302))) NICK: \00304(\00303 $nick \00304)\00302 OPER: \00304(\00303 $oper \00304) (Services Admin)\00304"
putquick "OS GLOBAL \00304Services Admin (a) \00302ONLINE\00304 (\00303$oper\00304)\00304"
putquick "PRIVMSG $nick :\00302Sunucu yetkilisi olarak giris yaptiniz. Sunucumuza yakisir bicimde tutum sergileyiniz.\00302"
if {$nick == $oper} { return 0 }
putquick "PRIVMSG OperServ :raw svsnick $nick $oper 1:0"
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 "Eggdrop" $oper]} { return 0 }
putquick "PRIVMSG $operchan :\00302(((\00304OPER GIRIS\00302))) NICK: \00304(\00303 $nick \00304)\00302 OPER: \00304(\00303 $oper \00304) (Co Admin)\00304"
putquick "OS GLOBAL \00304Co Admin (C) \00302ONLINE\00304 (\00303$oper\00304)\00304"
putquick "PRIVMSG $nick :\00302Sunucu yetkilisi olarak giris yaptiniz. Sunucumuza yakisir bicimde tutum sergileyiniz.\00302"
if {$nick == $oper} { return 0 }
putquick "PRIVMSG OperServ :raw svsnick $nick $oper 1:0"
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 "Eggdrop" $oper]} { return 0 }
putquick "PRIVMSG $operchan :\00302(((\00304OPER GIRIS\00302))) NICK: \00304(\00303 $nick \00304)\00302 OPER: \00304(\00303 $oper \00304) (IRCOp)\00304"
putquick "OS GLOBAL \00304IRCOp (O) \00302ONLINE\00304 (\00303$oper\00304)\00304"
putquick "PRIVMSG $nick :\00302Sunucu yetkilisi olarak giris yaptiniz. Sunucumuza yakisir bicimde tutum sergileyiniz.\00302"
if {$nick == $oper} { return 0 }
putquick "PRIVMSG OperServ :raw svsnick $nick $oper 1:0"
return 0
}
}