COWbrowse

You are looking at a key finder

Simply use it on the object that is locked to learn where its key resides!

Created by omenofdoom, last updated 24 Jun 2009

Code

if target of use then doit;
##doit:
$key = $second's keyid;
$keyplace = $key's loc;
print "[$second]'s key is at [$keyplace].";