Tags
blockekle spamekleme spameklemetclsi spamaddon spambot spamekle spamekletclsi spamkodlari tcl spam spamtcl spamkod spameklemetcl

Gösterim Stili !spamekle - !blockekle tcl.

Admin #1   10-26-2020, 01:02 PM < FORUM KURUCUSU Çevrimdışı Yorumları: 296 Konuları: 243 Kayıt Tarihi: Feb 2020 Rep Puanı: 101 !Spamekle - !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 }  WWW Ara Cevapla

« Önceki Konu | Sonraki Konu »

Bu Konudaki Yorumlar

!spamekle - !blockekle tcl. - Yazar: Admin - 10-26-2020, 01:02 PM RE: !spamekle - !blockekle tcl. - Yazar: Lamer - 10-26-2020, 01:20 PM RE: !spamekle - !blockekle tcl. - Yazar: Admin - 10-26-2020, 01:31 PM

Konuyu Okuyanlar: 1 Ziyaretçi