3ff
@verb #9239:"@teach" this at/to any rxdo #7788
@program #9239:"@teach" this at/to any
if (!player:controls(this) && this.teachok == 0)
  player:tell("Permission denied.")
  return
endif
if (length(args) != 4)
  player:tell("Wrong number of args; try this instead:")
  player:sub_tell("  @teach %t to <command> <what to do>")
  player:tell("where <command> and <what to do> are quoted strings.")
  return
endif
if (typeof(args[3]) != STR || typeof(args[4]) != STR)
  player:tell("Wrong type of args; try this instead:")
  player:sub_tell("  @teach %t to <command> <what to do>")
  player:tell("where <command> and <what to do> are quoted strings.")
  return
endif
if (cmd = $list_utils:assoc(args[3], this.commands))
  player:sub_tell("%t already knows how to \"%1\".", args[3])
  return
endif
commandl = {args[3], args[4]}
this.commands = listappend(this.commands, commandl)
player:sub_tell("%t now knows how to \"%1\".", args[3])
"Last modified by Dax (#789) on Tue Jun  2 17:10:15 1998 EDT."
.

0