1f9
@verb #13:"@unlock" any none none rdo #55
@program #13:"@unlock" any none none
set_task_perms(player)
if ($command_utils:object_match_failed(dobj = player:my_match_object(dobjstr), dobjstr))
  return
elseif (dobj:_get_key() == 0)
  player:sub_tell("%D (#%d~#) is already unlocked.")
else
  try
    dobj:_set_key(0)
    player:sub_tell($lock_utils:msg_unlocked(), dobj)
  except v (ANY)
    player:tell(v[2])
  endtry
endif
"Last modified by Dax (#789) on Sat May 20 08:45:40 2000 MDT."
.

0