@verb #9239:"@unteach @unlearn" this at/to any rxdo #7788
@program #9239:"@unteach @unlearn" this at/to any
if (!player:controls(this) && this.teachok == 0)
  player:tell("Permission denied.")
  return
endif
if (length(args) != 3)
  player:tell("Wrong number of args; try this instead:")
  player:sub_tell("  @unteach %t to <command>")
  player:tell("where <command> is a quoted strings.")
  return
endif
if (typeof(args[3]) != STR)
  player:tell("Wrong type of arg; try this instead:")
  player:sub_tell("  @unteach %t to <command>")
  player:tell("where <command> is a quoted strings.")
  return
endif
if (indx = $list_utils:iassoc(args[3], this.commands))
  this.commands = listdelete(this.commands, indx)
  player:sub_tell("%t no longer knows how to \"%1\".", args[3])
  return
endif
player:sub_tell("%t didn't know how to \"%1\".", args[3])
"Last modified by Dax (#789) on Tue Jun  2 17:10:15 1998 EDT."
.