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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   !spamekle tcl Buyrun! (https://www.ircforumlari.net/eggdrop-neostats-bnc/270222-spamekle-tcl-buyrun.html)

AspavA 07 Ekim 2009 14:19

!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"

Mirkan58 07 Ekim 2009 18:43

Cevap: !spamekle tcl Buyrun!
 
Alıntı:

CooLAspavA Nickli Üyeden Alıntı (Mesaj 825028)
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

Cevap: !spamekle tcl Buyrun!
 
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

Cevap: !spamekle tcl Buyrun!
 
ben yazdım demedim ki :) kendi kullandıgım tcl mi attım sadece :)

GemLik 07 Ekim 2009 23:44

Cevap: !spamekle tcl Buyrun!
 
:) sen yazdın demedin evet kimin yazdığınıda demedin ve putlog "spamekle by aspava" diye koduda tcl nin sonuna ekledin :D 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

Cevap: !spamekle tcl Buyrun!
 
düzeltiriz :) valla farkında bile degilim direk koydum tcl yi

helloweenfs 21 Ocak 2018 01:43

Cevap: !spamekle tcl Buyrun!
 
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

Cevap: !spamekle tcl Buyrun!
 
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...


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 07:02.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk