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

>
+
Etiketlenen Kullanıcılar

1Beğeni(ler)
  • 1 Post By Heartbroken

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 07 Ekim 2009, 14:19   #1
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
!spamekle tcl Buyrun!




Arkadaşlar adındanda belli eggdrop dotunuza uyarlarsanız güzel bir koruma saglıcaktır..

!spamekle kelime / !spamekle k e l i m e şeklinde ekleme yapabilirsiniz boşluklu ve boşlukluz

!spamsil kelime

dir komutları. umarım işinize yarar kolay gelsin.


Kod :

if {![info exists userinfover] } {
putlog "*** spamekle Tcl Yuklenemiyo 2.0 -- Userinfo v1.01 .tcl Yuklu Olmak Zorunda.!"
return 0
}
 
bind pub - !spamadd spam:msg
proc spam:msg {n u h c a} {
global botnick admin_chan
set spam_msg [join [split $a .] .?]
set yspam_msg [join [split $spam_msg " "] .]
set vspam [stripcodes bcru $yspam_msg]
set spam [spam:tmz $vspam]
if {[onchan $n $admin_chan]==1} {
putquick "SPAMFILTER add cpNna gzline 30h 14sunucu_kurallarına_aykırı_reklam/küfür/argo_söz_kullanımdından_dolayı_sunucuya_girişiniz_ yasaklanmıştır2(4CHM2) ^$spam$"
putquick "PRIVMSG $c ^$spam$ 15-14-1> 4spamfiltera eklendi"
}
if {[onchan $n $admin_chan]==0} {
putserv "PRIVMSG $admin_chan 5$n 2!spamekle $a 14komutunu kullanmaya çalıştı!"
}
}
bind pub - !spamekle spam:ek
proc spam:ek {n u h c a} {
global botnick admin_chan
if {[onchan $n $admin_chan]==1} {
putquick "SPAMFILTER add cpNna gzline 30h 14sunucu_kurallarına_aykırı_reklam/küfür/argo_söz_kullanımdından_dolayı_sunucuya_girişiniz_ yasaklanmıştır2(4CHM2) $a"
putquick "PRIVMSG $c $a 15-14-1> 4spamfiltera eklendi"
}
if {[onchan $n $admin_chan]==0} {
putserv "PRIVMSG $admin_chan 5$n 2!spamadd $a 14komutunu kullanmaya çalıştı!"
}
}
bind pub - !spamdel spamsil:msg
proc spamsil:msg {n u h c a} {
global botnick admin_chan
set spam_msg [join [split $a .] .?]
set yspam_msg [join [split $spam_msg " "] .]
set vspam [stripcodes bcru $yspam_msg]
set spam [spam:tmz $vspam]
if {[onchan $n $admin_chan]==1} {
putquick "SPAMFILTER del cpNna gzline - - ^$spam$"
putquick "PRIVMSG $c $a 15-14-1> 4spamfilterdan çıkarıldı"
}
if {[onchan $n $admin_chan]==0} {
putserv "PRIVMSG $admin_chan 5$n 2!spamsil $a 14komutunu kullanmaya çalıştı!"
}
}
bind pub - !spamsil spam:sil
proc spam:sil {n u h c a} {
global botnick admin_chan
if {[onchan $n $admin_chan]==1} {
putquick "SPAMFILTER del cpNna gzline - - $a"
putquick "PRIVMSG $c $a 15-14-1> 4spamfilterdan çıkarıldı"
}
if {[onchan $n $admin_chan]==0} {
putserv "PRIVMSG $admin_chan 5$n 2!spamdel $a 14komutunu kullanmaya çalıştı!"
}
}
putlog "spamekle"

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Web Developer
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Web Developer

Konu AspavA tarafından (08 Ekim 2009 Saat 13:42 ) değiştirilmiştir.
 
Alıntı ile Cevapla

 

Etiketler
buyrun, spamekle, tcl


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
SpamEkle / Sil / List / Yetkili RmX78 mIRC Scripting Sorunları 1 16 Mayıs 2015 19:36
!spamekle kelime Knife_ mIRC Scripting Sorunları 9 21 Nisan 2008 03:06