@verb #3207:"lock unlock" this none none rdo #4017
@program #3207:"lock unlock" this none none
if (player != this.owner)
  return player:tell(tostr(E_PERM) + ".")
elseif (this.free_entry && verb == "unlock" || (!this.free_entry && verb == "lock"))
  return player:tell(this.name + " is already " + (this.free_entry ? "unlocked." | "locked."))
endif
this.free_entry = this.free_entry == 0
player:tell(this.name + (this.free_entry ? " unlocked." | " locked."))
"Last modified by Patrick (#4017) on Fri Nov 30 20:18:05 2001 MST."
.