@verb #3309:"@add-det*ail @adddet*ail" any any any rdo #8438
@program #3309:"@add-det*ail @adddet*ail" any any any
if (!this:controlled_by(player))
  return player:tell(E_PERM, " only ", $string_utils:nn(this.owner), " can add details.")
elseif (!args)
  return player:tell("Syntax: ", verb, " <detail>")
else
  names = {}
  desc = {}
  for name in ($string_utils:explode(dobjstr, ","))
    if (!this:check_integrated(name))
      return player:tell("A detail or seat already exists by the name \"", name, "\".")
    else
      names = {@names, name}
    endif
  endfor
  if (iobjstr)
    desc = iobjstr
  else
    desc = $command_utils:read_lines(tostr(names[1], "'s description"))
  endif
  this.details = {@this.details, {names, desc}}
  return player:tell(names[1], " added as a detail.")
endif
"Last modified by Dax (#789) on Thu Nov  8 11:53:54 2001 MST."
.