@verb #6717:"lock unlock ultralock megalock full-lock total-lock" this none none rdo #7407
@program #6717:"lock unlock ultralock megalock full-lock total-lock" this none none
if ($perm_utils:controls(player, this))
  if (verb == "lock")
    player:tell(this:title() + " " + verb + "ed.")
    this.free_entry = 0
  elseif (verb == "unlock")
    player:tell(this:title() + " " + verb + "ed.")
    this.free_entry = 1
  else
    player:tell(this:title() + " locked and all non-residents ejected.")
    this.free_entry = 0
    fork (0)
      for x in (this:contents())
        if (x.owner != this.owner && !(x in this.residents))
          x:sub_tell(this:msg_victim_ejection())
          this:eject(x)
        endif
      endfor
    endfork
  endif
  this:sub_announce_all(verb == "lock" ? this:msg_normlock() | (verb == "unlock" ? this:msg_unlock() | this:msg_megalock()))
else
  player:tell(E_PERM)
endif
"Last modified by manta (#7165) on Fri Sep 11 05:16:19 1998 EDT."
.