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

>
+
Etiketlenen Kullanıcılar

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 23 Haziran 2008, 10:02   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Bu ne işe Yarıyo biLen varmı




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
## Ban sebebi ? set awhois(bansebep) "Whois'niz sunucu kurallarina aykiri!." ## Ban Suresi ? 0= temelli ## 90 = 90 dakika set awhois(sure) "90" # Whoisde hangi kelimeler gecerse kullaniciyi banliyacagiz ? set kotu(list) { "*****" "*http://*" "*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kontrol edilicek kanallar.? set kanallar { #Sohbet } ## foreach chan [channels] { set kanallar $chan } bind join - * awhois(join) ## proc awhois(join) {nick uhost hand chan} { if {[strlwr $nick] == [strlwr $::botnick] || [matchattr $hand of|fo $chan]} { return } putserv "WHOIS $nick" set awhois(banhost) *!*[string range $uhost [string first @ $uhost] e] set ::reklamci $nick set ::kanal $chan set ::uhost $uhost bind RAW - 301 awhois(kontrol) } proc awhois(kontrol) {from key arg} { global awhois kanallar set chan $::kanal set nick $::reklamci set uhost $::uhost set awaymesaj [string range [join [lrange $arg 2 end]] 1 end] foreach bla $::kotu(list) { if {![string match -nocase $bla $awaymesaj]} { continue } awhois(banla) $nick $uhost break } } proc awhois(banla) {nick uhost} { global awhois kanallar putserv "privmsg $kanallar :$nick ve *!*[string range $uhost [string first @ $uhost] e] reklam yapti.!" putquick "MODE $kanallar +b *!*[string range $uhost [string first @ $uhost] e]" putkick $kanallar $nick $awhois(bansebep) newchanban $kanallar *!*[string range $uhost [string first @ $uhost] e] AwayWhois.Tcl $awhois(bansebep) $awhois(sure) } putlog "AwayWhois.tcl ...!"

Lütfen Yardımmmmmmm;huh

 
Alıntı ile Cevapla

 

Etiketler
bilen, işe, varmı, yarıyo


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
5'li ban kodunu bilen varmı? tayfuntr mIRC Scripting Sorunları 6 03 Mart 2011 03:25
PHP Bot Yazmayı Bilen Varmı ? ALONG YOUNG PHP 0 09 Mart 2009 23:24
Fransızca biLen varmı ? MyhtoLogy Komik Loglar 4 22 Şubat 2008 16:56
Bilen Varmı ? BySuSKuN mIRC Scripting Sorunları 7 07 Aralık 2007 18:59
Bilen varmı? Xadd1 Servisler 3 23 Temmuz 2005 09:33