![[-]](https://lamerler.com/images/collapse.png "[-]")
!Spamekle - !Blockekle Tcl
KULLANIM KOMUTLARI
!spamekle kelime
!spamsil kelime
!blockekle kelime
!blocksil kelime
spamekle.tcl
blockekle.tcl
KULLANIM KOMUTLARI
!spamekle kelime
!spamsil kelime
!blockekle kelime
!blocksil kelime
spamekle.tcl
Kod:
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 #log]==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(4SBC2) ^$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 #log]==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(4SBC2) $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 #log]==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 #log]==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ı!"
}
}
proc spam:tmz {i} {
regsub -all -- \\\\ $i \\\\\\\\ i
regsub -all -- \\\[ $i \\\\\[ i
regsub -all -- \\\] $i \\\\\] i
regsub -all -- \\\} $i \\\\\} i
regsub -all -- \\\{ $i \\\\\{ i
regsub -all -- \\\" $i \\\\\" i
regsub -all -- \\\* $i \\\* i
regsub -all -- \\\$ $i \\\\\$ i
regsub -all -- \\\| $i \\\\\| i
regsub -all -- \\\^ $i \\\\\^ i
regsub -all -- \\\( $i \\\\\( i
regsub -all -- \\\) $i \\\\\) i
regsub -all -- \\\+ $i \\\\\+ i
regsub -all -- \\\- $i \\\\\- i
regsub -all -- \\\/ $i \\\\\/ i
regsub -all -- \\\, $i \\\\\, i
regsub -all -- \\\' $i \\\\\' i
regsub -all -- \\\´ $i \\\\\´ i
regsub -all -- \\\~ $i \\\\\~ i
return $i
} blockekle.tcl
Kod:
bind pub - !blockadd 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 #log]==1} {
putquick "SPAMFILTER add cpnNPquda block 30h 2(4Yasak!2) ^$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 - !blockekle spam:ek
proc spam:ek {n u h c a} {
global botnick admin_chan
if {[onchan $n #log]==1} {
putquick "SPAMFILTER add cpnNPquda block 30h 2(4Yasak!2) $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 - !blockdel 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 #log]==1} {
putquick "SPAMFILTER del cpnNPquda block - - ^$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 - !blocksil spam:sil
proc spam:sil {n u h c a} {
global botnick admin_chan
if {[onchan $n #log]==1} {
putquick "SPAMFILTER del cpnNPquda block - - $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ı!"
}
}
proc spam:tmz {i} {
regsub -all -- \\\\ $i \\\\\\\\ i
regsub -all -- \\\[ $i \\\\\[ i
regsub -all -- \\\] $i \\\\\] i
regsub -all -- \\\} $i \\\\\} i
regsub -all -- \\\{ $i \\\\\{ i
regsub -all -- \\\" $i \\\\\" i
regsub -all -- \\\* $i \\\* i
regsub -all -- \\\$ $i \\\\\$ i
regsub -all -- \\\| $i \\\\\| i
regsub -all -- \\\^ $i \\\\\^ i
regsub -all -- \\\( $i \\\\\( i
regsub -all -- \\\) $i \\\\\) i
regsub -all -- \\\+ $i \\\\\+ i
regsub -all -- \\\- $i \\\\\- i
regsub -all -- \\\/ $i \\\\\/ i
regsub -all -- \\\, $i \\\\\, i
regsub -all -- \\\' $i \\\\\' i
regsub -all -- \\\´ $i \\\\\´ i
regsub -all -- \\\~ $i \\\\\~ i
return $i
}