on *:TEXT:!addword*:#: {
  if ($nick !isop $chan) || ($nick !ishop $chan) { notice $nick You can't add words! | halt }
  if (( $$2 !isalpha )) { notice $nick Sorry, you can't add words that don't contain only letters. | halt }
  var %s = $read(hangman.txt, w, $$2)
  if (( %s != $null )) { notice $nick That word is already in the list | halt }
  write hangman.txt $$2
  msg # The word $$2 has been added.
}