on *:JOIN:#RSPC:{
  %regex = $+(/,$chr(40),%badwords,$chr(41),/)
  if ($regex($nick,%regex)) kick $chan $nick Your nick contains inappropriate words. Please change it.
}
alias addbadword {
  if ($isid) return
  else {
    if ($istok(%badwords,$$1,124)) echo 4 -a * /addbadword: word already on list
    else set %badwords $addtok(%badwords,$$1,124)
  }
}
alias rembadword {
  if ($isid) return
  else {
    if (!$istok(%badwords,$$1,124)) echo 4 -a * /addbadword: word not on list
    else set %badwords $remtok(%badwords,$$1,124)
  }
}