on ^*:text:*:*:{
var %wordst = $calc($pos($1-,$chr(32),0) + 1)
var %count = 1
var %checkwords = 0
while (%count <= %wordst) {
var %word = $remove($gettok($1-,%count,32),$chr(44),!,.,?,;,-,_)
if ($istok(%shitlist,%word,44)) { var %checkwords = 1 | break }
inc %count
}
if (%checkwords == 1) { echo $iif($target == $me,$nick,$target) Msg from $nick is blocked! | haltdef }
}