2da
@verb #3309:"_stand" this none this rxdo #8438
@program #3309:"_stand" this none this
"causes the player to stand up - what else can I say! ;-)"
caller != this && raise(E_PERM, "No.", E_PERM)
player = args[1]
seatnumber = 0
if (deleteditem = player in this.sitters)
  seatnumber = this.seats[deleteditem]
endif
if (seatnumber == 0)
  return player:tell("You're not sitting down.")
endif
this.seats = listdelete(this.seats, deleteditem)
this.sitters = listdelete(this.sitters, deleteditem)
if (player:isa($player) && player:connected(0))
  this:sub_announce(tostr("%n ", this:ostandlist_msgs()[seatnumber]))
  if (player.location == this)
    player:sub_tell(this:standlist_msgs()[seatnumber])
  endif
endif
.

0