@verb #3309:"@rmseat" any none none rdo #8438
@program #3309:"@rmseat" any none none
"Syntax:	@rmseat <any> - removes the seat from the room you're in."
if (!this:controlled_by(player))
  player:tell("You're not the owner, and have no business remodelling.")
  return
endif
if ((seatnumber = this:match_seat(dobjstr)) == $ambiguous_match)
  return player:tell("I don't know which \"", dobjstr, "\" you mean.")
elseif (!seatnumber)
  return player:tell("There's no seat named \"", dobjstr, "\" in ", this.name, ".")
endif
player:tell("Deleting '" + dobjstr + "' from the room's seating.")
this:set_seatedlist_msgs(listdelete(this:seatedlist_msgs(), seatnumber))
this:set_standlist_msgs(listdelete(this:standlist_msgs(), seatnumber))
this:set_ostandlist_msgs(listdelete(this:ostandlist_msgs(), seatnumber))
this:set_ositlist_msgs(listdelete(this:ositlist_msgs(), seatnumber))
this:set_sitlist_msgs(listdelete(this:sitlist_msgs(), seatnumber))
this:set_seatlist(listdelete(this:seatlist(), seatnumber))
this:seat_update()
.