Forums Scripts & Popups Identifying a word

 
on @1:TEXT:*:#botsparadise: {  
  /unset %match  
  var %word = 1  
  while (%word <= $numtok($1-, 32)) {  
    if ($read(swearwords.txt, s, $gettok($1-, %word, 32))) var %match = $addtok(%match, $gettok($1-, %word, 32), 44)    
    /inc %word 
  }  
  if (%match != $null) /msg $chan Do not use: < $+ $nick $+ > " $+ %match $+ " You will be kicked if it happens again | /write swearer.txt $nick
}