on @*:text:*:#:{ var %badwords = bad words here separated by spaces, %i = 1 while ($gettok(%badwords,%i,32)) { if ($istok($1-,$v1,32)) <do stuff> inc %i } }
on @$*:text:$(/(?<=^|[ ,])( $+ %badwords $+ )[!?.]*(?= |$)/i):#:{ <do whatever> }