@verb #3972:"@lock lock close @unlock unlock open" none none none rdo #2322
@program #3972:"@lock lock close @unlock unlock open" none none none
if (caller == this.owner || caller in this.residents)
  if (verb == "lock" || verb == "@lock" || verb == "close" || verb == "shut")
    if (this.locked == 1)
      player:tell("The door is already locked.")
    elseif (this.locked != 1)
      caller:tell("You lock the door make only residents and people who have  invitations able to enter the room.")
      this.locked = 1
      this:announce(caller.name, " locks the Door.")
    endif
  elseif (verb == "@unlock" || verb == "unlock" || verb == "open")
    if (this.locked != 0)
      player:tell("You unlock the door allowing anyone to enter the room.")
      player.location:announce(player.name, " unlocks the door.")
      this.locked = 0
      this.invites = {}
    elseif (this.locked == 0)
      player:tell("The door is already unlocked")
    endif
  endif
else
  player:tell("Only the owner and a resident of this room may lock and unlock  the door.")
endif
"Last modified by Roosterman (#2322) on Tue Jan 18 19:27:45 2000 MST."
.