COWbrowse

You are looking at a command called lock

lock {object}
lock {object} with {object}

Simply locking an object makes its display in bold text and prevents anyone other than you from tampering with it (get it, paint it etc..)

You can only lock objects which are unlocked.

eg: lock the elephant

read the command called unlock if you want to unlock your locked objects.

Locking an object with a second (key-type) object imposes restrictions on it. If its a doorway then noone can go through it (except the owner of it). If its a basic object then noone can read it (except the owner of it).

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

eg: lock the shed with the spade or lock the magic book with the gold key

read some info about locking and unlocking to remove the restrictions.

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

When an object is successfully locked (made bold) it sends out the trigger word 'locksobj'

Created by wolis, last updated 26 Oct 2008

Code

get $target,with,$second in $loc,$loc or loc = $actor;
if $second > 0 then linkedlock else ownerlock;

##linkedlock:
if $target > 0 then contlocking else lose;

##contlocking:
$tlink = $target's link;
if $tlink > 0 then chklock else notadoor;

##chklock:
if $pw like $target's pwd then lockitwith else itslocked;

##lockitwith:
$linkedobj = $target's link; remember the linked object;
set $target's keyid to $second; remember the key;
set $target's keyloc to $linkedobj; remember the link;
set $target's link to $target; rem link it to itself -revolving door;
set $target's extra = "which is locked";
say 'locks',"[$actor] locks [$target] with [$second]";
relook $loc;
# lock the linked object if there is one..;
if $linkedobj > 0 then lockittoo else end;
##lockittoo:
set $linkedobj's keyid to $second; remember the key;
set $linkedobj's keyloc to $linkedobj's link; remember the link;
set $linkedobj's link to $linkedobj; rem link it to itself -revolving door;
set $linkedobj's extra = "which is locked";
$loc = $linkedobj's loc; # inform players in this location;
say 'locks',"Someone has locked [$linkedobj]";
relook $loc;

##itslocked:
print "[$actor] could not lock [$target] with [$second] because its locked";

##ownerlock:
get $target in $loc;
if $target > 0 then keeponmovin else lose;
##keeponmovin:
if $target's pwd eq '' then keeponmovin2 else lose2;
##keeponmovin2:
set $target's pwd to $pw;
say 'locksobj' , "[$actor] locks [$target]";
look $loc;
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 $pw;
##end;
##lose:
say 'lockfail', "[$actor] could not lock the $cmd_text (maybe there is more than one of them)";
##lose2:
say 'alreadyapassword', "[$actor] tries to lock the locked [$target]";

##notadoor:
set $target's keyid to $second; remember the key;
set $target's extra = "which is locked";
say 'locks',"[$actor] locks [$target] with [$second]";
relook $loc;