[15:26:38] -Irc.Aynetim.Com- Misafir754 ( Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. .Administrator) [qeweSe] is now a network administrator (N)
Statuste Cıkan Notice Yukarida verdim
Opers Kanalinda Botun Yolladigi MSG
[15:14:53] <ariStOtLe> ••• Net Admin! -> :qeweSe
TCL deki Kod.
if { [string match "*is now a network administrator*" $arg] } {
set oper [lindex [split $arg] 1]
putquick "PRIVMSG $admin_chan \002••• Net Admin! \002\00305 -> $oper"
}
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."
Deneyin...
__________________ Eskiden buralar hep dutluktu...
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
}
}
12 Şubat 2010, 15:28
Benzer Konular 
Normal
