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

BuCaLI · 21 Temmuz 2009, 12:36

uygulattığın procun yani "proc proxy:check" hemen ilk satırına da o komutu eklersen proc her çalıştığında timerı tekrar aktif edecektir. Bu durumda her 1 dakikada çalışacaktır.

Raw · 23 Ekim 2009, 02:26

merhaba ;
sunucu noticelerine göre botumuza nasıl işlem yaptırırız . örnek verecek olursak ,
did whois on you , client connecting port , make sajoin ...
unreal ve services bazı komularda oper noticeleri atıyor bu noticelere göre uygulayan ve uygulanan nicklere nasıl işlemler yaptırabiliriz . şimdiden teşekkürler ..

¿ · 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 ?

¿ · 24 Ekim 2009, 01:20

Evet aynen oyle.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu arada ismim Ilker degil, Dincer.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bir ornek daha verelim.

[01:12] -NOTICE- *** Notice -- Namesis used SAJOIN to make SenALi join #tryiz_sohbet

bind raw * notice procismi
proc procismi {text} {
if {[string match -nocase "*used SAJOIN to*" $text]} {
set cekennick [lindex $text 4]
set cekilennick [lindex $text 9]
set cekilenkanal [lindex $text 11]
putquick "PRIVMSG #Opers :$cekennick nickli oper, $cekilennick nickli kullaniciyi $cekilenkanal kanalina cekmistir. Bilginize."
}
}

Raw · 24 Ekim 2009, 01:42

Alıntı:

Bu arada ismim Ilker degil, Dincer.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

pardon Dinçer
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
teşekkürler bu konuyu anladık zannımca .. peki bi eggdrop bota bir nickle aynı ipden bağlı clone nickleri buldurabilirmiyiz ? bunun için hangi yöntem kullanılmalı ?

¿ · 24 Ekim 2009, 21:46

Ali basit bir clone korumasi yapalim.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

set clonelimit "3"

set clonereason "Clone girisi tespit edildi."

bind join - * clones:kick
proc clones:kick {nick uhost hand chan} {
global botnick clonelimit clonereason
set clone 0
foreach tara [chanlist $chan] {
if {[string equal -nocase [scan $uhost %*\[^@\]@%s] [scan [getchanhost $tara $chan] %*\[^@\]@%s]]} {
incr clone
lappend cln $tara
}
}
if {$clone >= $clonelimit} {
putquick "MODE $chan +b $nick"
putquick "KICK $chan $nick $clonereason"
}
}

Ali anlatmaya gerek duymuyorum. Anlayacagindan eminim sadece botun yapacagi islemleri degistirip diledigin gibi kullanabilirsin.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

putquick "MODE $chan +b $nick"
putquick "KICK $chan $nick $clonereason"

Banlayip kick'lemek yerine;

putquick "KILL $nick $clonereason" ve/veya putquick "ZLINE $nick 1h $clonereason"

seklinde kullanabilirsin.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

insane · 08 Kasım 2009, 16:53

kanalda sadece 3. giren cloneyi atıyor peki bunu 3. clone girdiğinde 3 cloneyi atması için ne kullanmamız lazım , + ircop.xx.com hostlarına bile işlem yapıyor host olayı için muaf eklemek lazım ?

¿ · 08 Kasım 2009, 20:18

# Clone limiti.
set clonelimit "3"

# Clone kick sebebi.
set clonereason "Clone girisi tespit edildi."

# Muaf hostlar.
set clonemuafhost1 "ircop.domain.com"
set clonemuafhost2 "coadmin.domain.com"
set clonemuafhost3 "servicesadmin.domain.com"
set clonemuafhost4 "serveradmin.domain.com"
set clonemuafhost5 "netadmin.domain.com"

bind join - * clones:kick
proc clones:kick {nick uhost hand chan} {
global botnick clonelimit clonereason clonemuafhost1 clonemuafhost2 clonemuafhost3 clonemuafhost4 clonemuafhost5
if {$nick == $botnick} { return 0 }
if {[string match -nocase $clonemuafhost1 [scan $uhost %*\[^@\]@%s]] || [string match -nocase $clonemuafhost2 [scan $uhost %*\[^@\]@%s]] || [string match -nocase $clonemuafhost3 [scan $uhost %*\[^@\]@%s]] || [string match -nocase $clonemuafhost4 [scan $uhost %*\[^@\]@%s]] || [string match -nocase $clonemuafhost5 [scan $uhost %*\[^@\]@%s]]} { return 0 }
set clone 0
foreach tara [chanlist $chan] {
if {[string equal -nocase [scan $uhost %*\[^@\]@%s] [scan [getchanhost $tara $chan] %*\[^@\]@%s]]} {
incr clone
lappend cln $tara
}
if {$clone >= $clonelimit} {
foreach all [chanlist $chan] {
if {[string equal -nocase [scan $uhost %*\[^@\]@%s] [scan [getchanhost $all $chan] %*\[^@\]@%s]]} {
putquick "MODE $chan +b *!*[string range $uhost [string first @ $uhost] e]"
putquick "KICK $chan $all $clonereason"
}
}
}
}
}

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