@verb #1557:"closet" any any any rxdo #4312
@program #1557:"closet" any any any
if (valid(dobj))
  player:sub_tell("Your head snaps in %d's direction.")
  dobj:sub_tell("%N's head snaps in your direction.")
  player.location:sub_announce_all_but({player, dobj}, "%N's head snaps in %d's direction.")
  suspend(3)
  player:sub_tell("Clearly annoyed, you shove %d into a closet and lock the door.")
  dobj:sub_tell("Clearly annoyed, %N shoves you in a closet. You hear a *CLICK*")
  player.location:sub_announce_all_but({player, dobj}, "Clearly annoyed, %N shoves %d into a closet and locks the door.")
  suspend(6)
  dobj:sub_tell("You bang on the door.")
  player.location:sub_announce_all_but({dobj}, "You hear a banging.")
  suspend(5)
  player:sub_tell("Satisfied, you open the door and let %d out.")
  dobj:sub_tell("Satisfied, %N lets you out and apologizes.")
  player.location:sub_announce_all_but({player, dobj}, "Satisfied, %N lets %d out.")
else
  player:sub_tell("You look around the room and point to the closet in warning. You are ANNOYED.")
  player.location:sub_announce_all_but({player}, "%N looks around the room, surveying all. %S points to the closet in warning. %S looks ANNOYED.")
endif
"Last modified by Midnight (#4312) on Fri Nov  3 18:51:45 2000 MST."
.