IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 2 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   tcl kod yardim edin (https://www.ircforumlari.net/eggdrop-neostats-bnc/316246-tcl-kod-yardim-edin.html)

qeweSe 12 Şubat 2010 15:28
Cevap: tcl kod yardim edin
 
[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
Cevap: tcl kod yardim edin
 
Kod:
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
Cevap: tcl kod yardim edin
 
Denedim ve


[16:36:30] <ariStOtLe> Network

sadece bu yazi cıktı

¿ 12 Şubat 2010 17:34
Cevap: tcl kod yardim edin
 
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:

# 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
Cevap: tcl kod yardim edin
 
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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 19:58.
Sayfa 2 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net