@verb #3309:"@clear-s*eats @clear-d*etails" none none none rdo #8438
@program #3309:"@clear-s*eats @clear-d*etails" none none none
"Clears all details/seats from the room."
if (!this:controlled_by(player))
  return player:tell(E_PERM, "; only ", $string_utils:nn(this.owner), " can re-decorate.")
elseif ($command_utils:yes_or_no(tostr("Are you /REALLY/ sure that you want to clear ALL ", verb[8] == "s" ? "seats" | "details", " from ", $string_utils:nn(this), "?")))
  if (verb[8] == "d")
    this.details = {}
  else
    this.ositlist_msgs = {}
    this.sitlist_msgs = {}
    this.ostandlist_msgs = {}
    this.standlist_msgs = {}
    this.seatedlist_msgs = {}
    this.seatlist = {}
    this:seat_update()
  endif
  return {player:tell("All ", verb[8] == "s" ? "seats" | "details", " cleared from ", $string_utils:nn(this), "."), player:tell()}
else
  return {player:tell("All ", verb[8] == "s" ? "seats" | "details", " left alone."), player:tell()}
endif
.