268
@verb #4486:"@add-detail" any none none rdo #8084
@program #4486:"@add-detail" any none none
if (player != #8084)
  return player:tell(E_PERM)
elseif (dobj == player)
  return player:tell(E_PERM)
endif
aliases = $su:explode(argstr, ",")
player:tell("Creating a detail with aliases ", toliteral(aliases), "..")
look = $command_utils:read("description")
olook = $cmd_utils:read("olook message")
detail = $detail:new()
detail.aliases = aliases
detail.msg_look = look
detail.msg_olook = olook
this.details = setadd(this.details, detail)
"Last modified by Dax (#789) on Mon Dec 10 21:28:03 2001 MST."
.

0