View/Edit #13:@unlock

Name(s): @unlock

1:  set_task_perms(player)
2:  if ($command_utils:object_match_failed(dobj = player:my_match_object(dobjstr), dobjstr))
3:    return
4:  elseif (dobj:_get_key() == 0)
5:    player:sub_tell("%D (#%d~#) is already unlocked.")
6:  else
7:    try
8:      dobj:_set_key(0)
9:      player:sub_tell($lock_utils:msg_unlocked(), dobj)
10:   except v (ANY)
11:     player:tell(v[2])
12:   endtry
13: endif
14: "Last modified by Dax (#789) on Sat May 20 08:45:40 2000 MDT."

Verb arguments: any none none
Verb perms: Readable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.