2da
@verb #6487:"@add-word" none none none rdo #562
@program #6487:"@add-word" none none none
"To add a word to be translated."
"If player is not owner, goway."
if (player != this.owner)
  return E_PERM
endif
"Ask for word."
player:tell("New word:")
word = $command_utils:read()
"Check if word exists in list."
for each in (table = this.xlate)
  if (word == (test = each[1])[3..length(test) - 2])
    player:tell("Word exists.")
    return
  endif
endfor
"Confirm/revise new word."
if (!$command_utils:yn(tostr("Add `" + word + "'?")))
endif
"Re-check if revised."
"Get translation."
"Confirm translation."
"Add new word and translation."
"Last modified by killeen (#562) on Thu Mar 28 21:38:54 2002 MST."
.

0