IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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 11 Şubat 2010 20:32
tcl kod yardim edin
 
} elseif { [string match "*is now a network administrator*" $arg] } {
set oper [lindex [split $arg]-1 1]
putquick "PRIVMSG $admin_chan \002••• Net Admin! :\002\00305 -> $oper"


[20:00:29] <ariStOtLe> ••• Net Admin! : -> :Misafir612




Rumuzun Yanindaki Noktayi nasil kaldiririm ?

qeweSe 11 Şubat 2010 22:45
Cevap: tcl kod yardim edin
 
kimse yardim etmicek mi..

takiLsana 11 Şubat 2010 22:47
Cevap: tcl kod yardim edin
 
[:]\002\00305 -> $oper işaretli yeri kaldırıp denedinmi ?

takiLsana 11 Şubat 2010 23:04
Cevap: tcl kod yardim edin
 
benim soyledigimle senin soylediginin arasındaki farkı cozemedim veySel :)

insane 11 Şubat 2010 23:08
Cevap: tcl kod yardim edin
 
farkı fark etmedin ya artık farketsende farketmez ;)

takiLsana 11 Şubat 2010 23:12
Cevap: tcl kod yardim edin
 


benim kafam guzel sanırım veySel ama hala aynı şeyi soyledigimize inanıyorum ( : ) bunu kaldıracagını soylemiştim SenDe aynı kodlardan ( : ) bunu silmesini soylemişsin nEySe sonuçta arkadaşa yardımcı oldugun için tşk ederim

SaW 12 Şubat 2010 03:51
Cevap: tcl kod yardim edin
 
Size kafanızı biraz daha karıştıracak birşey söyliym mi VeySeL ve xL ?
Biraz daha dikkatli baksanız arkadaşın mesajını baştan düzenleyip düzenleme sebebinde de çözüm yolunu sunmuştum, hem kendisi hem de siz buna dikkat etmemişsiniz sanırım.. Buyrun biraz daha karışsın kafanız ;P

takiLsana 12 Şubat 2010 12:39
Cevap: tcl kod yardim edin
 
Konu Nebiliymben tarafından (Dün Saat 23:31 ) değiştirilmiştir. Sebep: Kırmızı ile belirttiğim iki noktayı kaldırırsan problemin çözülür.

bunu gordum gordum ama geç kalmıştım iki mesajıda yollamıştım :)

qeweSe 12 Şubat 2010 13:41
Cevap: tcl kod yardim edin
 
20:00:29] <ariStOtLe> ••• Net Admin! : -> :Misafir612

Burda iki tane : var ben Rumuzun yanındakini kaLdirmak istiyorum noticenden :Misafir612 Şeklinde aliyor. Yani sol taraftaki : nasil kaldiririm ?

Siber55 12 Şubat 2010 15:02
Cevap: tcl kod yardim edin
 
Alıntı:
qewese Nickli Üyeden Alıntı (Mesaj 1040321079)
20:00:29] <ariStOtLe> ••• Net Admin! : -> :Misafir612

Burda iki tane : var ben Rumuzun yanındakini kaLdirmak istiyorum noticenden :Misafir612 Şeklinde aliyor. Yani sol taraftaki : nasil kaldiririm ?

Söylemek istediğini sanırım anladım.

Kod:
set oper [lindex [split $arg]-1 1]
$oper statustan alması gereken bölüm olarak tanımlanmış.
O halde :NICK statustan çekiliyor. Buna gerekli birşeyler karalamak için status mesajlarını görmek lazım diye düşünüyorum. Editlenmiş olabilir.

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: 02:34.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk