TCL scripting öğrenmek istiyorum - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

¿ · 23 Ekim 2009, 03:43

Merhaba Ali,

Orneklerle gostereyim;

Bind olarak raw bind'ini kullanacagiz, sebep gelen oper noticeleri raw olarak algiliyor eggdrop.

Bota gelen raw noticeyi soyle farzedelim;

[03:24] -NOTICE- *** akcvja (TRyiz@88.88.88.88) did a /whois on you.

ve buna soyle bir islem uygulatalim. Bot'a whois cekildiginde #Opers kanalinda bana ali, veli, deli nicki whois cekmistir desin.

KOD;

# Bind'imizi olusturalim

bind raw * notice procismi

# Simdi bind'imize gore bir proc kodlayacagiz.

proc procismi {text} {

# Bot'a gelen raw noticesini algilayip islem yaptirmamiz icin hangi mesajda islem yaptiracaksak o mesajda gecen kisa bir bolumunu if icine yazmamiz gerek.
# Dikkat etmeniz gereken bir yer daha var burda -nocase kullandim, bunun anlami buyuk kucuk harf farketmeksizin islem yapmasi icin.

if {[string match -nocase "*did a /whois on you*" $text]} {

# Simdi nick kismini alacagiz. Raw noticesinde nick 2'nci kelimedir yani ?
# Set olusturup bu setin adina nick verelim. O raw noticesinin icinde 2'nci kelimemiz artik $nick olarak islem yaptiracagiz demek oluyor.

set nick [lindex $text 2]

# Islem yaptirmamizin zamani geldi. :d

putquick "PRIVMSG #Opers :$nick bana whois cekti."

# Islemimizide yaptirdik simdi ise if'i kapatalim.

}

# If'imizi kapattik simdi ise proc'umuzu kapatalim.

}

Evet islemimiz bitti cikan sonuc;

bind raw * notice procismi
proc procismi {text} {
if {[string match -nocase "*did a /whois on you*" $text]} {
set nick [lindex $text 2]
putquick "PRIVMSG #Opers :$nick bana whois cekti."
}
}

Raw · 23 Ekim 2009, 23:33

teşekkürler İLKER ;
ben bu kodu sunucumda kullanıyorum . Bir yerden bulup botuma ekledim . Anlatımın için teşekkürler . Gayet açıklayıcı oldu . Bu bağlamda ;

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


*** Notice -- Client connecting on port 6667: nick (keyfaLem@78.***.232.**) [clients]

yukarıdaki server notice sinde kullanım ;

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

bind raw * notice procismi
proc procismi {text} {
    if {[string match -nocase "*Client connecting on port*" $text]} {
    set port [lindex $text 5]
set nick [lindex $text 6]
         putquick "PRIVMSG #Opers :$nick su anda $port undan sunuya giriş yaptı."
  }
}

şeklinde mi olmalı anlattığın mantıka göre ?

KuRSuN · 18 Kasım 2009, 19:58

Namesis Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Evet islemimiz bitti cikan sonuc;

bind raw * notice procismi
proc procismi {text} {
if {[string match -nocase "*did a /whois on you*" $text]} {
set nick [lindex $text 2]
putquick "PRIVMSG #Opers :$nick bana whois cekti."
}
}

Bu Kodu CR Sunucu'da calistirabilirmiyiz peki Namesis?

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Scripting Hakkında	Lord_Raiden	mIRC Scripting Sorunları	1	22 Ekim 2008 02:41
mIRC Scripting	By_GuRbey	mIRC Scripting Sorunları	3	01 Ağustos 2008 18:57
Scripting	laglagorg	mIRC Scripting Sorunları	1	17 Aralık 2007 03:50
mIRC Scripting Öğrenmek İstoyorum...	DoStNaMe	mIRC Scripting Sorunları	19	27 Şubat 2006 13:50

Konuyu Toplam 3 Üye okuyor. (0 Kayıtlı üye ve 3 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.