tcl kod yardim edin - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

qeweSe · 12 Şubat 2010, 15:28

[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"
}

vermiş oldugun kodu Denemiştim olmadi.

CanCeL · 12 Şubat 2010, 16:09

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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...

qeweSe · 12 Şubat 2010, 16:42

Denedim ve

[16:36:30] <ariStOtLe> Network

sadece bu yazi cıktı

¿ · 12 Şubat 2010, 17:34

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
     }
 }

qeweSe · 12 Şubat 2010, 18:29

teşşekkürler dostum ama bana lasim olan kod

Alıntı:

set nick [string range [lindex [split [lindex $text 1] ":"] 1] 0 end]

ßuyduu Cok aol

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Yardim edin	Rizespor	Counter Strike Online - CS GO	6	11 Ağustos 2012 00:37
Yardim edin Lütfen	MaLt	mIRC Scripting Sorunları	3	18 Ekim 2007 22:42
Acilen Yardim Edin..!	unknow	Servisler	6	17 Nisan 2005 16:39

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.