Word Filter for nexbot

alias badwords {
  return fuck,shit,addthewordhere
}
alias filter {
  var %i 1
  set %filter $1-
  while (%i <= $numtok($1-,32)) {
    if ($istok($badwords,$($+($,%i),2),44)) {
      set %filter $replacecs(%filter,$($+($,%i),2),$str(*,$len($($+($,%i),2))))
    }
    inc %i
  }
  $iif($isid,return %filter,msg $active %filter)
}