Çevrimiçi

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

 

Çevrimdışı

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

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 By AspavA -- 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 by aspava"

Bu sekilde bi hata verdi kardes nedendir aceba?


while executing
"?"
(file "scripts/spam.tcl" line 5)
invoked from within
"source scripts/spam.tcl"
(file "koruma.conf" line 110)
[18:37] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

 

Çevrimdışı

arkadaşım bu kodlar sana ait değil ScanX.tcl den almışsın bu 1. si ve altına by aspava yazman ne kadar etik

2. si bu çalışmaz admin kanalı belirtilmemiş admin kanalında uygular bu komutu

3. arkadaşın hata almamısın sebebi 5. satırda forumda görülmeyen bir karakter var onu silmen lazım

 

Çevrimiçi

ben yazdım demedim ki
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kendi kullandıgım tcl mi attım sadece
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

 

Çevrimdışı

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sen yazdın demedin evet kimin yazdığınıda demedin ve putlog "spamekle by aspava" diye koduda tcl nin sonuna ekledin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bu ne demek oluyor peki neyse kullanmak isteyen kullanır son olarakda şunu tekrar belirteyim

set admin_chan "#admin"

şeklinde admin kanalınızı tcl ye eklemeniz gerekmektedir.

 

Çevrimiçi

düzeltiriz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
valla farkında bile degilim direk koydum tcl yi

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

 

Çevrimdışı

kodu denedim ben çalışmıyor Mirkan58 arkadaşın dediği gibi hata veriyordu

if {![info exists userinfover] } { bu kısmı kaldırdım ve 5.satırda olan } bunuda kaldırdım bind pub ile başlayan satırların başına set admin_chan "#opers" olarak ekledim ve tcl bot conf tcl yide aktif ederek bot sunucuda olup !spamekle kelime ve !spamsil gibi komutlar çalışmıyor tcl de bir hata olabilirmi?

 

Çevrimdışı

Kod İçindeki Prosedürlerde:
spam:tmz Adında Bir Prosedürün
Var Olması Gerektiği Görülmesine Rağmen
Yukarıda Verilen Kod'da
Böyle Bir Prosedür Yok!

Ayrıca Userinfo.tcl'nin
Yüklü Olması Gibi Bir Gereklilik,
Yukarıdaki Kod İçin;
Hiçbir Anlam İfade Etmiyor!
Çünkü Userinfo.tcl'ye Ait Hiçbir
Komut Yukarıda Yok!

Hal Böyleyken O'nada Gerek Yok!

Bu Script Çalışmaz!
Geçiniz...

__________________
Beş Tas Has Hoş Hoşaf.