COWbrowse

You are looking at a command called unlock

unlock {object}
unlock {object} with {object}

Simply unlocking an object makes its display in un-bold text and allows anyone to tamper with it (get it, paint it etc..)

You can only unlock objects which were locked by you.

eg: unlock the elephant

read the command called lock if you want to lock objects.

Unlocking an object with a second (key-type) object removes any restrictions imposed on the locked object, so long as you use te exact same key-type object that was used to lock it in the first place.

The second key-type object can be something in your inventory inv or in the same location as you.

eg: unlock the shed with the spade
In this example, you will be able to go into the shed once it has been unlocked with the spade, so long as the spade was the exact object used to lock the shed in the first place.

read some info about locking and unlocking

Scripting notes
when an object is sucessfully unlocked with a key-type object the trigger word 'unlocks' is sent out to the room.

When an object is successfully unlocked (made un-bold) it sends out the trigger word 'unlocksobj'

Created by wolis, last updated 03 Jan 2012

Code

get $target,wth,$second in $loc,$loc or loc = $actor;

if $second > 0 then chkdoor else unlockobj;

##chkdoor:
$tkey = $target's keyid;
if $tkey = $second then unlockdoor else notadoor;

##notadoor:
print "[$actor] discovers that [$target] can not be unlocked with [$second]";

##unlockdoor:
set $target's link = $target's keyloc;
set $target's keyid to '';
set $target's keyloc to '';
set $target's extra to '';
say 'unlocks',"[$actor] manages to unlock [$target] with [$second]";
relook $loc;

# unlock the linked object if there is one..;
$linkedobj = $target's link; remember the linked object;
if $linkedobj > 0 then unlockittoo else end;
##unlockittoo:
set $linkedobj's link = $linkedobj's keyloc;
set $linkedobj's keyid to '';
set $linkedobj's keyloc to '';
set $linkedobj's extra to '';
$loc = $linkedobj's loc; # inform players in this location;
say 'locks',"Someone has unlocked [$linkedobj]";
relook $loc;

##unlockobj:
get $target in $loc;
if $target > 0 then checkloc else lose;
##checkloc:
if $loc's pwd eq $pw then keeponmovin2 else keeponmovin;
##keeponmovin:
if $target's pwd eq $pw then keeponmovin2 else lose2;
##keeponmovin2:
if $target's class eq 'player' then lose3 else keeponmovin3;
##keeponmovin3:
set $target's pwd to '';
say 'unlocksobj' , "[$actor] unlocks [$target]";
msg $loc,$actor,0,0,'force',"force:look $loc";
if $target's link > 0 then locklink else end;
##locklink:
set $target's link's pwd to '';

##end;
rem look $loc;

##lose:
say 'lockfail', "[$actor] could not unlock $cmd_text";

##lose2:
say 'alreadyapassword', "[$actor] discoveres that [$target] is already unlocked";

##lose3:
say 'cantlockplayer', "[$actor] discoveres that [$target] is a player and cant be unlocked";