@verb #3309:"@viewseat" any none none rxd #8438
@program #3309:"@viewseat" any none none
"Syntax: @viewseat <seatname>"
"    See the messages displayed by that seat."
if ((seat = this:match_seat(dobjstr)) == $ambiguous_match)
  return player:tell("I don't know which \"", dobjstr, "\" you mean.")
elseif (!seat)
  return player:tell(this.name, "(", this, ") has no seat named \"", dobjstr, "\".")
endif
player:tell(this.name, "'s ", toliteral(this:seatlist()[seat][1]), " can hold ", this:seatlist()[seat][2], " players.")
player:tell("Seated message: \"", this:seatedlist_msgs()[seat], "\"")
player:tell("Sit message: \"", this:sitlist_msgs()[seat], "\"")
player:tell("O-Sit message: \"", this:ositlist_msgs()[seat], "\"")
player:tell("Stand message: \"", this:standlist_msgs()[seat], "\"")
player:tell("O-Stand message: \"", this:ostandlist_msgs()[seat], "\"")
.