!spamekle tcl Buyrun! - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

*AspavA* · 07 Ekim 2009, 14:19

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"

Mirkan58 · 07 Ekim 2009, 18:43

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)

GemLik · 07 Ekim 2009, 20:58

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

*AspavA* · 07 Ekim 2009, 23:37

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.

GemLik · 07 Ekim 2009, 23:44

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.

*AspavA* · 08 Ekim 2009, 13:43

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

helloweenfs · 21 Ocak 2018, 01:43

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?

Heartbroken · 31 Ocak 2018, 06:41

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
!spamekle kelime	Knife_	mIRC Scripting Sorunları	9	21 Nisan 2008 03:06

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

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.