#bilgi kanalı için tcl - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

tolgabati · 14 Kasım 2014, 01:53

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

kod calısıyor yalnız bastaki "if" ' i "İf" olarak yazmısım ondan calismamistir. Tekrardan copy / paste yapıp deneyebilirsiniz..

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

bind pub - !nick msg_nickban
proc msg_nickban {nick uhost handle chan arg} {
global botnick
set person [lindex $arg 0]
if {$person == $botnick} {return}
if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {
if {![ishalfop $person $chan] && ![isop $person $chan]} {
putquick "PRIVMSG IRC mode $chan +b $person"
putquick "kick $chan $person Kanal kurallarına uymadığınız tespit edildi. IP'niz banlandı."
putquick "PRIVMSG #bilgi $chan kanalında $person nickli üye $nick tarafından kanaldan atıldı."
}
}
}

Çok teşekkür ederim tıkır tıkır çalışıyor şuan.Size zahmet olmassa bir şey daha rica edicem şimdi ScanX eggdrop bot kanalda birine ban attığı zaman mesela 5 dakika banlandınız diyor ve tam 5 dakika sonra saniyesi saniyesine o banı kaldırıyor.Ama ben ne kadar uğraşsamda !nick ban atıyorum bota .chanset #kanal ban-time 10) diye tanıtıyorum yada conf dosyasına global-ban-time 10 set-ban-time 10 bunların hiç birisi tam verimli değil attığı banı 10dak 20sn yada 10 dak 50sn gibi tutarsız bir biçimde banı açıyor.Bunu nasıl ScanX deki bot gibi ayarlıyabiliriz.

rascoLn · 14 Kasım 2014, 14:04

Şöyle bir kod yaptım işine yarar umarım

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

bind pub - !nick msg_nickban

proc msg_nickban {nick uhost handle chan arg} {
global botnick

# Oto-Ban Zamanı
set ::autoban "1"

# Bilgi Verilecek Kanal
set ::bkanal "#bilgi"

set person [lindex $arg 0]
set ::bantime [lindex $arg 1]
set ::kanal $chan
if {$person == $botnick} {return}
if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {
if {![ishalfop $person $chan] && ![isop $person $chan]} {
putquick "whois $person"
bind raw - 311 whois
}
}
}

proc whois { from keyword arg } {
set anick [lindex $arg 0]
set bnick [lindex $arg 1]
set banip [lindex $arg 3]
putquick "privmsg irc mode $::kanal +b $banip"
if { $::bantime == ""} {
putquick "kick $::kanal $bnick :\0031Kanal kurallarına uymadığınız tespit edildi. (\0034 $::autoban dakika\0031 ) IP'niz banlandı. \0034<\002\0033 autoban time\002\0034 >"
putquick "PRIVMSG $::bkanal :$::kanal kanalında $bnick nickli üye $anick tarafından kanaldan atıldı."
} else {
putquick "kick $::kanal $bnick :\0031Kanal kurallarına uymadığınız tespit edildi. (\0034 $::bantime dakika\0031 ) IP'niz banlandı. \0034<\002\0033 manuel time\002\0034 >"
putquick "PRIVMSG $::bkanal :$::kanal kanalında $bnick nickli üye $anick tarafından kanaldan atıldı."
}
if { $::bantime != "" } {
timer $::bantime [list putquick "privmsg irc mode $::kanal -b $banip"]
} else {
timer $::autoban [list putquick "privmsg irc mode $::kanal -b $banip"]
}
}

tolgabati · 17 Kasım 2014, 08:23

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

Şöyle bir kod yaptım işine yarar umarım

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

bind pub - !nick msg_nickban

proc msg_nickban {nick uhost handle chan arg} {
global botnick

# Oto-Ban Zamanı
set ::autoban "1"

# Bilgi Verilecek Kanal
set ::bkanal "#bilgi"

set person [lindex $arg 0]
set ::bantime [lindex $arg 1]
set ::kanal $chan
if {$person == $botnick} {return}
if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {
if {![ishalfop $person $chan] && ![isop $person $chan]} {
putquick "whois $person"
bind raw - 311 whois
}
}
}

proc whois { from keyword arg } {
set anick [lindex $arg 0]
set bnick [lindex $arg 1]
set banip [lindex $arg 3]
putquick "privmsg irc mode $::kanal +b $banip"
if { $::bantime == ""} {
putquick "kick $::kanal $bnick :\0031Kanal kurallarına uymadığınız tespit edildi. (\0034 $::autoban dakika\0031 ) IP'niz banlandı. \0034<\002\0033 autoban time\002\0034 >"
putquick "PRIVMSG $::bkanal :$::kanal kanalında $bnick nickli üye $anick tarafından kanaldan atıldı."
} else {
putquick "kick $::kanal $bnick :\0031Kanal kurallarına uymadığınız tespit edildi. (\0034 $::bantime dakika\0031 ) IP'niz banlandı. \0034<\002\0033 manuel time\002\0034 >"
putquick "PRIVMSG $::bkanal :$::kanal kanalında $bnick nickli üye $anick tarafından kanaldan atıldı."
}
if { $::bantime != "" } {
timer $::bantime [list putquick "privmsg irc mode $::kanal -b $banip"]
} else {
timer $::autoban [list putquick "privmsg irc mode $::kanal -b $banip"]
}
}

Şimdi denedim ama yine aynı şekilde tutarsız banlar 30sn 20 sn gibi değişken sürelerde açılıyor.Mesela 22.10.15 te ban atıldı 22.11.15 te açılmıyor ScanX botta tam olarak bunu yapmışlar diyelimki ban süresini 5 dak ayarladın tam olarak ban 300 saniye sonra açılıyor nasıl yapmışlar anlamadım

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal gösterime geğ Hybrid-Şeklinde Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
ops kanalı için	TİGeR	mIRC Scripting Sorunları	9	31 Ekim 2012 00:00
Beşiktaş kanalı için bot	Cpu	mIRC Scripting Sorunları	22	17 Temmuz 2012 09:19
Radyo kanalı için girişte /radyoac çıkışta /radyokapat	phatih	mIRC Scripting Sorunları	1	07 Nisan 2009 04:11
bot için log kanalı	KnOuCK	Eggdrop, NeoStats, BNC	2	09 Ocak 2008 22:33

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.