Scakk commented on a Page, Bad word kick/ban ( text , emote , notice )  -  Oct 05, 2007

Added the below Aliases

alias addword {
  if (!$1) { echo Please specify something to be added. | halt }
  var %i 1
  while (%i <= $0) {
  if ($istok(%badwords, $ [ $+ [ %i ] ] ,44)) { echo That word or words is already in the list | halt } | inc %i }
  set %badwords $replace($addtok(%badwords,$1-,32),$chr(32),$chr(44))
  echo The new list is --> %badwords
}

alias delword {
  if (!$1) { echo Please specify something to be removed. | halt }
  if (!$istok(%badwords,$1,44)) { echo That word is not in the list. | halt }
  else {
    set %badwords $remtok(%badwords,$1,44)
    echo The new list is --> %badwords
  }
}
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.