foreach sbkelime $sbreklams {
if {[string match -nocase $sbkelime $sbrest]} {
set reklam_msg [join [split $text .] .?]
set sbreklam_msg [join [split $reklam_msg " "] .]
set ireklam [stripcodes bcru $sbreklam_msg]
set reklam [spam:tmz $ireklam]
putquick "SHUN $nick :\00302(\00304ScanX\00302)\003"
putquick "PRIVMSG $admin_chan :\002\00302$nick :\002 Tarafımdan shunlanmıştır. Sebep: Özelime muhtemel reklam içeren şu mesajı yazdı:\003 $text"
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(4ScanX2) ^$reklam$"
putquick "PRIVMSG $admin_chan :\00304Ve reklam spamfiltera eklenmiştir! Spamfilterdan çıkarmak için:\003 !spamsil ^$reklam$"
}
}
}